No comments

diff --git a/src/WOKTclLib/arb.tcl b/src/WOKTclLib/arb.tcl
index f5e2cdb91bf7ff527ac040f700b37922bc423bac..15104eb6b2b89cd727e57b033c85f79b3887d8b9 100755 (executable)
--- a/src/WOKTclLib/arb.tcl
+++ b/src/WOKTclLib/arb.tcl
@@ -97,7 +97,7 @@ proc DependenceTree_getunittk { pkname location } {
            if {![info exist arrayoftk($atk)]} {
                set pkfile [woklocate -p ${atk}:PACKAGES: $location]
                set arrayoftk($atk) 1
-               if {[clength $pkfile]} {
+               if {[string length $pkfile]} {
                    set lst {}
                    for_file udintk $pkfile {
                        set arrayoftk($udintk) $atk

diff --git a/src/WOKTclLib/pinstall.tcl b/src/WOKTclLib/pinstall.tcl
index b82928a343bb8924ec6da4d9d934cb6d746bf5cb..7f4dc37c600def85703a0703ff613831c2d86949 100755 (executable)
--- a/src/WOKTclLib/pinstall.tcl
+++ b/src/WOKTclLib/pinstall.tcl
@@ -29,7 +29,7 @@ proc pinstall {args} {
     cd $theullibdir
     foreach atempld [glob *.ldt] {
        source $atempld
-       set goodlen [expr [clength $atempld] - 2]
+       set goodlen [expr [string length $atempld] - 2]
        set aldfile [crange $atempld 0 $goodlen]
        set ldfileid [open $aldfile w]
        puts $ldfileid [WOKDeliv_Makeld $thefact]

diff --git a/src/WOKTclLib/wokinterp.tcl b/src/WOKTclLib/wokinterp.tcl
index 77e67aa941f085727b0e4315b602456d8000cb4f..dd538f40f57501da3f6899074367e082c6ea0ed5 100755 (executable)
--- a/src/WOKTclLib/wokinterp.tcl
+++ b/src/WOKTclLib/wokinterp.tcl
@@ -260,7 +260,7 @@ proc woksh_emacs {args} {
                
                set tooolong 0
                
-               if { [clength $theline] > 100} {
+               if { [string length $theline] > 100} {
                    set tooolong 1
 
                    set thelongcmdfile "/tmp/wokenv_[id process]_${format}_long"
@@ -273,9 +273,9 @@ proc woksh_emacs {args} {
                        unlink $thelongcmdfile
                    }
                    
-                   while { [clength $theline] > 100} {
+                   while { [string length $theline] > 100} {
                        exp_send_user  -- "[crange $theline 0 100]\\\n"
-                       set theline [crange $theline 101 [clength $theline]]
+                       set theline [crange $theline 101 [string length $theline]]
                    }
                    
                    exp_send_user -- "$theline\n"