summaryrefslogtreecommitdiffstats
path: root/meta/recipes-devtools/expect/expect/0001-Replace-tclsh-with-tclsh8-in-the-scripts-used-in-the.patch
diff options
context:
space:
mode:
Diffstat (limited to 'meta/recipes-devtools/expect/expect/0001-Replace-tclsh-with-tclsh8-in-the-scripts-used-in-the.patch')
-rw-r--r--meta/recipes-devtools/expect/expect/0001-Replace-tclsh-with-tclsh8-in-the-scripts-used-in-the.patch474
1 files changed, 474 insertions, 0 deletions
diff --git a/meta/recipes-devtools/expect/expect/0001-Replace-tclsh-with-tclsh8-in-the-scripts-used-in-the.patch b/meta/recipes-devtools/expect/expect/0001-Replace-tclsh-with-tclsh8-in-the-scripts-used-in-the.patch
new file mode 100644
index 0000000000..edc511d159
--- /dev/null
+++ b/meta/recipes-devtools/expect/expect/0001-Replace-tclsh-with-tclsh8-in-the-scripts-used-in-the.patch
@@ -0,0 +1,474 @@
1From d6118fde9c8a7c49f042bc9dc434f56910c23d9c Mon Sep 17 00:00:00 2001
2From: Jiaying Song <jiaying.song.cn@windriver.com>
3Date: Wed, 25 Dec 2024 13:35:59 +0800
4Subject: [PATCH] Replace tclsh with tclsh8 in the scripts used in the Expect
5 package
6MIME-Version: 1.0
7Content-Type: text/plain; charset=UTF-8
8Content-Transfer-Encoding: 8bit
9
10As can be seen from the following, since Expect uses tcl8, it is necessary to
11change tclsh to tclsh8 in the related scripts, otherwise they will not execute.
12
13pkgIndex.tcl :
14if {![package vsatisfies [package provide Tcl] 8.6]} {return}
15package ifneeded Expect 5.45.4 \
16 [list load [file join /usr/lib64 libexpect5.45.4.so]]
17
18Upstream-Status: Inactive-Upstream
19
20Signed-off-by: Jiaying Song <jiaying.song.cn@windriver.com>
21---
22 example/archie | 2 +-
23 example/autoexpect | 2 +-
24 example/autopasswd | 2 +-
25 example/chess.exp | 2 +-
26 example/cryptdir | 2 +-
27 example/decryptdir | 2 +-
28 example/dislocate | 2 +-
29 example/dvorak | 2 +-
30 example/ftp-inband | 2 +-
31 example/ftp-rfc | 2 +-
32 example/gethostbyaddr | 2 +-
33 example/kibitz | 2 +-
34 example/lpunlock | 2 +-
35 example/mkpasswd | 2 +-
36 example/multixterm | 2 +-
37 example/passmass | 2 +-
38 example/read1char | 2 +-
39 example/rftp | 2 +-
40 example/rlogin-cwd | 2 +-
41 example/robohunt | 2 +-
42 example/rogue.exp | 2 +-
43 example/telnet-cwd | 2 +-
44 example/timed-read | 2 +-
45 example/timed-run | 2 +-
46 example/tknewsbiff | 2 +-
47 example/tkpasswd | 2 +-
48 example/tkterm | 2 +-
49 example/unbuffer | 2 +-
50 example/virterm | 2 +-
51 example/weather | 2 +-
52 example/xkibitz | 2 +-
53 example/xpstat | 2 +-
54 32 files changed, 32 insertions(+), 32 deletions(-)
55
56diff --git a/example/archie b/example/archie
57index 0d5f43f..0e8d11e 100755
58--- a/example/archie
59+++ b/example/archie
60@@ -1,7 +1,7 @@
61 #!/bin/sh
62 # -*- tcl -*-
63 # The next line is executed by /bin/sh, but not tcl \
64-exec tclsh "$0" ${1+"$@"}
65+exec tclsh8 "$0" ${1+"$@"}
66
67 package require Expect
68
69diff --git a/example/autoexpect b/example/autoexpect
70index 35e57ce..e5ea626 100755
71--- a/example/autoexpect
72+++ b/example/autoexpect
73@@ -1,7 +1,7 @@
74 #!/bin/sh
75 # -*- tcl -*-
76 # The next line is executed by /bin/sh, but not tcl \
77-exec tclsh "$0" ${1+"$@"}
78+exec tclsh8 "$0" ${1+"$@"}
79
80 package require Expect
81
82diff --git a/example/autopasswd b/example/autopasswd
83index 1d095e2..b87dcd4 100755
84--- a/example/autopasswd
85+++ b/example/autopasswd
86@@ -1,7 +1,7 @@
87 #!/bin/sh
88 # -*- tcl -*-
89 # The next line is executed by /bin/sh, but not tcl \
90-exec tclsh "$0" ${1+"$@"}
91+exec tclsh8 "$0" ${1+"$@"}
92
93 package require Expect
94
95diff --git a/example/chess.exp b/example/chess.exp
96index 7cbd8ff..450dd20 100755
97--- a/example/chess.exp
98+++ b/example/chess.exp
99@@ -1,7 +1,7 @@
100 #!/bin/sh
101 # -*- tcl -*-
102 # The next line is executed by /bin/sh, but not tcl \
103-exec tclsh "$0" ${1+"$@"}
104+exec tclsh8 "$0" ${1+"$@"}
105
106 package require Expect
107
108diff --git a/example/cryptdir b/example/cryptdir
109index 84a155b..c7bfc02 100755
110--- a/example/cryptdir
111+++ b/example/cryptdir
112@@ -1,7 +1,7 @@
113 #!/bin/sh
114 # -*- tcl -*-
115 # The next line is executed by /bin/sh, but not tcl \
116-exec tclsh "$0" ${1+"$@"}
117+exec tclsh8 "$0" ${1+"$@"}
118
119 package require Expect
120
121diff --git a/example/decryptdir b/example/decryptdir
122index 84a155b..c7bfc02 100755
123--- a/example/decryptdir
124+++ b/example/decryptdir
125@@ -1,7 +1,7 @@
126 #!/bin/sh
127 # -*- tcl -*-
128 # The next line is executed by /bin/sh, but not tcl \
129-exec tclsh "$0" ${1+"$@"}
130+exec tclsh8 "$0" ${1+"$@"}
131
132 package require Expect
133
134diff --git a/example/dislocate b/example/dislocate
135index 9d34180..b366933 100755
136--- a/example/dislocate
137+++ b/example/dislocate
138@@ -1,7 +1,7 @@
139 #!/bin/sh
140 # -*- tcl -*-
141 # The next line is executed by /bin/sh, but not tcl \
142-exec tclsh "$0" ${1+"$@"}
143+exec tclsh8 "$0" ${1+"$@"}
144
145 package require Expect
146
147diff --git a/example/dvorak b/example/dvorak
148index b5debc3..3789938 100755
149--- a/example/dvorak
150+++ b/example/dvorak
151@@ -1,7 +1,7 @@
152 #!/bin/sh
153 # -*- tcl -*-
154 # The next line is executed by /bin/sh, but not tcl \
155-exec tclsh "$0" ${1+"$@"}
156+exec tclsh8 "$0" ${1+"$@"}
157
158 package require Expect
159
160diff --git a/example/ftp-inband b/example/ftp-inband
161index 5a28302..d3392f4 100755
162--- a/example/ftp-inband
163+++ b/example/ftp-inband
164@@ -1,7 +1,7 @@
165 #!/bin/sh
166 # -*- tcl -*-
167 # The next line is executed by /bin/sh, but not tcl \
168-exec tclsh "$0" ${1+"$@"}
169+exec tclsh8 "$0" ${1+"$@"}
170
171 package require Expect
172
173diff --git a/example/ftp-rfc b/example/ftp-rfc
174index 4153b24..f02b3dc 100755
175--- a/example/ftp-rfc
176+++ b/example/ftp-rfc
177@@ -1,7 +1,7 @@
178 #!/bin/sh
179 # -*- tcl -*-
180 # The next line is executed by /bin/sh, but not tcl \
181-exec tclsh "$0" ${1+"$@"}
182+exec tclsh8 "$0" ${1+"$@"}
183
184 package require Expect
185
186diff --git a/example/gethostbyaddr b/example/gethostbyaddr
187index 513a330..803b667 100755
188--- a/example/gethostbyaddr
189+++ b/example/gethostbyaddr
190@@ -1,7 +1,7 @@
191 #!/bin/sh
192 # -*- tcl -*-
193 # The next line is executed by /bin/sh, but not tcl \
194-exec tclsh "$0" ${1+"$@"}
195+exec tclsh8 "$0" ${1+"$@"}
196
197 package require Expect
198
199diff --git a/example/kibitz b/example/kibitz
200index eacb139..7c73bf9 100755
201--- a/example/kibitz
202+++ b/example/kibitz
203@@ -1,7 +1,7 @@
204 #!/bin/sh
205 # -*- tcl -*-
206 # The next line is executed by /bin/sh, but not tcl \
207-exec tclsh "$0" ${1+"$@"}
208+exec tclsh8 "$0" ${1+"$@"}
209
210 package require Expect
211
212diff --git a/example/lpunlock b/example/lpunlock
213index 2b7ea24..e42224b 100755
214--- a/example/lpunlock
215+++ b/example/lpunlock
216@@ -1,7 +1,7 @@
217 #!/bin/sh
218 # -*- tcl -*-
219 # The next line is executed by /bin/sh, but not tcl \
220-exec tclsh "$0" ${1+"$@"}
221+exec tclsh8 "$0" ${1+"$@"}
222
223 package require Expect
224
225diff --git a/example/mkpasswd b/example/mkpasswd
226index 6016b56..c3e97f4 100755
227--- a/example/mkpasswd
228+++ b/example/mkpasswd
229@@ -1,7 +1,7 @@
230 #!/bin/sh
231 # -*- tcl -*-
232 # The next line is executed by /bin/sh, but not tcl \
233-exec tclsh "$0" ${1+"$@"}
234+exec tclsh8 "$0" ${1+"$@"}
235
236 package require Expect
237
238diff --git a/example/multixterm b/example/multixterm
239index d0abfe7..82d6651 100755
240--- a/example/multixterm
241+++ b/example/multixterm
242@@ -1,7 +1,7 @@
243 #!/bin/sh
244 # -*- tcl -*-
245 # The next line is executed by /bin/sh, but not tcl \
246-exec tclsh "$0" ${1+"$@"}
247+exec tclsh8 "$0" ${1+"$@"}
248
249 package require Expect
250
251diff --git a/example/passmass b/example/passmass
252index e3c18e6..8f396d3 100755
253--- a/example/passmass
254+++ b/example/passmass
255@@ -1,7 +1,7 @@
256 #!/bin/sh
257 # -*- tcl -*-
258 # The next line is executed by /bin/sh, but not tcl \
259-exec tclsh "$0" ${1+"$@"}
260+exec tclsh8 "$0" ${1+"$@"}
261
262 package require Expect
263
264diff --git a/example/read1char b/example/read1char
265index 43a3df8..5f947fd 100644
266--- a/example/read1char
267+++ b/example/read1char
268@@ -1,7 +1,7 @@
269 #!/bin/sh
270 # -*- tcl -*-
271 # The next line is executed by /bin/sh, but not tcl \
272-exec tclsh "$0" ${1+"$@"}
273+exec tclsh8 "$0" ${1+"$@"}
274
275 package require Expect
276
277diff --git a/example/rftp b/example/rftp
278index c5db679..ebbf4c5 100755
279--- a/example/rftp
280+++ b/example/rftp
281@@ -1,7 +1,7 @@
282 #!/bin/sh
283 # -*- tcl -*-
284 # The next line is executed by /bin/sh, but not tcl \
285-exec tclsh "$0" ${1+"$@"}
286+exec tclsh8 "$0" ${1+"$@"}
287
288 package require Expect
289
290diff --git a/example/rlogin-cwd b/example/rlogin-cwd
291index b217373..80863e7 100755
292--- a/example/rlogin-cwd
293+++ b/example/rlogin-cwd
294@@ -1,7 +1,7 @@
295 #!/bin/sh
296 # -*- tcl -*-
297 # The next line is executed by /bin/sh, but not tcl \
298-exec tclsh "$0" ${1+"$@"}
299+exec tclsh8 "$0" ${1+"$@"}
300
301 package require Expect
302
303diff --git a/example/robohunt b/example/robohunt
304index 853ce1e..0d70c87 100755
305--- a/example/robohunt
306+++ b/example/robohunt
307@@ -1,7 +1,7 @@
308 #!/bin/sh
309 # -*- tcl -*-
310 # The next line is executed by /bin/sh, but not tcl \
311-exec tclsh "$0" ${1+"$@"}
312+exec tclsh8 "$0" ${1+"$@"}
313
314 package require Expect
315
316diff --git a/example/rogue.exp b/example/rogue.exp
317index 083acdf..fb6f9ca 100755
318--- a/example/rogue.exp
319+++ b/example/rogue.exp
320@@ -1,7 +1,7 @@
321 #!/bin/sh
322 # -*- tcl -*-
323 # The next line is executed by /bin/sh, but not tcl \
324-exec tclsh "$0" ${1+"$@"}
325+exec tclsh8 "$0" ${1+"$@"}
326
327 package require Expect
328
329diff --git a/example/telnet-cwd b/example/telnet-cwd
330index bd16048..fa520f1 100755
331--- a/example/telnet-cwd
332+++ b/example/telnet-cwd
333@@ -1,7 +1,7 @@
334 #!/bin/sh
335 # -*- tcl -*-
336 # The next line is executed by /bin/sh, but not tcl \
337-exec tclsh "$0" ${1+"$@"}
338+exec tclsh8 "$0" ${1+"$@"}
339
340 package require Expect
341
342diff --git a/example/timed-read b/example/timed-read
343index 8e63f0f..0a4ee7d 100755
344--- a/example/timed-read
345+++ b/example/timed-read
346@@ -1,7 +1,7 @@
347 #!/bin/sh
348 # -*- tcl -*-
349 # The next line is executed by /bin/sh, but not tcl \
350-exec tclsh "$0" ${1+"$@"}
351+exec tclsh8 "$0" ${1+"$@"}
352
353 package require Expect
354
355diff --git a/example/timed-run b/example/timed-run
356index 80def48..a0a36ba 100755
357--- a/example/timed-run
358+++ b/example/timed-run
359@@ -1,7 +1,7 @@
360 #!/bin/sh
361 # -*- tcl -*-
362 # The next line is executed by /bin/sh, but not tcl \
363-exec tclsh "$0" ${1+"$@"}
364+exec tclsh8 "$0" ${1+"$@"}
365
366 package require Expect
367
368diff --git a/example/tknewsbiff b/example/tknewsbiff
369index 9a2da4b..8d9db19 100755
370--- a/example/tknewsbiff
371+++ b/example/tknewsbiff
372@@ -1,7 +1,7 @@
373 #!/bin/sh
374 # -*- tcl -*-
375 # The next line is executed by /bin/sh, but not tcl \
376-exec tclsh "$0" ${1+"$@"}
377+exec tclsh8 "$0" ${1+"$@"}
378
379 package require Expect
380 package require Tk
381diff --git a/example/tkpasswd b/example/tkpasswd
382index 376c56a..cc4d816 100755
383--- a/example/tkpasswd
384+++ b/example/tkpasswd
385@@ -1,7 +1,7 @@
386 #!/bin/sh
387 # -*- tcl -*-
388 # The next line is executed by /bin/sh, but not tcl \
389-exec tclsh "$0" ${1+"$@"}
390+exec tclsh8 "$0" ${1+"$@"}
391
392 package require Expect
393 package require Tk
394diff --git a/example/tkterm b/example/tkterm
395index 16ee972..6c85c63 100755
396--- a/example/tkterm
397+++ b/example/tkterm
398@@ -1,7 +1,7 @@
399 #!/bin/sh
400 # -*- tcl -*-
401 # The next line is executed by /bin/sh, but not tcl \
402-exec tclsh "$0" ${1+"$@"}
403+exec tclsh8 "$0" ${1+"$@"}
404
405 package require Expect
406 package require Tk
407diff --git a/example/unbuffer b/example/unbuffer
408index ad5db7b..f6e42fd 100755
409--- a/example/unbuffer
410+++ b/example/unbuffer
411@@ -1,7 +1,7 @@
412 #!/bin/sh
413 # -*- tcl -*-
414 # The next line is executed by /bin/sh, but not tcl \
415-exec tclsh "$0" ${1+"$@"}
416+exec tclsh8 "$0" ${1+"$@"}
417
418 package require Expect
419
420diff --git a/example/virterm b/example/virterm
421index bab254b..911c5bc 100755
422--- a/example/virterm
423+++ b/example/virterm
424@@ -1,7 +1,7 @@
425 #!/bin/sh
426 # -*- tcl -*-
427 # The next line is executed by /bin/sh, but not tcl \
428-exec tclsh "$0" ${1+"$@"}
429+exec tclsh8 "$0" ${1+"$@"}
430
431 package require Expect
432
433diff --git a/example/weather b/example/weather
434index 4bd0e1b..8146359 100755
435--- a/example/weather
436+++ b/example/weather
437@@ -1,7 +1,7 @@
438 #!/bin/sh
439 # -*- tcl -*-
440 # The next line is executed by /bin/sh, but not tcl \
441-exec tclsh "$0" ${1+"$@"}
442+exec tclsh8 "$0" ${1+"$@"}
443
444 package require Expect
445
446diff --git a/example/xkibitz b/example/xkibitz
447index b61a22f..5718976 100755
448--- a/example/xkibitz
449+++ b/example/xkibitz
450@@ -1,7 +1,7 @@
451 #!/bin/sh
452 # -*- tcl -*-
453 # The next line is executed by /bin/sh, but not tcl \
454-exec tclsh "$0" ${1+"$@"}
455+exec tclsh8 "$0" ${1+"$@"}
456
457 package require Expect
458
459diff --git a/example/xpstat b/example/xpstat
460index ebbfbcf..067d57e 100755
461--- a/example/xpstat
462+++ b/example/xpstat
463@@ -1,7 +1,7 @@
464 #!/bin/sh
465 # -*- tcl -*-
466 # The next line is executed by /bin/sh, but not tcl \
467-exec tclsh "$0" ${1+"$@"}
468+exec tclsh8 "$0" ${1+"$@"}
469
470 package require Expect
471
472--
4732.25.1
474