X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter_env.mli;h=7d2d1632e16a217ac0a93afe6cff83c3f497932e;hb=de9a83f286eee12117fb478ea2db18f7faebac9a;hp=cb1731792e1140fa5fa733367bc67b37802576d5;hpb=384c369d4cbf5dd6cf1013902d3a218260400e73;p=helm.git

diff --git a/helm/ocaml/getter/http_getter_env.mli b/helm/ocaml/getter/http_getter_env.mli
index cb1731792..7d2d1632e 100644
--- a/helm/ocaml/getter/http_getter_env.mli
+++ b/helm/ocaml/getter/http_getter_env.mli
@@ -35,9 +35,12 @@ val version       : string        (* getter version *)
   (* {2 environment gathered data} *)
 
 val cic_dbm       : string lazy_t         (* XML map DBM file for CIC *)
+val cic_dbm_real  : string lazy_t         (* XML map DBM file for CIC ^ ".pag"*)
 val nuprl_dbm     : string lazy_t         (* XML map DBM file for NuPRL *)
 val rdf_dbm       : string lazy_t         (* RDF map DBM file *)
 val xsl_dbm       : string lazy_t         (* XSL map DBM file *)
+val dump_file     : string lazy_t         (* CIC DBM tree dump file *)
+val prefetch      : bool lazy_t           (* prefetch URIs tree? *)
 val xml_index     : string lazy_t         (* XMLs' index *)
 val rdf_index     : string lazy_t         (* RDFs' index *)
 val xsl_index     : string lazy_t         (* XSLTs' index *)
@@ -45,15 +48,15 @@ val cic_dir       : string lazy_t         (* XMLs' directory  for CIC*)
 val nuprl_dir     : string lazy_t         (* XMLs' directory for NuPRL*)
 val rdf_dir       : string lazy_t         (* RDFs' directory *)
 val dtd_dir       : string lazy_t         (* DTDs' root directory *)
-val servers_file  : string lazy_t         (* servers.txt file *)
+val servers_file  : string option lazy_t  (* servers.txt file *)
 val port          : int lazy_t            (* port on which getter listens *)
-val dtd_base_url  : string lazy_t         (* base URL for DTD downloading *)
+val dtd_base_urls : string list lazy_t    (* base URLs for document patching *)
 
   (* {2 derived data} *)
 
 val host          : string lazy_t         (* host on which getter listens *)
 val my_own_url    : string lazy_t         (* URL at which contact getter *)
-val servers       : (int * string) list lazy_t
+val servers       : unit -> (int * string) list
                                     (* (position * server) list *)
 val cache_mode    : encoding lazy_t       (* cached files encoding *)