Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/parser/diderot.lex
ViewVC logotype

Diff of /trunk/src/parser/diderot.lex

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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());

Legend:
Removed from v.49  
changed lines
  Added in v.50

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0