Nettoyage

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5548 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 1 insertions, 25 deletions

diff --git a/contrib/xml/xmlcommand.mli b/contrib/xml/xmlcommand.mli
index 6e43be9c20..68d038f045 100644
--- a/contrib/xml/xmlcommand.mli
+++ b/contrib/xml/xmlcommand.mli
@@ -25,7 +25,7 @@
 (*             inductive definition                                       *)
 (*  and   dest is either None (for stdout) or (Some filename)             *)
 (* pretty prints via Xml.pp the object whose identifier is id on dest     *)
-(* Note: it is printed only (and directly) the most cooked available      *)
+(* Note: it is printed only (and directly) the most discharged available  *)
 (*       form of the definition (all the parameters are                   *)
 (*       lambda-abstracted, but the object can still refer to variables)  *)
 val print : Libnames.reference -> string option -> unit
@@ -34,27 +34,3 @@ val print : Libnames.reference -> string option -> unit
 (*  where dest is either None (for stdout) or (Some filename) *)
 (* pretty prints via Xml.pp the proof in progress on dest     *)
 val show : string option -> unit
-
-(*CSC: untested, no more working or semantics unclear
-(* print All () prints what is the structure of the current environment of *)
-(* Coq. No terms are printed. Useful only for debugging                    *)
-val printAll : unit -> unit
-
-(* printLibrary identifier directory_name *)
-(*  where identifier     is the qualified name of a library d                 *)
-(*  and   directory_name is the directory in which to root all the xml files *)
-(* prints all the xml files and directories corresponding to the subsections *)
-(* and terms of the library d                                                 *)
-(* Note: the terms are printed in their uncooked form plus the informations  *)
-(* on the parameters of their most cooked form                               *)
-val printLibrary : Libnames.qualid Util.located -> string option -> unit
-
-(* printSection identifier directory_name *)
-(*  where identifier     is the name of a closed section d                   *)
-(*  and   directory_name is the directory in which to root all the xml files *)
-(* prints all the xml files and directories corresponding to the subsections *)
-(* and terms of the closed section d                                         *)
-(* Note: the terms are printed in their uncooked form plus the informations  *)
-(* on the parameters of their most cooked form                               *)
-val printSection : Names.identifier -> string option -> unit
-*)