Posted to tcl by aspect at Mon Jan 20 22:52:20 GMT 2020view raw
- #!/usr/bin/env tclsh
- #
- interp create ztmp
- ztmp recursionlimit 10
- set script [read [open [info script]]]
- regsub {.*-{10}} $script {} script
- ztmp eval $script
- puts "eval finished"
- exit
- # ----------
- puts "in ztmp"