Changeset 19 for trunk/readexp.tcl

Timestamp:

Dec 4, 2009 4:59:00 PM (14 years ago)

Author:

toby

Message:

# on 1999/01/06 04:06:41, toby did:
add createexp to create an EXP file
fix bug in exphistory when no HSTRY records are present
add title to expinfo
add set option for name (phase name) in phaseinfo
fix padding in expwrite

File:

• trunk/readexp.tcl (modified) (8 diffs, 3 props)

trunk/readexp.tcl

@@ -38 +38 @@
     close $fil
     return 0
+}
+
+proc createexp {expfile title} {
+    global exparray expmap
+    catch {unset exparray}
+    foreach key   {"     VERSION" "      DESCR" "ZZZZZZZZZZZZ" " EXPR NPHAS"} \
+            value {"   6"         ""            "  Last EXP file record" } {
+        # truncate long keys & pad short ones
+        set key [string range "$key        " 0 11]
+        set exparray($key) $value
+    }
+    expinfo title set $title
+    exphistory add " created readexp.tcl [lindex $expmap(Revision) 1] [clock format [clock seconds]]"
+    expwrite $expfile
 }
 
@@ -52 +66 @@
     # get the defined phases
     set line [readexp " EXPR NPHAS"]
-    if {$line == ""} {
-        set msg "No EXPR NPHAS entry. This is an invalid .EXP file"
-        tk_dialog .badexp "Error in EXP" $msg error 0 Exit 
-        destroy .
-    }
+#    if {$line == ""} {
+#       set msg "No EXPR NPHAS entry. This is an invalid .EXP file"
+#       tk_dialog .badexp "Error in EXP" $msg error 0 Exit 
+#       destroy .
+#    }
     set expmap(phaselist) {}
     # loop over phases
@@ -148 +162 @@
 proc existsexp {key} {
     global exparray
-    # key can contain wild cards so dont pad
+    # key can contain wild cards so don't pad
     return [llength [array names exparray  $key]]
 }
@@ -245 +259 @@
         set key [lindex [lsort -decreasing [array names exparray *HSTRY*]] 0]
         if {$key == ""} {
-            set key "    HSTRY  1"
+            set index 1
         } else {
             set index [string trim [string range $key 9 end]]
@@ -262 +276 @@
 #     print     -- GENLES print option (*)
 #     cycles    -- number of GENLES cycles (*)
+#     title     -- the overall title (*)
 proc expinfo {parm "action get" "value {}"} {
     switch ${parm}-$action {
+        title-get {
+            return [string trim [readexp "      DESCR"]]
+        }
+        title-set {
+            setexp "      DESCR" " $value" 1 68
+        }
+
         cycles-get {
             return [string trim [cdatget MXCY]]
@@ -355 +377 @@
         name-get {
             return [string trim [readexp "CRS$phase    PNAM"]]
+        }
+
+        name-set {
+            setexp "CRS$phase    PNAM" " $value" 1 68
         }
 
@@ -1082 +1108 @@
 proc expwrite {expfile} {
     global tcl_platform exparray
+    set blankline "                                                                   "
     set fp [open ${expfile} w]
     set keylist [lsort [array names exparray]]
@@ -1090 +1117 @@
         foreach key $keylist {
             puts $fp [string range \
-                    "$key$exparray($key)                " 0 79]
+                    "$key$exparray($key)$blankline" 0 79]
         }
     } else {
         foreach key $keylist {
             puts -nonewline $fp [string range \
-                    "$key$exparray($key)                " 0 79]
+                    "$key$exparray($key)$blankline" 0 79]
         }
     }