add string literals

[cc1516.git] / lex.dcl

diff --git a/lex.dcl b/lex.dcl
index 46c1713..535487d 100644 (file)
--- a/lex.dcl
+++ b/lex.dcl
@@ -10,6 +10,7 @@ from AST import :: Pos
        = IdentToken String // Identifier
        | NumberToken Int   // Integer
        | CharToken Char    // Character literal
+       | StringToken [Char]// String literal
        //Keyword tokens
        | VarToken          // var keyword
        | ReturnToken       // return keyword