Add a phase to parser and parseJson() function to Chaos.h to parse JSON strings

Author: mertyildiran

Chaos.c

@@ -452,3 +452,8 @@ enum Role getRole(char *name) {
 void raiseError(char *msg) {
     throw_error(E_RAISED_FROM_AN_EXTENSION, msg, NULL, 0, 0);
 }
+
+void parseJson(char *json) {
+    injectCode(json, INIT_JSON_PARSE);
+    phase = PROGRAM;
+}

Chaos.h

@@ -67,6 +67,7 @@ enum Type getDictType(char *name);
 enum ValueType getValueType(char *name);
 enum Role getRole(char *name);
 void raiseError(char *msg);
+void parseJson(char *json);
 
 struct Kaos {
     int (*defineFunction)(char *name, enum Type type, char *params_name[], unsigned params_type[], unsigned short params_length);
@@ -122,9 +123,10 @@ struct Kaos {
     void (*finishComplex)(enum Type type);
     enum Type (*getListType)(char *name);
     enum Type (*getDictType)(char *name);
-    enum ValueType (*getValueType) (char *name);
-    enum Role (*getRole) (char *name);
-    void (*raiseError) (char *msg);
+    enum ValueType (*getValueType)(char *name);
+    enum Role (*getRole)(char *name);
+    void (*raiseError)(char *msg);
+    void (*parseJson)(char *json);
 };
 
 struct Kaos kaos;

chaos.l

@@ -128,6 +128,9 @@ switch (phase)
         phase = PROGRAM;
         return START_PROGRAM;
         break;
+    case INIT_JSON_PARSE:
+        phase = JSON_PARSE;
+        return START_JSON_PARSE;
     default:
         break;
 }
@@ -196,7 +199,16 @@ switch (phase)
 <COMMENT>"*/"                   {BEGIN(INITIAL);}
 <COMMENT>.|"\n"                 {yylineno++;}
 
-(\"|\')([^\\(\"|\')]|\\.)*(\"|\') {
+(\")([^\\(\")]|\\.)*(\") {
+    recordToken(strdup(yytext), yyleng);
+    if (isStreamOpen()) {
+        yylval.sval = (char*)calloc(strlen(yytext)-1, sizeof(char));
+        strncpy(yylval.sval, &yytext[1], strlen(yytext)-2);
+        return T_STRING;
+    }
+}
+
+(\')([^\\(\')]|\\.)*(\') {
     recordToken(strdup(yytext), yyleng);
     if (isStreamOpen()) {
         yylval.sval = (char*)calloc(strlen(yytext)-1, sizeof(char));

chaos.y

@@ -56,7 +56,7 @@ char *program_code;
     unsigned long long lluval;
 }
 
-%token START_PROGRAM START_PREPARSE
+%token START_PROGRAM START_PREPARSE START_JSON_PARSE
 %token<bval> T_TRUE T_FALSE
 %token<ival> T_INT T_TIMES_DO_INT
 %token<fval> T_FLOAT
@@ -96,6 +96,7 @@ char *program_code;
 meta_start:
     | START_PROGRAM parser                                          { }
     | START_PREPARSE preparser                                      { }
+    | START_JSON_PARSE json_parser                                  { }
 ;
 
 preparser:
@@ -791,6 +792,10 @@ quit:                                                               { }
     }
 ;
 
+json_parser:
+    | dictionarystart                                               { Symbol* symbol = finishComplexMode(NULL, K_ANY); returnVariable(symbol); }
+;
+
 %%
 
 int main(int argc, char** argv) {

enums.h

@@ -1,7 +1,7 @@
 #ifndef ENUMS_H
 #define ENUMS_H
 
-enum Phase { INIT_PREPARSE, PREPARSE, INIT_PROGRAM, PROGRAM };
+enum Phase { INIT_PREPARSE, PREPARSE, INIT_PROGRAM, PROGRAM, INIT_JSON_PARSE, JSON_PARSE };
 
 enum Type { K_BOOL, K_NUMBER, K_STRING, K_ANY, K_LIST, K_DICT, K_VOID };
 enum ValueType { V_BOOL, V_INT, V_FLOAT, V_STRING, V_VOID };

modules/extension.c

@@ -57,6 +57,7 @@ void initKaosApi() {
     kaos.getValueType = getValueType;
     kaos.getRole = getRole;
     kaos.raiseError = raiseError;
+    kaos.parseJson = parseJson;
 }
 
 void callRegisterInDynamicLibrary(char* dynamic_library_path) {