Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/driver/options.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/driver/options.sml

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

revision 1692, Fri Jan 27 23:17:47 2012 UTC revision 1693, Mon Feb 20 12:55:09 2012 UTC
# Line 16  Line 16 
16              defs : string list,                 (* input-variable definitions *)              defs : string list,                 (* input-variable definitions *)
17              target : TargetUtil.target_desc,              target : TargetUtil.target_desc,
18              output : string option,             (* "-o" specified file *)              output : string option,             (* "-o" specified file *)
19                standalone : bool,                  (* true if target is standalone executable *)
20              file : string              file : string
21            }            }
22    
# Line 32  Line 33 
33      val debugFlg = ref false      val debugFlg = ref false
34      val doubleFlg = ref false      val doubleFlg = ref false
35      val outputOpt : string option ref = ref NONE      val outputOpt : string option ref = ref NONE
36        val standaloneFlg = ref false
37      val logFlg = ref false      val logFlg = ref false
38      val statsFlg = Stats.reportStats      val statsFlg = Stats.reportStats
39      val target = ref TargetUtil.TARGET_C      val target = ref TargetUtil.TARGET_C
# Line 80  Line 82 
82                desc = setFlag (helpFlg, true),                desc = setFlag (helpFlg, true),
83                help = "print command-line options"                help = "print command-line options"
84              },              },
85                { short = "", long = ["exec"],
86                  desc = setFlag (standaloneFlg, true),
87                  help = "generate a standalone executable"
88                },
89              { short = "o", long = ["output"],              { short = "o", long = ["output"],
90                desc = G.ReqArg(fn s => outputOpt := SOME s, "file"),                desc = G.ReqArg(fn s => outputOpt := SOME s, "file"),
91                help = "specify the executable file name"                help = "specify the executable file name"
# Line 128  Line 134 
134              defs = defs,              defs = defs,
135              target = targetDesc,              target = targetDesc,
136              output = !outputOpt,              output = !outputOpt,
137                standalone = !standaloneFlg,
138              file = (case files              file = (case files
139                 of [] => if !helpFlg then "" else raise Usage "missing file argument"                 of [] => if !helpFlg then "" else raise Usage "missing file argument"
140                  | f::_ => f                  | f::_ => f

Legend:
Removed from v.1692  
changed lines
  Added in v.1693

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