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 845, Thu Jun 21 16:25:49 2001 UTC revision 846, Mon Jun 25 16:06:46 2001 UTC
# Line 79  Line 79 
79                  val cpp_tmpl = getOpt (OS.Process.getEnv "FFIGEN_CPP",                  val cpp_tmpl = getOpt (OS.Process.getEnv "FFIGEN_CPP",
80                                         "gcc -E -U__GNUC__ %s > %t")                                         "gcc -E -U__GNUC__ %s > %t")
81                  val cpp = substitute (cpp_tmpl, hfile, ifile)                  val cpp = substitute (cpp_tmpl, hfile, ifile)
82                  val sgf = getOpt (sgf, hfile ^ ".sig")                  val hfile_file = OS.Path.file hfile
83                  val stf = getOpt (stf, hfile ^ ".sml")                  val sgf = getOpt (sgf, hfile_file ^ ".sig")
84                  val cmf = getOpt (cmf, hfile ^ ".cm")                  val stf = getOpt (stf, hfile_file ^ ".sml")
85                  val (g_sgn, g_stn) = mangle hfile                  val cmf = getOpt (cmf, hfile_file ^ ".cm")
86                    val (g_sgn, g_stn) = mangle hfile_file
87                  val sgn = getOpt (sgn, g_sgn)                  val sgn = getOpt (sgn, g_sgn)
88                  val stn = getOpt (stn, g_stn)                  val stn = getOpt (stn, g_stn)
89                  val _ = if OS.Process.system cpp <> OS.Process.success then                  val _ = if OS.Process.system cpp <> OS.Process.success then

Legend:
Removed from v.845  
changed lines
  Added in v.846

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