TCL--proc

1. proc name argList body
   proc plus {a b} {
       expr $a + $b
   }
   "plus" is a common tcl command.

2. global variable:  
      global x y
   scope variable
   namespace variable

3. upvar: reference invoke
   #对于访问数组非常有用
   proc printArray {name} {
      upvar 1 $name a
      foreach el[lsort [array name a]] {
         puts "$el = $a($el)"
      }
   }
   upvar 应该明确定义层级。

4. 创建新的控制结构： uplevel
   do

5. 匿名过程
   anonymous procedure