Na}{

File Content: `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]} {
	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)]
    }
}

Name	Size	Permission
encoding	---	0755
http1.0	---	0755
msgs	---	0755
opt0.4	---	0755
auto.tcl	20510 bytes	0644
clock.tcl	130269 bytes	0644
history.tcl	8965 bytes	0644
init.tcl	24848 bytes	0644
package.tcl	23588 bytes	0644
parray.tcl	803 bytes	0644
safe.tcl	33170 bytes	0644
tclDTrace.d	6693 bytes	0644
tclIndex	6379 bytes	0644
tm.tcl	11432 bytes	0644
word.tcl	4659 bytes	0644

File Content: parray.tcl

File Content: `parray.tcl`