Diff of /sml/trunk/src/cm/parse/cm.lex

Parent Directory | Revision Log | Patch

	revision 312, Wed Jun 2 23:20:17 1999 UTC	revision 313, Thu Jun 3 09:26:34 1999 UTC
#	Line 23	Line 23
23	getS: pos * (string * pos * pos -> lexresult) -> lexresult,	getS: pos * (string * pos * pos -> lexresult) -> lexresult,
24	handleEof: unit -> pos,	handleEof: unit -> pos,
25	newline: pos -> unit,	newline: pos -> unit,
26	error: pos * pos -> string -> unit	error: pos * pos -> string -> unit,
27		sync: pos * string -> unit
28	}	}
29
30	type arg = lexarg	type arg = lexarg
#	Line 108	Line 109
109	newS, addS, addSC, addSN, getS,	newS, addS, addSC, addSN, getS,
110	handleEof,	handleEof,
111	newline,	newline,
112	error });	error,
113		sync });
114
115	idchars=[A-Za-z'_0-9];	idchars=[A-Za-z'_0-9];
116	id=[A-Za-z]{idchars}*;	id=[A-Za-z]{idchars}*;
#	Line 254	Line 256
256	<INITIAL>.              => (error (yypos, yypos+1)	<INITIAL>.              => (error (yypos, yypos+1)
257	("illegal character: " ^ yytext);	("illegal character: " ^ yytext);
258	continue ());	continue ());
259
260		{eol}{sharp}{ws}*"line"{ws}+{neol}* => (newline yypos;
261		sync (yypos, yytext);
262		continue ());

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.312   changed lines   Added in v.313

---

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