1 /* Asset Package Compiler */
5 typedef struct class_state_t yycstate;
7 yycstate* yycstate_new(void);
8 void yycstate_delete(yycstate*);
18 struct class_state_t {
20 size_t class_stack_size;
21 ir_class *class_stack;
25 struct frame_spec_t { enum facing d; int w, h; };
27 extern long sys_pagesize;
29 static void yyerror(char const*);
30 /* Stack-based class handler */
31 static ir_class class_stack_init(void);
32 #define class_stack_pop() (*--csp)
33 static ir_class class_stack_push(ir_class);
36 #define yyclass (*csp)
37 #define yyclassld (ir_classld_from_class(yyclass))
41 %define parse.error verbose
44 %define api.push-pull push
45 %parse-param {yycstate* cs}
55 struct frame_spec_t frame_spec;
73 %type<ld> set_ld set_link
74 %type<frame_spec> frame_spec
76 %initial-action { class_stack_init(); }
78 /* Syntax Directed Translation Scheme of the APC grammar */
81 | class_list statement_list
91 NAME CLOPEN { class_stack_push(ir_class_addchild(yyclass, $1)); }
93 CLCLOSE { class_stack_pop(); }
97 statement_list statement
102 set_spec data_spec REF PATH { ir_data_assign_path($2,$4); ir_set_assign_data($1,$2); ir_set_assign_ref($1,$3); }
103 | set_spec data_spec PATH { ir_data_assign_path($2,$3); ir_set_assign_data($1,$2); }
104 | set_spec REF PATH { ir_set_assign_ref($1,$2); }
108 SS NAME frame_spec { $$ = ir_framesheet($2,$3.d,$3.w,$3.h); }
109 | MAP NAME frame_spec { $$ = ir_mapsheet($2,$3.d,$3.w,$3.h); }
110 | AUDIO NAME { $$ = ir_audio($2); }
111 | LINK set_ld { $$ = ir_link_odat($2); }
112 | LINK set_ld MAP { $$ = ir_link_mdat($2,NULL); }
113 | LINK set_ld MAP NAME { $$ = ir_link_mdat($2,$4); }
114 | LINK set_ld SS { $$ = ir_link_vdat($2,NULL); }
115 | LINK set_ld SS NAME { $$ = ir_link_vdat($2,$4); }
116 | LINK set_ld AUDIO { $$ = ir_link_adat($2,NULL); }
117 | LINK set_ld AUDIO NAME { $$ = ir_link_adat($2,$4); }
121 set_spec NAME { $$ = ir_set_addchild($1,$2); }
122 | NAME { $$ = ir_class_addset(yyclass,$1); }
126 set_link NAME { $$ = ir_setld_addchild($1,$2); }
127 | NAME { $$ = ir_setld_from_classld(yyclassld,$1) }
131 set_link { $$ = $1; }
132 | REF { $$ = ir_setld_from_ref($1); }
136 NUM NUM { $$ = (struct frame_spec_t) {SFACE,$1,$2}; }
137 | FACING { $$ = (struct frame_spec_t) {$1,0,0}; }
138 | FACING NUM NUM { $$ = (struct frame_spec_t) {$1,$2,$3}; }
143 #define ERR_ALLOC "memory allocation error\n"
145 /* print to stderr */
149 { fprintf(stderr, "%s\n", s); }
151 /* Initialize the class stack
152 If the class_stack hasn't been allocated yet, allocates a page for pointers
153 to be stored in. Initializes class stack pointer, and inserts the root class
155 Returns the root class given by IR.
158 ir_class class_stack_init
160 { if (class_stack == NULL)
161 { class_stack_size = (size_t) sys_pagesize;
162 class_stack = (ir_class*) malloc(class_stack_size);
163 if (class_stack == NULL)
169 return class_stack_push(ir_class_root());
172 /* Add a Class to the Stack
173 Allocated in page-sized chunks, potentially infinite depth is supported.
174 Returns the input class.
177 ir_class class_stack_push
178 #define class_size (sizeof(*class_stack))
180 { size_t class_stack_len = csp - class_stack;
181 ir_class* new_class_stack;
182 if ((class_stack_len * class_size + class_size) > class_stack_size)
183 { class_stack_size += (size_t) sys_pagesize;
184 new_class_stack = (ir_class*) realloc(class_stack, class_stack_size);
185 if (new_class_stack == NULL)
186 { free(class_stack); //realloc failure does not free class_stack
187 yyerror("realloc " ERR_MEM);
190 class_stack = new_class_stack;
191 csp = class_stack + class_stack_len;
193 return (*csp++ = class);
199 { yycstate* class_state;
201 class_state = (yycstate*) malloc((size_t) sys_pagesize);
203 if(class_state == NULL)
208 class_state.class_stack = class_stack;
209 class_state.csp = class_state.class_stack;
210 class_state.class_stack_size = (size_t) sys_pagesize;
211 class_stack_push(ir_class_root());
219 ( yycstate* class_state )