Changeset 90
- Timestamp:
- Dec 4, 2009 5:00:14 PM (13 years ago)
- 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 45 45 catch {unset exparray} 46 46 foreach key {" VERSION" " DESCR" "ZZZZZZZZZZZZ" " EXPR NPHAS"} \ 47 value {" 6" "" " Last EXP file record" } {47 value {" 6" "" " Last EXP file record" ""} { 48 48 # truncate long keys & pad short ones 49 49 set key [string range "$key " 0 11] … … 1121 1121 proc expwrite {expfile} { 1122 1122 global tcl_platform exparray 1123 set blankline " " 1123 set blankline \ 1124 " " 1124 1125 set fp [open ${expfile} w] 1125 1126 set keylist [lsort [array names exparray]]
Note: See TracChangeset
for help on using the changeset viewer.