home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 19_7.tcl < prev    next >
Text File  |  2003-04-15  |  485b  |  26 lines
  1. #
  2. # Example 19-7
  3. # Opening a file for an unsafe interpreter.
  4. #
  5.  
  6. proc TempfileAlias {slave} {
  7.     set i 0
  8.     while {[file exists Temp$slave$i]} {
  9.         incr i
  10.     }
  11.     set out [open Temp$slave$i w+]
  12.     interp transfer {} $out $slave
  13.     return $out
  14. }
  15. proc TempfileExitAlias {slave} {
  16.     foreach file [glob -nocomplain Temp$slave*] {
  17.         file delete -force $file
  18.     }
  19.     interp delete $slave
  20. }
  21. interp create -safe foo
  22. interp alias foo Tempfile {} TempfileAlias foo
  23. interp alias foo exit {} TempfileExitAlias foo
  24.  
  25.  
  26.