Merge of the V7_3_new_exportation branch.

[helm.git] / helm / gTopLevel / cic2Xml.mli

diff --git a/helm/gTopLevel/cic2Xml.mli b/helm/gTopLevel/cic2Xml.mli
index 62a423f58fbfac1c052929fc42d28fb1b6c418a8..0891d4996cc02e98c482db74168832b494ef2b6f 100644 (file)
--- a/helm/gTopLevel/cic2Xml.mli
+++ b/helm/gTopLevel/cic2Xml.mli
@@ -27,17 +27,18 @@ exception ImpossiblePossible
 exception NotImplemented
 
 val print_term :
-  UriManager.uri ->
   ids_to_inner_sorts: (string, string) Hashtbl.t ->
   Cic.annterm -> Xml.token Stream.t
 
 val print_object :
   UriManager.uri ->
   ids_to_inner_sorts: (string, string) Hashtbl.t ->
-  Cic.annobj -> Xml.token Stream.t
+  ask_dtd_to_the_getter:bool ->
+  Cic.annobj -> Xml.token Stream.t * Xml.token Stream.t option
 
 val print_inner_types :
   UriManager.uri ->
   ids_to_inner_sorts: (string, string) Hashtbl.t ->
   ids_to_inner_types: (string, Cic2acic.anntypes) Hashtbl.t ->
+  ask_dtd_to_the_getter:bool ->
   Xml.token Stream.t