Mercurial > repos > rliterman > csp2
comparison CSP2/CSP2_env/env-d9b9114564458d9d-741b3de822f2aaca6c6caa4325c4afce/lib/tcl8.6/parray.tcl @ 68:5028fdace37b
planemo upload commit 2e9511a184a1ca667c7be0c6321a36dc4e3d116d
| author | jpayne |
|---|---|
| date | Tue, 18 Mar 2025 16:23:26 -0400 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 67:0e9998148a16 | 68:5028fdace37b |
|---|---|
| 1 # parray: | |
| 2 # Print the contents of a global array on stdout. | |
| 3 # | |
| 4 # Copyright (c) 1991-1993 The Regents of the University of California. | |
| 5 # Copyright (c) 1994 Sun Microsystems, Inc. | |
| 6 # | |
| 7 # See the file "license.terms" for information on usage and redistribution | |
| 8 # of this file, and for a DISCLAIMER OF ALL WARRANTIES. | |
| 9 # | |
| 10 | |
| 11 proc parray {a {pattern *}} { | |
| 12 upvar 1 $a array | |
| 13 if {![array exists array]} { | |
| 14 return -code error "\"$a\" isn't an array" | |
| 15 } | |
| 16 set maxl 0 | |
| 17 set names [lsort [array names array $pattern]] | |
| 18 foreach name $names { | |
| 19 if {[string length $name] > $maxl} { | |
| 20 set maxl [string length $name] | |
| 21 } | |
| 22 } | |
| 23 set maxl [expr {$maxl + [string length $a] + 2}] | |
| 24 foreach name $names { | |
| 25 set nameString [format %s(%s) $a $name] | |
| 26 puts stdout [format "%-*s = %s" $maxl $nameString $array($name)] | |
| 27 } | |
| 28 } |