Huge reorganization of matita and ocaml.

[helm.git] / helm / ocaml / library / libraryMisc.ml

diff --git a/helm/ocaml/library/libraryMisc.ml b/helm/ocaml/library/libraryMisc.ml
index e953859b6d47bd3152525133bffb00f4b54bb91c..7911789e2ad6e1ca5042e55bb3e845bbeae029eb 100644 (file)
--- a/helm/ocaml/library/libraryMisc.ml
+++ b/helm/ocaml/library/libraryMisc.ml
@@ -27,6 +27,10 @@ let obj_file_of_baseuri ~basedir ~baseuri =
  let path = basedir ^ "/xml" ^ Pcre.replace ~pat:"^cic:" ~templ:"" baseuri in
   path ^ ".moo"
 
+let lexicon_file_of_baseuri ~basedir ~baseuri =
+ let path = basedir ^ "/xml" ^ Pcre.replace ~pat:"^cic:" ~templ:"" baseuri in
+  path ^ ".lexicon"
+
 let metadata_file_of_baseuri ~basedir ~baseuri =
  let path = basedir ^ "/xml" ^ Pcre.replace ~pat:"^cic:" ~templ:"" baseuri in
   path ^ ".metadata"