DN560332270

Subject: Re: Is there batch wrapper code for TCL - DN [1]

kmead@socrates.berkeley.edu () - 14 Dec 1999 - comp.lang.tcl

 In article <aow44.73532$C7.3161598@news1.teleport.com>,
 Dennis Wilson <lincwils@teleport.com> wrote:
 >In perl it is possible to use a set of batch commands to wrap a perl script,
 >so that it can be seen as a batch file.

 This should be in the FAQ, but here goes:

 ::catch {};#\
 @c:\progra~1\tcl\bin\wish80.exe %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
 ::catch {};#\
 @exit

 Two caveats:
   1) %0 does not always resolve to a fully qualified path name--you
      may have to replace it by hand with the full name of the
      tcl script (this is a limitation of DOS)
   2) some does don't understand the exit command. Use @goto eof instead
      and at the end of the file append:
        return
        :eof

 Keith
 (replies to keith@softbook.com)