home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 19_5.tcl < prev    next >
Text File  |  2003-04-15  |  307b  |  16 lines
  1. #
  2. # Example 19-5
  3. # Dumping aliases as Tcl commands.
  4. #
  5.  
  6. proc Interp_DumpAliases {name out} {
  7.     puts $out "# Aliases for $name"
  8.     foreach alias [interp aliases $name] {
  9.         puts $out [format "interp alias %s %s %s %s" \
  10.             $name $alias [list [interp target $name $alias]] \
  11.             [interp alias $name $alias]]
  12.     }
  13. }
  14.  
  15.  
  16.