optimization pass thru parser

[henge/apc.git] / src / parser.y

diff --git a/src/parser.y b/src/parser.y
index 6fe0969..60a5867 100644 (file)
--- a/src/parser.y
+++ b/src/parser.y
@@ -1,14 +1,13 @@
 /* Asset Package Compiler */
-%code requires{
-  #include <stdint.h>
+%code requires  {
   #include <unitypes.h>
-  #include "apc.h"
 }
+
 %{
   #include <stdio.h>
   #include <string.h>
   #include <dirent.h>
-
+  #include <unitypes.h>
   extern int lexer_init(); //?
   extern int lexer(); //?
   extern void pop_cdat(void);
@@ -18,10 +17,10 @@
   extern void insert_set_name(uint8_t*);
   extern void insert_set_namelist(uint8_t*);
   extern void insert_link_name(uint8_t*);
-  extern void insert_map(int, uint8_t*, int, int, uint8_t*);
+  extern void insert_map(uint8_t*,int, int, int, int, uint8_t*);
   extern void insert_mlink(uint8_t*, int);
   extern void insert_vlink(uint8_t*, int);
-  extern void insert_framesheet(uint_t* int, int, int,int, uint8_t*);
+  extern void insert_framesheet(uint8_t* ,int, int, int,int, uint8_t*);
   
   #define yylex lexer
 
@@ -30,13 +29,11 @@
 %}
 %define parse.error verbose
 %define lr.type ielr
-%glr-parser
 
 %union {
-  int ref;
+  long long ref;
   int val;
-  uint8_t *str;
-  struct name* name;
+  uint8_t* str;
   void *voidp;
 }
 
@@ -57,10 +54,9 @@
 %token <val> HEIGHT
 %token <val> WIDTH
 %token <val> D
-%token <name> NAME
-%token SHIFT
+%token <str> NAME
 //nonterminals
-%type <int> ref_id
+%type <val> ref_id
  /* Syntax Directed Translation Scheme of the APC grammar */
 
 /* Rules */
@@ -97,7 +93,7 @@ vdat_statement
 ;
 
 ref_statement:
-set_namelist ref_id                                  {insert_set_refid($2);};
+set_namelist ref_id                                  {insert_refid($2);};
 ;
 
 link_namelist:
@@ -117,22 +113,22 @@ set_namelist MOPEN map
 ;
 
 map:
-NAME NUM NUM PATH                            {insert_map($1, 0, $3, $4, 0, $5);};
-| NAME PATH                                  {insert_map($1, 0, 0, 0, 0, $2);};
-| NAME D PATH                                {insert_map($1, $2, 0, 0, 0, $3);};
-| NAME D NUM NUM PATH                        {insert_map($1, $2, $3, $4, 0, $5);};
-| NAME NUM NUM ref_id PATH                   {insert_map($1, 0, $2, $3, $4, $5);};
-| NAME ref_id PATH                           {insert_map($1, 0, 0, 0, $2, $3);};
-| NAME D ref_id PATH                         {insert_map($1, $2, 0, 0, $3, $4);};
-| NAME D NUM NUM ref_id PATH                 {insert_map($1, $2, $3, $4, $5, $6);};
+NAME NUM NUM PATH                            {insert_map($1,  0, $3,  0,  0,  $4);};
+| NAME PATH                                  {insert_map($1,  0,  0,  0,  0,  $2);};
+| NAME D PATH                                {insert_map($1, $2,  0,  0,  0,  $3);};
+| NAME D NUM NUM PATH                        {insert_map($1, $2, $3, $4,  0,  $5);};
+| NAME NUM NUM ref_id PATH                   {insert_map($1,  0, $2, $3, $4,  $5);};
+| NAME ref_id PATH                           {insert_map($1,  0,  0,  0, $2,  $3);};
+| NAME D ref_id PATH                         {insert_map($1, $2,  0,  0, $3,  $4);};
+| NAME D NUM NUM ref_id PATH                 {insert_map($1, $2, $3, $4, $5,  $6);};
 ;
 
 //shift list_namelist name > reduce mlink
 mlink:
-MOPEN LINK NAME LINK link_namelist PATH    {insert_mlink($4, 0);     };
+MOPEN LINK NAME LINK link_namelist PATH    {insert_mlink($3, 0);     };
 | MOPEN LINK link_namelist PATH            {insert_mlink(NULL, 0);   };    
-| MOPEN LINK ref_id PATH                   {insert_mlink(NULL, $4);  };
-| MOPEN LINK NAME LINK ref_id PATH         {insert_mlink($4,$6);     };
+| MOPEN LINK ref_id PATH                   {insert_mlink(NULL, $3);  };
+| MOPEN LINK NAME LINK ref_id PATH         {insert_mlink($3,$5);     };
 ;
 
 //shift list_namelist name > reduce vlink