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 26, Tue Feb 9 00:43:01 2010 UTC revision 33, Thu Feb 11 00:37:51 2010 UTC
# Line 10  Line 10 
10    
11  %defs(  %defs(
12    
13      structure T = ManticoreTokens      structure T = DiderotTokens
14    
15    (* some type lex_result is necessitated by ml-ulex *)    (* some type lex_result is necessitated by ml-ulex *)
16      type lex_result = T.token      type lex_result = T.token
# Line 109  Line 109 
109  <INITIAL> "#"           => (T.HASH);  <INITIAL> "#"           => (T.HASH);
110  <INITIAL> "!"           => (T.BANG);  <INITIAL> "!"           => (T.BANG);
111    
112    <INITIAL> {id}          => (Keywords.idToken yytext);
113    
114    <INITIAL> {num}         => (T.POSINT(valOf (IntInf.fromString yytext)));
115    <INITIAL> "-"{num}      => (T.NEGINT(valOf (IntInf.fromString yytext)));
116    <INITIAL> "-"?{num}"."{num}([eE][+-]?{num})?
117                            => (mkFloat yysubstr);
118    <INITIAL> {ws}          => (skip ());
119    
120  (***** Comments *****)  (***** Comments *****)
121  <INITIAL> "//"  <INITIAL> "//"
122          => (YYBEGIN COM1; skip());          => (YYBEGIN COM1; skip());

Legend:
Removed from v.26  
changed lines
  Added in v.33

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