blob: ebbe79f0997d186534cf40dbcbf141683c5769c4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
puts "======= Environment (Start) ======="
foreach __item [lsort [list env]] {
if {[string compare $__item "__info"] == 0} continue
if [catch {puts " $__item=>[eval set $__item]<"} szErrMsg] {
if [regexp "variable is array" $szErrMsg] {
foreach __elem [lsort [array names $__item]] {
puts " ${__item}($__elem)=>[set ${__item}($__elem)]<"
}
} else {
puts "******* >> msg : $szErrMsg"
puts "******* >> errorInfo: [uplevel #0 set errorInfo]"
puts "******* >> errorCode: [uplevel #0 set errorCode]"
}
}
}
pass env.exp
puts "======= Environment (End) ======="
|