home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 7_3.tcl < prev    next >
Text File  |  2003-04-15  |  188b  |  22 lines
  1. #
  2. # Example 7-3
  3. # Variable scope and Tcl procedures.
  4. #
  5.  
  6. set a 5
  7. set b -8
  8. proc P1 {a} {
  9.     set b 42
  10.     if {$a < 0} {
  11.         return $b
  12.     } else {
  13.         return $a
  14.     }
  15. }
  16. P1 $b
  17. #=> 42
  18. P1 [expr $a*2]
  19. #=> 10
  20.  
  21.  
  22.