diff options
author | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-03-21 10:43:09 +0000 |
---|---|---|
committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-03-21 10:43:09 +0000 |
commit | e057a2f9c85e7afd8df561c0d89c23d28375e5c9 (patch) | |
tree | 2a85a933ded26b7f0f1c353c3d50f7b027597146 /scripts | |
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
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/coqc.ml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/scripts/coqc.ml b/scripts/coqc.ml index d807d5d39..0ef69ab08 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" :: [] -> |