]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/matitaGui.ml
$ matita filename
[helm.git] / helm / matita / matitaGui.ml
index 8e16be52cdb5a45cf4df39527b1ef6ef421fb618..de8e361965066595f51ac9bd75cc319197f2ece4 100644 (file)
@@ -389,7 +389,14 @@ class gui () =
       let script = MatitaScript.instance () in
       script#reset (); 
       script#assignFileName file;
-      script#loadFromFile (); 
+      if not (Sys.file_exists file) then
+        begin
+          let oc = open_out file in
+          let template = MatitaMisc.input_file BuildTimeConf.script_template in 
+          output_string oc template;
+          close_out oc
+        end;
+      script#loadFromFile ();
       console#message ("'"^file^"' loaded.");
       self#_enableSaveTo file