Bux fixed: matita did not save the .lexicon files! (only matitac did)

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

diff --git a/helm/ocaml/library/libraryMisc.ml b/helm/ocaml/library/libraryMisc.ml
index e953859b6d47bd3152525133bffb00f4b54bb91c..3f1931e42ce0e979e080c566381f47f572ddbdf8 100644 (file)
--- a/helm/ocaml/library/libraryMisc.ml
+++ b/helm/ocaml/library/libraryMisc.ml
@@ -23,10 +23,16 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 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"