DN559513088

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

"Matt Newman" <matt@sensus.org> - 11 Dec 1999 - comp.lang.tcl

 >What About:
 >
 ><------------------------- cut --------------------------->
 >@echo off
 >rem {
 >tclsh82 "%0"
 >goto EndOfBatchFile
 >rem }
 ># Start of Tcl Script
 >
 >parray tcl_platform
 >
 ># End of Tcl Script
 >exit 0
 >:EndOfBatchFile
 ><------------------------- cut --------------------------->
 >
 >This will work if you add the following two lines to your tcl8.2/init.tcl
 >
 >proc @echo {args} {}
 >proc rem {args} {}

 Actuall I found a better way that works like the bourne shell snipit we use
 on Unix - I.e. just a header to add to any existing Tcl script:

 <------------------------- cut --------------------------->
 @echo off
 rem {
 tclsh82 "%0"
 exit
 rem }
 # Remainer of Tcl Script
 parray tcl_platform
 <------------------------- cut --------------------------->

 Matt