Changeset 634 for trunk/readexp.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:09:27 PM (11 years ago)
Author:
toby
Message:

# on 2002/07/18 20:52:41, toby did:
fix excluded region read error (in EXCLEDT)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 2002/01/25 21:30:39 to 2002/07/18 20:52:41
    • Property rcs:lines changed from +39 -3 to +6 -4
    • Property rcs:rev changed from 1.35 to 1.36
    r559 r634  
    15281528                set exlist {}
    15291529                for {set i 1} {$i <= $n} {incr i} {
    1530                     lappend exlist \
    1531                             [string trim [readexp [format "${key}EXC%3d" $i]]]
     1530                    set line [readexp [format "${key}EXC%3d" $i]]
     1531                    lappend exlist [list \
     1532                            [string trim [string range $line  0  9]] \
     1533                            [string trim [string range $line 10 19]]]
    15321534                }
    15331535                return $exlist
Note: See TracChangeset for help on using the changeset viewer.