jpayne@68: # parray:
jpayne@68: # Print the contents of a global array on stdout.
jpayne@68: #
jpayne@68: # Copyright (c) 1991-1993 The Regents of the University of California.
jpayne@68: # Copyright (c) 1994 Sun Microsystems, Inc.
jpayne@68: #
jpayne@68: # See the file "license.terms" for information on usage and redistribution
jpayne@68: # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
jpayne@68: #
jpayne@68: 
jpayne@68: proc parray {a {pattern *}} {
jpayne@68:     upvar 1 $a array
jpayne@68:     if {![array exists array]} {
jpayne@68: 	return -code error "\"$a\" isn't an array"
jpayne@68:     }
jpayne@68:     set maxl 0
jpayne@68:     set names [lsort [array names array $pattern]]
jpayne@68:     foreach name $names {
jpayne@68: 	if {[string length $name] > $maxl} {
jpayne@68: 	    set maxl [string length $name]
jpayne@68: 	}
jpayne@68:     }
jpayne@68:     set maxl [expr {$maxl + [string length $a] + 2}]
jpayne@68:     foreach name $names {
jpayne@68: 	set nameString [format %s(%s) $a $name]
jpayne@68: 	puts stdout [format "%-*s = %s" $maxl $nameString $array($name)]
jpayne@68:     }
jpayne@68: }