Changeset 90


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 1999/04/08 20:44:22 to 1999/07/21 16:19:34
    • Property rcs:lines changed from +2 -1 to +5 -4
    • Property rcs:rev changed from 1.9 to 1.10
    r85 r90  
    4545    catch {unset exparray}
    4646    foreach key   {"     VERSION" "      DESCR" "ZZZZZZZZZZZZ" " EXPR NPHAS"} \
    47             value {"   6"         ""            "  Last EXP file record" } {
     47            value {"   6"         ""            "  Last EXP file record" ""} {
    4848        # truncate long keys & pad short ones
    4949        set key [string range "$key        " 0 11]
     
    11211121proc expwrite {expfile} {
    11221122    global tcl_platform exparray
    1123     set blankline "                                                                   "
     1123    set blankline \
     1124     "                                                                        "
    11241125    set fp [open ${expfile} w]
    11251126    set keylist [lsort [array names exparray]]
Note: See TracChangeset for help on using the changeset viewer.