diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-16 20:37:59 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-16 22:17:45 +0200 |
commit | 6dd9e003c289a79b0656e7c6f2cc59935997370c (patch) | |
tree | 29bf3bccabd04d163eec29b14eee92caaea4712d /toplevel | |
parent | 2a3a190384cedc4dfdea5bdf1079d903db624cb8 (diff) |
Removing documentation related to the deprecated State machinery.
Diffstat (limited to 'toplevel')
-rw-r--r-- | toplevel/coqtop.ml | 8 | ||||
-rw-r--r-- | toplevel/usage.ml | 3 |
2 files changed, 6 insertions, 5 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 4ad4b6a6c..43ffa762e 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -80,11 +80,15 @@ let unset_toplevel_name () = toplevel_name := None let remove_top_ml () = Mltop.remove () let inputstate = ref "" -let set_inputstate s = inputstate:=s +let set_inputstate s = + let () = msg_warning (str "The inputstate option is deprecated and discouraged.") in + inputstate:=s let inputstate () = if not (String.is_empty !inputstate) then intern_state !inputstate let outputstate = ref "" -let set_outputstate s = outputstate:=s +let set_outputstate s = + let () = msg_warning (str "The outputstate option is deprecated and discouraged.") in + outputstate:=s let outputstate () = if not (String.is_empty !outputstate) then extern_state !outputstate let set_include d p recursive implicit = diff --git a/toplevel/usage.ml b/toplevel/usage.ml index f31b4b933..eac46f566 100644 --- a/toplevel/usage.ml +++ b/toplevel/usage.ml @@ -30,9 +30,6 @@ let print_usage_channel co command = \n\ \n -noinit start without loading the Init library\ \n -nois (idem)\ -\n -inputstate f read state from file f.coq\ -\n -is f (idem)\ -\n -outputstate f write state in file f.coq\ \n -compat X.Y provides compatibility support for Coq version X.Y\ \n -verbose-compat-notations be warned when using compatibility notations\ \n -no-compat-notations get an error when using compatibility notations\ |