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]

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



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