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

Parent Directory | Revision Log | Patch

	revision 354, Fri Jun 25 08:36:12 1999 UTC	revision 355, Sat Jun 26 13:17:30 1999 UTC
#	Line 7	Line 7
7	*)	*)
8	signature PARSE = sig	signature PARSE = sig
9	val parse :	val parse :
10		GroupReg.groupreg option ->
11	GeneralParams.param -> bool option ->	GeneralParams.param -> bool option ->
12	SrcPath.t -> (CMSemant.group * GeneralParams.info) option	SrcPath.t -> (CMSemant.group * GeneralParams.info) option
13	end	end
#	Line 27	Line 28
28	structure Lex = CMLex	structure Lex = CMLex
29	structure LrParser = LrParser)	structure LrParser = LrParser)
30
31	fun parse param stabflag group = let	fun parse gropt param stabflag group = let
32
33	val stabthis = isSome stabflag	val stabthis = isSome stabflag
34	val staball = stabflag = SOME true	val staball = stabflag = SOME true
35
36	val groupreg = GroupReg.new ()	val groupreg =
37		case gropt of
38		SOME r => r
39		| NONE => GroupReg.new ()
40	val errcons = EM.defaultConsumer ()	val errcons = EM.defaultConsumer ()
41	val ginfo = { param = param, groupreg = groupreg, errcons = errcons }	val ginfo = { param = param, groupreg = groupreg, errcons = errcons }
42

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.354   changed lines   Added in v.355

---

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