From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Wed, 11 Feb 2004 12:01:08 +0000 (+0000)
Subject: ported to helm registry
X-Git-Tag: V_0_3_0~22
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=ebfab836e9e047756b7a53c3f46f69ec4532685a;p=helm.git

ported to helm registry
---

diff --git a/helm/ocaml/cic_transformations/Makefile b/helm/ocaml/cic_transformations/Makefile
index 5c60d22a8..05730df75 100644
--- a/helm/ocaml/cic_transformations/Makefile
+++ b/helm/ocaml/cic_transformations/Makefile
@@ -1,6 +1,7 @@
 PACKAGE = cic_transformations
 REQUIRES = \
-	helm-xml helm-cic_proof_checking helm-cic_omdoc gdome2-xslt
+	gdome2-xslt \
+	helm-xml helm-cic_proof_checking helm-cic_omdoc helm-registry
 PREDICATES =
 
 # modules which have both a .ml and a .mli
diff --git a/helm/ocaml/cic_transformations/applyStylesheets.ml b/helm/ocaml/cic_transformations/applyStylesheets.ml
index 860a73297..fc0a2989c 100644
--- a/helm/ocaml/cic_transformations/applyStylesheets.ml
+++ b/helm/ocaml/cic_transformations/applyStylesheets.ml
@@ -71,14 +71,11 @@ let reload_stylesheets () =
 ;;
 
 
-let getterURL = Configuration.getter_url;;
-let processorURL = Configuration.processor_url;;
-
 let mml_styles = [d_c ; c1 ; g ; c2 ; l];;
 let mml_args ~explode_all =
  ("explodeall",(if explode_all then "true()" else "false()"))::
-  ["processorURL", "'" ^ processorURL ^ "'" ;
-   "getterURL", "'" ^ getterURL ^ "'" ;
+  ["processorURL", "'" ^ Helm_registry.get "uwobo.url" ^ "'" ;
+   "getterURL", "'" ^ Helm_registry.get "getter.url" ^ "'" ;
    "draw_graphURL", "'http%3A//phd.cs.unibo.it%3A8083/'" ;
    "uri_set_queueURL", "'http%3A//phd.cs.unibo.it%3A8084/'" ;
    "UNICODEvsSYMBOL", "'symbol'" ;
@@ -95,9 +92,9 @@ let mml_args ~explode_all =
 ;;
 
 let sequent_styles = [d_c ; c1 ; g ; c2 ; l];;
-let sequent_args =
- ["processorURL", "'" ^ processorURL ^ "'" ;
-  "getterURL", "'" ^ getterURL ^ "'" ;
+let sequent_args () =
+ ["processorURL", "'" ^ Helm_registry.get "uwobo.url" ^ "'" ;
+  "getterURL", "'" ^ Helm_registry.get "getter.url" ^ "'" ;
   "draw_graphURL", "'http%3A//phd.cs.unibo.it%3A8083/'" ;
   "uri_set_queueURL", "'http%3A//phd.cs.unibo.it%3A8084/'" ;
   "UNICODEvsSYMBOL", "'symbol'" ;
@@ -126,7 +123,7 @@ let apply_proof_stylesheets proof_doc ~explode_all =
 ;;
 
 let apply_sequent_stylesheets sequent_doc =
- apply_stylesheets sequent_doc sequent_styles sequent_args
+ apply_stylesheets sequent_doc sequent_styles (sequent_args ())
 ;;
 
 (** Utility functions to map objects to MathML Presentation **)
diff --git a/helm/ocaml/cic_transformations/cic2Xml.ml b/helm/ocaml/cic_transformations/cic2Xml.ml
index 7594ffef1..ea7d1958d 100644
--- a/helm/ocaml/cic_transformations/cic2Xml.ml
+++ b/helm/ocaml/cic_transformations/cic2Xml.ml
@@ -1,4 +1,4 @@
-(* Copyright (C) 2000, HELM Team.
+(* Copyright (C) 2000-2004, HELM Team.
  * 
  * This file is part of HELM, an Hypertextual, Electronic
  * Library of Mathematics, developed at the Computer Science
@@ -20,7 +20,7 @@
  * MA  02111-1307, USA.
  * 
  * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
+ * http://helm.cs.unibo.it/
  *)
 
 (*CSC codice cut & paste da cicPp e xmlcommand *)
@@ -30,7 +30,7 @@ exception NotImplemented;;
 
 let dtdname ~ask_dtd_to_the_getter dtd =
  if ask_dtd_to_the_getter then
-  Configuration.getter_url ^ "getdtd?uri=" ^ dtd
+  Helm_registry.get "getter.url" ^ "getdtd?uri=" ^ dtd
  else
   "http://mowgli.cs.unibo.it/dtd/" ^ dtd
 ;;