ported to helm registry

diff --git a/helm/ocaml/cic_transformations/Makefile b/helm/ocaml/cic_transformations/Makefile
index 5c60d22a8d9e20105422e657e466a1922e85b138..05730df75dd5b152cbc46657ae66df3668411531 100644 (file)
--- 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 860a73297e59afc332ce3f983e082e90c3540ba9..fc0a2989ca766f9927006668092fc6645c597f2b 100644 (file)
--- 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 7594ffef1a5c4f57d00ed4631179960b2d44115b..ea7d1958df50af969c4530683ff1e26ec71554aa 100644 (file)
--- 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
 ;;