diff options
author | 2009-01-06 20:35:24 +0000 | |
---|---|---|
committer | 2009-01-06 20:35:24 +0000 | |
commit | d795621ceb458eca1f878ea0bbd482311a782807 (patch) | |
tree | 1e3adb145142a157b1ef4690882f22e22a167e11 /toplevel/usage.ml | |
parent | 2c77848eec68bfaf0b29290f4c5e9fd153342d56 (diff) |
Conversion du fichier 'revision' en un fichier .ml + correction d'un bug dans le configure introduit par les révisions 11754 et 11755
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11756 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/usage.ml')
-rw-r--r-- | toplevel/usage.ml | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/toplevel/usage.ml b/toplevel/usage.ml index b411a4f96..fb26f5039 100644 --- a/toplevel/usage.ml +++ b/toplevel/usage.ml @@ -8,23 +8,13 @@ (* $Id$ *) -let get_version_date () = - try - let ch = open_in (Coq_config.coqsrc^"/revision") in - let ver = input_line ch in - let rev = input_line ch in - (ver,rev) - with _ -> (Coq_config.version,Coq_config.date) - let print_header () = - let (ver,rev) = (get_version_date ()) in - Printf.printf "Welcome to Coq %s (%s)\n" ver rev; + Printf.printf "Welcome to Coq %s (%s)\n" Revision.version Revision.revision; flush stdout let version () = - let (ver,rev) = (get_version_date ()) in - Printf.printf "The Coq Proof Assistant, version %s (%s)\n" ver rev; - Printf.printf "compiled on %s\n" Coq_config.compile_date; + Printf.printf "The Coq Proof Assistant, version %s (%s)\n" Revision.version Revision.revision; + Printf.printf "compiled on %s\n" Revision.date; exit 0 (* print the usage of coqtop (or coqc) on channel co *) |