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/ml-lex/lexgen.sml
 [smlnj] / sml / trunk / src / ml-lex / lexgen.sml

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

sml/branches/SMLNJ/src/ml-lex/lexgen.sml revision 249, Sat Apr 17 18:57:03 1999 UTC sml/trunk/src/ml-lex/lexgen.sml revision 419, Fri Sep 3 23:51:27 1999 UTC
# Line 1210  Line 1210
1210           sayln "\t\t\t(let fun yymktext() = substring(!yyb,i0,i-i0)\n\           sayln "\t\t\t(let fun yymktext() = substring(!yyb,i0,i-i0)\n\
1211                 \\t\t\t     val yypos = i0+ !yygone";                 \\t\t\t     val yypos = i0+ !yygone";
1212           if !CountNewLines           if !CountNewLines
1213              then (sayln "\t\t\tval _ = yylineno := CharVector.foldl";              then (sayln "\t\t\tval _ = yylineno := CharVector.foldli";
1214                    sayln "\t\t\t\t(fn (_,#\"\\n\", n) => n+1 | (_,_, n) => n) (!yylineno) (!yyb,i0,SOME(i-i0))")                    sayln "\t\t\t\t(fn (_,#\"\\n\", n) => n+1 | (_,_, n) => n) (!yylineno) (!yyb,i0,SOME(i-i0))")
1215              else ();              else ();
1216           if !HaveReject           if !HaveReject

Legend:
 Removed from v.249 changed lines Added in v.419