dump variables in the current scope
Posted to
tcl
by kbk at Mon Jun 08 03:05:19 GMT 2009
view raw
foreach
var [
info
vars] {
if
{[
array
exists
$var
]} {
foreach
{key value} [
array
get
$var
] {
puts
[
list
set
${var}
(
$key
)
$value
]
}
}
else
{
puts
[
list
set
$var
[
set
$var
]]
}
}
Recent Posts
tcl by bch
5 days ago
tcl by Bradipo
5 days ago
tcl by aspect
5 days ago
tcl by Bradipo
5 days ago
tcl by Bradipo
5 days ago
tcl by Bradipo
5 days ago
lilypond by Bradipo
7 days ago
tcl by cgm
17 days ago
tcl by dandyn
26 days ago
tcl by Stu
27 days ago
Submit
New paste
Documentation
From Jabber