This is the mail archive of the
ecos-patches@sources.redhat.com
mailing list for the eCos project.
Using ecosadmin.tcl with the latest Cygwin Tcl shell
- From: John Dallaway <jld at ecoscentric dot com>
- To: ecos-patches at sources dot redhat dot com
- Date: Fri, 24 Jan 2003 17:09:42 +0000
- Subject: Using ecosadmin.tcl with the latest Cygwin Tcl shell
- Organization: eCosCentric Limited
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.
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 ; \