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/branches/idlbasis-devel/src/ml-lex/lexgen.sml
ViewVC logotype

Diff of /sml/branches/idlbasis-devel/src/ml-lex/lexgen.sml

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

revision 1232, Tue Jun 4 21:11:15 2002 UTC revision 1233, Wed Jun 5 21:47:29 2002 UTC
# Line 1245  Line 1245 
1245           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\
1246                 \\t\t\t     val yypos = i0+ !yygone";                 \\t\t\t     val yypos = i0+ !yygone";
1247           if !CountNewLines           if !CountNewLines
1248              then (sayln "\t\t\tval _ = yylineno := CharVector.foldli";              then (sayln "\t\t\tval _ = yylineno := CharVectorSlice.foldl";
1249                    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)))")
1250              else ();              else ();
1251           if !HaveReject           if !HaveReject
1252               then (say "\t\t\tfun REJECT() = action(i,acts::l";               then (say "\t\t\tfun REJECT() = action(i,acts::l";

Legend:
Removed from v.1232  
changed lines
  Added in v.1233

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