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/trunk/src/cm/parse/parse.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

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