Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/parse/cm.lex
ViewVC logotype

Diff of /sml/trunk/src/cm/parse/cm.lex

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 312, Wed Jun 2 23:20:17 1999 UTC revision 313, Thu Jun 3 09:26:34 1999 UTC
# Line 23  Line 23 
23                 getS: pos * (string * pos * pos -> lexresult) -> lexresult,                 getS: pos * (string * pos * pos -> lexresult) -> lexresult,
24                 handleEof: unit -> pos,                 handleEof: unit -> pos,
25                 newline: pos -> unit,                 newline: pos -> unit,
26                 error: pos * pos -> string -> unit                 error: pos * pos -> string -> unit,
27                   sync: pos * string -> unit
28                }                }
29    
30  type arg = lexarg  type arg = lexarg
# Line 108  Line 109 
109          newS, addS, addSC, addSN, getS,          newS, addS, addSC, addSN, getS,
110          handleEof,          handleEof,
111          newline,          newline,
112          error });          error,
113            sync });
114    
115  idchars=[A-Za-z'_0-9];  idchars=[A-Za-z'_0-9];
116  id=[A-Za-z]{idchars}*;  id=[A-Za-z]{idchars}*;
# Line 254  Line 256 
256  <INITIAL>.              => (error (yypos, yypos+1)  <INITIAL>.              => (error (yypos, yypos+1)
257                              ("illegal character: " ^ yytext);                              ("illegal character: " ^ yytext);
258                              continue ());                              continue ());
259    
260    {eol}{sharp}{ws}*"line"{ws}+{neol}* => (newline yypos;
261                                            sync (yypos, yytext);
262                                            continue ());

Legend:
Removed from v.312  
changed lines
  Added in v.313

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