let resolve =
function
"http://localhost:8081/getdtd?url=cic.dtd" ->
- "/home/pauillac/coq3/sacerdot/HELM/INTERFACE/examples/dtd/cic.dtd"
+ Configuration.dtd_dir ^ "/cic.dtd"
| "http://localhost:8081/getdtd?url=maththeory.dtd" ->
- "/home/pauillac/coq3/sacerdot/HELM/INTERFACE/examples/dtd/maththeory.dtd"
+ Configuration.dtd_dir ^ "/maththeory.dtd"
| "http://localhost:8081/getdtd?url=annotations.dtd" ->
- "/home/pauillac/coq3/sacerdot/HELM/INTERFACE/examples/dtd/annotations.dtd"
+ Configuration.dtd_dir ^ "/annotations.dtd"
| s -> s
;;