Adding quote and unquote read syntax to list forms, resembling

Lisp. The difference is that splice is spelled ,* because @
already means something, and that there is only one quote operator.
None of this does anything; it is only syntax.

* lib.c (quote_s, qquote_s, unquote_s, splice_s): New variables.
(obj_init): New variables initialized.

* lib.h (quote_s, qquote_s, unquote_s, splice_s): Declared.

* parser.l: Added recognition rules.

* parser.y (SPLICE): New symbolic token.
(list): Added new syntax for quote and splicing.

1 files changed, 10 insertions, 0 deletions

diff --git a/parser.l b/parser.l
index 6514a39b..ccc8cf05 100644
--- a/parser.l
+++ b/parser.l
@@ -371,6 +371,16 @@ UONLY   {U2}{U}|{U3}{U}{U}|{U4}{U}{U}{U}
                           return yytext[0];
                         }
 
+<SPECIAL,NESTED>,[*]    {
+                          yylval.chr = '*';
+                          return SPLICE;
+                        }
+
+<SPECIAL,NESTED>[,']    {
+                          yylval.chr = yytext[0];
+                          return yytext[0];
+                        }
+
 <SPECIAL,NESTED>\}|\)   {
                           yy_pop_state();
                           if (yy_top_state() == INITIAL