home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 10_2.tcl < prev    next >
Text File  |  2003-04-15  |  460b  |  23 lines
  1. #
  2. # Example 10-2
  3. # Generating procedures dynamically with a template.
  4. #
  5.  
  6. proc TraceGen {procName} {
  7.     rename $procName $procName-orig
  8.     set arglist {}
  9.     foreach arg [info args $procName-orig] {
  10.         append arglist "\$$arg "
  11.     }
  12.     proc $procName [info args $procName-orig] [format {
  13.         global _trace_count _trace_msec
  14.         incr _trace_count(%1$s)
  15.         incr _trace_msec(%1$s) [lindex [time {
  16.             set result [%1$s-orig %2$s]
  17.         } 1] 0]
  18.         return $result
  19.     } $procName $arglist]
  20. }
  21.  
  22.  
  23.