diff options
| author | filliatr | 2001-03-21 10:43:09 +0000 |
|---|---|---|
| committer | filliatr | 2001-03-21 10:43:09 +0000 |
| commit | e057a2f9c85e7afd8df561c0d89c23d28375e5c9 (patch) | |
| tree | 2a85a933ded26b7f0f1c353c3d50f7b027597146 | |
| parent | bfab127241c172a71e6f82158d7d3d72236cdc19 (diff) | |
option -verbose a coqc; option -i supprimée
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1474 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | scripts/coqc.ml | 9 | ||||
| -rw-r--r-- | toplevel/usage.ml | 6 |
2 files changed, 10 insertions, 5 deletions
diff --git a/scripts/coqc.ml b/scripts/coqc.ml index d807d5d392..0ef69ab086 100644 --- a/scripts/coqc.ml +++ b/scripts/coqc.ml @@ -35,9 +35,11 @@ let _ = if c <> "" then bindir := c with Not_found -> () -let specification = ref false +(* coqc options *) +let specification = ref false let keep = ref false +let verbose = ref false (* Verifies that a string do not contains others caracters than letters, digits, or `_` *) @@ -84,7 +86,8 @@ let compile command args file = let filevo = Filename.concat dirname (modulename ^ ".vo") in let oc = open_out tmpfile in Printf.fprintf oc "Module %s.\n" modulename; - Printf.fprintf oc "Load \"%s\".\n" file; + Printf.fprintf oc "Load %s\"%s\".\n" + (if !verbose then "Verbose " else "") file; Printf.fprintf oc "Write Module %s \"%s\".\n" modulename filevo; flush oc; close_out oc; @@ -122,6 +125,8 @@ let parse_args () = specification := true ; parse (cfiles,args) rem | "-t" :: rem -> keep := true ; parse (cfiles,args) rem + | ("-verbose" | "--verbose") :: rem -> + verbose := true ; parse (cfiles,args) rem | "-bindir" :: d :: rem -> bindir := d ; parse (cfiles,args) rem | "-bindir" :: [] -> diff --git a/toplevel/usage.ml b/toplevel/usage.ml index f86609cb93..68f4a0bc20 100644 --- a/toplevel/usage.ml +++ b/toplevel/usage.ml @@ -61,6 +61,6 @@ let print_usage_coqtop () = " -searchisos run Coq_SearchIsos\n" let print_usage_coqc () = - print_usage "Usage: coqc [-i] [-t] <options> file...\n - -i compile specification only (in file.vi) - -t keep temporary files\n\n" + print_usage "Usage: coqc [-t] [-verbose] <options> file...\n + -verbose compile verbosely + -t keep temporary files\n\n" |