Name	Size	Mode	Actions
encoding/	-	0755	rm
http1.0/	-	0755	rm
msgs/	-	0755	rm
opt0.4/	-	0755	rm
auto.tcl	20845	0644	editdlrm
clock.tcl	128442	0644	editdlrm
history.tcl	7908	0644	editdlrm
init.tcl	24826	0644	editdlrm
package.tcl	23245	0644	editdlrm
parray.tcl	816	0644	editdlrm
safe.tcl	40936	0644	editdlrm
tclAppInit.c	4871	0644	editdlrm
tclIndex	5613	0644	editdlrm
tm.tcl	11827	0644	editdlrm
word.tcl	4897	0644	editdlrm

# 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)] } }