Fossil SCM

Update autosetup to the latest version - https://github.com/msteveb/autosetup/commit/e2a8949b420 .

dan 2011-07-14 14:34 trunk
Commit a4efad7e61f2b997c7498f8acfc3fda7f004d541
Parent 831306e11b42cbc…
6 files changed +1 -64 +1 -1 +5 -6 +245 -132 +11 -5 +2 -1
~ autosetup/autosetup ~ autosetup/cc.tcl ~ autosetup/find-tclsh ~ autosetup/jimsh0.c ~ autosetup/test-tclsh ~ configure
M autosetup/autosetup
+1 -64
--- a/autosetup/autosetup
+++ b/autosetup/autosetup
@@ -1,67 +1,4 @@
11
 #!/bin/sh
2
-4 => "create an initiaefine
3
- } else {
4
- return $alias
5
- }[error-location $msg]use cc cc-sharedupleve`"$dir/find-tclshexec $($(dirname "$0"bin/sh
6
-${m}.tcl
7
-uplevel #0 [list source $source]put2put3 "Looking for $source"![string m 2>/dev/null} {
8
- set create_configure 1Use --initset cre#!/bin/sh
9
-4 => "creat # Jim uses system() for exec under mingw, so
10
- # we need to fetch the output ourselves
11
- set tmpfile auto[format %04x [rand 10000]].tmp
12
- set rc [catch [list exec {*}$readfile $tmpfile]
13
- file delete $tmpfile
14
- return -code $rc $result breakn/sh
15
-4 => "create an in"create an initial 'c[lrange $argv $i end]`"$dir/find-tclsh" || echo false`autoconf-hsh
16
-4 => "create an initial 'confbool init]$source#!/bin/sh
17
-parray define
18
- } else {
19
- return $alias
20
- }[error-location $msg]use cc cc-shareduplevel #0#!/bin/sh
21
-${m}.tcl
22
-uplevel #0 [list source $source]put2put3 m 2>/dev/nullcreate_configure 1Use --initset cre#!/bin/sh
23
-4 => "creat # Jim uses system() for exec under mingw, so
24
- # we need to fetch the output ourselves
25
- set tmpfile auto[format %04x [rand 10000]].tmp
26
- set rc [catch [list exec {*}$readfile $tmpfile]
27
- file delete $tmpfile
28
- return -code $rc $result!/bin/sh
29
-4 => "create anbool install]} {
30
- if {[catch {mp
31
- set rc [catch [list exec {*}$readfile $tmpfile]
32
- file delete $tmpfile
33
- return -code $rc $result breakn/sh
34
-4 => "create an in"create an initial 'c[lrange $argv $i end]`"$dir/find-tclsh" || echo false`autoconf-hsh
35
-4 => "create an initial 'confbool init]$source#!/bin/sh
36
-parray define
37
- } else {
38
- return $alias
39
- }[error-location $msg]use cc cc-shareduplevel #0#!/bin/sh
40
-${m}.tcl
41
-uplevel #0 [list source $source]put2put3 m 2>/dev/nullcreate_configure 1Use --initset cre#!/bin/sh
42
-4 => "creat # Jim uses system() for exec under mingw, so
43
- # we need to fetch the output ourselves
44
- set tmpfile auto[format %04x [rand 10000]].tmp
45
- set rc [catch [list exec {*}$readfile $tmpfile]
46
- file delete $tmpfile
47
- return -code $rc $result!/bin/sh
48
-4 => "create anbool install]} {
49
- if {[catch {#!/bn initial 'c[lrange $argv $i end]`"$dir/find-tclsh" || echo false`autoconf-hsh
50
-4 => "create an initial 'confbool init]$source#!/bin/sh
51
-parray define
52
- } else {
53
- return $alias
54
- }[error-location $msg]use cc cc-shareduplevel #0#!/bin/sh
55
-${m}.tcl
56
-uplevel #0 [list source $source]put2put3 m 2>/dev/nullcreate_configure 1Use --initset cre#!/bin/sh
57
-4 => "creat # Jim uses system() for exec under mingw, so
58
- # we need to fetch the output ourselves
59
- set tmpfile auto[format %04x [rand 10000]].tmp
60
- set rc [catch [list exec {*}$readfile $tmpfile]
61
- file delete $tmpfile
62
- return -code $rc $result!/bin/sh
63
-4 => "create anbool install]} {
64
- if {[catch {#!/bin/sh
652
 4 => "create an initiaefine
663
 } else {
674
 return $alias
@@ -90,4 +27,4 @@
9027
 file delete $tmpfile
9128
 return -code $rc $result!/bin/sh
9229
 4 => "create anbool install]} {
93
- if {[catch {miscini$(dirname "$0")$()0 &&
30
+ if {[catch {
--- a/autosetup/autosetup
+++ b/autosetup/autosetup
@@ -1,67 +1,4 @@
1 #!/bin/sh
2 4 => "create an initiaefine
3 } else {
4 return $alias
5 }[error-location $msg]use cc cc-sharedupleve`"$dir/find-tclshexec $($(dirname "$0"bin/sh
6 ${m}.tcl
7 uplevel #0 [list source $source]put2put3 "Looking for $source"![string m 2>/dev/null} {
8 set create_configure 1Use --initset cre#!/bin/sh
9 4 => "creat # Jim uses system() for exec under mingw, so
10 # we need to fetch the output ourselves
11 set tmpfile auto[format %04x [rand 10000]].tmp
12 set rc [catch [list exec {*}$readfile $tmpfile]
13 file delete $tmpfile
14 return -code $rc $result breakn/sh
15 4 => "create an in"create an initial 'c[lrange $argv $i end]`"$dir/find-tclsh" || echo false`autoconf-hsh
16 4 => "create an initial 'confbool init]$source#!/bin/sh
17 parray define
18 } else {
19 return $alias
20 }[error-location $msg]use cc cc-shareduplevel #0#!/bin/sh
21 ${m}.tcl
22 uplevel #0 [list source $source]put2put3 m 2>/dev/nullcreate_configure 1Use --initset cre#!/bin/sh
23 4 => "creat # Jim uses system() for exec under mingw, so
24 # we need to fetch the output ourselves
25 set tmpfile auto[format %04x [rand 10000]].tmp
26 set rc [catch [list exec {*}$readfile $tmpfile]
27 file delete $tmpfile
28 return -code $rc $result!/bin/sh
29 4 => "create anbool install]} {
30 if {[catch {mp
31 set rc [catch [list exec {*}$readfile $tmpfile]
32 file delete $tmpfile
33 return -code $rc $result breakn/sh
34 4 => "create an in"create an initial 'c[lrange $argv $i end]`"$dir/find-tclsh" || echo false`autoconf-hsh
35 4 => "create an initial 'confbool init]$source#!/bin/sh
36 parray define
37 } else {
38 return $alias
39 }[error-location $msg]use cc cc-shareduplevel #0#!/bin/sh
40 ${m}.tcl
41 uplevel #0 [list source $source]put2put3 m 2>/dev/nullcreate_configure 1Use --initset cre#!/bin/sh
42 4 => "creat # Jim uses system() for exec under mingw, so
43 # we need to fetch the output ourselves
44 set tmpfile auto[format %04x [rand 10000]].tmp
45 set rc [catch [list exec {*}$readfile $tmpfile]
46 file delete $tmpfile
47 return -code $rc $result!/bin/sh
48 4 => "create anbool install]} {
49 if {[catch {#!/bn initial 'c[lrange $argv $i end]`"$dir/find-tclsh" || echo false`autoconf-hsh
50 4 => "create an initial 'confbool init]$source#!/bin/sh
51 parray define
52 } else {
53 return $alias
54 }[error-location $msg]use cc cc-shareduplevel #0#!/bin/sh
55 ${m}.tcl
56 uplevel #0 [list source $source]put2put3 m 2>/dev/nullcreate_configure 1Use --initset cre#!/bin/sh
57 4 => "creat # Jim uses system() for exec under mingw, so
58 # we need to fetch the output ourselves
59 set tmpfile auto[format %04x [rand 10000]].tmp
60 set rc [catch [list exec {*}$readfile $tmpfile]
61 file delete $tmpfile
62 return -code $rc $result!/bin/sh
63 4 => "create anbool install]} {
64 if {[catch {#!/bin/sh
65 4 => "create an initiaefine
66 } else {
67 return $alias
@@ -90,4 +27,4 @@
90 file delete $tmpfile
91 return -code $rc $result!/bin/sh
92 4 => "create anbool install]} {
93 if {[catch {miscini$(dirname "$0")$()0 &&
--- a/autosetup/autosetup
+++ b/autosetup/autosetup
@@ -1,67 +1,4 @@
1 #!/bin/sh
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
2 4 => "create an initiaefine
3 } else {
4 return $alias
@@ -90,4 +27,4 @@
27 file delete $tmpfile
28 return -code $rc $result!/bin/sh
29 4 => "create anbool install]} {
30 if {[catch {
M autosetup/cc.tcl
+1 -1
--- a/autosetup/cc.tcl
+++ b/autosetup/cc.tcl
@@ -311,4 +311,4 @@
311311
 # C *-*-darwin* {
312312
 # Don't-gstabs
313313
 }
314
- }$value$valuecc-check-tools ld.o {CC_FOR_BUILD ccACHE
314
+ }$value$valuecc-check-tools ld.o
--- a/autosetup/cc.tcl
+++ b/autosetup/cc.tcl
@@ -311,4 +311,4 @@
311 # C *-*-darwin* {
312 # Don't-gstabs
313 }
314 }$value$valuecc-check-tools ld.o {CC_FOR_BUILD ccACHE
--- a/autosetup/cc.tcl
+++ b/autosetup/cc.tcl
@@ -311,4 +311,4 @@
311 # C *-*-darwin* {
312 # Don't-gstabs
313 }
314 }$value$valuecc-check-tools ld.o
M autosetup/find-tclsh
+5 -6
--- a/autosetup/find-tclsh
+++ b/autosetup/find-tclsh
@@ -1,10 +1,9 @@
11
 #!/bin/sh
2
-# Looks for a suitable tclsh or jimsh in the PATH
3
-# If not foundstrap jimsh d=$(dirname "$0")&imsh0"
4
-for cc in tcl6 tclsh8.5 jimsh0; do
5
- 1>&2 "No installed jimbin/sh
62
 # Looks for a suitable tclsh or jimsh in the PATH
73
 # If not foundstrap jimsh d=`dirname "$0"`
84
 { "$d/jimshd/${1-ac"; } 2>&imsh0"
9
-for cc#!/bin/sh
10
-# Looks for a suitable
5
+for cc in tclsh8.7; do
6
+ jimsh0-tclsh}"; } 2>/devexit 0
7
+done
8
+echo 1>&2 "No installed jimsh or tclsh, building local bootstrap jimsh0"
9
+for cc in ${CC_FOR_BUILD:-PATH="$PATH:$d2>/dev/null
--- a/autosetup/find-tclsh
+++ b/autosetup/find-tclsh
@@ -1,10 +1,9 @@
1 #!/bin/sh
2 # Looks for a suitable tclsh or jimsh in the PATH
3 # If not foundstrap jimsh d=$(dirname "$0")&imsh0"
4 for cc in tcl6 tclsh8.5 jimsh0; do
5 1>&2 "No installed jimbin/sh
6 # Looks for a suitable tclsh or jimsh in the PATH
7 # If not foundstrap jimsh d=`dirname "$0"`
8 { "$d/jimshd/${1-ac"; } 2>&imsh0"
9 for cc#!/bin/sh
10 # Looks for a suitable
 
 
 
--- a/autosetup/find-tclsh
+++ b/autosetup/find-tclsh
@@ -1,10 +1,9 @@
1 #!/bin/sh
 
 
 
 
2 # Looks for a suitable tclsh or jimsh in the PATH
3 # If not foundstrap jimsh d=`dirname "$0"`
4 { "$d/jimshd/${1-ac"; } 2>&imsh0"
5 for cc in tclsh8.7; do
6 jimsh0-tclsh}"; } 2>/devexit 0
7 done
8 echo 1>&2 "No installed jimsh or tclsh, building local bootstrap jimsh0"
9 for cc in ${CC_FOR_BUILD:-PATH="$PATH:$d2>/dev/null
M autosetup/jimsh0.c
+245 -132
--- a/autosetup/jimsh0.c
+++ b/autosetup/jimsh0.c
@@ -1,134 +1,4 @@
11
 3cl. See http://jim.berlios.de/ */
2
-#define _GNU_SOURCEREFERENCES single source file,/* This is single source file, bootstrap version of Jim Tcl. See http://jim.tcl.tk/ */
3
-#define JIM_TCL_COMPAT_H
4
-#define TCL_LIBRARY "."
5
-#define jim_ext_stdlib
6
-#define jimregexpxec
7
-#define jim_efilexec
8
-#define jim_eexecxec
9
-#define jim_eclockxec
10
-#define jim_ee TCL_PLATFORM_OS "windows"
11
-#define TCL_PLATFORM_PLATFORM "windows"
12
-#define TCL_PLATFORM_PATH_SEPARATOR ";"
13
-#define HAVE_MKDIR_ONE_ARG
14
-#define HAVE_SYSTEM
15
-#elif defined(__MINGW32__)
16
-#defi HAVE_DIRENT_H
17
-#define HAVE_UNISTD_H
18
-#define HAVE_UMASK
19
-#include RM_PATH_SEPARMKSTEMP
20
-#define HAVE_LINK
21
-#define HAVE_SYS_TIME_H
22
-#define HAVE_DITFORM "unix"
23
-#defin http://jim.berlios.de/ */
24
-#define _GNU_SOURCEREFERENCES single source file,/* /**
25
- * UTF-8 utility functions
26
- *
27
- * (c) 2010 Steve Bennett <[email protected]>
28
- *
29
- * See LICENCE for licence details.
30
- */
31
-
32
-/**
33
- * Converts the given unicode codepoint (0 - 0xffff) to utf-8
34
- * and stores the result at 'p'.
35
- *
36
- * Returns the number of utf-8 characters (1-3).
37
- */
38
-intJim Tcl. See http://jim.tcl.tk/ */
39
-#define JIM_TCL_COMPAT_H
40
-#define/* No utf-8 support. 1 byte = 1 char */
41
-#define utf8_strlen(S, B) TCL_LIBRARY "."
42
-#define j
43
-#defineS, CP) (*(CP) = #define jim_eexecxec
44
-#define jim_eclockxec
45
-#define jim_ee TCL_PLATFORM_OS "windows"
46
-#define TCL_PLATFORM_PLATFORM "windows"
47
-#define TCL_PLAT/**
48
- * Returns the length of the utf-8 sequence starting with 'c'.
49
- *
50
- * Returns 1-4, or -1 if this is not a valid start byte.
51
- *
52
- * Note that charlen=4 is not supported by the rest of the API.
53
- */
54
-int utf8_charlen(int c);
55
-
56
-/**
57
- * Returns the number of characters in the utf-8
58
- * string of the given byte length.
59
- *
60
- * Any bytes which are not part of an valid utf-8
61
- * sequence are treated as individual characters.
62
- *
63
- * The string *must* be null terminated.
64
- *
65
- * Does not support unicode code points > \uffff
66
- */
67
-int utf8_strlen(bytelen);
68
-oint corresponding to the
69
- * utf-8 sequence 'str'.
70
- *
71
- * Stores the result in *uc and returns the number of bytes
72
- * consumed.
73
- *
74
- * If 'str' is null terminated, then an invalid utf-8 sequence
75
- * at the end of the string will be returned as individual bytes.
76
- *
77
- * If it is not null terminated, the length *must* be checked first.
78
- *
79
- * Does not support unicode c*uc);
80
-
81
-/**
82
- * Returns the number of bytes before 'str' that the previous
83
- * utf-8 character sequence starts (which may be the middle of a sequence).
84
- *
85
- * Looks back at most 'len' bytes backwards, which must be > 0.
86
- * If no start char is found, returns -len
87
- */
88
-int utf8_prev_len(
89
-/**
90
- * Returns the upper-case variant of the given unicode codepoint.
91
- *
92
- * Does not support unicode code points > \uffff
93
- */
94
-int utf8_upper(int uc);
95
-
96
-/**
97
- * Returns the lower-case variant of the given unicode codepoint.
98
- *
99
- * NOTE: Use utf8_upper() in preference for case-insensitive matching.
100
- *
101
- * Does not support unicode code points > \uffff
102
- */
103
-int utf8_lower(int uc);
104
-
105
-#endif
106
-
107
-#endif
108
-/* Jim - A small embeddable Tcl interpreter
109
- *
110
- * Copyright 2005 Salvatore Sanfilippo <[email protected]>
111
- * Copyright 2005 Clemens Hintze <[email protected]>
112
- * Copyright 2005 patthoyts - Pat Thoyts <[email protected]>
113
- * Copyright 2008 oharboe - �yvind Harboe - [email protected]
114
- * Copyright 2008 Andrew Lunn <[email protected]>
115
- * Copyright 2008 Duane Ellis <[email protected]>
116
- * Copyright 2008 Uwe Klein <[email protected]>
117
- *
118
- * Redistribution and use in source and binary forms, with or without
119
- * modification, are permitted provided that the following conditions
120
- * are met:
121
- *
122
- * 1. Redistributions of source code must retain the above copyright
123
- * notice, this list of conditions and the following disclaimer.
124
- * 2. Redistributions in binary form must reproduce the above
125
- * copyright notice, this list of conditions and the following
126
- * disclaimer in the documentation and/or other materials
127
- * provided with the distribution.
128
- *
129
- * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY
130
- * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
131
- * THE IMPLIED WARRANTIES OF MERCHANTABILI3cl. See http:Jim_aioInit(interpJim_globInit(interpJim_fileInit(interpJim_clockInit(interparrayint argsLenJim Tcl. See htt3cl. See http://jim.berlios.dscript ?3cl. See http://jim.berlios.de/ */
1322
 #define _GNU_SOURCEREFERENCES single source file,/* This is single source file, bootstrap version of Jim Tcl. See http://jim.tcl.tk/ */
1333
 #define JIM_TCL_COMPAT_H
1344
 #define TCL_LIBRARY "."
@@ -271,5 +141,248 @@
271141
 *
272142
 * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY
273143
 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
274
- * THE IMPLIED WARRANTIES OF MERCHANTABILI3cl. See http://jim.berlios.de/ */
275
-3cl. See http://jim.berlios.d
144
+ * THE IMPLIED WARRANTIES OF MERCHANTABILIfine/* No utf-8 support. 1 byte = 1 char */
145
+#define utf8_strlen(S, B) TCL_LIBRARY "."
146
+#define j
147
+#defineS, CP) (*(CP) = #define jim_eexecxec
148
+#define jim_eclockxec
149
+#define jim_ee TCL_PLATFORM_OS "windows"
150
+#define TCL_PLATFORM_PLATFORM "windows"
151
+#define TCL_PLAT/**
152
+ * Returns the length of the utf-8 sequence starting with 'c'.
153
+ *
154
+ * Returns 1-4, or -1 if this is not a valid start byte.
155
+ *
156
+ * Note that charlen=4 is not supported by the rest of the API.
157
+ */
158
+int utf8_charlen(int c);
159
+
160
+/**
161
+ * Returns the number of characters in the utf-8
162
+ * string of the given byte length.
163
+ *
164
+ * Any bytes which are not part of an valid utf-8
165
+ * sequence are treated as individual characters.
166
+ *
167
+ * The string *must* be null terminated.
168
+ *
169
+ * Does not support unicode code points > \uffff
170
+ */
171
+int utf8_strlen(bytelen);
172
+
173
+/**
174
+ * Returns the byte index of the given character in the utf-8 string.
175
+ *
176
+ * The string *must* be null terminated.
177
+ *
178
+ * This will return the byte length of a utf-8 string
179
+ * if given the char charindex);
180
+
181
+/**
182
+ * Returns the unicode codepoint corresponding to the
183
+ * utf-8 sequence 'str'.
184
+ *
185
+ * Stores the result in *uc and returns the number of bytes
186
+ * consumed.
187
+ *
188
+ * If 'str' is null terminated, then an invalid utf-8 sequence
189
+ * at the end of the string will be returned as individual bytes.
190
+ *
191
+ * If it is not null terminated, the length *must* be checked first.
192
+ *
193
+ * Does not support unicode c*uc);
194
+
195
+/**
196
+ * Returns the number of bytes before 'str' that the previous
197
+ * utf-8 character sequence starts (which may be the middle of a sequence).
198
+ *
199
+ * Looks back at most 'len' bytes backwards, which must be > 0.
200
+ * If no start char is found, returns -len
201
+ */
202
+int utf8_prev_len(
203
+/**
204
+ * Returns the upper-case variant of the given unicode codepoint.
205
+ *
206
+ * Does not support unicode code points > \uffff
207
+ */
208
+int utf8_upper(int uc);
209
+
210
+/**
211
+ * Returns the lower-case variant of the given unicode codepoint.
212
+ *
213
+ * NOTE: Use utf8_upper() in preference for case-insensitive matching.
214
+ *
215
+ * Does not support unicode code points > \uffff
216
+ */
217
+int utf8_lower(int uc);
218
+
219
+#endif
220
+
221
+#endif
222
+/* Jim - A small embeddable Tcl interpreter
223
+ *
224
+ * Copyright 2005 Salvatore Sanfilippo <[email protected]>
225
+ * Copyright 2005 Clemens Hintze <[email protected]>
226
+ * Copyright 2005 patthoyts - Pat Thoyts <[email protected]>
227
+ * Copyright 2008 oharboe - �yvind Harboe - [email protected]
228
+ * Copyright 2008 Andrew Lunn <[email protected]>
229
+ * Copyright 2008 Duane Ellis <[email protected]>
230
+ * Copyright 2008 Uwe Klein <[email protected]>
231
+ *
232
+ * Redistribution and use in source and binary forms, with or without
233
+ * modification, are permitted provided that the following conditions
234
+ * are met:
235
+ *
236
+ * 1. Redistributions of source code must retain the above copyright
237
+ * notice, this list of conditions and the following disclaimer.
238
+ * 2. Redistributions in binary form must reproduce the above
239
+ * copyright notice, this list of conditions and the following
240
+ * disclaimer in the documentation and/or other materials
241
+ * provided with the distribution.
242
+ *
243
+ * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY
244
+ * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
245
+ * THE IMPLIED WARRANTIES OF MERCHANTABILI3cl. See http:Jim_aioInit(interpJim_globInit(interpJim_fileInit(interpJim_clockInit(interparrayint argsLenJim Tcl. See htt3cl. See http://jim.berlios.dscript ?3cl. See http://jim.berlios.de/ */
246
+#define _GNU_SOURCEREFERENCES single source file,/* This is single source file, bootstrap version of Jim Tcl. See http://jim.tcl.tk/ */
247
+#define JIM_TCL_COMPAT_H
248
+#define TCL_LIBRARY "."
249
+#define jim_ext_stdlib
250
+#define jimregexpxec
251
+#define jim_efilexec
252
+#define jim_eexecxec
253
+#define jim_eclockxec
254
+#define jim_ee TCL_PLATFORM_OS "windows"
255
+#define TCL_PLATFORM_PLATFORM "windows"
256
+#define TCL_PLATFORM_PATH_SEPARATOR ";"
257
+#define HAVE_MKDIR_ONE_ARG
258
+#define HAVE_SYSTEM
259
+#elif defined(__MINGW32__)
260
+#defi HAVE_DIRENT_H
261
+#define HAVE_UNISTD_H
262
+#define HAVE_UMASK
263
+#include elseSEPARATOR ":"
264
+#ifdef _ATFORM_PLATFORM "unix"
265
+#define TCL_PLATFORM_PATH_SEPARMKSTEMP
266
+#define HAVE_LINK
267
+#define HAVE_SYS_TIME_H
268
+#define HAVE_DITFORM "unix"
269
+#define TCL_PLATFndif
270
+#define JIM_VERS3cl. See http://jim.berlios.de/ */
271
+#define _GNU_SOURCEREFERENCES single source file,/* /**
272
+ * UTF-8 utility functions
273
+ *
274
+ * (c) 2010 Steve Bennett <[email protected]>
275
+ *
276
+ * See LICENCE for licence details.
277
+ */
278
+
279
+/**
280
+ * Converts the given unicode codepoint (0 - 0xffff) to utf-8
281
+ * and stores the result at 'p'.
282
+ *
283
+ * Returns the number of utf-8 characters (1-3).
284
+ */
285
+intJim Tcl. See http://jim.tcl.tk/ */
286
+#define JIM_TCL_COMPAT_H
287
+#define/* No utf-8 support. 1 byte = 1 char */
288
+#define utf8_strlen(S, B) TCL_LIBRARY "."
289
+#define j
290
+#defineS, CP) (*(CP) = #define jim_eexecxec
291
+#define jim_eclockxec
292
+#define jim_ee TCL_PLATFORM_OS "windows"
293
+#define TCL_PLATFORM_PLATFORM "windows"
294
+#define TCL_PLAT/**
295
+ * Returns the length of the utf-8 sequence starting with 'c'.
296
+ *
297
+ * Returns 1-4, or -1 if this is not a valid start byte.
298
+ *
299
+ * Note that charlen=4 is not supported by the rest of the API.
300
+ */
301
+int utf8_charlen(int c);
302
+
303
+/**
304
+ * Returns the number of characters in the utf-8
305
+ * string of the given byte length.
306
+ *
307
+ * Any bytes which are not part of an valid utf-8
308
+ * sequence are treated as individual characters.
309
+ *
310
+ * The string *must* be null terminated.
311
+ *
312
+ * Does not support unicode code points > \uffff
313
+ */
314
+int utf8_strlen(bytelen);
315
+
316
+/**
317
+ * Returns the byte index of the given character in the utf-8 string.
318
+ *
319
+ * The string *must* be null terminated.
320
+ *
321
+ * This will return the byte length of a utf-8 string
322
+ * if given the char charindex);
323
+
324
+/**
325
+ * Returns the unicode codepoint corresponding to the
326
+ * utf-8 sequence 'str'.
327
+ *
328
+ * Stores the result in *uc and returns the number of bytes
329
+ * consumed.
330
+ *
331
+ * If 'str' is null terminated, then an invalid utf-8 sequence
332
+ * at the end of the string will be returned as individual bytes.
333
+ *
334
+ * If it is not null terminated, the length *must* be checked first.
335
+ *
336
+ * Does not support unicode c*uc);
337
+
338
+/**
339
+ * Returns the number of bytes before 'str' that the previous
340
+ * utf-8 character sequence starts (which may be the middle of a sequence).
341
+ *
342
+ * Looks back at most 'len' bytes backwards, which must be > 0.
343
+ * If no start char is found, returns -len
344
+ */
345
+int utf8_prev_len(
346
+/**
347
+ * Returns the upper-case variant of the given unicode codepoint.
348
+ *
349
+ * Does not support unicode code points > \uffff
350
+ */
351
+int utf8_upper(int uc);
352
+
353
+/**
354
+ * Returns the lower-case variant of the given unicode codepoint.
355
+ *
356
+ * NOTE: Use utf8_upper() in preference for case-insensitive matching.
357
+ *
358
+ * Does not support unicode code points > \uffff
359
+ */
360
+int utf8_lower(int uc);
361
+
362
+#endif
363
+
364
+#endif
365
+/* Jim - A small embeddable Tcl interpreter
366
+ *
367
+ * Copyright 2005 Salvatore Sanfilippo <[email protected]>
368
+ * Copyright 2005 Clemens Hintze <[email protected]>
369
+ * Copyright 2005 patthoyts - Pat Thoyts <[email protected]>
370
+ * Copyright 2008 oharboe - �yvind Harboe - [email protected]
371
+ * Copyright 2008 Andrew Lunn <[email protected]>
372
+ * Copyright 2008 Duane Ellis <[email protected]>
373
+ * Copyright 2008 Uwe Klein <[email protected]>
374
+ *
375
+ * Redistribution and use in source and binary forms, with or without
376
+ * modification, are permitted provided that the following conditions
377
+ * are met:
378
+ *
379
+ * 1. Redistributions of source code must retain the above copyright
380
+ * notice, this list of conditions and the following disclaimer.
381
+ * 2. Redistributions in binary form must reproduce the above
382
+ * copyright notice, this list of conditions and the following
383
+ * disclaimer in the documentation and/or other materials
384
+ * provided with the distribution.
385
+ *
386
+ * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY
387
+ * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
388
+ * THE IMPLIED WARRANTIES OF MERCHANTABILI
--- a/autosetup/jimsh0.c
+++ b/autosetup/jimsh0.c
@@ -1,134 +1,4 @@
1 3cl. See http://jim.berlios.de/ */
2 #define _GNU_SOURCEREFERENCES single source file,/* This is single source file, bootstrap version of Jim Tcl. See http://jim.tcl.tk/ */
3 #define JIM_TCL_COMPAT_H
4 #define TCL_LIBRARY "."
5 #define jim_ext_stdlib
6 #define jimregexpxec
7 #define jim_efilexec
8 #define jim_eexecxec
9 #define jim_eclockxec
10 #define jim_ee TCL_PLATFORM_OS "windows"
11 #define TCL_PLATFORM_PLATFORM "windows"
12 #define TCL_PLATFORM_PATH_SEPARATOR ";"
13 #define HAVE_MKDIR_ONE_ARG
14 #define HAVE_SYSTEM
15 #elif defined(__MINGW32__)
16 #defi HAVE_DIRENT_H
17 #define HAVE_UNISTD_H
18 #define HAVE_UMASK
19 #include RM_PATH_SEPARMKSTEMP
20 #define HAVE_LINK
21 #define HAVE_SYS_TIME_H
22 #define HAVE_DITFORM "unix"
23 #defin http://jim.berlios.de/ */
24 #define _GNU_SOURCEREFERENCES single source file,/* /**
25 * UTF-8 utility functions
26 *
27 * (c) 2010 Steve Bennett <[email protected]>
28 *
29 * See LICENCE for licence details.
30 */
31
32 /**
33 * Converts the given unicode codepoint (0 - 0xffff) to utf-8
34 * and stores the result at 'p'.
35 *
36 * Returns the number of utf-8 characters (1-3).
37 */
38 intJim Tcl. See http://jim.tcl.tk/ */
39 #define JIM_TCL_COMPAT_H
40 #define/* No utf-8 support. 1 byte = 1 char */
41 #define utf8_strlen(S, B) TCL_LIBRARY "."
42 #define j
43 #defineS, CP) (*(CP) = #define jim_eexecxec
44 #define jim_eclockxec
45 #define jim_ee TCL_PLATFORM_OS "windows"
46 #define TCL_PLATFORM_PLATFORM "windows"
47 #define TCL_PLAT/**
48 * Returns the length of the utf-8 sequence starting with 'c'.
49 *
50 * Returns 1-4, or -1 if this is not a valid start byte.
51 *
52 * Note that charlen=4 is not supported by the rest of the API.
53 */
54 int utf8_charlen(int c);
55
56 /**
57 * Returns the number of characters in the utf-8
58 * string of the given byte length.
59 *
60 * Any bytes which are not part of an valid utf-8
61 * sequence are treated as individual characters.
62 *
63 * The string *must* be null terminated.
64 *
65 * Does not support unicode code points > \uffff
66 */
67 int utf8_strlen(bytelen);
68 oint corresponding to the
69 * utf-8 sequence 'str'.
70 *
71 * Stores the result in *uc and returns the number of bytes
72 * consumed.
73 *
74 * If 'str' is null terminated, then an invalid utf-8 sequence
75 * at the end of the string will be returned as individual bytes.
76 *
77 * If it is not null terminated, the length *must* be checked first.
78 *
79 * Does not support unicode c*uc);
80
81 /**
82 * Returns the number of bytes before 'str' that the previous
83 * utf-8 character sequence starts (which may be the middle of a sequence).
84 *
85 * Looks back at most 'len' bytes backwards, which must be > 0.
86 * If no start char is found, returns -len
87 */
88 int utf8_prev_len(
89 /**
90 * Returns the upper-case variant of the given unicode codepoint.
91 *
92 * Does not support unicode code points > \uffff
93 */
94 int utf8_upper(int uc);
95
96 /**
97 * Returns the lower-case variant of the given unicode codepoint.
98 *
99 * NOTE: Use utf8_upper() in preference for case-insensitive matching.
100 *
101 * Does not support unicode code points > \uffff
102 */
103 int utf8_lower(int uc);
104
105 #endif
106
107 #endif
108 /* Jim - A small embeddable Tcl interpreter
109 *
110 * Copyright 2005 Salvatore Sanfilippo <[email protected]>
111 * Copyright 2005 Clemens Hintze <[email protected]>
112 * Copyright 2005 patthoyts - Pat Thoyts <[email protected]>
113 * Copyright 2008 oharboe - �yvind Harboe - [email protected]
114 * Copyright 2008 Andrew Lunn <[email protected]>
115 * Copyright 2008 Duane Ellis <[email protected]>
116 * Copyright 2008 Uwe Klein <[email protected]>
117 *
118 * Redistribution and use in source and binary forms, with or without
119 * modification, are permitted provided that the following conditions
120 * are met:
121 *
122 * 1. Redistributions of source code must retain the above copyright
123 * notice, this list of conditions and the following disclaimer.
124 * 2. Redistributions in binary form must reproduce the above
125 * copyright notice, this list of conditions and the following
126 * disclaimer in the documentation and/or other materials
127 * provided with the distribution.
128 *
129 * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY
130 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
131 * THE IMPLIED WARRANTIES OF MERCHANTABILI3cl. See http:Jim_aioInit(interpJim_globInit(interpJim_fileInit(interpJim_clockInit(interparrayint argsLenJim Tcl. See htt3cl. See http://jim.berlios.dscript ?3cl. See http://jim.berlios.de/ */
132 #define _GNU_SOURCEREFERENCES single source file,/* This is single source file, bootstrap version of Jim Tcl. See http://jim.tcl.tk/ */
133 #define JIM_TCL_COMPAT_H
134 #define TCL_LIBRARY "."
@@ -271,5 +141,248 @@
271 *
272 * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY
273 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
274 * THE IMPLIED WARRANTIES OF MERCHANTABILI3cl. See http://jim.berlios.de/ */
275 3cl. See http://jim.berlios.d
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
--- a/autosetup/jimsh0.c
+++ b/autosetup/jimsh0.c
@@ -1,134 +1,4 @@
1 3cl. See http://jim.berlios.de/ */
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
2 #define _GNU_SOURCEREFERENCES single source file,/* This is single source file, bootstrap version of Jim Tcl. See http://jim.tcl.tk/ */
3 #define JIM_TCL_COMPAT_H
4 #define TCL_LIBRARY "."
@@ -271,5 +141,248 @@
141 *
142 * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY
143 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
144 * THE IMPLIED WARRANTIES OF MERCHANTABILIfine/* No utf-8 support. 1 byte = 1 char */
145 #define utf8_strlen(S, B) TCL_LIBRARY "."
146 #define j
147 #defineS, CP) (*(CP) = #define jim_eexecxec
148 #define jim_eclockxec
149 #define jim_ee TCL_PLATFORM_OS "windows"
150 #define TCL_PLATFORM_PLATFORM "windows"
151 #define TCL_PLAT/**
152 * Returns the length of the utf-8 sequence starting with 'c'.
153 *
154 * Returns 1-4, or -1 if this is not a valid start byte.
155 *
156 * Note that charlen=4 is not supported by the rest of the API.
157 */
158 int utf8_charlen(int c);
159
160 /**
161 * Returns the number of characters in the utf-8
162 * string of the given byte length.
163 *
164 * Any bytes which are not part of an valid utf-8
165 * sequence are treated as individual characters.
166 *
167 * The string *must* be null terminated.
168 *
169 * Does not support unicode code points > \uffff
170 */
171 int utf8_strlen(bytelen);
172
173 /**
174 * Returns the byte index of the given character in the utf-8 string.
175 *
176 * The string *must* be null terminated.
177 *
178 * This will return the byte length of a utf-8 string
179 * if given the char charindex);
180
181 /**
182 * Returns the unicode codepoint corresponding to the
183 * utf-8 sequence 'str'.
184 *
185 * Stores the result in *uc and returns the number of bytes
186 * consumed.
187 *
188 * If 'str' is null terminated, then an invalid utf-8 sequence
189 * at the end of the string will be returned as individual bytes.
190 *
191 * If it is not null terminated, the length *must* be checked first.
192 *
193 * Does not support unicode c*uc);
194
195 /**
196 * Returns the number of bytes before 'str' that the previous
197 * utf-8 character sequence starts (which may be the middle of a sequence).
198 *
199 * Looks back at most 'len' bytes backwards, which must be > 0.
200 * If no start char is found, returns -len
201 */
202 int utf8_prev_len(
203 /**
204 * Returns the upper-case variant of the given unicode codepoint.
205 *
206 * Does not support unicode code points > \uffff
207 */
208 int utf8_upper(int uc);
209
210 /**
211 * Returns the lower-case variant of the given unicode codepoint.
212 *
213 * NOTE: Use utf8_upper() in preference for case-insensitive matching.
214 *
215 * Does not support unicode code points > \uffff
216 */
217 int utf8_lower(int uc);
218
219 #endif
220
221 #endif
222 /* Jim - A small embeddable Tcl interpreter
223 *
224 * Copyright 2005 Salvatore Sanfilippo <[email protected]>
225 * Copyright 2005 Clemens Hintze <[email protected]>
226 * Copyright 2005 patthoyts - Pat Thoyts <[email protected]>
227 * Copyright 2008 oharboe - �yvind Harboe - [email protected]
228 * Copyright 2008 Andrew Lunn <[email protected]>
229 * Copyright 2008 Duane Ellis <[email protected]>
230 * Copyright 2008 Uwe Klein <[email protected]>
231 *
232 * Redistribution and use in source and binary forms, with or without
233 * modification, are permitted provided that the following conditions
234 * are met:
235 *
236 * 1. Redistributions of source code must retain the above copyright
237 * notice, this list of conditions and the following disclaimer.
238 * 2. Redistributions in binary form must reproduce the above
239 * copyright notice, this list of conditions and the following
240 * disclaimer in the documentation and/or other materials
241 * provided with the distribution.
242 *
243 * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY
244 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
245 * THE IMPLIED WARRANTIES OF MERCHANTABILI3cl. See http:Jim_aioInit(interpJim_globInit(interpJim_fileInit(interpJim_clockInit(interparrayint argsLenJim Tcl. See htt3cl. See http://jim.berlios.dscript ?3cl. See http://jim.berlios.de/ */
246 #define _GNU_SOURCEREFERENCES single source file,/* This is single source file, bootstrap version of Jim Tcl. See http://jim.tcl.tk/ */
247 #define JIM_TCL_COMPAT_H
248 #define TCL_LIBRARY "."
249 #define jim_ext_stdlib
250 #define jimregexpxec
251 #define jim_efilexec
252 #define jim_eexecxec
253 #define jim_eclockxec
254 #define jim_ee TCL_PLATFORM_OS "windows"
255 #define TCL_PLATFORM_PLATFORM "windows"
256 #define TCL_PLATFORM_PATH_SEPARATOR ";"
257 #define HAVE_MKDIR_ONE_ARG
258 #define HAVE_SYSTEM
259 #elif defined(__MINGW32__)
260 #defi HAVE_DIRENT_H
261 #define HAVE_UNISTD_H
262 #define HAVE_UMASK
263 #include elseSEPARATOR ":"
264 #ifdef _ATFORM_PLATFORM "unix"
265 #define TCL_PLATFORM_PATH_SEPARMKSTEMP
266 #define HAVE_LINK
267 #define HAVE_SYS_TIME_H
268 #define HAVE_DITFORM "unix"
269 #define TCL_PLATFndif
270 #define JIM_VERS3cl. See http://jim.berlios.de/ */
271 #define _GNU_SOURCEREFERENCES single source file,/* /**
272 * UTF-8 utility functions
273 *
274 * (c) 2010 Steve Bennett <[email protected]>
275 *
276 * See LICENCE for licence details.
277 */
278
279 /**
280 * Converts the given unicode codepoint (0 - 0xffff) to utf-8
281 * and stores the result at 'p'.
282 *
283 * Returns the number of utf-8 characters (1-3).
284 */
285 intJim Tcl. See http://jim.tcl.tk/ */
286 #define JIM_TCL_COMPAT_H
287 #define/* No utf-8 support. 1 byte = 1 char */
288 #define utf8_strlen(S, B) TCL_LIBRARY "."
289 #define j
290 #defineS, CP) (*(CP) = #define jim_eexecxec
291 #define jim_eclockxec
292 #define jim_ee TCL_PLATFORM_OS "windows"
293 #define TCL_PLATFORM_PLATFORM "windows"
294 #define TCL_PLAT/**
295 * Returns the length of the utf-8 sequence starting with 'c'.
296 *
297 * Returns 1-4, or -1 if this is not a valid start byte.
298 *
299 * Note that charlen=4 is not supported by the rest of the API.
300 */
301 int utf8_charlen(int c);
302
303 /**
304 * Returns the number of characters in the utf-8
305 * string of the given byte length.
306 *
307 * Any bytes which are not part of an valid utf-8
308 * sequence are treated as individual characters.
309 *
310 * The string *must* be null terminated.
311 *
312 * Does not support unicode code points > \uffff
313 */
314 int utf8_strlen(bytelen);
315
316 /**
317 * Returns the byte index of the given character in the utf-8 string.
318 *
319 * The string *must* be null terminated.
320 *
321 * This will return the byte length of a utf-8 string
322 * if given the char charindex);
323
324 /**
325 * Returns the unicode codepoint corresponding to the
326 * utf-8 sequence 'str'.
327 *
328 * Stores the result in *uc and returns the number of bytes
329 * consumed.
330 *
331 * If 'str' is null terminated, then an invalid utf-8 sequence
332 * at the end of the string will be returned as individual bytes.
333 *
334 * If it is not null terminated, the length *must* be checked first.
335 *
336 * Does not support unicode c*uc);
337
338 /**
339 * Returns the number of bytes before 'str' that the previous
340 * utf-8 character sequence starts (which may be the middle of a sequence).
341 *
342 * Looks back at most 'len' bytes backwards, which must be > 0.
343 * If no start char is found, returns -len
344 */
345 int utf8_prev_len(
346 /**
347 * Returns the upper-case variant of the given unicode codepoint.
348 *
349 * Does not support unicode code points > \uffff
350 */
351 int utf8_upper(int uc);
352
353 /**
354 * Returns the lower-case variant of the given unicode codepoint.
355 *
356 * NOTE: Use utf8_upper() in preference for case-insensitive matching.
357 *
358 * Does not support unicode code points > \uffff
359 */
360 int utf8_lower(int uc);
361
362 #endif
363
364 #endif
365 /* Jim - A small embeddable Tcl interpreter
366 *
367 * Copyright 2005 Salvatore Sanfilippo <[email protected]>
368 * Copyright 2005 Clemens Hintze <[email protected]>
369 * Copyright 2005 patthoyts - Pat Thoyts <[email protected]>
370 * Copyright 2008 oharboe - �yvind Harboe - [email protected]
371 * Copyright 2008 Andrew Lunn <[email protected]>
372 * Copyright 2008 Duane Ellis <[email protected]>
373 * Copyright 2008 Uwe Klein <[email protected]>
374 *
375 * Redistribution and use in source and binary forms, with or without
376 * modification, are permitted provided that the following conditions
377 * are met:
378 *
379 * 1. Redistributions of source code must retain the above copyright
380 * notice, this list of conditions and the following disclaimer.
381 * 2. Redistributions in binary form must reproduce the above
382 * copyright notice, this list of conditions and the following
383 * disclaimer in the documentation and/or other materials
384 * provided with the distribution.
385 *
386 * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY
387 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
388 * THE IMPLIED WARRANTIES OF MERCHANTABILI
M autosetup/test-tclsh
+11 -5
--- a/autosetup/test-tclsh
+++ b/autosetup/test-tclsh
@@ -4,12 +4,18 @@
44
 # Outputs the full path to the interpreter
55
66
 if {[catch {info version} version] == 0} {
7
- = 0} {
87
 # This is Jim Tcl
9
- if {$vera a
10
-
11
- # Unlike Tcl, can [info nameofexecutable[file join [p]
8
+ if {$version >= 0.70} {
9
+ # Ensure that rege
10
+ # Older versions of jimsh mayinfo patchlevel]]} {
11
+ puts [info nameofexecutable]
12
+ exit 0
13
+ }
14
+}
15
+exit 1
16
+puts [file join [p]
1217
 exit 0
1318
 }
1419
 } elseif {[catch {info tclversion} version] == 0} {
15
- if {$version >= 8.5 && ![string match 8.5a* [info patc
20
+ if {$version >= 8.5 && ![string match 8.5a* [info patchlevel]]} {
21
+ puts [info nameofexecut
--- a/autosetup/test-tclsh
+++ b/autosetup/test-tclsh
@@ -4,12 +4,18 @@
4 # Outputs the full path to the interpreter
5
6 if {[catch {info version} version] == 0} {
7 = 0} {
8 # This is Jim Tcl
9 if {$vera a
10
11 # Unlike Tcl, can [info nameofexecutable[file join [p]
 
 
 
 
 
 
12 exit 0
13 }
14 } elseif {[catch {info tclversion} version] == 0} {
15 if {$version >= 8.5 && ![string match 8.5a* [info patc
 
--- a/autosetup/test-tclsh
+++ b/autosetup/test-tclsh
@@ -4,12 +4,18 @@
4 # Outputs the full path to the interpreter
5
6 if {[catch {info version} version] == 0} {
 
7 # This is Jim Tcl
8 if {$version >= 0.70} {
9 # Ensure that rege
10 # Older versions of jimsh mayinfo patchlevel]]} {
11 puts [info nameofexecutable]
12 exit 0
13 }
14 }
15 exit 1
16 puts [file join [p]
17 exit 0
18 }
19 } elseif {[catch {info tclversion} version] == 0} {
20 if {$version >= 8.5 && ![string match 8.5a* [info patchlevel]]} {
21 puts [info nameofexecut
M configure
+2 -1
--- a/configure
+++ b/configure
@@ -1,2 +1,3 @@
11
 #!/bin/sh
2
-dir="$(dirname "$0")ec `"$dir/find-tcl" || echo fa$("$dir/find-tcl" || echo fals
2
+dir=autosetup"
3
+# exec `"$dir/find-tcl" || echo false`
--- a/configure
+++ b/configure
@@ -1,2 +1,3 @@
1 #!/bin/sh
2 dir="$(dirname "$0")ec `"$dir/find-tcl" || echo fa$("$dir/find-tcl" || echo fals
 
--- a/configure
+++ b/configure
@@ -1,2 +1,3 @@
1 #!/bin/sh
2 dir=autosetup"
3 # exec `"$dir/find-tcl" || echo false`

Keyboard Shortcuts

Open search /
Next entry (timeline) j
Previous entry (timeline) k
Open focused entry Enter
Show this help ?
Toggle theme Top nav button