diff options
| -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" |