Changeset 90

Timestamp:

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

Author:

toby

Message:

# on 1999/07/21 16:19:34, toby did:
fix bug in create blank exp file (createexp) and make sure that lines
will always be padded long enough

File:

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

trunk/readexp.tcl

@@ -45 +45 @@
     catch {unset exparray}
     foreach key   {"     VERSION" "      DESCR" "ZZZZZZZZZZZZ" " EXPR NPHAS"} \
-            value {"   6"         ""            "  Last EXP file record" } {
+            value {"   6"         ""            "  Last EXP file record" ""} {
         # truncate long keys & pad short ones
         set key [string range "$key        " 0 11]
@@ -1121 +1121 @@
 proc expwrite {expfile} {
     global tcl_platform exparray
-    set blankline "                                                                   "
+    set blankline \
+     "                                                                        "
     set fp [open ${expfile} w]
     set keylist [lsort [array names exparray]]