1 /* Asset Package Compiler */
7 typedef struct class_state_t yycstate;
8 struct frame_spec_t { facinglist list; int w, h; };
11 yycstate* yycstate_new(void);
12 void yycstate_delete(yycstate*);
21 struct class_state_t {
23 ir_class class_stack[];
26 extern long sys_pagesize;
28 static void yyerror(yycstate*, char const*);
29 static inline ir_class yyclass_push(yycstate*, ir_class);
30 static inline ir_class yyclass_pop(yycstate*);
31 /* Stack-based class handler */
32 #define yyclass(CS) (*(CS->csp))
33 #define yyclassld(CS) (ir_classld_from_class(yyclass(CS)))
34 #define DEFAULT_VARIANT (uint8_t*)"default"
36 %define parse.error verbose
37 %define parse.lac full
40 %define api.push-pull push
41 %parse-param {yycstate* cs}
51 struct frame_spec_t frame_spec;
52 facinglist facinglist;
70 %type<ld> set_ld set_link
71 %type<frame_spec> frame_spec
72 %type<facinglist> facing_list
74 /* Syntax Directed Translation Scheme of the APC grammar */
77 | class_list statement_list
78 | statement_list class_list
88 NAME CLOPEN { yyclass_push(cs,ir_class_addchild(yyclass(cs), $1)); }
90 CLCLOSE { yyclass_pop(cs); }
94 statement_list statement
99 set_spec data_spec REF PATH { ir_data_assign_path($2,$4); ir_set_assign_data($1,$2); ir_set_assign_ref($1,$3); }
100 | set_spec data_spec PATH { ir_data_assign_path($2,$3); ir_set_assign_data($1,$2); }
101 | set_spec REF PATH { ir_set_assign_ref($1,$2); }
105 SS NAME frame_spec { $$ = ir_framesheet($2,$3.list,$3.w,$3.h); }
106 | SS frame_spec { $$ = ir_framesheet(DEFAULT_VARIANT,$2.list,$2.w,$2.h); }
107 | MAP NAME frame_spec { $$ = ir_mapsheet($2,$3.list,$3.w,$3.h); }
108 | MAP frame_spec { $$ = ir_mapsheet(DEFAULT_VARIANT,$2.list,$2.w,$2.h); }
109 | AUDIO NAME { $$ = ir_audio($2); }
110 | LINK set_ld { $$ = ir_link(OLINK, $2, NULL); }
111 | LINK set_ld MAP { $$ = ir_link(MLINK, $2,NULL); }
112 | LINK set_ld MAP NAME { $$ = ir_link(MLINK, $2,$4); }
113 | LINK set_ld SS { $$ = ir_link(VLINK, $2,NULL); }
114 | LINK set_ld SS NAME { $$ = ir_link(VLINK, $2,$4); }
115 | LINK set_ld AUDIO { $$ = ir_link(ALINK, $2,NULL); }
116 | LINK set_ld AUDIO NAME { $$ = ir_link(ALINK, $2,$4); }
120 set_spec NAME { $$ = ir_set_addchild($1,$2); }
121 | NAME { $$ = ir_class_addset(yyclass(cs),$1); }
125 set_link NAME { $$ = ir_setld_addchild($1,$2); }
126 | NAME { $$ = ir_setld_from_classld(yyclassld(cs),$1); }
130 set_link { $$ = $1; }
131 | REF { $$ = ir_setld_from_ref($1); }
135 facing_list FACING { $$ = ir_facinglist_push($1,$2); }
136 | FACING { $$ = ir_facinglist($1); }
139 NUM NUM { $$ = (struct frame_spec_t) {NULL,$1,$2}; }
140 | facing_list { $$ = (struct frame_spec_t) {$1,0,0}; }
141 | facing_list NUM NUM { $$ = (struct frame_spec_t) {$1,$2,$3}; }
142 | %empty { $$ = (struct frame_spec_t) {NULL,0,0}; }
153 fprintf(stderr, "[class->");
154 for (iter = cs->class_stack; iter <= cs->csp; iter++)
155 fprintf(stderr, "%s/", ir_class_name(*iter));
156 if (strstr(s,"unexpected CLCLOSE") != NULL)
158 fprintf(stderr, "]\n\t");
159 fprintf(stderr, "%s\n", s);
162 yycstate* yycstate_new
164 { yycstate* class_state;
165 class_state = (yycstate*) malloc((size_t) sys_pagesize);
166 if(class_state == NULL)
167 { yyerror(class_state, "Memory allocation error.");
170 class_state->csp = class_state->class_stack;
171 *(class_state->csp) = ir_class_root();
178 { return *cs->csp--; }
181 ir_class yyclass_push
185 { return *++(cs->csp) = class; }
188 ( yycstate* class_state )
189 { free(class_state); }