/* Stack-based class handler */
#define yyclass(CS) (*(CS->csp))
#define yyclassld(CS) (ir_classld_from_class(yyclass(CS)))
+ #define DEFAULT_VARIANT (uint8_t*)"default"
}
%define parse.error verbose
%define parse.lac full
%define api.push-pull push
%parse-param {yycstate* cs}
%union {
- long long ref;
+ uint32_t ref;
int val;
- apc_facing face;
+ apc_facing face;
uint8_t* str;
ir_class class;
ir_set set;
progn:
class_list
| class_list statement_list
+| statement_list class_list
| statement_list
;
| statement
;
-statement:
+ statement:
set_spec data_spec REF PATH { ir_data_assign_path($2,$4); ir_set_assign_data($1,$2); ir_set_assign_ref($1,$3); }
| set_spec data_spec PATH { ir_data_assign_path($2,$3); ir_set_assign_data($1,$2); }
| set_spec REF PATH { ir_set_assign_ref($1,$2); }
data_spec:
SS NAME frame_spec { $$ = ir_framesheet($2,$3.d,$3.w,$3.h); }
+| SS frame_spec { $$ = ir_framesheet(DEFAULT_VARIANT,$2.d,$2.w,$2.h); }
| MAP NAME frame_spec { $$ = ir_mapsheet($2,$3.d,$3.w,$3.h); }
+| MAP frame_spec { $$ = ir_mapsheet(DEFAULT_VARIANT,$2.d,$2.w,$2.h); }
| AUDIO NAME { $$ = ir_audio($2); }
| LINK set_ld { $$ = ir_link(OLINK, $2, NULL); }
| LINK set_ld MAP { $$ = ir_link(MLINK, $2,NULL); }
NUM NUM { $$ = (struct frame_spec_t) {SFACE,$1,$2}; }
| FACING { $$ = (struct frame_spec_t) {$1,0,0}; }
| FACING NUM NUM { $$ = (struct frame_spec_t) {$1,$2,$3}; }
+| %empty { $$ = (struct frame_spec_t) {SFACE,0,0}; }
;
%%
char const *s
)
{ ir_class* iter;
- for (iter = cs->class_stack; iter < cs->csp; iter++)
+ fprintf(stderr, "[class->");
+ for (iter = cs->class_stack; iter <= cs->csp; iter++)
fprintf(stderr, "%s/", ir_class_name(*iter));
- fprintf(stderr, "\n\t");
+ if (strstr(s,"unexpected CLCLOSE") != NULL)
+ yyclass_pop(cs);
+ fprintf(stderr, "]\n\t");
fprintf(stderr, "%s\n", s);
}
static inline
ir_class yyclass_pop
( yycstate* cs )
-{ cs->csp--;
- return *(cs->csp + 1);
-}
+{ return *cs->csp--; }
static inline
ir_class yyclass_push