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

Parent Directory | Revision Log | Patch

	revision 249, Sat Apr 17 18:57:03 1999 UTC	revision 418, 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

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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

---

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