X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Flibrary%2FlibraryMisc.ml;h=7911789e2ad6e1ca5042e55bb3e845bbeae029eb;hb=18c6848695fbfa97508e0981f6875a6459429a58;hp=e953859b6d47bd3152525133bffb00f4b54bb91c;hpb=dbb9f64a437b4abda0b9f47a527ab6135d596e28;p=helm.git

diff --git a/helm/ocaml/library/libraryMisc.ml b/helm/ocaml/library/libraryMisc.ml
index e953859b6..7911789e2 100644
--- 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"