关于icc 脚本的疑问

proc dp_explore {run_num objective vfp_macros_on_edge vfp_auto_grouping vfp_hierarchy_gravity vfp_congestion_driven vfp_timing_driven vfp_set_ideal_network vfp_max_fanout vfp_effort vfp_incremental vfp_plan_groups vfp_voltage_areas vfp_macro_orientation vfp_sliver_size vfp_congestion_effort vfp_io_net_weight vfp_plangroup_net_weight vfp_spread_spare_cells vfp_legalizer_effort ipo_ahfs ipo_ahfs_remove_effort ipo_effort ipo_fix_drc ipo_area_recovery} {
##Declare all global variables as "global" to the explore procedure
（1）set vars__proc_explore [uplevel 1 info globals]
（2）foreach v__proc_explore $vars__proc_explore {
if {$v__proc_explore ！= "args" && ！[info exists $v__proc_explore]} {
global $v__proc_explore
#echo "SCRIPT-debug: global $v__proc_explore"
}
}
大家谁能帮我解释一下（1）（2），看不懂那。上面是在论坛上下载的ICC官方脚本中的一段tcl脚本。

看看tcl 帮助吧
uplevel #1 就是 在上面一层调用的意思，

嗯，谢谢小编。

http://bbs.eetop.cn/thread-319075-1-1.html