diff options
| author | barras | 2003-03-12 17:49:21 +0000 |
|---|---|---|
| committer | barras | 2003-03-12 17:49:21 +0000 |
| commit | cb1ae314411d78952062e5092804b85d981ad6e1 (patch) | |
| tree | 52b9a4058c89b5849d875a4c1129951f35e9c1b1 /lib | |
| parent | 7cb6a61133b6e3c2cd5601282a1f472ff0104c1f (diff) | |
*** empty log message ***
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3761 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/options.ml | 3 | ||||
| -rw-r--r-- | lib/options.mli | 1 | ||||
| -rw-r--r-- | lib/pp_control.ml | 4 |
3 files changed, 5 insertions, 3 deletions
diff --git a/lib/options.ml b/lib/options.ml index f2cc7a09de..90517561f1 100644 --- a/lib/options.ml +++ b/lib/options.ml @@ -25,10 +25,11 @@ let term_quality = ref false let xml_export = ref false let v7 = ref true +let v7_only = ref false (* Translate *) let translate = ref false -let make_translate f = translate := f; () +let make_translate f = translate := f; v7 := f; () let do_translate () = !translate let translate_file = ref false diff --git a/lib/options.mli b/lib/options.mli index af08f689ee..b6b8951782 100644 --- a/lib/options.mli +++ b/lib/options.mli @@ -24,6 +24,7 @@ val term_quality : bool ref val xml_export : bool ref val v7 : bool ref +val v7_only : bool ref val translate : bool ref val make_translate : bool -> unit diff --git a/lib/pp_control.ml b/lib/pp_control.ml index 3b1266c2c7..44f3514588 100644 --- a/lib/pp_control.ml +++ b/lib/pp_control.ml @@ -22,7 +22,7 @@ let dflt_gp = { margin = 72; max_indent = 62; max_depth = 50; - ellipsis = "." } + ellipsis = ".." } (* A deeper pretty-printer to print proof scripts *) @@ -30,7 +30,7 @@ let deep_gp = { margin = 72; max_indent = 62; max_depth = 10000; - ellipsis = "." } + ellipsis = "..." } (* set_gp : Format.formatter -> pp_global_params -> unit * set the parameters of a formatter *) |