Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | [a122627849] Improve stack trace from parray on not-array. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
2c4acdb880748c0747c9023e6d0c1295 |
| User & Date: | dkf 2013-11-24 18:34:16 |
Context
|
2014-01-21
| ||
| 18:16 | Silence compiler warnings. check-in: 76fb868129 user: dgp tags: core-8-5-branch | |
|
2013-11-24
| ||
| 18:35 | [a122627849] Improve stack trace from parray on not-array. check-in: 02ef6fa87e user: dkf tags: trunk | |
| 18:34 | [a122627849] Improve stack trace from parray on not-array. check-in: 2c4acdb880 user: dkf tags: core-8-5-branch | |
|
2013-11-22
| ||
| 13:16 | Cygwin: Fix conflicting definition with _mingw_stat64.h, if included together with <tcl.h> check-in: 90bf70eb07 user: jan.nijtmans tags: core-8-5-branch | |
Changes
Changes to library/parray.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 |
# 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]} {
| | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
# 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]
}
|
| ︙ | ︙ |