This commit was manufactured by cvs2svn to create tag 'V6-2'.

[helm.git] / helm / interface / pxpUriResolver.ml

diff --git a/helm/interface/pxpUriResolver.ml b/helm/interface/pxpUriResolver.ml
index b5b37f3985c4459d11637c404ee94b6f2567ded4..ad8713cf371031a911c5cbc88795fc5651e78e4c 100644 (file)
--- a/helm/interface/pxpUriResolver.ml
+++ b/helm/interface/pxpUriResolver.ml
@@ -10,12 +10,12 @@
 
 let resolve =
  function
-    "http://localhost:8081/getdtd?url=cic.dtd" ->
-     "/home/pauillac/coq3/sacerdot/HELM/INTERFACE/examples/dtd/cic.dtd"
-  | "http://localhost:8081/getdtd?url=maththeory.dtd" ->
-     "/home/pauillac/coq3/sacerdot/HELM/INTERFACE/examples/dtd/maththeory.dtd"
-  | "http://localhost:8081/getdtd?url=annotations.dtd" ->
-     "/home/pauillac/coq3/sacerdot/HELM/INTERFACE/examples/dtd/annotations.dtd"
+    "http://localhost:8081/getdtd?uri=cic.dtd" ->
+     Configuration.dtd_dir ^ "/cic.dtd"
+  | "http://localhost:8081/getdtd?uri=maththeory.dtd" ->
+     Configuration.dtd_dir ^ "/maththeory.dtd"
+  | "http://localhost:8081/getdtd?uri=annotations.dtd" ->
+     Configuration.dtd_dir ^ "/annotations.dtd"
   | s  -> s
 ;;