X-Git-Url: https://www.kengrimes.com/gitweb/?p=henge%2Fapc.git;a=blobdiff_plain;f=src%2Fparser.y;h=5dc5fdbe9ce967e5e8114b03bbe69cff224e7d52;hp=e1fe89651eb15c4f9f1878f5f5351b602ffe4e86;hb=c02ac2539fe718add1da1103cd63c7fb191985bf;hpb=fc6b15eee27f77e01ed4a24bc11e7bfa5a812342

diff --git a/src/parser.y b/src/parser.y
index e1fe896..5dc5fdb 100644
--- a/src/parser.y
+++ b/src/parser.y
@@ -31,7 +31,7 @@
   /* Stack-based class handler */
   #define yyclass(CS)   (*(CS->csp))
   #define yyclassld(CS) (ir_classld_from_class(yyclass(CS)))
-  #define DEFAULT_VARIANT "default"
+  #define DEFAULT_VARIANT (uint8_t*)"default"
 }
 %define parse.error verbose
 %define parse.lac full
@@ -73,6 +73,7 @@
 progn:
   class_list 
 | class_list statement_list
+| statement_list class_list
 | statement_list
 ;
 
@@ -85,7 +86,6 @@ class:
   NAME CLOPEN   { yyclass_push(cs,ir_class_addchild(yyclass(cs), $1)); }
   progn
   CLCLOSE       { yyclass_pop(cs); }
-| CLCLOSE       { yyclass_pop(cs); }
 ;
 
 statement_list:
@@ -93,7 +93,7 @@ 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); }
@@ -145,8 +145,10 @@ void yyerror
 )
 { ir_class* iter;
   fprintf(stderr, "[class->");
-  for (iter = cs->class_stack; iter < cs->csp; iter++)
+  for (iter = cs->class_stack; iter <= cs->csp; iter++)
     fprintf(stderr, "%s/", ir_class_name(*iter));
+  if (strstr(s,"unexpected CLCLOSE") != NULL)
+    yyclass_pop(cs);
   fprintf(stderr, "]\n\t");
   fprintf(stderr, "%s\n", s);
 }
@@ -167,9 +169,7 @@ yycstate* yycstate_new
 static inline
 ir_class yyclass_pop
 ( yycstate* cs )
-{ cs->csp--;
-  return *(cs->csp + 1);
-}
+{ return *cs->csp--; }
 
 static inline
 ir_class yyclass_push