Getting closer.

Real turing-complete code is coming soon

2 files changed, 77 insertions, 16 deletions

diff --git a/src/parser.l b/src/parser.l
index d5ff735..dff6507 100644
--- a/src/parser.l
+++ b/src/parser.l
@@ -1,5 +1,6 @@
 %{
 #include <stdint.h>
+#include <bu/string.h>
 #include "parser.tab.h"
 %}
 
@@ -7,7 +8,7 @@
 
 %x sitname
 %x comment
-%x tdqstr tsqstr
+%x dqstr tdqstr tsqstr
 %%
 
 [-{}<>=+/*,();]                                 { return yytext[0]; }
@@ -25,18 +26,46 @@ else							{ return tokElse; }
 command                                                 { return tokCommand; }
 goto                                                    { return tokGoto; }
 
+true                                                    { yylval.bValue = true; return tokBool; }
+false                                                   { yylval.bValue = false; return tokBool; }
+null                                                    { return tokNull; }
+
 "<<"                                                    { BEGIN( sitname ); }
-<sitname>[- a-zA-Z0-9]+                 { printf("situation: %s\n", yytext ); return tokSituationName; }
+<sitname>[- a-zA-Z0-9]+                 { yylval.sValue = new Bu::String( yytext ); return tokSituationName; }
 <sitname>">>"                                   { BEGIN( INITIAL ); }
 <sitname>.                                              REJECT;
 
 "//"[^\n]*                                              {}
 
-"/\*"                                                           { BEGIN( comment ); }
+"/\*"                                                   { BEGIN( comment ); }
 <comment>"\*/"                                  { BEGIN( INITIAL ); }
 <comment>.                                              {}
 
-[a-zA-Z_][a-zA-Z0-9_]*                  { return tokIdent; }
+[a-zA-Z_][a-zA-Z0-9_]*                  { yylval.sValue = new Bu::String( yytext ); return tokIdent; }
+
+[1-9][0-9]*                                             {
+        yylval.iValue = strtoll( yytext, NULL, 10 );
+        return tokInt;
+}
+
+([1-9][0-9]*)?\.[0-9]*                  {
+        yylval.dValue = strtod( yytext, NULL );
+        return tokFloat;
+}
+
+\"\"\"                                                  { BEGIN( tdqstr ); yylval.sValue = new Bu::String(); }
+<tdqstr>[^"]+                                   { (*yylval.sValue) += yytext; }
+<tdqstr>\"                                              { (*yylval.sValue) += yytext; }
+<tdqstr>\"\"\"                                  { BEGIN( INITIAL ); return tokString; }
+
+\'\'\'                                                  { BEGIN( tsqstr ); yylval.sValue = new Bu::String(); }
+<tsqstr>[^']+                                   { (*yylval.sValue) += yytext; }
+<tsqstr>\'                                              { (*yylval.sValue) += yytext; }
+<tsqstr>\'\'\'                                  { BEGIN( INITIAL ); return tokString; }
+
+\"                                                              { BEGIN( dqstr ); yylval.sValue = new Bu::String(); }
+<dqstr>[^"]+                                    { (*yylval.sValue) += yytext; }
+<dqstr>\"                                               { BEGIN( INITIAL ); return tokString; }
 
 [ \t\n\r]+                                              {}
 
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()