Changeset 1020

Timestamp:

Oct 6, 2010 2:46:08 PM (12 years ago)

Author:

toby

Message:

fix string to work with older Tcl/Tk?

File:

• branches/sandbox/readexp.tcl (modified) (3 diffs)

branches/sandbox/readexp.tcl

@@ -505 +505 @@
     # read atom-atom distance parameter
     set dist {}
-    set item [string range $line $i1 $i1+3]
+    set item [string range $line $i1 [expr {$i1+3}]]
     if {$item == "DMAX"} {
-        set val [string range $line $i1+4 $i1+11]
+        set val [string range $line [expr {$i1+4}] [expr {$i1+11}]]
         set dist [string trim $val]
         incr i1 13
@@ -516 +516 @@
     # read atom-atom-atom angle parameter
     set ang {}
-    set item [string range $line $i1 $i1+3]
+    set item [string range $line $i1 [expr {$i1+3}]]
     if {$item == "DAGL"} {
-        set val [string range $line $i1+4 $i1+11]
+        set val [string range $line [expr {$i1+4}] [expr {$i1+11}]]
         set ang [string trim $val]
         incr i1 13
@@ -935 +935 @@
             }
             if {$value == "radii"} {
-                if {[string range $line $i2+7 $i2+10] == "DAGL"} {
-                    set line [string replace $line $i2+7 $i2+18 "ARAD"]
+                if {[string range $line [expr {$i2+7}] [expr {$i2+10}]] == "DAGL"} {
+                    set line [string replace $line [expr {$i2+7}] [expr {$i2+18}] "ARAD"]
                 } else {
-                    set line [string replace $line $i2+7 $i2+10 "ARAD"]
+                    set line [string replace $line [expr {$i2+7}] [expr {$i2+10}] "ARAD"]
                 }
             } else {
                 if ![validreal value 8 2] {return 0}
-                if {[string range $line $i2+7 $i2+10] == "DAGL"} {
-                    set line [string replace $line $i2+11 $i2+18 $value]
+                if {[string range $line [expr {$i2+7}] [expr {$i2+10}]] == "DAGL"} {
+                    set line [string replace $line [expr {$i2+11}] [expr {$i2+18}] $value]
                 } else {
-                    set line [string replace $line $i2+7 $i2+10 "DAGL"]
-                    set line [string replace $line $i2+11 $i2+11 "$value "]
+                    set line [string replace $line [expr {$i2+7}] [expr {$i2+10}] "DAGL"]
+                    set line [string replace $line [expr {$i2+11}] [expr {$i2+11}] "$value "]
                 }
             }