Changeset 1020 for branches/sandbox


Ignore:
Timestamp:
Oct 6, 2010 2:46:08 PM (10 years ago)
Author:
toby
Message:

fix string to work with older Tcl/Tk?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/readexp.tcl

    r1018 r1020  
    505505    # read atom-atom distance parameter
    506506    set dist {}
    507     set item [string range $line $i1 $i1+3]
     507    set item [string range $line $i1 [expr {$i1+3}]]
    508508    if {$item == "DMAX"} {
    509         set val [string range $line $i1+4 $i1+11]
     509        set val [string range $line [expr {$i1+4}] [expr {$i1+11}]]
    510510        set dist [string trim $val]
    511511        incr i1 13
     
    516516    # read atom-atom-atom angle parameter
    517517    set ang {}
    518     set item [string range $line $i1 $i1+3]
     518    set item [string range $line $i1 [expr {$i1+3}]]
    519519    if {$item == "DAGL"} {
    520         set val [string range $line $i1+4 $i1+11]
     520        set val [string range $line [expr {$i1+4}] [expr {$i1+11}]]
    521521        set ang [string trim $val]
    522522        incr i1 13
     
    935935            }
    936936            if {$value == "radii"} {
    937                 if {[string range $line $i2+7 $i2+10] == "DAGL"} {
    938                     set line [string replace $line $i2+7 $i2+18 "ARAD"]
     937                if {[string range $line [expr {$i2+7}] [expr {$i2+10}]] == "DAGL"} {
     938                    set line [string replace $line [expr {$i2+7}] [expr {$i2+18}] "ARAD"]
    939939                } else {
    940                     set line [string replace $line $i2+7 $i2+10 "ARAD"]
     940                    set line [string replace $line [expr {$i2+7}] [expr {$i2+10}] "ARAD"]
    941941                }
    942942            } else {
    943943                if ![validreal value 8 2] {return 0}
    944                 if {[string range $line $i2+7 $i2+10] == "DAGL"} {
    945                     set line [string replace $line $i2+11 $i2+18 $value]
     944                if {[string range $line [expr {$i2+7}] [expr {$i2+10}]] == "DAGL"} {
     945                    set line [string replace $line [expr {$i2+11}] [expr {$i2+18}] $value]
    946946                } else {
    947                     set line [string replace $line $i2+7 $i2+10 "DAGL"]
    948                     set line [string replace $line $i2+11 $i2+11 "$value "]
     947                    set line [string replace $line [expr {$i2+7}] [expr {$i2+10}] "DAGL"]
     948                    set line [string replace $line [expr {$i2+11}] [expr {$i2+11}] "$value "]
    949949                }
    950950            }
Note: See TracChangeset for help on using the changeset viewer.