close Warning: Can't synchronize with repository "(default)" (/var/svn/tolp does not appear to be a Subversion repository.). Look in the Trac log for more information.

Ticket #1118: tclexec.tol

File tclexec.tol, 227 bytes (added by Jorge, 13 years ago)
Line 
1#Require TclCore;
2
3Set Tcl_EvalEx( [[ "source", GetAbsolutePath(".") + "/" + "tolexec.tcl" ]] );
4
5Set TclExec( Set cmdline )
6{
7  Set execOK = Tcl_EvalEx( [[ "::tolexec", cmdline ]] );
8  Set Eval( execOK[ "result" ] )
9};