This is the mail archive of the
ecos-patches@sources.redhat.com
mailing list for the eCos project.
changes for tcl files for new cygwin tcl
- From: "Tim Michals" <t dot michals at attbi dot com>
- To: <ecos-patches at sources dot redhat dot com>
- Date: Sat, 18 Jan 2003 19:20:02 -0600
- Subject: changes for tcl files for new cygwin tcl
Here are the script changes, also, what is the format for including comments
to the changelog?
Also did the mips-mips.ld changes ever get put in?
<changes>
./ecosadmin.tcl
Index: ecosadmin.tcl
===================================================================
RCS file: /cvs/ecos/ecos/packages/ecosadmin.tcl,v
retrieving revision 1.10
diff -u -5 -p -r1.10 ecosadmin.tcl
--- ecosadmin.tcl 24 Oct 2002 03:16:54 -0000 1.10
+++ ecosadmin.tcl 19 Jan 2003 01:12:53 -0000
@@ -2,10 +2,12 @@
# these lines restart using the tcl shell \
exec sh -c "if ( echo | tclsh ) 2>/dev/null ; then \
exec tclsh \"${0}\" ${1+${*}} ; \
elif ( echo | cygtclsh80 ) 2>/dev/null ; then \
exec cygtclsh80 \"${0}\" ${1+${*}} ; \
+ elif ( echo | tclsh83 ) 2>/dev/null ; then \
+ exec tclsh83 \"${0}\" \"\`echo \\\"\\\`cygpath -w \\\"${1}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" \"\`echo \\\"\\\`cygpath -w \\\"${2}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" ; \
else \
echo Could not find TCL interpreter ; \
exit 1 ; \
fi"
Index: ./fs/rom/current/support/file2c.tcl
===================================================================
RCS file: /cvs/ecos/ecos/packages/fs/rom/current/support/file2c.tcl,v
retrieving revision 1.3
diff -u -5 -p -r1.3 file2c.tcl
--- ./fs/rom/current/support/file2c.tcl 23 May 2002 23:01:40 -0000 1.3
+++ ./fs/rom/current/support/file2c.tcl 19 Jan 2003 01:12:54 -0000
@@ -2,10 +2,12 @@
# these lines restart using the tcl shell \
exec sh -c "if ( echo | tclsh ) 2>/dev/null ; then \
exec tclsh \"${0}\" ${1+${*}} ; \
elif ( echo | cygtclsh80 ) 2>/dev/null ; then \
exec cygtclsh80 \"${0}\" ${1+${*}} ; \
+ elif ( echo | tclsh83 ) 2>/dev/null ; then \
+ exec tclsh83 \"${0}\" \"\`echo \\\"\\\`cygpath -w \\\"${1}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" \"\`echo \\\"\\\`cygpath -w \\\"${2}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" ; \
else \
echo Could not find TCL interpreter ; \
exit 1 ; \
fi"
Index: ./hal/arm/aeb/current/src/flash_cksum.tcl
===================================================================
RCS file: /cvs/ecos/ecos/packages/hal/arm/aeb/current/src/flash_cksum.tcl,v
retrieving revision 1.7
diff -u -5 -p -r1.7 flash_cksum.tcl
--- ./hal/arm/aeb/current/src/flash_cksum.tcl 23 May 2002 23:01:41 -0000 1.7
+++ ./hal/arm/aeb/current/src/flash_cksum.tcl 19 Jan 2003 01:12:55 -0000
@@ -2,10 +2,12 @@
# these lines restart using the tcl shell \
exec sh -c "if ( echo | tclsh ) 2>/dev/null ; then \
exec tclsh \"${0}\" ${1+${*}} ; \
elif ( echo | cygtclsh80 ) 2>/dev/null ; then \
exec cygtclsh80 \"${0}\" ${1+${*}} ; \
+ elif ( echo | tclsh83 ) 2>/dev/null ; then \
+ exec tclsh83 \"${0}\" \"\`echo \\\"\\\`cygpath -w \\\"${1}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" \"\`echo \\\"\\\`cygpath -w \\\"${2}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" ; \
else \
echo Could not find TCL interpreter ; \
exit 1 ; \
fi"
Index: ./hal/arm/e7t/current/src/flash_cksum.tcl
===================================================================
RCS file: /cvs/ecos/ecos/packages/hal/arm/e7t/current/src/flash_cksum.tcl,v
retrieving revision 1.3
diff -u -5 -p -r1.3 flash_cksum.tcl
--- ./hal/arm/e7t/current/src/flash_cksum.tcl 23 May 2002 23:01:54 -0000 1.3
+++ ./hal/arm/e7t/current/src/flash_cksum.tcl 19 Jan 2003 01:12:56 -0000
@@ -2,10 +2,12 @@
# these lines restart using the tcl shell \
exec sh -c "if ( echo | tclsh ) 2>/dev/null ; then \
exec tclsh \"${0}\" ${1+${*}} ; \
elif ( echo | cygtclsh80 ) 2>/dev/null ; then \
exec cygtclsh80 \"${0}\" ${1+${*}} ; \
+ elif ( echo | tclsh83 ) 2>/dev/null ; then \
+ exec tclsh83 \"${0}\" \"\`echo \\\"\\\`cygpath -w \\\"${1}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" \"\`echo \\\"\\\`cygpath -w \\\"${2}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" ; \
else \
echo Could not find TCL interpreter ; \
exit 1 ; \
fi"
Index: ./hal/mips/ref4955/current/misc/slow_cat.tcl
===================================================================
RCS file:
/cvs/ecos/ecos/packages/hal/mips/ref4955/current/misc/slow_cat.tcl,v
retrieving revision 1.1
diff -u -5 -p -r1.1 slow_cat.tcl
--- ./hal/mips/ref4955/current/misc/slow_cat.tcl 3 Nov 2000 21:17:42 -0000
1.1
+++ ./hal/mips/ref4955/current/misc/slow_cat.tcl 19 Jan 2003 01:12:59 -0000
@@ -2,10 +2,12 @@
# these lines restart using the tcl shell \
exec sh -c "if ( echo | tclsh ) 2>/dev/null ; then \
exec tclsh \"${0}\" ${1+${*}} ; \
elif ( echo | cygtclsh80 ) 2>/dev/null ; then \
exec cygtclsh80 \"${0}\" ${1+${*}} ; \
+ elif ( echo | tclsh83 ) 2>/dev/null ; then \
+ exec tclsh83 \"${0}\" \"\`echo \\\"\\\`cygpath -w \\\"${1}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" \"\`echo \\\"\\\`cygpath -w \\\"${2}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" ; \
else \
echo Could not find TCL interpreter ; \
exit 1 ; \
fi"
Index: ./hal/mips/ref4955/current/misc/swap4.tcl
===================================================================
RCS file: /cvs/ecos/ecos/packages/hal/mips/ref4955/current/misc/swap4.tcl,v
retrieving revision 1.1
diff -u -5 -p -r1.1 swap4.tcl
--- ./hal/mips/ref4955/current/misc/swap4.tcl 3 Nov 2000 21:17:42 -0000 1.1
+++ ./hal/mips/ref4955/current/misc/swap4.tcl 19 Jan 2003 01:13:00 -0000
@@ -2,10 +2,12 @@
# these lines restart using the tcl shell \
exec sh -c "if ( echo | tclsh ) 2>/dev/null ; then \
exec tclsh \"${0}\" ${1+${*}} ; \
elif ( echo | cygtclsh80 ) 2>/dev/null ; then \
exec cygtclsh80 \"${0}\" ${1+${*}} ; \
+ elif ( echo | tclsh83 ) 2>/dev/null ; then \
+ exec tclsh83 \"${0}\" \"\`echo \\\"\\\`cygpath -w \\\"${1}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" \"\`echo \\\"\\\`cygpath -w \\\"${2}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" ; \
else \
echo Could not find TCL interpreter ; \
exit 1 ; \
fi"
Index: ./services/memalloc/common/current/src/heapgen.tcl
===================================================================
RCS file:
/cvs/ecos/ecos/packages/services/memalloc/common/current/src/heapgen.tcl,v
retrieving revision 1.6
diff -u -5 -p -r1.6 heapgen.tcl
--- ./services/memalloc/common/current/src/heapgen.tcl 23 May 2002
23:08:44 -0000 1.6
+++ ./services/memalloc/common/current/src/heapgen.tcl 19 Jan 2003
01:13:12 -0000
@@ -1,9 +1,11 @@
#!/bin/sh
# these lines restart using the tcl shell \
exec sh -c "if ( echo | cygtclsh80 ) 2>/dev/null ; then \
exec cygtclsh80 \"${0}\" \"\`echo \\\"\\\`cygpath -w \\\"${1}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" \"\`echo \\\"\\\`cygpath -w \\\"${2}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" ; \
+ elif ( echo | tclsh83 ) 2>/dev/null ; then \
+ exec tclsh83 \"${0}\" \"\`echo \\\"\\\`cygpath -w \\\"${1}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" \"\`echo \\\"\\\`cygpath -w \\\"${2}\\\"
\\\`\\\" |sed 's#\\\\\\\\#/#g'\`\" ; \
elif ( echo | tclsh ) 2>/dev/null ; then \
exec tclsh \"${0}\" ${1+${*}} ; \
else \
echo Could not find TCL interpreter ; \
exit 1 ; \