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 1066, Thu Feb 14 16:50:02 2002 UTC revision 1067, Fri Feb 15 17:08:17 2002 UTC
# Line 47  Line 47 
47          end          end
48    
49          val dir = ref "NLFFI-Generated"          val dir = ref "NLFFI-Generated"
50            val iptr_rep = ref NONE
51          val cmf = ref "nlffi-generated.cm"          val cmf = ref "nlffi-generated.cm"
52          val prefix = ref ""          val prefix = ref ""
53          val gstem = ref ""          val gstem = ref ""
# Line 96  Line 97 
97                        match = match,                        match = match,
98                        mkidlsource = mkidlsource,                        mkidlsource = mkidlsource,
99                        dirname = !dir,                        dirname = !dir,
100                          iptr_repository = !iptr_rep,
101                        cmfile = !cmf,                        cmfile = !cmf,
102                        prefix = !prefix,                        prefix = !prefix,
103                        gensym_stem = !gstem,                        gensym_stem = !gstem,
# Line 134  Line 136 
136            | proc ("-prefix" :: p :: l) = (prefix := p; proc l)            | proc ("-prefix" :: p :: l) = (prefix := p; proc l)
137            | proc ("-gensym" :: g :: l) = (gstem := g; proc l)            | proc ("-gensym" :: g :: l) = (gstem := g; proc l)
138            | proc ("-dir" :: d :: l) = (dir := d; proc l)            | proc ("-dir" :: d :: l) = (dir := d; proc l)
139              | proc ("-iptr" :: d :: a :: l) = (iptr_rep := SOME (d, a); proc l)
140            | proc ("-cmfile" :: f :: l) = (cmf := f; proc l)            | proc ("-cmfile" :: f :: l) = (cmf := f; proc l)
141            | proc ("-cppopt" :: opt :: l) = (addcppopt opt; proc l)            | proc ("-cppopt" :: opt :: l) = (addcppopt opt; proc l)
142            | proc ("-version" :: _) =            | proc ("-version" :: _) =

Legend:
Removed from v.1066  
changed lines
  Added in v.1067

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