From 9c85f9e4ef4c5875ba8f003f4680663573bfac27 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 24 Mar 2004 17:28:56 +0000
Subject: Nettoyage

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5548 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/xml/xmlcommand.mli | 26 +-------------------------
 1 file changed, 1 insertion(+), 25 deletions(-)

(limited to 'contrib/xml/xmlcommand.mli')

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
-*)
-- 
cgit v1.2.3