SCM Repository
[diderot] / trunk / src / parser / diderot.lex |
Diff of /trunk/src/parser/diderot.lex
Parent Directory
|
Revision Log
|
Patch
revision 49, Tue Apr 13 23:16:22 2010 UTC | revision 50, Wed Apr 14 21:49:50 2010 UTC | |
---|---|---|
# | Line 123 | Line 123 |
123 | => (mkFloat yysubstr); | => (mkFloat yysubstr); |
124 | <INITIAL> {ws} => (skip ()); | <INITIAL> {ws} => (skip ()); |
125 | ||
126 | <INITIAL> "\"" => (YYBEGIN STRING; continue()); | |
127 | ||
128 | <INITIAL> . => (lexErr(yypos, ["bad character `", String.toString yytext]); | <INITIAL> . => (lexErr(yypos, ["bad character `", String.toString yytext]); |
129 | continue()); | continue()); |
130 | ||
131 | (***** Strings *****) | (***** Strings *****) |
<INITIAL> "\"" => (YYBEGIN STRING; continue()); | ||
132 | <STRING>{esc} => (addStr(valOf(String.fromString yytext)); continue()); | <STRING>{esc} => (addStr(valOf(String.fromString yytext)); continue()); |
133 | <STRING>{sgood}+ => (addStr yytext; continue()); | <STRING>{sgood}+ => (addStr yytext; continue()); |
134 | <STRING> "\"" => (YYBEGIN INITIAL; mkString()); | <STRING> "\"" => (YYBEGIN INITIAL; mkString()); |
|
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |