Using ecosadmin.tcl with the latest Cygwin Tcl shell

[Jonathan Larmour]

John Dallaway wrote:
> The net distribution of Cygwin now ships with tclsh83.exe rather
> than cygtclsh80.exe. This patch updates the #! magic in the eCos
> command-line admin tool to work with the new Tcl shell. Operation
> with older shells should not be affected.

John, we already got a (slightly different) patch from Tim Michals 
earlier. I assumed you were going to look at that. Please verify that 
quoting is not an issue, presumably with paths with spaces in.

And you need to tweak more files (see Tim's mail). 
http://sources.redhat.com/ml/ecos-patches/2003-01/msg00052.html

Jifl

> Index: ChangeLog
> ===================================================================
> RCS file: /cvs/ecos/ecos/packages/ChangeLog,v
> retrieving revision 1.92
> diff -u -5 -r1.92 ChangeLog
> --- ChangeLog	22 Jan 2003 01:10:41 -0000	1.92
> +++ ChangeLog	24 Jan 2003 16:57:06 -0000
> @@ -1,5 +1,9 @@
> +2003-01-24  John Dallaway  <jld@ecoscentric.com>
> +
> +	* ecosadmin.tcl: Accommodate latest Cygwin Tcl shell (tclsh83.exe)
> +
>  2003-01-22  Jonathan Larmour  <jifl@eCosCentric.com>
> 
>  	* ecos.db: Add CYGPKG_LINUX_COMPAT. Not a compatibility layer
>  	for Linux applications, but Linux drivers and filesystems.
>  	Intended for an updated JFFS2.
> Index: ecosadmin.tcl
> ===================================================================
> RCS file: /cvs/ecos/ecos/packages/ecosadmin.tcl,v
> retrieving revision 1.10
> diff -u -5 -r1.10 ecosadmin.tcl
> --- ecosadmin.tcl	24 Oct 2002 03:16:54 -0000	1.10
> +++ ecosadmin.tcl	24 Jan 2003 16:57:07 -0000
> @@ -1,9 +1,11 @@
>  #!/bin/sh
>  # these lines restart using the tcl shell \
>    exec sh -c "if ( echo | tclsh ) 2>/dev/null ; then \
>        exec tclsh \"${0}\" ${1+${*}} ; \
> +    elif ( echo | tclsh83 ) 2>/dev/null ; then \
> +      exec tclsh83 \"${0}\" ${1+${*}} ; \
>      elif ( echo | cygtclsh80 ) 2>/dev/null ; then \
>        exec cygtclsh80 \"${0}\" ${1+${*}} ; \
>      else \
>        echo Could not find TCL interpreter ; \
>        exit 1 ; \


-- 
eCosCentric       http://www.eCosCentric.com/       <info@eCosCentric.com>
--[ "You can complain because roses have thorns, or you ]--
--[  can rejoice because thorns have roses." -Lincoln   ]-- Opinions==mine