home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 6_9.tcl < prev    next >
Text File  |  2003-04-15  |  445b  |  33 lines
  1. #
  2. # Example 6-9
  3. # Parsing command-line arguments.
  4. #
  5.  
  6. # argv is set by the Tcl shells
  7. # possible flags are:
  8. # -max integer
  9. # -force
  10. # -verbose
  11. set state flag
  12. set force 0
  13. set verbose 0
  14. set max 10
  15. foreach arg $argv {
  16.     switch -- $state {
  17.         flag {
  18.             switch -glob -- $arg {
  19.                 -f*        {set force 1}
  20.                 -v*        {set verbose 1}
  21.                 -max        {set state max}
  22.                 default {error "unknown flag $arg"}
  23.             }
  24.         }
  25.         max {
  26.             set max $arg
  27.             set state flag
  28.         }
  29.     }
  30. }
  31.  
  32.  
  33.