This is the mail archive of the ecos-patches@sources.redhat.com mailing list for the eCos project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Using ecosadmin.tcl with the latest Cygwin Tcl shell


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 ; \


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]