From 8d9e088a36b6122a7ab27dce58aa291b5a055afa Mon Sep 17 00:00:00 2001 From: mohring Date: Fri, 3 Nov 2000 16:17:05 +0000 Subject: Deplacement d'options avec ou sans argts git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@799 85f007b7-540e-0410-9357-904b9bb8a0f7 --- scripts/coqc.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'scripts') diff --git a/scripts/coqc.ml b/scripts/coqc.ml index baf86982b..85cea9606 100644 --- a/scripts/coqc.ml +++ b/scripts/coqc.ml @@ -125,15 +125,15 @@ let parse_args () = | ("-?"|"-h"|"-H"|"-help"|"--help") :: _ -> usage () | ("-image"|"-libdir"|"-I"|"-R"|"-include"|"-outputstate"|"-inputstate" |"-is"|"-load-vernac-source"|"-load-vernac-object"|"-load-ml-source" - |"-require"|"-unsafe"|"-quiet"|"-silent"|"-v"|"--version" - |"-load-ml-object"|"-user"|"-init-file" as o) :: rem -> + |"-require"|"-load-ml-object"|"-user"|"-init-file" as o) :: rem -> begin match rem with | s :: rem' -> parse (cfiles,s::o::args) rem' | [] -> usage () end | ("-notactics"|"-debug"|"-db"|"-debugger"|"-nolib"|"-batch"|"-nois" - |"-q"|"-full"|"-profile"|"-just-parsing"|"-echo" as o) :: rem -> + |"-q"|"-full"|"-profile"|"-just-parsing"|"-echo" |"-unsafe"|"-quiet" + |"-silent"|"-v"|"--version" as o) :: rem -> parse (cfiles,o::args) rem | f :: rem -> if Sys.file_exists f then -- cgit v1.2.3