Posted to tcl by aspect at Mon Jan 20 22:52:20 GMT 2020view raw

  1. #!/usr/bin/env tclsh
  2. #
  3.  
  4. interp create ztmp
  5. ztmp recursionlimit 10
  6.  
  7. set script [read [open [info script]]]
  8. regsub {.*-{10}} $script {} script
  9.  
  10. ztmp eval $script
  11.  
  12. puts "eval finished"
  13.  
  14. exit
  15. # ----------
  16.  
  17. puts "in ztmp"
  18.