]> matita.cs.unibo.it Git - helm.git/commitdiff
$ matita filename
authorEnrico Tassi <enrico.tassi@inria.fr>
Thu, 7 Jul 2005 11:03:52 +0000 (11:03 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Thu, 7 Jul 2005 11:03:52 +0000 (11:03 +0000)
if filename is non-existent then creates it

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