Ignore:
Timestamp:
Sep 16, 2010 4:27:48 PM (11 years ago)
Author:
chlake
Message:

relabel constraints tab (need a better label!)
readexp: breakup lines w/o spaces
distrest: wipe old entry vals; reload rests after save; generate DISAGL file as needed, add pleasewait

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/readexp.tcl

    r1000 r1007  
    29062906            for {set i 1} {$i <= $ncons} {incr i} {
    29072907                set fi [string toupper [format %.4x $i]]
    2908                 lappend conslist [string trim [readexp "${key}BD$fi"]] 
     2908                set line [readexp "${key}BD$fi"]
     2909                set const {}
     2910                foreach len {3 5 5 3 3 3 3 3 6 6} {
     2911                  set lenm1 [expr {$len - 1}]
     2912                  lappend const [string trim [string range $line 0 $lenm1]]
     2913                  set line [string range $line $len end]
     2914                }
     2915                lappend conslist $const
    29092916            }
    29102917            return $conslist
Note: See TracChangeset for help on using the changeset viewer.