home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 7_2.tcl < prev    next >
Text File  |  2003-04-15  |  446b  |  32 lines
  1. #
  2. # Example 7-2
  3. # Variable number of arguments.
  4. #
  5.  
  6. proc ArgTest {a {b foo} args} {
  7.     foreach param {a b args} {
  8.         puts stdout "\t$param = [set $param]"
  9.     }
  10. }
  11. set x one
  12. set y {two things}
  13. set z \[special\$
  14. ArgTest $x
  15. #=>    a = one
  16.     b = foo
  17.     args = 
  18. ArgTest $y $z
  19. #=>    a = two things
  20.     b = [special$
  21.     args = 
  22. ArgTest $x $y $z
  23. #=>    a = one
  24.     b = two things
  25.     args = {[special$}
  26. ArgTest $z $y $z $x
  27. #=>    a = [special$
  28.     b = two things
  29.     args = {[special$} one
  30.  
  31.  
  32.