diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-06-22 09:27:29 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-22 09:27:29 -0400 |
commit | a78e978c05d7d28f31f4407b6918d89d44a5643c (patch) | |
tree | 29f8a7dd372a3fd5fa14b1960e5b3917c6aa1e50 /src/lacweb.lex | |
parent | 79223408d7b3ce19f0463142461d84a1ad09d785 (diff) |
Start of FFI
Diffstat (limited to 'src/lacweb.lex')
-rw-r--r-- | src/lacweb.lex | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/lacweb.lex b/src/lacweb.lex index 337da093..76cf26c0 100644 --- a/src/lacweb.lex +++ b/src/lacweb.lex @@ -67,8 +67,8 @@ val strStart = ref 0 %full %s COMMENT STRING; -id = [a-z_][A-Za-z0-9_]*; -cid = [A-Z][A-Za-z0-9_]*; +id = [a-z_][A-Za-z0-9_']*; +cid = [A-Z][A-Za-z0-9_']*; ws = [\ \t\012]; intconst = [0-9]+; realconst = [0-9]+\.[0-9]*; @@ -135,6 +135,7 @@ realconst = [0-9]+\.[0-9]*; <INITIAL> "end" => (Tokens.END (yypos, yypos + size yytext)); <INITIAL> "functor" => (Tokens.FUNCTOR (yypos, yypos + size yytext)); <INITIAL> "where" => (Tokens.WHERE (yypos, yypos + size yytext)); +<INITIAL> "extern" => (Tokens.EXTERN (yypos, yypos + size yytext)); <INITIAL> "Type" => (Tokens.TYPE (yypos, yypos + size yytext)); <INITIAL> "Name" => (Tokens.NAME (yypos, yypos + size yytext)); |