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/ml-nlffigen/main.sml
ViewVC logotype

Diff of /sml/trunk/src/ml-nlffigen/main.sml

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

revision 1136, Tue Mar 12 19:44:02 2002 UTC revision 1137, Tue Mar 12 22:28:55 2002 UTC
# Line 50  Line 50 
50          val libh = ref "Library.libh"          val libh = ref "Library.libh"
51          val asu = ref false          val asu = ref false
52          val wid = ref NONE          val wid = ref NONE
53          val lsp = ref NONE          val smlopts = ref []
54            val noguid = ref true
55          val target = ref default_target          val target = ref default_target
56          val wrq = ref NONE          val wrq = ref NONE
57          val namedargs = ref false          val namedargs = ref false
# Line 99  Line 100 
100                        extramembers = !ems,                        extramembers = !ems,
101                        libraryhandle = !libh,                        libraryhandle = !libh,
102                        allSU = !asu,                        allSU = !asu,
103                        lambdasplit = !lsp,                        smloptions = rev (!smlopts),
104                          noguid = !noguid,
105                        weightreq = !wrq,                        weightreq = !wrq,
106                        wid = getOpt (!wid, 75),                        wid = getOpt (!wid, 75),
107                        namedargs = !namedargs,                        namedargs = !namedargs,
# Line 123  Line 125 
125              (asu := true; proc l)              (asu := true; proc l)
126            | proc (("-width" | "-w") :: i :: l) =            | proc (("-width" | "-w") :: i :: l) =
127              (wid := Int.fromString i; proc l)              (wid := Int.fromString i; proc l)
128            | proc (("-lambdasplit" | "-ls") :: s :: l) =            | proc (("-smloption" | "-opt") :: s :: l) =
129              (lsp := SOME s; proc l)              (smlopts := s :: !smlopts; proc l)
130              | proc ("-guids" :: l) =
131                (noguid := false; proc l)
132            | proc (("-target" | "-t") :: tg :: l) =            | proc (("-target" | "-t") :: tg :: l) =
133              (target := find_target tg; proc l)              (target := find_target tg; proc l)
134            | proc (("-light" | "-l") :: l) =            | proc (("-light" | "-l") :: l) =

Legend:
Removed from v.1136  
changed lines
  Added in v.1137

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