X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fbinaries%2Fxoa%2Fxoa.ml;h=3d35f1932145b3e050c63d8c126d33557831d8c3;hb=refs%2Fheads%2Fmaster;hp=c5604f1e657243088e9682944122136d91618c91;hpb=5b5dca0c118dfbe3ba8f0514ef07549544eb7810;p=helm.git

diff --git a/matita/components/binaries/xoa/xoa.ml b/matita/components/binaries/xoa/xoa.ml
index c5604f1e6..3d35f1932 100644
--- a/matita/components/binaries/xoa/xoa.ml
+++ b/matita/components/binaries/xoa/xoa.ml
@@ -18,6 +18,9 @@ module E = Engine
 let incremental = ref true
 let separate = ref false
 
+let preamble =
+  L.get_preamble ()
+
 let clear () =
   incremental := true;
   separate := false;
@@ -33,10 +36,10 @@ let unm_and s =
   Scanf.sscanf s "%u" A.mk_and
 
 let process_centralized conf =
-  let preamble = L.get_preamble conf in
+  R.load_from conf;
   if R.has "xoa.objects" && R.has "xoa.notations" then begin
-    let ooch = L.open_out preamble (R.get_string "xoa.objects") in
-    let noch = L.open_out preamble (R.get_string "xoa.notations") in
+    let ooch = L.open_out true preamble (R.get_string "xoa.objects") in
+    let noch = L.open_out false preamble (R.get_string "xoa.notations") in
     List.iter (L.out_include ooch) (R.get_list R.string "xoa.include");
     L.out_include ooch (R.get_string "xoa.notations" ^ ".ma");
     List.iter (E.generate ooch noch) (R.get_list unm_ex "xoa.ex");
@@ -62,8 +65,8 @@ let generate (p, o, n) d =
   in
   if !incremental && L.exists_out oname && L.exists_out nname then () else
   begin
-    let ooch = L.open_out p oname in
-    let noch = L.open_out p nname in
+    let ooch = L.open_out true p oname in
+    let noch = L.open_out false p nname in
     List.iter (L.out_include ooch) (R.get_list R.string "xoa.include");
     L.out_include ooch (nname ^ ".ma");
     E.generate ooch noch d;
@@ -71,7 +74,7 @@ let generate (p, o, n) d =
   end
 
 let process_distributed conf =
-  let preamble = L.get_preamble conf in
+  R.load_from conf;
   if R.has "xoa.objects" && R.has "xoa.notations" then begin
     let st = preamble, R.get_string "xoa.objects", R.get_string "xoa.notations" in
     List.iter (generate st) (R.get_list unm_ex "xoa.ex");