home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 13_2.tcl < prev    next >
Text File  |  2003-04-15  |  497b  |  27 lines
  1. #
  2. # Example 13-2
  3. # Printing a procedure definition.
  4. #
  5.  
  6. proc Proc_Show {{namepat *} {file stdout}} {
  7.     foreach proc [info procs $namepat] {
  8.         set space ""
  9.         puts -nonewline $file "proc $proc {"
  10.         foreach arg [info args $proc] {
  11.             if [info default $proc $arg value] {
  12.                 puts -nonewline $file "$space{$arg $value}"
  13.             } else {
  14.                 puts -nonewline $file $space$arg
  15.             }
  16.             set space " "
  17.         }
  18.  
  19.         # Double quotes allow substitution
  20.         # of [info body $proc]
  21.  
  22.         puts $file "} {[info body $proc]}"
  23.     }
  24. }
  25.  
  26.  
  27.