home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / tcl_447.lzh / TCL / tcl.lzh / tcl / tclprocs / decomp.tcl next >
Text File  |  1990-05-03  |  332b  |  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.