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

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

revision 1349, Wed Sep 3 22:22:18 2003 UTC revision 1350, Fri Sep 5 21:34:27 2003 UTC
# Line 1250  Line 1250
1250           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\
1251                 \\t\t\t     val yypos = i0+ !yygone";                 \\t\t\t     val yypos = i0+ !yygone";
1252           if !CountNewLines           if !CountNewLines
1253              then (sayln "\t\t\tval _ = yylineno := CharVector.foldli";              then (sayln "\t\t\tval _ = yylineno := CharVectorSlice.foldli";
1254                    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) (CharVectorSlice.slice (!yyb,i0,SOME(i-i0)))")
1255              else ();              else ();
1256           if !HaveReject           if !HaveReject
1257               then (say "\t\t\tfun REJECT() = action(i,acts::l";               then (say "\t\t\tfun REJECT() = action(i,acts::l";

Legend:
 Removed from v.1349 changed lines Added in v.1350