case EXPR_SUB:
case EXPR_AND:
case EXPR_OR:
+ case EXPR_MEMBERPTR:
+ case EXPR_MEMBER:
if (brackets) fprintf(h, "(");
write_expr(h, e->ref, 1);
switch (e->type) {
case EXPR_SUB: fprintf(h, " - "); break;
case EXPR_AND: fprintf(h, " & "); break;
case EXPR_OR: fprintf(h, " | "); break;
+ case EXPR_MEMBERPTR: fprintf(h, "->"); break;
+ case EXPR_MEMBER: fprintf(h, "."); break;
default: break;
}
write_expr(h, e->u.ext, 1);
<INITIAL,ATTR>{ws}
<INITIAL,ATTR>\<\< return SHL;
<INITIAL,ATTR>\>\> return SHR;
+<INITIAL,ATTR>\-\> return MEMBERPTR;
<INITIAL,ATTR>. return yytext[0];
<<EOF>> {
if (import_stack_ptr)
%token <uuid> aUUID
%token aEOF
%token SHL SHR
+%token MEMBERPTR
%token tAGGREGATABLE tALLOCATE tAPPOBJECT tASYNC tASYNCUUID
%token tAUTOHANDLE tBINDABLE tBOOLEAN tBROADCAST tBYTE tBYTECOUNT
%token tCALLAS tCALLBACK tCASE tCDECL tCHAR tCOCLASS tCODE tCOMMSTATUS
%left '-' '+'
%left '*' '/'
%left SHL SHR
+%left '.' MEMBERPTR
%right '~'
%right CAST
%right PPTR
| expr SHR expr { $$ = make_expr2(EXPR_SHR, $1, $3); }
| '~' expr { $$ = make_expr1(EXPR_NOT, $2); }
| '-' expr %prec NEG { $$ = make_expr1(EXPR_NEG, $2); }
- | '&' expr %prec ADDRESSOF { $$ = make_expr1(EXPR_ADDRESSOF, $2); }
+ | '&' expr %prec ADDRESSOF { $$ = make_expr1(EXPR_ADDRESSOF, $2); }
| '*' expr %prec PPTR { $$ = make_expr1(EXPR_PPTR, $2); }
+ | expr MEMBERPTR expr { $$ = make_expr2(EXPR_MEMBERPTR, $1, $3); }
+ | expr '.' expr { $$ = make_expr2(EXPR_MEMBER, $1, $3); }
| '(' type ')' expr %prec CAST { $$ = make_exprt(EXPR_CAST, $2, $4); }
| tSIZEOF '(' type ')' { $$ = make_exprt(EXPR_SIZEOF, $3, NULL); }
| '(' expr ')' { $$ = $2; }
case EXPR_DIV:
case EXPR_SHL:
case EXPR_SHR:
+ case EXPR_MEMBERPTR:
+ case EXPR_MEMBER:
ret = compare_expr(a->ref, b->ref);
if (ret != 0)
return ret;
case EXPR_SUB:
case EXPR_AND:
case EXPR_OR:
+ case EXPR_MEMBERPTR:
+ case EXPR_MEMBER:
if (brackets) fprintf(h, "(");
write_struct_expr(h, e->ref, 1, fields, structvar);
switch (e->type) {
case EXPR_SUB: fprintf(h, " - "); break;
case EXPR_AND: fprintf(h, " & "); break;
case EXPR_OR: fprintf(h, " | "); break;
+ case EXPR_MEMBERPTR: fprintf(h, "->"); break;
+ case EXPR_MEMBER: fprintf(h, "."); break;
default: break;
}
write_struct_expr(h, e->u.ext, 1, fields, structvar);
EXPR_COND,
EXPR_TRUEFALSE,
EXPR_ADDRESSOF,
+ EXPR_MEMBERPTR,
+ EXPR_MEMBER,
};
enum type_kind