diff options
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.patch | 474 |
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 @@ | |||
1 | From d6118fde9c8a7c49f042bc9dc434f56910c23d9c Mon Sep 17 00:00:00 2001 | ||
2 | From: Jiaying Song <jiaying.song.cn@windriver.com> | ||
3 | Date: Wed, 25 Dec 2024 13:35:59 +0800 | ||
4 | Subject: [PATCH] Replace tclsh with tclsh8 in the scripts used in the Expect | ||
5 | package | ||
6 | MIME-Version: 1.0 | ||
7 | Content-Type: text/plain; charset=UTF-8 | ||
8 | Content-Transfer-Encoding: 8bit | ||
9 | |||
10 | As can be seen from the following, since Expect uses tcl8, it is necessary to | ||
11 | change tclsh to tclsh8 in the related scripts, otherwise they will not execute. | ||
12 | |||
13 | pkgIndex.tcl : | ||
14 | if {![package vsatisfies [package provide Tcl] 8.6]} {return} | ||
15 | package ifneeded Expect 5.45.4 \ | ||
16 | [list load [file join /usr/lib64 libexpect5.45.4.so]] | ||
17 | |||
18 | Upstream-Status: Inactive-Upstream | ||
19 | |||
20 | Signed-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 | |||
56 | diff --git a/example/archie b/example/archie | ||
57 | index 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 | |||
69 | diff --git a/example/autoexpect b/example/autoexpect | ||
70 | index 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 | |||
82 | diff --git a/example/autopasswd b/example/autopasswd | ||
83 | index 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 | |||
95 | diff --git a/example/chess.exp b/example/chess.exp | ||
96 | index 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 | |||
108 | diff --git a/example/cryptdir b/example/cryptdir | ||
109 | index 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 | |||
121 | diff --git a/example/decryptdir b/example/decryptdir | ||
122 | index 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 | |||
134 | diff --git a/example/dislocate b/example/dislocate | ||
135 | index 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 | |||
147 | diff --git a/example/dvorak b/example/dvorak | ||
148 | index 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 | |||
160 | diff --git a/example/ftp-inband b/example/ftp-inband | ||
161 | index 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 | |||
173 | diff --git a/example/ftp-rfc b/example/ftp-rfc | ||
174 | index 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 | |||
186 | diff --git a/example/gethostbyaddr b/example/gethostbyaddr | ||
187 | index 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 | |||
199 | diff --git a/example/kibitz b/example/kibitz | ||
200 | index 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 | |||
212 | diff --git a/example/lpunlock b/example/lpunlock | ||
213 | index 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 | |||
225 | diff --git a/example/mkpasswd b/example/mkpasswd | ||
226 | index 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 | |||
238 | diff --git a/example/multixterm b/example/multixterm | ||
239 | index 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 | |||
251 | diff --git a/example/passmass b/example/passmass | ||
252 | index 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 | |||
264 | diff --git a/example/read1char b/example/read1char | ||
265 | index 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 | |||
277 | diff --git a/example/rftp b/example/rftp | ||
278 | index 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 | |||
290 | diff --git a/example/rlogin-cwd b/example/rlogin-cwd | ||
291 | index 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 | |||
303 | diff --git a/example/robohunt b/example/robohunt | ||
304 | index 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 | |||
316 | diff --git a/example/rogue.exp b/example/rogue.exp | ||
317 | index 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 | |||
329 | diff --git a/example/telnet-cwd b/example/telnet-cwd | ||
330 | index 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 | |||
342 | diff --git a/example/timed-read b/example/timed-read | ||
343 | index 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 | |||
355 | diff --git a/example/timed-run b/example/timed-run | ||
356 | index 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 | |||
368 | diff --git a/example/tknewsbiff b/example/tknewsbiff | ||
369 | index 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 | ||
381 | diff --git a/example/tkpasswd b/example/tkpasswd | ||
382 | index 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 | ||
394 | diff --git a/example/tkterm b/example/tkterm | ||
395 | index 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 | ||
407 | diff --git a/example/unbuffer b/example/unbuffer | ||
408 | index 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 | |||
420 | diff --git a/example/virterm b/example/virterm | ||
421 | index 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 | |||
433 | diff --git a/example/weather b/example/weather | ||
434 | index 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 | |||
446 | diff --git a/example/xkibitz b/example/xkibitz | ||
447 | index 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 | |||
459 | diff --git a/example/xpstat b/example/xpstat | ||
460 | index 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 | -- | ||
473 | 2.25.1 | ||
474 | |||