This is parray.tcl in view mode; [Download] [Up]
# parray:
# Print the contents of a global array on stdout.
#
# $Header: /user6/ouster/tcl/scripts/RCS/parray.tcl,v 1.4 92/10/14 15:56:45 ouster Exp $ SPRITE (Berkeley)
#
# Copyright 1991 Regents of the University of California
# Permission to use, copy, modify, and distribute this
# software and its documentation for any purpose and without
# fee is hereby granted, provided that this copyright
# notice appears in all copies. The University of California
# makes no representations about the suitability of this
# software for any purpose. It is provided "as is" without
# express or implied warranty.
#
proc parray a {
upvar 1 $a array
if [catch {array size array}] {
error "\"$a\" isn't an array"
}
set maxl 0
foreach name [lsort [array names array]] {
if {[string length $name] > $maxl} {
set maxl [string length $name]
}
}
set maxl [expr {$maxl + [string length $a] + 2}]
foreach name [lsort [array names array]] {
set nameString [format %s(%s) $a $name]
puts stdout [format "%-*s = %s" $maxl $nameString $array($name)]
}
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.