1 /* Asset Package Compiler */
13 struct frame_spec_t { enum facing d; int w, h; };
15 extern long sys_pagesize;
17 static void yyerror(char const*);
18 /* Stack-based class handler */
19 static ir_class *class_stack, *csp;
20 static size_t class_stack_size;
21 static ir_class class_stack_init(void);
22 #define class_stack_pop() (*--csp)
23 static ir_class class_stack_push(ir_class);
26 #define yyclass (*csp)
27 #define yyclassld (ir_classld_from_class(yyclass))
29 %define parse.error verbose
32 %define api.push-pull push
42 struct frame_spec_t frame_spec;
60 %type<ld> set_ld set_link
61 %type<frame_spec> frame_spec
63 %initial-action { class_stack_init(); }
65 /* Syntax Directed Translation Scheme of the APC grammar */
68 | class_list statement_list
78 NAME CLOPEN { class_stack_push(ir_class_addchild(yyclass, $1)); }
80 CLCLOSE { class_stack_pop(); }
84 statement_list statement
89 set_spec data_spec REF PATH { ir_data_assign_path($2,$4); ir_set_assign_data($1,$2); ir_set_assign_ref($1,$3); }
90 | set_spec data_spec PATH { ir_data_assign_path($2,$3); ir_set_assign_data($1,$2); }
91 | set_spec REF PATH { ir_set_assign_ref($1,$2); }
95 SS NAME frame_spec { $$ = ir_framesheet($2,$3.d,$3.w,$3.h); }
96 | MAP NAME frame_spec { $$ = ir_mapsheet($2,$3.d,$3.w,$3.h); }
97 | AUDIO NAME { $$ = ir_audio($2); }
98 | LINK set_ld { $$ = ir_link_odat($2); }
99 | LINK set_ld MAP { $$ = ir_link_mdat($2,NULL); }
100 | LINK set_ld MAP NAME { $$ = ir_link_mdat($2,$4); }
101 | LINK set_ld SS { $$ = ir_link_vdat($2,NULL); }
102 | LINK set_ld SS NAME { $$ = ir_link_vdat($2,$4); }
103 | LINK set_ld AUDIO { $$ = ir_link_adat($2,NULL); }
104 | LINK set_ld AUDIO NAME { $$ = ir_link_adat($2,$4); }
108 set_spec NAME { $$ = ir_set_addchild($1,$2); }
109 | NAME { $$ = ir_class_addset(yyclass,$1); }
113 set_link NAME { $$ = ir_setld_addchild($1,$2); }
114 | NAME { $$ = ir_setld_from_classld(yyclassld,$1) }
118 set_link { $$ = $1; }
119 | REF { $$ = ir_setld_from_ref($1); }
123 NUM NUM { $$ = (struct frame_spec_t) {SFACE,$1,$2}; }
124 | FACING { $$ = (struct frame_spec_t) {$1,0,0}; }
125 | FACING NUM NUM { $$ = (struct frame_spec_t) {$1,$2,$3}; }
130 #define ERR_ALLOC "memory allocation error\n"
132 /* print to stderr */
136 { fprintf(stderr, "%s\n", s); }
138 /* Initialize the class stack
139 If the class_stack hasn't been allocated yet, allocates a page for pointers
140 to be stored in. Initializes class stack pointer, and inserts the root class
142 Returns the root class given by IR.
145 ir_class class_stack_init
147 { if (class_stack == NULL)
148 { class_stack_size = (size_t) sys_pagesize;
149 class_stack = (ir_class*) malloc(class_stack_size);
150 if (class_stack == NULL)
156 return class_stack_push(ir_class_root());
159 /* Add a Class to the Stack
160 Allocated in page-sized chunks, potentially infinite depth is supported.
161 Returns the input class.
164 ir_class class_stack_push
165 #define class_size (sizeof(*class_stack))
167 { size_t class_stack_len = csp - class_stack;
168 ir_class* new_class_stack;
169 if ((class_stack_len * class_size + class_size) > class_stack_size)
170 { class_stack_size += (size_t) sys_pagesize;
171 new_class_stack = (ir_class*) realloc(class_stack, class_stack_size);
172 if (new_class_stack == NULL)
173 { free(class_stack); //realloc failure does not free class_stack
174 yyerror("realloc " ERR_MEM);
177 class_stack = new_class_stack;
178 csp = class_stack + class_stack_len;
180 return (*csp++ = class);