home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / ui_utils / tcl_447.lzh / TCL / TCL.LZH / tcl / tclprocs / decomp.tcl next >
Encoding:
Text File  |  1990-05-04  |  332 b   |  19 lines
  1.  
  2.  
  3. proc dump func {
  4.  format "proc %s \{%s\} \{%s\}\n" $func [eval info args $func] [eval info body $func]
  5. }
  6.  
  7. proc dumpall {} {
  8.  set result ""
  9.  foreach i [eval info procs] {set result [concat $result \n [eval dump $i]]}
  10.  return $result
  11. }
  12.  
  13. proc edit func {
  14.     print [dump $func] T:$func
  15.     run vi T:$func
  16.     source T:$func
  17.     run rm T:$func
  18. }
  19.