X7ROOT File Manager
Current Path:
/usr/share/tcl8.6
usr
/
share
/
tcl8.6
/
??
..
??
auto.tcl
(20.84 KB)
??
clock.tcl
(125.91 KB)
??
encoding
??
history.tcl
(7.71 KB)
??
http1.0
??
init.tcl
(23.68 KB)
??
msgs
??
opt0.4
??
package.tcl
(22.42 KB)
??
parray.tcl
(816 B)
??
safe.tcl
(32.66 KB)
??
tclDTrace.d
(7.17 KB)
??
tclIndex
(5.29 KB)
??
tm.tcl
(11.36 KB)
??
word.tcl
(4.75 KB)
Editing: parray.tcl
# parray: # Print the contents of a global array on stdout. # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994 Sun Microsystems, Inc. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # proc parray {a {pattern *}} { upvar 1 $a array if {![array exists array]} { return -code error "\"$a\" isn't an array" } set maxl 0 set names [lsort [array names array $pattern]] foreach name $names { if {[string length $name] > $maxl} { set maxl [string length $name] } } set maxl [expr {$maxl + [string length $a] + 2}] foreach name $names { set nameString [format %s(%s) $a $name] puts stdout [format "%-*s = %s" $maxl $nameString $array($name)] } }
Upload File
Create Folder