- return false;
- }
- else if (parser->tok == '.')
- {
- ast_value *var;
- ast_value *typevar;
- ast_value *fld;
- ast_expression *oldex;
- bool isfunc = false;
- int basetype;
- lex_ctx ctx = parser_ctx(parser);
- varentry_t varent;
-
- /* entity-member declaration */
- if (!parser_next(parser) || parser->tok != TOKEN_TYPENAME) {
- parseerror(parser, "expected member variable definition");
- return false;
- }
-
- /* remember the base/return type */
- basetype = parser_token(parser)->constval.t;
-
- /* parse into the declaration */
- if (!parser_next(parser)) {
- parseerror(parser, "expected field definition");
- return false;
- }
-
- /* parse the field type fully */
- typevar = var = parser_parse_type(parser, basetype, &isfunc);
- if (!var)
- return false;
-
- while (true) {
- var = ast_value_copy(typevar);
- /* now the field name */
- if (parser->tok != TOKEN_IDENT) {
- parseerror(parser, "expected field name");
- ast_delete(var);
- return false;
- }
-
- /* check for an existing field
- * in original qc we also have to check for an existing
- * global named like the field
- */
- if (opts_standard == COMPILER_QCC) {
- if (parser_find_global(parser, parser_tokval(parser))) {
- parseerror(parser, "cannot declare a field and a global of the same name with -std=qcc");
- ast_delete(var);
- return false;
- }
- }
-
- if (isfunc) {
- ast_value *fval;
- fval = ast_value_new(ctx, var->name, TYPE_FUNCTION);
- if (!fval) {
- ast_value_delete(var);
- return false;
- }
- fval->expression.next = (ast_expression*)var;
- MEM_VECTOR_MOVE(&var->expression, params, &fval->expression, params);
- var = fval;
- }
-
- /* turn it into a field */
- fld = ast_value_new(ctx, parser_tokval(parser), TYPE_FIELD);
- fld->expression.next = (ast_expression*)var;
-
- if ( (oldex = parser_find_field(parser, parser_tokval(parser)))) {
- if (ast_istype(oldex, ast_member)) {
- parseerror(parser, "cannot declare a field with the same name as a vector component, component %s has been declared here: %s:%i",
- parser_tokval(parser), ast_ctx(oldex).file, (int)ast_ctx(oldex).line);
- ast_delete(fld);
- return false;
- }
- if (!ast_istype(oldex, ast_value)) {
- /* not possible / sanity check */
- parseerror(parser, "internal error: %s is not an ast_value", parser_tokval(parser));
- ast_delete(fld);
- return false;
- }
-
- if (!ast_compare_type(oldex, (ast_expression*)fld)) {
- parseerror(parser, "field %s has previously been declared with a different type here: %s:%i",
- parser_tokval(parser), ast_ctx(oldex).file, (int)ast_ctx(oldex).line);
- ast_delete(fld);
- return false;
- } else {
- if (parsewarning(parser, WARN_FIELD_REDECLARED, "field `%s` has already been declared here: %s:%i",
- parser_tokval(parser), ast_ctx(oldex).file, (int)ast_ctx(oldex).line))
- {
- ast_delete(fld);
- return false;
- }
- }
-
- ast_delete(fld);
- goto nextfield;
- }
-
- varent.var = (ast_expression*)fld;
- varent.name = util_strdup(fld->name);
- (void)!parser_t_fields_add(parser, varent);
-
- if (var->expression.vtype == TYPE_VECTOR)
- {
- /* create _x, _y and _z fields as well */
- varentry_t vx, vy, vz;
- if (!create_vector_members(parser, fld, &vx, &vy, &vz)) {
- ast_delete(fld);
- return false;
- }
- (void)!parser_t_fields_add(parser, vx);
- (void)!parser_t_fields_add(parser, vy);
- (void)!parser_t_fields_add(parser, vz);
- }
-
-nextfield: