Getting closer.

Real turing-complete code is coming soon

1 files changed, 44 insertions, 12 deletions

diff --git a/src/parser.y b/src/parser.y
index b3da848..9fb2be9 100644
--- a/src/parser.y
+++ b/src/parser.y
@@ -1,6 +1,7 @@
 %{
 #include <stdint.h>
 #include <stdio.h>
+#include <bu/string.h>
 
 int yylex();
 void yyerror( const char *error ) { printf("%s\n", error ); }
@@ -9,7 +10,8 @@ void yyerror( const char *error ) { printf("%s\n", error ); }
 %union {
         int64_t iValue;
         double dValue;
-        char *sValue;
+        Bu::String *sValue;
+        bool bValue;
 }
 
 %token tokGame
@@ -23,15 +25,17 @@ void yyerror( const char *error ) { printf("%s\n", error ); }
 %token tokThen
 %token tokElse
 %token tokCommand
-%token tokSituationName
-%token tokIdent
+%token <sValue> tokSituationName
+%token <sValue> tokIdent
 %token tokGoto
-%token tokString
-%token tokInt
-%token tokFloat
-%token tokBool
+%token <sValue> tokString
+%token <iValue> tokInt
+%token <dValue> tokFloat
+%token <bValue> tokBool
 %token tokNull
 
+%destructor { delete $$; printf("string deleted.\n"); } tokString tokSituationName
+
 %token eos 0 "end of stream"
 
 %left '(' ')' '[' ']'
@@ -39,12 +43,28 @@ void yyerror( const char *error ) { printf("%s\n", error ); }
 %left '-' '+'
 
 %%
-input:
-         | input situation
-         | input function
+input: gameDecl bodyDecl
          ;
 
-situation: tokSituation tokSituationName '{' cmpltExprList '}'
+gameDecl: tokGame '{' gameExprList '}'
+                ;
+
+gameExprList:
+                        | gameExprList cmpltGameExpr
+                        ;
+
+cmpltGameExpr: gameExpr ';'
+                         ;
+
+gameExpr: tokIdent '=' expr
+                ;
+
+bodyDecl:
+                | bodyDecl situation
+                | bodyDecl function
+                ;
+
+situation: tokSituation tokSituationName { printf("Read situtaion: %s\n", (*$2).getStr() ); } '{' cmpltExprList '}'
                  ;
 
 function: tokFunction tokIdent '(' ')' '{' '}'
@@ -55,6 +75,7 @@ cmpltExprList:
                          ;
 
 cmpltExpr: expr ';'
+                 | tokGoto '(' expr ')' ';'
                  ;
 
 expr: tokInt
@@ -69,8 +90,19 @@ expr: tokInt
         | expr '*' expr
         | '(' expr ')'
         | expr '[' expr ']'
-        | tokGoto '(' expr ')'
+        | '[' ']'
+        | '[' listValues ']'
+        | '{' '}'
+        | '{' dictValues '}'
         ;
+
+listValues: expr
+                  | listValues ',' expr
+                  ;
+
+dictValues: expr ':' expr
+                  | dictValues ',' expr ':' expr
+                  ;
 %%
 
 int main()