lexer: accept single quoted string literals

diff --git a/lexer.l b/lexer.l
index a480ca7d1bb01ff035c00bf9d9984bd2fe0eb4e1..18937e888355774c04e7d7883d8a017b19ad08a5 100644 (file)
--- a/lexer.l
+++ b/lexer.l
@@ -101,17 +101,23 @@ WS                        [ \t\n]*
 
 %%
 
-\" {
+["'] {
        s->str_ptr = s->str_buf;
+       s->str_quote = *yytext;
        memset(s->str_buf, 0, sizeof(s->str_buf));
        BEGIN(STRING);
 }
 
 <STRING>{
-       \" {
-               BEGIN(INITIAL);
-               yylval.op = jp_alloc_op(T_STRING, 0, s->str_buf);
-               return T_STRING;
+       ["'] {
+               if (*yytext == s->str_quote)
+               {
+                       BEGIN(INITIAL);
+                       yylval.op = jp_alloc_op(T_STRING, 0, s->str_buf);
+                       return T_STRING;
+               }
+
+               str_put(s, *yytext);
        }
 
        \\([0-3][0-7]{1,2}|[0-7]{0,2})  { str_decode(s, yytext + 1, 8); }
@@ -126,7 +132,7 @@ WS                  [ \t\n]*
        \\t                                                             { str_put(s, '\t'); }
        \\v                                                             { str_put(s, '\v'); }
        \\.                                                             { str_put(s, *yytext); }
-       [^\\"]+                                                 { while (*yytext) str_put(s, *yytext++); }
+       [^\\"']+                                                { while (*yytext) str_put(s, *yytext++); }
 }
 
 {BOOL} {

diff --git a/parser.y b/parser.y
index f5e8966c4b330f0d74c14bd07f0529c8b0ecdc2a..75c33407586d39864d597a75d368a0bd8993cebc 100644 (file)
--- a/parser.y
+++ b/parser.y
@@ -59,6 +59,7 @@ struct jp_state {
        struct jp_opcode *pool;
        struct jp_opcode *path;
        const char *error;
+       char str_quote;
        char str_buf[128];
        char *str_ptr;
 };