X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_transformations%2FapplyStylesheets.ml;h=fc0a2989ca766f9927006668092fc6645c597f2b;hb=ebfab836e9e047756b7a53c3f46f69ec4532685a;hp=82060587acb91b31c06f8e0dee56fccde9cacd50;hpb=f7b2e35a7bdadb4fdf0e640428e694703ddf67a5;p=helm.git

diff --git a/helm/ocaml/cic_transformations/applyStylesheets.ml b/helm/ocaml/cic_transformations/applyStylesheets.ml
index 82060587a..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 **)
@@ -182,3 +179,8 @@ let
    let output = apply_proof_stylesheets input ~explode_all in
     output
 ;;
+
+
+
+
+