(*
- * Copyright (C) 2003, HELM Team.
+ * Copyright (C) 2003:
+ * Stefano Zacchiroli <zack@cs.unibo.it>
+ * for the HELM Team http://helm.cs.unibo.it/
*
* This file is part of HELM, an Hypertextual, Electronic
* Library of Mathematics, developed at the Computer Science
* MA 02111-1307, USA.
*
* For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
+ * http://helm.cs.unibo.it/
*)
- open Http_getter_types;;
+open Http_getter_types;;
+
+ (* general information *)
+
+val version : string (* getter version *)
(* environment gathered data *)
- val xml_dbm : string (* XML map DBM file *)
- val rdf_dbm : string (* RDF map DBM file *)
- val xsl_dbm : string (* XSL map DBM file *)
- val xml_index : string (* XMLs' index *)
- val rdf_index : string (* RDFs' index *)
- val xsl_index : string (* XSLTs' index *)
- val xml_dir : string (* XMLs' directory *)
- val rdf_dir : string (* RDFs' directory *)
- val xsl_dir : string (* XSLs' directory *)
- val dtd_dir : string (* DTDs' root directory *)
- val servers_file : string (* servers.txt file *)
- val port : int (* port on which getter listens *)
- val dtd_base_url : string (* base URL for DTD downloading *)
+val xml_dbm : string (* XML map DBM file *)
+val rdf_dbm : string (* RDF map DBM file *)
+val xsl_dbm : string (* XSL map DBM file *)
+val xml_index : string (* XMLs' index *)
+val rdf_index : string (* RDFs' index *)
+val xsl_index : string (* XSLTs' index *)
+val xml_dir : string (* XMLs' directory *)
+val rdf_dir : string (* RDFs' directory *)
+val dtd_dir : string (* DTDs' root directory *)
+val servers_file : string (* servers.txt file *)
+val port : int (* port on which getter listens *)
+val dtd_base_url : string (* base URL for DTD downloading *)
(* derived data *)
- val host : string (* host on which getter listens *)
- val my_own_url : string (* URL at which contact getter *)
- val servers : string list (* servers list (i.e. servers_file lines) *)
- val cache_mode : http_getter_encoding (* cached files encoding *)
- val conf_file : string (* configuration file's full path *)
- val conf_dir : string (* directory where conf_file resides *)
+val host : string (* host on which getter listens *)
+val my_own_url : string (* URL at which contact getter *)
+val servers : string list ref (* servers list *)
+val cache_mode : http_getter_encoding (* cached files encoding *)
+val conf_file : string (* configuration file's full path *)
+val conf_dir : string (* directory where conf_file resides *)
(* misc *)
+val reload: unit -> unit (* reload servers list *)
val dump_env : unit -> unit (* dump a textual representation of the
current http_getter settings *)