From: Enrico Tassi Date: Thu, 7 Jul 2005 11:03:52 +0000 (+0000) Subject: $ matita filename X-Git-Tag: V_0_7_1~24 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=fe08f69d4efc18944ac9f114d2d5e3ee66dc38c1;p=helm.git $ matita filename if filename is non-existent then creates it --- diff --git a/helm/matita/matitaGui.ml b/helm/matita/matitaGui.ml index 8e16be52c..de8e36196 100644 --- a/helm/matita/matitaGui.ml +++ b/helm/matita/matitaGui.ml @@ -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