Changeset 221 for cpp/frams

Timestamp:

04/11/14 23:37:17 (11 years ago)

Author:

Maciej Komosinski

Message:

"here document" in framscript, ​http://www.framsticks.com/common/script/framscript-lang.html#heredoc

File:

• cpp/frams/vm/framscript.l (modified) (5 diffs)

cpp/frams/vm/framscript.l

@@ -11 +11 @@
 #define YY_NEVER_INTERACTIVE 1
 
+static SString quoteDoubleQuotes(const SString &src);
+
 %}
 
@@ -17 +19 @@
 %x asmcode2
 %x comment
+%x heredoc
 
 %%
@@ -28 +31 @@
 "null"            {framscriptlval.setEmpty(); return CONSTANT;}
 \"([^\\\"]|\\.)*\" {framscriptlval.setString(SString(yytext+1,yyleng-2));return CONSTANT;}
+"<<<".*\n            {trctx.herelimit=SString(yytext+3,yyleng-4); trctx.tmp=""; BEGIN heredoc; }
 "@line "[0-9]+\n   {trctx.line=atol(yytext+6);}
 "@file "[^\n\t\r]+\n {trctx.srcname=SString(yytext+6,yyleng-7);}
@@ -67 +71 @@
 <comment>\*\/       BEGIN 0;
 <comment>.          ;
-
+<heredoc>[^\n]*\n   {
+                    trctx.line++;
+                    SString tmp(yytext,yyleng-1);
+                    if (tmp==trctx.herelimit)
+                        { framscriptlval.setString(quoteDoubleQuotes(trctx.tmp)); BEGIN 0; return CONSTANT;}
+                    else
+                        { trctx.tmp+=tmp; trctx.tmp+="\n";}
+                    }
 [ \t\r\f]           ;
 \n                  {trctx.line++;}
@@ -90 +101 @@
 
 %%
+
+//exclusively for heredoc, but it should not be needed, there is some unexpected difference between quoting \n and \" in framscript parsing (TODO)
+static SString quoteDoubleQuotes(const SString &src)
+{
+int len=src.len();
+SString ret((len*11)/10+10);
+const char*t=(const char*)src;
+while(len>0)
+        {
+        if (*t=='\"')
+                ret+="\\\"";
+        else
+                 ret+=*t;
+        t++; len--;
+        }
+return ret;
+}
+
 void framscript_init_lex()
 {