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 1059, Mon Feb 11 17:05:33 2002 UTC revision 1060, Mon Feb 11 20:55:09 2002 UTC
# Line 49  Line 49 
49          val dir = ref "NLFFI-Generated"          val dir = ref "NLFFI-Generated"
50          val cmf = ref "nlffi-generated.cm"          val cmf = ref "nlffi-generated.cm"
51          val prefix = ref ""          val prefix = ref ""
52            val gstem = ref ""
53          val ems = ref []          val ems = ref []
54          val libh = ref "Library.libh"          val libh = ref "Library.libh"
55          val cmpl = ref true          val cmpl = ref true
# Line 91  Line 92 
92                        dirname = !dir,                        dirname = !dir,
93                        cmfile = !cmf,                        cmfile = !cmf,
94                        prefix = !prefix,                        prefix = !prefix,
95                          gensym_stem = !gstem,
96                        extramembers = !ems,                        extramembers = !ems,
97                        libraryhandle = !libh,                        libraryhandle = !libh,
98                        complete = !cmpl,                        complete = !cmpl,
# Line 124  Line 126 
126            | proc ("-libhandle" :: lh :: l) = (libh := lh; proc l)            | proc ("-libhandle" :: lh :: l) = (libh := lh; proc l)
127            | proc ("-include" :: es :: l) = (ems := es :: !ems; proc l)            | proc ("-include" :: es :: l) = (ems := es :: !ems; proc l)
128            | proc ("-prefix" :: p :: l) = (prefix := p; proc l)            | proc ("-prefix" :: p :: l) = (prefix := p; proc l)
129              | proc ("-gensym" :: g :: l) = (gstem := g; proc l)
130            | proc ("-dir" :: d :: l) = (dir := d; proc l)            | proc ("-dir" :: d :: l) = (dir := d; proc l)
131            | proc ("-cmfile" :: f :: l) = (cmf := f; proc l)            | proc ("-cmfile" :: f :: l) = (cmf := f; proc l)
132            | proc ("-cppopt" :: opt :: l) = (addcppopt opt; proc l)            | proc ("-cppopt" :: opt :: l) = (addcppopt opt; proc l)

Legend:
Removed from v.1059  
changed lines
  Added in v.1060

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