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 /ml-lex/trunk/lexgen.sml
ViewVC logotype

Diff of /ml-lex/trunk/lexgen.sml

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

revision 1861, Mon Nov 7 18:17:09 2005 UTC revision 1862, Mon Nov 7 23:03:18 2005 UTC
# Line 1076  Line 1076 
1076      let fun startline f = if f then say "  " else say "| "      let fun startline f = if f then say "  " else say "| "
1077           fun make(nil,f) = (startline f; say "_ => raise Internal.LexerError\n")           fun make(nil,f) = (startline f; say "_ => raise Internal.LexerError\n")
1078            | make((x,a)::y,f) = (startline f; say x; say " => ";            | make((x,a)::y,f) = (startline f; say x; say " => ";
1079                                  if Substring.size(#2 (Substring.position "yytext" (Substring.all a))) = 0                                  if Substring.size(#2 (Substring.position "yytext" (Substring.full a))) = 0
1080   then   then
1081                                       (say "("; say a; say ")")                                       (say "("; say a; say ")")
1082                                  else (say "let val yytext=yymktext() in ";                                  else (say "let val yytext=yymktext() in ";

Legend:
Removed from v.1861  
changed lines
  Added in v.1862

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