Fossil SCM

Make testcases work with Tcl 9. Prepare fossil to make it work with Tcl 9

jan.nijtmans 2025-11-05 14:03 trunk
Commit 3fe737a86aade317716e070ecbaf2174e08f00f89ca03b0446bbc0888e25313b
Parent 9a4985950477fa7…
6 files changed +2639 +4369 +1 -1 +3 +52 -10 +1 -1
+ compat/tcl-9.0/generic/tcl.h + compat/tcl-9.0/generic/tclDecls.h ~ extsrc/pikchr.c ~ src/main.c ~ src/th_tcl.c ~ test/tester.tcl
A compat/tcl-9.0/generic/tcl.h
+2639
--- a/compat/tcl-9.0/generic/tcl.h
+++ b/compat/tcl-9.0/generic/tcl.h
@@ -0,0 +1,2639 @@
1
+/*
2
+ * tcl.h --
3
+ *
4
+ * This header file describes the externally-visible facilities of the
5
+ * Tcl interpreter.
6
+ *
7
+ * Copyright (c) 1987-1994 The Regents of the University of California.
8
+ * Copyright (c) 1993-1996 Lucent Technologies.
9
+ * Copyright (c) 1994-1998 Sun Microsystems, Inc.
10
+ * Copyright (c) 1998-2000 by Scriptics Corporation.
11
+ * Copyright (c) 2002 by Kevin B. Kenny. All rights reserved.
12
+ *
13
+ * See the file "license.terms" for information on usage and redistribution of
14
+ * this file, and for a DISCLAIMER OF ALL WARRANTIES.
15
+ */
16
+
17
+#ifndef _TCL
18
+#define _TCL
19
+
20
+/*
21
+ * For C++ compilers, use extern "C"
22
+ */
23
+
24
+#ifdef __cplusplus
25
+extern "C" {
26
+#endif
27
+
28
+/*
29
+ * The following defines are used to indicate the various release levels.
30
+ */
31
+
32
+#define TCL_ALPHA_RELEASE 0
33
+#define TCL_BETA_RELEASE 1
34
+#define TCL_FINAL_RELEASE 2
35
+
36
+/*
37
+ * When version numbers change here, must also go into the following files and
38
+ * update the version numbers:
39
+ *
40
+ * library/init.tcl (1 LOC patch)
41
+ * unix/configure.ac (2 LOC Major, 2 LOC minor, 1 LOC patch)
42
+ * win/configure.ac (as above)
43
+ * win/tcl.m4 (not patchlevel)
44
+ * README.md (sections 0 and 2, with and without separator)
45
+ * win/README (not patchlevel) (sections 0 and 2)
46
+ * unix/tcl.spec (1 LOC patch)
47
+ */
48
+
49
+#if !defined(TCL_MAJOR_VERSION)
50
+# define TCL_MAJOR_VERSION 9
51
+#endif
52
+#if TCL_MAJOR_VERSION == 9
53
+# define TCL_MINOR_VERSION 0
54
+# define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE
55
+# define TCL_RELEASE_SERIAL 0
56
+
57
+# define TCL_VERSION "9.0"
58
+# define TCL_PATCH_LEVEL "9.0.0"
59
+#endif /* TCL_MAJOR_VERSION */
60
+
61
+
62
+#if defined(RC_INVOKED)
63
+/*
64
+ * Utility macros: STRINGIFY takes an argument and wraps it in "" (double
65
+ * quotation marks), JOIN joins two arguments.
66
+ */
67
+
68
+#ifndef STRINGIFY
69
+# define STRINGIFY(x) STRINGIFY1(x)
70
+# define STRINGIFY1(x) #x
71
+#endif
72
+#ifndef JOIN
73
+# define JOIN(a,b) JOIN1(a,b)
74
+# define JOIN1(a,b) a##b
75
+#endif
76
+#endif /* RC_INVOKED */
77
+
78
+/*
79
+ * A special definition used to allow this header file to be included from
80
+ * windows resource files so that they can obtain version information.
81
+ * RC_INVOKED is defined by default by the windows RC tool.
82
+ *
83
+ * Resource compilers don't like all the C stuff, like typedefs and function
84
+ * declarations, that occur below, so block them out.
85
+ */
86
+
87
+#ifndef RC_INVOKED
88
+
89
+/*
90
+ * Special macro to define mutexes.
91
+ */
92
+
93
+#define TCL_DECLARE_MUTEX(name) \
94
+ static Tcl_Mutex name;
95
+
96
+/*
97
+ * Tcl's public routine Tcl_FSSeek() uses the values SEEK_SET, SEEK_CUR, and
98
+ * SEEK_END, all #define'd by stdio.h .
99
+ *
100
+ * Also, many extensions need stdio.h, and they've grown accustomed to tcl.h
101
+ * providing it for them rather than #include-ing it themselves as they
102
+ * should, so also for their sake, we keep the #include to be consistent with
103
+ * prior Tcl releases.
104
+ */
105
+
106
+#include <stdio.h>
107
+#include <stddef.h>
108
+
109
+#if defined(__GNUC__) && (__GNUC__ > 2)
110
+# if defined(_WIN32) && defined(__USE_MINGW_ANSI_STDIO) && __USE_MINGW_ANSI_STDIO
111
+# define TCL_FORMAT_PRINTF(a,b) __attribute__ ((__format__ (__MINGW_PRINTF_FORMAT, a, b)))
112
+# else
113
+# define TCL_FORMAT_PRINTF(a,b) __attribute__ ((__format__ (__printf__, a, b)))
114
+# endif
115
+# define TCL_NORETURN __attribute__ ((__noreturn__))
116
+# define TCL_NOINLINE __attribute__ ((__noinline__))
117
+# define TCL_NORETURN1 __attribute__ ((__noreturn__))
118
+#else
119
+# define TCL_FORMAT_PRINTF(a,b)
120
+# if defined(_MSC_VER)
121
+# define TCL_NORETURN __declspec(noreturn)
122
+# define TCL_NOINLINE __declspec(noinline)
123
+# else
124
+# define TCL_NORETURN /* nothing */
125
+# define TCL_NOINLINE /* nothing */
126
+# endif
127
+# define TCL_NORETURN1 /* nothing */
128
+#endif
129
+
130
+/*
131
+ * Allow a part of Tcl's API to be explicitly marked as deprecated.
132
+ *
133
+ * Used to make TIP 330/336 generate moans even if people use the
134
+ * compatibility macros. Change your code, guys! We won't support you forever.
135
+ */
136
+
137
+#if defined(__GNUC__) && ((__GNUC__ >= 4) || ((__GNUC__ == 3) && (__GNUC_MINOR__ >= 1)))
138
+# if (__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ >= 5))
139
+# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__ (msg)))
140
+# else
141
+# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__))
142
+# endif
143
+#else
144
+# define TCL_DEPRECATED_API(msg) /* nothing portable */
145
+#endif
146
+
147
+/*
148
+ *----------------------------------------------------------------------------
149
+ * Macros used to declare a function to be exported by a DLL. Used by Windows,
150
+ * maps to no-op declarations on non-Windows systems. The default build on
151
+ * windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to be
152
+ * nonempty. To build a static library, the macro STATIC_BUILD should be
153
+ * defined.
154
+ *
155
+ * Note: when building static but linking dynamically to MSVCRT we must still
156
+ * correctly decorate the C library imported function. Use CRTIMPORT
157
+ * for this purpose. _DLL is defined by the compiler when linking to
158
+ * MSVCRT.
159
+ */
160
+
161
+#ifdef _WIN32
162
+# ifdef STATIC_BUILD
163
+# define DLLIMPORT
164
+# define DLLEXPORT
165
+# ifdef _DLL
166
+# define CRTIMPORT __declspec(dllimport)
167
+# else
168
+# define CRTIMPORT
169
+# endif
170
+# else
171
+# define DLLIMPORT __declspec(dllimport)
172
+# define DLLEXPORT __declspec(dllexport)
173
+# define CRTIMPORT __declspec(dllimport)
174
+# endif
175
+#else
176
+# define DLLIMPORT
177
+# if defined(__GNUC__) && __GNUC__ > 3
178
+# define DLLEXPORT __attribute__ ((visibility("default")))
179
+# else
180
+# define DLLEXPORT
181
+# endif
182
+# define CRTIMPORT
183
+#endif
184
+
185
+/*
186
+ * These macros are used to control whether functions are being declared for
187
+ * import or export. If a function is being declared while it is being built
188
+ * to be included in a shared library, then it should have the DLLEXPORT
189
+ * storage class. If is being declared for use by a module that is going to
190
+ * link against the shared library, then it should have the DLLIMPORT storage
191
+ * class. If the symbol is being declared for a static build or for use from a
192
+ * stub library, then the storage class should be empty.
193
+ *
194
+ * The convention is that a macro called BUILD_xxxx, where xxxx is the name of
195
+ * a library we are building, is set on the compile line for sources that are
196
+ * to be placed in the library. When this macro is set, the storage class will
197
+ * be set to DLLEXPORT. At the end of the header file, the storage class will
198
+ * be reset to DLLIMPORT.
199
+ */
200
+
201
+#undef TCL_STORAGE_CLASS
202
+#ifdef BUILD_tcl
203
+# define TCL_STORAGE_CLASS DLLEXPORT
204
+#else
205
+# ifdef USE_TCL_STUBS
206
+# define TCL_STORAGE_CLASS
207
+# else
208
+# define TCL_STORAGE_CLASS DLLIMPORT
209
+# endif
210
+#endif
211
+
212
+#if !defined(CONST86) && !defined(TCL_NO_DEPRECATED)
213
+# define CONST86 const
214
+#endif
215
+
216
+/*
217
+ * Make sure EXTERN isn't defined elsewhere.
218
+ */
219
+
220
+#ifdef EXTERN
221
+# undef EXTERN
222
+#endif /* EXTERN */
223
+
224
+#ifdef __cplusplus
225
+# define EXTERN extern "C" TCL_STORAGE_CLASS
226
+#else
227
+# define EXTERN extern TCL_STORAGE_CLASS
228
+#endif
229
+
230
+/*
231
+ * Miscellaneous declarations.
232
+ */
233
+
234
+typedef void *ClientData;
235
+
236
+/*
237
+ * Darwin specific configure overrides (to support fat compiles, where
238
+ * configure runs only once for multiple architectures):
239
+ */
240
+
241
+#ifdef __APPLE__
242
+# ifdef __LP64__
243
+# define TCL_WIDE_INT_IS_LONG 1
244
+# define TCL_CFG_DO64BIT 1
245
+# else /* !__LP64__ */
246
+# undef TCL_WIDE_INT_IS_LONG
247
+# undef TCL_CFG_DO64BIT
248
+# endif /* __LP64__ */
249
+# undef HAVE_STRUCT_STAT64
250
+#endif /* __APPLE__ */
251
+
252
+/* Cross-compiling 32-bit on a 64-bit platform? Then our
253
+ * configure script does the wrong thing. Correct that here.
254
+ */
255
+#if defined(__GNUC__) && !defined(_WIN32) && !defined(__LP64__)
256
+# undef TCL_WIDE_INT_IS_LONG
257
+#endif
258
+
259
+/*
260
+ * Define Tcl_WideInt to be a type that is (at least) 64-bits wide, and define
261
+ * Tcl_WideUInt to be the unsigned variant of that type (assuming that where
262
+ * we have one, we can have the other.)
263
+ *
264
+ * Also defines the following macros:
265
+ * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on a
266
+ * LP64 system such as modern Solaris or Linux ... not including Win64)
267
+ * Tcl_WideAsLong - forgetful converter from wideInt to long.
268
+ * Tcl_LongAsWide - sign-extending converter from long to wideInt.
269
+ * Tcl_WideAsDouble - converter from wideInt to double.
270
+ * Tcl_DoubleAsWide - converter from double to wideInt.
271
+ *
272
+ * The following invariant should hold for any long value 'longVal':
273
+ * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal))
274
+ */
275
+
276
+#if !defined(TCL_WIDE_INT_TYPE) && !defined(TCL_WIDE_INT_IS_LONG) && !defined(_WIN32) && !defined(__GNUC__)
277
+/*
278
+ * Don't know what platform it is and configure hasn't discovered what is
279
+ * going on for us. Try to guess...
280
+ */
281
+# include <limits.h>
282
+# if defined(LLONG_MAX) && (LLONG_MAX == LONG_MAX)
283
+# define TCL_WIDE_INT_IS_LONG 1
284
+# endif
285
+#endif
286
+
287
+#ifndef TCL_WIDE_INT_TYPE
288
+# define TCL_WIDE_INT_TYPE long long
289
+#endif /* !TCL_WIDE_INT_TYPE */
290
+
291
+typedef TCL_WIDE_INT_TYPE Tcl_WideInt;
292
+typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt;
293
+
294
+#ifndef TCL_LL_MODIFIER
295
+# if defined(_WIN32) && (!defined(__USE_MINGW_ANSI_STDIO) || !__USE_MINGW_ANSI_STDIO)
296
+# define TCL_LL_MODIFIER "I64"
297
+# else
298
+# define TCL_LL_MODIFIER "ll"
299
+# endif
300
+#endif /* !TCL_LL_MODIFIER */
301
+#ifndef TCL_Z_MODIFIER
302
+# if defined(__GNUC__) && !defined(_WIN32)
303
+# define TCL_Z_MODIFIER "z"
304
+# elif defined(_WIN64)
305
+# define TCL_Z_MODIFIER TCL_LL_MODIFIER
306
+# else
307
+# define TCL_Z_MODIFIER ""
308
+# endif
309
+#endif /* !TCL_Z_MODIFIER */
310
+#ifndef TCL_T_MODIFIER
311
+# if defined(__GNUC__) && !defined(_WIN32)
312
+# define TCL_T_MODIFIER "t"
313
+# elif defined(_WIN64)
314
+# define TCL_T_MODIFIER TCL_LL_MODIFIER
315
+# else
316
+# define TCL_T_MODIFIER TCL_Z_MODIFIER
317
+# endif
318
+#endif /* !TCL_T_MODIFIER */
319
+
320
+#define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val)))
321
+#define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val)))
322
+#define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val)))
323
+#define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val)))
324
+
325
+#if TCL_MAJOR_VERSION < 9
326
+# ifndef Tcl_Size
327
+ typedef int Tcl_Size;
328
+# endif
329
+# ifndef TCL_SIZE_MAX
330
+# define TCL_SIZE_MAX ((int)(((unsigned int)-1)>>1))
331
+# endif
332
+# ifndef TCL_SIZE_MODIFIER
333
+# define TCL_SIZE_MODIFIER ""
334
+#endif
335
+#else
336
+ typedef ptrdiff_t Tcl_Size;
337
+# define TCL_SIZE_MAX ((Tcl_Size)(((size_t)-1)>>1))
338
+# define TCL_SIZE_MODIFIER TCL_T_MODIFIER
339
+#endif /* TCL_MAJOR_VERSION */
340
+
341
+#ifdef _WIN32
342
+# if TCL_MAJOR_VERSION > 8 || defined(_WIN64) || defined(_USE_64BIT_TIME_T)
343
+ typedef struct __stat64 Tcl_StatBuf;
344
+# elif defined(_USE_32BIT_TIME_T)
345
+ typedef struct _stati64 Tcl_StatBuf;
346
+# else
347
+ typedef struct _stat32i64 Tcl_StatBuf;
348
+# endif
349
+#elif defined(__CYGWIN__)
350
+ typedef struct {
351
+ unsigned st_dev;
352
+ unsigned short st_ino;
353
+ unsigned short st_mode;
354
+ short st_nlink;
355
+ short st_uid;
356
+ short st_gid;
357
+ /* Here is a 2-byte gap */
358
+ unsigned st_rdev;
359
+ /* Here is a 4-byte gap */
360
+ long long st_size;
361
+ struct {long tv_sec;} st_atim;
362
+ struct {long tv_sec;} st_mtim;
363
+ struct {long tv_sec;} st_ctim;
364
+ } Tcl_StatBuf;
365
+#else
366
+ typedef struct stat Tcl_StatBuf;
367
+#endif
368
+
369
+
370
+/*
371
+ *----------------------------------------------------------------------------
372
+ * Data structures defined opaquely in this module. The definitions below just
373
+ * provide dummy types.
374
+ */
375
+
376
+typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler;
377
+typedef struct Tcl_Channel_ *Tcl_Channel;
378
+typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion;
379
+typedef struct Tcl_Command_ *Tcl_Command;
380
+typedef struct Tcl_Condition_ *Tcl_Condition;
381
+typedef struct Tcl_Dict_ *Tcl_Dict;
382
+typedef struct Tcl_EncodingState_ *Tcl_EncodingState;
383
+typedef struct Tcl_Encoding_ *Tcl_Encoding;
384
+typedef struct Tcl_Event Tcl_Event;
385
+typedef struct Tcl_Interp Tcl_Interp;
386
+typedef struct Tcl_InterpState_ *Tcl_InterpState;
387
+typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle;
388
+typedef struct Tcl_Mutex_ *Tcl_Mutex;
389
+typedef struct Tcl_Pid_ *Tcl_Pid;
390
+typedef struct Tcl_RegExp_ *Tcl_RegExp;
391
+typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey;
392
+typedef struct Tcl_ThreadId_ *Tcl_ThreadId;
393
+typedef struct Tcl_TimerToken_ *Tcl_TimerToken;
394
+typedef struct Tcl_Trace_ *Tcl_Trace;
395
+typedef struct Tcl_Var_ *Tcl_Var;
396
+typedef struct Tcl_ZLibStream_ *Tcl_ZlibStream;
397
+
398
+/*
399
+ *----------------------------------------------------------------------------
400
+ * Definition of the interface to functions implementing threads. A function
401
+ * following this definition is given to each call of 'Tcl_CreateThread' and
402
+ * will be called as the main fuction of the new thread created by that call.
403
+ */
404
+
405
+#if defined _WIN32
406
+typedef unsigned (__stdcall Tcl_ThreadCreateProc) (void *clientData);
407
+#else
408
+typedef void (Tcl_ThreadCreateProc) (void *clientData);
409
+#endif
410
+
411
+/*
412
+ * Threading function return types used for abstracting away platform
413
+ * differences when writing a Tcl_ThreadCreateProc. See the NewThread function
414
+ * in generic/tclThreadTest.c for it's usage.
415
+ */
416
+
417
+#if defined _WIN32
418
+# define Tcl_ThreadCreateType unsigned __stdcall
419
+# define TCL_THREAD_CREATE_RETURN return 0
420
+#else
421
+# define Tcl_ThreadCreateType void
422
+# define TCL_THREAD_CREATE_RETURN
423
+#endif
424
+
425
+/*
426
+ * Definition of values for default stacksize and the possible flags to be
427
+ * given to Tcl_CreateThread.
428
+ */
429
+
430
+#define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack. */
431
+#define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default
432
+ * behaviour. */
433
+#define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable. */
434
+
435
+/*
436
+ * Flag values passed to Tcl_StringCaseMatch.
437
+ */
438
+
439
+#define TCL_MATCH_NOCASE (1<<0)
440
+
441
+/*
442
+ * Flag values passed to Tcl_GetRegExpFromObj.
443
+ */
444
+
445
+#define TCL_REG_BASIC 000000 /* BREs (convenience). */
446
+#define TCL_REG_EXTENDED 000001 /* EREs. */
447
+#define TCL_REG_ADVF 000002 /* Advanced features in EREs. */
448
+#define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs). */
449
+#define TCL_REG_QUOTE 000004 /* No special characters, none. */
450
+#define TCL_REG_NOCASE 000010 /* Ignore case. */
451
+#define TCL_REG_NOSUB 000020 /* Don't care about subexpressions. */
452
+#define TCL_REG_EXPANDED 000040 /* Expanded format, white space &
453
+ * comments. */
454
+#define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */
455
+#define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ before. */
456
+#define TCL_REG_NEWLINE 000300 /* Newlines are line terminators. */
457
+#define TCL_REG_CANMATCH 001000 /* Report details on partial/limited
458
+ * matches. */
459
+
460
+/*
461
+ * Flags values passed to Tcl_RegExpExecObj.
462
+ */
463
+
464
+#define TCL_REG_NOTBOL 0001 /* Beginning of string does not match ^. */
465
+#define TCL_REG_NOTEOL 0002 /* End of string does not match $. */
466
+
467
+/*
468
+ * Structures filled in by Tcl_RegExpInfo. Note that all offset values are
469
+ * relative to the start of the match string, not the beginning of the entire
470
+ * string.
471
+ */
472
+
473
+typedef struct Tcl_RegExpIndices {
474
+#if TCL_MAJOR_VERSION > 8
475
+ Tcl_Size start; /* Character offset of first character in
476
+ * match. */
477
+ Tcl_Size end; /* Character offset of first character after
478
+ * the match. */
479
+#else
480
+ long start;
481
+ long end;
482
+#endif
483
+} Tcl_RegExpIndices;
484
+
485
+typedef struct Tcl_RegExpInfo {
486
+ Tcl_Size nsubs; /* Number of subexpressions in the compiled
487
+ * expression. */
488
+ Tcl_RegExpIndices *matches; /* Array of nsubs match offset pairs. */
489
+#if TCL_MAJOR_VERSION > 8
490
+ Tcl_Size extendStart; /* The offset at which a subsequent match
491
+ * might begin. */
492
+#else
493
+ long extendStart;
494
+ long reserved; /* Reserved for later use. */
495
+#endif
496
+} Tcl_RegExpInfo;
497
+
498
+/*
499
+ * Picky compilers complain if this typdef doesn't appear before the struct's
500
+ * reference in tclDecls.h.
501
+ */
502
+
503
+typedef Tcl_StatBuf *Tcl_Stat_;
504
+typedef struct stat *Tcl_OldStat_;
505
+
506
+/*
507
+ *----------------------------------------------------------------------------
508
+ * When a TCL command returns, the interpreter contains a result from the
509
+ * command. Programmers are strongly encouraged to use one of the functions
510
+ * Tcl_GetObjResult() or Tcl_GetStringResult() to read the interpreter's
511
+ * result. See the SetResult man page for details. Besides this result, the
512
+ * command function returns an integer code, which is one of the following:
513
+ *
514
+ * TCL_OK Command completed normally; the interpreter's result
515
+ * contains the command's result.
516
+ * TCL_ERROR The command couldn't be completed successfully; the
517
+ * interpreter's result describes what went wrong.
518
+ * TCL_RETURN The command requests that the current function return;
519
+ * the interpreter's result contains the function's
520
+ * return value.
521
+ * TCL_BREAK The command requests that the innermost loop be
522
+ * exited; the interpreter's result is meaningless.
523
+ * TCL_CONTINUE Go on to the next iteration of the current loop; the
524
+ * interpreter's result is meaningless.
525
+ * Integer return codes in the range TCL_CODE_USER_MIN to TCL_CODE_USER_MAX are
526
+ * reserved for the use of packages.
527
+ */
528
+
529
+#define TCL_OK 0
530
+#define TCL_ERROR 1
531
+#define TCL_RETURN 2
532
+#define TCL_BREAK 3
533
+#define TCL_CONTINUE 4
534
+#define TCL_CODE_USER_MIN 5
535
+#define TCL_CODE_USER_MAX 0x3fffffff /* 1073741823 */
536
+
537
+/*
538
+ *----------------------------------------------------------------------------
539
+ * Flags to control what substitutions are performed by Tcl_SubstObj():
540
+ */
541
+
542
+#define TCL_SUBST_COMMANDS 001
543
+#define TCL_SUBST_VARIABLES 002
544
+#define TCL_SUBST_BACKSLASHES 004
545
+#define TCL_SUBST_ALL 007
546
+
547
+/*
548
+ * Forward declaration of Tcl_Obj to prevent an error when the forward
549
+ * reference to Tcl_Obj is encountered in the function types declared below.
550
+ */
551
+
552
+struct Tcl_Obj;
553
+
554
+/*
555
+ *----------------------------------------------------------------------------
556
+ * Function types defined by Tcl:
557
+ */
558
+
559
+typedef int (Tcl_AppInitProc) (Tcl_Interp *interp);
560
+typedef int (Tcl_AsyncProc) (void *clientData, Tcl_Interp *interp,
561
+ int code);
562
+typedef void (Tcl_ChannelProc) (void *clientData, int mask);
563
+typedef void (Tcl_CloseProc) (void *data);
564
+typedef void (Tcl_CmdDeleteProc) (void *clientData);
565
+typedef int (Tcl_CmdProc) (void *clientData, Tcl_Interp *interp,
566
+ int argc, const char *argv[]);
567
+typedef void (Tcl_CmdTraceProc) (void *clientData, Tcl_Interp *interp,
568
+ int level, char *command, Tcl_CmdProc *proc,
569
+ void *cmdClientData, int argc, const char *argv[]);
570
+typedef int (Tcl_CmdObjTraceProc) (void *clientData, Tcl_Interp *interp,
571
+ int level, const char *command, Tcl_Command commandInfo, int objc,
572
+ struct Tcl_Obj *const *objv);
573
+typedef void (Tcl_CmdObjTraceDeleteProc) (void *clientData);
574
+typedef void (Tcl_DupInternalRepProc) (struct Tcl_Obj *srcPtr,
575
+ struct Tcl_Obj *dupPtr);
576
+typedef int (Tcl_EncodingConvertProc) (void *clientData, const char *src,
577
+ int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst,
578
+ int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr);
579
+typedef void (Tcl_EncodingFreeProc) (void *clientData);
580
+typedef int (Tcl_EventProc) (Tcl_Event *evPtr, int flags);
581
+typedef void (Tcl_EventCheckProc) (void *clientData, int flags);
582
+typedef int (Tcl_EventDeleteProc) (Tcl_Event *evPtr, void *clientData);
583
+typedef void (Tcl_EventSetupProc) (void *clientData, int flags);
584
+typedef void (Tcl_ExitProc) (void *clientData);
585
+typedef void (Tcl_FileProc) (void *clientData, int mask);
586
+typedef void (Tcl_FileFreeProc) (void *clientData);
587
+typedef void (Tcl_FreeInternalRepProc) (struct Tcl_Obj *objPtr);
588
+typedef void (Tcl_IdleProc) (void *clientData);
589
+typedef void (Tcl_InterpDeleteProc) (void *clientData,
590
+ Tcl_Interp *interp);
591
+typedef void (Tcl_NamespaceDeleteProc) (void *clientData);
592
+typedef int (Tcl_ObjCmdProc) (void *clientData, Tcl_Interp *interp,
593
+ int objc, struct Tcl_Obj *const *objv);
594
+#if TCL_MAJOR_VERSION > 8
595
+typedef int (Tcl_ObjCmdProc2) (void *clientData, Tcl_Interp *interp,
596
+ Tcl_Size objc, struct Tcl_Obj *const *objv);
597
+typedef int (Tcl_CmdObjTraceProc2) (void *clientData, Tcl_Interp *interp,
598
+ Tcl_Size level, const char *command, Tcl_Command commandInfo, Tcl_Size objc,
599
+ struct Tcl_Obj *const *objv);
600
+typedef void (Tcl_FreeProc) (void *blockPtr);
601
+#define Tcl_ExitProc Tcl_FreeProc
602
+#define Tcl_FileFreeProc Tcl_FreeProc
603
+#define Tcl_FileFreeProc Tcl_FreeProc
604
+#define Tcl_EncodingFreeProc Tcl_FreeProc
605
+#else
606
+#define Tcl_ObjCmdProc2 Tcl_ObjCmdProc
607
+#define Tcl_CmdObjTraceProc2 Tcl_CmdObjTraceProc
608
+typedef void (Tcl_FreeProc) (char *blockPtr);
609
+#endif
610
+typedef int (Tcl_LibraryInitProc) (Tcl_Interp *interp);
611
+typedef int (Tcl_LibraryUnloadProc) (Tcl_Interp *interp, int flags);
612
+typedef void (Tcl_PanicProc) (const char *format, ...);
613
+typedef void (Tcl_TcpAcceptProc) (void *callbackData, Tcl_Channel chan,
614
+ char *address, int port);
615
+typedef void (Tcl_TimerProc) (void *clientData);
616
+typedef int (Tcl_SetFromAnyProc) (Tcl_Interp *interp, struct Tcl_Obj *objPtr);
617
+typedef void (Tcl_UpdateStringProc) (struct Tcl_Obj *objPtr);
618
+typedef char * (Tcl_VarTraceProc) (void *clientData, Tcl_Interp *interp,
619
+ const char *part1, const char *part2, int flags);
620
+typedef void (Tcl_CommandTraceProc) (void *clientData, Tcl_Interp *interp,
621
+ const char *oldName, const char *newName, int flags);
622
+typedef void (Tcl_CreateFileHandlerProc) (int fd, int mask, Tcl_FileProc *proc,
623
+ void *clientData);
624
+typedef void (Tcl_DeleteFileHandlerProc) (int fd);
625
+typedef void (Tcl_AlertNotifierProc) (void *clientData);
626
+typedef void (Tcl_ServiceModeHookProc) (int mode);
627
+typedef void *(Tcl_InitNotifierProc) (void);
628
+typedef void (Tcl_FinalizeNotifierProc) (void *clientData);
629
+typedef void (Tcl_MainLoopProc) (void);
630
+
631
+
632
+/* Abstract List functions */
633
+typedef Tcl_Size (Tcl_ObjTypeLengthProc) (struct Tcl_Obj *listPtr);
634
+typedef int (Tcl_ObjTypeIndexProc) (Tcl_Interp *interp, struct Tcl_Obj *listPtr,
635
+ Tcl_Size index, struct Tcl_Obj** elemObj);
636
+typedef int (Tcl_ObjTypeSliceProc) (Tcl_Interp *interp, struct Tcl_Obj *listPtr,
637
+ Tcl_Size fromIdx, Tcl_Size toIdx, struct Tcl_Obj **newObjPtr);
638
+typedef int (Tcl_ObjTypeReverseProc) (Tcl_Interp *interp,
639
+ struct Tcl_Obj *listPtr, struct Tcl_Obj **newObjPtr);
640
+typedef int (Tcl_ObjTypeGetElements) (Tcl_Interp *interp,
641
+ struct Tcl_Obj *listPtr, Tcl_Size *objcptr, struct Tcl_Obj ***objvptr);
642
+typedef struct Tcl_Obj *(Tcl_ObjTypeSetElement) (Tcl_Interp *interp,
643
+ struct Tcl_Obj *listPtr, Tcl_Size indexCount,
644
+ struct Tcl_Obj *const indexArray[], struct Tcl_Obj *valueObj);
645
+typedef int (Tcl_ObjTypeReplaceProc) (Tcl_Interp *interp,
646
+ struct Tcl_Obj *listObj, Tcl_Size first, Tcl_Size numToDelete,
647
+ Tcl_Size numToInsert, struct Tcl_Obj *const insertObjs[]);
648
+typedef int (Tcl_ObjTypeInOperatorProc) (Tcl_Interp *interp,
649
+ struct Tcl_Obj *valueObj, struct Tcl_Obj *listObj, int *boolResult);
650
+
651
+#ifndef TCL_NO_DEPRECATED
652
+# define Tcl_PackageInitProc Tcl_LibraryInitProc
653
+# define Tcl_PackageUnloadProc Tcl_LibraryUnloadProc
654
+#endif
655
+
656
+/*
657
+ *----------------------------------------------------------------------------
658
+ * The following structure represents a type of object, which is a particular
659
+ * internal representation for an object plus a set of functions that provide
660
+ * standard operations on objects of that type.
661
+ */
662
+
663
+typedef struct Tcl_ObjType {
664
+ const char *name; /* Name of the type, e.g. "int". */
665
+ Tcl_FreeInternalRepProc *freeIntRepProc;
666
+ /* Called to free any storage for the type's
667
+ * internal rep. NULL if the internal rep does
668
+ * not need freeing. */
669
+ Tcl_DupInternalRepProc *dupIntRepProc;
670
+ /* Called to create a new object as a copy of
671
+ * an existing object. */
672
+ Tcl_UpdateStringProc *updateStringProc;
673
+ /* Called to update the string rep from the
674
+ * type's internal representation. */
675
+ Tcl_SetFromAnyProc *setFromAnyProc;
676
+ /* Called to convert the object's internal rep
677
+ * to this type. Frees the internal rep of the
678
+ * old type. Returns TCL_ERROR on failure. */
679
+#if TCL_MAJOR_VERSION > 8
680
+ size_t version; /* Version field for future-proofing. */
681
+
682
+ /* List emulation functions - ObjType Version 1 */
683
+ Tcl_ObjTypeLengthProc *lengthProc;
684
+ /* Return the [llength] of the AbstractList */
685
+ Tcl_ObjTypeIndexProc *indexProc;
686
+ /* Return a value (Tcl_Obj) at a given index */
687
+ Tcl_ObjTypeSliceProc *sliceProc;
688
+ /* Return an AbstractList for
689
+ * [lrange $al $start $end] */
690
+ Tcl_ObjTypeReverseProc *reverseProc;
691
+ /* Return an AbstractList for [lreverse $al] */
692
+ Tcl_ObjTypeGetElements *getElementsProc;
693
+ /* Return an objv[] of all elements in the list */
694
+ Tcl_ObjTypeSetElement *setElementProc;
695
+ /* Replace the element at the indicies with the
696
+ * given valueObj. */
697
+ Tcl_ObjTypeReplaceProc *replaceProc;
698
+ /* Replace sublist with another sublist */
699
+ Tcl_ObjTypeInOperatorProc *inOperProc;
700
+ /* "in" and "ni" expr list operation.
701
+ * Determine if the given string value matches
702
+ * an element in the list. */
703
+#endif
704
+} Tcl_ObjType;
705
+
706
+#if TCL_MAJOR_VERSION > 8
707
+# define TCL_OBJTYPE_V0 0, \
708
+ 0,0,0,0,0,0,0,0 /* Pre-Tcl 9 */
709
+# define TCL_OBJTYPE_V1(a) offsetof(Tcl_ObjType, indexProc), \
710
+ a,0,0,0,0,0,0,0 /* Tcl 9 Version 1 */
711
+# define TCL_OBJTYPE_V2(a,b,c,d,e,f,g,h) sizeof(Tcl_ObjType), \
712
+ a,b,c,d,e,f,g,h /* Tcl 9 - AbstractLists */
713
+#else
714
+# define TCL_OBJTYPE_V0 /* just empty */
715
+# define TCL_OBJTYPE_V1(a) /* just empty */
716
+# define TCL_OBJTYPE_V2(a,b,c,d,e,f,g,h) /* just empty */
717
+#endif
718
+
719
+/*
720
+ * The following structure stores an internal representation (internalrep) for
721
+ * a Tcl value. An internalrep is associated with an Tcl_ObjType when both
722
+ * are stored in the same Tcl_Obj. The routines of the Tcl_ObjType govern
723
+ * the handling of the internalrep.
724
+ */
725
+
726
+typedef union Tcl_ObjInternalRep { /* The internal representation: */
727
+ long longValue; /* - an long integer value. */
728
+ double doubleValue; /* - a double-precision floating value. */
729
+ void *otherValuePtr; /* - another, type-specific value, */
730
+ /* not used internally any more. */
731
+ Tcl_WideInt wideValue; /* - an integer value >= 64bits */
732
+ struct { /* - internal rep as two pointers. */
733
+ void *ptr1;
734
+ void *ptr2;
735
+ } twoPtrValue;
736
+ struct { /* - internal rep as a pointer and a long, */
737
+ void *ptr; /* not used internally any more. */
738
+ unsigned long value;
739
+ } ptrAndLongRep;
740
+ struct { /* - use for pointer and length reps */
741
+ void *ptr;
742
+ Tcl_Size size;
743
+ } ptrAndSize;
744
+} Tcl_ObjInternalRep;
745
+
746
+/*
747
+ * One of the following structures exists for each object in the Tcl system.
748
+ * An object stores a value as either a string, some internal representation,
749
+ * or both.
750
+ */
751
+
752
+typedef struct Tcl_Obj {
753
+ Tcl_Size refCount; /* When 0 the object will be freed. */
754
+ char *bytes; /* This points to the first byte of the
755
+ * object's string representation. The array
756
+ * must be followed by a null byte (i.e., at
757
+ * offset length) but may also contain
758
+ * embedded null characters. The array's
759
+ * storage is allocated by Tcl_Alloc. NULL means
760
+ * the string rep is invalid and must be
761
+ * regenerated from the internal rep. Clients
762
+ * should use Tcl_GetStringFromObj or
763
+ * Tcl_GetString to get a pointer to the byte
764
+ * array as a readonly value. */
765
+ Tcl_Size length; /* The number of bytes at *bytes, not
766
+ * including the terminating null. */
767
+ const Tcl_ObjType *typePtr; /* Denotes the object's type. Always
768
+ * corresponds to the type of the object's
769
+ * internal rep. NULL indicates the object has
770
+ * no internal rep (has no type). */
771
+ Tcl_ObjInternalRep internalRep;
772
+ /* The internal representation: */
773
+} Tcl_Obj;
774
+
775
+
776
+/*
777
+ *----------------------------------------------------------------------------
778
+ * The following definitions support Tcl's namespace facility. Note: the first
779
+ * five fields must match exactly the fields in a Namespace structure (see
780
+ * tclInt.h).
781
+ */
782
+
783
+typedef struct Tcl_Namespace {
784
+ char *name; /* The namespace's name within its parent
785
+ * namespace. This contains no ::'s. The name
786
+ * of the global namespace is "" although "::"
787
+ * is an synonym. */
788
+ char *fullName; /* The namespace's fully qualified name. This
789
+ * starts with ::. */
790
+ void *clientData; /* Arbitrary value associated with this
791
+ * namespace. */
792
+ Tcl_NamespaceDeleteProc *deleteProc;
793
+ /* Function invoked when deleting the
794
+ * namespace to, e.g., free clientData. */
795
+ struct Tcl_Namespace *parentPtr;
796
+ /* Points to the namespace that contains this
797
+ * one. NULL if this is the global
798
+ * namespace. */
799
+} Tcl_Namespace;
800
+
801
+/*
802
+ *----------------------------------------------------------------------------
803
+ * The following structure represents a call frame, or activation record. A
804
+ * call frame defines a naming context for a procedure call: its local scope
805
+ * (for local variables) and its namespace scope (used for non-local
806
+ * variables; often the global :: namespace). A call frame can also define the
807
+ * naming context for a namespace eval or namespace inscope command: the
808
+ * namespace in which the command's code should execute. The Tcl_CallFrame
809
+ * structures exist only while procedures or namespace eval/inscope's are
810
+ * being executed, and provide a Tcl call stack.
811
+ *
812
+ * A call frame is initialized and pushed using Tcl_PushCallFrame and popped
813
+ * using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be provided by the
814
+ * Tcl_PushCallFrame caller, and callers typically allocate them on the C call
815
+ * stack for efficiency. For this reason, Tcl_CallFrame is defined as a
816
+ * structure and not as an opaque token. However, most Tcl_CallFrame fields
817
+ * are hidden since applications should not access them directly; others are
818
+ * declared as "dummyX".
819
+ *
820
+ * WARNING!! The structure definition must be kept consistent with the
821
+ * CallFrame structure in tclInt.h. If you change one, change the other.
822
+ */
823
+
824
+typedef struct Tcl_CallFrame {
825
+ Tcl_Namespace *nsPtr; /* Current namespace for the call frame. */
826
+ int dummy1;
827
+ Tcl_Size dummy2;
828
+ void *dummy3;
829
+ void *dummy4;
830
+ void *dummy5;
831
+ Tcl_Size dummy6;
832
+ void *dummy7;
833
+ void *dummy8;
834
+ Tcl_Size dummy9;
835
+ void *dummy10;
836
+ void *dummy11;
837
+ void *dummy12;
838
+ void *dummy13;
839
+} Tcl_CallFrame;
840
+
841
+/*
842
+ *----------------------------------------------------------------------------
843
+ * Information about commands that is returned by Tcl_GetCommandInfo and
844
+ * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based command
845
+ * function while proc is a traditional Tcl argc/argv string-based function.
846
+ * Tcl_CreateObjCommand and Tcl_CreateCommand ensure that both objProc and
847
+ * proc are non-NULL and can be called to execute the command. However, it may
848
+ * be faster to call one instead of the other. The member isNativeObjectProc
849
+ * is set to 1 if an object-based function was registered by
850
+ * Tcl_CreateObjCommand, and to 0 if a string-based function was registered by
851
+ * Tcl_CreateCommand. The other function is typically set to a compatibility
852
+ * wrapper that does string-to-object or object-to-string argument conversions
853
+ * then calls the other function.
854
+ */
855
+
856
+typedef struct {
857
+ int isNativeObjectProc; /* 1 if objProc was registered by a call to
858
+ * Tcl_CreateObjCommand; 2 if objProc was registered by
859
+ * a call to Tcl_CreateObjCommand2; 0 otherwise.
860
+ * Tcl_SetCmdInfo does not modify this field. */
861
+ Tcl_ObjCmdProc *objProc; /* Command's object-based function. */
862
+ void *objClientData; /* ClientData for object proc. */
863
+ Tcl_CmdProc *proc; /* Command's string-based function. */
864
+ void *clientData; /* ClientData for string proc. */
865
+ Tcl_CmdDeleteProc *deleteProc;
866
+ /* Function to call when command is
867
+ * deleted. */
868
+ void *deleteData; /* Value to pass to deleteProc (usually the
869
+ * same as clientData). */
870
+ Tcl_Namespace *namespacePtr;/* Points to the namespace that contains this
871
+ * command. Note that Tcl_SetCmdInfo will not
872
+ * change a command's namespace; use
873
+ * TclRenameCommand or Tcl_Eval (of 'rename')
874
+ * to do that. */
875
+ Tcl_ObjCmdProc2 *objProc2; /* Command's object2-based function. */
876
+ void *objClientData2; /* ClientData for object2 proc. */
877
+} Tcl_CmdInfo;
878
+
879
+/*
880
+ *----------------------------------------------------------------------------
881
+ * The structure defined below is used to hold dynamic strings. The only
882
+ * fields that clients should use are string and length, accessible via the
883
+ * macros Tcl_DStringValue and Tcl_DStringLength.
884
+ */
885
+
886
+#define TCL_DSTRING_STATIC_SIZE 200
887
+typedef struct Tcl_DString {
888
+ char *string; /* Points to beginning of string: either
889
+ * staticSpace below or a malloced array. */
890
+ Tcl_Size length; /* Number of bytes in string excluding
891
+ * terminating nul */
892
+ Tcl_Size spaceAvl; /* Total number of bytes available for the
893
+ * string and its terminating NULL char. */
894
+ char staticSpace[TCL_DSTRING_STATIC_SIZE];
895
+ /* Space to use in common case where string is
896
+ * small. */
897
+} Tcl_DString;
898
+
899
+#define Tcl_DStringLength(dsPtr) ((dsPtr)->length)
900
+#define Tcl_DStringValue(dsPtr) ((dsPtr)->string)
901
+
902
+/*
903
+ * Definitions for the maximum number of digits of precision that may be
904
+ * produced by Tcl_PrintDouble, and the number of bytes of buffer space
905
+ * required by Tcl_PrintDouble.
906
+ */
907
+
908
+#define TCL_MAX_PREC 17
909
+#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10)
910
+
911
+/*
912
+ * Definition for a number of bytes of buffer space sufficient to hold the
913
+ * string representation of an integer in base 10 (assuming the existence of
914
+ * 64-bit integers).
915
+ */
916
+
917
+#define TCL_INTEGER_SPACE (3*(int)sizeof(Tcl_WideInt))
918
+
919
+/*
920
+ *----------------------------------------------------------------------------
921
+ * Type values returned by Tcl_GetNumberFromObj
922
+ * TCL_NUMBER_INT Representation is a Tcl_WideInt
923
+ * TCL_NUMBER_BIG Representation is an mp_int
924
+ * TCL_NUMBER_DOUBLE Representation is a double
925
+ * TCL_NUMBER_NAN Value is NaN.
926
+ */
927
+
928
+#define TCL_NUMBER_INT 2
929
+#define TCL_NUMBER_BIG 3
930
+#define TCL_NUMBER_DOUBLE 4
931
+#define TCL_NUMBER_NAN 5
932
+
933
+/*
934
+ * Flag values passed to Tcl_ConvertElement.
935
+ * TCL_DONT_USE_BRACES forces it not to enclose the element in braces, but to
936
+ * use backslash quoting instead.
937
+ * TCL_DONT_QUOTE_HASH disables the default quoting of the '#' character. It
938
+ * is safe to leave the hash unquoted when the element is not the first
939
+ * element of a list, and this flag can be used by the caller to indicate
940
+ * that condition.
941
+ */
942
+
943
+#define TCL_DONT_USE_BRACES 1
944
+#define TCL_DONT_QUOTE_HASH 8
945
+
946
+/*
947
+ * Flags that may be passed to Tcl_GetIndexFromObj.
948
+ * TCL_EXACT disallows abbreviated strings.
949
+ * TCL_NULL_OK allows the empty string or NULL to return TCL_OK.
950
+ * The returned value will be -1;
951
+ * TCL_INDEX_TEMP_TABLE disallows caching of lookups. A possible use case is
952
+ * a table that will not live long enough to make it worthwhile.
953
+ */
954
+
955
+#define TCL_EXACT 1
956
+#define TCL_NULL_OK 32
957
+#define TCL_INDEX_TEMP_TABLE 64
958
+
959
+/*
960
+ * Flags that may be passed to Tcl_UniCharToUtf.
961
+ * TCL_COMBINE Combine surrogates
962
+ */
963
+
964
+#if TCL_MAJOR_VERSION > 8
965
+# define TCL_COMBINE 0x1000000
966
+#else
967
+# define TCL_COMBINE 0
968
+#endif
969
+/*
970
+ *----------------------------------------------------------------------------
971
+ * Flag values passed to Tcl_RecordAndEval, Tcl_EvalObj, Tcl_EvalObjv.
972
+ * WARNING: these bit choices must not conflict with the bit choices for
973
+ * evalFlag bits in tclInt.h!
974
+ *
975
+ * Meanings:
976
+ * TCL_NO_EVAL: Just record this command
977
+ * TCL_EVAL_GLOBAL: Execute script in global namespace
978
+ * TCL_EVAL_DIRECT: Do not compile this script
979
+ * TCL_EVAL_INVOKE: Magical Tcl_EvalObjv mode for aliases/ensembles
980
+ * o Run in iPtr->lookupNsPtr or global namespace
981
+ * o Cut out of error traces
982
+ * o Don't reset the flags controlling ensemble
983
+ * error message rewriting.
984
+ * TCL_CANCEL_UNWIND: Magical Tcl_CancelEval mode that causes the
985
+ * stack for the script in progress to be
986
+ * completely unwound.
987
+ * TCL_EVAL_NOERR: Do no exception reporting at all, just return
988
+ * as the caller will report.
989
+ */
990
+
991
+#define TCL_NO_EVAL 0x010000
992
+#define TCL_EVAL_GLOBAL 0x020000
993
+#define TCL_EVAL_DIRECT 0x040000
994
+#define TCL_EVAL_INVOKE 0x080000
995
+#define TCL_CANCEL_UNWIND 0x100000
996
+#define TCL_EVAL_NOERR 0x200000
997
+
998
+/*
999
+ * Special freeProc values that may be passed to Tcl_SetResult (see the man
1000
+ * page for details):
1001
+ */
1002
+
1003
+#define TCL_VOLATILE ((Tcl_FreeProc *) 1)
1004
+#define TCL_STATIC ((Tcl_FreeProc *) 0)
1005
+#define TCL_DYNAMIC ((Tcl_FreeProc *) 3)
1006
+
1007
+/*
1008
+ * Flag values passed to variable-related functions.
1009
+ * WARNING: these bit choices must not conflict with the bit choice for
1010
+ * TCL_CANCEL_UNWIND, above.
1011
+ */
1012
+
1013
+#define TCL_GLOBAL_ONLY 1
1014
+#define TCL_NAMESPACE_ONLY 2
1015
+#define TCL_APPEND_VALUE 4
1016
+#define TCL_LIST_ELEMENT 8
1017
+#define TCL_TRACE_READS 0x10
1018
+#define TCL_TRACE_WRITES 0x20
1019
+#define TCL_TRACE_UNSETS 0x40
1020
+#define TCL_TRACE_DESTROYED 0x80
1021
+
1022
+#define TCL_LEAVE_ERR_MSG 0x200
1023
+#define TCL_TRACE_ARRAY 0x800
1024
+/* Indicate the semantics of the result of a trace. */
1025
+#define TCL_TRACE_RESULT_DYNAMIC 0x8000
1026
+#define TCL_TRACE_RESULT_OBJECT 0x10000
1027
+
1028
+/*
1029
+ * Flag values for ensemble commands.
1030
+ */
1031
+
1032
+#define TCL_ENSEMBLE_PREFIX 0x02/* Flag value to say whether to allow
1033
+ * unambiguous prefixes of commands or to
1034
+ * require exact matches for command names. */
1035
+
1036
+/*
1037
+ * Flag values passed to command-related functions.
1038
+ */
1039
+
1040
+#define TCL_TRACE_RENAME 0x2000
1041
+#define TCL_TRACE_DELETE 0x4000
1042
+
1043
+#define TCL_ALLOW_INLINE_COMPILATION 0x20000
1044
+
1045
+/*
1046
+ * Types for linked variables:
1047
+ */
1048
+
1049
+#define TCL_LINK_INT 1
1050
+#define TCL_LINK_DOUBLE 2
1051
+#define TCL_LINK_BOOLEAN 3
1052
+#define TCL_LINK_STRING 4
1053
+#define TCL_LINK_WIDE_INT 5
1054
+#define TCL_LINK_CHAR 6
1055
+#define TCL_LINK_UCHAR 7
1056
+#define TCL_LINK_SHORT 8
1057
+#define TCL_LINK_USHORT 9
1058
+#define TCL_LINK_UINT 10
1059
+#define TCL_LINK_LONG ((sizeof(long) != sizeof(int)) ? TCL_LINK_WIDE_INT : TCL_LINK_INT)
1060
+#define TCL_LINK_ULONG ((sizeof(long) != sizeof(int)) ? TCL_LINK_WIDE_UINT : TCL_LINK_UINT)
1061
+#define TCL_LINK_FLOAT 13
1062
+#define TCL_LINK_WIDE_UINT 14
1063
+#define TCL_LINK_CHARS 15
1064
+#define TCL_LINK_BINARY 16
1065
+#define TCL_LINK_READ_ONLY 0x80
1066
+
1067
+/*
1068
+ *----------------------------------------------------------------------------
1069
+ * Forward declarations of Tcl_HashTable and related types.
1070
+ */
1071
+
1072
+#ifndef TCL_HASH_TYPE
1073
+#if TCL_MAJOR_VERSION > 8
1074
+# define TCL_HASH_TYPE size_t
1075
+#else
1076
+# define TCL_HASH_TYPE unsigned
1077
+#endif
1078
+#endif
1079
+
1080
+typedef struct Tcl_HashKeyType Tcl_HashKeyType;
1081
+typedef struct Tcl_HashTable Tcl_HashTable;
1082
+typedef struct Tcl_HashEntry Tcl_HashEntry;
1083
+
1084
+typedef TCL_HASH_TYPE (Tcl_HashKeyProc) (Tcl_HashTable *tablePtr, void *keyPtr);
1085
+typedef int (Tcl_CompareHashKeysProc) (void *keyPtr, Tcl_HashEntry *hPtr);
1086
+typedef Tcl_HashEntry * (Tcl_AllocHashEntryProc) (Tcl_HashTable *tablePtr,
1087
+ void *keyPtr);
1088
+typedef void (Tcl_FreeHashEntryProc) (Tcl_HashEntry *hPtr);
1089
+
1090
+/*
1091
+ * Structure definition for an entry in a hash table. No-one outside Tcl
1092
+ * should access any of these fields directly; use the macros defined below.
1093
+ */
1094
+
1095
+struct Tcl_HashEntry {
1096
+ Tcl_HashEntry *nextPtr; /* Pointer to next entry in this hash bucket,
1097
+ * or NULL for end of chain. */
1098
+ Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */
1099
+ size_t hash; /* Hash value. */
1100
+ void *clientData; /* Application stores something here with
1101
+ * Tcl_SetHashValue. */
1102
+ union { /* Key has one of these forms: */
1103
+ char *oneWordValue; /* One-word value for key. */
1104
+ Tcl_Obj *objPtr; /* Tcl_Obj * key value. */
1105
+ int words[1]; /* Multiple integer words for key. The actual
1106
+ * size will be as large as necessary for this
1107
+ * table's keys. */
1108
+ char string[1]; /* String for key. The actual size will be as
1109
+ * large as needed to hold the key. */
1110
+ } key; /* MUST BE LAST FIELD IN RECORD!! */
1111
+};
1112
+
1113
+/*
1114
+ * Flags used in Tcl_HashKeyType.
1115
+ *
1116
+ * TCL_HASH_KEY_RANDOMIZE_HASH -
1117
+ * There are some things, pointers for example
1118
+ * which don't hash well because they do not use
1119
+ * the lower bits. If this flag is set then the
1120
+ * hash table will attempt to rectify this by
1121
+ * randomising the bits and then using the upper
1122
+ * N bits as the index into the table.
1123
+ * TCL_HASH_KEY_SYSTEM_HASH - If this flag is set then all memory internally
1124
+ * allocated for the hash table that is not for an
1125
+ * entry will use the system heap.
1126
+ * TCL_HASH_KEY_DIRECT_COMPARE -
1127
+ * Allows fast comparison for hash keys directly
1128
+ * by compare of their key.oneWordValue values,
1129
+ * before call of compareKeysProc (much slower
1130
+ * than a direct compare, so it is speed-up only
1131
+ * flag). Don't use it if keys contain values rather
1132
+ * than pointers.
1133
+ */
1134
+
1135
+#define TCL_HASH_KEY_RANDOMIZE_HASH 0x1
1136
+#define TCL_HASH_KEY_SYSTEM_HASH 0x2
1137
+#define TCL_HASH_KEY_DIRECT_COMPARE 0x4
1138
+
1139
+/*
1140
+ * Structure definition for the methods associated with a hash table key type.
1141
+ */
1142
+
1143
+#define TCL_HASH_KEY_TYPE_VERSION 1
1144
+struct Tcl_HashKeyType {
1145
+ int version; /* Version of the table. If this structure is
1146
+ * extended in future then the version can be
1147
+ * used to distinguish between different
1148
+ * structures. */
1149
+ int flags; /* Flags, see above for details. */
1150
+ Tcl_HashKeyProc *hashKeyProc;
1151
+ /* Calculates a hash value for the key. If
1152
+ * this is NULL then the pointer itself is
1153
+ * used as a hash value. */
1154
+ Tcl_CompareHashKeysProc *compareKeysProc;
1155
+ /* Compares two keys and returns zero if they
1156
+ * do not match, and non-zero if they do. If
1157
+ * this is NULL then the pointers are
1158
+ * compared. */
1159
+ Tcl_AllocHashEntryProc *allocEntryProc;
1160
+ /* Called to allocate memory for a new entry,
1161
+ * i.e. if the key is a string then this could
1162
+ * allocate a single block which contains
1163
+ * enough space for both the entry and the
1164
+ * string. Only the key field of the allocated
1165
+ * Tcl_HashEntry structure needs to be filled
1166
+ * in. If something else needs to be done to
1167
+ * the key, i.e. incrementing a reference
1168
+ * count then that should be done by this
1169
+ * function. If this is NULL then Tcl_Alloc is
1170
+ * used to allocate enough space for a
1171
+ * Tcl_HashEntry and the key pointer is
1172
+ * assigned to key.oneWordValue. */
1173
+ Tcl_FreeHashEntryProc *freeEntryProc;
1174
+ /* Called to free memory associated with an
1175
+ * entry. If something else needs to be done
1176
+ * to the key, i.e. decrementing a reference
1177
+ * count then that should be done by this
1178
+ * function. If this is NULL then Tcl_Free is
1179
+ * used to free the Tcl_HashEntry. */
1180
+};
1181
+
1182
+/*
1183
+ * Structure definition for a hash table. Must be in tcl.h so clients can
1184
+ * allocate space for these structures, but clients should never access any
1185
+ * fields in this structure.
1186
+ */
1187
+
1188
+#define TCL_SMALL_HASH_TABLE 4
1189
+struct Tcl_HashTable {
1190
+ Tcl_HashEntry **buckets; /* Pointer to bucket array. Each element
1191
+ * points to first entry in bucket's hash
1192
+ * chain, or NULL. */
1193
+ Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE];
1194
+ /* Bucket array used for small tables (to
1195
+ * avoid mallocs and frees). */
1196
+ Tcl_Size numBuckets; /* Total number of buckets allocated at
1197
+ * **bucketPtr. */
1198
+ Tcl_Size numEntries; /* Total number of entries present in
1199
+ * table. */
1200
+ Tcl_Size rebuildSize; /* Enlarge table when numEntries gets to be
1201
+ * this large. */
1202
+#if TCL_MAJOR_VERSION > 8
1203
+ size_t mask; /* Mask value used in hashing function. */
1204
+#endif
1205
+ int downShift; /* Shift count used in hashing function.
1206
+ * Designed to use high-order bits of
1207
+ * randomized keys. */
1208
+#if TCL_MAJOR_VERSION < 9
1209
+ int mask; /* Mask value used in hashing function. */
1210
+#endif
1211
+ int keyType; /* Type of keys used in this table. It's
1212
+ * either TCL_CUSTOM_KEYS, TCL_STRING_KEYS,
1213
+ * TCL_ONE_WORD_KEYS, or an integer giving the
1214
+ * number of ints that is the size of the
1215
+ * key. */
1216
+ Tcl_HashEntry *(*findProc) (Tcl_HashTable *tablePtr, const char *key);
1217
+ Tcl_HashEntry *(*createProc) (Tcl_HashTable *tablePtr, const char *key,
1218
+ int *newPtr);
1219
+ const Tcl_HashKeyType *typePtr;
1220
+ /* Type of the keys used in the
1221
+ * Tcl_HashTable. */
1222
+};
1223
+
1224
+/*
1225
+ * Structure definition for information used to keep track of searches through
1226
+ * hash tables:
1227
+ */
1228
+
1229
+typedef struct Tcl_HashSearch {
1230
+ Tcl_HashTable *tablePtr; /* Table being searched. */
1231
+ Tcl_Size nextIndex; /* Index of next bucket to be enumerated after
1232
+ * present one. */
1233
+ Tcl_HashEntry *nextEntryPtr;/* Next entry to be enumerated in the current
1234
+ * bucket. */
1235
+} Tcl_HashSearch;
1236
+
1237
+/*
1238
+ * Acceptable key types for hash tables:
1239
+ *
1240
+ * TCL_STRING_KEYS: The keys are strings, they are copied into the
1241
+ * entry.
1242
+ * TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored
1243
+ * in the entry.
1244
+ * TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copied
1245
+ * into the entry.
1246
+ * TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary types, the
1247
+ * pointer is stored in the entry.
1248
+ *
1249
+ * While maintaining binary compatibility the above have to be distinct values
1250
+ * as they are used to differentiate between old versions of the hash table
1251
+ * which don't have a typePtr and new ones which do. Once binary compatibility
1252
+ * is discarded in favour of making more wide spread changes TCL_STRING_KEYS
1253
+ * can be the same as TCL_CUSTOM_TYPE_KEYS, and TCL_ONE_WORD_KEYS can be the
1254
+ * same as TCL_CUSTOM_PTR_KEYS because they simply determine how the key is
1255
+ * accessed from the entry and not the behaviour.
1256
+ */
1257
+
1258
+#define TCL_STRING_KEYS (0)
1259
+#define TCL_ONE_WORD_KEYS (1)
1260
+#define TCL_CUSTOM_TYPE_KEYS (-2)
1261
+#define TCL_CUSTOM_PTR_KEYS (-1)
1262
+
1263
+/*
1264
+ * Structure definition for information used to keep track of searches through
1265
+ * dictionaries. These fields should not be accessed by code outside
1266
+ * tclDictObj.c
1267
+ */
1268
+
1269
+typedef struct {
1270
+ void *next; /* Search position for underlying hash
1271
+ * table. */
1272
+ TCL_HASH_TYPE epoch; /* Epoch marker for dictionary being searched,
1273
+ * or 0 if search has terminated. */
1274
+ Tcl_Dict dictionaryPtr; /* Reference to dictionary being searched. */
1275
+} Tcl_DictSearch;
1276
+
1277
+
1278
+/*
1279
+ *----------------------------------------------------------------------------
1280
+ * Flag values to pass to Tcl_DoOneEvent to disable searches for some kinds of
1281
+ * events:
1282
+ */
1283
+
1284
+#define TCL_DONT_WAIT (1<<1)
1285
+#define TCL_WINDOW_EVENTS (1<<2)
1286
+#define TCL_FILE_EVENTS (1<<3)
1287
+#define TCL_TIMER_EVENTS (1<<4)
1288
+#define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */
1289
+#define TCL_ALL_EVENTS (~TCL_DONT_WAIT)
1290
+
1291
+/*
1292
+ * The following structure defines a generic event for the Tcl event system.
1293
+ * These are the things that are queued in calls to Tcl_QueueEvent and
1294
+ * serviced later by Tcl_DoOneEvent. There can be many different kinds of
1295
+ * events with different fields, corresponding to window events, timer events,
1296
+ * etc. The structure for a particular event consists of a Tcl_Event header
1297
+ * followed by additional information specific to that event.
1298
+ */
1299
+
1300
+struct Tcl_Event {
1301
+ Tcl_EventProc *proc; /* Function to call to service this event. */
1302
+ struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */
1303
+};
1304
+
1305
+/*
1306
+ * Positions to pass to Tcl_QueueEvent/Tcl_ThreadQueueEvent:
1307
+ */
1308
+
1309
+typedef enum {
1310
+ TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK,
1311
+ TCL_QUEUE_ALERT_IF_EMPTY=4
1312
+} Tcl_QueuePosition;
1313
+
1314
+/*
1315
+ * Values to pass to Tcl_SetServiceMode to specify the behavior of notifier
1316
+ * event routines.
1317
+ */
1318
+
1319
+#define TCL_SERVICE_NONE 0
1320
+#define TCL_SERVICE_ALL 1
1321
+
1322
+/*
1323
+ * The following structure keeps is used to hold a time value, either as an
1324
+ * absolute time (the number of seconds from the epoch) or as an elapsed time.
1325
+ * On Unix systems the epoch is Midnight Jan 1, 1970 GMT.
1326
+ */
1327
+
1328
+typedef struct Tcl_Time {
1329
+#if TCL_MAJOR_VERSION > 8
1330
+ long long sec; /* Seconds. */
1331
+#else
1332
+ long sec; /* Seconds. */
1333
+#endif
1334
+#if defined(_CYGWIN_) && TCL_MAJOR_VERSION > 8
1335
+ int usec; /* Microseconds. */
1336
+#else
1337
+ long usec; /* Microseconds. */
1338
+#endif
1339
+} Tcl_Time;
1340
+
1341
+typedef void (Tcl_SetTimerProc) (const Tcl_Time *timePtr);
1342
+typedef int (Tcl_WaitForEventProc) (const Tcl_Time *timePtr);
1343
+
1344
+/*
1345
+ * TIP #233 (Virtualized Time)
1346
+ */
1347
+
1348
+typedef void (Tcl_GetTimeProc) (Tcl_Time *timebuf, void *clientData);
1349
+typedef void (Tcl_ScaleTimeProc) (Tcl_Time *timebuf, void *clientData);
1350
+
1351
+/*
1352
+ *----------------------------------------------------------------------------
1353
+ * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler to
1354
+ * indicate what sorts of events are of interest:
1355
+ */
1356
+
1357
+#define TCL_READABLE (1<<1)
1358
+#define TCL_WRITABLE (1<<2)
1359
+#define TCL_EXCEPTION (1<<3)
1360
+
1361
+/*
1362
+ * Flag values to pass to Tcl_OpenCommandChannel to indicate the disposition
1363
+ * of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, are also used in
1364
+ * Tcl_GetStdChannel.
1365
+ */
1366
+
1367
+#define TCL_STDIN (1<<1)
1368
+#define TCL_STDOUT (1<<2)
1369
+#define TCL_STDERR (1<<3)
1370
+#define TCL_ENFORCE_MODE (1<<4)
1371
+
1372
+/*
1373
+ * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel
1374
+ * should be closed.
1375
+ */
1376
+
1377
+#define TCL_CLOSE_READ (1<<1)
1378
+#define TCL_CLOSE_WRITE (1<<2)
1379
+
1380
+/*
1381
+ * Value to use as the closeProc for a channel that supports the close2Proc
1382
+ * interface.
1383
+ */
1384
+
1385
+#if TCL_MAJOR_VERSION > 8
1386
+# define TCL_CLOSE2PROC NULL
1387
+#else
1388
+# define TCL_CLOSE2PROC ((void *) 1)
1389
+#endif
1390
+
1391
+/*
1392
+ * Channel version tag. This was introduced in 8.3.2/8.4.
1393
+ */
1394
+
1395
+#define TCL_CHANNEL_VERSION_5 ((Tcl_ChannelTypeVersion) 0x5)
1396
+
1397
+/*
1398
+ * TIP #218: Channel Actions, Ids for Tcl_DriverThreadActionProc.
1399
+ */
1400
+
1401
+#define TCL_CHANNEL_THREAD_INSERT (0)
1402
+#define TCL_CHANNEL_THREAD_REMOVE (1)
1403
+
1404
+/*
1405
+ * Typedefs for the various operations in a channel type:
1406
+ */
1407
+
1408
+typedef int (Tcl_DriverBlockModeProc) (void *instanceData, int mode);
1409
+typedef void Tcl_DriverCloseProc;
1410
+typedef int (Tcl_DriverClose2Proc) (void *instanceData,
1411
+ Tcl_Interp *interp, int flags);
1412
+typedef int (Tcl_DriverInputProc) (void *instanceData, char *buf,
1413
+ int toRead, int *errorCodePtr);
1414
+typedef int (Tcl_DriverOutputProc) (void *instanceData,
1415
+ const char *buf, int toWrite, int *errorCodePtr);
1416
+typedef void Tcl_DriverSeekProc;
1417
+typedef int (Tcl_DriverSetOptionProc) (void *instanceData,
1418
+ Tcl_Interp *interp, const char *optionName,
1419
+ const char *value);
1420
+typedef int (Tcl_DriverGetOptionProc) (void *instanceData,
1421
+ Tcl_Interp *interp, const char *optionName,
1422
+ Tcl_DString *dsPtr);
1423
+typedef void (Tcl_DriverWatchProc) (void *instanceData, int mask);
1424
+typedef int (Tcl_DriverGetHandleProc) (void *instanceData,
1425
+ int direction, void **handlePtr);
1426
+typedef int (Tcl_DriverFlushProc) (void *instanceData);
1427
+typedef int (Tcl_DriverHandlerProc) (void *instanceData,
1428
+ int interestMask);
1429
+typedef long long (Tcl_DriverWideSeekProc) (void *instanceData,
1430
+ long long offset, int mode, int *errorCodePtr);
1431
+/*
1432
+ * TIP #218, Channel Thread Actions
1433
+ */
1434
+typedef void (Tcl_DriverThreadActionProc) (void *instanceData,
1435
+ int action);
1436
+/*
1437
+ * TIP #208, File Truncation (etc.)
1438
+ */
1439
+typedef int (Tcl_DriverTruncateProc) (void *instanceData,
1440
+ long long length);
1441
+
1442
+/*
1443
+ * struct Tcl_ChannelType:
1444
+ *
1445
+ * One such structure exists for each type (kind) of channel. It collects
1446
+ * together in one place all the functions that are part of the specific
1447
+ * channel type.
1448
+ *
1449
+ * It is recommend that the Tcl_Channel* functions are used to access elements
1450
+ * of this structure, instead of direct accessing.
1451
+ */
1452
+
1453
+typedef struct Tcl_ChannelType {
1454
+ const char *typeName; /* The name of the channel type in Tcl
1455
+ * commands. This storage is owned by channel
1456
+ * type. */
1457
+ Tcl_ChannelTypeVersion version;
1458
+ /* Version of the channel type. */
1459
+ void *closeProc; /* Not used any more. */
1460
+ Tcl_DriverInputProc *inputProc;
1461
+ /* Function to call for input on channel. */
1462
+ Tcl_DriverOutputProc *outputProc;
1463
+ /* Function to call for output on channel. */
1464
+ void *seekProc; /* Not used any more. */
1465
+ Tcl_DriverSetOptionProc *setOptionProc;
1466
+ /* Set an option on a channel. */
1467
+ Tcl_DriverGetOptionProc *getOptionProc;
1468
+ /* Get an option from a channel. */
1469
+ Tcl_DriverWatchProc *watchProc;
1470
+ /* Set up the notifier to watch for events on
1471
+ * this channel. */
1472
+ Tcl_DriverGetHandleProc *getHandleProc;
1473
+ /* Get an OS handle from the channel or NULL
1474
+ * if not supported. */
1475
+ Tcl_DriverClose2Proc *close2Proc;
1476
+ /* Function to call to close the channel if
1477
+ * the device supports closing the read &
1478
+ * write sides independently. */
1479
+ Tcl_DriverBlockModeProc *blockModeProc;
1480
+ /* Set blocking mode for the raw channel. May
1481
+ * be NULL. */
1482
+ Tcl_DriverFlushProc *flushProc;
1483
+ /* Function to call to flush a channel. May be
1484
+ * NULL. */
1485
+ Tcl_DriverHandlerProc *handlerProc;
1486
+ /* Function to call to handle a channel event.
1487
+ * This will be passed up the stacked channel
1488
+ * chain. */
1489
+ Tcl_DriverWideSeekProc *wideSeekProc;
1490
+ /* Function to call to seek on the channel
1491
+ * which can handle 64-bit offsets. May be
1492
+ * NULL, and must be NULL if seekProc is
1493
+ * NULL. */
1494
+ Tcl_DriverThreadActionProc *threadActionProc;
1495
+ /* Function to call to notify the driver of
1496
+ * thread specific activity for a channel. May
1497
+ * be NULL. */
1498
+ Tcl_DriverTruncateProc *truncateProc;
1499
+ /* Function to call to truncate the underlying
1500
+ * file to a particular length. May be NULL if
1501
+ * the channel does not support truncation. */
1502
+} Tcl_ChannelType;
1503
+
1504
+/*
1505
+ * The following flags determine whether the blockModeProc above should set
1506
+ * the channel into blocking or nonblocking mode. They are passed as arguments
1507
+ * to the blockModeProc function in the above structure.
1508
+ */
1509
+
1510
+#define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. */
1511
+#define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking
1512
+ * mode. */
1513
+
1514
+/*
1515
+ *----------------------------------------------------------------------------
1516
+ * Enum for different types of file paths.
1517
+ */
1518
+
1519
+typedef enum Tcl_PathType {
1520
+ TCL_PATH_ABSOLUTE,
1521
+ TCL_PATH_RELATIVE,
1522
+ TCL_PATH_VOLUME_RELATIVE
1523
+} Tcl_PathType;
1524
+
1525
+/*
1526
+ * The following structure is used to pass glob type data amongst the various
1527
+ * glob routines and Tcl_FSMatchInDirectory.
1528
+ */
1529
+
1530
+typedef struct Tcl_GlobTypeData {
1531
+ int type; /* Corresponds to bcdpfls as in 'find -t'. */
1532
+ int perm; /* Corresponds to file permissions. */
1533
+ Tcl_Obj *macType; /* Acceptable Mac type. */
1534
+ Tcl_Obj *macCreator; /* Acceptable Mac creator. */
1535
+} Tcl_GlobTypeData;
1536
+
1537
+/*
1538
+ * Type and permission definitions for glob command.
1539
+ */
1540
+
1541
+#define TCL_GLOB_TYPE_BLOCK (1<<0)
1542
+#define TCL_GLOB_TYPE_CHAR (1<<1)
1543
+#define TCL_GLOB_TYPE_DIR (1<<2)
1544
+#define TCL_GLOB_TYPE_PIPE (1<<3)
1545
+#define TCL_GLOB_TYPE_FILE (1<<4)
1546
+#define TCL_GLOB_TYPE_LINK (1<<5)
1547
+#define TCL_GLOB_TYPE_SOCK (1<<6)
1548
+#define TCL_GLOB_TYPE_MOUNT (1<<7)
1549
+
1550
+#define TCL_GLOB_PERM_RONLY (1<<0)
1551
+#define TCL_GLOB_PERM_HIDDEN (1<<1)
1552
+#define TCL_GLOB_PERM_R (1<<2)
1553
+#define TCL_GLOB_PERM_W (1<<3)
1554
+#define TCL_GLOB_PERM_X (1<<4)
1555
+
1556
+/*
1557
+ * Flags for the unload callback function.
1558
+ */
1559
+
1560
+#define TCL_UNLOAD_DETACH_FROM_INTERPRETER (1<<0)
1561
+#define TCL_UNLOAD_DETACH_FROM_PROCESS (1<<1)
1562
+
1563
+/*
1564
+ * Typedefs for the various filesystem operations:
1565
+ */
1566
+
1567
+typedef int (Tcl_FSStatProc) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
1568
+typedef int (Tcl_FSAccessProc) (Tcl_Obj *pathPtr, int mode);
1569
+typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) (Tcl_Interp *interp,
1570
+ Tcl_Obj *pathPtr, int mode, int permissions);
1571
+typedef int (Tcl_FSMatchInDirectoryProc) (Tcl_Interp *interp, Tcl_Obj *result,
1572
+ Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types);
1573
+typedef Tcl_Obj * (Tcl_FSGetCwdProc) (Tcl_Interp *interp);
1574
+typedef int (Tcl_FSChdirProc) (Tcl_Obj *pathPtr);
1575
+typedef int (Tcl_FSLstatProc) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
1576
+typedef int (Tcl_FSCreateDirectoryProc) (Tcl_Obj *pathPtr);
1577
+typedef int (Tcl_FSDeleteFileProc) (Tcl_Obj *pathPtr);
1578
+typedef int (Tcl_FSCopyDirectoryProc) (Tcl_Obj *srcPathPtr,
1579
+ Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
1580
+typedef int (Tcl_FSCopyFileProc) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr);
1581
+typedef int (Tcl_FSRemoveDirectoryProc) (Tcl_Obj *pathPtr, int recursive,
1582
+ Tcl_Obj **errorPtr);
1583
+typedef int (Tcl_FSRenameFileProc) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr);
1584
+typedef void (Tcl_FSUnloadFileProc) (Tcl_LoadHandle loadHandle);
1585
+typedef Tcl_Obj * (Tcl_FSListVolumesProc) (void);
1586
+/* We have to declare the utime structure here. */
1587
+struct utimbuf;
1588
+typedef int (Tcl_FSUtimeProc) (Tcl_Obj *pathPtr, struct utimbuf *tval);
1589
+typedef int (Tcl_FSNormalizePathProc) (Tcl_Interp *interp, Tcl_Obj *pathPtr,
1590
+ int nextCheckpoint);
1591
+typedef int (Tcl_FSFileAttrsGetProc) (Tcl_Interp *interp, int index,
1592
+ Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef);
1593
+typedef const char *const * (Tcl_FSFileAttrStringsProc) (Tcl_Obj *pathPtr,
1594
+ Tcl_Obj **objPtrRef);
1595
+typedef int (Tcl_FSFileAttrsSetProc) (Tcl_Interp *interp, int index,
1596
+ Tcl_Obj *pathPtr, Tcl_Obj *objPtr);
1597
+typedef Tcl_Obj * (Tcl_FSLinkProc) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr,
1598
+ int linkType);
1599
+typedef int (Tcl_FSLoadFileProc) (Tcl_Interp *interp, Tcl_Obj *pathPtr,
1600
+ Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr);
1601
+typedef int (Tcl_FSPathInFilesystemProc) (Tcl_Obj *pathPtr,
1602
+ void **clientDataPtr);
1603
+typedef Tcl_Obj * (Tcl_FSFilesystemPathTypeProc) (Tcl_Obj *pathPtr);
1604
+typedef Tcl_Obj * (Tcl_FSFilesystemSeparatorProc) (Tcl_Obj *pathPtr);
1605
+#define Tcl_FSFreeInternalRepProc Tcl_FreeProc
1606
+typedef void *(Tcl_FSDupInternalRepProc) (void *clientData);
1607
+typedef Tcl_Obj * (Tcl_FSInternalToNormalizedProc) (void *clientData);
1608
+typedef void *(Tcl_FSCreateInternalRepProc) (Tcl_Obj *pathPtr);
1609
+
1610
+typedef struct Tcl_FSVersion_ *Tcl_FSVersion;
1611
+
1612
+/*
1613
+ *----------------------------------------------------------------------------
1614
+ * Data structures related to hooking into the filesystem
1615
+ */
1616
+
1617
+/*
1618
+ * Filesystem version tag. This was introduced in 8.4.
1619
+ */
1620
+
1621
+#define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1)
1622
+
1623
+/*
1624
+ * struct Tcl_Filesystem:
1625
+ *
1626
+ * One such structure exists for each type (kind) of filesystem. It collects
1627
+ * together the functions that form the interface for a particulr the
1628
+ * filesystem. Tcl always accesses the filesystem through one of these
1629
+ * structures.
1630
+ *
1631
+ * Not all entries need be non-NULL; any which are NULL are simply ignored.
1632
+ * However, a complete filesystem should provide all of these functions. The
1633
+ * explanations in the structure show the importance of each function.
1634
+ */
1635
+
1636
+typedef struct Tcl_Filesystem {
1637
+ const char *typeName; /* The name of the filesystem. */
1638
+ Tcl_Size structureLength; /* Length of this structure, so future binary
1639
+ * compatibility can be assured. */
1640
+ Tcl_FSVersion version; /* Version of the filesystem type. */
1641
+ Tcl_FSPathInFilesystemProc *pathInFilesystemProc;
1642
+ /* Determines whether the pathname is in this
1643
+ * filesystem. This is the most important
1644
+ * filesystem function. */
1645
+ Tcl_FSDupInternalRepProc *dupInternalRepProc;
1646
+ /* Duplicates the internal handle of the node.
1647
+ * If it is NULL, the filesystem is less
1648
+ * performant. */
1649
+ Tcl_FSFreeInternalRepProc *freeInternalRepProc;
1650
+ /* Frees the internal handle of the node. NULL
1651
+ * only if there is no need to free resources
1652
+ * used for the internal handle. */
1653
+ Tcl_FSInternalToNormalizedProc *internalToNormalizedProc;
1654
+ /* Converts the internal handle to a normalized
1655
+ * path. NULL if the filesystem creates nodes
1656
+ * having no pathname. */
1657
+ Tcl_FSCreateInternalRepProc *createInternalRepProc;
1658
+ /* Creates an internal handle for a pathname.
1659
+ * May be NULL if pathnames have no internal
1660
+ * handle or if pathInFilesystemProc always
1661
+ * immediately creates an internal
1662
+ * representation for pathnames in the
1663
+ * filesystem. */
1664
+ Tcl_FSNormalizePathProc *normalizePathProc;
1665
+ /* Normalizes a path. Should be implemented if
1666
+ * the filesystems supports multiple paths to
1667
+ * the same node. */
1668
+ Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc;
1669
+ /* Determines the type of a path in this
1670
+ * filesystem. May be NULL. */
1671
+ Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc;
1672
+ /* Produces the separator character(s) for this
1673
+ * filesystem. Must not be NULL. */
1674
+ Tcl_FSStatProc *statProc; /* Called by 'Tcl_FSStat()'. Provided by any
1675
+ * reasonable filesystem. */
1676
+ Tcl_FSAccessProc *accessProc;
1677
+ /* Called by 'Tcl_FSAccess()'. Implemented by
1678
+ * any reasonable filesystem. */
1679
+ Tcl_FSOpenFileChannelProc *openFileChannelProc;
1680
+ /* Called by 'Tcl_FSOpenFileChannel()'.
1681
+ * Provided by any reasonable filesystem. */
1682
+ Tcl_FSMatchInDirectoryProc *matchInDirectoryProc;
1683
+ /* Called by 'Tcl_FSMatchInDirectory()'. NULL
1684
+ * if the filesystem does not support glob or
1685
+ * recursive copy. */
1686
+ Tcl_FSUtimeProc *utimeProc; /* Called by 'Tcl_FSUtime()', by 'file
1687
+ * mtime' to set (not read) times, 'file
1688
+ * atime', and the open-r/open-w/fcopy variant
1689
+ * of 'file copy'. */
1690
+ Tcl_FSLinkProc *linkProc; /* Called by 'Tcl_FSLink()'. NULL if reading or
1691
+ * creating links is not supported. */
1692
+ Tcl_FSListVolumesProc *listVolumesProc;
1693
+ /* Lists filesystem volumes added by this
1694
+ * filesystem. NULL if the filesystem does not
1695
+ * use volumes. */
1696
+ Tcl_FSFileAttrStringsProc *fileAttrStringsProc;
1697
+ /* List all valid attributes strings. NULL if
1698
+ * the filesystem does not support the 'file
1699
+ * attributes' command. Can be used to attach
1700
+ * arbitrary additional data to files in a
1701
+ * filesystem. */
1702
+ Tcl_FSFileAttrsGetProc *fileAttrsGetProc;
1703
+ /* Called by 'Tcl_FSFileAttrsGet()' and by
1704
+ * 'file attributes'. */
1705
+ Tcl_FSFileAttrsSetProc *fileAttrsSetProc;
1706
+ /* Called by 'Tcl_FSFileAttrsSet()' and by
1707
+ * 'file attributes'. */
1708
+ Tcl_FSCreateDirectoryProc *createDirectoryProc;
1709
+ /* Called by 'Tcl_FSCreateDirectory()'. May be
1710
+ * NULL if the filesystem is read-only. */
1711
+ Tcl_FSRemoveDirectoryProc *removeDirectoryProc;
1712
+ /* Called by 'Tcl_FSRemoveDirectory()'. May be
1713
+ * NULL if the filesystem is read-only. */
1714
+ Tcl_FSDeleteFileProc *deleteFileProc;
1715
+ /* Called by 'Tcl_FSDeleteFile()' May be NULL
1716
+ * if the filesystem is is read-only. */
1717
+ Tcl_FSCopyFileProc *copyFileProc;
1718
+ /* Called by 'Tcl_FSCopyFile()'. If NULL, for
1719
+ * a copy operation at the script level (not
1720
+ * C) Tcl uses open-r, open-w and fcopy. */
1721
+ Tcl_FSRenameFileProc *renameFileProc;
1722
+ /* Called by 'Tcl_FSRenameFile()'. If NULL, for
1723
+ * a rename operation at the script level (not
1724
+ * C) Tcl performs a copy operation followed
1725
+ * by a delete operation. */
1726
+ Tcl_FSCopyDirectoryProc *copyDirectoryProc;
1727
+ /* Called by 'Tcl_FSCopyDirectory()'. If NULL,
1728
+ * for a copy operation at the script level
1729
+ * (not C) Tcl recursively creates directories
1730
+ * and copies files. */
1731
+ Tcl_FSLstatProc *lstatProc; /* Called by 'Tcl_FSLstat()'. If NULL, Tcl
1732
+ * attempts to use 'statProc' instead. */
1733
+ Tcl_FSLoadFileProc *loadFileProc;
1734
+ /* Called by 'Tcl_FSLoadFile()'. If NULL, Tcl
1735
+ * performs a copy to a temporary file in the
1736
+ * native filesystem and then calls
1737
+ * Tcl_FSLoadFile() on that temporary copy. */
1738
+ Tcl_FSGetCwdProc *getCwdProc;
1739
+ /* Called by 'Tcl_FSGetCwd()'. Normally NULL.
1740
+ * Usually only called once: If 'getcwd' is
1741
+ * called before 'chdir' is ever called. */
1742
+ Tcl_FSChdirProc *chdirProc; /* Called by 'Tcl_FSChdir()'. For a virtual
1743
+ * filesystem, chdirProc just returns zero
1744
+ * (success) if the pathname is a valid
1745
+ * directory, and some other value otherwise.
1746
+ * For A real filesystem, chdirProc performs
1747
+ * the correct action, e.g. calls the system
1748
+ * 'chdir' function. If not implemented, then
1749
+ * 'cd' and 'pwd' fail for a pathname in this
1750
+ * filesystem. On success Tcl stores the
1751
+ * pathname for use by GetCwd. If NULL, Tcl
1752
+ * performs records the pathname as the new
1753
+ * current directory if it passes a series of
1754
+ * directory access checks. */
1755
+} Tcl_Filesystem;
1756
+
1757
+/*
1758
+ * The following definitions are used as values for the 'linkAction' flag to
1759
+ * Tcl_FSLink, or the linkProc of any filesystem. Any combination of flags can
1760
+ * be given. For link creation, the linkProc should create a link which
1761
+ * matches any of the types given.
1762
+ *
1763
+ * TCL_CREATE_SYMBOLIC_LINK - Create a symbolic or soft link.
1764
+ * TCL_CREATE_HARD_LINK - Create a hard link.
1765
+ */
1766
+
1767
+#define TCL_CREATE_SYMBOLIC_LINK 0x01
1768
+#define TCL_CREATE_HARD_LINK 0x02
1769
+
1770
+/*
1771
+ *----------------------------------------------------------------------------
1772
+ * The following structure represents the Notifier functions that you can
1773
+ * override with the Tcl_SetNotifier call.
1774
+ */
1775
+
1776
+typedef struct Tcl_NotifierProcs {
1777
+ Tcl_SetTimerProc *setTimerProc;
1778
+ Tcl_WaitForEventProc *waitForEventProc;
1779
+ Tcl_CreateFileHandlerProc *createFileHandlerProc;
1780
+ Tcl_DeleteFileHandlerProc *deleteFileHandlerProc;
1781
+ Tcl_InitNotifierProc *initNotifierProc;
1782
+ Tcl_FinalizeNotifierProc *finalizeNotifierProc;
1783
+ Tcl_AlertNotifierProc *alertNotifierProc;
1784
+ Tcl_ServiceModeHookProc *serviceModeHookProc;
1785
+} Tcl_NotifierProcs;
1786
+
1787
+
1788
+/*
1789
+ *----------------------------------------------------------------------------
1790
+ * The following data structures and declarations are for the new Tcl parser.
1791
+ *
1792
+ * For each word of a command, and for each piece of a word such as a variable
1793
+ * reference, one of the following structures is created to describe the
1794
+ * token.
1795
+ */
1796
+
1797
+typedef struct Tcl_Token {
1798
+ int type; /* Type of token, such as TCL_TOKEN_WORD; see
1799
+ * below for valid types. */
1800
+ const char *start; /* First character in token. */
1801
+ Tcl_Size size; /* Number of bytes in token. */
1802
+ Tcl_Size numComponents; /* If this token is composed of other tokens,
1803
+ * this field tells how many of them there are
1804
+ * (including components of components, etc.).
1805
+ * The component tokens immediately follow
1806
+ * this one. */
1807
+} Tcl_Token;
1808
+
1809
+/*
1810
+ * Type values defined for Tcl_Token structures. These values are defined as
1811
+ * mask bits so that it's easy to check for collections of types.
1812
+ *
1813
+ * TCL_TOKEN_WORD - The token describes one word of a command,
1814
+ * from the first non-blank character of the word
1815
+ * (which may be " or {) up to but not including
1816
+ * the space, semicolon, or bracket that
1817
+ * terminates the word. NumComponents counts the
1818
+ * total number of sub-tokens that make up the
1819
+ * word. This includes, for example, sub-tokens
1820
+ * of TCL_TOKEN_VARIABLE tokens.
1821
+ * TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD except
1822
+ * that the word is guaranteed to consist of a
1823
+ * single TCL_TOKEN_TEXT sub-token.
1824
+ * TCL_TOKEN_TEXT - The token describes a range of literal text
1825
+ * that is part of a word. NumComponents is
1826
+ * always 0.
1827
+ * TCL_TOKEN_BS - The token describes a backslash sequence that
1828
+ * must be collapsed. NumComponents is always 0.
1829
+ * TCL_TOKEN_COMMAND - The token describes a command whose result
1830
+ * must be substituted into the word. The token
1831
+ * includes the enclosing brackets. NumComponents
1832
+ * is always 0.
1833
+ * TCL_TOKEN_VARIABLE - The token describes a variable substitution,
1834
+ * including the dollar sign, variable name, and
1835
+ * array index (if there is one) up through the
1836
+ * right parentheses. NumComponents tells how
1837
+ * many additional tokens follow to represent the
1838
+ * variable name. The first token will be a
1839
+ * TCL_TOKEN_TEXT token that describes the
1840
+ * variable name. If the variable is an array
1841
+ * reference then there will be one or more
1842
+ * additional tokens, of type TCL_TOKEN_TEXT,
1843
+ * TCL_TOKEN_BS, TCL_TOKEN_COMMAND, and
1844
+ * TCL_TOKEN_VARIABLE, that describe the array
1845
+ * index; numComponents counts the total number
1846
+ * of nested tokens that make up the variable
1847
+ * reference, including sub-tokens of
1848
+ * TCL_TOKEN_VARIABLE tokens.
1849
+ * TCL_TOKEN_SUB_EXPR - The token describes one subexpression of an
1850
+ * expression, from the first non-blank character
1851
+ * of the subexpression up to but not including
1852
+ * the space, brace, or bracket that terminates
1853
+ * the subexpression. NumComponents counts the
1854
+ * total number of following subtokens that make
1855
+ * up the subexpression; this includes all
1856
+ * subtokens for any nested TCL_TOKEN_SUB_EXPR
1857
+ * tokens. For example, a numeric value used as a
1858
+ * primitive operand is described by a
1859
+ * TCL_TOKEN_SUB_EXPR token followed by a
1860
+ * TCL_TOKEN_TEXT token. A binary subexpression
1861
+ * is described by a TCL_TOKEN_SUB_EXPR token
1862
+ * followed by the TCL_TOKEN_OPERATOR token for
1863
+ * the operator, then TCL_TOKEN_SUB_EXPR tokens
1864
+ * for the left then the right operands.
1865
+ * TCL_TOKEN_OPERATOR - The token describes one expression operator.
1866
+ * An operator might be the name of a math
1867
+ * function such as "abs". A TCL_TOKEN_OPERATOR
1868
+ * token is always preceded by one
1869
+ * TCL_TOKEN_SUB_EXPR token for the operator's
1870
+ * subexpression, and is followed by zero or more
1871
+ * TCL_TOKEN_SUB_EXPR tokens for the operator's
1872
+ * operands. NumComponents is always 0.
1873
+ * TCL_TOKEN_EXPAND_WORD - This token is just like TCL_TOKEN_WORD except
1874
+ * that it marks a word that began with the
1875
+ * literal character prefix "{*}". This word is
1876
+ * marked to be expanded - that is, broken into
1877
+ * words after substitution is complete.
1878
+ */
1879
+
1880
+#define TCL_TOKEN_WORD 1
1881
+#define TCL_TOKEN_SIMPLE_WORD 2
1882
+#define TCL_TOKEN_TEXT 4
1883
+#define TCL_TOKEN_BS 8
1884
+#define TCL_TOKEN_COMMAND 16
1885
+#define TCL_TOKEN_VARIABLE 32
1886
+#define TCL_TOKEN_SUB_EXPR 64
1887
+#define TCL_TOKEN_OPERATOR 128
1888
+#define TCL_TOKEN_EXPAND_WORD 256
1889
+
1890
+/*
1891
+ * Parsing error types. On any parsing error, one of these values will be
1892
+ * stored in the error field of the Tcl_Parse structure defined below.
1893
+ */
1894
+
1895
+#define TCL_PARSE_SUCCESS 0
1896
+#define TCL_PARSE_QUOTE_EXTRA 1
1897
+#define TCL_PARSE_BRACE_EXTRA 2
1898
+#define TCL_PARSE_MISSING_BRACE 3
1899
+#define TCL_PARSE_MISSING_BRACKET 4
1900
+#define TCL_PARSE_MISSING_PAREN 5
1901
+#define TCL_PARSE_MISSING_QUOTE 6
1902
+#define TCL_PARSE_MISSING_VAR_BRACE 7
1903
+#define TCL_PARSE_SYNTAX 8
1904
+#define TCL_PARSE_BAD_NUMBER 9
1905
+
1906
+/*
1907
+ * A structure of the following type is filled in by Tcl_ParseCommand. It
1908
+ * describes a single command parsed from an input string.
1909
+ */
1910
+
1911
+#define NUM_STATIC_TOKENS 20
1912
+
1913
+typedef struct Tcl_Parse {
1914
+ const char *commentStart; /* Pointer to # that begins the first of one
1915
+ * or more comments preceding the command. */
1916
+ Tcl_Size commentSize; /* Number of bytes in comments (up through
1917
+ * newline character that terminates the last
1918
+ * comment). If there were no comments, this
1919
+ * field is 0. */
1920
+ const char *commandStart; /* First character in first word of
1921
+ * command. */
1922
+ Tcl_Size commandSize; /* Number of bytes in command, including first
1923
+ * character of first word, up through the
1924
+ * terminating newline, close bracket, or
1925
+ * semicolon. */
1926
+ Tcl_Size numWords; /* Total number of words in command. May be
1927
+ * 0. */
1928
+ Tcl_Token *tokenPtr; /* Pointer to first token representing the
1929
+ * words of the command. Initially points to
1930
+ * staticTokens, but may change to point to
1931
+ * malloc-ed space if command exceeds space in
1932
+ * staticTokens. */
1933
+ Tcl_Size numTokens; /* Total number of tokens in command. */
1934
+ Tcl_Size tokensAvailable; /* Total number of tokens available at
1935
+ * *tokenPtr. */
1936
+ int errorType; /* One of the parsing error types defined
1937
+ * above. */
1938
+#if TCL_MAJOR_VERSION > 8
1939
+ int incomplete; /* This field is set to 1 by Tcl_ParseCommand
1940
+ * if the command appears to be incomplete.
1941
+ * This information is used by
1942
+ * Tcl_CommandComplete. */
1943
+#endif
1944
+
1945
+ /*
1946
+ * The fields below are intended only for the private use of the parser.
1947
+ * They should not be used by functions that invoke Tcl_ParseCommand.
1948
+ */
1949
+
1950
+ const char *string; /* The original command string passed to
1951
+ * Tcl_ParseCommand. */
1952
+ const char *end; /* Points to the character just after the last
1953
+ * one in the command string. */
1954
+ Tcl_Interp *interp; /* Interpreter to use for error reporting, or
1955
+ * NULL. */
1956
+ const char *term; /* Points to character in string that
1957
+ * terminated most recent token. Filled in by
1958
+ * ParseTokens. If an error occurs, points to
1959
+ * beginning of region where the error
1960
+ * occurred (e.g. the open brace if the close
1961
+ * brace is missing). */
1962
+#if TCL_MAJOR_VERSION < 9
1963
+ int incomplete;
1964
+#endif
1965
+ Tcl_Token staticTokens[NUM_STATIC_TOKENS];
1966
+ /* Initial space for tokens for command. This
1967
+ * space should be large enough to accommodate
1968
+ * most commands; dynamic space is allocated
1969
+ * for very large commands that don't fit
1970
+ * here. */
1971
+} Tcl_Parse;
1972
+
1973
+
1974
+/*
1975
+ *----------------------------------------------------------------------------
1976
+ * The following structure represents a user-defined encoding. It collects
1977
+ * together all the functions that are used by the specific encoding.
1978
+ */
1979
+
1980
+typedef struct Tcl_EncodingType {
1981
+ const char *encodingName; /* The name of the encoding, e.g. "euc-jp".
1982
+ * This name is the unique key for this
1983
+ * encoding type. */
1984
+ Tcl_EncodingConvertProc *toUtfProc;
1985
+ /* Function to convert from external encoding
1986
+ * into UTF-8. */
1987
+ Tcl_EncodingConvertProc *fromUtfProc;
1988
+ /* Function to convert from UTF-8 into
1989
+ * external encoding. */
1990
+ Tcl_FreeProc *freeProc; /* If non-NULL, function to call when this
1991
+ * encoding is deleted. */
1992
+ void *clientData; /* Arbitrary value associated with encoding
1993
+ * type. Passed to conversion functions. */
1994
+ Tcl_Size nullSize; /* Number of zero bytes that signify
1995
+ * end-of-string in this encoding. This number
1996
+ * is used to determine the source string
1997
+ * length when the srcLen argument is
1998
+ * negative. Must be 1, 2, or 4. */
1999
+} Tcl_EncodingType;
2000
+
2001
+/*
2002
+ * The following definitions are used as values for the conversion control
2003
+ * flags argument when converting text from one character set to another:
2004
+ *
2005
+ * TCL_ENCODING_START - Signifies that the source buffer is the first
2006
+ * block in a (potentially multi-block) input
2007
+ * stream. Tells the conversion function to reset
2008
+ * to an initial state and perform any
2009
+ * initialization that needs to occur before the
2010
+ * first byte is converted. If the source buffer
2011
+ * contains the entire input stream to be
2012
+ * converted, this flag should be set.
2013
+ * TCL_ENCODING_END - Signifies that the source buffer is the last
2014
+ * block in a (potentially multi-block) input
2015
+ * stream. Tells the conversion routine to
2016
+ * perform any finalization that needs to occur
2017
+ * after the last byte is converted and then to
2018
+ * reset to an initial state. If the source
2019
+ * buffer contains the entire input stream to be
2020
+ * converted, this flag should be set.
2021
+ * TCL_ENCODING_STOPONERROR - Not used any more.
2022
+ * TCL_ENCODING_NO_TERMINATE - If set, Tcl_ExternalToUtf does not append a
2023
+ * terminating NUL byte. Since it does not need
2024
+ * an extra byte for a terminating NUL, it fills
2025
+ * all dstLen bytes with encoded UTF-8 content if
2026
+ * needed. If clear, a byte is reserved in the
2027
+ * dst space for NUL termination, and a
2028
+ * terminating NUL is appended.
2029
+ * TCL_ENCODING_CHAR_LIMIT - If set and dstCharsPtr is not NULL, then
2030
+ * Tcl_ExternalToUtf takes the initial value of
2031
+ * *dstCharsPtr as a limit of the maximum number
2032
+ * of chars to produce in the encoded UTF-8
2033
+ * content. Otherwise, the number of chars
2034
+ * produced is controlled only by other limiting
2035
+ * factors.
2036
+ * TCL_ENCODING_PROFILE_* - Mutually exclusive encoding profile ids. Note
2037
+ * these are bit masks.
2038
+ *
2039
+ * NOTE: THESE BIT DEFINITIONS SHOULD NOT OVERLAP WITH INTERNAL USE BITS
2040
+ * DEFINED IN tclEncoding.c (ENCODING_INPUT et al). Be cognizant of this
2041
+ * when adding bits.
2042
+ */
2043
+
2044
+#define TCL_ENCODING_START 0x01
2045
+#define TCL_ENCODING_END 0x02
2046
+#if TCL_MAJOR_VERSION > 8
2047
+# define TCL_ENCODING_STOPONERROR 0x0 /* Not used any more */
2048
+#else
2049
+# define TCL_ENCODING_STOPONERROR 0x04
2050
+#endif
2051
+#define TCL_ENCODING_NO_TERMINATE 0x08
2052
+#define TCL_ENCODING_CHAR_LIMIT 0x10
2053
+/* Internal use bits, do not define bits in this space. See above comment */
2054
+#define TCL_ENCODING_INTERNAL_USE_MASK 0xFF00
2055
+/*
2056
+ * Reserve top byte for profile values (disjoint, not a mask). In case of
2057
+ * changes, ensure ENCODING_PROFILE_* macros in tclInt.h are modified if
2058
+ * necessary.
2059
+ */
2060
+#define TCL_ENCODING_PROFILE_STRICT TCL_ENCODING_STOPONERROR
2061
+#define TCL_ENCODING_PROFILE_TCL8 0x01000000
2062
+#define TCL_ENCODING_PROFILE_REPLACE 0x02000000
2063
+
2064
+/*
2065
+ * The following definitions are the error codes returned by the conversion
2066
+ * routines:
2067
+ *
2068
+ * TCL_OK - All characters were converted.
2069
+ * TCL_CONVERT_NOSPACE - The output buffer would not have been large
2070
+ * enough for all of the converted data; as many
2071
+ * characters as could fit were converted though.
2072
+ * TCL_CONVERT_MULTIBYTE - The last few bytes in the source string were
2073
+ * the beginning of a multibyte sequence, but
2074
+ * more bytes were needed to complete this
2075
+ * sequence. A subsequent call to the conversion
2076
+ * routine should pass the beginning of this
2077
+ * unconverted sequence plus additional bytes
2078
+ * from the source stream to properly convert the
2079
+ * formerly split-up multibyte sequence.
2080
+ * TCL_CONVERT_SYNTAX - The source stream contained an invalid
2081
+ * character sequence. This may occur if the
2082
+ * input stream has been damaged or if the input
2083
+ * encoding method was misidentified.
2084
+ * TCL_CONVERT_UNKNOWN - The source string contained a character that
2085
+ * could not be represented in the target
2086
+ * encoding.
2087
+ */
2088
+
2089
+#define TCL_CONVERT_MULTIBYTE (-1)
2090
+#define TCL_CONVERT_SYNTAX (-2)
2091
+#define TCL_CONVERT_UNKNOWN (-3)
2092
+#define TCL_CONVERT_NOSPACE (-4)
2093
+
2094
+/*
2095
+ * The maximum number of bytes that are necessary to represent a single
2096
+ * Unicode character in UTF-8. The valid values are 3 and 4. If > 3,
2097
+ * then Tcl_UniChar must be 4-bytes in size (UCS-4) (the default). If == 3,
2098
+ * then Tcl_UniChar must be 2-bytes in size (UTF-16). Since Tcl 9.0, UCS-4
2099
+ * mode is the default and recommended mode.
2100
+ */
2101
+
2102
+#ifndef TCL_UTF_MAX
2103
+# if defined(BUILD_tcl) || TCL_MAJOR_VERSION > 8
2104
+# define TCL_UTF_MAX 4
2105
+# else
2106
+# define TCL_UTF_MAX 3
2107
+# endif
2108
+#endif
2109
+
2110
+/*
2111
+ * This represents a Unicode character. Any changes to this should also be
2112
+ * reflected in regcustom.h.
2113
+ */
2114
+
2115
+#if TCL_UTF_MAX == 4 && TCL_MAJOR_VERSION > 8
2116
+ /*
2117
+ * int isn't 100% accurate as it should be a strict 4-byte value
2118
+ * (perhaps int32_t). ILP64/SILP64 systems may have troubles. The
2119
+ * size of this value must be reflected correctly in regcustom.h.
2120
+ */
2121
+typedef int Tcl_UniChar;
2122
+#elif TCL_UTF_MAX == 3 && !defined(BUILD_tcl)
2123
+typedef unsigned short Tcl_UniChar;
2124
+#else
2125
+# error "This TCL_UTF_MAX value is not supported"
2126
+#endif
2127
+
2128
+
2129
+/*
2130
+ *----------------------------------------------------------------------------
2131
+ * TIP #59: The following structure is used in calls 'Tcl_RegisterConfig' to
2132
+ * provide the system with the embedded configuration data.
2133
+ */
2134
+
2135
+typedef struct Tcl_Config {
2136
+ const char *key; /* Configuration key to register. ASCII
2137
+ * encoded, thus UTF-8. */
2138
+ const char *value; /* The value associated with the key. System
2139
+ * encoding. */
2140
+} Tcl_Config;
2141
+
2142
+/*
2143
+ *----------------------------------------------------------------------------
2144
+ * Flags for TIP#143 limits, detailing which limits are active in an
2145
+ * interpreter. Used for Tcl_{Add,Remove}LimitHandler type argument.
2146
+ */
2147
+
2148
+#define TCL_LIMIT_COMMANDS 0x01
2149
+#define TCL_LIMIT_TIME 0x02
2150
+
2151
+/*
2152
+ * Structure containing information about a limit handler to be called when a
2153
+ * command- or time-limit is exceeded by an interpreter.
2154
+ */
2155
+
2156
+typedef void (Tcl_LimitHandlerProc) (void *clientData, Tcl_Interp *interp);
2157
+#if TCL_MAJOR_VERSION > 8
2158
+#define Tcl_LimitHandlerDeleteProc Tcl_FreeProc
2159
+#else
2160
+typedef void (Tcl_LimitHandlerDeleteProc) (void *clientData);
2161
+#endif
2162
+
2163
+#if 0
2164
+/*
2165
+ *----------------------------------------------------------------------------
2166
+ * We would like to provide an anonymous structure "mp_int" here, which is
2167
+ * compatible with libtommath's "mp_int", but without duplicating anything
2168
+ * from <tommath.h> or including <tommath.h> here. But the libtommath project
2169
+ * didn't honor our request. See: <https://github.com/libtom/libtommath/pull/473>
2170
+ *
2171
+ * That's why this part is commented out, and we are using (void *) in
2172
+ * various API's in stead of the more correct (mp_int *).
2173
+ */
2174
+
2175
+#ifndef MP_INT_DECLARED
2176
+#define MP_INT_DECLARED
2177
+typedef struct mp_int mp_int;
2178
+#endif
2179
+
2180
+#endif
2181
+
2182
+/*
2183
+ *----------------------------------------------------------------------------
2184
+ * Definitions needed for Tcl_ParseArgvObj routines.
2185
+ * Based on tkArgv.c.
2186
+ * Modifications from the original are copyright (c) Sam Bromley 2006
2187
+ */
2188
+
2189
+typedef struct {
2190
+ int type; /* Indicates the option type; see below. */
2191
+ const char *keyStr; /* The key string that flags the option in the
2192
+ * argv array. */
2193
+ void *srcPtr; /* Value to be used in setting dst; usage
2194
+ * depends on type.*/
2195
+ void *dstPtr; /* Address of value to be modified; usage
2196
+ * depends on type.*/
2197
+ const char *helpStr; /* Documentation message describing this
2198
+ * option. */
2199
+ void *clientData; /* Word to pass to function callbacks. */
2200
+} Tcl_ArgvInfo;
2201
+
2202
+/*
2203
+ * Legal values for the type field of a Tcl_ArgInfo: see the user
2204
+ * documentation for details.
2205
+ */
2206
+
2207
+#define TCL_ARGV_CONSTANT 15
2208
+#define TCL_ARGV_INT 16
2209
+#define TCL_ARGV_STRING 17
2210
+#define TCL_ARGV_REST 18
2211
+#define TCL_ARGV_FLOAT 19
2212
+#define TCL_ARGV_FUNC 20
2213
+#define TCL_ARGV_GENFUNC 21
2214
+#define TCL_ARGV_HELP 22
2215
+#define TCL_ARGV_END 23
2216
+
2217
+/*
2218
+ * Types of callback functions for the TCL_ARGV_FUNC and TCL_ARGV_GENFUNC
2219
+ * argument types:
2220
+ */
2221
+
2222
+typedef int (Tcl_ArgvFuncProc)(void *clientData, Tcl_Obj *objPtr,
2223
+ void *dstPtr);
2224
+typedef Tcl_Size (Tcl_ArgvGenFuncProc)(void *clientData, Tcl_Interp *interp,
2225
+ Tcl_Size objc, Tcl_Obj *const *objv, void *dstPtr);
2226
+
2227
+/*
2228
+ * Shorthand for commonly used argTable entries.
2229
+ */
2230
+
2231
+#define TCL_ARGV_AUTO_HELP \
2232
+ {TCL_ARGV_HELP, "-help", NULL, NULL, \
2233
+ "Print summary of command-line options and abort", NULL}
2234
+#define TCL_ARGV_AUTO_REST \
2235
+ {TCL_ARGV_REST, "--", NULL, NULL, \
2236
+ "Marks the end of the options", NULL}
2237
+#define TCL_ARGV_TABLE_END \
2238
+ {TCL_ARGV_END, NULL, NULL, NULL, NULL, NULL}
2239
+
2240
+/*
2241
+ *----------------------------------------------------------------------------
2242
+ * Definitions needed for Tcl_Zlib routines. [TIP #234]
2243
+ *
2244
+ * Constants for the format flags describing what sort of data format is
2245
+ * desired/expected for the Tcl_ZlibDeflate, Tcl_ZlibInflate and
2246
+ * Tcl_ZlibStreamInit functions.
2247
+ */
2248
+
2249
+#define TCL_ZLIB_FORMAT_RAW 1
2250
+#define TCL_ZLIB_FORMAT_ZLIB 2
2251
+#define TCL_ZLIB_FORMAT_GZIP 4
2252
+#define TCL_ZLIB_FORMAT_AUTO 8
2253
+
2254
+/*
2255
+ * Constants that describe whether the stream is to operate in compressing or
2256
+ * decompressing mode.
2257
+ */
2258
+
2259
+#define TCL_ZLIB_STREAM_DEFLATE 16
2260
+#define TCL_ZLIB_STREAM_INFLATE 32
2261
+
2262
+/*
2263
+ * Constants giving compression levels. Use of TCL_ZLIB_COMPRESS_DEFAULT is
2264
+ * recommended.
2265
+ */
2266
+
2267
+#define TCL_ZLIB_COMPRESS_NONE 0
2268
+#define TCL_ZLIB_COMPRESS_FAST 1
2269
+#define TCL_ZLIB_COMPRESS_BEST 9
2270
+#define TCL_ZLIB_COMPRESS_DEFAULT (-1)
2271
+
2272
+/*
2273
+ * Constants for types of flushing, used with Tcl_ZlibFlush.
2274
+ */
2275
+
2276
+#define TCL_ZLIB_NO_FLUSH 0
2277
+#define TCL_ZLIB_FLUSH 2
2278
+#define TCL_ZLIB_FULLFLUSH 3
2279
+#define TCL_ZLIB_FINALIZE 4
2280
+
2281
+/*
2282
+ *----------------------------------------------------------------------------
2283
+ * Definitions needed for the Tcl_LoadFile function. [TIP #416]
2284
+ */
2285
+
2286
+#define TCL_LOAD_GLOBAL 1
2287
+#define TCL_LOAD_LAZY 2
2288
+
2289
+/*
2290
+ *----------------------------------------------------------------------------
2291
+ * Definitions needed for the Tcl_OpenTcpServerEx function. [TIP #456]
2292
+ */
2293
+#define TCL_TCPSERVER_REUSEADDR (1<<0)
2294
+#define TCL_TCPSERVER_REUSEPORT (1<<1)
2295
+
2296
+/*
2297
+ * Constants for special Tcl_Size-typed values, see TIP #494
2298
+ */
2299
+
2300
+#define TCL_IO_FAILURE ((Tcl_Size)-1)
2301
+#define TCL_AUTO_LENGTH ((Tcl_Size)-1)
2302
+#define TCL_INDEX_NONE ((Tcl_Size)-1)
2303
+
2304
+/*
2305
+ *----------------------------------------------------------------------------
2306
+ * Single public declaration for NRE.
2307
+ */
2308
+
2309
+typedef int (Tcl_NRPostProc) (void *data[], Tcl_Interp *interp,
2310
+ int result);
2311
+
2312
+/*
2313
+ *----------------------------------------------------------------------------
2314
+ * The following constant is used to test for older versions of Tcl in the
2315
+ * stubs tables.
2316
+ */
2317
+
2318
+#if TCL_MAJOR_VERSION > 8
2319
+# define TCL_STUB_MAGIC ((int) 0xFCA3BACB + (int) sizeof(void *))
2320
+#else
2321
+# define TCL_STUB_MAGIC ((int) 0xFCA3BACF)
2322
+#endif
2323
+
2324
+/*
2325
+ * The following function is required to be defined in all stubs aware
2326
+ * extensions. The function is actually implemented in the stub library, not
2327
+ * the main Tcl library, although there is a trivial implementation in the
2328
+ * main library in case an extension is statically linked into an application.
2329
+ */
2330
+
2331
+const char * Tcl_InitStubs(Tcl_Interp *interp, const char *version,
2332
+ int exact, int magic);
2333
+const char * TclTomMathInitializeStubs(Tcl_Interp *interp,
2334
+ const char *version, int epoch, int revision);
2335
+const char * TclInitStubTable(const char *version);
2336
+void * TclStubCall(void *arg);
2337
+#if defined(_WIN32)
2338
+ TCL_NORETURN void Tcl_ConsolePanic(const char *format, ...);
2339
+#else
2340
+# define Tcl_ConsolePanic ((Tcl_PanicProc *)NULL)
2341
+#endif
2342
+
2343
+#ifdef USE_TCL_STUBS
2344
+#if TCL_MAJOR_VERSION < 9
2345
+# define Tcl_InitStubs(interp, version, exact) \
2346
+ (Tcl_InitStubs)(interp, version, \
2347
+ (exact)|(TCL_MAJOR_VERSION<<8)|(0xFF<<16), \
2348
+ TCL_STUB_MAGIC)
2349
+#else
2350
+# define Tcl_InitStubs(interp, version, exact) \
2351
+ (Tcl_InitStubs)(interp, version, \
2352
+ (exact)|(TCL_MAJOR_VERSION<<8)|(TCL_MINOR_VERSION<<16), \
2353
+ TCL_STUB_MAGIC)
2354
+#endif
2355
+#else
2356
+#if TCL_MAJOR_VERSION < 9
2357
+# define Tcl_InitStubs(interp, version, exact) \
2358
+ Tcl_Panic(((void)interp, (void)version, \
2359
+ (void)exact, "Please define -DUSE_TCL_STUBS"))
2360
+#else
2361
+# define Tcl_InitStubs(interp, version, exact) \
2362
+ Tcl_PkgInitStubsCheck(interp, version, \
2363
+ (exact)|(TCL_MAJOR_VERSION<<8)|(TCL_MINOR_VERSION<<16))
2364
+#endif
2365
+#endif
2366
+
2367
+/*
2368
+ * Public functions that are not accessible via the stubs table.
2369
+ * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171]
2370
+ */
2371
+
2372
+#define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \
2373
+ ((Tcl_SetPanicProc(Tcl_ConsolePanic), Tcl_CreateInterp())))
2374
+EXTERN TCL_NORETURN void Tcl_MainEx(Tcl_Size argc, char **argv,
2375
+ Tcl_AppInitProc *appInitProc, Tcl_Interp *interp);
2376
+EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp,
2377
+ const char *version, int exact);
2378
+EXTERN const char * Tcl_InitSubsystems(void);
2379
+EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr);
2380
+EXTERN const char * Tcl_FindExecutable(const char *argv0);
2381
+EXTERN const char * Tcl_SetPreInitScript(const char *string);
2382
+EXTERN const char * Tcl_SetPanicProc(
2383
+ Tcl_PanicProc *panicProc);
2384
+EXTERN void Tcl_StaticLibrary(Tcl_Interp *interp,
2385
+ const char *prefix,
2386
+ Tcl_LibraryInitProc *initProc,
2387
+ Tcl_LibraryInitProc *safeInitProc);
2388
+#ifndef TCL_NO_DEPRECATED
2389
+# define Tcl_StaticPackage Tcl_StaticLibrary
2390
+#endif
2391
+EXTERN Tcl_ExitProc * Tcl_SetExitProc(Tcl_ExitProc *proc);
2392
+#ifdef _WIN32
2393
+EXTERN const char *TclZipfs_AppHook(int *argc, unsigned short ***argv);
2394
+#else
2395
+EXTERN const char *TclZipfs_AppHook(int *argc, char ***argv);
2396
+#endif
2397
+#if defined(_WIN32) && defined(UNICODE)
2398
+#ifndef USE_TCL_STUBS
2399
+# define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg)))
2400
+#endif
2401
+# define Tcl_MainEx Tcl_MainExW
2402
+ EXTERN TCL_NORETURN void Tcl_MainExW(Tcl_Size argc, unsigned short **argv,
2403
+ Tcl_AppInitProc *appInitProc, Tcl_Interp *interp);
2404
+#endif
2405
+#if defined(USE_TCL_STUBS) && (TCL_MAJOR_VERSION > 8)
2406
+#define Tcl_SetPanicProc(panicProc) \
2407
+ TclInitStubTable(((const char *(*)(Tcl_PanicProc *))TclStubCall((void *)panicProc))(panicProc))
2408
+#define Tcl_InitSubsystems() \
2409
+ TclInitStubTable(((const char *(*)(void))TclStubCall((void *)1))())
2410
+#define Tcl_FindExecutable(argv0) \
2411
+ TclInitStubTable(((const char *(*)(const char *))TclStubCall((void *)2))(argv0))
2412
+#define TclZipfs_AppHook(argcp, argvp) \
2413
+ TclInitStubTable(((const char *(*)(int *, void *))TclStubCall((void *)3))(argcp, argvp))
2414
+#define Tcl_MainExW(argc, argv, appInitProc, interp) \
2415
+ (void)((const char *(*)(Tcl_Size, const void *, Tcl_AppInitProc *, Tcl_Interp *)) \
2416
+ TclStubCall((void *)4))(argc, argv, appInitProc, interp)
2417
+#if !defined(_WIN32) || !defined(UNICODE)
2418
+#define Tcl_MainEx(argc, argv, appInitProc, interp) \
2419
+ (void)((const char *(*)(Tcl_Size, const void *, Tcl_AppInitProc *, Tcl_Interp *)) \
2420
+ TclStubCall((void *)5))(argc, argv, appInitProc, interp)
2421
+#endif
2422
+#define Tcl_StaticLibrary(interp, pkgName, initProc, safeInitProc) \
2423
+ (void)((const char *(*)(Tcl_Interp *, const char *, Tcl_LibraryInitProc *, Tcl_LibraryInitProc *)) \
2424
+ TclStubCall((void *)6))(interp, pkgName, initProc, safeInitProc)
2425
+#define Tcl_SetExitProc(proc) \
2426
+ ((Tcl_ExitProc *(*)(Tcl_ExitProc *))TclStubCall((void *)7))(proc)
2427
+#define Tcl_GetMemoryInfo(dsPtr) \
2428
+ (void)((const char *(*)(Tcl_DString *))TclStubCall((void *)8))(dsPtr)
2429
+#define Tcl_SetPreInitScript(string) \
2430
+ ((const char *(*)(const char *))TclStubCall((void *)9))(string)
2431
+#endif
2432
+
2433
+
2434
+/*
2435
+ *----------------------------------------------------------------------------
2436
+ * Include the public function declarations that are accessible via the stubs
2437
+ * table.
2438
+ */
2439
+
2440
+#include "tclDecls.h"
2441
+
2442
+/*
2443
+ * Include platform specific public function declarations that are accessible
2444
+ * via the stubs table. Make all TclOO symbols MODULE_SCOPE (which only
2445
+ * has effect on building it as a shared library). See ticket [3010352].
2446
+ */
2447
+
2448
+#if defined(BUILD_tcl)
2449
+# undef TCLAPI
2450
+# define TCLAPI MODULE_SCOPE
2451
+#endif
2452
+
2453
+/*
2454
+ *----------------------------------------------------------------------------
2455
+ * The following declarations map ckalloc and ckfree to Tcl_Alloc and
2456
+ * Tcl_Free for use in Tcl-8.x-compatible extensions.
2457
+ */
2458
+
2459
+#ifndef BUILD_tcl
2460
+# define ckalloc Tcl_Alloc
2461
+# define attemptckalloc Tcl_AttemptAlloc
2462
+# ifdef _MSC_VER
2463
+ /* Silence invalid C4090 warnings */
2464
+# define ckfree(a) Tcl_Free((void *)(a))
2465
+# define ckrealloc(a,b) Tcl_Realloc((void *)(a),(b))
2466
+# define attemptckrealloc(a,b) Tcl_AttemptRealloc((void *)(a),(b))
2467
+# else
2468
+# define ckfree Tcl_Free
2469
+# define ckrealloc Tcl_Realloc
2470
+# define attemptckrealloc Tcl_AttemptRealloc
2471
+# endif
2472
+#endif
2473
+
2474
+#ifndef TCL_MEM_DEBUG
2475
+
2476
+/*
2477
+ * If we are not using the debugging allocator, we should call the Tcl_Alloc,
2478
+ * et al. routines in order to guarantee that every module is using the same
2479
+ * memory allocator both inside and outside of the Tcl library.
2480
+ */
2481
+
2482
+# undef Tcl_InitMemory
2483
+# define Tcl_InitMemory(x)
2484
+# undef Tcl_DumpActiveMemory
2485
+# define Tcl_DumpActiveMemory(x)
2486
+# undef Tcl_ValidateAllMemory
2487
+# define Tcl_ValidateAllMemory(x,y)
2488
+
2489
+#endif /* !TCL_MEM_DEBUG */
2490
+
2491
+#ifdef TCL_MEM_DEBUG
2492
+# undef Tcl_IncrRefCount
2493
+# define Tcl_IncrRefCount(objPtr) \
2494
+ Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__)
2495
+# undef Tcl_DecrRefCount
2496
+# define Tcl_DecrRefCount(objPtr) \
2497
+ Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__)
2498
+# undef Tcl_IsShared
2499
+# define Tcl_IsShared(objPtr) \
2500
+ Tcl_DbIsShared(objPtr, __FILE__, __LINE__)
2501
+/*
2502
+ * Free the Obj by effectively doing:
2503
+ *
2504
+ * Tcl_IncrRefCount(objPtr);
2505
+ * Tcl_DecrRefCount(objPtr);
2506
+ *
2507
+ * This will free the obj if there are no references to the obj.
2508
+ */
2509
+# define Tcl_BounceRefCount(objPtr) \
2510
+ TclBounceRefCount(objPtr, __FILE__, __LINE__)
2511
+
2512
+static inline void
2513
+TclBounceRefCount(
2514
+ Tcl_Obj* objPtr,
2515
+ const char* fn,
2516
+ int line)
2517
+{
2518
+ if (objPtr) {
2519
+ if ((objPtr)->refCount == 0) {
2520
+ Tcl_DbDecrRefCount(objPtr, fn, line);
2521
+ }
2522
+ }
2523
+}
2524
+#else
2525
+# undef Tcl_IncrRefCount
2526
+# define Tcl_IncrRefCount(objPtr) \
2527
+ ((void)++(objPtr)->refCount)
2528
+ /*
2529
+ * Use do/while0 idiom for optimum correctness without compiler warnings.
2530
+ * https://wiki.c2.com/?TrivialDoWhileLoop
2531
+ */
2532
+# undef Tcl_DecrRefCount
2533
+# define Tcl_DecrRefCount(objPtr) \
2534
+ do { \
2535
+ Tcl_Obj *_objPtr = (objPtr); \
2536
+ if (_objPtr->refCount-- <= 1) { \
2537
+ TclFreeObj(_objPtr); \
2538
+ } \
2539
+ } while(0)
2540
+# undef Tcl_IsShared
2541
+# define Tcl_IsShared(objPtr) \
2542
+ ((objPtr)->refCount > 1)
2543
+
2544
+/*
2545
+ * Declare that obj will no longer be used or referenced.
2546
+ * This will free the obj if there are no references to the obj.
2547
+ */
2548
+# define Tcl_BounceRefCount(objPtr) \
2549
+ TclBounceRefCount(objPtr);
2550
+
2551
+static inline void
2552
+TclBounceRefCount(
2553
+ Tcl_Obj* objPtr)
2554
+{
2555
+ if (objPtr) {
2556
+ if ((objPtr)->refCount == 0) {
2557
+ Tcl_DecrRefCount(objPtr);
2558
+ }
2559
+ }
2560
+}
2561
+
2562
+#endif
2563
+
2564
+/*
2565
+ * Macros and definitions that help to debug the use of Tcl objects. When
2566
+ * TCL_MEM_DEBUG is defined, the Tcl_New declarations are overridden to call
2567
+ * debugging versions of the object creation functions.
2568
+ */
2569
+
2570
+#ifdef TCL_MEM_DEBUG
2571
+# undef Tcl_NewBignumObj
2572
+# define Tcl_NewBignumObj(val) \
2573
+ Tcl_DbNewBignumObj(val, __FILE__, __LINE__)
2574
+# undef Tcl_NewBooleanObj
2575
+# define Tcl_NewBooleanObj(val) \
2576
+ Tcl_DbNewWideIntObj((val)!=0, __FILE__, __LINE__)
2577
+# undef Tcl_NewByteArrayObj
2578
+# define Tcl_NewByteArrayObj(bytes, len) \
2579
+ Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__)
2580
+# undef Tcl_NewDoubleObj
2581
+# define Tcl_NewDoubleObj(val) \
2582
+ Tcl_DbNewDoubleObj(val, __FILE__, __LINE__)
2583
+# undef Tcl_NewListObj
2584
+# define Tcl_NewListObj(objc, objv) \
2585
+ Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__)
2586
+# undef Tcl_NewObj
2587
+# define Tcl_NewObj() \
2588
+ Tcl_DbNewObj(__FILE__, __LINE__)
2589
+# undef Tcl_NewStringObj
2590
+# define Tcl_NewStringObj(bytes, len) \
2591
+ Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__)
2592
+# undef Tcl_NewWideIntObj
2593
+# define Tcl_NewWideIntObj(val) \
2594
+ Tcl_DbNewWideIntObj(val, __FILE__, __LINE__)
2595
+#endif /* TCL_MEM_DEBUG */
2596
+
2597
+/*
2598
+ *----------------------------------------------------------------------------
2599
+ * Macros for clients to use to access fields of hash entries:
2600
+ */
2601
+
2602
+#define Tcl_GetHashValue(h) ((h)->clientData)
2603
+#define Tcl_SetHashValue(h, value) ((h)->clientData = (void *)(value))
2604
+#define Tcl_GetHashKey(tablePtr, h) \
2605
+ ((void *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \
2606
+ (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \
2607
+ ? (h)->key.oneWordValue \
2608
+ : (h)->key.string))
2609
+
2610
+/*
2611
+ * Macros to use for clients to use to invoke find and create functions for
2612
+ * hash tables:
2613
+ */
2614
+
2615
+#define Tcl_FindHashEntry(tablePtr, key) \
2616
+ (*((tablePtr)->findProc))(tablePtr, (const char *)(key))
2617
+#define Tcl_CreateHashEntry(tablePtr, key, newPtr) \
2618
+ (*((tablePtr)->createProc))(tablePtr, (const char *)(key), newPtr)
2619
+
2620
+#endif /* RC_INVOKED */
2621
+
2622
+/*
2623
+ * end block for C++
2624
+ */
2625
+
2626
+#ifdef __cplusplus
2627
+}
2628
+#endif
2629
+
2630
+#endif /* _TCL */
2631
+
2632
+
2633
+/*
2634
+ * Local Variables:
2635
+ * mode: c
2636
+ * c-basic-offset: 4
2637
+ * fill-column: 78
2638
+ * End:
2639
+ */
--- a/compat/tcl-9.0/generic/tcl.h
+++ b/compat/tcl-9.0/generic/tcl.h
@@ -0,0 +1,2639 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
--- a/compat/tcl-9.0/generic/tcl.h
+++ b/compat/tcl-9.0/generic/tcl.h
@@ -0,0 +1,2639 @@
1 /*
2 * tcl.h --
3 *
4 * This header file describes the externally-visible facilities of the
5 * Tcl interpreter.
6 *
7 * Copyright (c) 1987-1994 The Regents of the University of California.
8 * Copyright (c) 1993-1996 Lucent Technologies.
9 * Copyright (c) 1994-1998 Sun Microsystems, Inc.
10 * Copyright (c) 1998-2000 by Scriptics Corporation.
11 * Copyright (c) 2002 by Kevin B. Kenny. All rights reserved.
12 *
13 * See the file "license.terms" for information on usage and redistribution of
14 * this file, and for a DISCLAIMER OF ALL WARRANTIES.
15 */
16
17 #ifndef _TCL
18 #define _TCL
19
20 /*
21 * For C++ compilers, use extern "C"
22 */
23
24 #ifdef __cplusplus
25 extern "C" {
26 #endif
27
28 /*
29 * The following defines are used to indicate the various release levels.
30 */
31
32 #define TCL_ALPHA_RELEASE 0
33 #define TCL_BETA_RELEASE 1
34 #define TCL_FINAL_RELEASE 2
35
36 /*
37 * When version numbers change here, must also go into the following files and
38 * update the version numbers:
39 *
40 * library/init.tcl (1 LOC patch)
41 * unix/configure.ac (2 LOC Major, 2 LOC minor, 1 LOC patch)
42 * win/configure.ac (as above)
43 * win/tcl.m4 (not patchlevel)
44 * README.md (sections 0 and 2, with and without separator)
45 * win/README (not patchlevel) (sections 0 and 2)
46 * unix/tcl.spec (1 LOC patch)
47 */
48
49 #if !defined(TCL_MAJOR_VERSION)
50 # define TCL_MAJOR_VERSION 9
51 #endif
52 #if TCL_MAJOR_VERSION == 9
53 # define TCL_MINOR_VERSION 0
54 # define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE
55 # define TCL_RELEASE_SERIAL 0
56
57 # define TCL_VERSION "9.0"
58 # define TCL_PATCH_LEVEL "9.0.0"
59 #endif /* TCL_MAJOR_VERSION */
60
61
62 #if defined(RC_INVOKED)
63 /*
64 * Utility macros: STRINGIFY takes an argument and wraps it in "" (double
65 * quotation marks), JOIN joins two arguments.
66 */
67
68 #ifndef STRINGIFY
69 # define STRINGIFY(x) STRINGIFY1(x)
70 # define STRINGIFY1(x) #x
71 #endif
72 #ifndef JOIN
73 # define JOIN(a,b) JOIN1(a,b)
74 # define JOIN1(a,b) a##b
75 #endif
76 #endif /* RC_INVOKED */
77
78 /*
79 * A special definition used to allow this header file to be included from
80 * windows resource files so that they can obtain version information.
81 * RC_INVOKED is defined by default by the windows RC tool.
82 *
83 * Resource compilers don't like all the C stuff, like typedefs and function
84 * declarations, that occur below, so block them out.
85 */
86
87 #ifndef RC_INVOKED
88
89 /*
90 * Special macro to define mutexes.
91 */
92
93 #define TCL_DECLARE_MUTEX(name) \
94 static Tcl_Mutex name;
95
96 /*
97 * Tcl's public routine Tcl_FSSeek() uses the values SEEK_SET, SEEK_CUR, and
98 * SEEK_END, all #define'd by stdio.h .
99 *
100 * Also, many extensions need stdio.h, and they've grown accustomed to tcl.h
101 * providing it for them rather than #include-ing it themselves as they
102 * should, so also for their sake, we keep the #include to be consistent with
103 * prior Tcl releases.
104 */
105
106 #include <stdio.h>
107 #include <stddef.h>
108
109 #if defined(__GNUC__) && (__GNUC__ > 2)
110 # if defined(_WIN32) && defined(__USE_MINGW_ANSI_STDIO) && __USE_MINGW_ANSI_STDIO
111 # define TCL_FORMAT_PRINTF(a,b) __attribute__ ((__format__ (__MINGW_PRINTF_FORMAT, a, b)))
112 # else
113 # define TCL_FORMAT_PRINTF(a,b) __attribute__ ((__format__ (__printf__, a, b)))
114 # endif
115 # define TCL_NORETURN __attribute__ ((__noreturn__))
116 # define TCL_NOINLINE __attribute__ ((__noinline__))
117 # define TCL_NORETURN1 __attribute__ ((__noreturn__))
118 #else
119 # define TCL_FORMAT_PRINTF(a,b)
120 # if defined(_MSC_VER)
121 # define TCL_NORETURN __declspec(noreturn)
122 # define TCL_NOINLINE __declspec(noinline)
123 # else
124 # define TCL_NORETURN /* nothing */
125 # define TCL_NOINLINE /* nothing */
126 # endif
127 # define TCL_NORETURN1 /* nothing */
128 #endif
129
130 /*
131 * Allow a part of Tcl's API to be explicitly marked as deprecated.
132 *
133 * Used to make TIP 330/336 generate moans even if people use the
134 * compatibility macros. Change your code, guys! We won't support you forever.
135 */
136
137 #if defined(__GNUC__) && ((__GNUC__ >= 4) || ((__GNUC__ == 3) && (__GNUC_MINOR__ >= 1)))
138 # if (__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ >= 5))
139 # define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__ (msg)))
140 # else
141 # define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__))
142 # endif
143 #else
144 # define TCL_DEPRECATED_API(msg) /* nothing portable */
145 #endif
146
147 /*
148 *----------------------------------------------------------------------------
149 * Macros used to declare a function to be exported by a DLL. Used by Windows,
150 * maps to no-op declarations on non-Windows systems. The default build on
151 * windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to be
152 * nonempty. To build a static library, the macro STATIC_BUILD should be
153 * defined.
154 *
155 * Note: when building static but linking dynamically to MSVCRT we must still
156 * correctly decorate the C library imported function. Use CRTIMPORT
157 * for this purpose. _DLL is defined by the compiler when linking to
158 * MSVCRT.
159 */
160
161 #ifdef _WIN32
162 # ifdef STATIC_BUILD
163 # define DLLIMPORT
164 # define DLLEXPORT
165 # ifdef _DLL
166 # define CRTIMPORT __declspec(dllimport)
167 # else
168 # define CRTIMPORT
169 # endif
170 # else
171 # define DLLIMPORT __declspec(dllimport)
172 # define DLLEXPORT __declspec(dllexport)
173 # define CRTIMPORT __declspec(dllimport)
174 # endif
175 #else
176 # define DLLIMPORT
177 # if defined(__GNUC__) && __GNUC__ > 3
178 # define DLLEXPORT __attribute__ ((visibility("default")))
179 # else
180 # define DLLEXPORT
181 # endif
182 # define CRTIMPORT
183 #endif
184
185 /*
186 * These macros are used to control whether functions are being declared for
187 * import or export. If a function is being declared while it is being built
188 * to be included in a shared library, then it should have the DLLEXPORT
189 * storage class. If is being declared for use by a module that is going to
190 * link against the shared library, then it should have the DLLIMPORT storage
191 * class. If the symbol is being declared for a static build or for use from a
192 * stub library, then the storage class should be empty.
193 *
194 * The convention is that a macro called BUILD_xxxx, where xxxx is the name of
195 * a library we are building, is set on the compile line for sources that are
196 * to be placed in the library. When this macro is set, the storage class will
197 * be set to DLLEXPORT. At the end of the header file, the storage class will
198 * be reset to DLLIMPORT.
199 */
200
201 #undef TCL_STORAGE_CLASS
202 #ifdef BUILD_tcl
203 # define TCL_STORAGE_CLASS DLLEXPORT
204 #else
205 # ifdef USE_TCL_STUBS
206 # define TCL_STORAGE_CLASS
207 # else
208 # define TCL_STORAGE_CLASS DLLIMPORT
209 # endif
210 #endif
211
212 #if !defined(CONST86) && !defined(TCL_NO_DEPRECATED)
213 # define CONST86 const
214 #endif
215
216 /*
217 * Make sure EXTERN isn't defined elsewhere.
218 */
219
220 #ifdef EXTERN
221 # undef EXTERN
222 #endif /* EXTERN */
223
224 #ifdef __cplusplus
225 # define EXTERN extern "C" TCL_STORAGE_CLASS
226 #else
227 # define EXTERN extern TCL_STORAGE_CLASS
228 #endif
229
230 /*
231 * Miscellaneous declarations.
232 */
233
234 typedef void *ClientData;
235
236 /*
237 * Darwin specific configure overrides (to support fat compiles, where
238 * configure runs only once for multiple architectures):
239 */
240
241 #ifdef __APPLE__
242 # ifdef __LP64__
243 # define TCL_WIDE_INT_IS_LONG 1
244 # define TCL_CFG_DO64BIT 1
245 # else /* !__LP64__ */
246 # undef TCL_WIDE_INT_IS_LONG
247 # undef TCL_CFG_DO64BIT
248 # endif /* __LP64__ */
249 # undef HAVE_STRUCT_STAT64
250 #endif /* __APPLE__ */
251
252 /* Cross-compiling 32-bit on a 64-bit platform? Then our
253 * configure script does the wrong thing. Correct that here.
254 */
255 #if defined(__GNUC__) && !defined(_WIN32) && !defined(__LP64__)
256 # undef TCL_WIDE_INT_IS_LONG
257 #endif
258
259 /*
260 * Define Tcl_WideInt to be a type that is (at least) 64-bits wide, and define
261 * Tcl_WideUInt to be the unsigned variant of that type (assuming that where
262 * we have one, we can have the other.)
263 *
264 * Also defines the following macros:
265 * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on a
266 * LP64 system such as modern Solaris or Linux ... not including Win64)
267 * Tcl_WideAsLong - forgetful converter from wideInt to long.
268 * Tcl_LongAsWide - sign-extending converter from long to wideInt.
269 * Tcl_WideAsDouble - converter from wideInt to double.
270 * Tcl_DoubleAsWide - converter from double to wideInt.
271 *
272 * The following invariant should hold for any long value 'longVal':
273 * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal))
274 */
275
276 #if !defined(TCL_WIDE_INT_TYPE) && !defined(TCL_WIDE_INT_IS_LONG) && !defined(_WIN32) && !defined(__GNUC__)
277 /*
278 * Don't know what platform it is and configure hasn't discovered what is
279 * going on for us. Try to guess...
280 */
281 # include <limits.h>
282 # if defined(LLONG_MAX) && (LLONG_MAX == LONG_MAX)
283 # define TCL_WIDE_INT_IS_LONG 1
284 # endif
285 #endif
286
287 #ifndef TCL_WIDE_INT_TYPE
288 # define TCL_WIDE_INT_TYPE long long
289 #endif /* !TCL_WIDE_INT_TYPE */
290
291 typedef TCL_WIDE_INT_TYPE Tcl_WideInt;
292 typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt;
293
294 #ifndef TCL_LL_MODIFIER
295 # if defined(_WIN32) && (!defined(__USE_MINGW_ANSI_STDIO) || !__USE_MINGW_ANSI_STDIO)
296 # define TCL_LL_MODIFIER "I64"
297 # else
298 # define TCL_LL_MODIFIER "ll"
299 # endif
300 #endif /* !TCL_LL_MODIFIER */
301 #ifndef TCL_Z_MODIFIER
302 # if defined(__GNUC__) && !defined(_WIN32)
303 # define TCL_Z_MODIFIER "z"
304 # elif defined(_WIN64)
305 # define TCL_Z_MODIFIER TCL_LL_MODIFIER
306 # else
307 # define TCL_Z_MODIFIER ""
308 # endif
309 #endif /* !TCL_Z_MODIFIER */
310 #ifndef TCL_T_MODIFIER
311 # if defined(__GNUC__) && !defined(_WIN32)
312 # define TCL_T_MODIFIER "t"
313 # elif defined(_WIN64)
314 # define TCL_T_MODIFIER TCL_LL_MODIFIER
315 # else
316 # define TCL_T_MODIFIER TCL_Z_MODIFIER
317 # endif
318 #endif /* !TCL_T_MODIFIER */
319
320 #define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val)))
321 #define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val)))
322 #define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val)))
323 #define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val)))
324
325 #if TCL_MAJOR_VERSION < 9
326 # ifndef Tcl_Size
327 typedef int Tcl_Size;
328 # endif
329 # ifndef TCL_SIZE_MAX
330 # define TCL_SIZE_MAX ((int)(((unsigned int)-1)>>1))
331 # endif
332 # ifndef TCL_SIZE_MODIFIER
333 # define TCL_SIZE_MODIFIER ""
334 #endif
335 #else
336 typedef ptrdiff_t Tcl_Size;
337 # define TCL_SIZE_MAX ((Tcl_Size)(((size_t)-1)>>1))
338 # define TCL_SIZE_MODIFIER TCL_T_MODIFIER
339 #endif /* TCL_MAJOR_VERSION */
340
341 #ifdef _WIN32
342 # if TCL_MAJOR_VERSION > 8 || defined(_WIN64) || defined(_USE_64BIT_TIME_T)
343 typedef struct __stat64 Tcl_StatBuf;
344 # elif defined(_USE_32BIT_TIME_T)
345 typedef struct _stati64 Tcl_StatBuf;
346 # else
347 typedef struct _stat32i64 Tcl_StatBuf;
348 # endif
349 #elif defined(__CYGWIN__)
350 typedef struct {
351 unsigned st_dev;
352 unsigned short st_ino;
353 unsigned short st_mode;
354 short st_nlink;
355 short st_uid;
356 short st_gid;
357 /* Here is a 2-byte gap */
358 unsigned st_rdev;
359 /* Here is a 4-byte gap */
360 long long st_size;
361 struct {long tv_sec;} st_atim;
362 struct {long tv_sec;} st_mtim;
363 struct {long tv_sec;} st_ctim;
364 } Tcl_StatBuf;
365 #else
366 typedef struct stat Tcl_StatBuf;
367 #endif
368
369
370 /*
371 *----------------------------------------------------------------------------
372 * Data structures defined opaquely in this module. The definitions below just
373 * provide dummy types.
374 */
375
376 typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler;
377 typedef struct Tcl_Channel_ *Tcl_Channel;
378 typedef struct Tcl_ChannelTypeVersion_ *Tcl_ChannelTypeVersion;
379 typedef struct Tcl_Command_ *Tcl_Command;
380 typedef struct Tcl_Condition_ *Tcl_Condition;
381 typedef struct Tcl_Dict_ *Tcl_Dict;
382 typedef struct Tcl_EncodingState_ *Tcl_EncodingState;
383 typedef struct Tcl_Encoding_ *Tcl_Encoding;
384 typedef struct Tcl_Event Tcl_Event;
385 typedef struct Tcl_Interp Tcl_Interp;
386 typedef struct Tcl_InterpState_ *Tcl_InterpState;
387 typedef struct Tcl_LoadHandle_ *Tcl_LoadHandle;
388 typedef struct Tcl_Mutex_ *Tcl_Mutex;
389 typedef struct Tcl_Pid_ *Tcl_Pid;
390 typedef struct Tcl_RegExp_ *Tcl_RegExp;
391 typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey;
392 typedef struct Tcl_ThreadId_ *Tcl_ThreadId;
393 typedef struct Tcl_TimerToken_ *Tcl_TimerToken;
394 typedef struct Tcl_Trace_ *Tcl_Trace;
395 typedef struct Tcl_Var_ *Tcl_Var;
396 typedef struct Tcl_ZLibStream_ *Tcl_ZlibStream;
397
398 /*
399 *----------------------------------------------------------------------------
400 * Definition of the interface to functions implementing threads. A function
401 * following this definition is given to each call of 'Tcl_CreateThread' and
402 * will be called as the main fuction of the new thread created by that call.
403 */
404
405 #if defined _WIN32
406 typedef unsigned (__stdcall Tcl_ThreadCreateProc) (void *clientData);
407 #else
408 typedef void (Tcl_ThreadCreateProc) (void *clientData);
409 #endif
410
411 /*
412 * Threading function return types used for abstracting away platform
413 * differences when writing a Tcl_ThreadCreateProc. See the NewThread function
414 * in generic/tclThreadTest.c for it's usage.
415 */
416
417 #if defined _WIN32
418 # define Tcl_ThreadCreateType unsigned __stdcall
419 # define TCL_THREAD_CREATE_RETURN return 0
420 #else
421 # define Tcl_ThreadCreateType void
422 # define TCL_THREAD_CREATE_RETURN
423 #endif
424
425 /*
426 * Definition of values for default stacksize and the possible flags to be
427 * given to Tcl_CreateThread.
428 */
429
430 #define TCL_THREAD_STACK_DEFAULT (0) /* Use default size for stack. */
431 #define TCL_THREAD_NOFLAGS (0000) /* Standard flags, default
432 * behaviour. */
433 #define TCL_THREAD_JOINABLE (0001) /* Mark the thread as joinable. */
434
435 /*
436 * Flag values passed to Tcl_StringCaseMatch.
437 */
438
439 #define TCL_MATCH_NOCASE (1<<0)
440
441 /*
442 * Flag values passed to Tcl_GetRegExpFromObj.
443 */
444
445 #define TCL_REG_BASIC 000000 /* BREs (convenience). */
446 #define TCL_REG_EXTENDED 000001 /* EREs. */
447 #define TCL_REG_ADVF 000002 /* Advanced features in EREs. */
448 #define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs). */
449 #define TCL_REG_QUOTE 000004 /* No special characters, none. */
450 #define TCL_REG_NOCASE 000010 /* Ignore case. */
451 #define TCL_REG_NOSUB 000020 /* Don't care about subexpressions. */
452 #define TCL_REG_EXPANDED 000040 /* Expanded format, white space &
453 * comments. */
454 #define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^ ] */
455 #define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ before. */
456 #define TCL_REG_NEWLINE 000300 /* Newlines are line terminators. */
457 #define TCL_REG_CANMATCH 001000 /* Report details on partial/limited
458 * matches. */
459
460 /*
461 * Flags values passed to Tcl_RegExpExecObj.
462 */
463
464 #define TCL_REG_NOTBOL 0001 /* Beginning of string does not match ^. */
465 #define TCL_REG_NOTEOL 0002 /* End of string does not match $. */
466
467 /*
468 * Structures filled in by Tcl_RegExpInfo. Note that all offset values are
469 * relative to the start of the match string, not the beginning of the entire
470 * string.
471 */
472
473 typedef struct Tcl_RegExpIndices {
474 #if TCL_MAJOR_VERSION > 8
475 Tcl_Size start; /* Character offset of first character in
476 * match. */
477 Tcl_Size end; /* Character offset of first character after
478 * the match. */
479 #else
480 long start;
481 long end;
482 #endif
483 } Tcl_RegExpIndices;
484
485 typedef struct Tcl_RegExpInfo {
486 Tcl_Size nsubs; /* Number of subexpressions in the compiled
487 * expression. */
488 Tcl_RegExpIndices *matches; /* Array of nsubs match offset pairs. */
489 #if TCL_MAJOR_VERSION > 8
490 Tcl_Size extendStart; /* The offset at which a subsequent match
491 * might begin. */
492 #else
493 long extendStart;
494 long reserved; /* Reserved for later use. */
495 #endif
496 } Tcl_RegExpInfo;
497
498 /*
499 * Picky compilers complain if this typdef doesn't appear before the struct's
500 * reference in tclDecls.h.
501 */
502
503 typedef Tcl_StatBuf *Tcl_Stat_;
504 typedef struct stat *Tcl_OldStat_;
505
506 /*
507 *----------------------------------------------------------------------------
508 * When a TCL command returns, the interpreter contains a result from the
509 * command. Programmers are strongly encouraged to use one of the functions
510 * Tcl_GetObjResult() or Tcl_GetStringResult() to read the interpreter's
511 * result. See the SetResult man page for details. Besides this result, the
512 * command function returns an integer code, which is one of the following:
513 *
514 * TCL_OK Command completed normally; the interpreter's result
515 * contains the command's result.
516 * TCL_ERROR The command couldn't be completed successfully; the
517 * interpreter's result describes what went wrong.
518 * TCL_RETURN The command requests that the current function return;
519 * the interpreter's result contains the function's
520 * return value.
521 * TCL_BREAK The command requests that the innermost loop be
522 * exited; the interpreter's result is meaningless.
523 * TCL_CONTINUE Go on to the next iteration of the current loop; the
524 * interpreter's result is meaningless.
525 * Integer return codes in the range TCL_CODE_USER_MIN to TCL_CODE_USER_MAX are
526 * reserved for the use of packages.
527 */
528
529 #define TCL_OK 0
530 #define TCL_ERROR 1
531 #define TCL_RETURN 2
532 #define TCL_BREAK 3
533 #define TCL_CONTINUE 4
534 #define TCL_CODE_USER_MIN 5
535 #define TCL_CODE_USER_MAX 0x3fffffff /* 1073741823 */
536
537 /*
538 *----------------------------------------------------------------------------
539 * Flags to control what substitutions are performed by Tcl_SubstObj():
540 */
541
542 #define TCL_SUBST_COMMANDS 001
543 #define TCL_SUBST_VARIABLES 002
544 #define TCL_SUBST_BACKSLASHES 004
545 #define TCL_SUBST_ALL 007
546
547 /*
548 * Forward declaration of Tcl_Obj to prevent an error when the forward
549 * reference to Tcl_Obj is encountered in the function types declared below.
550 */
551
552 struct Tcl_Obj;
553
554 /*
555 *----------------------------------------------------------------------------
556 * Function types defined by Tcl:
557 */
558
559 typedef int (Tcl_AppInitProc) (Tcl_Interp *interp);
560 typedef int (Tcl_AsyncProc) (void *clientData, Tcl_Interp *interp,
561 int code);
562 typedef void (Tcl_ChannelProc) (void *clientData, int mask);
563 typedef void (Tcl_CloseProc) (void *data);
564 typedef void (Tcl_CmdDeleteProc) (void *clientData);
565 typedef int (Tcl_CmdProc) (void *clientData, Tcl_Interp *interp,
566 int argc, const char *argv[]);
567 typedef void (Tcl_CmdTraceProc) (void *clientData, Tcl_Interp *interp,
568 int level, char *command, Tcl_CmdProc *proc,
569 void *cmdClientData, int argc, const char *argv[]);
570 typedef int (Tcl_CmdObjTraceProc) (void *clientData, Tcl_Interp *interp,
571 int level, const char *command, Tcl_Command commandInfo, int objc,
572 struct Tcl_Obj *const *objv);
573 typedef void (Tcl_CmdObjTraceDeleteProc) (void *clientData);
574 typedef void (Tcl_DupInternalRepProc) (struct Tcl_Obj *srcPtr,
575 struct Tcl_Obj *dupPtr);
576 typedef int (Tcl_EncodingConvertProc) (void *clientData, const char *src,
577 int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst,
578 int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr);
579 typedef void (Tcl_EncodingFreeProc) (void *clientData);
580 typedef int (Tcl_EventProc) (Tcl_Event *evPtr, int flags);
581 typedef void (Tcl_EventCheckProc) (void *clientData, int flags);
582 typedef int (Tcl_EventDeleteProc) (Tcl_Event *evPtr, void *clientData);
583 typedef void (Tcl_EventSetupProc) (void *clientData, int flags);
584 typedef void (Tcl_ExitProc) (void *clientData);
585 typedef void (Tcl_FileProc) (void *clientData, int mask);
586 typedef void (Tcl_FileFreeProc) (void *clientData);
587 typedef void (Tcl_FreeInternalRepProc) (struct Tcl_Obj *objPtr);
588 typedef void (Tcl_IdleProc) (void *clientData);
589 typedef void (Tcl_InterpDeleteProc) (void *clientData,
590 Tcl_Interp *interp);
591 typedef void (Tcl_NamespaceDeleteProc) (void *clientData);
592 typedef int (Tcl_ObjCmdProc) (void *clientData, Tcl_Interp *interp,
593 int objc, struct Tcl_Obj *const *objv);
594 #if TCL_MAJOR_VERSION > 8
595 typedef int (Tcl_ObjCmdProc2) (void *clientData, Tcl_Interp *interp,
596 Tcl_Size objc, struct Tcl_Obj *const *objv);
597 typedef int (Tcl_CmdObjTraceProc2) (void *clientData, Tcl_Interp *interp,
598 Tcl_Size level, const char *command, Tcl_Command commandInfo, Tcl_Size objc,
599 struct Tcl_Obj *const *objv);
600 typedef void (Tcl_FreeProc) (void *blockPtr);
601 #define Tcl_ExitProc Tcl_FreeProc
602 #define Tcl_FileFreeProc Tcl_FreeProc
603 #define Tcl_FileFreeProc Tcl_FreeProc
604 #define Tcl_EncodingFreeProc Tcl_FreeProc
605 #else
606 #define Tcl_ObjCmdProc2 Tcl_ObjCmdProc
607 #define Tcl_CmdObjTraceProc2 Tcl_CmdObjTraceProc
608 typedef void (Tcl_FreeProc) (char *blockPtr);
609 #endif
610 typedef int (Tcl_LibraryInitProc) (Tcl_Interp *interp);
611 typedef int (Tcl_LibraryUnloadProc) (Tcl_Interp *interp, int flags);
612 typedef void (Tcl_PanicProc) (const char *format, ...);
613 typedef void (Tcl_TcpAcceptProc) (void *callbackData, Tcl_Channel chan,
614 char *address, int port);
615 typedef void (Tcl_TimerProc) (void *clientData);
616 typedef int (Tcl_SetFromAnyProc) (Tcl_Interp *interp, struct Tcl_Obj *objPtr);
617 typedef void (Tcl_UpdateStringProc) (struct Tcl_Obj *objPtr);
618 typedef char * (Tcl_VarTraceProc) (void *clientData, Tcl_Interp *interp,
619 const char *part1, const char *part2, int flags);
620 typedef void (Tcl_CommandTraceProc) (void *clientData, Tcl_Interp *interp,
621 const char *oldName, const char *newName, int flags);
622 typedef void (Tcl_CreateFileHandlerProc) (int fd, int mask, Tcl_FileProc *proc,
623 void *clientData);
624 typedef void (Tcl_DeleteFileHandlerProc) (int fd);
625 typedef void (Tcl_AlertNotifierProc) (void *clientData);
626 typedef void (Tcl_ServiceModeHookProc) (int mode);
627 typedef void *(Tcl_InitNotifierProc) (void);
628 typedef void (Tcl_FinalizeNotifierProc) (void *clientData);
629 typedef void (Tcl_MainLoopProc) (void);
630
631
632 /* Abstract List functions */
633 typedef Tcl_Size (Tcl_ObjTypeLengthProc) (struct Tcl_Obj *listPtr);
634 typedef int (Tcl_ObjTypeIndexProc) (Tcl_Interp *interp, struct Tcl_Obj *listPtr,
635 Tcl_Size index, struct Tcl_Obj** elemObj);
636 typedef int (Tcl_ObjTypeSliceProc) (Tcl_Interp *interp, struct Tcl_Obj *listPtr,
637 Tcl_Size fromIdx, Tcl_Size toIdx, struct Tcl_Obj **newObjPtr);
638 typedef int (Tcl_ObjTypeReverseProc) (Tcl_Interp *interp,
639 struct Tcl_Obj *listPtr, struct Tcl_Obj **newObjPtr);
640 typedef int (Tcl_ObjTypeGetElements) (Tcl_Interp *interp,
641 struct Tcl_Obj *listPtr, Tcl_Size *objcptr, struct Tcl_Obj ***objvptr);
642 typedef struct Tcl_Obj *(Tcl_ObjTypeSetElement) (Tcl_Interp *interp,
643 struct Tcl_Obj *listPtr, Tcl_Size indexCount,
644 struct Tcl_Obj *const indexArray[], struct Tcl_Obj *valueObj);
645 typedef int (Tcl_ObjTypeReplaceProc) (Tcl_Interp *interp,
646 struct Tcl_Obj *listObj, Tcl_Size first, Tcl_Size numToDelete,
647 Tcl_Size numToInsert, struct Tcl_Obj *const insertObjs[]);
648 typedef int (Tcl_ObjTypeInOperatorProc) (Tcl_Interp *interp,
649 struct Tcl_Obj *valueObj, struct Tcl_Obj *listObj, int *boolResult);
650
651 #ifndef TCL_NO_DEPRECATED
652 # define Tcl_PackageInitProc Tcl_LibraryInitProc
653 # define Tcl_PackageUnloadProc Tcl_LibraryUnloadProc
654 #endif
655
656 /*
657 *----------------------------------------------------------------------------
658 * The following structure represents a type of object, which is a particular
659 * internal representation for an object plus a set of functions that provide
660 * standard operations on objects of that type.
661 */
662
663 typedef struct Tcl_ObjType {
664 const char *name; /* Name of the type, e.g. "int". */
665 Tcl_FreeInternalRepProc *freeIntRepProc;
666 /* Called to free any storage for the type's
667 * internal rep. NULL if the internal rep does
668 * not need freeing. */
669 Tcl_DupInternalRepProc *dupIntRepProc;
670 /* Called to create a new object as a copy of
671 * an existing object. */
672 Tcl_UpdateStringProc *updateStringProc;
673 /* Called to update the string rep from the
674 * type's internal representation. */
675 Tcl_SetFromAnyProc *setFromAnyProc;
676 /* Called to convert the object's internal rep
677 * to this type. Frees the internal rep of the
678 * old type. Returns TCL_ERROR on failure. */
679 #if TCL_MAJOR_VERSION > 8
680 size_t version; /* Version field for future-proofing. */
681
682 /* List emulation functions - ObjType Version 1 */
683 Tcl_ObjTypeLengthProc *lengthProc;
684 /* Return the [llength] of the AbstractList */
685 Tcl_ObjTypeIndexProc *indexProc;
686 /* Return a value (Tcl_Obj) at a given index */
687 Tcl_ObjTypeSliceProc *sliceProc;
688 /* Return an AbstractList for
689 * [lrange $al $start $end] */
690 Tcl_ObjTypeReverseProc *reverseProc;
691 /* Return an AbstractList for [lreverse $al] */
692 Tcl_ObjTypeGetElements *getElementsProc;
693 /* Return an objv[] of all elements in the list */
694 Tcl_ObjTypeSetElement *setElementProc;
695 /* Replace the element at the indicies with the
696 * given valueObj. */
697 Tcl_ObjTypeReplaceProc *replaceProc;
698 /* Replace sublist with another sublist */
699 Tcl_ObjTypeInOperatorProc *inOperProc;
700 /* "in" and "ni" expr list operation.
701 * Determine if the given string value matches
702 * an element in the list. */
703 #endif
704 } Tcl_ObjType;
705
706 #if TCL_MAJOR_VERSION > 8
707 # define TCL_OBJTYPE_V0 0, \
708 0,0,0,0,0,0,0,0 /* Pre-Tcl 9 */
709 # define TCL_OBJTYPE_V1(a) offsetof(Tcl_ObjType, indexProc), \
710 a,0,0,0,0,0,0,0 /* Tcl 9 Version 1 */
711 # define TCL_OBJTYPE_V2(a,b,c,d,e,f,g,h) sizeof(Tcl_ObjType), \
712 a,b,c,d,e,f,g,h /* Tcl 9 - AbstractLists */
713 #else
714 # define TCL_OBJTYPE_V0 /* just empty */
715 # define TCL_OBJTYPE_V1(a) /* just empty */
716 # define TCL_OBJTYPE_V2(a,b,c,d,e,f,g,h) /* just empty */
717 #endif
718
719 /*
720 * The following structure stores an internal representation (internalrep) for
721 * a Tcl value. An internalrep is associated with an Tcl_ObjType when both
722 * are stored in the same Tcl_Obj. The routines of the Tcl_ObjType govern
723 * the handling of the internalrep.
724 */
725
726 typedef union Tcl_ObjInternalRep { /* The internal representation: */
727 long longValue; /* - an long integer value. */
728 double doubleValue; /* - a double-precision floating value. */
729 void *otherValuePtr; /* - another, type-specific value, */
730 /* not used internally any more. */
731 Tcl_WideInt wideValue; /* - an integer value >= 64bits */
732 struct { /* - internal rep as two pointers. */
733 void *ptr1;
734 void *ptr2;
735 } twoPtrValue;
736 struct { /* - internal rep as a pointer and a long, */
737 void *ptr; /* not used internally any more. */
738 unsigned long value;
739 } ptrAndLongRep;
740 struct { /* - use for pointer and length reps */
741 void *ptr;
742 Tcl_Size size;
743 } ptrAndSize;
744 } Tcl_ObjInternalRep;
745
746 /*
747 * One of the following structures exists for each object in the Tcl system.
748 * An object stores a value as either a string, some internal representation,
749 * or both.
750 */
751
752 typedef struct Tcl_Obj {
753 Tcl_Size refCount; /* When 0 the object will be freed. */
754 char *bytes; /* This points to the first byte of the
755 * object's string representation. The array
756 * must be followed by a null byte (i.e., at
757 * offset length) but may also contain
758 * embedded null characters. The array's
759 * storage is allocated by Tcl_Alloc. NULL means
760 * the string rep is invalid and must be
761 * regenerated from the internal rep. Clients
762 * should use Tcl_GetStringFromObj or
763 * Tcl_GetString to get a pointer to the byte
764 * array as a readonly value. */
765 Tcl_Size length; /* The number of bytes at *bytes, not
766 * including the terminating null. */
767 const Tcl_ObjType *typePtr; /* Denotes the object's type. Always
768 * corresponds to the type of the object's
769 * internal rep. NULL indicates the object has
770 * no internal rep (has no type). */
771 Tcl_ObjInternalRep internalRep;
772 /* The internal representation: */
773 } Tcl_Obj;
774
775
776 /*
777 *----------------------------------------------------------------------------
778 * The following definitions support Tcl's namespace facility. Note: the first
779 * five fields must match exactly the fields in a Namespace structure (see
780 * tclInt.h).
781 */
782
783 typedef struct Tcl_Namespace {
784 char *name; /* The namespace's name within its parent
785 * namespace. This contains no ::'s. The name
786 * of the global namespace is "" although "::"
787 * is an synonym. */
788 char *fullName; /* The namespace's fully qualified name. This
789 * starts with ::. */
790 void *clientData; /* Arbitrary value associated with this
791 * namespace. */
792 Tcl_NamespaceDeleteProc *deleteProc;
793 /* Function invoked when deleting the
794 * namespace to, e.g., free clientData. */
795 struct Tcl_Namespace *parentPtr;
796 /* Points to the namespace that contains this
797 * one. NULL if this is the global
798 * namespace. */
799 } Tcl_Namespace;
800
801 /*
802 *----------------------------------------------------------------------------
803 * The following structure represents a call frame, or activation record. A
804 * call frame defines a naming context for a procedure call: its local scope
805 * (for local variables) and its namespace scope (used for non-local
806 * variables; often the global :: namespace). A call frame can also define the
807 * naming context for a namespace eval or namespace inscope command: the
808 * namespace in which the command's code should execute. The Tcl_CallFrame
809 * structures exist only while procedures or namespace eval/inscope's are
810 * being executed, and provide a Tcl call stack.
811 *
812 * A call frame is initialized and pushed using Tcl_PushCallFrame and popped
813 * using Tcl_PopCallFrame. Storage for a Tcl_CallFrame must be provided by the
814 * Tcl_PushCallFrame caller, and callers typically allocate them on the C call
815 * stack for efficiency. For this reason, Tcl_CallFrame is defined as a
816 * structure and not as an opaque token. However, most Tcl_CallFrame fields
817 * are hidden since applications should not access them directly; others are
818 * declared as "dummyX".
819 *
820 * WARNING!! The structure definition must be kept consistent with the
821 * CallFrame structure in tclInt.h. If you change one, change the other.
822 */
823
824 typedef struct Tcl_CallFrame {
825 Tcl_Namespace *nsPtr; /* Current namespace for the call frame. */
826 int dummy1;
827 Tcl_Size dummy2;
828 void *dummy3;
829 void *dummy4;
830 void *dummy5;
831 Tcl_Size dummy6;
832 void *dummy7;
833 void *dummy8;
834 Tcl_Size dummy9;
835 void *dummy10;
836 void *dummy11;
837 void *dummy12;
838 void *dummy13;
839 } Tcl_CallFrame;
840
841 /*
842 *----------------------------------------------------------------------------
843 * Information about commands that is returned by Tcl_GetCommandInfo and
844 * passed to Tcl_SetCommandInfo. objProc is an objc/objv object-based command
845 * function while proc is a traditional Tcl argc/argv string-based function.
846 * Tcl_CreateObjCommand and Tcl_CreateCommand ensure that both objProc and
847 * proc are non-NULL and can be called to execute the command. However, it may
848 * be faster to call one instead of the other. The member isNativeObjectProc
849 * is set to 1 if an object-based function was registered by
850 * Tcl_CreateObjCommand, and to 0 if a string-based function was registered by
851 * Tcl_CreateCommand. The other function is typically set to a compatibility
852 * wrapper that does string-to-object or object-to-string argument conversions
853 * then calls the other function.
854 */
855
856 typedef struct {
857 int isNativeObjectProc; /* 1 if objProc was registered by a call to
858 * Tcl_CreateObjCommand; 2 if objProc was registered by
859 * a call to Tcl_CreateObjCommand2; 0 otherwise.
860 * Tcl_SetCmdInfo does not modify this field. */
861 Tcl_ObjCmdProc *objProc; /* Command's object-based function. */
862 void *objClientData; /* ClientData for object proc. */
863 Tcl_CmdProc *proc; /* Command's string-based function. */
864 void *clientData; /* ClientData for string proc. */
865 Tcl_CmdDeleteProc *deleteProc;
866 /* Function to call when command is
867 * deleted. */
868 void *deleteData; /* Value to pass to deleteProc (usually the
869 * same as clientData). */
870 Tcl_Namespace *namespacePtr;/* Points to the namespace that contains this
871 * command. Note that Tcl_SetCmdInfo will not
872 * change a command's namespace; use
873 * TclRenameCommand or Tcl_Eval (of 'rename')
874 * to do that. */
875 Tcl_ObjCmdProc2 *objProc2; /* Command's object2-based function. */
876 void *objClientData2; /* ClientData for object2 proc. */
877 } Tcl_CmdInfo;
878
879 /*
880 *----------------------------------------------------------------------------
881 * The structure defined below is used to hold dynamic strings. The only
882 * fields that clients should use are string and length, accessible via the
883 * macros Tcl_DStringValue and Tcl_DStringLength.
884 */
885
886 #define TCL_DSTRING_STATIC_SIZE 200
887 typedef struct Tcl_DString {
888 char *string; /* Points to beginning of string: either
889 * staticSpace below or a malloced array. */
890 Tcl_Size length; /* Number of bytes in string excluding
891 * terminating nul */
892 Tcl_Size spaceAvl; /* Total number of bytes available for the
893 * string and its terminating NULL char. */
894 char staticSpace[TCL_DSTRING_STATIC_SIZE];
895 /* Space to use in common case where string is
896 * small. */
897 } Tcl_DString;
898
899 #define Tcl_DStringLength(dsPtr) ((dsPtr)->length)
900 #define Tcl_DStringValue(dsPtr) ((dsPtr)->string)
901
902 /*
903 * Definitions for the maximum number of digits of precision that may be
904 * produced by Tcl_PrintDouble, and the number of bytes of buffer space
905 * required by Tcl_PrintDouble.
906 */
907
908 #define TCL_MAX_PREC 17
909 #define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10)
910
911 /*
912 * Definition for a number of bytes of buffer space sufficient to hold the
913 * string representation of an integer in base 10 (assuming the existence of
914 * 64-bit integers).
915 */
916
917 #define TCL_INTEGER_SPACE (3*(int)sizeof(Tcl_WideInt))
918
919 /*
920 *----------------------------------------------------------------------------
921 * Type values returned by Tcl_GetNumberFromObj
922 * TCL_NUMBER_INT Representation is a Tcl_WideInt
923 * TCL_NUMBER_BIG Representation is an mp_int
924 * TCL_NUMBER_DOUBLE Representation is a double
925 * TCL_NUMBER_NAN Value is NaN.
926 */
927
928 #define TCL_NUMBER_INT 2
929 #define TCL_NUMBER_BIG 3
930 #define TCL_NUMBER_DOUBLE 4
931 #define TCL_NUMBER_NAN 5
932
933 /*
934 * Flag values passed to Tcl_ConvertElement.
935 * TCL_DONT_USE_BRACES forces it not to enclose the element in braces, but to
936 * use backslash quoting instead.
937 * TCL_DONT_QUOTE_HASH disables the default quoting of the '#' character. It
938 * is safe to leave the hash unquoted when the element is not the first
939 * element of a list, and this flag can be used by the caller to indicate
940 * that condition.
941 */
942
943 #define TCL_DONT_USE_BRACES 1
944 #define TCL_DONT_QUOTE_HASH 8
945
946 /*
947 * Flags that may be passed to Tcl_GetIndexFromObj.
948 * TCL_EXACT disallows abbreviated strings.
949 * TCL_NULL_OK allows the empty string or NULL to return TCL_OK.
950 * The returned value will be -1;
951 * TCL_INDEX_TEMP_TABLE disallows caching of lookups. A possible use case is
952 * a table that will not live long enough to make it worthwhile.
953 */
954
955 #define TCL_EXACT 1
956 #define TCL_NULL_OK 32
957 #define TCL_INDEX_TEMP_TABLE 64
958
959 /*
960 * Flags that may be passed to Tcl_UniCharToUtf.
961 * TCL_COMBINE Combine surrogates
962 */
963
964 #if TCL_MAJOR_VERSION > 8
965 # define TCL_COMBINE 0x1000000
966 #else
967 # define TCL_COMBINE 0
968 #endif
969 /*
970 *----------------------------------------------------------------------------
971 * Flag values passed to Tcl_RecordAndEval, Tcl_EvalObj, Tcl_EvalObjv.
972 * WARNING: these bit choices must not conflict with the bit choices for
973 * evalFlag bits in tclInt.h!
974 *
975 * Meanings:
976 * TCL_NO_EVAL: Just record this command
977 * TCL_EVAL_GLOBAL: Execute script in global namespace
978 * TCL_EVAL_DIRECT: Do not compile this script
979 * TCL_EVAL_INVOKE: Magical Tcl_EvalObjv mode for aliases/ensembles
980 * o Run in iPtr->lookupNsPtr or global namespace
981 * o Cut out of error traces
982 * o Don't reset the flags controlling ensemble
983 * error message rewriting.
984 * TCL_CANCEL_UNWIND: Magical Tcl_CancelEval mode that causes the
985 * stack for the script in progress to be
986 * completely unwound.
987 * TCL_EVAL_NOERR: Do no exception reporting at all, just return
988 * as the caller will report.
989 */
990
991 #define TCL_NO_EVAL 0x010000
992 #define TCL_EVAL_GLOBAL 0x020000
993 #define TCL_EVAL_DIRECT 0x040000
994 #define TCL_EVAL_INVOKE 0x080000
995 #define TCL_CANCEL_UNWIND 0x100000
996 #define TCL_EVAL_NOERR 0x200000
997
998 /*
999 * Special freeProc values that may be passed to Tcl_SetResult (see the man
1000 * page for details):
1001 */
1002
1003 #define TCL_VOLATILE ((Tcl_FreeProc *) 1)
1004 #define TCL_STATIC ((Tcl_FreeProc *) 0)
1005 #define TCL_DYNAMIC ((Tcl_FreeProc *) 3)
1006
1007 /*
1008 * Flag values passed to variable-related functions.
1009 * WARNING: these bit choices must not conflict with the bit choice for
1010 * TCL_CANCEL_UNWIND, above.
1011 */
1012
1013 #define TCL_GLOBAL_ONLY 1
1014 #define TCL_NAMESPACE_ONLY 2
1015 #define TCL_APPEND_VALUE 4
1016 #define TCL_LIST_ELEMENT 8
1017 #define TCL_TRACE_READS 0x10
1018 #define TCL_TRACE_WRITES 0x20
1019 #define TCL_TRACE_UNSETS 0x40
1020 #define TCL_TRACE_DESTROYED 0x80
1021
1022 #define TCL_LEAVE_ERR_MSG 0x200
1023 #define TCL_TRACE_ARRAY 0x800
1024 /* Indicate the semantics of the result of a trace. */
1025 #define TCL_TRACE_RESULT_DYNAMIC 0x8000
1026 #define TCL_TRACE_RESULT_OBJECT 0x10000
1027
1028 /*
1029 * Flag values for ensemble commands.
1030 */
1031
1032 #define TCL_ENSEMBLE_PREFIX 0x02/* Flag value to say whether to allow
1033 * unambiguous prefixes of commands or to
1034 * require exact matches for command names. */
1035
1036 /*
1037 * Flag values passed to command-related functions.
1038 */
1039
1040 #define TCL_TRACE_RENAME 0x2000
1041 #define TCL_TRACE_DELETE 0x4000
1042
1043 #define TCL_ALLOW_INLINE_COMPILATION 0x20000
1044
1045 /*
1046 * Types for linked variables:
1047 */
1048
1049 #define TCL_LINK_INT 1
1050 #define TCL_LINK_DOUBLE 2
1051 #define TCL_LINK_BOOLEAN 3
1052 #define TCL_LINK_STRING 4
1053 #define TCL_LINK_WIDE_INT 5
1054 #define TCL_LINK_CHAR 6
1055 #define TCL_LINK_UCHAR 7
1056 #define TCL_LINK_SHORT 8
1057 #define TCL_LINK_USHORT 9
1058 #define TCL_LINK_UINT 10
1059 #define TCL_LINK_LONG ((sizeof(long) != sizeof(int)) ? TCL_LINK_WIDE_INT : TCL_LINK_INT)
1060 #define TCL_LINK_ULONG ((sizeof(long) != sizeof(int)) ? TCL_LINK_WIDE_UINT : TCL_LINK_UINT)
1061 #define TCL_LINK_FLOAT 13
1062 #define TCL_LINK_WIDE_UINT 14
1063 #define TCL_LINK_CHARS 15
1064 #define TCL_LINK_BINARY 16
1065 #define TCL_LINK_READ_ONLY 0x80
1066
1067 /*
1068 *----------------------------------------------------------------------------
1069 * Forward declarations of Tcl_HashTable and related types.
1070 */
1071
1072 #ifndef TCL_HASH_TYPE
1073 #if TCL_MAJOR_VERSION > 8
1074 # define TCL_HASH_TYPE size_t
1075 #else
1076 # define TCL_HASH_TYPE unsigned
1077 #endif
1078 #endif
1079
1080 typedef struct Tcl_HashKeyType Tcl_HashKeyType;
1081 typedef struct Tcl_HashTable Tcl_HashTable;
1082 typedef struct Tcl_HashEntry Tcl_HashEntry;
1083
1084 typedef TCL_HASH_TYPE (Tcl_HashKeyProc) (Tcl_HashTable *tablePtr, void *keyPtr);
1085 typedef int (Tcl_CompareHashKeysProc) (void *keyPtr, Tcl_HashEntry *hPtr);
1086 typedef Tcl_HashEntry * (Tcl_AllocHashEntryProc) (Tcl_HashTable *tablePtr,
1087 void *keyPtr);
1088 typedef void (Tcl_FreeHashEntryProc) (Tcl_HashEntry *hPtr);
1089
1090 /*
1091 * Structure definition for an entry in a hash table. No-one outside Tcl
1092 * should access any of these fields directly; use the macros defined below.
1093 */
1094
1095 struct Tcl_HashEntry {
1096 Tcl_HashEntry *nextPtr; /* Pointer to next entry in this hash bucket,
1097 * or NULL for end of chain. */
1098 Tcl_HashTable *tablePtr; /* Pointer to table containing entry. */
1099 size_t hash; /* Hash value. */
1100 void *clientData; /* Application stores something here with
1101 * Tcl_SetHashValue. */
1102 union { /* Key has one of these forms: */
1103 char *oneWordValue; /* One-word value for key. */
1104 Tcl_Obj *objPtr; /* Tcl_Obj * key value. */
1105 int words[1]; /* Multiple integer words for key. The actual
1106 * size will be as large as necessary for this
1107 * table's keys. */
1108 char string[1]; /* String for key. The actual size will be as
1109 * large as needed to hold the key. */
1110 } key; /* MUST BE LAST FIELD IN RECORD!! */
1111 };
1112
1113 /*
1114 * Flags used in Tcl_HashKeyType.
1115 *
1116 * TCL_HASH_KEY_RANDOMIZE_HASH -
1117 * There are some things, pointers for example
1118 * which don't hash well because they do not use
1119 * the lower bits. If this flag is set then the
1120 * hash table will attempt to rectify this by
1121 * randomising the bits and then using the upper
1122 * N bits as the index into the table.
1123 * TCL_HASH_KEY_SYSTEM_HASH - If this flag is set then all memory internally
1124 * allocated for the hash table that is not for an
1125 * entry will use the system heap.
1126 * TCL_HASH_KEY_DIRECT_COMPARE -
1127 * Allows fast comparison for hash keys directly
1128 * by compare of their key.oneWordValue values,
1129 * before call of compareKeysProc (much slower
1130 * than a direct compare, so it is speed-up only
1131 * flag). Don't use it if keys contain values rather
1132 * than pointers.
1133 */
1134
1135 #define TCL_HASH_KEY_RANDOMIZE_HASH 0x1
1136 #define TCL_HASH_KEY_SYSTEM_HASH 0x2
1137 #define TCL_HASH_KEY_DIRECT_COMPARE 0x4
1138
1139 /*
1140 * Structure definition for the methods associated with a hash table key type.
1141 */
1142
1143 #define TCL_HASH_KEY_TYPE_VERSION 1
1144 struct Tcl_HashKeyType {
1145 int version; /* Version of the table. If this structure is
1146 * extended in future then the version can be
1147 * used to distinguish between different
1148 * structures. */
1149 int flags; /* Flags, see above for details. */
1150 Tcl_HashKeyProc *hashKeyProc;
1151 /* Calculates a hash value for the key. If
1152 * this is NULL then the pointer itself is
1153 * used as a hash value. */
1154 Tcl_CompareHashKeysProc *compareKeysProc;
1155 /* Compares two keys and returns zero if they
1156 * do not match, and non-zero if they do. If
1157 * this is NULL then the pointers are
1158 * compared. */
1159 Tcl_AllocHashEntryProc *allocEntryProc;
1160 /* Called to allocate memory for a new entry,
1161 * i.e. if the key is a string then this could
1162 * allocate a single block which contains
1163 * enough space for both the entry and the
1164 * string. Only the key field of the allocated
1165 * Tcl_HashEntry structure needs to be filled
1166 * in. If something else needs to be done to
1167 * the key, i.e. incrementing a reference
1168 * count then that should be done by this
1169 * function. If this is NULL then Tcl_Alloc is
1170 * used to allocate enough space for a
1171 * Tcl_HashEntry and the key pointer is
1172 * assigned to key.oneWordValue. */
1173 Tcl_FreeHashEntryProc *freeEntryProc;
1174 /* Called to free memory associated with an
1175 * entry. If something else needs to be done
1176 * to the key, i.e. decrementing a reference
1177 * count then that should be done by this
1178 * function. If this is NULL then Tcl_Free is
1179 * used to free the Tcl_HashEntry. */
1180 };
1181
1182 /*
1183 * Structure definition for a hash table. Must be in tcl.h so clients can
1184 * allocate space for these structures, but clients should never access any
1185 * fields in this structure.
1186 */
1187
1188 #define TCL_SMALL_HASH_TABLE 4
1189 struct Tcl_HashTable {
1190 Tcl_HashEntry **buckets; /* Pointer to bucket array. Each element
1191 * points to first entry in bucket's hash
1192 * chain, or NULL. */
1193 Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE];
1194 /* Bucket array used for small tables (to
1195 * avoid mallocs and frees). */
1196 Tcl_Size numBuckets; /* Total number of buckets allocated at
1197 * **bucketPtr. */
1198 Tcl_Size numEntries; /* Total number of entries present in
1199 * table. */
1200 Tcl_Size rebuildSize; /* Enlarge table when numEntries gets to be
1201 * this large. */
1202 #if TCL_MAJOR_VERSION > 8
1203 size_t mask; /* Mask value used in hashing function. */
1204 #endif
1205 int downShift; /* Shift count used in hashing function.
1206 * Designed to use high-order bits of
1207 * randomized keys. */
1208 #if TCL_MAJOR_VERSION < 9
1209 int mask; /* Mask value used in hashing function. */
1210 #endif
1211 int keyType; /* Type of keys used in this table. It's
1212 * either TCL_CUSTOM_KEYS, TCL_STRING_KEYS,
1213 * TCL_ONE_WORD_KEYS, or an integer giving the
1214 * number of ints that is the size of the
1215 * key. */
1216 Tcl_HashEntry *(*findProc) (Tcl_HashTable *tablePtr, const char *key);
1217 Tcl_HashEntry *(*createProc) (Tcl_HashTable *tablePtr, const char *key,
1218 int *newPtr);
1219 const Tcl_HashKeyType *typePtr;
1220 /* Type of the keys used in the
1221 * Tcl_HashTable. */
1222 };
1223
1224 /*
1225 * Structure definition for information used to keep track of searches through
1226 * hash tables:
1227 */
1228
1229 typedef struct Tcl_HashSearch {
1230 Tcl_HashTable *tablePtr; /* Table being searched. */
1231 Tcl_Size nextIndex; /* Index of next bucket to be enumerated after
1232 * present one. */
1233 Tcl_HashEntry *nextEntryPtr;/* Next entry to be enumerated in the current
1234 * bucket. */
1235 } Tcl_HashSearch;
1236
1237 /*
1238 * Acceptable key types for hash tables:
1239 *
1240 * TCL_STRING_KEYS: The keys are strings, they are copied into the
1241 * entry.
1242 * TCL_ONE_WORD_KEYS: The keys are pointers, the pointer is stored
1243 * in the entry.
1244 * TCL_CUSTOM_TYPE_KEYS: The keys are arbitrary types which are copied
1245 * into the entry.
1246 * TCL_CUSTOM_PTR_KEYS: The keys are pointers to arbitrary types, the
1247 * pointer is stored in the entry.
1248 *
1249 * While maintaining binary compatibility the above have to be distinct values
1250 * as they are used to differentiate between old versions of the hash table
1251 * which don't have a typePtr and new ones which do. Once binary compatibility
1252 * is discarded in favour of making more wide spread changes TCL_STRING_KEYS
1253 * can be the same as TCL_CUSTOM_TYPE_KEYS, and TCL_ONE_WORD_KEYS can be the
1254 * same as TCL_CUSTOM_PTR_KEYS because they simply determine how the key is
1255 * accessed from the entry and not the behaviour.
1256 */
1257
1258 #define TCL_STRING_KEYS (0)
1259 #define TCL_ONE_WORD_KEYS (1)
1260 #define TCL_CUSTOM_TYPE_KEYS (-2)
1261 #define TCL_CUSTOM_PTR_KEYS (-1)
1262
1263 /*
1264 * Structure definition for information used to keep track of searches through
1265 * dictionaries. These fields should not be accessed by code outside
1266 * tclDictObj.c
1267 */
1268
1269 typedef struct {
1270 void *next; /* Search position for underlying hash
1271 * table. */
1272 TCL_HASH_TYPE epoch; /* Epoch marker for dictionary being searched,
1273 * or 0 if search has terminated. */
1274 Tcl_Dict dictionaryPtr; /* Reference to dictionary being searched. */
1275 } Tcl_DictSearch;
1276
1277
1278 /*
1279 *----------------------------------------------------------------------------
1280 * Flag values to pass to Tcl_DoOneEvent to disable searches for some kinds of
1281 * events:
1282 */
1283
1284 #define TCL_DONT_WAIT (1<<1)
1285 #define TCL_WINDOW_EVENTS (1<<2)
1286 #define TCL_FILE_EVENTS (1<<3)
1287 #define TCL_TIMER_EVENTS (1<<4)
1288 #define TCL_IDLE_EVENTS (1<<5) /* WAS 0x10 ???? */
1289 #define TCL_ALL_EVENTS (~TCL_DONT_WAIT)
1290
1291 /*
1292 * The following structure defines a generic event for the Tcl event system.
1293 * These are the things that are queued in calls to Tcl_QueueEvent and
1294 * serviced later by Tcl_DoOneEvent. There can be many different kinds of
1295 * events with different fields, corresponding to window events, timer events,
1296 * etc. The structure for a particular event consists of a Tcl_Event header
1297 * followed by additional information specific to that event.
1298 */
1299
1300 struct Tcl_Event {
1301 Tcl_EventProc *proc; /* Function to call to service this event. */
1302 struct Tcl_Event *nextPtr; /* Next in list of pending events, or NULL. */
1303 };
1304
1305 /*
1306 * Positions to pass to Tcl_QueueEvent/Tcl_ThreadQueueEvent:
1307 */
1308
1309 typedef enum {
1310 TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK,
1311 TCL_QUEUE_ALERT_IF_EMPTY=4
1312 } Tcl_QueuePosition;
1313
1314 /*
1315 * Values to pass to Tcl_SetServiceMode to specify the behavior of notifier
1316 * event routines.
1317 */
1318
1319 #define TCL_SERVICE_NONE 0
1320 #define TCL_SERVICE_ALL 1
1321
1322 /*
1323 * The following structure keeps is used to hold a time value, either as an
1324 * absolute time (the number of seconds from the epoch) or as an elapsed time.
1325 * On Unix systems the epoch is Midnight Jan 1, 1970 GMT.
1326 */
1327
1328 typedef struct Tcl_Time {
1329 #if TCL_MAJOR_VERSION > 8
1330 long long sec; /* Seconds. */
1331 #else
1332 long sec; /* Seconds. */
1333 #endif
1334 #if defined(_CYGWIN_) && TCL_MAJOR_VERSION > 8
1335 int usec; /* Microseconds. */
1336 #else
1337 long usec; /* Microseconds. */
1338 #endif
1339 } Tcl_Time;
1340
1341 typedef void (Tcl_SetTimerProc) (const Tcl_Time *timePtr);
1342 typedef int (Tcl_WaitForEventProc) (const Tcl_Time *timePtr);
1343
1344 /*
1345 * TIP #233 (Virtualized Time)
1346 */
1347
1348 typedef void (Tcl_GetTimeProc) (Tcl_Time *timebuf, void *clientData);
1349 typedef void (Tcl_ScaleTimeProc) (Tcl_Time *timebuf, void *clientData);
1350
1351 /*
1352 *----------------------------------------------------------------------------
1353 * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler to
1354 * indicate what sorts of events are of interest:
1355 */
1356
1357 #define TCL_READABLE (1<<1)
1358 #define TCL_WRITABLE (1<<2)
1359 #define TCL_EXCEPTION (1<<3)
1360
1361 /*
1362 * Flag values to pass to Tcl_OpenCommandChannel to indicate the disposition
1363 * of the stdio handles. TCL_STDIN, TCL_STDOUT, TCL_STDERR, are also used in
1364 * Tcl_GetStdChannel.
1365 */
1366
1367 #define TCL_STDIN (1<<1)
1368 #define TCL_STDOUT (1<<2)
1369 #define TCL_STDERR (1<<3)
1370 #define TCL_ENFORCE_MODE (1<<4)
1371
1372 /*
1373 * Bits passed to Tcl_DriverClose2Proc to indicate which side of a channel
1374 * should be closed.
1375 */
1376
1377 #define TCL_CLOSE_READ (1<<1)
1378 #define TCL_CLOSE_WRITE (1<<2)
1379
1380 /*
1381 * Value to use as the closeProc for a channel that supports the close2Proc
1382 * interface.
1383 */
1384
1385 #if TCL_MAJOR_VERSION > 8
1386 # define TCL_CLOSE2PROC NULL
1387 #else
1388 # define TCL_CLOSE2PROC ((void *) 1)
1389 #endif
1390
1391 /*
1392 * Channel version tag. This was introduced in 8.3.2/8.4.
1393 */
1394
1395 #define TCL_CHANNEL_VERSION_5 ((Tcl_ChannelTypeVersion) 0x5)
1396
1397 /*
1398 * TIP #218: Channel Actions, Ids for Tcl_DriverThreadActionProc.
1399 */
1400
1401 #define TCL_CHANNEL_THREAD_INSERT (0)
1402 #define TCL_CHANNEL_THREAD_REMOVE (1)
1403
1404 /*
1405 * Typedefs for the various operations in a channel type:
1406 */
1407
1408 typedef int (Tcl_DriverBlockModeProc) (void *instanceData, int mode);
1409 typedef void Tcl_DriverCloseProc;
1410 typedef int (Tcl_DriverClose2Proc) (void *instanceData,
1411 Tcl_Interp *interp, int flags);
1412 typedef int (Tcl_DriverInputProc) (void *instanceData, char *buf,
1413 int toRead, int *errorCodePtr);
1414 typedef int (Tcl_DriverOutputProc) (void *instanceData,
1415 const char *buf, int toWrite, int *errorCodePtr);
1416 typedef void Tcl_DriverSeekProc;
1417 typedef int (Tcl_DriverSetOptionProc) (void *instanceData,
1418 Tcl_Interp *interp, const char *optionName,
1419 const char *value);
1420 typedef int (Tcl_DriverGetOptionProc) (void *instanceData,
1421 Tcl_Interp *interp, const char *optionName,
1422 Tcl_DString *dsPtr);
1423 typedef void (Tcl_DriverWatchProc) (void *instanceData, int mask);
1424 typedef int (Tcl_DriverGetHandleProc) (void *instanceData,
1425 int direction, void **handlePtr);
1426 typedef int (Tcl_DriverFlushProc) (void *instanceData);
1427 typedef int (Tcl_DriverHandlerProc) (void *instanceData,
1428 int interestMask);
1429 typedef long long (Tcl_DriverWideSeekProc) (void *instanceData,
1430 long long offset, int mode, int *errorCodePtr);
1431 /*
1432 * TIP #218, Channel Thread Actions
1433 */
1434 typedef void (Tcl_DriverThreadActionProc) (void *instanceData,
1435 int action);
1436 /*
1437 * TIP #208, File Truncation (etc.)
1438 */
1439 typedef int (Tcl_DriverTruncateProc) (void *instanceData,
1440 long long length);
1441
1442 /*
1443 * struct Tcl_ChannelType:
1444 *
1445 * One such structure exists for each type (kind) of channel. It collects
1446 * together in one place all the functions that are part of the specific
1447 * channel type.
1448 *
1449 * It is recommend that the Tcl_Channel* functions are used to access elements
1450 * of this structure, instead of direct accessing.
1451 */
1452
1453 typedef struct Tcl_ChannelType {
1454 const char *typeName; /* The name of the channel type in Tcl
1455 * commands. This storage is owned by channel
1456 * type. */
1457 Tcl_ChannelTypeVersion version;
1458 /* Version of the channel type. */
1459 void *closeProc; /* Not used any more. */
1460 Tcl_DriverInputProc *inputProc;
1461 /* Function to call for input on channel. */
1462 Tcl_DriverOutputProc *outputProc;
1463 /* Function to call for output on channel. */
1464 void *seekProc; /* Not used any more. */
1465 Tcl_DriverSetOptionProc *setOptionProc;
1466 /* Set an option on a channel. */
1467 Tcl_DriverGetOptionProc *getOptionProc;
1468 /* Get an option from a channel. */
1469 Tcl_DriverWatchProc *watchProc;
1470 /* Set up the notifier to watch for events on
1471 * this channel. */
1472 Tcl_DriverGetHandleProc *getHandleProc;
1473 /* Get an OS handle from the channel or NULL
1474 * if not supported. */
1475 Tcl_DriverClose2Proc *close2Proc;
1476 /* Function to call to close the channel if
1477 * the device supports closing the read &
1478 * write sides independently. */
1479 Tcl_DriverBlockModeProc *blockModeProc;
1480 /* Set blocking mode for the raw channel. May
1481 * be NULL. */
1482 Tcl_DriverFlushProc *flushProc;
1483 /* Function to call to flush a channel. May be
1484 * NULL. */
1485 Tcl_DriverHandlerProc *handlerProc;
1486 /* Function to call to handle a channel event.
1487 * This will be passed up the stacked channel
1488 * chain. */
1489 Tcl_DriverWideSeekProc *wideSeekProc;
1490 /* Function to call to seek on the channel
1491 * which can handle 64-bit offsets. May be
1492 * NULL, and must be NULL if seekProc is
1493 * NULL. */
1494 Tcl_DriverThreadActionProc *threadActionProc;
1495 /* Function to call to notify the driver of
1496 * thread specific activity for a channel. May
1497 * be NULL. */
1498 Tcl_DriverTruncateProc *truncateProc;
1499 /* Function to call to truncate the underlying
1500 * file to a particular length. May be NULL if
1501 * the channel does not support truncation. */
1502 } Tcl_ChannelType;
1503
1504 /*
1505 * The following flags determine whether the blockModeProc above should set
1506 * the channel into blocking or nonblocking mode. They are passed as arguments
1507 * to the blockModeProc function in the above structure.
1508 */
1509
1510 #define TCL_MODE_BLOCKING 0 /* Put channel into blocking mode. */
1511 #define TCL_MODE_NONBLOCKING 1 /* Put channel into nonblocking
1512 * mode. */
1513
1514 /*
1515 *----------------------------------------------------------------------------
1516 * Enum for different types of file paths.
1517 */
1518
1519 typedef enum Tcl_PathType {
1520 TCL_PATH_ABSOLUTE,
1521 TCL_PATH_RELATIVE,
1522 TCL_PATH_VOLUME_RELATIVE
1523 } Tcl_PathType;
1524
1525 /*
1526 * The following structure is used to pass glob type data amongst the various
1527 * glob routines and Tcl_FSMatchInDirectory.
1528 */
1529
1530 typedef struct Tcl_GlobTypeData {
1531 int type; /* Corresponds to bcdpfls as in 'find -t'. */
1532 int perm; /* Corresponds to file permissions. */
1533 Tcl_Obj *macType; /* Acceptable Mac type. */
1534 Tcl_Obj *macCreator; /* Acceptable Mac creator. */
1535 } Tcl_GlobTypeData;
1536
1537 /*
1538 * Type and permission definitions for glob command.
1539 */
1540
1541 #define TCL_GLOB_TYPE_BLOCK (1<<0)
1542 #define TCL_GLOB_TYPE_CHAR (1<<1)
1543 #define TCL_GLOB_TYPE_DIR (1<<2)
1544 #define TCL_GLOB_TYPE_PIPE (1<<3)
1545 #define TCL_GLOB_TYPE_FILE (1<<4)
1546 #define TCL_GLOB_TYPE_LINK (1<<5)
1547 #define TCL_GLOB_TYPE_SOCK (1<<6)
1548 #define TCL_GLOB_TYPE_MOUNT (1<<7)
1549
1550 #define TCL_GLOB_PERM_RONLY (1<<0)
1551 #define TCL_GLOB_PERM_HIDDEN (1<<1)
1552 #define TCL_GLOB_PERM_R (1<<2)
1553 #define TCL_GLOB_PERM_W (1<<3)
1554 #define TCL_GLOB_PERM_X (1<<4)
1555
1556 /*
1557 * Flags for the unload callback function.
1558 */
1559
1560 #define TCL_UNLOAD_DETACH_FROM_INTERPRETER (1<<0)
1561 #define TCL_UNLOAD_DETACH_FROM_PROCESS (1<<1)
1562
1563 /*
1564 * Typedefs for the various filesystem operations:
1565 */
1566
1567 typedef int (Tcl_FSStatProc) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
1568 typedef int (Tcl_FSAccessProc) (Tcl_Obj *pathPtr, int mode);
1569 typedef Tcl_Channel (Tcl_FSOpenFileChannelProc) (Tcl_Interp *interp,
1570 Tcl_Obj *pathPtr, int mode, int permissions);
1571 typedef int (Tcl_FSMatchInDirectoryProc) (Tcl_Interp *interp, Tcl_Obj *result,
1572 Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types);
1573 typedef Tcl_Obj * (Tcl_FSGetCwdProc) (Tcl_Interp *interp);
1574 typedef int (Tcl_FSChdirProc) (Tcl_Obj *pathPtr);
1575 typedef int (Tcl_FSLstatProc) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
1576 typedef int (Tcl_FSCreateDirectoryProc) (Tcl_Obj *pathPtr);
1577 typedef int (Tcl_FSDeleteFileProc) (Tcl_Obj *pathPtr);
1578 typedef int (Tcl_FSCopyDirectoryProc) (Tcl_Obj *srcPathPtr,
1579 Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
1580 typedef int (Tcl_FSCopyFileProc) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr);
1581 typedef int (Tcl_FSRemoveDirectoryProc) (Tcl_Obj *pathPtr, int recursive,
1582 Tcl_Obj **errorPtr);
1583 typedef int (Tcl_FSRenameFileProc) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr);
1584 typedef void (Tcl_FSUnloadFileProc) (Tcl_LoadHandle loadHandle);
1585 typedef Tcl_Obj * (Tcl_FSListVolumesProc) (void);
1586 /* We have to declare the utime structure here. */
1587 struct utimbuf;
1588 typedef int (Tcl_FSUtimeProc) (Tcl_Obj *pathPtr, struct utimbuf *tval);
1589 typedef int (Tcl_FSNormalizePathProc) (Tcl_Interp *interp, Tcl_Obj *pathPtr,
1590 int nextCheckpoint);
1591 typedef int (Tcl_FSFileAttrsGetProc) (Tcl_Interp *interp, int index,
1592 Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef);
1593 typedef const char *const * (Tcl_FSFileAttrStringsProc) (Tcl_Obj *pathPtr,
1594 Tcl_Obj **objPtrRef);
1595 typedef int (Tcl_FSFileAttrsSetProc) (Tcl_Interp *interp, int index,
1596 Tcl_Obj *pathPtr, Tcl_Obj *objPtr);
1597 typedef Tcl_Obj * (Tcl_FSLinkProc) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr,
1598 int linkType);
1599 typedef int (Tcl_FSLoadFileProc) (Tcl_Interp *interp, Tcl_Obj *pathPtr,
1600 Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr);
1601 typedef int (Tcl_FSPathInFilesystemProc) (Tcl_Obj *pathPtr,
1602 void **clientDataPtr);
1603 typedef Tcl_Obj * (Tcl_FSFilesystemPathTypeProc) (Tcl_Obj *pathPtr);
1604 typedef Tcl_Obj * (Tcl_FSFilesystemSeparatorProc) (Tcl_Obj *pathPtr);
1605 #define Tcl_FSFreeInternalRepProc Tcl_FreeProc
1606 typedef void *(Tcl_FSDupInternalRepProc) (void *clientData);
1607 typedef Tcl_Obj * (Tcl_FSInternalToNormalizedProc) (void *clientData);
1608 typedef void *(Tcl_FSCreateInternalRepProc) (Tcl_Obj *pathPtr);
1609
1610 typedef struct Tcl_FSVersion_ *Tcl_FSVersion;
1611
1612 /*
1613 *----------------------------------------------------------------------------
1614 * Data structures related to hooking into the filesystem
1615 */
1616
1617 /*
1618 * Filesystem version tag. This was introduced in 8.4.
1619 */
1620
1621 #define TCL_FILESYSTEM_VERSION_1 ((Tcl_FSVersion) 0x1)
1622
1623 /*
1624 * struct Tcl_Filesystem:
1625 *
1626 * One such structure exists for each type (kind) of filesystem. It collects
1627 * together the functions that form the interface for a particulr the
1628 * filesystem. Tcl always accesses the filesystem through one of these
1629 * structures.
1630 *
1631 * Not all entries need be non-NULL; any which are NULL are simply ignored.
1632 * However, a complete filesystem should provide all of these functions. The
1633 * explanations in the structure show the importance of each function.
1634 */
1635
1636 typedef struct Tcl_Filesystem {
1637 const char *typeName; /* The name of the filesystem. */
1638 Tcl_Size structureLength; /* Length of this structure, so future binary
1639 * compatibility can be assured. */
1640 Tcl_FSVersion version; /* Version of the filesystem type. */
1641 Tcl_FSPathInFilesystemProc *pathInFilesystemProc;
1642 /* Determines whether the pathname is in this
1643 * filesystem. This is the most important
1644 * filesystem function. */
1645 Tcl_FSDupInternalRepProc *dupInternalRepProc;
1646 /* Duplicates the internal handle of the node.
1647 * If it is NULL, the filesystem is less
1648 * performant. */
1649 Tcl_FSFreeInternalRepProc *freeInternalRepProc;
1650 /* Frees the internal handle of the node. NULL
1651 * only if there is no need to free resources
1652 * used for the internal handle. */
1653 Tcl_FSInternalToNormalizedProc *internalToNormalizedProc;
1654 /* Converts the internal handle to a normalized
1655 * path. NULL if the filesystem creates nodes
1656 * having no pathname. */
1657 Tcl_FSCreateInternalRepProc *createInternalRepProc;
1658 /* Creates an internal handle for a pathname.
1659 * May be NULL if pathnames have no internal
1660 * handle or if pathInFilesystemProc always
1661 * immediately creates an internal
1662 * representation for pathnames in the
1663 * filesystem. */
1664 Tcl_FSNormalizePathProc *normalizePathProc;
1665 /* Normalizes a path. Should be implemented if
1666 * the filesystems supports multiple paths to
1667 * the same node. */
1668 Tcl_FSFilesystemPathTypeProc *filesystemPathTypeProc;
1669 /* Determines the type of a path in this
1670 * filesystem. May be NULL. */
1671 Tcl_FSFilesystemSeparatorProc *filesystemSeparatorProc;
1672 /* Produces the separator character(s) for this
1673 * filesystem. Must not be NULL. */
1674 Tcl_FSStatProc *statProc; /* Called by 'Tcl_FSStat()'. Provided by any
1675 * reasonable filesystem. */
1676 Tcl_FSAccessProc *accessProc;
1677 /* Called by 'Tcl_FSAccess()'. Implemented by
1678 * any reasonable filesystem. */
1679 Tcl_FSOpenFileChannelProc *openFileChannelProc;
1680 /* Called by 'Tcl_FSOpenFileChannel()'.
1681 * Provided by any reasonable filesystem. */
1682 Tcl_FSMatchInDirectoryProc *matchInDirectoryProc;
1683 /* Called by 'Tcl_FSMatchInDirectory()'. NULL
1684 * if the filesystem does not support glob or
1685 * recursive copy. */
1686 Tcl_FSUtimeProc *utimeProc; /* Called by 'Tcl_FSUtime()', by 'file
1687 * mtime' to set (not read) times, 'file
1688 * atime', and the open-r/open-w/fcopy variant
1689 * of 'file copy'. */
1690 Tcl_FSLinkProc *linkProc; /* Called by 'Tcl_FSLink()'. NULL if reading or
1691 * creating links is not supported. */
1692 Tcl_FSListVolumesProc *listVolumesProc;
1693 /* Lists filesystem volumes added by this
1694 * filesystem. NULL if the filesystem does not
1695 * use volumes. */
1696 Tcl_FSFileAttrStringsProc *fileAttrStringsProc;
1697 /* List all valid attributes strings. NULL if
1698 * the filesystem does not support the 'file
1699 * attributes' command. Can be used to attach
1700 * arbitrary additional data to files in a
1701 * filesystem. */
1702 Tcl_FSFileAttrsGetProc *fileAttrsGetProc;
1703 /* Called by 'Tcl_FSFileAttrsGet()' and by
1704 * 'file attributes'. */
1705 Tcl_FSFileAttrsSetProc *fileAttrsSetProc;
1706 /* Called by 'Tcl_FSFileAttrsSet()' and by
1707 * 'file attributes'. */
1708 Tcl_FSCreateDirectoryProc *createDirectoryProc;
1709 /* Called by 'Tcl_FSCreateDirectory()'. May be
1710 * NULL if the filesystem is read-only. */
1711 Tcl_FSRemoveDirectoryProc *removeDirectoryProc;
1712 /* Called by 'Tcl_FSRemoveDirectory()'. May be
1713 * NULL if the filesystem is read-only. */
1714 Tcl_FSDeleteFileProc *deleteFileProc;
1715 /* Called by 'Tcl_FSDeleteFile()' May be NULL
1716 * if the filesystem is is read-only. */
1717 Tcl_FSCopyFileProc *copyFileProc;
1718 /* Called by 'Tcl_FSCopyFile()'. If NULL, for
1719 * a copy operation at the script level (not
1720 * C) Tcl uses open-r, open-w and fcopy. */
1721 Tcl_FSRenameFileProc *renameFileProc;
1722 /* Called by 'Tcl_FSRenameFile()'. If NULL, for
1723 * a rename operation at the script level (not
1724 * C) Tcl performs a copy operation followed
1725 * by a delete operation. */
1726 Tcl_FSCopyDirectoryProc *copyDirectoryProc;
1727 /* Called by 'Tcl_FSCopyDirectory()'. If NULL,
1728 * for a copy operation at the script level
1729 * (not C) Tcl recursively creates directories
1730 * and copies files. */
1731 Tcl_FSLstatProc *lstatProc; /* Called by 'Tcl_FSLstat()'. If NULL, Tcl
1732 * attempts to use 'statProc' instead. */
1733 Tcl_FSLoadFileProc *loadFileProc;
1734 /* Called by 'Tcl_FSLoadFile()'. If NULL, Tcl
1735 * performs a copy to a temporary file in the
1736 * native filesystem and then calls
1737 * Tcl_FSLoadFile() on that temporary copy. */
1738 Tcl_FSGetCwdProc *getCwdProc;
1739 /* Called by 'Tcl_FSGetCwd()'. Normally NULL.
1740 * Usually only called once: If 'getcwd' is
1741 * called before 'chdir' is ever called. */
1742 Tcl_FSChdirProc *chdirProc; /* Called by 'Tcl_FSChdir()'. For a virtual
1743 * filesystem, chdirProc just returns zero
1744 * (success) if the pathname is a valid
1745 * directory, and some other value otherwise.
1746 * For A real filesystem, chdirProc performs
1747 * the correct action, e.g. calls the system
1748 * 'chdir' function. If not implemented, then
1749 * 'cd' and 'pwd' fail for a pathname in this
1750 * filesystem. On success Tcl stores the
1751 * pathname for use by GetCwd. If NULL, Tcl
1752 * performs records the pathname as the new
1753 * current directory if it passes a series of
1754 * directory access checks. */
1755 } Tcl_Filesystem;
1756
1757 /*
1758 * The following definitions are used as values for the 'linkAction' flag to
1759 * Tcl_FSLink, or the linkProc of any filesystem. Any combination of flags can
1760 * be given. For link creation, the linkProc should create a link which
1761 * matches any of the types given.
1762 *
1763 * TCL_CREATE_SYMBOLIC_LINK - Create a symbolic or soft link.
1764 * TCL_CREATE_HARD_LINK - Create a hard link.
1765 */
1766
1767 #define TCL_CREATE_SYMBOLIC_LINK 0x01
1768 #define TCL_CREATE_HARD_LINK 0x02
1769
1770 /*
1771 *----------------------------------------------------------------------------
1772 * The following structure represents the Notifier functions that you can
1773 * override with the Tcl_SetNotifier call.
1774 */
1775
1776 typedef struct Tcl_NotifierProcs {
1777 Tcl_SetTimerProc *setTimerProc;
1778 Tcl_WaitForEventProc *waitForEventProc;
1779 Tcl_CreateFileHandlerProc *createFileHandlerProc;
1780 Tcl_DeleteFileHandlerProc *deleteFileHandlerProc;
1781 Tcl_InitNotifierProc *initNotifierProc;
1782 Tcl_FinalizeNotifierProc *finalizeNotifierProc;
1783 Tcl_AlertNotifierProc *alertNotifierProc;
1784 Tcl_ServiceModeHookProc *serviceModeHookProc;
1785 } Tcl_NotifierProcs;
1786
1787
1788 /*
1789 *----------------------------------------------------------------------------
1790 * The following data structures and declarations are for the new Tcl parser.
1791 *
1792 * For each word of a command, and for each piece of a word such as a variable
1793 * reference, one of the following structures is created to describe the
1794 * token.
1795 */
1796
1797 typedef struct Tcl_Token {
1798 int type; /* Type of token, such as TCL_TOKEN_WORD; see
1799 * below for valid types. */
1800 const char *start; /* First character in token. */
1801 Tcl_Size size; /* Number of bytes in token. */
1802 Tcl_Size numComponents; /* If this token is composed of other tokens,
1803 * this field tells how many of them there are
1804 * (including components of components, etc.).
1805 * The component tokens immediately follow
1806 * this one. */
1807 } Tcl_Token;
1808
1809 /*
1810 * Type values defined for Tcl_Token structures. These values are defined as
1811 * mask bits so that it's easy to check for collections of types.
1812 *
1813 * TCL_TOKEN_WORD - The token describes one word of a command,
1814 * from the first non-blank character of the word
1815 * (which may be " or {) up to but not including
1816 * the space, semicolon, or bracket that
1817 * terminates the word. NumComponents counts the
1818 * total number of sub-tokens that make up the
1819 * word. This includes, for example, sub-tokens
1820 * of TCL_TOKEN_VARIABLE tokens.
1821 * TCL_TOKEN_SIMPLE_WORD - This token is just like TCL_TOKEN_WORD except
1822 * that the word is guaranteed to consist of a
1823 * single TCL_TOKEN_TEXT sub-token.
1824 * TCL_TOKEN_TEXT - The token describes a range of literal text
1825 * that is part of a word. NumComponents is
1826 * always 0.
1827 * TCL_TOKEN_BS - The token describes a backslash sequence that
1828 * must be collapsed. NumComponents is always 0.
1829 * TCL_TOKEN_COMMAND - The token describes a command whose result
1830 * must be substituted into the word. The token
1831 * includes the enclosing brackets. NumComponents
1832 * is always 0.
1833 * TCL_TOKEN_VARIABLE - The token describes a variable substitution,
1834 * including the dollar sign, variable name, and
1835 * array index (if there is one) up through the
1836 * right parentheses. NumComponents tells how
1837 * many additional tokens follow to represent the
1838 * variable name. The first token will be a
1839 * TCL_TOKEN_TEXT token that describes the
1840 * variable name. If the variable is an array
1841 * reference then there will be one or more
1842 * additional tokens, of type TCL_TOKEN_TEXT,
1843 * TCL_TOKEN_BS, TCL_TOKEN_COMMAND, and
1844 * TCL_TOKEN_VARIABLE, that describe the array
1845 * index; numComponents counts the total number
1846 * of nested tokens that make up the variable
1847 * reference, including sub-tokens of
1848 * TCL_TOKEN_VARIABLE tokens.
1849 * TCL_TOKEN_SUB_EXPR - The token describes one subexpression of an
1850 * expression, from the first non-blank character
1851 * of the subexpression up to but not including
1852 * the space, brace, or bracket that terminates
1853 * the subexpression. NumComponents counts the
1854 * total number of following subtokens that make
1855 * up the subexpression; this includes all
1856 * subtokens for any nested TCL_TOKEN_SUB_EXPR
1857 * tokens. For example, a numeric value used as a
1858 * primitive operand is described by a
1859 * TCL_TOKEN_SUB_EXPR token followed by a
1860 * TCL_TOKEN_TEXT token. A binary subexpression
1861 * is described by a TCL_TOKEN_SUB_EXPR token
1862 * followed by the TCL_TOKEN_OPERATOR token for
1863 * the operator, then TCL_TOKEN_SUB_EXPR tokens
1864 * for the left then the right operands.
1865 * TCL_TOKEN_OPERATOR - The token describes one expression operator.
1866 * An operator might be the name of a math
1867 * function such as "abs". A TCL_TOKEN_OPERATOR
1868 * token is always preceded by one
1869 * TCL_TOKEN_SUB_EXPR token for the operator's
1870 * subexpression, and is followed by zero or more
1871 * TCL_TOKEN_SUB_EXPR tokens for the operator's
1872 * operands. NumComponents is always 0.
1873 * TCL_TOKEN_EXPAND_WORD - This token is just like TCL_TOKEN_WORD except
1874 * that it marks a word that began with the
1875 * literal character prefix "{*}". This word is
1876 * marked to be expanded - that is, broken into
1877 * words after substitution is complete.
1878 */
1879
1880 #define TCL_TOKEN_WORD 1
1881 #define TCL_TOKEN_SIMPLE_WORD 2
1882 #define TCL_TOKEN_TEXT 4
1883 #define TCL_TOKEN_BS 8
1884 #define TCL_TOKEN_COMMAND 16
1885 #define TCL_TOKEN_VARIABLE 32
1886 #define TCL_TOKEN_SUB_EXPR 64
1887 #define TCL_TOKEN_OPERATOR 128
1888 #define TCL_TOKEN_EXPAND_WORD 256
1889
1890 /*
1891 * Parsing error types. On any parsing error, one of these values will be
1892 * stored in the error field of the Tcl_Parse structure defined below.
1893 */
1894
1895 #define TCL_PARSE_SUCCESS 0
1896 #define TCL_PARSE_QUOTE_EXTRA 1
1897 #define TCL_PARSE_BRACE_EXTRA 2
1898 #define TCL_PARSE_MISSING_BRACE 3
1899 #define TCL_PARSE_MISSING_BRACKET 4
1900 #define TCL_PARSE_MISSING_PAREN 5
1901 #define TCL_PARSE_MISSING_QUOTE 6
1902 #define TCL_PARSE_MISSING_VAR_BRACE 7
1903 #define TCL_PARSE_SYNTAX 8
1904 #define TCL_PARSE_BAD_NUMBER 9
1905
1906 /*
1907 * A structure of the following type is filled in by Tcl_ParseCommand. It
1908 * describes a single command parsed from an input string.
1909 */
1910
1911 #define NUM_STATIC_TOKENS 20
1912
1913 typedef struct Tcl_Parse {
1914 const char *commentStart; /* Pointer to # that begins the first of one
1915 * or more comments preceding the command. */
1916 Tcl_Size commentSize; /* Number of bytes in comments (up through
1917 * newline character that terminates the last
1918 * comment). If there were no comments, this
1919 * field is 0. */
1920 const char *commandStart; /* First character in first word of
1921 * command. */
1922 Tcl_Size commandSize; /* Number of bytes in command, including first
1923 * character of first word, up through the
1924 * terminating newline, close bracket, or
1925 * semicolon. */
1926 Tcl_Size numWords; /* Total number of words in command. May be
1927 * 0. */
1928 Tcl_Token *tokenPtr; /* Pointer to first token representing the
1929 * words of the command. Initially points to
1930 * staticTokens, but may change to point to
1931 * malloc-ed space if command exceeds space in
1932 * staticTokens. */
1933 Tcl_Size numTokens; /* Total number of tokens in command. */
1934 Tcl_Size tokensAvailable; /* Total number of tokens available at
1935 * *tokenPtr. */
1936 int errorType; /* One of the parsing error types defined
1937 * above. */
1938 #if TCL_MAJOR_VERSION > 8
1939 int incomplete; /* This field is set to 1 by Tcl_ParseCommand
1940 * if the command appears to be incomplete.
1941 * This information is used by
1942 * Tcl_CommandComplete. */
1943 #endif
1944
1945 /*
1946 * The fields below are intended only for the private use of the parser.
1947 * They should not be used by functions that invoke Tcl_ParseCommand.
1948 */
1949
1950 const char *string; /* The original command string passed to
1951 * Tcl_ParseCommand. */
1952 const char *end; /* Points to the character just after the last
1953 * one in the command string. */
1954 Tcl_Interp *interp; /* Interpreter to use for error reporting, or
1955 * NULL. */
1956 const char *term; /* Points to character in string that
1957 * terminated most recent token. Filled in by
1958 * ParseTokens. If an error occurs, points to
1959 * beginning of region where the error
1960 * occurred (e.g. the open brace if the close
1961 * brace is missing). */
1962 #if TCL_MAJOR_VERSION < 9
1963 int incomplete;
1964 #endif
1965 Tcl_Token staticTokens[NUM_STATIC_TOKENS];
1966 /* Initial space for tokens for command. This
1967 * space should be large enough to accommodate
1968 * most commands; dynamic space is allocated
1969 * for very large commands that don't fit
1970 * here. */
1971 } Tcl_Parse;
1972
1973
1974 /*
1975 *----------------------------------------------------------------------------
1976 * The following structure represents a user-defined encoding. It collects
1977 * together all the functions that are used by the specific encoding.
1978 */
1979
1980 typedef struct Tcl_EncodingType {
1981 const char *encodingName; /* The name of the encoding, e.g. "euc-jp".
1982 * This name is the unique key for this
1983 * encoding type. */
1984 Tcl_EncodingConvertProc *toUtfProc;
1985 /* Function to convert from external encoding
1986 * into UTF-8. */
1987 Tcl_EncodingConvertProc *fromUtfProc;
1988 /* Function to convert from UTF-8 into
1989 * external encoding. */
1990 Tcl_FreeProc *freeProc; /* If non-NULL, function to call when this
1991 * encoding is deleted. */
1992 void *clientData; /* Arbitrary value associated with encoding
1993 * type. Passed to conversion functions. */
1994 Tcl_Size nullSize; /* Number of zero bytes that signify
1995 * end-of-string in this encoding. This number
1996 * is used to determine the source string
1997 * length when the srcLen argument is
1998 * negative. Must be 1, 2, or 4. */
1999 } Tcl_EncodingType;
2000
2001 /*
2002 * The following definitions are used as values for the conversion control
2003 * flags argument when converting text from one character set to another:
2004 *
2005 * TCL_ENCODING_START - Signifies that the source buffer is the first
2006 * block in a (potentially multi-block) input
2007 * stream. Tells the conversion function to reset
2008 * to an initial state and perform any
2009 * initialization that needs to occur before the
2010 * first byte is converted. If the source buffer
2011 * contains the entire input stream to be
2012 * converted, this flag should be set.
2013 * TCL_ENCODING_END - Signifies that the source buffer is the last
2014 * block in a (potentially multi-block) input
2015 * stream. Tells the conversion routine to
2016 * perform any finalization that needs to occur
2017 * after the last byte is converted and then to
2018 * reset to an initial state. If the source
2019 * buffer contains the entire input stream to be
2020 * converted, this flag should be set.
2021 * TCL_ENCODING_STOPONERROR - Not used any more.
2022 * TCL_ENCODING_NO_TERMINATE - If set, Tcl_ExternalToUtf does not append a
2023 * terminating NUL byte. Since it does not need
2024 * an extra byte for a terminating NUL, it fills
2025 * all dstLen bytes with encoded UTF-8 content if
2026 * needed. If clear, a byte is reserved in the
2027 * dst space for NUL termination, and a
2028 * terminating NUL is appended.
2029 * TCL_ENCODING_CHAR_LIMIT - If set and dstCharsPtr is not NULL, then
2030 * Tcl_ExternalToUtf takes the initial value of
2031 * *dstCharsPtr as a limit of the maximum number
2032 * of chars to produce in the encoded UTF-8
2033 * content. Otherwise, the number of chars
2034 * produced is controlled only by other limiting
2035 * factors.
2036 * TCL_ENCODING_PROFILE_* - Mutually exclusive encoding profile ids. Note
2037 * these are bit masks.
2038 *
2039 * NOTE: THESE BIT DEFINITIONS SHOULD NOT OVERLAP WITH INTERNAL USE BITS
2040 * DEFINED IN tclEncoding.c (ENCODING_INPUT et al). Be cognizant of this
2041 * when adding bits.
2042 */
2043
2044 #define TCL_ENCODING_START 0x01
2045 #define TCL_ENCODING_END 0x02
2046 #if TCL_MAJOR_VERSION > 8
2047 # define TCL_ENCODING_STOPONERROR 0x0 /* Not used any more */
2048 #else
2049 # define TCL_ENCODING_STOPONERROR 0x04
2050 #endif
2051 #define TCL_ENCODING_NO_TERMINATE 0x08
2052 #define TCL_ENCODING_CHAR_LIMIT 0x10
2053 /* Internal use bits, do not define bits in this space. See above comment */
2054 #define TCL_ENCODING_INTERNAL_USE_MASK 0xFF00
2055 /*
2056 * Reserve top byte for profile values (disjoint, not a mask). In case of
2057 * changes, ensure ENCODING_PROFILE_* macros in tclInt.h are modified if
2058 * necessary.
2059 */
2060 #define TCL_ENCODING_PROFILE_STRICT TCL_ENCODING_STOPONERROR
2061 #define TCL_ENCODING_PROFILE_TCL8 0x01000000
2062 #define TCL_ENCODING_PROFILE_REPLACE 0x02000000
2063
2064 /*
2065 * The following definitions are the error codes returned by the conversion
2066 * routines:
2067 *
2068 * TCL_OK - All characters were converted.
2069 * TCL_CONVERT_NOSPACE - The output buffer would not have been large
2070 * enough for all of the converted data; as many
2071 * characters as could fit were converted though.
2072 * TCL_CONVERT_MULTIBYTE - The last few bytes in the source string were
2073 * the beginning of a multibyte sequence, but
2074 * more bytes were needed to complete this
2075 * sequence. A subsequent call to the conversion
2076 * routine should pass the beginning of this
2077 * unconverted sequence plus additional bytes
2078 * from the source stream to properly convert the
2079 * formerly split-up multibyte sequence.
2080 * TCL_CONVERT_SYNTAX - The source stream contained an invalid
2081 * character sequence. This may occur if the
2082 * input stream has been damaged or if the input
2083 * encoding method was misidentified.
2084 * TCL_CONVERT_UNKNOWN - The source string contained a character that
2085 * could not be represented in the target
2086 * encoding.
2087 */
2088
2089 #define TCL_CONVERT_MULTIBYTE (-1)
2090 #define TCL_CONVERT_SYNTAX (-2)
2091 #define TCL_CONVERT_UNKNOWN (-3)
2092 #define TCL_CONVERT_NOSPACE (-4)
2093
2094 /*
2095 * The maximum number of bytes that are necessary to represent a single
2096 * Unicode character in UTF-8. The valid values are 3 and 4. If > 3,
2097 * then Tcl_UniChar must be 4-bytes in size (UCS-4) (the default). If == 3,
2098 * then Tcl_UniChar must be 2-bytes in size (UTF-16). Since Tcl 9.0, UCS-4
2099 * mode is the default and recommended mode.
2100 */
2101
2102 #ifndef TCL_UTF_MAX
2103 # if defined(BUILD_tcl) || TCL_MAJOR_VERSION > 8
2104 # define TCL_UTF_MAX 4
2105 # else
2106 # define TCL_UTF_MAX 3
2107 # endif
2108 #endif
2109
2110 /*
2111 * This represents a Unicode character. Any changes to this should also be
2112 * reflected in regcustom.h.
2113 */
2114
2115 #if TCL_UTF_MAX == 4 && TCL_MAJOR_VERSION > 8
2116 /*
2117 * int isn't 100% accurate as it should be a strict 4-byte value
2118 * (perhaps int32_t). ILP64/SILP64 systems may have troubles. The
2119 * size of this value must be reflected correctly in regcustom.h.
2120 */
2121 typedef int Tcl_UniChar;
2122 #elif TCL_UTF_MAX == 3 && !defined(BUILD_tcl)
2123 typedef unsigned short Tcl_UniChar;
2124 #else
2125 # error "This TCL_UTF_MAX value is not supported"
2126 #endif
2127
2128
2129 /*
2130 *----------------------------------------------------------------------------
2131 * TIP #59: The following structure is used in calls 'Tcl_RegisterConfig' to
2132 * provide the system with the embedded configuration data.
2133 */
2134
2135 typedef struct Tcl_Config {
2136 const char *key; /* Configuration key to register. ASCII
2137 * encoded, thus UTF-8. */
2138 const char *value; /* The value associated with the key. System
2139 * encoding. */
2140 } Tcl_Config;
2141
2142 /*
2143 *----------------------------------------------------------------------------
2144 * Flags for TIP#143 limits, detailing which limits are active in an
2145 * interpreter. Used for Tcl_{Add,Remove}LimitHandler type argument.
2146 */
2147
2148 #define TCL_LIMIT_COMMANDS 0x01
2149 #define TCL_LIMIT_TIME 0x02
2150
2151 /*
2152 * Structure containing information about a limit handler to be called when a
2153 * command- or time-limit is exceeded by an interpreter.
2154 */
2155
2156 typedef void (Tcl_LimitHandlerProc) (void *clientData, Tcl_Interp *interp);
2157 #if TCL_MAJOR_VERSION > 8
2158 #define Tcl_LimitHandlerDeleteProc Tcl_FreeProc
2159 #else
2160 typedef void (Tcl_LimitHandlerDeleteProc) (void *clientData);
2161 #endif
2162
2163 #if 0
2164 /*
2165 *----------------------------------------------------------------------------
2166 * We would like to provide an anonymous structure "mp_int" here, which is
2167 * compatible with libtommath's "mp_int", but without duplicating anything
2168 * from <tommath.h> or including <tommath.h> here. But the libtommath project
2169 * didn't honor our request. See: <https://github.com/libtom/libtommath/pull/473>
2170 *
2171 * That's why this part is commented out, and we are using (void *) in
2172 * various API's in stead of the more correct (mp_int *).
2173 */
2174
2175 #ifndef MP_INT_DECLARED
2176 #define MP_INT_DECLARED
2177 typedef struct mp_int mp_int;
2178 #endif
2179
2180 #endif
2181
2182 /*
2183 *----------------------------------------------------------------------------
2184 * Definitions needed for Tcl_ParseArgvObj routines.
2185 * Based on tkArgv.c.
2186 * Modifications from the original are copyright (c) Sam Bromley 2006
2187 */
2188
2189 typedef struct {
2190 int type; /* Indicates the option type; see below. */
2191 const char *keyStr; /* The key string that flags the option in the
2192 * argv array. */
2193 void *srcPtr; /* Value to be used in setting dst; usage
2194 * depends on type.*/
2195 void *dstPtr; /* Address of value to be modified; usage
2196 * depends on type.*/
2197 const char *helpStr; /* Documentation message describing this
2198 * option. */
2199 void *clientData; /* Word to pass to function callbacks. */
2200 } Tcl_ArgvInfo;
2201
2202 /*
2203 * Legal values for the type field of a Tcl_ArgInfo: see the user
2204 * documentation for details.
2205 */
2206
2207 #define TCL_ARGV_CONSTANT 15
2208 #define TCL_ARGV_INT 16
2209 #define TCL_ARGV_STRING 17
2210 #define TCL_ARGV_REST 18
2211 #define TCL_ARGV_FLOAT 19
2212 #define TCL_ARGV_FUNC 20
2213 #define TCL_ARGV_GENFUNC 21
2214 #define TCL_ARGV_HELP 22
2215 #define TCL_ARGV_END 23
2216
2217 /*
2218 * Types of callback functions for the TCL_ARGV_FUNC and TCL_ARGV_GENFUNC
2219 * argument types:
2220 */
2221
2222 typedef int (Tcl_ArgvFuncProc)(void *clientData, Tcl_Obj *objPtr,
2223 void *dstPtr);
2224 typedef Tcl_Size (Tcl_ArgvGenFuncProc)(void *clientData, Tcl_Interp *interp,
2225 Tcl_Size objc, Tcl_Obj *const *objv, void *dstPtr);
2226
2227 /*
2228 * Shorthand for commonly used argTable entries.
2229 */
2230
2231 #define TCL_ARGV_AUTO_HELP \
2232 {TCL_ARGV_HELP, "-help", NULL, NULL, \
2233 "Print summary of command-line options and abort", NULL}
2234 #define TCL_ARGV_AUTO_REST \
2235 {TCL_ARGV_REST, "--", NULL, NULL, \
2236 "Marks the end of the options", NULL}
2237 #define TCL_ARGV_TABLE_END \
2238 {TCL_ARGV_END, NULL, NULL, NULL, NULL, NULL}
2239
2240 /*
2241 *----------------------------------------------------------------------------
2242 * Definitions needed for Tcl_Zlib routines. [TIP #234]
2243 *
2244 * Constants for the format flags describing what sort of data format is
2245 * desired/expected for the Tcl_ZlibDeflate, Tcl_ZlibInflate and
2246 * Tcl_ZlibStreamInit functions.
2247 */
2248
2249 #define TCL_ZLIB_FORMAT_RAW 1
2250 #define TCL_ZLIB_FORMAT_ZLIB 2
2251 #define TCL_ZLIB_FORMAT_GZIP 4
2252 #define TCL_ZLIB_FORMAT_AUTO 8
2253
2254 /*
2255 * Constants that describe whether the stream is to operate in compressing or
2256 * decompressing mode.
2257 */
2258
2259 #define TCL_ZLIB_STREAM_DEFLATE 16
2260 #define TCL_ZLIB_STREAM_INFLATE 32
2261
2262 /*
2263 * Constants giving compression levels. Use of TCL_ZLIB_COMPRESS_DEFAULT is
2264 * recommended.
2265 */
2266
2267 #define TCL_ZLIB_COMPRESS_NONE 0
2268 #define TCL_ZLIB_COMPRESS_FAST 1
2269 #define TCL_ZLIB_COMPRESS_BEST 9
2270 #define TCL_ZLIB_COMPRESS_DEFAULT (-1)
2271
2272 /*
2273 * Constants for types of flushing, used with Tcl_ZlibFlush.
2274 */
2275
2276 #define TCL_ZLIB_NO_FLUSH 0
2277 #define TCL_ZLIB_FLUSH 2
2278 #define TCL_ZLIB_FULLFLUSH 3
2279 #define TCL_ZLIB_FINALIZE 4
2280
2281 /*
2282 *----------------------------------------------------------------------------
2283 * Definitions needed for the Tcl_LoadFile function. [TIP #416]
2284 */
2285
2286 #define TCL_LOAD_GLOBAL 1
2287 #define TCL_LOAD_LAZY 2
2288
2289 /*
2290 *----------------------------------------------------------------------------
2291 * Definitions needed for the Tcl_OpenTcpServerEx function. [TIP #456]
2292 */
2293 #define TCL_TCPSERVER_REUSEADDR (1<<0)
2294 #define TCL_TCPSERVER_REUSEPORT (1<<1)
2295
2296 /*
2297 * Constants for special Tcl_Size-typed values, see TIP #494
2298 */
2299
2300 #define TCL_IO_FAILURE ((Tcl_Size)-1)
2301 #define TCL_AUTO_LENGTH ((Tcl_Size)-1)
2302 #define TCL_INDEX_NONE ((Tcl_Size)-1)
2303
2304 /*
2305 *----------------------------------------------------------------------------
2306 * Single public declaration for NRE.
2307 */
2308
2309 typedef int (Tcl_NRPostProc) (void *data[], Tcl_Interp *interp,
2310 int result);
2311
2312 /*
2313 *----------------------------------------------------------------------------
2314 * The following constant is used to test for older versions of Tcl in the
2315 * stubs tables.
2316 */
2317
2318 #if TCL_MAJOR_VERSION > 8
2319 # define TCL_STUB_MAGIC ((int) 0xFCA3BACB + (int) sizeof(void *))
2320 #else
2321 # define TCL_STUB_MAGIC ((int) 0xFCA3BACF)
2322 #endif
2323
2324 /*
2325 * The following function is required to be defined in all stubs aware
2326 * extensions. The function is actually implemented in the stub library, not
2327 * the main Tcl library, although there is a trivial implementation in the
2328 * main library in case an extension is statically linked into an application.
2329 */
2330
2331 const char * Tcl_InitStubs(Tcl_Interp *interp, const char *version,
2332 int exact, int magic);
2333 const char * TclTomMathInitializeStubs(Tcl_Interp *interp,
2334 const char *version, int epoch, int revision);
2335 const char * TclInitStubTable(const char *version);
2336 void * TclStubCall(void *arg);
2337 #if defined(_WIN32)
2338 TCL_NORETURN void Tcl_ConsolePanic(const char *format, ...);
2339 #else
2340 # define Tcl_ConsolePanic ((Tcl_PanicProc *)NULL)
2341 #endif
2342
2343 #ifdef USE_TCL_STUBS
2344 #if TCL_MAJOR_VERSION < 9
2345 # define Tcl_InitStubs(interp, version, exact) \
2346 (Tcl_InitStubs)(interp, version, \
2347 (exact)|(TCL_MAJOR_VERSION<<8)|(0xFF<<16), \
2348 TCL_STUB_MAGIC)
2349 #else
2350 # define Tcl_InitStubs(interp, version, exact) \
2351 (Tcl_InitStubs)(interp, version, \
2352 (exact)|(TCL_MAJOR_VERSION<<8)|(TCL_MINOR_VERSION<<16), \
2353 TCL_STUB_MAGIC)
2354 #endif
2355 #else
2356 #if TCL_MAJOR_VERSION < 9
2357 # define Tcl_InitStubs(interp, version, exact) \
2358 Tcl_Panic(((void)interp, (void)version, \
2359 (void)exact, "Please define -DUSE_TCL_STUBS"))
2360 #else
2361 # define Tcl_InitStubs(interp, version, exact) \
2362 Tcl_PkgInitStubsCheck(interp, version, \
2363 (exact)|(TCL_MAJOR_VERSION<<8)|(TCL_MINOR_VERSION<<16))
2364 #endif
2365 #endif
2366
2367 /*
2368 * Public functions that are not accessible via the stubs table.
2369 * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171]
2370 */
2371
2372 #define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \
2373 ((Tcl_SetPanicProc(Tcl_ConsolePanic), Tcl_CreateInterp())))
2374 EXTERN TCL_NORETURN void Tcl_MainEx(Tcl_Size argc, char **argv,
2375 Tcl_AppInitProc *appInitProc, Tcl_Interp *interp);
2376 EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp,
2377 const char *version, int exact);
2378 EXTERN const char * Tcl_InitSubsystems(void);
2379 EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr);
2380 EXTERN const char * Tcl_FindExecutable(const char *argv0);
2381 EXTERN const char * Tcl_SetPreInitScript(const char *string);
2382 EXTERN const char * Tcl_SetPanicProc(
2383 Tcl_PanicProc *panicProc);
2384 EXTERN void Tcl_StaticLibrary(Tcl_Interp *interp,
2385 const char *prefix,
2386 Tcl_LibraryInitProc *initProc,
2387 Tcl_LibraryInitProc *safeInitProc);
2388 #ifndef TCL_NO_DEPRECATED
2389 # define Tcl_StaticPackage Tcl_StaticLibrary
2390 #endif
2391 EXTERN Tcl_ExitProc * Tcl_SetExitProc(Tcl_ExitProc *proc);
2392 #ifdef _WIN32
2393 EXTERN const char *TclZipfs_AppHook(int *argc, unsigned short ***argv);
2394 #else
2395 EXTERN const char *TclZipfs_AppHook(int *argc, char ***argv);
2396 #endif
2397 #if defined(_WIN32) && defined(UNICODE)
2398 #ifndef USE_TCL_STUBS
2399 # define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg)))
2400 #endif
2401 # define Tcl_MainEx Tcl_MainExW
2402 EXTERN TCL_NORETURN void Tcl_MainExW(Tcl_Size argc, unsigned short **argv,
2403 Tcl_AppInitProc *appInitProc, Tcl_Interp *interp);
2404 #endif
2405 #if defined(USE_TCL_STUBS) && (TCL_MAJOR_VERSION > 8)
2406 #define Tcl_SetPanicProc(panicProc) \
2407 TclInitStubTable(((const char *(*)(Tcl_PanicProc *))TclStubCall((void *)panicProc))(panicProc))
2408 #define Tcl_InitSubsystems() \
2409 TclInitStubTable(((const char *(*)(void))TclStubCall((void *)1))())
2410 #define Tcl_FindExecutable(argv0) \
2411 TclInitStubTable(((const char *(*)(const char *))TclStubCall((void *)2))(argv0))
2412 #define TclZipfs_AppHook(argcp, argvp) \
2413 TclInitStubTable(((const char *(*)(int *, void *))TclStubCall((void *)3))(argcp, argvp))
2414 #define Tcl_MainExW(argc, argv, appInitProc, interp) \
2415 (void)((const char *(*)(Tcl_Size, const void *, Tcl_AppInitProc *, Tcl_Interp *)) \
2416 TclStubCall((void *)4))(argc, argv, appInitProc, interp)
2417 #if !defined(_WIN32) || !defined(UNICODE)
2418 #define Tcl_MainEx(argc, argv, appInitProc, interp) \
2419 (void)((const char *(*)(Tcl_Size, const void *, Tcl_AppInitProc *, Tcl_Interp *)) \
2420 TclStubCall((void *)5))(argc, argv, appInitProc, interp)
2421 #endif
2422 #define Tcl_StaticLibrary(interp, pkgName, initProc, safeInitProc) \
2423 (void)((const char *(*)(Tcl_Interp *, const char *, Tcl_LibraryInitProc *, Tcl_LibraryInitProc *)) \
2424 TclStubCall((void *)6))(interp, pkgName, initProc, safeInitProc)
2425 #define Tcl_SetExitProc(proc) \
2426 ((Tcl_ExitProc *(*)(Tcl_ExitProc *))TclStubCall((void *)7))(proc)
2427 #define Tcl_GetMemoryInfo(dsPtr) \
2428 (void)((const char *(*)(Tcl_DString *))TclStubCall((void *)8))(dsPtr)
2429 #define Tcl_SetPreInitScript(string) \
2430 ((const char *(*)(const char *))TclStubCall((void *)9))(string)
2431 #endif
2432
2433
2434 /*
2435 *----------------------------------------------------------------------------
2436 * Include the public function declarations that are accessible via the stubs
2437 * table.
2438 */
2439
2440 #include "tclDecls.h"
2441
2442 /*
2443 * Include platform specific public function declarations that are accessible
2444 * via the stubs table. Make all TclOO symbols MODULE_SCOPE (which only
2445 * has effect on building it as a shared library). See ticket [3010352].
2446 */
2447
2448 #if defined(BUILD_tcl)
2449 # undef TCLAPI
2450 # define TCLAPI MODULE_SCOPE
2451 #endif
2452
2453 /*
2454 *----------------------------------------------------------------------------
2455 * The following declarations map ckalloc and ckfree to Tcl_Alloc and
2456 * Tcl_Free for use in Tcl-8.x-compatible extensions.
2457 */
2458
2459 #ifndef BUILD_tcl
2460 # define ckalloc Tcl_Alloc
2461 # define attemptckalloc Tcl_AttemptAlloc
2462 # ifdef _MSC_VER
2463 /* Silence invalid C4090 warnings */
2464 # define ckfree(a) Tcl_Free((void *)(a))
2465 # define ckrealloc(a,b) Tcl_Realloc((void *)(a),(b))
2466 # define attemptckrealloc(a,b) Tcl_AttemptRealloc((void *)(a),(b))
2467 # else
2468 # define ckfree Tcl_Free
2469 # define ckrealloc Tcl_Realloc
2470 # define attemptckrealloc Tcl_AttemptRealloc
2471 # endif
2472 #endif
2473
2474 #ifndef TCL_MEM_DEBUG
2475
2476 /*
2477 * If we are not using the debugging allocator, we should call the Tcl_Alloc,
2478 * et al. routines in order to guarantee that every module is using the same
2479 * memory allocator both inside and outside of the Tcl library.
2480 */
2481
2482 # undef Tcl_InitMemory
2483 # define Tcl_InitMemory(x)
2484 # undef Tcl_DumpActiveMemory
2485 # define Tcl_DumpActiveMemory(x)
2486 # undef Tcl_ValidateAllMemory
2487 # define Tcl_ValidateAllMemory(x,y)
2488
2489 #endif /* !TCL_MEM_DEBUG */
2490
2491 #ifdef TCL_MEM_DEBUG
2492 # undef Tcl_IncrRefCount
2493 # define Tcl_IncrRefCount(objPtr) \
2494 Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__)
2495 # undef Tcl_DecrRefCount
2496 # define Tcl_DecrRefCount(objPtr) \
2497 Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__)
2498 # undef Tcl_IsShared
2499 # define Tcl_IsShared(objPtr) \
2500 Tcl_DbIsShared(objPtr, __FILE__, __LINE__)
2501 /*
2502 * Free the Obj by effectively doing:
2503 *
2504 * Tcl_IncrRefCount(objPtr);
2505 * Tcl_DecrRefCount(objPtr);
2506 *
2507 * This will free the obj if there are no references to the obj.
2508 */
2509 # define Tcl_BounceRefCount(objPtr) \
2510 TclBounceRefCount(objPtr, __FILE__, __LINE__)
2511
2512 static inline void
2513 TclBounceRefCount(
2514 Tcl_Obj* objPtr,
2515 const char* fn,
2516 int line)
2517 {
2518 if (objPtr) {
2519 if ((objPtr)->refCount == 0) {
2520 Tcl_DbDecrRefCount(objPtr, fn, line);
2521 }
2522 }
2523 }
2524 #else
2525 # undef Tcl_IncrRefCount
2526 # define Tcl_IncrRefCount(objPtr) \
2527 ((void)++(objPtr)->refCount)
2528 /*
2529 * Use do/while0 idiom for optimum correctness without compiler warnings.
2530 * https://wiki.c2.com/?TrivialDoWhileLoop
2531 */
2532 # undef Tcl_DecrRefCount
2533 # define Tcl_DecrRefCount(objPtr) \
2534 do { \
2535 Tcl_Obj *_objPtr = (objPtr); \
2536 if (_objPtr->refCount-- <= 1) { \
2537 TclFreeObj(_objPtr); \
2538 } \
2539 } while(0)
2540 # undef Tcl_IsShared
2541 # define Tcl_IsShared(objPtr) \
2542 ((objPtr)->refCount > 1)
2543
2544 /*
2545 * Declare that obj will no longer be used or referenced.
2546 * This will free the obj if there are no references to the obj.
2547 */
2548 # define Tcl_BounceRefCount(objPtr) \
2549 TclBounceRefCount(objPtr);
2550
2551 static inline void
2552 TclBounceRefCount(
2553 Tcl_Obj* objPtr)
2554 {
2555 if (objPtr) {
2556 if ((objPtr)->refCount == 0) {
2557 Tcl_DecrRefCount(objPtr);
2558 }
2559 }
2560 }
2561
2562 #endif
2563
2564 /*
2565 * Macros and definitions that help to debug the use of Tcl objects. When
2566 * TCL_MEM_DEBUG is defined, the Tcl_New declarations are overridden to call
2567 * debugging versions of the object creation functions.
2568 */
2569
2570 #ifdef TCL_MEM_DEBUG
2571 # undef Tcl_NewBignumObj
2572 # define Tcl_NewBignumObj(val) \
2573 Tcl_DbNewBignumObj(val, __FILE__, __LINE__)
2574 # undef Tcl_NewBooleanObj
2575 # define Tcl_NewBooleanObj(val) \
2576 Tcl_DbNewWideIntObj((val)!=0, __FILE__, __LINE__)
2577 # undef Tcl_NewByteArrayObj
2578 # define Tcl_NewByteArrayObj(bytes, len) \
2579 Tcl_DbNewByteArrayObj(bytes, len, __FILE__, __LINE__)
2580 # undef Tcl_NewDoubleObj
2581 # define Tcl_NewDoubleObj(val) \
2582 Tcl_DbNewDoubleObj(val, __FILE__, __LINE__)
2583 # undef Tcl_NewListObj
2584 # define Tcl_NewListObj(objc, objv) \
2585 Tcl_DbNewListObj(objc, objv, __FILE__, __LINE__)
2586 # undef Tcl_NewObj
2587 # define Tcl_NewObj() \
2588 Tcl_DbNewObj(__FILE__, __LINE__)
2589 # undef Tcl_NewStringObj
2590 # define Tcl_NewStringObj(bytes, len) \
2591 Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__)
2592 # undef Tcl_NewWideIntObj
2593 # define Tcl_NewWideIntObj(val) \
2594 Tcl_DbNewWideIntObj(val, __FILE__, __LINE__)
2595 #endif /* TCL_MEM_DEBUG */
2596
2597 /*
2598 *----------------------------------------------------------------------------
2599 * Macros for clients to use to access fields of hash entries:
2600 */
2601
2602 #define Tcl_GetHashValue(h) ((h)->clientData)
2603 #define Tcl_SetHashValue(h, value) ((h)->clientData = (void *)(value))
2604 #define Tcl_GetHashKey(tablePtr, h) \
2605 ((void *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS || \
2606 (tablePtr)->keyType == TCL_CUSTOM_PTR_KEYS) \
2607 ? (h)->key.oneWordValue \
2608 : (h)->key.string))
2609
2610 /*
2611 * Macros to use for clients to use to invoke find and create functions for
2612 * hash tables:
2613 */
2614
2615 #define Tcl_FindHashEntry(tablePtr, key) \
2616 (*((tablePtr)->findProc))(tablePtr, (const char *)(key))
2617 #define Tcl_CreateHashEntry(tablePtr, key, newPtr) \
2618 (*((tablePtr)->createProc))(tablePtr, (const char *)(key), newPtr)
2619
2620 #endif /* RC_INVOKED */
2621
2622 /*
2623 * end block for C++
2624 */
2625
2626 #ifdef __cplusplus
2627 }
2628 #endif
2629
2630 #endif /* _TCL */
2631
2632
2633 /*
2634 * Local Variables:
2635 * mode: c
2636 * c-basic-offset: 4
2637 * fill-column: 78
2638 * End:
2639 */
A compat/tcl-9.0/generic/tclDecls.h
+4369
--- a/compat/tcl-9.0/generic/tclDecls.h
+++ b/compat/tcl-9.0/generic/tclDecls.h
@@ -0,0 +1,4369 @@
1
+/*
2
+ * tclDecls.h --
3
+ *
4
+ * Declarations of functions in the platform independent public Tcl API.
5
+ *
6
+ * Copyright (c) 1998-1999 by Scriptics Corporation.
7
+ *
8
+ * See the file "license.terms" for information on usage and redistribution
9
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
10
+ */
11
+
12
+#ifndef _TCLDECLS
13
+#define _TCLDECLS
14
+
15
+#include <stddef.h> /* for size_t */
16
+
17
+#undef TCL_STORAGE_CLASS
18
+#ifdef BUILD_tcl
19
+# define TCL_STORAGE_CLASS DLLEXPORT
20
+#else
21
+# ifdef USE_TCL_STUBS
22
+# define TCL_STORAGE_CLASS
23
+# else
24
+# define TCL_STORAGE_CLASS DLLIMPORT
25
+# endif
26
+#endif
27
+
28
+#if !defined(BUILD_tcl)
29
+# define TCL_DEPRECATED(msg) EXTERN TCL_DEPRECATED_API(msg)
30
+#elif defined(TCL_NO_DEPRECATED)
31
+# define TCL_DEPRECATED(msg) MODULE_SCOPE
32
+#else
33
+# define TCL_DEPRECATED(msg) EXTERN
34
+#endif
35
+
36
+
37
+/*
38
+ * WARNING: This file is automatically generated by the tools/genStubs.tcl
39
+ * script. Any modifications to the function declarations below should be made
40
+ * in the generic/tcl.decls script.
41
+ */
42
+
43
+/* !BEGIN!: Do not edit below this line. */
44
+
45
+#ifdef __cplusplus
46
+extern "C" {
47
+#endif
48
+
49
+/*
50
+ * Exported function declarations:
51
+ */
52
+
53
+/* 0 */
54
+EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp,
55
+ const char *name, const char *version,
56
+ const void *clientData);
57
+/* 1 */
58
+EXTERN const char * Tcl_PkgRequireEx(Tcl_Interp *interp,
59
+ const char *name, const char *version,
60
+ int exact, void *clientDataPtr);
61
+/* 2 */
62
+EXTERN TCL_NORETURN void Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
63
+/* 3 */
64
+EXTERN void * Tcl_Alloc(TCL_HASH_TYPE size);
65
+/* 4 */
66
+EXTERN void Tcl_Free(void *ptr);
67
+/* 5 */
68
+EXTERN void * Tcl_Realloc(void *ptr, TCL_HASH_TYPE size);
69
+/* 6 */
70
+EXTERN void * Tcl_DbCkalloc(TCL_HASH_TYPE size, const char *file,
71
+ int line);
72
+/* 7 */
73
+EXTERN void Tcl_DbCkfree(void *ptr, const char *file, int line);
74
+/* 8 */
75
+EXTERN void * Tcl_DbCkrealloc(void *ptr, TCL_HASH_TYPE size,
76
+ const char *file, int line);
77
+/* 9 */
78
+EXTERN void Tcl_CreateFileHandler(int fd, int mask,
79
+ Tcl_FileProc *proc, void *clientData);
80
+/* 10 */
81
+EXTERN void Tcl_DeleteFileHandler(int fd);
82
+/* 11 */
83
+EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr);
84
+/* 12 */
85
+EXTERN void Tcl_Sleep(int ms);
86
+/* 13 */
87
+EXTERN int Tcl_WaitForEvent(const Tcl_Time *timePtr);
88
+/* 14 */
89
+EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp,
90
+ Tcl_Obj *objPtr);
91
+/* 15 */
92
+EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...);
93
+/* 16 */
94
+EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes,
95
+ Tcl_Size length);
96
+/* 17 */
97
+EXTERN Tcl_Obj * Tcl_ConcatObj(Tcl_Size objc, Tcl_Obj *const objv[]);
98
+/* 18 */
99
+EXTERN int Tcl_ConvertToType(Tcl_Interp *interp,
100
+ Tcl_Obj *objPtr, const Tcl_ObjType *typePtr);
101
+/* 19 */
102
+EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file,
103
+ int line);
104
+/* 20 */
105
+EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file,
106
+ int line);
107
+/* 21 */
108
+EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file,
109
+ int line);
110
+/* Slot 22 is reserved */
111
+/* 23 */
112
+EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(const unsigned char *bytes,
113
+ Tcl_Size numBytes, const char *file,
114
+ int line);
115
+/* 24 */
116
+EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue,
117
+ const char *file, int line);
118
+/* 25 */
119
+EXTERN Tcl_Obj * Tcl_DbNewListObj(Tcl_Size objc, Tcl_Obj *const *objv,
120
+ const char *file, int line);
121
+/* Slot 26 is reserved */
122
+/* 27 */
123
+EXTERN Tcl_Obj * Tcl_DbNewObj(const char *file, int line);
124
+/* 28 */
125
+EXTERN Tcl_Obj * Tcl_DbNewStringObj(const char *bytes,
126
+ Tcl_Size length, const char *file, int line);
127
+/* 29 */
128
+EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr);
129
+/* 30 */
130
+EXTERN void TclFreeObj(Tcl_Obj *objPtr);
131
+/* 31 */
132
+EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, const char *src,
133
+ int *intPtr);
134
+/* 32 */
135
+EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp,
136
+ Tcl_Obj *objPtr, int *intPtr);
137
+/* 33 */
138
+EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr,
139
+ Tcl_Size *numBytesPtr);
140
+/* 34 */
141
+EXTERN int Tcl_GetDouble(Tcl_Interp *interp, const char *src,
142
+ double *doublePtr);
143
+/* 35 */
144
+EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp,
145
+ Tcl_Obj *objPtr, double *doublePtr);
146
+/* Slot 36 is reserved */
147
+/* 37 */
148
+EXTERN int Tcl_GetInt(Tcl_Interp *interp, const char *src,
149
+ int *intPtr);
150
+/* 38 */
151
+EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp,
152
+ Tcl_Obj *objPtr, int *intPtr);
153
+/* 39 */
154
+EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp,
155
+ Tcl_Obj *objPtr, long *longPtr);
156
+/* 40 */
157
+EXTERN const Tcl_ObjType * Tcl_GetObjType(const char *typeName);
158
+/* 41 */
159
+EXTERN char * TclGetStringFromObj(Tcl_Obj *objPtr, void *lengthPtr);
160
+/* 42 */
161
+EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr);
162
+/* 43 */
163
+EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp,
164
+ Tcl_Obj *listPtr, Tcl_Obj *elemListPtr);
165
+/* 44 */
166
+EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp,
167
+ Tcl_Obj *listPtr, Tcl_Obj *objPtr);
168
+/* 45 */
169
+EXTERN int TclListObjGetElements(Tcl_Interp *interp,
170
+ Tcl_Obj *listPtr, void *objcPtr,
171
+ Tcl_Obj ***objvPtr);
172
+/* 46 */
173
+EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp,
174
+ Tcl_Obj *listPtr, Tcl_Size index,
175
+ Tcl_Obj **objPtrPtr);
176
+/* 47 */
177
+EXTERN int TclListObjLength(Tcl_Interp *interp,
178
+ Tcl_Obj *listPtr, void *lengthPtr);
179
+/* 48 */
180
+EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp,
181
+ Tcl_Obj *listPtr, Tcl_Size first,
182
+ Tcl_Size count, Tcl_Size objc,
183
+ Tcl_Obj *const objv[]);
184
+/* Slot 49 is reserved */
185
+/* 50 */
186
+EXTERN Tcl_Obj * Tcl_NewByteArrayObj(const unsigned char *bytes,
187
+ Tcl_Size numBytes);
188
+/* 51 */
189
+EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue);
190
+/* Slot 52 is reserved */
191
+/* 53 */
192
+EXTERN Tcl_Obj * Tcl_NewListObj(Tcl_Size objc, Tcl_Obj *const objv[]);
193
+/* Slot 54 is reserved */
194
+/* 55 */
195
+EXTERN Tcl_Obj * Tcl_NewObj(void);
196
+/* 56 */
197
+EXTERN Tcl_Obj * Tcl_NewStringObj(const char *bytes, Tcl_Size length);
198
+/* Slot 57 is reserved */
199
+/* 58 */
200
+EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr,
201
+ Tcl_Size numBytes);
202
+/* 59 */
203
+EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr,
204
+ const unsigned char *bytes,
205
+ Tcl_Size numBytes);
206
+/* 60 */
207
+EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue);
208
+/* Slot 61 is reserved */
209
+/* 62 */
210
+EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, Tcl_Size objc,
211
+ Tcl_Obj *const objv[]);
212
+/* Slot 63 is reserved */
213
+/* 64 */
214
+EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, Tcl_Size length);
215
+/* 65 */
216
+EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes,
217
+ Tcl_Size length);
218
+/* Slot 66 is reserved */
219
+/* Slot 67 is reserved */
220
+/* 68 */
221
+EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp);
222
+/* 69 */
223
+EXTERN void Tcl_AppendElement(Tcl_Interp *interp,
224
+ const char *element);
225
+/* 70 */
226
+EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...);
227
+/* 71 */
228
+EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc,
229
+ void *clientData);
230
+/* 72 */
231
+EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async);
232
+/* 73 */
233
+EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code);
234
+/* 74 */
235
+EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async);
236
+/* 75 */
237
+EXTERN int Tcl_AsyncReady(void);
238
+/* Slot 76 is reserved */
239
+/* Slot 77 is reserved */
240
+/* 78 */
241
+EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp,
242
+ const char *optionName,
243
+ const char *optionList);
244
+/* 79 */
245
+EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp,
246
+ Tcl_InterpDeleteProc *proc, void *clientData);
247
+/* 80 */
248
+EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc,
249
+ void *clientData);
250
+/* 81 */
251
+EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan);
252
+/* 82 */
253
+EXTERN int Tcl_CommandComplete(const char *cmd);
254
+/* 83 */
255
+EXTERN char * Tcl_Concat(Tcl_Size argc, const char *const *argv);
256
+/* 84 */
257
+EXTERN Tcl_Size Tcl_ConvertElement(const char *src, char *dst,
258
+ int flags);
259
+/* 85 */
260
+EXTERN Tcl_Size Tcl_ConvertCountedElement(const char *src,
261
+ Tcl_Size length, char *dst, int flags);
262
+/* 86 */
263
+EXTERN int Tcl_CreateAlias(Tcl_Interp *childInterp,
264
+ const char *childCmd, Tcl_Interp *target,
265
+ const char *targetCmd, Tcl_Size argc,
266
+ const char *const *argv);
267
+/* 87 */
268
+EXTERN int Tcl_CreateAliasObj(Tcl_Interp *childInterp,
269
+ const char *childCmd, Tcl_Interp *target,
270
+ const char *targetCmd, Tcl_Size objc,
271
+ Tcl_Obj *const objv[]);
272
+/* 88 */
273
+EXTERN Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr,
274
+ const char *chanName, void *instanceData,
275
+ int mask);
276
+/* 89 */
277
+EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask,
278
+ Tcl_ChannelProc *proc, void *clientData);
279
+/* 90 */
280
+EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan,
281
+ Tcl_CloseProc *proc, void *clientData);
282
+/* 91 */
283
+EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp,
284
+ const char *cmdName, Tcl_CmdProc *proc,
285
+ void *clientData,
286
+ Tcl_CmdDeleteProc *deleteProc);
287
+/* 92 */
288
+EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc,
289
+ Tcl_EventCheckProc *checkProc,
290
+ void *clientData);
291
+/* 93 */
292
+EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc,
293
+ void *clientData);
294
+/* 94 */
295
+EXTERN Tcl_Interp * Tcl_CreateInterp(void);
296
+/* Slot 95 is reserved */
297
+/* 96 */
298
+EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp,
299
+ const char *cmdName, Tcl_ObjCmdProc *proc,
300
+ void *clientData,
301
+ Tcl_CmdDeleteProc *deleteProc);
302
+/* 97 */
303
+EXTERN Tcl_Interp * Tcl_CreateChild(Tcl_Interp *interp, const char *name,
304
+ int isSafe);
305
+/* 98 */
306
+EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds,
307
+ Tcl_TimerProc *proc, void *clientData);
308
+/* 99 */
309
+EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, Tcl_Size level,
310
+ Tcl_CmdTraceProc *proc, void *clientData);
311
+/* 100 */
312
+EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp,
313
+ const char *name);
314
+/* 101 */
315
+EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan,
316
+ Tcl_ChannelProc *proc, void *clientData);
317
+/* 102 */
318
+EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan,
319
+ Tcl_CloseProc *proc, void *clientData);
320
+/* 103 */
321
+EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp,
322
+ const char *cmdName);
323
+/* 104 */
324
+EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp,
325
+ Tcl_Command command);
326
+/* 105 */
327
+EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc,
328
+ void *clientData);
329
+/* 106 */
330
+EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc,
331
+ Tcl_EventCheckProc *checkProc,
332
+ void *clientData);
333
+/* 107 */
334
+EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc,
335
+ void *clientData);
336
+/* 108 */
337
+EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr);
338
+/* 109 */
339
+EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr);
340
+/* 110 */
341
+EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp);
342
+/* 111 */
343
+EXTERN void Tcl_DetachPids(Tcl_Size numPids, Tcl_Pid *pidPtr);
344
+/* 112 */
345
+EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token);
346
+/* 113 */
347
+EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace);
348
+/* 114 */
349
+EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp,
350
+ Tcl_InterpDeleteProc *proc, void *clientData);
351
+/* 115 */
352
+EXTERN int Tcl_DoOneEvent(int flags);
353
+/* 116 */
354
+EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc, void *clientData);
355
+/* 117 */
356
+EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr,
357
+ const char *bytes, Tcl_Size length);
358
+/* 118 */
359
+EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr,
360
+ const char *element);
361
+/* 119 */
362
+EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr);
363
+/* 120 */
364
+EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr);
365
+/* 121 */
366
+EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp,
367
+ Tcl_DString *dsPtr);
368
+/* 122 */
369
+EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr);
370
+/* 123 */
371
+EXTERN void Tcl_DStringResult(Tcl_Interp *interp,
372
+ Tcl_DString *dsPtr);
373
+/* 124 */
374
+EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr,
375
+ Tcl_Size length);
376
+/* 125 */
377
+EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr);
378
+/* 126 */
379
+EXTERN int Tcl_Eof(Tcl_Channel chan);
380
+/* 127 */
381
+EXTERN const char * Tcl_ErrnoId(void);
382
+/* 128 */
383
+EXTERN const char * Tcl_ErrnoMsg(int err);
384
+/* Slot 129 is reserved */
385
+/* 130 */
386
+EXTERN int Tcl_EvalFile(Tcl_Interp *interp,
387
+ const char *fileName);
388
+/* Slot 131 is reserved */
389
+/* 132 */
390
+EXTERN void Tcl_EventuallyFree(void *clientData,
391
+ Tcl_FreeProc *freeProc);
392
+/* 133 */
393
+EXTERN TCL_NORETURN void Tcl_Exit(int status);
394
+/* 134 */
395
+EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp,
396
+ const char *hiddenCmdToken,
397
+ const char *cmdName);
398
+/* 135 */
399
+EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr,
400
+ int *ptr);
401
+/* 136 */
402
+EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp,
403
+ Tcl_Obj *objPtr, int *ptr);
404
+/* 137 */
405
+EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, const char *expr,
406
+ double *ptr);
407
+/* 138 */
408
+EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp,
409
+ Tcl_Obj *objPtr, double *ptr);
410
+/* 139 */
411
+EXTERN int Tcl_ExprLong(Tcl_Interp *interp, const char *expr,
412
+ long *ptr);
413
+/* 140 */
414
+EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
415
+ long *ptr);
416
+/* 141 */
417
+EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
418
+ Tcl_Obj **resultPtrPtr);
419
+/* 142 */
420
+EXTERN int Tcl_ExprString(Tcl_Interp *interp, const char *expr);
421
+/* 143 */
422
+EXTERN void Tcl_Finalize(void);
423
+/* Slot 144 is reserved */
424
+/* 145 */
425
+EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr,
426
+ Tcl_HashSearch *searchPtr);
427
+/* 146 */
428
+EXTERN int Tcl_Flush(Tcl_Channel chan);
429
+/* Slot 147 is reserved */
430
+/* Slot 148 is reserved */
431
+/* 149 */
432
+EXTERN int TclGetAliasObj(Tcl_Interp *interp,
433
+ const char *childCmd,
434
+ Tcl_Interp **targetInterpPtr,
435
+ const char **targetCmdPtr, int *objcPtr,
436
+ Tcl_Obj ***objvPtr);
437
+/* 150 */
438
+EXTERN void * Tcl_GetAssocData(Tcl_Interp *interp,
439
+ const char *name,
440
+ Tcl_InterpDeleteProc **procPtr);
441
+/* 151 */
442
+EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp,
443
+ const char *chanName, int *modePtr);
444
+/* 152 */
445
+EXTERN Tcl_Size Tcl_GetChannelBufferSize(Tcl_Channel chan);
446
+/* 153 */
447
+EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction,
448
+ void **handlePtr);
449
+/* 154 */
450
+EXTERN void * Tcl_GetChannelInstanceData(Tcl_Channel chan);
451
+/* 155 */
452
+EXTERN int Tcl_GetChannelMode(Tcl_Channel chan);
453
+/* 156 */
454
+EXTERN const char * Tcl_GetChannelName(Tcl_Channel chan);
455
+/* 157 */
456
+EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp,
457
+ Tcl_Channel chan, const char *optionName,
458
+ Tcl_DString *dsPtr);
459
+/* 158 */
460
+EXTERN const Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan);
461
+/* 159 */
462
+EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp,
463
+ const char *cmdName, Tcl_CmdInfo *infoPtr);
464
+/* 160 */
465
+EXTERN const char * Tcl_GetCommandName(Tcl_Interp *interp,
466
+ Tcl_Command command);
467
+/* 161 */
468
+EXTERN int Tcl_GetErrno(void);
469
+/* 162 */
470
+EXTERN const char * Tcl_GetHostName(void);
471
+/* 163 */
472
+EXTERN int Tcl_GetInterpPath(Tcl_Interp *interp,
473
+ Tcl_Interp *childInterp);
474
+/* 164 */
475
+EXTERN Tcl_Interp * Tcl_GetParent(Tcl_Interp *interp);
476
+/* 165 */
477
+EXTERN const char * Tcl_GetNameOfExecutable(void);
478
+/* 166 */
479
+EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp);
480
+/* 167 */
481
+EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
482
+ const char *chanID, int forWriting,
483
+ int checkUsage, void **filePtr);
484
+/* 168 */
485
+EXTERN Tcl_PathType Tcl_GetPathType(const char *path);
486
+/* 169 */
487
+EXTERN Tcl_Size Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr);
488
+/* 170 */
489
+EXTERN Tcl_Size Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr);
490
+/* 171 */
491
+EXTERN int Tcl_GetServiceMode(void);
492
+/* 172 */
493
+EXTERN Tcl_Interp * Tcl_GetChild(Tcl_Interp *interp, const char *name);
494
+/* 173 */
495
+EXTERN Tcl_Channel Tcl_GetStdChannel(int type);
496
+/* Slot 174 is reserved */
497
+/* Slot 175 is reserved */
498
+/* 176 */
499
+EXTERN const char * Tcl_GetVar2(Tcl_Interp *interp, const char *part1,
500
+ const char *part2, int flags);
501
+/* Slot 177 is reserved */
502
+/* Slot 178 is reserved */
503
+/* 179 */
504
+EXTERN int Tcl_HideCommand(Tcl_Interp *interp,
505
+ const char *cmdName,
506
+ const char *hiddenCmdToken);
507
+/* 180 */
508
+EXTERN int Tcl_Init(Tcl_Interp *interp);
509
+/* 181 */
510
+EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr,
511
+ int keyType);
512
+/* 182 */
513
+EXTERN int Tcl_InputBlocked(Tcl_Channel chan);
514
+/* 183 */
515
+EXTERN int Tcl_InputBuffered(Tcl_Channel chan);
516
+/* 184 */
517
+EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp);
518
+/* 185 */
519
+EXTERN int Tcl_IsSafe(Tcl_Interp *interp);
520
+/* 186 */
521
+EXTERN char * Tcl_JoinPath(Tcl_Size argc, const char *const *argv,
522
+ Tcl_DString *resultPtr);
523
+/* 187 */
524
+EXTERN int Tcl_LinkVar(Tcl_Interp *interp, const char *varName,
525
+ void *addr, int type);
526
+/* Slot 188 is reserved */
527
+/* 189 */
528
+EXTERN Tcl_Channel Tcl_MakeFileChannel(void *handle, int mode);
529
+/* Slot 190 is reserved */
530
+/* 191 */
531
+EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(void *tcpSocket);
532
+/* 192 */
533
+EXTERN char * Tcl_Merge(Tcl_Size argc, const char *const *argv);
534
+/* 193 */
535
+EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr);
536
+/* 194 */
537
+EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask);
538
+/* 195 */
539
+EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
540
+ Tcl_Obj *part2Ptr, int flags);
541
+/* 196 */
542
+EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
543
+ Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
544
+ int flags);
545
+/* 197 */
546
+EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp,
547
+ Tcl_Size argc, const char **argv, int flags);
548
+/* 198 */
549
+EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp,
550
+ const char *fileName, const char *modeString,
551
+ int permissions);
552
+/* 199 */
553
+EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port,
554
+ const char *address, const char *myaddr,
555
+ int myport, int flags);
556
+/* 200 */
557
+EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port,
558
+ const char *host,
559
+ Tcl_TcpAcceptProc *acceptProc,
560
+ void *callbackData);
561
+/* 201 */
562
+EXTERN void Tcl_Preserve(void *data);
563
+/* 202 */
564
+EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value,
565
+ char *dst);
566
+/* 203 */
567
+EXTERN int Tcl_PutEnv(const char *assignment);
568
+/* 204 */
569
+EXTERN const char * Tcl_PosixError(Tcl_Interp *interp);
570
+/* 205 */
571
+EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr, int position);
572
+/* 206 */
573
+EXTERN Tcl_Size Tcl_Read(Tcl_Channel chan, char *bufPtr,
574
+ Tcl_Size toRead);
575
+/* 207 */
576
+EXTERN void Tcl_ReapDetachedProcs(void);
577
+/* 208 */
578
+EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp,
579
+ const char *cmd, int flags);
580
+/* 209 */
581
+EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp,
582
+ Tcl_Obj *cmdPtr, int flags);
583
+/* 210 */
584
+EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp,
585
+ Tcl_Channel chan);
586
+/* 211 */
587
+EXTERN void Tcl_RegisterObjType(const Tcl_ObjType *typePtr);
588
+/* 212 */
589
+EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp,
590
+ const char *pattern);
591
+/* 213 */
592
+EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp,
593
+ const char *text, const char *start);
594
+/* 214 */
595
+EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, const char *text,
596
+ const char *pattern);
597
+/* 215 */
598
+EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, Tcl_Size index,
599
+ const char **startPtr, const char **endPtr);
600
+/* 216 */
601
+EXTERN void Tcl_Release(void *clientData);
602
+/* 217 */
603
+EXTERN void Tcl_ResetResult(Tcl_Interp *interp);
604
+/* 218 */
605
+EXTERN Tcl_Size Tcl_ScanElement(const char *src, int *flagPtr);
606
+/* 219 */
607
+EXTERN Tcl_Size Tcl_ScanCountedElement(const char *src,
608
+ Tcl_Size length, int *flagPtr);
609
+/* Slot 220 is reserved */
610
+/* 221 */
611
+EXTERN int Tcl_ServiceAll(void);
612
+/* 222 */
613
+EXTERN int Tcl_ServiceEvent(int flags);
614
+/* 223 */
615
+EXTERN void Tcl_SetAssocData(Tcl_Interp *interp,
616
+ const char *name, Tcl_InterpDeleteProc *proc,
617
+ void *clientData);
618
+/* 224 */
619
+EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan,
620
+ Tcl_Size sz);
621
+/* 225 */
622
+EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp,
623
+ Tcl_Channel chan, const char *optionName,
624
+ const char *newValue);
625
+/* 226 */
626
+EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp,
627
+ const char *cmdName,
628
+ const Tcl_CmdInfo *infoPtr);
629
+/* 227 */
630
+EXTERN void Tcl_SetErrno(int err);
631
+/* 228 */
632
+EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...);
633
+/* 229 */
634
+EXTERN void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr);
635
+/* Slot 230 is reserved */
636
+/* 231 */
637
+EXTERN Tcl_Size Tcl_SetRecursionLimit(Tcl_Interp *interp,
638
+ Tcl_Size depth);
639
+/* Slot 232 is reserved */
640
+/* 233 */
641
+EXTERN int Tcl_SetServiceMode(int mode);
642
+/* 234 */
643
+EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp,
644
+ Tcl_Obj *errorObjPtr);
645
+/* 235 */
646
+EXTERN void Tcl_SetObjResult(Tcl_Interp *interp,
647
+ Tcl_Obj *resultObjPtr);
648
+/* 236 */
649
+EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type);
650
+/* Slot 237 is reserved */
651
+/* 238 */
652
+EXTERN const char * Tcl_SetVar2(Tcl_Interp *interp, const char *part1,
653
+ const char *part2, const char *newValue,
654
+ int flags);
655
+/* 239 */
656
+EXTERN const char * Tcl_SignalId(int sig);
657
+/* 240 */
658
+EXTERN const char * Tcl_SignalMsg(int sig);
659
+/* 241 */
660
+EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp);
661
+/* 242 */
662
+EXTERN int TclSplitList(Tcl_Interp *interp, const char *listStr,
663
+ void *argcPtr, const char ***argvPtr);
664
+/* 243 */
665
+EXTERN void TclSplitPath(const char *path, void *argcPtr,
666
+ const char ***argvPtr);
667
+/* Slot 244 is reserved */
668
+/* Slot 245 is reserved */
669
+/* Slot 246 is reserved */
670
+/* Slot 247 is reserved */
671
+/* 248 */
672
+EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, const char *part1,
673
+ const char *part2, int flags,
674
+ Tcl_VarTraceProc *proc, void *clientData);
675
+/* 249 */
676
+EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp,
677
+ const char *name, Tcl_DString *bufferPtr);
678
+/* 250 */
679
+EXTERN Tcl_Size Tcl_Ungets(Tcl_Channel chan, const char *str,
680
+ Tcl_Size len, int atHead);
681
+/* 251 */
682
+EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp,
683
+ const char *varName);
684
+/* 252 */
685
+EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp,
686
+ Tcl_Channel chan);
687
+/* Slot 253 is reserved */
688
+/* 254 */
689
+EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1,
690
+ const char *part2, int flags);
691
+/* Slot 255 is reserved */
692
+/* 256 */
693
+EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp,
694
+ const char *part1, const char *part2,
695
+ int flags, Tcl_VarTraceProc *proc,
696
+ void *clientData);
697
+/* 257 */
698
+EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp,
699
+ const char *varName);
700
+/* Slot 258 is reserved */
701
+/* 259 */
702
+EXTERN int Tcl_UpVar2(Tcl_Interp *interp, const char *frameName,
703
+ const char *part1, const char *part2,
704
+ const char *localName, int flags);
705
+/* 260 */
706
+EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...);
707
+/* Slot 261 is reserved */
708
+/* 262 */
709
+EXTERN void * Tcl_VarTraceInfo2(Tcl_Interp *interp,
710
+ const char *part1, const char *part2,
711
+ int flags, Tcl_VarTraceProc *procPtr,
712
+ void *prevClientData);
713
+/* 263 */
714
+EXTERN Tcl_Size Tcl_Write(Tcl_Channel chan, const char *s,
715
+ Tcl_Size slen);
716
+/* 264 */
717
+EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, Tcl_Size objc,
718
+ Tcl_Obj *const objv[], const char *message);
719
+/* 265 */
720
+EXTERN int Tcl_DumpActiveMemory(const char *fileName);
721
+/* 266 */
722
+EXTERN void Tcl_ValidateAllMemory(const char *file, int line);
723
+/* Slot 267 is reserved */
724
+/* Slot 268 is reserved */
725
+/* 269 */
726
+EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr);
727
+/* 270 */
728
+EXTERN const char * Tcl_ParseVar(Tcl_Interp *interp, const char *start,
729
+ const char **termPtr);
730
+/* Slot 271 is reserved */
731
+/* 272 */
732
+EXTERN const char * Tcl_PkgPresentEx(Tcl_Interp *interp,
733
+ const char *name, const char *version,
734
+ int exact, void *clientDataPtr);
735
+/* Slot 273 is reserved */
736
+/* Slot 274 is reserved */
737
+/* Slot 275 is reserved */
738
+/* Slot 276 is reserved */
739
+/* 277 */
740
+EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options);
741
+/* Slot 278 is reserved */
742
+/* 279 */
743
+EXTERN void Tcl_GetVersion(int *major, int *minor,
744
+ int *patchLevel, int *type);
745
+/* 280 */
746
+EXTERN void Tcl_InitMemory(Tcl_Interp *interp);
747
+/* 281 */
748
+EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp,
749
+ const Tcl_ChannelType *typePtr,
750
+ void *instanceData, int mask,
751
+ Tcl_Channel prevChan);
752
+/* 282 */
753
+EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp,
754
+ Tcl_Channel chan);
755
+/* 283 */
756
+EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan);
757
+/* 284 */
758
+EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc);
759
+/* 285 */
760
+EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp,
761
+ const char *childCmd,
762
+ Tcl_Interp **targetInterpPtr,
763
+ const char **targetCmdPtr, Tcl_Size *objcPtr,
764
+ Tcl_Obj ***objvPtr);
765
+/* 286 */
766
+EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr,
767
+ Tcl_Obj *appendObjPtr);
768
+/* 287 */
769
+EXTERN Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr);
770
+/* 288 */
771
+EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc,
772
+ void *clientData);
773
+/* 289 */
774
+EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc,
775
+ void *clientData);
776
+/* Slot 290 is reserved */
777
+/* 291 */
778
+EXTERN int Tcl_EvalEx(Tcl_Interp *interp, const char *script,
779
+ Tcl_Size numBytes, int flags);
780
+/* 292 */
781
+EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, Tcl_Size objc,
782
+ Tcl_Obj *const objv[], int flags);
783
+/* 293 */
784
+EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
785
+ int flags);
786
+/* 294 */
787
+EXTERN TCL_NORETURN void Tcl_ExitThread(int status);
788
+/* 295 */
789
+EXTERN int Tcl_ExternalToUtf(Tcl_Interp *interp,
790
+ Tcl_Encoding encoding, const char *src,
791
+ Tcl_Size srcLen, int flags,
792
+ Tcl_EncodingState *statePtr, char *dst,
793
+ Tcl_Size dstLen, int *srcReadPtr,
794
+ int *dstWrotePtr, int *dstCharsPtr);
795
+/* 296 */
796
+EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding,
797
+ const char *src, Tcl_Size srcLen,
798
+ Tcl_DString *dsPtr);
799
+/* 297 */
800
+EXTERN void Tcl_FinalizeThread(void);
801
+/* 298 */
802
+EXTERN void Tcl_FinalizeNotifier(void *clientData);
803
+/* 299 */
804
+EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding);
805
+/* 300 */
806
+EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void);
807
+/* 301 */
808
+EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, const char *name);
809
+/* 302 */
810
+EXTERN const char * Tcl_GetEncodingName(Tcl_Encoding encoding);
811
+/* 303 */
812
+EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp);
813
+/* 304 */
814
+EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp,
815
+ Tcl_Obj *objPtr, const void *tablePtr,
816
+ Tcl_Size offset, const char *msg, int flags,
817
+ void *indexPtr);
818
+/* 305 */
819
+EXTERN void * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr,
820
+ Tcl_Size size);
821
+/* 306 */
822
+EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1,
823
+ const char *part2, int flags);
824
+/* 307 */
825
+EXTERN void * Tcl_InitNotifier(void);
826
+/* 308 */
827
+EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr);
828
+/* 309 */
829
+EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr);
830
+/* 310 */
831
+EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr);
832
+/* 311 */
833
+EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr,
834
+ Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr);
835
+/* 312 */
836
+EXTERN Tcl_Size TclNumUtfChars(const char *src, Tcl_Size length);
837
+/* 313 */
838
+EXTERN Tcl_Size Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr,
839
+ Tcl_Size charsToRead, int appendFlag);
840
+/* Slot 314 is reserved */
841
+/* Slot 315 is reserved */
842
+/* 316 */
843
+EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp,
844
+ const char *name);
845
+/* 317 */
846
+EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1,
847
+ const char *part2, Tcl_Obj *newValuePtr,
848
+ int flags);
849
+/* 318 */
850
+EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId);
851
+/* 319 */
852
+EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId,
853
+ Tcl_Event *evPtr, int position);
854
+/* 320 */
855
+EXTERN int Tcl_UniCharAtIndex(const char *src, Tcl_Size index);
856
+/* 321 */
857
+EXTERN int Tcl_UniCharToLower(int ch);
858
+/* 322 */
859
+EXTERN int Tcl_UniCharToTitle(int ch);
860
+/* 323 */
861
+EXTERN int Tcl_UniCharToUpper(int ch);
862
+/* 324 */
863
+EXTERN Tcl_Size Tcl_UniCharToUtf(int ch, char *buf);
864
+/* 325 */
865
+EXTERN const char * TclUtfAtIndex(const char *src, Tcl_Size index);
866
+/* 326 */
867
+EXTERN int TclUtfCharComplete(const char *src, Tcl_Size length);
868
+/* 327 */
869
+EXTERN Tcl_Size Tcl_UtfBackslash(const char *src, int *readPtr,
870
+ char *dst);
871
+/* 328 */
872
+EXTERN const char * Tcl_UtfFindFirst(const char *src, int ch);
873
+/* 329 */
874
+EXTERN const char * Tcl_UtfFindLast(const char *src, int ch);
875
+/* 330 */
876
+EXTERN const char * TclUtfNext(const char *src);
877
+/* 331 */
878
+EXTERN const char * TclUtfPrev(const char *src, const char *start);
879
+/* 332 */
880
+EXTERN int Tcl_UtfToExternal(Tcl_Interp *interp,
881
+ Tcl_Encoding encoding, const char *src,
882
+ Tcl_Size srcLen, int flags,
883
+ Tcl_EncodingState *statePtr, char *dst,
884
+ Tcl_Size dstLen, int *srcReadPtr,
885
+ int *dstWrotePtr, int *dstCharsPtr);
886
+/* 333 */
887
+EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding,
888
+ const char *src, Tcl_Size srcLen,
889
+ Tcl_DString *dsPtr);
890
+/* 334 */
891
+EXTERN Tcl_Size Tcl_UtfToLower(char *src);
892
+/* 335 */
893
+EXTERN Tcl_Size Tcl_UtfToTitle(char *src);
894
+/* 336 */
895
+EXTERN Tcl_Size Tcl_UtfToChar16(const char *src,
896
+ unsigned short *chPtr);
897
+/* 337 */
898
+EXTERN Tcl_Size Tcl_UtfToUpper(char *src);
899
+/* 338 */
900
+EXTERN Tcl_Size Tcl_WriteChars(Tcl_Channel chan, const char *src,
901
+ Tcl_Size srcLen);
902
+/* 339 */
903
+EXTERN Tcl_Size Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr);
904
+/* 340 */
905
+EXTERN char * Tcl_GetString(Tcl_Obj *objPtr);
906
+/* Slot 341 is reserved */
907
+/* Slot 342 is reserved */
908
+/* 343 */
909
+EXTERN void Tcl_AlertNotifier(void *clientData);
910
+/* 344 */
911
+EXTERN void Tcl_ServiceModeHook(int mode);
912
+/* 345 */
913
+EXTERN int Tcl_UniCharIsAlnum(int ch);
914
+/* 346 */
915
+EXTERN int Tcl_UniCharIsAlpha(int ch);
916
+/* 347 */
917
+EXTERN int Tcl_UniCharIsDigit(int ch);
918
+/* 348 */
919
+EXTERN int Tcl_UniCharIsLower(int ch);
920
+/* 349 */
921
+EXTERN int Tcl_UniCharIsSpace(int ch);
922
+/* 350 */
923
+EXTERN int Tcl_UniCharIsUpper(int ch);
924
+/* 351 */
925
+EXTERN int Tcl_UniCharIsWordChar(int ch);
926
+/* 352 */
927
+EXTERN Tcl_Size Tcl_Char16Len(const unsigned short *uniStr);
928
+/* Slot 353 is reserved */
929
+/* 354 */
930
+EXTERN char * Tcl_Char16ToUtfDString(const unsigned short *uniStr,
931
+ Tcl_Size uniLength, Tcl_DString *dsPtr);
932
+/* 355 */
933
+EXTERN unsigned short * Tcl_UtfToChar16DString(const char *src,
934
+ Tcl_Size length, Tcl_DString *dsPtr);
935
+/* 356 */
936
+EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp,
937
+ Tcl_Obj *patObj, int flags);
938
+/* Slot 357 is reserved */
939
+/* 358 */
940
+EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr);
941
+/* 359 */
942
+EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp,
943
+ const char *script, const char *command,
944
+ Tcl_Size length);
945
+/* 360 */
946
+EXTERN int Tcl_ParseBraces(Tcl_Interp *interp,
947
+ const char *start, Tcl_Size numBytes,
948
+ Tcl_Parse *parsePtr, int append,
949
+ const char **termPtr);
950
+/* 361 */
951
+EXTERN int Tcl_ParseCommand(Tcl_Interp *interp,
952
+ const char *start, Tcl_Size numBytes,
953
+ int nested, Tcl_Parse *parsePtr);
954
+/* 362 */
955
+EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, const char *start,
956
+ Tcl_Size numBytes, Tcl_Parse *parsePtr);
957
+/* 363 */
958
+EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp,
959
+ const char *start, Tcl_Size numBytes,
960
+ Tcl_Parse *parsePtr, int append,
961
+ const char **termPtr);
962
+/* 364 */
963
+EXTERN int Tcl_ParseVarName(Tcl_Interp *interp,
964
+ const char *start, Tcl_Size numBytes,
965
+ Tcl_Parse *parsePtr, int append);
966
+/* 365 */
967
+EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr);
968
+/* 366 */
969
+EXTERN int Tcl_Chdir(const char *dirName);
970
+/* 367 */
971
+EXTERN int Tcl_Access(const char *path, int mode);
972
+/* 368 */
973
+EXTERN int Tcl_Stat(const char *path, struct stat *bufPtr);
974
+/* 369 */
975
+EXTERN int TclUtfNcmp(const char *s1, const char *s2, size_t n);
976
+/* 370 */
977
+EXTERN int TclUtfNcasecmp(const char *s1, const char *s2,
978
+ size_t n);
979
+/* 371 */
980
+EXTERN int Tcl_StringCaseMatch(const char *str,
981
+ const char *pattern, int nocase);
982
+/* 372 */
983
+EXTERN int Tcl_UniCharIsControl(int ch);
984
+/* 373 */
985
+EXTERN int Tcl_UniCharIsGraph(int ch);
986
+/* 374 */
987
+EXTERN int Tcl_UniCharIsPrint(int ch);
988
+/* 375 */
989
+EXTERN int Tcl_UniCharIsPunct(int ch);
990
+/* 376 */
991
+EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp,
992
+ Tcl_RegExp regexp, Tcl_Obj *textObj,
993
+ Tcl_Size offset, Tcl_Size nmatches,
994
+ int flags);
995
+/* 377 */
996
+EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp,
997
+ Tcl_RegExpInfo *infoPtr);
998
+/* 378 */
999
+EXTERN Tcl_Obj * Tcl_NewUnicodeObj(const Tcl_UniChar *unicode,
1000
+ Tcl_Size numChars);
1001
+/* 379 */
1002
+EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr,
1003
+ const Tcl_UniChar *unicode,
1004
+ Tcl_Size numChars);
1005
+/* 380 */
1006
+EXTERN Tcl_Size TclGetCharLength(Tcl_Obj *objPtr);
1007
+/* 381 */
1008
+EXTERN int TclGetUniChar(Tcl_Obj *objPtr, Tcl_Size index);
1009
+/* Slot 382 is reserved */
1010
+/* 383 */
1011
+EXTERN Tcl_Obj * TclGetRange(Tcl_Obj *objPtr, Tcl_Size first,
1012
+ Tcl_Size last);
1013
+/* 384 */
1014
+EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr,
1015
+ const Tcl_UniChar *unicode, Tcl_Size length);
1016
+/* 385 */
1017
+EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp,
1018
+ Tcl_Obj *textObj, Tcl_Obj *patternObj);
1019
+/* 386 */
1020
+EXTERN void Tcl_SetNotifier(
1021
+ const Tcl_NotifierProcs *notifierProcPtr);
1022
+/* 387 */
1023
+EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void);
1024
+/* 388 */
1025
+EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp);
1026
+/* 389 */
1027
+EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp,
1028
+ const char *pattern);
1029
+/* 390 */
1030
+EXTERN int Tcl_ProcObjCmd(void *clientData, Tcl_Interp *interp,
1031
+ Tcl_Size objc, Tcl_Obj *const objv[]);
1032
+/* 391 */
1033
+EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr);
1034
+/* 392 */
1035
+EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex);
1036
+/* 393 */
1037
+EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr,
1038
+ Tcl_ThreadCreateProc *proc, void *clientData,
1039
+ TCL_HASH_TYPE stackSize, int flags);
1040
+/* 394 */
1041
+EXTERN Tcl_Size Tcl_ReadRaw(Tcl_Channel chan, char *dst,
1042
+ Tcl_Size bytesToRead);
1043
+/* 395 */
1044
+EXTERN Tcl_Size Tcl_WriteRaw(Tcl_Channel chan, const char *src,
1045
+ Tcl_Size srcLen);
1046
+/* 396 */
1047
+EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan);
1048
+/* 397 */
1049
+EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan);
1050
+/* 398 */
1051
+EXTERN const char * Tcl_ChannelName(const Tcl_ChannelType *chanTypePtr);
1052
+/* 399 */
1053
+EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion(
1054
+ const Tcl_ChannelType *chanTypePtr);
1055
+/* 400 */
1056
+EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc(
1057
+ const Tcl_ChannelType *chanTypePtr);
1058
+/* Slot 401 is reserved */
1059
+/* 402 */
1060
+EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc(
1061
+ const Tcl_ChannelType *chanTypePtr);
1062
+/* 403 */
1063
+EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc(
1064
+ const Tcl_ChannelType *chanTypePtr);
1065
+/* 404 */
1066
+EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc(
1067
+ const Tcl_ChannelType *chanTypePtr);
1068
+/* Slot 405 is reserved */
1069
+/* 406 */
1070
+EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc(
1071
+ const Tcl_ChannelType *chanTypePtr);
1072
+/* 407 */
1073
+EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc(
1074
+ const Tcl_ChannelType *chanTypePtr);
1075
+/* 408 */
1076
+EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc(
1077
+ const Tcl_ChannelType *chanTypePtr);
1078
+/* 409 */
1079
+EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc(
1080
+ const Tcl_ChannelType *chanTypePtr);
1081
+/* 410 */
1082
+EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc(
1083
+ const Tcl_ChannelType *chanTypePtr);
1084
+/* 411 */
1085
+EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc(
1086
+ const Tcl_ChannelType *chanTypePtr);
1087
+/* 412 */
1088
+EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result);
1089
+/* 413 */
1090
+EXTERN int Tcl_IsChannelShared(Tcl_Channel channel);
1091
+/* 414 */
1092
+EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp,
1093
+ Tcl_Channel channel);
1094
+/* 415 */
1095
+EXTERN void Tcl_CutChannel(Tcl_Channel channel);
1096
+/* 416 */
1097
+EXTERN void Tcl_SpliceChannel(Tcl_Channel channel);
1098
+/* 417 */
1099
+EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel);
1100
+/* 418 */
1101
+EXTERN int Tcl_IsChannelExisting(const char *channelName);
1102
+/* Slot 419 is reserved */
1103
+/* Slot 420 is reserved */
1104
+/* Slot 421 is reserved */
1105
+/* 422 */
1106
+EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr,
1107
+ const void *key, int *newPtr);
1108
+/* 423 */
1109
+EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr,
1110
+ int keyType, const Tcl_HashKeyType *typePtr);
1111
+/* 424 */
1112
+EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr);
1113
+/* 425 */
1114
+EXTERN void * Tcl_CommandTraceInfo(Tcl_Interp *interp,
1115
+ const char *varName, int flags,
1116
+ Tcl_CommandTraceProc *procPtr,
1117
+ void *prevClientData);
1118
+/* 426 */
1119
+EXTERN int Tcl_TraceCommand(Tcl_Interp *interp,
1120
+ const char *varName, int flags,
1121
+ Tcl_CommandTraceProc *proc, void *clientData);
1122
+/* 427 */
1123
+EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp,
1124
+ const char *varName, int flags,
1125
+ Tcl_CommandTraceProc *proc, void *clientData);
1126
+/* 428 */
1127
+EXTERN void * Tcl_AttemptAlloc(TCL_HASH_TYPE size);
1128
+/* 429 */
1129
+EXTERN void * Tcl_AttemptDbCkalloc(TCL_HASH_TYPE size,
1130
+ const char *file, int line);
1131
+/* 430 */
1132
+EXTERN void * Tcl_AttemptRealloc(void *ptr, TCL_HASH_TYPE size);
1133
+/* 431 */
1134
+EXTERN void * Tcl_AttemptDbCkrealloc(void *ptr, TCL_HASH_TYPE size,
1135
+ const char *file, int line);
1136
+/* 432 */
1137
+EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr,
1138
+ Tcl_Size length);
1139
+/* 433 */
1140
+EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel);
1141
+/* 434 */
1142
+EXTERN Tcl_UniChar * TclGetUnicodeFromObj(Tcl_Obj *objPtr,
1143
+ void *lengthPtr);
1144
+/* Slot 435 is reserved */
1145
+/* Slot 436 is reserved */
1146
+/* 437 */
1147
+EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1148
+ int flags);
1149
+/* 438 */
1150
+EXTERN int Tcl_DetachChannel(Tcl_Interp *interp,
1151
+ Tcl_Channel channel);
1152
+/* 439 */
1153
+EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel);
1154
+/* 440 */
1155
+EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr,
1156
+ Tcl_Obj *destPathPtr);
1157
+/* 441 */
1158
+EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr,
1159
+ Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
1160
+/* 442 */
1161
+EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr);
1162
+/* 443 */
1163
+EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr);
1164
+/* 444 */
1165
+EXTERN int Tcl_FSLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
1166
+ const char *sym1, const char *sym2,
1167
+ Tcl_LibraryInitProc **proc1Ptr,
1168
+ Tcl_LibraryInitProc **proc2Ptr,
1169
+ Tcl_LoadHandle *handlePtr,
1170
+ Tcl_FSUnloadFileProc **unloadProcPtr);
1171
+/* 445 */
1172
+EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp,
1173
+ Tcl_Obj *result, Tcl_Obj *pathPtr,
1174
+ const char *pattern, Tcl_GlobTypeData *types);
1175
+/* 446 */
1176
+EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr,
1177
+ int linkAction);
1178
+/* 447 */
1179
+EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr,
1180
+ int recursive, Tcl_Obj **errorPtr);
1181
+/* 448 */
1182
+EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr,
1183
+ Tcl_Obj *destPathPtr);
1184
+/* 449 */
1185
+EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
1186
+/* 450 */
1187
+EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval);
1188
+/* 451 */
1189
+EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index,
1190
+ Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef);
1191
+/* 452 */
1192
+EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index,
1193
+ Tcl_Obj *pathPtr, Tcl_Obj *objPtr);
1194
+/* 453 */
1195
+EXTERN const char *const * Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr,
1196
+ Tcl_Obj **objPtrRef);
1197
+/* 454 */
1198
+EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
1199
+/* 455 */
1200
+EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode);
1201
+/* 456 */
1202
+EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp,
1203
+ Tcl_Obj *pathPtr, const char *modeString,
1204
+ int permissions);
1205
+/* 457 */
1206
+EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp);
1207
+/* 458 */
1208
+EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr);
1209
+/* 459 */
1210
+EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp,
1211
+ Tcl_Obj *pathPtr);
1212
+/* 460 */
1213
+EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, Tcl_Size elements);
1214
+/* 461 */
1215
+EXTERN Tcl_Obj * TclFSSplitPath(Tcl_Obj *pathPtr, void *lenPtr);
1216
+/* 462 */
1217
+EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr,
1218
+ Tcl_Obj *secondPtr);
1219
+/* 463 */
1220
+EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp,
1221
+ Tcl_Obj *pathPtr);
1222
+/* 464 */
1223
+EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, Tcl_Size objc,
1224
+ Tcl_Obj *const objv[]);
1225
+/* 465 */
1226
+EXTERN void * Tcl_FSGetInternalRep(Tcl_Obj *pathPtr,
1227
+ const Tcl_Filesystem *fsPtr);
1228
+/* 466 */
1229
+EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp,
1230
+ Tcl_Obj *pathPtr);
1231
+/* 467 */
1232
+EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName);
1233
+/* 468 */
1234
+EXTERN Tcl_Obj * Tcl_FSNewNativePath(
1235
+ const Tcl_Filesystem *fromFilesystem,
1236
+ void *clientData);
1237
+/* 469 */
1238
+EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr);
1239
+/* 470 */
1240
+EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr);
1241
+/* 471 */
1242
+EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr);
1243
+/* 472 */
1244
+EXTERN Tcl_Obj * Tcl_FSListVolumes(void);
1245
+/* 473 */
1246
+EXTERN int Tcl_FSRegister(void *clientData,
1247
+ const Tcl_Filesystem *fsPtr);
1248
+/* 474 */
1249
+EXTERN int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr);
1250
+/* 475 */
1251
+EXTERN void * Tcl_FSData(const Tcl_Filesystem *fsPtr);
1252
+/* 476 */
1253
+EXTERN const char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp,
1254
+ Tcl_Obj *pathPtr);
1255
+/* 477 */
1256
+EXTERN const Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr);
1257
+/* 478 */
1258
+EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr);
1259
+/* 479 */
1260
+EXTERN int Tcl_OutputBuffered(Tcl_Channel chan);
1261
+/* 480 */
1262
+EXTERN void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr);
1263
+/* 481 */
1264
+EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp,
1265
+ Tcl_Token *tokenPtr, Tcl_Size count);
1266
+/* 482 */
1267
+EXTERN void Tcl_GetTime(Tcl_Time *timeBuf);
1268
+/* 483 */
1269
+EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp,
1270
+ Tcl_Size level, int flags,
1271
+ Tcl_CmdObjTraceProc *objProc,
1272
+ void *clientData,
1273
+ Tcl_CmdObjTraceDeleteProc *delProc);
1274
+/* 484 */
1275
+EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token,
1276
+ Tcl_CmdInfo *infoPtr);
1277
+/* 485 */
1278
+EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token,
1279
+ const Tcl_CmdInfo *infoPtr);
1280
+/* 486 */
1281
+EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue,
1282
+ const char *file, int line);
1283
+/* 487 */
1284
+EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp,
1285
+ Tcl_Obj *objPtr, Tcl_WideInt *widePtr);
1286
+/* 488 */
1287
+EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue);
1288
+/* 489 */
1289
+EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr,
1290
+ Tcl_WideInt wideValue);
1291
+/* 490 */
1292
+EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void);
1293
+/* 491 */
1294
+EXTERN long long Tcl_Seek(Tcl_Channel chan, long long offset,
1295
+ int mode);
1296
+/* 492 */
1297
+EXTERN long long Tcl_Tell(Tcl_Channel chan);
1298
+/* 493 */
1299
+EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc(
1300
+ const Tcl_ChannelType *chanTypePtr);
1301
+/* 494 */
1302
+EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1303
+ Tcl_Obj *keyPtr, Tcl_Obj *valuePtr);
1304
+/* 495 */
1305
+EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1306
+ Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr);
1307
+/* 496 */
1308
+EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp,
1309
+ Tcl_Obj *dictPtr, Tcl_Obj *keyPtr);
1310
+/* 497 */
1311
+EXTERN int TclDictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1312
+ void *sizePtr);
1313
+/* 498 */
1314
+EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp,
1315
+ Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr,
1316
+ Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
1317
+ int *donePtr);
1318
+/* 499 */
1319
+EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr,
1320
+ Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
1321
+ int *donePtr);
1322
+/* 500 */
1323
+EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr);
1324
+/* 501 */
1325
+EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp,
1326
+ Tcl_Obj *dictPtr, Tcl_Size keyc,
1327
+ Tcl_Obj *const *keyv, Tcl_Obj *valuePtr);
1328
+/* 502 */
1329
+EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp,
1330
+ Tcl_Obj *dictPtr, Tcl_Size keyc,
1331
+ Tcl_Obj *const *keyv);
1332
+/* 503 */
1333
+EXTERN Tcl_Obj * Tcl_NewDictObj(void);
1334
+/* 504 */
1335
+EXTERN Tcl_Obj * Tcl_DbNewDictObj(const char *file, int line);
1336
+/* 505 */
1337
+EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp,
1338
+ const char *pkgName,
1339
+ const Tcl_Config *configuration,
1340
+ const char *valEncoding);
1341
+/* 506 */
1342
+EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp,
1343
+ const char *name, void *clientData,
1344
+ Tcl_NamespaceDeleteProc *deleteProc);
1345
+/* 507 */
1346
+EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
1347
+/* 508 */
1348
+EXTERN int Tcl_AppendExportList(Tcl_Interp *interp,
1349
+ Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
1350
+/* 509 */
1351
+EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
1352
+ const char *pattern, int resetListFirst);
1353
+/* 510 */
1354
+EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
1355
+ const char *pattern, int allowOverwrite);
1356
+/* 511 */
1357
+EXTERN int Tcl_ForgetImport(Tcl_Interp *interp,
1358
+ Tcl_Namespace *nsPtr, const char *pattern);
1359
+/* 512 */
1360
+EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp);
1361
+/* 513 */
1362
+EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp);
1363
+/* 514 */
1364
+EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp,
1365
+ const char *name,
1366
+ Tcl_Namespace *contextNsPtr, int flags);
1367
+/* 515 */
1368
+EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name,
1369
+ Tcl_Namespace *contextNsPtr, int flags);
1370
+/* 516 */
1371
+EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp,
1372
+ Tcl_Obj *objPtr);
1373
+/* 517 */
1374
+EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp,
1375
+ Tcl_Command command, Tcl_Obj *objPtr);
1376
+/* 518 */
1377
+EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp,
1378
+ Tcl_Obj *fileName, const char *encodingName);
1379
+/* Slot 519 is reserved */
1380
+/* 520 */
1381
+EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type,
1382
+ Tcl_LimitHandlerProc *handlerProc,
1383
+ void *clientData,
1384
+ Tcl_LimitHandlerDeleteProc *deleteProc);
1385
+/* 521 */
1386
+EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type,
1387
+ Tcl_LimitHandlerProc *handlerProc,
1388
+ void *clientData);
1389
+/* 522 */
1390
+EXTERN int Tcl_LimitReady(Tcl_Interp *interp);
1391
+/* 523 */
1392
+EXTERN int Tcl_LimitCheck(Tcl_Interp *interp);
1393
+/* 524 */
1394
+EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp);
1395
+/* 525 */
1396
+EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp,
1397
+ Tcl_Size commandLimit);
1398
+/* 526 */
1399
+EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp,
1400
+ Tcl_Time *timeLimitPtr);
1401
+/* 527 */
1402
+EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type,
1403
+ int granularity);
1404
+/* 528 */
1405
+EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type);
1406
+/* 529 */
1407
+EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type);
1408
+/* 530 */
1409
+EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type);
1410
+/* 531 */
1411
+EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type);
1412
+/* 532 */
1413
+EXTERN Tcl_Size Tcl_LimitGetCommands(Tcl_Interp *interp);
1414
+/* 533 */
1415
+EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp,
1416
+ Tcl_Time *timeLimitPtr);
1417
+/* 534 */
1418
+EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type);
1419
+/* 535 */
1420
+EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status);
1421
+/* 536 */
1422
+EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp,
1423
+ Tcl_InterpState state);
1424
+/* 537 */
1425
+EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state);
1426
+/* 538 */
1427
+EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp,
1428
+ Tcl_Obj *options);
1429
+/* 539 */
1430
+EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result);
1431
+/* 540 */
1432
+EXTERN int Tcl_IsEnsemble(Tcl_Command token);
1433
+/* 541 */
1434
+EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp,
1435
+ const char *name,
1436
+ Tcl_Namespace *namespacePtr, int flags);
1437
+/* 542 */
1438
+EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp,
1439
+ Tcl_Obj *cmdNameObj, int flags);
1440
+/* 543 */
1441
+EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp,
1442
+ Tcl_Command token, Tcl_Obj *subcmdList);
1443
+/* 544 */
1444
+EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp,
1445
+ Tcl_Command token, Tcl_Obj *mapDict);
1446
+/* 545 */
1447
+EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp,
1448
+ Tcl_Command token, Tcl_Obj *unknownList);
1449
+/* 546 */
1450
+EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp,
1451
+ Tcl_Command token, int flags);
1452
+/* 547 */
1453
+EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp,
1454
+ Tcl_Command token, Tcl_Obj **subcmdListPtr);
1455
+/* 548 */
1456
+EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp,
1457
+ Tcl_Command token, Tcl_Obj **mapDictPtr);
1458
+/* 549 */
1459
+EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp,
1460
+ Tcl_Command token, Tcl_Obj **unknownListPtr);
1461
+/* 550 */
1462
+EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp,
1463
+ Tcl_Command token, int *flagsPtr);
1464
+/* 551 */
1465
+EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp,
1466
+ Tcl_Command token,
1467
+ Tcl_Namespace **namespacePtrPtr);
1468
+/* 552 */
1469
+EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc,
1470
+ Tcl_ScaleTimeProc *scaleProc,
1471
+ void *clientData);
1472
+/* 553 */
1473
+EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc,
1474
+ Tcl_ScaleTimeProc **scaleProc,
1475
+ void **clientData);
1476
+/* 554 */
1477
+EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc(
1478
+ const Tcl_ChannelType *chanTypePtr);
1479
+/* 555 */
1480
+EXTERN Tcl_Obj * Tcl_NewBignumObj(void *value);
1481
+/* 556 */
1482
+EXTERN Tcl_Obj * Tcl_DbNewBignumObj(void *value, const char *file,
1483
+ int line);
1484
+/* 557 */
1485
+EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, void *value);
1486
+/* 558 */
1487
+EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp,
1488
+ Tcl_Obj *obj, void *value);
1489
+/* 559 */
1490
+EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp,
1491
+ Tcl_Obj *obj, void *value);
1492
+/* 560 */
1493
+EXTERN int Tcl_TruncateChannel(Tcl_Channel chan,
1494
+ long long length);
1495
+/* 561 */
1496
+EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc(
1497
+ const Tcl_ChannelType *chanTypePtr);
1498
+/* 562 */
1499
+EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp,
1500
+ Tcl_Obj *msg);
1501
+/* 563 */
1502
+EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp,
1503
+ Tcl_Obj **msg);
1504
+/* 564 */
1505
+EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg);
1506
+/* 565 */
1507
+EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg);
1508
+/* 566 */
1509
+EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp,
1510
+ double initval, void *toInit);
1511
+/* 567 */
1512
+EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp,
1513
+ Tcl_Namespace *nsPtr);
1514
+/* 568 */
1515
+EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp,
1516
+ Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr);
1517
+/* 569 */
1518
+EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp,
1519
+ Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr);
1520
+/* 570 */
1521
+EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void);
1522
+/* 571 */
1523
+EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath);
1524
+/* 572 */
1525
+EXTERN const char * Tcl_GetEncodingNameFromEnvironment(
1526
+ Tcl_DString *bufPtr);
1527
+/* 573 */
1528
+EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp,
1529
+ const char *name, Tcl_Size objc,
1530
+ Tcl_Obj *const objv[], void *clientDataPtr);
1531
+/* 574 */
1532
+EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp,
1533
+ Tcl_Obj *objPtr);
1534
+/* 575 */
1535
+EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr,
1536
+ const char *bytes, Tcl_Size length,
1537
+ Tcl_Size limit, const char *ellipsis);
1538
+/* 576 */
1539
+EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, const char *format,
1540
+ Tcl_Size objc, Tcl_Obj *const objv[]);
1541
+/* 577 */
1542
+EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp,
1543
+ Tcl_Obj *objPtr, const char *format,
1544
+ Tcl_Size objc, Tcl_Obj *const objv[]);
1545
+/* 578 */
1546
+EXTERN Tcl_Obj * Tcl_ObjPrintf(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
1547
+/* 579 */
1548
+EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
1549
+ const char *format, ...) TCL_FORMAT_PRINTF(2, 3);
1550
+/* 580 */
1551
+EXTERN int Tcl_CancelEval(Tcl_Interp *interp,
1552
+ Tcl_Obj *resultObjPtr, void *clientData,
1553
+ int flags);
1554
+/* 581 */
1555
+EXTERN int Tcl_Canceled(Tcl_Interp *interp, int flags);
1556
+/* 582 */
1557
+EXTERN int Tcl_CreatePipe(Tcl_Interp *interp,
1558
+ Tcl_Channel *rchan, Tcl_Channel *wchan,
1559
+ int flags);
1560
+/* 583 */
1561
+EXTERN Tcl_Command Tcl_NRCreateCommand(Tcl_Interp *interp,
1562
+ const char *cmdName, Tcl_ObjCmdProc *proc,
1563
+ Tcl_ObjCmdProc *nreProc, void *clientData,
1564
+ Tcl_CmdDeleteProc *deleteProc);
1565
+/* 584 */
1566
+EXTERN int Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1567
+ int flags);
1568
+/* 585 */
1569
+EXTERN int Tcl_NREvalObjv(Tcl_Interp *interp, Tcl_Size objc,
1570
+ Tcl_Obj *const objv[], int flags);
1571
+/* 586 */
1572
+EXTERN int Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd,
1573
+ Tcl_Size objc, Tcl_Obj *const objv[],
1574
+ int flags);
1575
+/* 587 */
1576
+EXTERN void Tcl_NRAddCallback(Tcl_Interp *interp,
1577
+ Tcl_NRPostProc *postProcPtr, void *data0,
1578
+ void *data1, void *data2, void *data3);
1579
+/* 588 */
1580
+EXTERN int Tcl_NRCallObjProc(Tcl_Interp *interp,
1581
+ Tcl_ObjCmdProc *objProc, void *clientData,
1582
+ Tcl_Size objc, Tcl_Obj *const objv[]);
1583
+/* 589 */
1584
+EXTERN unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr);
1585
+/* 590 */
1586
+EXTERN unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr);
1587
+/* 591 */
1588
+EXTERN unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr);
1589
+/* 592 */
1590
+EXTERN int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr);
1591
+/* 593 */
1592
+EXTERN int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr);
1593
+/* 594 */
1594
+EXTERN int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr);
1595
+/* 595 */
1596
+EXTERN int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr);
1597
+/* 596 */
1598
+EXTERN long long Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr);
1599
+/* 597 */
1600
+EXTERN long long Tcl_GetModificationTimeFromStat(
1601
+ const Tcl_StatBuf *statPtr);
1602
+/* 598 */
1603
+EXTERN long long Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr);
1604
+/* 599 */
1605
+EXTERN unsigned long long Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr);
1606
+/* 600 */
1607
+EXTERN unsigned long long Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr);
1608
+/* 601 */
1609
+EXTERN unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr);
1610
+/* 602 */
1611
+EXTERN int Tcl_SetEnsembleParameterList(Tcl_Interp *interp,
1612
+ Tcl_Command token, Tcl_Obj *paramList);
1613
+/* 603 */
1614
+EXTERN int Tcl_GetEnsembleParameterList(Tcl_Interp *interp,
1615
+ Tcl_Command token, Tcl_Obj **paramListPtr);
1616
+/* 604 */
1617
+EXTERN int TclParseArgsObjv(Tcl_Interp *interp,
1618
+ const Tcl_ArgvInfo *argTable, void *objcPtr,
1619
+ Tcl_Obj *const *objv, Tcl_Obj ***remObjv);
1620
+/* 605 */
1621
+EXTERN int Tcl_GetErrorLine(Tcl_Interp *interp);
1622
+/* 606 */
1623
+EXTERN void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum);
1624
+/* 607 */
1625
+EXTERN void Tcl_TransferResult(Tcl_Interp *sourceInterp,
1626
+ int code, Tcl_Interp *targetInterp);
1627
+/* 608 */
1628
+EXTERN int Tcl_InterpActive(Tcl_Interp *interp);
1629
+/* 609 */
1630
+EXTERN void Tcl_BackgroundException(Tcl_Interp *interp, int code);
1631
+/* 610 */
1632
+EXTERN int Tcl_ZlibDeflate(Tcl_Interp *interp, int format,
1633
+ Tcl_Obj *data, int level,
1634
+ Tcl_Obj *gzipHeaderDictObj);
1635
+/* 611 */
1636
+EXTERN int Tcl_ZlibInflate(Tcl_Interp *interp, int format,
1637
+ Tcl_Obj *data, Tcl_Size buffersize,
1638
+ Tcl_Obj *gzipHeaderDictObj);
1639
+/* 612 */
1640
+EXTERN unsigned int Tcl_ZlibCRC32(unsigned int crc,
1641
+ const unsigned char *buf, Tcl_Size len);
1642
+/* 613 */
1643
+EXTERN unsigned int Tcl_ZlibAdler32(unsigned int adler,
1644
+ const unsigned char *buf, Tcl_Size len);
1645
+/* 614 */
1646
+EXTERN int Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode,
1647
+ int format, int level, Tcl_Obj *dictObj,
1648
+ Tcl_ZlibStream *zshandle);
1649
+/* 615 */
1650
+EXTERN Tcl_Obj * Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle);
1651
+/* 616 */
1652
+EXTERN int Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle);
1653
+/* 617 */
1654
+EXTERN int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle);
1655
+/* 618 */
1656
+EXTERN int Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle,
1657
+ Tcl_Obj *data, int flush);
1658
+/* 619 */
1659
+EXTERN int Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle,
1660
+ Tcl_Obj *data, Tcl_Size count);
1661
+/* 620 */
1662
+EXTERN int Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle);
1663
+/* 621 */
1664
+EXTERN int Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle);
1665
+/* 622 */
1666
+EXTERN void Tcl_SetStartupScript(Tcl_Obj *path,
1667
+ const char *encoding);
1668
+/* 623 */
1669
+EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingPtr);
1670
+/* 624 */
1671
+EXTERN int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan,
1672
+ int flags);
1673
+/* 625 */
1674
+EXTERN int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1675
+ Tcl_Obj *resultPtr);
1676
+/* 626 */
1677
+EXTERN int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1678
+ int flags);
1679
+/* 627 */
1680
+EXTERN int Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
1681
+ const char *const symv[], int flags,
1682
+ void *procPtrs, Tcl_LoadHandle *handlePtr);
1683
+/* 628 */
1684
+EXTERN void * Tcl_FindSymbol(Tcl_Interp *interp,
1685
+ Tcl_LoadHandle handle, const char *symbol);
1686
+/* 629 */
1687
+EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp,
1688
+ Tcl_LoadHandle handlePtr);
1689
+/* 630 */
1690
+EXTERN void Tcl_ZlibStreamSetCompressionDictionary(
1691
+ Tcl_ZlibStream zhandle,
1692
+ Tcl_Obj *compressionDictionaryObj);
1693
+/* 631 */
1694
+EXTERN Tcl_Channel Tcl_OpenTcpServerEx(Tcl_Interp *interp,
1695
+ const char *service, const char *host,
1696
+ unsigned int flags, int backlog,
1697
+ Tcl_TcpAcceptProc *acceptProc,
1698
+ void *callbackData);
1699
+/* 632 */
1700
+EXTERN int TclZipfs_Mount(Tcl_Interp *interp,
1701
+ const char *zipname, const char *mountPoint,
1702
+ const char *passwd);
1703
+/* 633 */
1704
+EXTERN int TclZipfs_Unmount(Tcl_Interp *interp,
1705
+ const char *mountPoint);
1706
+/* 634 */
1707
+EXTERN Tcl_Obj * TclZipfs_TclLibrary(void);
1708
+/* 635 */
1709
+EXTERN int TclZipfs_MountBuffer(Tcl_Interp *interp,
1710
+ const void *data, size_t datalen,
1711
+ const char *mountPoint, int copy);
1712
+/* 636 */
1713
+EXTERN void Tcl_FreeInternalRep(Tcl_Obj *objPtr);
1714
+/* 637 */
1715
+EXTERN char * Tcl_InitStringRep(Tcl_Obj *objPtr, const char *bytes,
1716
+ TCL_HASH_TYPE numBytes);
1717
+/* 638 */
1718
+EXTERN Tcl_ObjInternalRep * Tcl_FetchInternalRep(Tcl_Obj *objPtr,
1719
+ const Tcl_ObjType *typePtr);
1720
+/* 639 */
1721
+EXTERN void Tcl_StoreInternalRep(Tcl_Obj *objPtr,
1722
+ const Tcl_ObjType *typePtr,
1723
+ const Tcl_ObjInternalRep *irPtr);
1724
+/* 640 */
1725
+EXTERN int Tcl_HasStringRep(Tcl_Obj *objPtr);
1726
+/* 641 */
1727
+EXTERN void Tcl_IncrRefCount(Tcl_Obj *objPtr);
1728
+/* 642 */
1729
+EXTERN void Tcl_DecrRefCount(Tcl_Obj *objPtr);
1730
+/* 643 */
1731
+EXTERN int Tcl_IsShared(Tcl_Obj *objPtr);
1732
+/* 644 */
1733
+EXTERN int Tcl_LinkArray(Tcl_Interp *interp,
1734
+ const char *varName, void *addr, int type,
1735
+ Tcl_Size size);
1736
+/* 645 */
1737
+EXTERN int Tcl_GetIntForIndex(Tcl_Interp *interp,
1738
+ Tcl_Obj *objPtr, Tcl_Size endValue,
1739
+ Tcl_Size *indexPtr);
1740
+/* 646 */
1741
+EXTERN Tcl_Size Tcl_UtfToUniChar(const char *src, int *chPtr);
1742
+/* 647 */
1743
+EXTERN char * Tcl_UniCharToUtfDString(const int *uniStr,
1744
+ Tcl_Size uniLength, Tcl_DString *dsPtr);
1745
+/* 648 */
1746
+EXTERN int * Tcl_UtfToUniCharDString(const char *src,
1747
+ Tcl_Size length, Tcl_DString *dsPtr);
1748
+/* 649 */
1749
+EXTERN unsigned char * TclGetBytesFromObj(Tcl_Interp *interp,
1750
+ Tcl_Obj *objPtr, void *numBytesPtr);
1751
+/* 650 */
1752
+EXTERN unsigned char * Tcl_GetBytesFromObj(Tcl_Interp *interp,
1753
+ Tcl_Obj *objPtr, Tcl_Size *numBytesPtr);
1754
+/* 651 */
1755
+EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr,
1756
+ Tcl_Size *lengthPtr);
1757
+/* 652 */
1758
+EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr,
1759
+ Tcl_Size *lengthPtr);
1760
+/* 653 */
1761
+EXTERN int Tcl_GetSizeIntFromObj(Tcl_Interp *interp,
1762
+ Tcl_Obj *objPtr, Tcl_Size *sizePtr);
1763
+/* 654 */
1764
+EXTERN int Tcl_UtfCharComplete(const char *src, Tcl_Size length);
1765
+/* 655 */
1766
+EXTERN const char * Tcl_UtfNext(const char *src);
1767
+/* 656 */
1768
+EXTERN const char * Tcl_UtfPrev(const char *src, const char *start);
1769
+/* 657 */
1770
+EXTERN int Tcl_FSTildeExpand(Tcl_Interp *interp,
1771
+ const char *path, Tcl_DString *dsPtr);
1772
+/* 658 */
1773
+EXTERN int Tcl_ExternalToUtfDStringEx(Tcl_Interp *interp,
1774
+ Tcl_Encoding encoding, const char *src,
1775
+ Tcl_Size srcLen, int flags,
1776
+ Tcl_DString *dsPtr,
1777
+ Tcl_Size *errorLocationPtr);
1778
+/* 659 */
1779
+EXTERN int Tcl_UtfToExternalDStringEx(Tcl_Interp *interp,
1780
+ Tcl_Encoding encoding, const char *src,
1781
+ Tcl_Size srcLen, int flags,
1782
+ Tcl_DString *dsPtr,
1783
+ Tcl_Size *errorLocationPtr);
1784
+/* 660 */
1785
+EXTERN int Tcl_AsyncMarkFromSignal(Tcl_AsyncHandler async,
1786
+ int sigNumber);
1787
+/* 661 */
1788
+EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp,
1789
+ Tcl_Obj *listPtr, Tcl_Size *objcPtr,
1790
+ Tcl_Obj ***objvPtr);
1791
+/* 662 */
1792
+EXTERN int Tcl_ListObjLength(Tcl_Interp *interp,
1793
+ Tcl_Obj *listPtr, Tcl_Size *lengthPtr);
1794
+/* 663 */
1795
+EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1796
+ Tcl_Size *sizePtr);
1797
+/* 664 */
1798
+EXTERN int Tcl_SplitList(Tcl_Interp *interp,
1799
+ const char *listStr, Tcl_Size *argcPtr,
1800
+ const char ***argvPtr);
1801
+/* 665 */
1802
+EXTERN void Tcl_SplitPath(const char *path, Tcl_Size *argcPtr,
1803
+ const char ***argvPtr);
1804
+/* 666 */
1805
+EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, Tcl_Size *lenPtr);
1806
+/* 667 */
1807
+EXTERN int Tcl_ParseArgsObjv(Tcl_Interp *interp,
1808
+ const Tcl_ArgvInfo *argTable,
1809
+ Tcl_Size *objcPtr, Tcl_Obj *const *objv,
1810
+ Tcl_Obj ***remObjv);
1811
+/* 668 */
1812
+EXTERN Tcl_Size Tcl_UniCharLen(const int *uniStr);
1813
+/* 669 */
1814
+EXTERN Tcl_Size Tcl_NumUtfChars(const char *src, Tcl_Size length);
1815
+/* 670 */
1816
+EXTERN Tcl_Size Tcl_GetCharLength(Tcl_Obj *objPtr);
1817
+/* 671 */
1818
+EXTERN const char * Tcl_UtfAtIndex(const char *src, Tcl_Size index);
1819
+/* 672 */
1820
+EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, Tcl_Size first,
1821
+ Tcl_Size last);
1822
+/* 673 */
1823
+EXTERN int Tcl_GetUniChar(Tcl_Obj *objPtr, Tcl_Size index);
1824
+/* 674 */
1825
+EXTERN int Tcl_GetBool(Tcl_Interp *interp, const char *src,
1826
+ int flags, char *charPtr);
1827
+/* 675 */
1828
+EXTERN int Tcl_GetBoolFromObj(Tcl_Interp *interp,
1829
+ Tcl_Obj *objPtr, int flags, char *charPtr);
1830
+/* 676 */
1831
+EXTERN Tcl_Command Tcl_CreateObjCommand2(Tcl_Interp *interp,
1832
+ const char *cmdName, Tcl_ObjCmdProc2 *proc2,
1833
+ void *clientData,
1834
+ Tcl_CmdDeleteProc *deleteProc);
1835
+/* 677 */
1836
+EXTERN Tcl_Trace Tcl_CreateObjTrace2(Tcl_Interp *interp,
1837
+ Tcl_Size level, int flags,
1838
+ Tcl_CmdObjTraceProc2 *objProc2,
1839
+ void *clientData,
1840
+ Tcl_CmdObjTraceDeleteProc *delProc);
1841
+/* 678 */
1842
+EXTERN Tcl_Command Tcl_NRCreateCommand2(Tcl_Interp *interp,
1843
+ const char *cmdName, Tcl_ObjCmdProc2 *proc,
1844
+ Tcl_ObjCmdProc2 *nreProc2, void *clientData,
1845
+ Tcl_CmdDeleteProc *deleteProc);
1846
+/* 679 */
1847
+EXTERN int Tcl_NRCallObjProc2(Tcl_Interp *interp,
1848
+ Tcl_ObjCmdProc2 *objProc2, void *clientData,
1849
+ Tcl_Size objc, Tcl_Obj *const objv[]);
1850
+/* 680 */
1851
+EXTERN int Tcl_GetNumberFromObj(Tcl_Interp *interp,
1852
+ Tcl_Obj *objPtr, void **clientDataPtr,
1853
+ int *typePtr);
1854
+/* 681 */
1855
+EXTERN int Tcl_GetNumber(Tcl_Interp *interp, const char *bytes,
1856
+ Tcl_Size numBytes, void **clientDataPtr,
1857
+ int *typePtr);
1858
+/* 682 */
1859
+EXTERN int Tcl_RemoveChannelMode(Tcl_Interp *interp,
1860
+ Tcl_Channel chan, int mode);
1861
+/* 683 */
1862
+EXTERN Tcl_Size Tcl_GetEncodingNulLength(Tcl_Encoding encoding);
1863
+/* 684 */
1864
+EXTERN int Tcl_GetWideUIntFromObj(Tcl_Interp *interp,
1865
+ Tcl_Obj *objPtr, Tcl_WideUInt *uwidePtr);
1866
+/* 685 */
1867
+EXTERN Tcl_Obj * Tcl_DStringToObj(Tcl_DString *dsPtr);
1868
+/* 686 */
1869
+EXTERN int Tcl_UtfNcmp(const char *s1, const char *s2, size_t n);
1870
+/* 687 */
1871
+EXTERN int Tcl_UtfNcasecmp(const char *s1, const char *s2,
1872
+ size_t n);
1873
+/* 688 */
1874
+EXTERN Tcl_Obj * Tcl_NewWideUIntObj(Tcl_WideUInt wideValue);
1875
+/* 689 */
1876
+EXTERN void Tcl_SetWideUIntObj(Tcl_Obj *objPtr,
1877
+ Tcl_WideUInt uwideValue);
1878
+/* 690 */
1879
+EXTERN void TclUnusedStubEntry(void);
1880
+
1881
+typedef struct {
1882
+ const struct TclPlatStubs *tclPlatStubs;
1883
+ const struct TclIntStubs *tclIntStubs;
1884
+ const struct TclIntPlatStubs *tclIntPlatStubs;
1885
+} TclStubHooks;
1886
+
1887
+typedef struct TclStubs {
1888
+ int magic;
1889
+ const TclStubHooks *hooks;
1890
+
1891
+ int (*tcl_PkgProvideEx) (Tcl_Interp *interp, const char *name, const char *version, const void *clientData); /* 0 */
1892
+ const char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 1 */
1893
+ TCL_NORETURN1 void (*tcl_Panic) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 2 */
1894
+ void * (*tcl_Alloc) (TCL_HASH_TYPE size); /* 3 */
1895
+ void (*tcl_Free) (void *ptr); /* 4 */
1896
+ void * (*tcl_Realloc) (void *ptr, TCL_HASH_TYPE size); /* 5 */
1897
+ void * (*tcl_DbCkalloc) (TCL_HASH_TYPE size, const char *file, int line); /* 6 */
1898
+ void (*tcl_DbCkfree) (void *ptr, const char *file, int line); /* 7 */
1899
+ void * (*tcl_DbCkrealloc) (void *ptr, TCL_HASH_TYPE size, const char *file, int line); /* 8 */
1900
+ void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, void *clientData); /* 9 */
1901
+ void (*tcl_DeleteFileHandler) (int fd); /* 10 */
1902
+ void (*tcl_SetTimer) (const Tcl_Time *timePtr); /* 11 */
1903
+ void (*tcl_Sleep) (int ms); /* 12 */
1904
+ int (*tcl_WaitForEvent) (const Tcl_Time *timePtr); /* 13 */
1905
+ int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */
1906
+ void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */
1907
+ void (*tcl_AppendToObj) (Tcl_Obj *objPtr, const char *bytes, Tcl_Size length); /* 16 */
1908
+ Tcl_Obj * (*tcl_ConcatObj) (Tcl_Size objc, Tcl_Obj *const objv[]); /* 17 */
1909
+ int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); /* 18 */
1910
+ void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 19 */
1911
+ void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 20 */
1912
+ int (*tcl_DbIsShared) (Tcl_Obj *objPtr, const char *file, int line); /* 21 */
1913
+ void (*reserved22)(void);
1914
+ Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char *bytes, Tcl_Size numBytes, const char *file, int line); /* 23 */
1915
+ Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char *file, int line); /* 24 */
1916
+ Tcl_Obj * (*tcl_DbNewListObj) (Tcl_Size objc, Tcl_Obj *const *objv, const char *file, int line); /* 25 */
1917
+ void (*reserved26)(void);
1918
+ Tcl_Obj * (*tcl_DbNewObj) (const char *file, int line); /* 27 */
1919
+ Tcl_Obj * (*tcl_DbNewStringObj) (const char *bytes, Tcl_Size length, const char *file, int line); /* 28 */
1920
+ Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */
1921
+ void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */
1922
+ int (*tcl_GetBoolean) (Tcl_Interp *interp, const char *src, int *intPtr); /* 31 */
1923
+ int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 32 */
1924
+ unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, Tcl_Size *numBytesPtr); /* 33 */
1925
+ int (*tcl_GetDouble) (Tcl_Interp *interp, const char *src, double *doublePtr); /* 34 */
1926
+ int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */
1927
+ void (*reserved36)(void);
1928
+ int (*tcl_GetInt) (Tcl_Interp *interp, const char *src, int *intPtr); /* 37 */
1929
+ int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */
1930
+ int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */
1931
+ const Tcl_ObjType * (*tcl_GetObjType) (const char *typeName); /* 40 */
1932
+ char * (*tclGetStringFromObj) (Tcl_Obj *objPtr, void *lengthPtr); /* 41 */
1933
+ void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */
1934
+ int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */
1935
+ int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */
1936
+ int (*tclListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, void *objcPtr, Tcl_Obj ***objvPtr); /* 45 */
1937
+ int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Size index, Tcl_Obj **objPtrPtr); /* 46 */
1938
+ int (*tclListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, void *lengthPtr); /* 47 */
1939
+ int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Size first, Tcl_Size count, Tcl_Size objc, Tcl_Obj *const objv[]); /* 48 */
1940
+ void (*reserved49)(void);
1941
+ Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char *bytes, Tcl_Size numBytes); /* 50 */
1942
+ Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */
1943
+ void (*reserved52)(void);
1944
+ Tcl_Obj * (*tcl_NewListObj) (Tcl_Size objc, Tcl_Obj *const objv[]); /* 53 */
1945
+ void (*reserved54)(void);
1946
+ Tcl_Obj * (*tcl_NewObj) (void); /* 55 */
1947
+ Tcl_Obj * (*tcl_NewStringObj) (const char *bytes, Tcl_Size length); /* 56 */
1948
+ void (*reserved57)(void);
1949
+ unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, Tcl_Size numBytes); /* 58 */
1950
+ void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, const unsigned char *bytes, Tcl_Size numBytes); /* 59 */
1951
+ void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */
1952
+ void (*reserved61)(void);
1953
+ void (*tcl_SetListObj) (Tcl_Obj *objPtr, Tcl_Size objc, Tcl_Obj *const objv[]); /* 62 */
1954
+ void (*reserved63)(void);
1955
+ void (*tcl_SetObjLength) (Tcl_Obj *objPtr, Tcl_Size length); /* 64 */
1956
+ void (*tcl_SetStringObj) (Tcl_Obj *objPtr, const char *bytes, Tcl_Size length); /* 65 */
1957
+ void (*reserved66)(void);
1958
+ void (*reserved67)(void);
1959
+ void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */
1960
+ void (*tcl_AppendElement) (Tcl_Interp *interp, const char *element); /* 69 */
1961
+ void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */
1962
+ Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, void *clientData); /* 71 */
1963
+ void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */
1964
+ int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */
1965
+ void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */
1966
+ int (*tcl_AsyncReady) (void); /* 75 */
1967
+ void (*reserved76)(void);
1968
+ void (*reserved77)(void);
1969
+ int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); /* 78 */
1970
+ void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, void *clientData); /* 79 */
1971
+ void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, void *clientData); /* 80 */
1972
+ int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */
1973
+ int (*tcl_CommandComplete) (const char *cmd); /* 82 */
1974
+ char * (*tcl_Concat) (Tcl_Size argc, const char *const *argv); /* 83 */
1975
+ Tcl_Size (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 84 */
1976
+ Tcl_Size (*tcl_ConvertCountedElement) (const char *src, Tcl_Size length, char *dst, int flags); /* 85 */
1977
+ int (*tcl_CreateAlias) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, Tcl_Size argc, const char *const *argv); /* 86 */
1978
+ int (*tcl_CreateAliasObj) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, Tcl_Size objc, Tcl_Obj *const objv[]); /* 87 */
1979
+ Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const char *chanName, void *instanceData, int mask); /* 88 */
1980
+ void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, void *clientData); /* 89 */
1981
+ void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, void *clientData); /* 90 */
1982
+ Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */
1983
+ void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, void *clientData); /* 92 */
1984
+ void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, void *clientData); /* 93 */
1985
+ Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */
1986
+ void (*reserved95)(void);
1987
+ Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */
1988
+ Tcl_Interp * (*tcl_CreateChild) (Tcl_Interp *interp, const char *name, int isSafe); /* 97 */
1989
+ Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, void *clientData); /* 98 */
1990
+ Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, Tcl_Size level, Tcl_CmdTraceProc *proc, void *clientData); /* 99 */
1991
+ void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); /* 100 */
1992
+ void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, void *clientData); /* 101 */
1993
+ void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, void *clientData); /* 102 */
1994
+ int (*tcl_DeleteCommand) (Tcl_Interp *interp, const char *cmdName); /* 103 */
1995
+ int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */
1996
+ void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, void *clientData); /* 105 */
1997
+ void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, void *clientData); /* 106 */
1998
+ void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, void *clientData); /* 107 */
1999
+ void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */
2000
+ void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */
2001
+ void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */
2002
+ void (*tcl_DetachPids) (Tcl_Size numPids, Tcl_Pid *pidPtr); /* 111 */
2003
+ void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */
2004
+ void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */
2005
+ void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, void *clientData); /* 114 */
2006
+ int (*tcl_DoOneEvent) (int flags); /* 115 */
2007
+ void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, void *clientData); /* 116 */
2008
+ char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, const char *bytes, Tcl_Size length); /* 117 */
2009
+ char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, const char *element); /* 118 */
2010
+ void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */
2011
+ void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */
2012
+ void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */
2013
+ void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */
2014
+ void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */
2015
+ void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, Tcl_Size length); /* 124 */
2016
+ void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */
2017
+ int (*tcl_Eof) (Tcl_Channel chan); /* 126 */
2018
+ const char * (*tcl_ErrnoId) (void); /* 127 */
2019
+ const char * (*tcl_ErrnoMsg) (int err); /* 128 */
2020
+ void (*reserved129)(void);
2021
+ int (*tcl_EvalFile) (Tcl_Interp *interp, const char *fileName); /* 130 */
2022
+ void (*reserved131)(void);
2023
+ void (*tcl_EventuallyFree) (void *clientData, Tcl_FreeProc *freeProc); /* 132 */
2024
+ TCL_NORETURN1 void (*tcl_Exit) (int status); /* 133 */
2025
+ int (*tcl_ExposeCommand) (Tcl_Interp *interp, const char *hiddenCmdToken, const char *cmdName); /* 134 */
2026
+ int (*tcl_ExprBoolean) (Tcl_Interp *interp, const char *expr, int *ptr); /* 135 */
2027
+ int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */
2028
+ int (*tcl_ExprDouble) (Tcl_Interp *interp, const char *expr, double *ptr); /* 137 */
2029
+ int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */
2030
+ int (*tcl_ExprLong) (Tcl_Interp *interp, const char *expr, long *ptr); /* 139 */
2031
+ int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */
2032
+ int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */
2033
+ int (*tcl_ExprString) (Tcl_Interp *interp, const char *expr); /* 142 */
2034
+ void (*tcl_Finalize) (void); /* 143 */
2035
+ void (*reserved144)(void);
2036
+ Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */
2037
+ int (*tcl_Flush) (Tcl_Channel chan); /* 146 */
2038
+ void (*reserved147)(void);
2039
+ void (*reserved148)(void);
2040
+ int (*tclGetAliasObj) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, const char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 149 */
2041
+ void * (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */
2042
+ Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName, int *modePtr); /* 151 */
2043
+ Tcl_Size (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */
2044
+ int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, void **handlePtr); /* 153 */
2045
+ void * (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */
2046
+ int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */
2047
+ const char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */
2048
+ int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, Tcl_DString *dsPtr); /* 157 */
2049
+ const Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */
2050
+ int (*tcl_GetCommandInfo) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */
2051
+ const char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */
2052
+ int (*tcl_GetErrno) (void); /* 161 */
2053
+ const char * (*tcl_GetHostName) (void); /* 162 */
2054
+ int (*tcl_GetInterpPath) (Tcl_Interp *interp, Tcl_Interp *childInterp); /* 163 */
2055
+ Tcl_Interp * (*tcl_GetParent) (Tcl_Interp *interp); /* 164 */
2056
+ const char * (*tcl_GetNameOfExecutable) (void); /* 165 */
2057
+ Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */
2058
+ int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, void **filePtr); /* 167 */
2059
+ Tcl_PathType (*tcl_GetPathType) (const char *path); /* 168 */
2060
+ Tcl_Size (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */
2061
+ Tcl_Size (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */
2062
+ int (*tcl_GetServiceMode) (void); /* 171 */
2063
+ Tcl_Interp * (*tcl_GetChild) (Tcl_Interp *interp, const char *name); /* 172 */
2064
+ Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */
2065
+ void (*reserved174)(void);
2066
+ void (*reserved175)(void);
2067
+ const char * (*tcl_GetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 176 */
2068
+ void (*reserved177)(void);
2069
+ void (*reserved178)(void);
2070
+ int (*tcl_HideCommand) (Tcl_Interp *interp, const char *cmdName, const char *hiddenCmdToken); /* 179 */
2071
+ int (*tcl_Init) (Tcl_Interp *interp); /* 180 */
2072
+ void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */
2073
+ int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */
2074
+ int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */
2075
+ int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */
2076
+ int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */
2077
+ char * (*tcl_JoinPath) (Tcl_Size argc, const char *const *argv, Tcl_DString *resultPtr); /* 186 */
2078
+ int (*tcl_LinkVar) (Tcl_Interp *interp, const char *varName, void *addr, int type); /* 187 */
2079
+ void (*reserved188)(void);
2080
+ Tcl_Channel (*tcl_MakeFileChannel) (void *handle, int mode); /* 189 */
2081
+ void (*reserved190)(void);
2082
+ Tcl_Channel (*tcl_MakeTcpClientChannel) (void *tcpSocket); /* 191 */
2083
+ char * (*tcl_Merge) (Tcl_Size argc, const char *const *argv); /* 192 */
2084
+ Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */
2085
+ void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */
2086
+ Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */
2087
+ Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */
2088
+ Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, Tcl_Size argc, const char **argv, int flags); /* 197 */
2089
+ Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, const char *fileName, const char *modeString, int permissions); /* 198 */
2090
+ Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, const char *address, const char *myaddr, int myport, int flags); /* 199 */
2091
+ Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, const char *host, Tcl_TcpAcceptProc *acceptProc, void *callbackData); /* 200 */
2092
+ void (*tcl_Preserve) (void *data); /* 201 */
2093
+ void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */
2094
+ int (*tcl_PutEnv) (const char *assignment); /* 203 */
2095
+ const char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */
2096
+ void (*tcl_QueueEvent) (Tcl_Event *evPtr, int position); /* 205 */
2097
+ Tcl_Size (*tcl_Read) (Tcl_Channel chan, char *bufPtr, Tcl_Size toRead); /* 206 */
2098
+ void (*tcl_ReapDetachedProcs) (void); /* 207 */
2099
+ int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flags); /* 208 */
2100
+ int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */
2101
+ void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */
2102
+ void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); /* 211 */
2103
+ Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *pattern); /* 212 */
2104
+ int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const char *text, const char *start); /* 213 */
2105
+ int (*tcl_RegExpMatch) (Tcl_Interp *interp, const char *text, const char *pattern); /* 214 */
2106
+ void (*tcl_RegExpRange) (Tcl_RegExp regexp, Tcl_Size index, const char **startPtr, const char **endPtr); /* 215 */
2107
+ void (*tcl_Release) (void *clientData); /* 216 */
2108
+ void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */
2109
+ Tcl_Size (*tcl_ScanElement) (const char *src, int *flagPtr); /* 218 */
2110
+ Tcl_Size (*tcl_ScanCountedElement) (const char *src, Tcl_Size length, int *flagPtr); /* 219 */
2111
+ void (*reserved220)(void);
2112
+ int (*tcl_ServiceAll) (void); /* 221 */
2113
+ int (*tcl_ServiceEvent) (int flags); /* 222 */
2114
+ void (*tcl_SetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc *proc, void *clientData); /* 223 */
2115
+ void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, Tcl_Size sz); /* 224 */
2116
+ int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, const char *newValue); /* 225 */
2117
+ int (*tcl_SetCommandInfo) (Tcl_Interp *interp, const char *cmdName, const Tcl_CmdInfo *infoPtr); /* 226 */
2118
+ void (*tcl_SetErrno) (int err); /* 227 */
2119
+ void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */
2120
+ void (*tcl_SetMaxBlockTime) (const Tcl_Time *timePtr); /* 229 */
2121
+ void (*reserved230)(void);
2122
+ Tcl_Size (*tcl_SetRecursionLimit) (Tcl_Interp *interp, Tcl_Size depth); /* 231 */
2123
+ void (*reserved232)(void);
2124
+ int (*tcl_SetServiceMode) (int mode); /* 233 */
2125
+ void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */
2126
+ void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */
2127
+ void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */
2128
+ void (*reserved237)(void);
2129
+ const char * (*tcl_SetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, const char *newValue, int flags); /* 238 */
2130
+ const char * (*tcl_SignalId) (int sig); /* 239 */
2131
+ const char * (*tcl_SignalMsg) (int sig); /* 240 */
2132
+ void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */
2133
+ int (*tclSplitList) (Tcl_Interp *interp, const char *listStr, void *argcPtr, const char ***argvPtr); /* 242 */
2134
+ void (*tclSplitPath) (const char *path, void *argcPtr, const char ***argvPtr); /* 243 */
2135
+ void (*reserved244)(void);
2136
+ void (*reserved245)(void);
2137
+ void (*reserved246)(void);
2138
+ void (*reserved247)(void);
2139
+ int (*tcl_TraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, void *clientData); /* 248 */
2140
+ char * (*tcl_TranslateFileName) (Tcl_Interp *interp, const char *name, Tcl_DString *bufferPtr); /* 249 */
2141
+ Tcl_Size (*tcl_Ungets) (Tcl_Channel chan, const char *str, Tcl_Size len, int atHead); /* 250 */
2142
+ void (*tcl_UnlinkVar) (Tcl_Interp *interp, const char *varName); /* 251 */
2143
+ int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */
2144
+ void (*reserved253)(void);
2145
+ int (*tcl_UnsetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 254 */
2146
+ void (*reserved255)(void);
2147
+ void (*tcl_UntraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, void *clientData); /* 256 */
2148
+ void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, const char *varName); /* 257 */
2149
+ void (*reserved258)(void);
2150
+ int (*tcl_UpVar2) (Tcl_Interp *interp, const char *frameName, const char *part1, const char *part2, const char *localName, int flags); /* 259 */
2151
+ int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */
2152
+ void (*reserved261)(void);
2153
+ void * (*tcl_VarTraceInfo2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *procPtr, void *prevClientData); /* 262 */
2154
+ Tcl_Size (*tcl_Write) (Tcl_Channel chan, const char *s, Tcl_Size slen); /* 263 */
2155
+ void (*tcl_WrongNumArgs) (Tcl_Interp *interp, Tcl_Size objc, Tcl_Obj *const objv[], const char *message); /* 264 */
2156
+ int (*tcl_DumpActiveMemory) (const char *fileName); /* 265 */
2157
+ void (*tcl_ValidateAllMemory) (const char *file, int line); /* 266 */
2158
+ void (*reserved267)(void);
2159
+ void (*reserved268)(void);
2160
+ char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */
2161
+ const char * (*tcl_ParseVar) (Tcl_Interp *interp, const char *start, const char **termPtr); /* 270 */
2162
+ void (*reserved271)(void);
2163
+ const char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 272 */
2164
+ void (*reserved273)(void);
2165
+ void (*reserved274)(void);
2166
+ void (*reserved275)(void);
2167
+ void (*reserved276)(void);
2168
+ Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */
2169
+ void (*reserved278)(void);
2170
+ void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */
2171
+ void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */
2172
+ Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, const Tcl_ChannelType *typePtr, void *instanceData, int mask, Tcl_Channel prevChan); /* 281 */
2173
+ int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */
2174
+ Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */
2175
+ void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */
2176
+ int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, const char **targetCmdPtr, Tcl_Size *objcPtr, Tcl_Obj ***objvPtr); /* 285 */
2177
+ void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */
2178
+ Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType *typePtr); /* 287 */
2179
+ void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, void *clientData); /* 288 */
2180
+ void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, void *clientData); /* 289 */
2181
+ void (*reserved290)(void);
2182
+ int (*tcl_EvalEx) (Tcl_Interp *interp, const char *script, Tcl_Size numBytes, int flags); /* 291 */
2183
+ int (*tcl_EvalObjv) (Tcl_Interp *interp, Tcl_Size objc, Tcl_Obj *const objv[], int flags); /* 292 */
2184
+ int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */
2185
+ TCL_NORETURN1 void (*tcl_ExitThread) (int status); /* 294 */
2186
+ int (*tcl_ExternalToUtf) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, Tcl_Size dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 295 */
2187
+ char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, Tcl_DString *dsPtr); /* 296 */
2188
+ void (*tcl_FinalizeThread) (void); /* 297 */
2189
+ void (*tcl_FinalizeNotifier) (void *clientData); /* 298 */
2190
+ void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */
2191
+ Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */
2192
+ Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, const char *name); /* 301 */
2193
+ const char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */
2194
+ void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */
2195
+ int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, const void *tablePtr, Tcl_Size offset, const char *msg, int flags, void *indexPtr); /* 304 */
2196
+ void * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, Tcl_Size size); /* 305 */
2197
+ Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 306 */
2198
+ void * (*tcl_InitNotifier) (void); /* 307 */
2199
+ void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */
2200
+ void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */
2201
+ void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */
2202
+ void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); /* 311 */
2203
+ Tcl_Size (*tclNumUtfChars) (const char *src, Tcl_Size length); /* 312 */
2204
+ Tcl_Size (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, Tcl_Size charsToRead, int appendFlag); /* 313 */
2205
+ void (*reserved314)(void);
2206
+ void (*reserved315)(void);
2207
+ int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, const char *name); /* 316 */
2208
+ Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */
2209
+ void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */
2210
+ void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, int position); /* 319 */
2211
+ int (*tcl_UniCharAtIndex) (const char *src, Tcl_Size index); /* 320 */
2212
+ int (*tcl_UniCharToLower) (int ch); /* 321 */
2213
+ int (*tcl_UniCharToTitle) (int ch); /* 322 */
2214
+ int (*tcl_UniCharToUpper) (int ch); /* 323 */
2215
+ Tcl_Size (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */
2216
+ const char * (*tclUtfAtIndex) (const char *src, Tcl_Size index); /* 325 */
2217
+ int (*tclUtfCharComplete) (const char *src, Tcl_Size length); /* 326 */
2218
+ Tcl_Size (*tcl_UtfBackslash) (const char *src, int *readPtr, char *dst); /* 327 */
2219
+ const char * (*tcl_UtfFindFirst) (const char *src, int ch); /* 328 */
2220
+ const char * (*tcl_UtfFindLast) (const char *src, int ch); /* 329 */
2221
+ const char * (*tclUtfNext) (const char *src); /* 330 */
2222
+ const char * (*tclUtfPrev) (const char *src, const char *start); /* 331 */
2223
+ int (*tcl_UtfToExternal) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, Tcl_Size dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 332 */
2224
+ char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, Tcl_DString *dsPtr); /* 333 */
2225
+ Tcl_Size (*tcl_UtfToLower) (char *src); /* 334 */
2226
+ Tcl_Size (*tcl_UtfToTitle) (char *src); /* 335 */
2227
+ Tcl_Size (*tcl_UtfToChar16) (const char *src, unsigned short *chPtr); /* 336 */
2228
+ Tcl_Size (*tcl_UtfToUpper) (char *src); /* 337 */
2229
+ Tcl_Size (*tcl_WriteChars) (Tcl_Channel chan, const char *src, Tcl_Size srcLen); /* 338 */
2230
+ Tcl_Size (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */
2231
+ char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */
2232
+ void (*reserved341)(void);
2233
+ void (*reserved342)(void);
2234
+ void (*tcl_AlertNotifier) (void *clientData); /* 343 */
2235
+ void (*tcl_ServiceModeHook) (int mode); /* 344 */
2236
+ int (*tcl_UniCharIsAlnum) (int ch); /* 345 */
2237
+ int (*tcl_UniCharIsAlpha) (int ch); /* 346 */
2238
+ int (*tcl_UniCharIsDigit) (int ch); /* 347 */
2239
+ int (*tcl_UniCharIsLower) (int ch); /* 348 */
2240
+ int (*tcl_UniCharIsSpace) (int ch); /* 349 */
2241
+ int (*tcl_UniCharIsUpper) (int ch); /* 350 */
2242
+ int (*tcl_UniCharIsWordChar) (int ch); /* 351 */
2243
+ Tcl_Size (*tcl_Char16Len) (const unsigned short *uniStr); /* 352 */
2244
+ void (*reserved353)(void);
2245
+ char * (*tcl_Char16ToUtfDString) (const unsigned short *uniStr, Tcl_Size uniLength, Tcl_DString *dsPtr); /* 354 */
2246
+ unsigned short * (*tcl_UtfToChar16DString) (const char *src, Tcl_Size length, Tcl_DString *dsPtr); /* 355 */
2247
+ Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */
2248
+ void (*reserved357)(void);
2249
+ void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */
2250
+ void (*tcl_LogCommandInfo) (Tcl_Interp *interp, const char *script, const char *command, Tcl_Size length); /* 359 */
2251
+ int (*tcl_ParseBraces) (Tcl_Interp *interp, const char *start, Tcl_Size numBytes, Tcl_Parse *parsePtr, int append, const char **termPtr); /* 360 */
2252
+ int (*tcl_ParseCommand) (Tcl_Interp *interp, const char *start, Tcl_Size numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */
2253
+ int (*tcl_ParseExpr) (Tcl_Interp *interp, const char *start, Tcl_Size numBytes, Tcl_Parse *parsePtr); /* 362 */
2254
+ int (*tcl_ParseQuotedString) (Tcl_Interp *interp, const char *start, Tcl_Size numBytes, Tcl_Parse *parsePtr, int append, const char **termPtr); /* 363 */
2255
+ int (*tcl_ParseVarName) (Tcl_Interp *interp, const char *start, Tcl_Size numBytes, Tcl_Parse *parsePtr, int append); /* 364 */
2256
+ char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */
2257
+ int (*tcl_Chdir) (const char *dirName); /* 366 */
2258
+ int (*tcl_Access) (const char *path, int mode); /* 367 */
2259
+ int (*tcl_Stat) (const char *path, struct stat *bufPtr); /* 368 */
2260
+ int (*tclUtfNcmp) (const char *s1, const char *s2, size_t n); /* 369 */
2261
+ int (*tclUtfNcasecmp) (const char *s1, const char *s2, size_t n); /* 370 */
2262
+ int (*tcl_StringCaseMatch) (const char *str, const char *pattern, int nocase); /* 371 */
2263
+ int (*tcl_UniCharIsControl) (int ch); /* 372 */
2264
+ int (*tcl_UniCharIsGraph) (int ch); /* 373 */
2265
+ int (*tcl_UniCharIsPrint) (int ch); /* 374 */
2266
+ int (*tcl_UniCharIsPunct) (int ch); /* 375 */
2267
+ int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, Tcl_Size offset, Tcl_Size nmatches, int flags); /* 376 */
2268
+ void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */
2269
+ Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar *unicode, Tcl_Size numChars); /* 378 */
2270
+ void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, Tcl_Size numChars); /* 379 */
2271
+ Tcl_Size (*tclGetCharLength) (Tcl_Obj *objPtr); /* 380 */
2272
+ int (*tclGetUniChar) (Tcl_Obj *objPtr, Tcl_Size index); /* 381 */
2273
+ void (*reserved382)(void);
2274
+ Tcl_Obj * (*tclGetRange) (Tcl_Obj *objPtr, Tcl_Size first, Tcl_Size last); /* 383 */
2275
+ void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, Tcl_Size length); /* 384 */
2276
+ int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */
2277
+ void (*tcl_SetNotifier) (const Tcl_NotifierProcs *notifierProcPtr); /* 386 */
2278
+ Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */
2279
+ int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */
2280
+ int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, const char *pattern); /* 389 */
2281
+ int (*tcl_ProcObjCmd) (void *clientData, Tcl_Interp *interp, Tcl_Size objc, Tcl_Obj *const objv[]); /* 390 */
2282
+ void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */
2283
+ void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */
2284
+ int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc, void *clientData, TCL_HASH_TYPE stackSize, int flags); /* 393 */
2285
+ Tcl_Size (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, Tcl_Size bytesToRead); /* 394 */
2286
+ Tcl_Size (*tcl_WriteRaw) (Tcl_Channel chan, const char *src, Tcl_Size srcLen); /* 395 */
2287
+ Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */
2288
+ int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */
2289
+ const char * (*tcl_ChannelName) (const Tcl_ChannelType *chanTypePtr); /* 398 */
2290
+ Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType *chanTypePtr); /* 399 */
2291
+ Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_ChannelType *chanTypePtr); /* 400 */
2292
+ void (*reserved401)(void);
2293
+ Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType *chanTypePtr); /* 402 */
2294
+ Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType *chanTypePtr); /* 403 */
2295
+ Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType *chanTypePtr); /* 404 */
2296
+ void (*reserved405)(void);
2297
+ Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 406 */
2298
+ Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 407 */
2299
+ Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType *chanTypePtr); /* 408 */
2300
+ Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType *chanTypePtr); /* 409 */
2301
+ Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType *chanTypePtr); /* 410 */
2302
+ Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType *chanTypePtr); /* 411 */
2303
+ int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */
2304
+ int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */
2305
+ int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */
2306
+ void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */
2307
+ void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */
2308
+ void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */
2309
+ int (*tcl_IsChannelExisting) (const char *channelName); /* 418 */
2310
+ void (*reserved419)(void);
2311
+ void (*reserved420)(void);
2312
+ void (*reserved421)(void);
2313
+ Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, const void *key, int *newPtr); /* 422 */
2314
+ void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, const Tcl_HashKeyType *typePtr); /* 423 */
2315
+ void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */
2316
+ void * (*tcl_CommandTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *procPtr, void *prevClientData); /* 425 */
2317
+ int (*tcl_TraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, void *clientData); /* 426 */
2318
+ void (*tcl_UntraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, void *clientData); /* 427 */
2319
+ void * (*tcl_AttemptAlloc) (TCL_HASH_TYPE size); /* 428 */
2320
+ void * (*tcl_AttemptDbCkalloc) (TCL_HASH_TYPE size, const char *file, int line); /* 429 */
2321
+ void * (*tcl_AttemptRealloc) (void *ptr, TCL_HASH_TYPE size); /* 430 */
2322
+ void * (*tcl_AttemptDbCkrealloc) (void *ptr, TCL_HASH_TYPE size, const char *file, int line); /* 431 */
2323
+ int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, Tcl_Size length); /* 432 */
2324
+ Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */
2325
+ Tcl_UniChar * (*tclGetUnicodeFromObj) (Tcl_Obj *objPtr, void *lengthPtr); /* 434 */
2326
+ void (*reserved435)(void);
2327
+ void (*reserved436)(void);
2328
+ Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */
2329
+ int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */
2330
+ int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */
2331
+ int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */
2332
+ int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */
2333
+ int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */
2334
+ int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */
2335
+ int (*tcl_FSLoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *sym1, const char *sym2, Tcl_LibraryInitProc **proc1Ptr, Tcl_LibraryInitProc **proc2Ptr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr); /* 444 */
2336
+ int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); /* 445 */
2337
+ Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */
2338
+ int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */
2339
+ int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */
2340
+ int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */
2341
+ int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */
2342
+ int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */
2343
+ int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */
2344
+ const char *const * (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */
2345
+ int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */
2346
+ int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */
2347
+ Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *modeString, int permissions); /* 456 */
2348
+ Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */
2349
+ int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */
2350
+ int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */
2351
+ Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, Tcl_Size elements); /* 460 */
2352
+ Tcl_Obj * (*tclFSSplitPath) (Tcl_Obj *pathPtr, void *lenPtr); /* 461 */
2353
+ int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */
2354
+ Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */
2355
+ Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, Tcl_Size objc, Tcl_Obj *const objv[]); /* 464 */
2356
+ void * (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, const Tcl_Filesystem *fsPtr); /* 465 */
2357
+ Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */
2358
+ int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */
2359
+ Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem, void *clientData); /* 468 */
2360
+ const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */
2361
+ Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */
2362
+ Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */
2363
+ Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */
2364
+ int (*tcl_FSRegister) (void *clientData, const Tcl_Filesystem *fsPtr); /* 473 */
2365
+ int (*tcl_FSUnregister) (const Tcl_Filesystem *fsPtr); /* 474 */
2366
+ void * (*tcl_FSData) (const Tcl_Filesystem *fsPtr); /* 475 */
2367
+ const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */
2368
+ const Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */
2369
+ Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */
2370
+ int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */
2371
+ void (*tcl_FSMountsChanged) (const Tcl_Filesystem *fsPtr); /* 480 */
2372
+ int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, Tcl_Size count); /* 481 */
2373
+ void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */
2374
+ Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, Tcl_Size level, int flags, Tcl_CmdObjTraceProc *objProc, void *clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */
2375
+ int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */
2376
+ int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo *infoPtr); /* 485 */
2377
+ Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char *file, int line); /* 486 */
2378
+ int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */
2379
+ Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */
2380
+ void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */
2381
+ Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */
2382
+ long long (*tcl_Seek) (Tcl_Channel chan, long long offset, int mode); /* 491 */
2383
+ long long (*tcl_Tell) (Tcl_Channel chan); /* 492 */
2384
+ Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 493 */
2385
+ int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */
2386
+ int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */
2387
+ int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */
2388
+ int (*tclDictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, void *sizePtr); /* 497 */
2389
+ int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */
2390
+ void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */
2391
+ void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */
2392
+ int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Size keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); /* 501 */
2393
+ int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Size keyc, Tcl_Obj *const *keyv); /* 502 */
2394
+ Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */
2395
+ Tcl_Obj * (*tcl_DbNewDictObj) (const char *file, int line); /* 504 */
2396
+ void (*tcl_RegisterConfig) (Tcl_Interp *interp, const char *pkgName, const Tcl_Config *configuration, const char *valEncoding); /* 505 */
2397
+ Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, void *clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */
2398
+ void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */
2399
+ int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */
2400
+ int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 509 */
2401
+ int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 510 */
2402
+ int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 511 */
2403
+ Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */
2404
+ Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */
2405
+ Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */
2406
+ Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */
2407
+ Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */
2408
+ void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */
2409
+ int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, const char *encodingName); /* 518 */
2410
+ void (*reserved519)(void);
2411
+ void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, void *clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */
2412
+ void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, void *clientData); /* 521 */
2413
+ int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */
2414
+ int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */
2415
+ int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */
2416
+ void (*tcl_LimitSetCommands) (Tcl_Interp *interp, Tcl_Size commandLimit); /* 525 */
2417
+ void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */
2418
+ void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */
2419
+ int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */
2420
+ int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */
2421
+ void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */
2422
+ void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */
2423
+ Tcl_Size (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */
2424
+ void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */
2425
+ int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */
2426
+ Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */
2427
+ int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */
2428
+ void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */
2429
+ int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */
2430
+ Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */
2431
+ int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */
2432
+ Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, const char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */
2433
+ Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */
2434
+ int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */
2435
+ int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */
2436
+ int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */
2437
+ int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */
2438
+ int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */
2439
+ int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */
2440
+ int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */
2441
+ int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */
2442
+ int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */
2443
+ void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, void *clientData); /* 552 */
2444
+ void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, void **clientData); /* 553 */
2445
+ Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType *chanTypePtr); /* 554 */
2446
+ Tcl_Obj * (*tcl_NewBignumObj) (void *value); /* 555 */
2447
+ Tcl_Obj * (*tcl_DbNewBignumObj) (void *value, const char *file, int line); /* 556 */
2448
+ void (*tcl_SetBignumObj) (Tcl_Obj *obj, void *value); /* 557 */
2449
+ int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, void *value); /* 558 */
2450
+ int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, void *value); /* 559 */
2451
+ int (*tcl_TruncateChannel) (Tcl_Channel chan, long long length); /* 560 */
2452
+ Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType *chanTypePtr); /* 561 */
2453
+ void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */
2454
+ void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */
2455
+ void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */
2456
+ void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */
2457
+ int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, void *toInit); /* 566 */
2458
+ Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */
2459
+ int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */
2460
+ int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */
2461
+ Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */
2462
+ int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */
2463
+ const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */
2464
+ int (*tcl_PkgRequireProc) (Tcl_Interp *interp, const char *name, Tcl_Size objc, Tcl_Obj *const objv[], void *clientDataPtr); /* 573 */
2465
+ void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */
2466
+ void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, const char *bytes, Tcl_Size length, Tcl_Size limit, const char *ellipsis); /* 575 */
2467
+ Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, const char *format, Tcl_Size objc, Tcl_Obj *const objv[]); /* 576 */
2468
+ int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, const char *format, Tcl_Size objc, Tcl_Obj *const objv[]); /* 577 */
2469
+ Tcl_Obj * (*tcl_ObjPrintf) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 578 */
2470
+ void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, const char *format, ...) TCL_FORMAT_PRINTF(2, 3); /* 579 */
2471
+ int (*tcl_CancelEval) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr, void *clientData, int flags); /* 580 */
2472
+ int (*tcl_Canceled) (Tcl_Interp *interp, int flags); /* 581 */
2473
+ int (*tcl_CreatePipe) (Tcl_Interp *interp, Tcl_Channel *rchan, Tcl_Channel *wchan, int flags); /* 582 */
2474
+ Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, Tcl_ObjCmdProc *nreProc, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 583 */
2475
+ int (*tcl_NREvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 584 */
2476
+ int (*tcl_NREvalObjv) (Tcl_Interp *interp, Tcl_Size objc, Tcl_Obj *const objv[], int flags); /* 585 */
2477
+ int (*tcl_NRCmdSwap) (Tcl_Interp *interp, Tcl_Command cmd, Tcl_Size objc, Tcl_Obj *const objv[], int flags); /* 586 */
2478
+ void (*tcl_NRAddCallback) (Tcl_Interp *interp, Tcl_NRPostProc *postProcPtr, void *data0, void *data1, void *data2, void *data3); /* 587 */
2479
+ int (*tcl_NRCallObjProc) (Tcl_Interp *interp, Tcl_ObjCmdProc *objProc, void *clientData, Tcl_Size objc, Tcl_Obj *const objv[]); /* 588 */
2480
+ unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf *statPtr); /* 589 */
2481
+ unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf *statPtr); /* 590 */
2482
+ unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf *statPtr); /* 591 */
2483
+ int (*tcl_GetLinkCountFromStat) (const Tcl_StatBuf *statPtr); /* 592 */
2484
+ int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); /* 593 */
2485
+ int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); /* 594 */
2486
+ int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); /* 595 */
2487
+ long long (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); /* 596 */
2488
+ long long (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); /* 597 */
2489
+ long long (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); /* 598 */
2490
+ unsigned long long (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 599 */
2491
+ unsigned long long (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /* 600 */
2492
+ unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); /* 601 */
2493
+ int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *paramList); /* 602 */
2494
+ int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **paramListPtr); /* 603 */
2495
+ int (*tclParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, void *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 604 */
2496
+ int (*tcl_GetErrorLine) (Tcl_Interp *interp); /* 605 */
2497
+ void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); /* 606 */
2498
+ void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int code, Tcl_Interp *targetInterp); /* 607 */
2499
+ int (*tcl_InterpActive) (Tcl_Interp *interp); /* 608 */
2500
+ void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 609 */
2501
+ int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int level, Tcl_Obj *gzipHeaderDictObj); /* 610 */
2502
+ int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, Tcl_Size buffersize, Tcl_Obj *gzipHeaderDictObj); /* 611 */
2503
+ unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const unsigned char *buf, Tcl_Size len); /* 612 */
2504
+ unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const unsigned char *buf, Tcl_Size len); /* 613 */
2505
+ int (*tcl_ZlibStreamInit) (Tcl_Interp *interp, int mode, int format, int level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle); /* 614 */
2506
+ Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); /* 615 */
2507
+ int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); /* 616 */
2508
+ int (*tcl_ZlibStreamChecksum) (Tcl_ZlibStream zshandle); /* 617 */
2509
+ int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int flush); /* 618 */
2510
+ int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj *data, Tcl_Size count); /* 619 */
2511
+ int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); /* 620 */
2512
+ int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); /* 621 */
2513
+ void (*tcl_SetStartupScript) (Tcl_Obj *path, const char *encoding); /* 622 */
2514
+ Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingPtr); /* 623 */
2515
+ int (*tcl_CloseEx) (Tcl_Interp *interp, Tcl_Channel chan, int flags); /* 624 */
2516
+ int (*tcl_NRExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr); /* 625 */
2517
+ int (*tcl_NRSubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 626 */
2518
+ int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); /* 627 */
2519
+ void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); /* 628 */
2520
+ int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); /* 629 */
2521
+ void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); /* 630 */
2522
+ Tcl_Channel (*tcl_OpenTcpServerEx) (Tcl_Interp *interp, const char *service, const char *host, unsigned int flags, int backlog, Tcl_TcpAcceptProc *acceptProc, void *callbackData); /* 631 */
2523
+ int (*tclZipfs_Mount) (Tcl_Interp *interp, const char *zipname, const char *mountPoint, const char *passwd); /* 632 */
2524
+ int (*tclZipfs_Unmount) (Tcl_Interp *interp, const char *mountPoint); /* 633 */
2525
+ Tcl_Obj * (*tclZipfs_TclLibrary) (void); /* 634 */
2526
+ int (*tclZipfs_MountBuffer) (Tcl_Interp *interp, const void *data, size_t datalen, const char *mountPoint, int copy); /* 635 */
2527
+ void (*tcl_FreeInternalRep) (Tcl_Obj *objPtr); /* 636 */
2528
+ char * (*tcl_InitStringRep) (Tcl_Obj *objPtr, const char *bytes, TCL_HASH_TYPE numBytes); /* 637 */
2529
+ Tcl_ObjInternalRep * (*tcl_FetchInternalRep) (Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); /* 638 */
2530
+ void (*tcl_StoreInternalRep) (Tcl_Obj *objPtr, const Tcl_ObjType *typePtr, const Tcl_ObjInternalRep *irPtr); /* 639 */
2531
+ int (*tcl_HasStringRep) (Tcl_Obj *objPtr); /* 640 */
2532
+ void (*tcl_IncrRefCount) (Tcl_Obj *objPtr); /* 641 */
2533
+ void (*tcl_DecrRefCount) (Tcl_Obj *objPtr); /* 642 */
2534
+ int (*tcl_IsShared) (Tcl_Obj *objPtr); /* 643 */
2535
+ int (*tcl_LinkArray) (Tcl_Interp *interp, const char *varName, void *addr, int type, Tcl_Size size); /* 644 */
2536
+ int (*tcl_GetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Size endValue, Tcl_Size *indexPtr); /* 645 */
2537
+ Tcl_Size (*tcl_UtfToUniChar) (const char *src, int *chPtr); /* 646 */
2538
+ char * (*tcl_UniCharToUtfDString) (const int *uniStr, Tcl_Size uniLength, Tcl_DString *dsPtr); /* 647 */
2539
+ int * (*tcl_UtfToUniCharDString) (const char *src, Tcl_Size length, Tcl_DString *dsPtr); /* 648 */
2540
+ unsigned char * (*tclGetBytesFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, void *numBytesPtr); /* 649 */
2541
+ unsigned char * (*tcl_GetBytesFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Size *numBytesPtr); /* 650 */
2542
+ char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, Tcl_Size *lengthPtr); /* 651 */
2543
+ Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, Tcl_Size *lengthPtr); /* 652 */
2544
+ int (*tcl_GetSizeIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Size *sizePtr); /* 653 */
2545
+ int (*tcl_UtfCharComplete) (const char *src, Tcl_Size length); /* 654 */
2546
+ const char * (*tcl_UtfNext) (const char *src); /* 655 */
2547
+ const char * (*tcl_UtfPrev) (const char *src, const char *start); /* 656 */
2548
+ int (*tcl_FSTildeExpand) (Tcl_Interp *interp, const char *path, Tcl_DString *dsPtr); /* 657 */
2549
+ int (*tcl_ExternalToUtfDStringEx) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, int flags, Tcl_DString *dsPtr, Tcl_Size *errorLocationPtr); /* 658 */
2550
+ int (*tcl_UtfToExternalDStringEx) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, int flags, Tcl_DString *dsPtr, Tcl_Size *errorLocationPtr); /* 659 */
2551
+ int (*tcl_AsyncMarkFromSignal) (Tcl_AsyncHandler async, int sigNumber); /* 660 */
2552
+ int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Size *objcPtr, Tcl_Obj ***objvPtr); /* 661 */
2553
+ int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Size *lengthPtr); /* 662 */
2554
+ int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Size *sizePtr); /* 663 */
2555
+ int (*tcl_SplitList) (Tcl_Interp *interp, const char *listStr, Tcl_Size *argcPtr, const char ***argvPtr); /* 664 */
2556
+ void (*tcl_SplitPath) (const char *path, Tcl_Size *argcPtr, const char ***argvPtr); /* 665 */
2557
+ Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, Tcl_Size *lenPtr); /* 666 */
2558
+ int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, Tcl_Size *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 667 */
2559
+ Tcl_Size (*tcl_UniCharLen) (const int *uniStr); /* 668 */
2560
+ Tcl_Size (*tcl_NumUtfChars) (const char *src, Tcl_Size length); /* 669 */
2561
+ Tcl_Size (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 670 */
2562
+ const char * (*tcl_UtfAtIndex) (const char *src, Tcl_Size index); /* 671 */
2563
+ Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, Tcl_Size first, Tcl_Size last); /* 672 */
2564
+ int (*tcl_GetUniChar) (Tcl_Obj *objPtr, Tcl_Size index); /* 673 */
2565
+ int (*tcl_GetBool) (Tcl_Interp *interp, const char *src, int flags, char *charPtr); /* 674 */
2566
+ int (*tcl_GetBoolFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, char *charPtr); /* 675 */
2567
+ Tcl_Command (*tcl_CreateObjCommand2) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc2 *proc2, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 676 */
2568
+ Tcl_Trace (*tcl_CreateObjTrace2) (Tcl_Interp *interp, Tcl_Size level, int flags, Tcl_CmdObjTraceProc2 *objProc2, void *clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 677 */
2569
+ Tcl_Command (*tcl_NRCreateCommand2) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc2 *proc, Tcl_ObjCmdProc2 *nreProc2, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 678 */
2570
+ int (*tcl_NRCallObjProc2) (Tcl_Interp *interp, Tcl_ObjCmdProc2 *objProc2, void *clientData, Tcl_Size objc, Tcl_Obj *const objv[]); /* 679 */
2571
+ int (*tcl_GetNumberFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, void **clientDataPtr, int *typePtr); /* 680 */
2572
+ int (*tcl_GetNumber) (Tcl_Interp *interp, const char *bytes, Tcl_Size numBytes, void **clientDataPtr, int *typePtr); /* 681 */
2573
+ int (*tcl_RemoveChannelMode) (Tcl_Interp *interp, Tcl_Channel chan, int mode); /* 682 */
2574
+ Tcl_Size (*tcl_GetEncodingNulLength) (Tcl_Encoding encoding); /* 683 */
2575
+ int (*tcl_GetWideUIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideUInt *uwidePtr); /* 684 */
2576
+ Tcl_Obj * (*tcl_DStringToObj) (Tcl_DString *dsPtr); /* 685 */
2577
+ int (*tcl_UtfNcmp) (const char *s1, const char *s2, size_t n); /* 686 */
2578
+ int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, size_t n); /* 687 */
2579
+ Tcl_Obj * (*tcl_NewWideUIntObj) (Tcl_WideUInt wideValue); /* 688 */
2580
+ void (*tcl_SetWideUIntObj) (Tcl_Obj *objPtr, Tcl_WideUInt uwideValue); /* 689 */
2581
+ void (*tclUnusedStubEntry) (void); /* 690 */
2582
+} TclStubs;
2583
+
2584
+extern const TclStubs *tclStubsPtr;
2585
+
2586
+#ifdef __cplusplus
2587
+}
2588
+#endif
2589
+
2590
+#if defined(USE_TCL_STUBS)
2591
+
2592
+/*
2593
+ * Inline function declarations:
2594
+ */
2595
+
2596
+#define Tcl_PkgProvideEx \
2597
+ (tclStubsPtr->tcl_PkgProvideEx) /* 0 */
2598
+#define Tcl_PkgRequireEx \
2599
+ (tclStubsPtr->tcl_PkgRequireEx) /* 1 */
2600
+#define Tcl_Panic \
2601
+ (tclStubsPtr->tcl_Panic) /* 2 */
2602
+#define Tcl_Alloc \
2603
+ (tclStubsPtr->tcl_Alloc) /* 3 */
2604
+#define Tcl_Free \
2605
+ (tclStubsPtr->tcl_Free) /* 4 */
2606
+#define Tcl_Realloc \
2607
+ (tclStubsPtr->tcl_Realloc) /* 5 */
2608
+#define Tcl_DbCkalloc \
2609
+ (tclStubsPtr->tcl_DbCkalloc) /* 6 */
2610
+#define Tcl_DbCkfree \
2611
+ (tclStubsPtr->tcl_DbCkfree) /* 7 */
2612
+#define Tcl_DbCkrealloc \
2613
+ (tclStubsPtr->tcl_DbCkrealloc) /* 8 */
2614
+#define Tcl_CreateFileHandler \
2615
+ (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
2616
+#define Tcl_DeleteFileHandler \
2617
+ (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
2618
+#define Tcl_SetTimer \
2619
+ (tclStubsPtr->tcl_SetTimer) /* 11 */
2620
+#define Tcl_Sleep \
2621
+ (tclStubsPtr->tcl_Sleep) /* 12 */
2622
+#define Tcl_WaitForEvent \
2623
+ (tclStubsPtr->tcl_WaitForEvent) /* 13 */
2624
+#define Tcl_AppendAllObjTypes \
2625
+ (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */
2626
+#define Tcl_AppendStringsToObj \
2627
+ (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */
2628
+#define Tcl_AppendToObj \
2629
+ (tclStubsPtr->tcl_AppendToObj) /* 16 */
2630
+#define Tcl_ConcatObj \
2631
+ (tclStubsPtr->tcl_ConcatObj) /* 17 */
2632
+#define Tcl_ConvertToType \
2633
+ (tclStubsPtr->tcl_ConvertToType) /* 18 */
2634
+#define Tcl_DbDecrRefCount \
2635
+ (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */
2636
+#define Tcl_DbIncrRefCount \
2637
+ (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */
2638
+#define Tcl_DbIsShared \
2639
+ (tclStubsPtr->tcl_DbIsShared) /* 21 */
2640
+/* Slot 22 is reserved */
2641
+#define Tcl_DbNewByteArrayObj \
2642
+ (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */
2643
+#define Tcl_DbNewDoubleObj \
2644
+ (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */
2645
+#define Tcl_DbNewListObj \
2646
+ (tclStubsPtr->tcl_DbNewListObj) /* 25 */
2647
+/* Slot 26 is reserved */
2648
+#define Tcl_DbNewObj \
2649
+ (tclStubsPtr->tcl_DbNewObj) /* 27 */
2650
+#define Tcl_DbNewStringObj \
2651
+ (tclStubsPtr->tcl_DbNewStringObj) /* 28 */
2652
+#define Tcl_DuplicateObj \
2653
+ (tclStubsPtr->tcl_DuplicateObj) /* 29 */
2654
+#define TclFreeObj \
2655
+ (tclStubsPtr->tclFreeObj) /* 30 */
2656
+#define Tcl_GetBoolean \
2657
+ (tclStubsPtr->tcl_GetBoolean) /* 31 */
2658
+#define Tcl_GetBooleanFromObj \
2659
+ (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */
2660
+#define Tcl_GetByteArrayFromObj \
2661
+ (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */
2662
+#define Tcl_GetDouble \
2663
+ (tclStubsPtr->tcl_GetDouble) /* 34 */
2664
+#define Tcl_GetDoubleFromObj \
2665
+ (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */
2666
+/* Slot 36 is reserved */
2667
+#define Tcl_GetInt \
2668
+ (tclStubsPtr->tcl_GetInt) /* 37 */
2669
+#define Tcl_GetIntFromObj \
2670
+ (tclStubsPtr->tcl_GetIntFromObj) /* 38 */
2671
+#define Tcl_GetLongFromObj \
2672
+ (tclStubsPtr->tcl_GetLongFromObj) /* 39 */
2673
+#define Tcl_GetObjType \
2674
+ (tclStubsPtr->tcl_GetObjType) /* 40 */
2675
+#define TclGetStringFromObj \
2676
+ (tclStubsPtr->tclGetStringFromObj) /* 41 */
2677
+#define Tcl_InvalidateStringRep \
2678
+ (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */
2679
+#define Tcl_ListObjAppendList \
2680
+ (tclStubsPtr->tcl_ListObjAppendList) /* 43 */
2681
+#define Tcl_ListObjAppendElement \
2682
+ (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */
2683
+#define TclListObjGetElements \
2684
+ (tclStubsPtr->tclListObjGetElements) /* 45 */
2685
+#define Tcl_ListObjIndex \
2686
+ (tclStubsPtr->tcl_ListObjIndex) /* 46 */
2687
+#define TclListObjLength \
2688
+ (tclStubsPtr->tclListObjLength) /* 47 */
2689
+#define Tcl_ListObjReplace \
2690
+ (tclStubsPtr->tcl_ListObjReplace) /* 48 */
2691
+/* Slot 49 is reserved */
2692
+#define Tcl_NewByteArrayObj \
2693
+ (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */
2694
+#define Tcl_NewDoubleObj \
2695
+ (tclStubsPtr->tcl_NewDoubleObj) /* 51 */
2696
+/* Slot 52 is reserved */
2697
+#define Tcl_NewListObj \
2698
+ (tclStubsPtr->tcl_NewListObj) /* 53 */
2699
+/* Slot 54 is reserved */
2700
+#define Tcl_NewObj \
2701
+ (tclStubsPtr->tcl_NewObj) /* 55 */
2702
+#define Tcl_NewStringObj \
2703
+ (tclStubsPtr->tcl_NewStringObj) /* 56 */
2704
+/* Slot 57 is reserved */
2705
+#define Tcl_SetByteArrayLength \
2706
+ (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */
2707
+#define Tcl_SetByteArrayObj \
2708
+ (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */
2709
+#define Tcl_SetDoubleObj \
2710
+ (tclStubsPtr->tcl_SetDoubleObj) /* 60 */
2711
+/* Slot 61 is reserved */
2712
+#define Tcl_SetListObj \
2713
+ (tclStubsPtr->tcl_SetListObj) /* 62 */
2714
+/* Slot 63 is reserved */
2715
+#define Tcl_SetObjLength \
2716
+ (tclStubsPtr->tcl_SetObjLength) /* 64 */
2717
+#define Tcl_SetStringObj \
2718
+ (tclStubsPtr->tcl_SetStringObj) /* 65 */
2719
+/* Slot 66 is reserved */
2720
+/* Slot 67 is reserved */
2721
+#define Tcl_AllowExceptions \
2722
+ (tclStubsPtr->tcl_AllowExceptions) /* 68 */
2723
+#define Tcl_AppendElement \
2724
+ (tclStubsPtr->tcl_AppendElement) /* 69 */
2725
+#define Tcl_AppendResult \
2726
+ (tclStubsPtr->tcl_AppendResult) /* 70 */
2727
+#define Tcl_AsyncCreate \
2728
+ (tclStubsPtr->tcl_AsyncCreate) /* 71 */
2729
+#define Tcl_AsyncDelete \
2730
+ (tclStubsPtr->tcl_AsyncDelete) /* 72 */
2731
+#define Tcl_AsyncInvoke \
2732
+ (tclStubsPtr->tcl_AsyncInvoke) /* 73 */
2733
+#define Tcl_AsyncMark \
2734
+ (tclStubsPtr->tcl_AsyncMark) /* 74 */
2735
+#define Tcl_AsyncReady \
2736
+ (tclStubsPtr->tcl_AsyncReady) /* 75 */
2737
+/* Slot 76 is reserved */
2738
+/* Slot 77 is reserved */
2739
+#define Tcl_BadChannelOption \
2740
+ (tclStubsPtr->tcl_BadChannelOption) /* 78 */
2741
+#define Tcl_CallWhenDeleted \
2742
+ (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */
2743
+#define Tcl_CancelIdleCall \
2744
+ (tclStubsPtr->tcl_CancelIdleCall) /* 80 */
2745
+#define Tcl_Close \
2746
+ (tclStubsPtr->tcl_Close) /* 81 */
2747
+#define Tcl_CommandComplete \
2748
+ (tclStubsPtr->tcl_CommandComplete) /* 82 */
2749
+#define Tcl_Concat \
2750
+ (tclStubsPtr->tcl_Concat) /* 83 */
2751
+#define Tcl_ConvertElement \
2752
+ (tclStubsPtr->tcl_ConvertElement) /* 84 */
2753
+#define Tcl_ConvertCountedElement \
2754
+ (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */
2755
+#define Tcl_CreateAlias \
2756
+ (tclStubsPtr->tcl_CreateAlias) /* 86 */
2757
+#define Tcl_CreateAliasObj \
2758
+ (tclStubsPtr->tcl_CreateAliasObj) /* 87 */
2759
+#define Tcl_CreateChannel \
2760
+ (tclStubsPtr->tcl_CreateChannel) /* 88 */
2761
+#define Tcl_CreateChannelHandler \
2762
+ (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */
2763
+#define Tcl_CreateCloseHandler \
2764
+ (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */
2765
+#define Tcl_CreateCommand \
2766
+ (tclStubsPtr->tcl_CreateCommand) /* 91 */
2767
+#define Tcl_CreateEventSource \
2768
+ (tclStubsPtr->tcl_CreateEventSource) /* 92 */
2769
+#define Tcl_CreateExitHandler \
2770
+ (tclStubsPtr->tcl_CreateExitHandler) /* 93 */
2771
+#define Tcl_CreateInterp \
2772
+ (tclStubsPtr->tcl_CreateInterp) /* 94 */
2773
+/* Slot 95 is reserved */
2774
+#define Tcl_CreateObjCommand \
2775
+ (tclStubsPtr->tcl_CreateObjCommand) /* 96 */
2776
+#define Tcl_CreateChild \
2777
+ (tclStubsPtr->tcl_CreateChild) /* 97 */
2778
+#define Tcl_CreateTimerHandler \
2779
+ (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */
2780
+#define Tcl_CreateTrace \
2781
+ (tclStubsPtr->tcl_CreateTrace) /* 99 */
2782
+#define Tcl_DeleteAssocData \
2783
+ (tclStubsPtr->tcl_DeleteAssocData) /* 100 */
2784
+#define Tcl_DeleteChannelHandler \
2785
+ (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */
2786
+#define Tcl_DeleteCloseHandler \
2787
+ (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */
2788
+#define Tcl_DeleteCommand \
2789
+ (tclStubsPtr->tcl_DeleteCommand) /* 103 */
2790
+#define Tcl_DeleteCommandFromToken \
2791
+ (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */
2792
+#define Tcl_DeleteEvents \
2793
+ (tclStubsPtr->tcl_DeleteEvents) /* 105 */
2794
+#define Tcl_DeleteEventSource \
2795
+ (tclStubsPtr->tcl_DeleteEventSource) /* 106 */
2796
+#define Tcl_DeleteExitHandler \
2797
+ (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */
2798
+#define Tcl_DeleteHashEntry \
2799
+ (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */
2800
+#define Tcl_DeleteHashTable \
2801
+ (tclStubsPtr->tcl_DeleteHashTable) /* 109 */
2802
+#define Tcl_DeleteInterp \
2803
+ (tclStubsPtr->tcl_DeleteInterp) /* 110 */
2804
+#define Tcl_DetachPids \
2805
+ (tclStubsPtr->tcl_DetachPids) /* 111 */
2806
+#define Tcl_DeleteTimerHandler \
2807
+ (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */
2808
+#define Tcl_DeleteTrace \
2809
+ (tclStubsPtr->tcl_DeleteTrace) /* 113 */
2810
+#define Tcl_DontCallWhenDeleted \
2811
+ (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */
2812
+#define Tcl_DoOneEvent \
2813
+ (tclStubsPtr->tcl_DoOneEvent) /* 115 */
2814
+#define Tcl_DoWhenIdle \
2815
+ (tclStubsPtr->tcl_DoWhenIdle) /* 116 */
2816
+#define Tcl_DStringAppend \
2817
+ (tclStubsPtr->tcl_DStringAppend) /* 117 */
2818
+#define Tcl_DStringAppendElement \
2819
+ (tclStubsPtr->tcl_DStringAppendElement) /* 118 */
2820
+#define Tcl_DStringEndSublist \
2821
+ (tclStubsPtr->tcl_DStringEndSublist) /* 119 */
2822
+#define Tcl_DStringFree \
2823
+ (tclStubsPtr->tcl_DStringFree) /* 120 */
2824
+#define Tcl_DStringGetResult \
2825
+ (tclStubsPtr->tcl_DStringGetResult) /* 121 */
2826
+#define Tcl_DStringInit \
2827
+ (tclStubsPtr->tcl_DStringInit) /* 122 */
2828
+#define Tcl_DStringResult \
2829
+ (tclStubsPtr->tcl_DStringResult) /* 123 */
2830
+#define Tcl_DStringSetLength \
2831
+ (tclStubsPtr->tcl_DStringSetLength) /* 124 */
2832
+#define Tcl_DStringStartSublist \
2833
+ (tclStubsPtr->tcl_DStringStartSublist) /* 125 */
2834
+#define Tcl_Eof \
2835
+ (tclStubsPtr->tcl_Eof) /* 126 */
2836
+#define Tcl_ErrnoId \
2837
+ (tclStubsPtr->tcl_ErrnoId) /* 127 */
2838
+#define Tcl_ErrnoMsg \
2839
+ (tclStubsPtr->tcl_ErrnoMsg) /* 128 */
2840
+/* Slot 129 is reserved */
2841
+#define Tcl_EvalFile \
2842
+ (tclStubsPtr->tcl_EvalFile) /* 130 */
2843
+/* Slot 131 is reserved */
2844
+#define Tcl_EventuallyFree \
2845
+ (tclStubsPtr->tcl_EventuallyFree) /* 132 */
2846
+#define Tcl_Exit \
2847
+ (tclStubsPtr->tcl_Exit) /* 133 */
2848
+#define Tcl_ExposeCommand \
2849
+ (tclStubsPtr->tcl_ExposeCommand) /* 134 */
2850
+#define Tcl_ExprBoolean \
2851
+ (tclStubsPtr->tcl_ExprBoolean) /* 135 */
2852
+#define Tcl_ExprBooleanObj \
2853
+ (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */
2854
+#define Tcl_ExprDouble \
2855
+ (tclStubsPtr->tcl_ExprDouble) /* 137 */
2856
+#define Tcl_ExprDoubleObj \
2857
+ (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */
2858
+#define Tcl_ExprLong \
2859
+ (tclStubsPtr->tcl_ExprLong) /* 139 */
2860
+#define Tcl_ExprLongObj \
2861
+ (tclStubsPtr->tcl_ExprLongObj) /* 140 */
2862
+#define Tcl_ExprObj \
2863
+ (tclStubsPtr->tcl_ExprObj) /* 141 */
2864
+#define Tcl_ExprString \
2865
+ (tclStubsPtr->tcl_ExprString) /* 142 */
2866
+#define Tcl_Finalize \
2867
+ (tclStubsPtr->tcl_Finalize) /* 143 */
2868
+/* Slot 144 is reserved */
2869
+#define Tcl_FirstHashEntry \
2870
+ (tclStubsPtr->tcl_FirstHashEntry) /* 145 */
2871
+#define Tcl_Flush \
2872
+ (tclStubsPtr->tcl_Flush) /* 146 */
2873
+/* Slot 147 is reserved */
2874
+/* Slot 148 is reserved */
2875
+#define TclGetAliasObj \
2876
+ (tclStubsPtr->tclGetAliasObj) /* 149 */
2877
+#define Tcl_GetAssocData \
2878
+ (tclStubsPtr->tcl_GetAssocData) /* 150 */
2879
+#define Tcl_GetChannel \
2880
+ (tclStubsPtr->tcl_GetChannel) /* 151 */
2881
+#define Tcl_GetChannelBufferSize \
2882
+ (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */
2883
+#define Tcl_GetChannelHandle \
2884
+ (tclStubsPtr->tcl_GetChannelHandle) /* 153 */
2885
+#define Tcl_GetChannelInstanceData \
2886
+ (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */
2887
+#define Tcl_GetChannelMode \
2888
+ (tclStubsPtr->tcl_GetChannelMode) /* 155 */
2889
+#define Tcl_GetChannelName \
2890
+ (tclStubsPtr->tcl_GetChannelName) /* 156 */
2891
+#define Tcl_GetChannelOption \
2892
+ (tclStubsPtr->tcl_GetChannelOption) /* 157 */
2893
+#define Tcl_GetChannelType \
2894
+ (tclStubsPtr->tcl_GetChannelType) /* 158 */
2895
+#define Tcl_GetCommandInfo \
2896
+ (tclStubsPtr->tcl_GetCommandInfo) /* 159 */
2897
+#define Tcl_GetCommandName \
2898
+ (tclStubsPtr->tcl_GetCommandName) /* 160 */
2899
+#define Tcl_GetErrno \
2900
+ (tclStubsPtr->tcl_GetErrno) /* 161 */
2901
+#define Tcl_GetHostName \
2902
+ (tclStubsPtr->tcl_GetHostName) /* 162 */
2903
+#define Tcl_GetInterpPath \
2904
+ (tclStubsPtr->tcl_GetInterpPath) /* 163 */
2905
+#define Tcl_GetParent \
2906
+ (tclStubsPtr->tcl_GetParent) /* 164 */
2907
+#define Tcl_GetNameOfExecutable \
2908
+ (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */
2909
+#define Tcl_GetObjResult \
2910
+ (tclStubsPtr->tcl_GetObjResult) /* 166 */
2911
+#define Tcl_GetOpenFile \
2912
+ (tclStubsPtr->tcl_GetOpenFile) /* 167 */
2913
+#define Tcl_GetPathType \
2914
+ (tclStubsPtr->tcl_GetPathType) /* 168 */
2915
+#define Tcl_Gets \
2916
+ (tclStubsPtr->tcl_Gets) /* 169 */
2917
+#define Tcl_GetsObj \
2918
+ (tclStubsPtr->tcl_GetsObj) /* 170 */
2919
+#define Tcl_GetServiceMode \
2920
+ (tclStubsPtr->tcl_GetServiceMode) /* 171 */
2921
+#define Tcl_GetChild \
2922
+ (tclStubsPtr->tcl_GetChild) /* 172 */
2923
+#define Tcl_GetStdChannel \
2924
+ (tclStubsPtr->tcl_GetStdChannel) /* 173 */
2925
+/* Slot 174 is reserved */
2926
+/* Slot 175 is reserved */
2927
+#define Tcl_GetVar2 \
2928
+ (tclStubsPtr->tcl_GetVar2) /* 176 */
2929
+/* Slot 177 is reserved */
2930
+/* Slot 178 is reserved */
2931
+#define Tcl_HideCommand \
2932
+ (tclStubsPtr->tcl_HideCommand) /* 179 */
2933
+#define Tcl_Init \
2934
+ (tclStubsPtr->tcl_Init) /* 180 */
2935
+#define Tcl_InitHashTable \
2936
+ (tclStubsPtr->tcl_InitHashTable) /* 181 */
2937
+#define Tcl_InputBlocked \
2938
+ (tclStubsPtr->tcl_InputBlocked) /* 182 */
2939
+#define Tcl_InputBuffered \
2940
+ (tclStubsPtr->tcl_InputBuffered) /* 183 */
2941
+#define Tcl_InterpDeleted \
2942
+ (tclStubsPtr->tcl_InterpDeleted) /* 184 */
2943
+#define Tcl_IsSafe \
2944
+ (tclStubsPtr->tcl_IsSafe) /* 185 */
2945
+#define Tcl_JoinPath \
2946
+ (tclStubsPtr->tcl_JoinPath) /* 186 */
2947
+#define Tcl_LinkVar \
2948
+ (tclStubsPtr->tcl_LinkVar) /* 187 */
2949
+/* Slot 188 is reserved */
2950
+#define Tcl_MakeFileChannel \
2951
+ (tclStubsPtr->tcl_MakeFileChannel) /* 189 */
2952
+/* Slot 190 is reserved */
2953
+#define Tcl_MakeTcpClientChannel \
2954
+ (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */
2955
+#define Tcl_Merge \
2956
+ (tclStubsPtr->tcl_Merge) /* 192 */
2957
+#define Tcl_NextHashEntry \
2958
+ (tclStubsPtr->tcl_NextHashEntry) /* 193 */
2959
+#define Tcl_NotifyChannel \
2960
+ (tclStubsPtr->tcl_NotifyChannel) /* 194 */
2961
+#define Tcl_ObjGetVar2 \
2962
+ (tclStubsPtr->tcl_ObjGetVar2) /* 195 */
2963
+#define Tcl_ObjSetVar2 \
2964
+ (tclStubsPtr->tcl_ObjSetVar2) /* 196 */
2965
+#define Tcl_OpenCommandChannel \
2966
+ (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
2967
+#define Tcl_OpenFileChannel \
2968
+ (tclStubsPtr->tcl_OpenFileChannel) /* 198 */
2969
+#define Tcl_OpenTcpClient \
2970
+ (tclStubsPtr->tcl_OpenTcpClient) /* 199 */
2971
+#define Tcl_OpenTcpServer \
2972
+ (tclStubsPtr->tcl_OpenTcpServer) /* 200 */
2973
+#define Tcl_Preserve \
2974
+ (tclStubsPtr->tcl_Preserve) /* 201 */
2975
+#define Tcl_PrintDouble \
2976
+ (tclStubsPtr->tcl_PrintDouble) /* 202 */
2977
+#define Tcl_PutEnv \
2978
+ (tclStubsPtr->tcl_PutEnv) /* 203 */
2979
+#define Tcl_PosixError \
2980
+ (tclStubsPtr->tcl_PosixError) /* 204 */
2981
+#define Tcl_QueueEvent \
2982
+ (tclStubsPtr->tcl_QueueEvent) /* 205 */
2983
+#define Tcl_Read \
2984
+ (tclStubsPtr->tcl_Read) /* 206 */
2985
+#define Tcl_ReapDetachedProcs \
2986
+ (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
2987
+#define Tcl_RecordAndEval \
2988
+ (tclStubsPtr->tcl_RecordAndEval) /* 208 */
2989
+#define Tcl_RecordAndEvalObj \
2990
+ (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */
2991
+#define Tcl_RegisterChannel \
2992
+ (tclStubsPtr->tcl_RegisterChannel) /* 210 */
2993
+#define Tcl_RegisterObjType \
2994
+ (tclStubsPtr->tcl_RegisterObjType) /* 211 */
2995
+#define Tcl_RegExpCompile \
2996
+ (tclStubsPtr->tcl_RegExpCompile) /* 212 */
2997
+#define Tcl_RegExpExec \
2998
+ (tclStubsPtr->tcl_RegExpExec) /* 213 */
2999
+#define Tcl_RegExpMatch \
3000
+ (tclStubsPtr->tcl_RegExpMatch) /* 214 */
3001
+#define Tcl_RegExpRange \
3002
+ (tclStubsPtr->tcl_RegExpRange) /* 215 */
3003
+#define Tcl_Release \
3004
+ (tclStubsPtr->tcl_Release) /* 216 */
3005
+#define Tcl_ResetResult \
3006
+ (tclStubsPtr->tcl_ResetResult) /* 217 */
3007
+#define Tcl_ScanElement \
3008
+ (tclStubsPtr->tcl_ScanElement) /* 218 */
3009
+#define Tcl_ScanCountedElement \
3010
+ (tclStubsPtr->tcl_ScanCountedElement) /* 219 */
3011
+/* Slot 220 is reserved */
3012
+#define Tcl_ServiceAll \
3013
+ (tclStubsPtr->tcl_ServiceAll) /* 221 */
3014
+#define Tcl_ServiceEvent \
3015
+ (tclStubsPtr->tcl_ServiceEvent) /* 222 */
3016
+#define Tcl_SetAssocData \
3017
+ (tclStubsPtr->tcl_SetAssocData) /* 223 */
3018
+#define Tcl_SetChannelBufferSize \
3019
+ (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */
3020
+#define Tcl_SetChannelOption \
3021
+ (tclStubsPtr->tcl_SetChannelOption) /* 225 */
3022
+#define Tcl_SetCommandInfo \
3023
+ (tclStubsPtr->tcl_SetCommandInfo) /* 226 */
3024
+#define Tcl_SetErrno \
3025
+ (tclStubsPtr->tcl_SetErrno) /* 227 */
3026
+#define Tcl_SetErrorCode \
3027
+ (tclStubsPtr->tcl_SetErrorCode) /* 228 */
3028
+#define Tcl_SetMaxBlockTime \
3029
+ (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */
3030
+/* Slot 230 is reserved */
3031
+#define Tcl_SetRecursionLimit \
3032
+ (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */
3033
+/* Slot 232 is reserved */
3034
+#define Tcl_SetServiceMode \
3035
+ (tclStubsPtr->tcl_SetServiceMode) /* 233 */
3036
+#define Tcl_SetObjErrorCode \
3037
+ (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */
3038
+#define Tcl_SetObjResult \
3039
+ (tclStubsPtr->tcl_SetObjResult) /* 235 */
3040
+#define Tcl_SetStdChannel \
3041
+ (tclStubsPtr->tcl_SetStdChannel) /* 236 */
3042
+/* Slot 237 is reserved */
3043
+#define Tcl_SetVar2 \
3044
+ (tclStubsPtr->tcl_SetVar2) /* 238 */
3045
+#define Tcl_SignalId \
3046
+ (tclStubsPtr->tcl_SignalId) /* 239 */
3047
+#define Tcl_SignalMsg \
3048
+ (tclStubsPtr->tcl_SignalMsg) /* 240 */
3049
+#define Tcl_SourceRCFile \
3050
+ (tclStubsPtr->tcl_SourceRCFile) /* 241 */
3051
+#define TclSplitList \
3052
+ (tclStubsPtr->tclSplitList) /* 242 */
3053
+#define TclSplitPath \
3054
+ (tclStubsPtr->tclSplitPath) /* 243 */
3055
+/* Slot 244 is reserved */
3056
+/* Slot 245 is reserved */
3057
+/* Slot 246 is reserved */
3058
+/* Slot 247 is reserved */
3059
+#define Tcl_TraceVar2 \
3060
+ (tclStubsPtr->tcl_TraceVar2) /* 248 */
3061
+#define Tcl_TranslateFileName \
3062
+ (tclStubsPtr->tcl_TranslateFileName) /* 249 */
3063
+#define Tcl_Ungets \
3064
+ (tclStubsPtr->tcl_Ungets) /* 250 */
3065
+#define Tcl_UnlinkVar \
3066
+ (tclStubsPtr->tcl_UnlinkVar) /* 251 */
3067
+#define Tcl_UnregisterChannel \
3068
+ (tclStubsPtr->tcl_UnregisterChannel) /* 252 */
3069
+/* Slot 253 is reserved */
3070
+#define Tcl_UnsetVar2 \
3071
+ (tclStubsPtr->tcl_UnsetVar2) /* 254 */
3072
+/* Slot 255 is reserved */
3073
+#define Tcl_UntraceVar2 \
3074
+ (tclStubsPtr->tcl_UntraceVar2) /* 256 */
3075
+#define Tcl_UpdateLinkedVar \
3076
+ (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */
3077
+/* Slot 258 is reserved */
3078
+#define Tcl_UpVar2 \
3079
+ (tclStubsPtr->tcl_UpVar2) /* 259 */
3080
+#define Tcl_VarEval \
3081
+ (tclStubsPtr->tcl_VarEval) /* 260 */
3082
+/* Slot 261 is reserved */
3083
+#define Tcl_VarTraceInfo2 \
3084
+ (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */
3085
+#define Tcl_Write \
3086
+ (tclStubsPtr->tcl_Write) /* 263 */
3087
+#define Tcl_WrongNumArgs \
3088
+ (tclStubsPtr->tcl_WrongNumArgs) /* 264 */
3089
+#define Tcl_DumpActiveMemory \
3090
+ (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */
3091
+#define Tcl_ValidateAllMemory \
3092
+ (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */
3093
+/* Slot 267 is reserved */
3094
+/* Slot 268 is reserved */
3095
+#define Tcl_HashStats \
3096
+ (tclStubsPtr->tcl_HashStats) /* 269 */
3097
+#define Tcl_ParseVar \
3098
+ (tclStubsPtr->tcl_ParseVar) /* 270 */
3099
+/* Slot 271 is reserved */
3100
+#define Tcl_PkgPresentEx \
3101
+ (tclStubsPtr->tcl_PkgPresentEx) /* 272 */
3102
+/* Slot 273 is reserved */
3103
+/* Slot 274 is reserved */
3104
+/* Slot 275 is reserved */
3105
+/* Slot 276 is reserved */
3106
+#define Tcl_WaitPid \
3107
+ (tclStubsPtr->tcl_WaitPid) /* 277 */
3108
+/* Slot 278 is reserved */
3109
+#define Tcl_GetVersion \
3110
+ (tclStubsPtr->tcl_GetVersion) /* 279 */
3111
+#define Tcl_InitMemory \
3112
+ (tclStubsPtr->tcl_InitMemory) /* 280 */
3113
+#define Tcl_StackChannel \
3114
+ (tclStubsPtr->tcl_StackChannel) /* 281 */
3115
+#define Tcl_UnstackChannel \
3116
+ (tclStubsPtr->tcl_UnstackChannel) /* 282 */
3117
+#define Tcl_GetStackedChannel \
3118
+ (tclStubsPtr->tcl_GetStackedChannel) /* 283 */
3119
+#define Tcl_SetMainLoop \
3120
+ (tclStubsPtr->tcl_SetMainLoop) /* 284 */
3121
+#define Tcl_GetAliasObj \
3122
+ (tclStubsPtr->tcl_GetAliasObj) /* 285 */
3123
+#define Tcl_AppendObjToObj \
3124
+ (tclStubsPtr->tcl_AppendObjToObj) /* 286 */
3125
+#define Tcl_CreateEncoding \
3126
+ (tclStubsPtr->tcl_CreateEncoding) /* 287 */
3127
+#define Tcl_CreateThreadExitHandler \
3128
+ (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */
3129
+#define Tcl_DeleteThreadExitHandler \
3130
+ (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */
3131
+/* Slot 290 is reserved */
3132
+#define Tcl_EvalEx \
3133
+ (tclStubsPtr->tcl_EvalEx) /* 291 */
3134
+#define Tcl_EvalObjv \
3135
+ (tclStubsPtr->tcl_EvalObjv) /* 292 */
3136
+#define Tcl_EvalObjEx \
3137
+ (tclStubsPtr->tcl_EvalObjEx) /* 293 */
3138
+#define Tcl_ExitThread \
3139
+ (tclStubsPtr->tcl_ExitThread) /* 294 */
3140
+#define Tcl_ExternalToUtf \
3141
+ (tclStubsPtr->tcl_ExternalToUtf) /* 295 */
3142
+#define Tcl_ExternalToUtfDString \
3143
+ (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */
3144
+#define Tcl_FinalizeThread \
3145
+ (tclStubsPtr->tcl_FinalizeThread) /* 297 */
3146
+#define Tcl_FinalizeNotifier \
3147
+ (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */
3148
+#define Tcl_FreeEncoding \
3149
+ (tclStubsPtr->tcl_FreeEncoding) /* 299 */
3150
+#define Tcl_GetCurrentThread \
3151
+ (tclStubsPtr->tcl_GetCurrentThread) /* 300 */
3152
+#define Tcl_GetEncoding \
3153
+ (tclStubsPtr->tcl_GetEncoding) /* 301 */
3154
+#define Tcl_GetEncodingName \
3155
+ (tclStubsPtr->tcl_GetEncodingName) /* 302 */
3156
+#define Tcl_GetEncodingNames \
3157
+ (tclStubsPtr->tcl_GetEncodingNames) /* 303 */
3158
+#define Tcl_GetIndexFromObjStruct \
3159
+ (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */
3160
+#define Tcl_GetThreadData \
3161
+ (tclStubsPtr->tcl_GetThreadData) /* 305 */
3162
+#define Tcl_GetVar2Ex \
3163
+ (tclStubsPtr->tcl_GetVar2Ex) /* 306 */
3164
+#define Tcl_InitNotifier \
3165
+ (tclStubsPtr->tcl_InitNotifier) /* 307 */
3166
+#define Tcl_MutexLock \
3167
+ (tclStubsPtr->tcl_MutexLock) /* 308 */
3168
+#define Tcl_MutexUnlock \
3169
+ (tclStubsPtr->tcl_MutexUnlock) /* 309 */
3170
+#define Tcl_ConditionNotify \
3171
+ (tclStubsPtr->tcl_ConditionNotify) /* 310 */
3172
+#define Tcl_ConditionWait \
3173
+ (tclStubsPtr->tcl_ConditionWait) /* 311 */
3174
+#define TclNumUtfChars \
3175
+ (tclStubsPtr->tclNumUtfChars) /* 312 */
3176
+#define Tcl_ReadChars \
3177
+ (tclStubsPtr->tcl_ReadChars) /* 313 */
3178
+/* Slot 314 is reserved */
3179
+/* Slot 315 is reserved */
3180
+#define Tcl_SetSystemEncoding \
3181
+ (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */
3182
+#define Tcl_SetVar2Ex \
3183
+ (tclStubsPtr->tcl_SetVar2Ex) /* 317 */
3184
+#define Tcl_ThreadAlert \
3185
+ (tclStubsPtr->tcl_ThreadAlert) /* 318 */
3186
+#define Tcl_ThreadQueueEvent \
3187
+ (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */
3188
+#define Tcl_UniCharAtIndex \
3189
+ (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */
3190
+#define Tcl_UniCharToLower \
3191
+ (tclStubsPtr->tcl_UniCharToLower) /* 321 */
3192
+#define Tcl_UniCharToTitle \
3193
+ (tclStubsPtr->tcl_UniCharToTitle) /* 322 */
3194
+#define Tcl_UniCharToUpper \
3195
+ (tclStubsPtr->tcl_UniCharToUpper) /* 323 */
3196
+#define Tcl_UniCharToUtf \
3197
+ (tclStubsPtr->tcl_UniCharToUtf) /* 324 */
3198
+#define TclUtfAtIndex \
3199
+ (tclStubsPtr->tclUtfAtIndex) /* 325 */
3200
+#define TclUtfCharComplete \
3201
+ (tclStubsPtr->tclUtfCharComplete) /* 326 */
3202
+#define Tcl_UtfBackslash \
3203
+ (tclStubsPtr->tcl_UtfBackslash) /* 327 */
3204
+#define Tcl_UtfFindFirst \
3205
+ (tclStubsPtr->tcl_UtfFindFirst) /* 328 */
3206
+#define Tcl_UtfFindLast \
3207
+ (tclStubsPtr->tcl_UtfFindLast) /* 329 */
3208
+#define TclUtfNext \
3209
+ (tclStubsPtr->tclUtfNext) /* 330 */
3210
+#define TclUtfPrev \
3211
+ (tclStubsPtr->tclUtfPrev) /* 331 */
3212
+#define Tcl_UtfToExternal \
3213
+ (tclStubsPtr->tcl_UtfToExternal) /* 332 */
3214
+#define Tcl_UtfToExternalDString \
3215
+ (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */
3216
+#define Tcl_UtfToLower \
3217
+ (tclStubsPtr->tcl_UtfToLower) /* 334 */
3218
+#define Tcl_UtfToTitle \
3219
+ (tclStubsPtr->tcl_UtfToTitle) /* 335 */
3220
+#define Tcl_UtfToChar16 \
3221
+ (tclStubsPtr->tcl_UtfToChar16) /* 336 */
3222
+#define Tcl_UtfToUpper \
3223
+ (tclStubsPtr->tcl_UtfToUpper) /* 337 */
3224
+#define Tcl_WriteChars \
3225
+ (tclStubsPtr->tcl_WriteChars) /* 338 */
3226
+#define Tcl_WriteObj \
3227
+ (tclStubsPtr->tcl_WriteObj) /* 339 */
3228
+#define Tcl_GetString \
3229
+ (tclStubsPtr->tcl_GetString) /* 340 */
3230
+/* Slot 341 is reserved */
3231
+/* Slot 342 is reserved */
3232
+#define Tcl_AlertNotifier \
3233
+ (tclStubsPtr->tcl_AlertNotifier) /* 343 */
3234
+#define Tcl_ServiceModeHook \
3235
+ (tclStubsPtr->tcl_ServiceModeHook) /* 344 */
3236
+#define Tcl_UniCharIsAlnum \
3237
+ (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */
3238
+#define Tcl_UniCharIsAlpha \
3239
+ (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */
3240
+#define Tcl_UniCharIsDigit \
3241
+ (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */
3242
+#define Tcl_UniCharIsLower \
3243
+ (tclStubsPtr->tcl_UniCharIsLower) /* 348 */
3244
+#define Tcl_UniCharIsSpace \
3245
+ (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */
3246
+#define Tcl_UniCharIsUpper \
3247
+ (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */
3248
+#define Tcl_UniCharIsWordChar \
3249
+ (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */
3250
+#define Tcl_Char16Len \
3251
+ (tclStubsPtr->tcl_Char16Len) /* 352 */
3252
+/* Slot 353 is reserved */
3253
+#define Tcl_Char16ToUtfDString \
3254
+ (tclStubsPtr->tcl_Char16ToUtfDString) /* 354 */
3255
+#define Tcl_UtfToChar16DString \
3256
+ (tclStubsPtr->tcl_UtfToChar16DString) /* 355 */
3257
+#define Tcl_GetRegExpFromObj \
3258
+ (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */
3259
+/* Slot 357 is reserved */
3260
+#define Tcl_FreeParse \
3261
+ (tclStubsPtr->tcl_FreeParse) /* 358 */
3262
+#define Tcl_LogCommandInfo \
3263
+ (tclStubsPtr->tcl_LogCommandInfo) /* 359 */
3264
+#define Tcl_ParseBraces \
3265
+ (tclStubsPtr->tcl_ParseBraces) /* 360 */
3266
+#define Tcl_ParseCommand \
3267
+ (tclStubsPtr->tcl_ParseCommand) /* 361 */
3268
+#define Tcl_ParseExpr \
3269
+ (tclStubsPtr->tcl_ParseExpr) /* 362 */
3270
+#define Tcl_ParseQuotedString \
3271
+ (tclStubsPtr->tcl_ParseQuotedString) /* 363 */
3272
+#define Tcl_ParseVarName \
3273
+ (tclStubsPtr->tcl_ParseVarName) /* 364 */
3274
+#define Tcl_GetCwd \
3275
+ (tclStubsPtr->tcl_GetCwd) /* 365 */
3276
+#define Tcl_Chdir \
3277
+ (tclStubsPtr->tcl_Chdir) /* 366 */
3278
+#define Tcl_Access \
3279
+ (tclStubsPtr->tcl_Access) /* 367 */
3280
+#define Tcl_Stat \
3281
+ (tclStubsPtr->tcl_Stat) /* 368 */
3282
+#define TclUtfNcmp \
3283
+ (tclStubsPtr->tclUtfNcmp) /* 369 */
3284
+#define TclUtfNcasecmp \
3285
+ (tclStubsPtr->tclUtfNcasecmp) /* 370 */
3286
+#define Tcl_StringCaseMatch \
3287
+ (tclStubsPtr->tcl_StringCaseMatch) /* 371 */
3288
+#define Tcl_UniCharIsControl \
3289
+ (tclStubsPtr->tcl_UniCharIsControl) /* 372 */
3290
+#define Tcl_UniCharIsGraph \
3291
+ (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */
3292
+#define Tcl_UniCharIsPrint \
3293
+ (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */
3294
+#define Tcl_UniCharIsPunct \
3295
+ (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */
3296
+#define Tcl_RegExpExecObj \
3297
+ (tclStubsPtr->tcl_RegExpExecObj) /* 376 */
3298
+#define Tcl_RegExpGetInfo \
3299
+ (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */
3300
+#define Tcl_NewUnicodeObj \
3301
+ (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */
3302
+#define Tcl_SetUnicodeObj \
3303
+ (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */
3304
+#define TclGetCharLength \
3305
+ (tclStubsPtr->tclGetCharLength) /* 380 */
3306
+#define TclGetUniChar \
3307
+ (tclStubsPtr->tclGetUniChar) /* 381 */
3308
+/* Slot 382 is reserved */
3309
+#define TclGetRange \
3310
+ (tclStubsPtr->tclGetRange) /* 383 */
3311
+#define Tcl_AppendUnicodeToObj \
3312
+ (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */
3313
+#define Tcl_RegExpMatchObj \
3314
+ (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */
3315
+#define Tcl_SetNotifier \
3316
+ (tclStubsPtr->tcl_SetNotifier) /* 386 */
3317
+#define Tcl_GetAllocMutex \
3318
+ (tclStubsPtr->tcl_GetAllocMutex) /* 387 */
3319
+#define Tcl_GetChannelNames \
3320
+ (tclStubsPtr->tcl_GetChannelNames) /* 388 */
3321
+#define Tcl_GetChannelNamesEx \
3322
+ (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */
3323
+#define Tcl_ProcObjCmd \
3324
+ (tclStubsPtr->tcl_ProcObjCmd) /* 390 */
3325
+#define Tcl_ConditionFinalize \
3326
+ (tclStubsPtr->tcl_ConditionFinalize) /* 391 */
3327
+#define Tcl_MutexFinalize \
3328
+ (tclStubsPtr->tcl_MutexFinalize) /* 392 */
3329
+#define Tcl_CreateThread \
3330
+ (tclStubsPtr->tcl_CreateThread) /* 393 */
3331
+#define Tcl_ReadRaw \
3332
+ (tclStubsPtr->tcl_ReadRaw) /* 394 */
3333
+#define Tcl_WriteRaw \
3334
+ (tclStubsPtr->tcl_WriteRaw) /* 395 */
3335
+#define Tcl_GetTopChannel \
3336
+ (tclStubsPtr->tcl_GetTopChannel) /* 396 */
3337
+#define Tcl_ChannelBuffered \
3338
+ (tclStubsPtr->tcl_ChannelBuffered) /* 397 */
3339
+#define Tcl_ChannelName \
3340
+ (tclStubsPtr->tcl_ChannelName) /* 398 */
3341
+#define Tcl_ChannelVersion \
3342
+ (tclStubsPtr->tcl_ChannelVersion) /* 399 */
3343
+#define Tcl_ChannelBlockModeProc \
3344
+ (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */
3345
+/* Slot 401 is reserved */
3346
+#define Tcl_ChannelClose2Proc \
3347
+ (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */
3348
+#define Tcl_ChannelInputProc \
3349
+ (tclStubsPtr->tcl_ChannelInputProc) /* 403 */
3350
+#define Tcl_ChannelOutputProc \
3351
+ (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */
3352
+/* Slot 405 is reserved */
3353
+#define Tcl_ChannelSetOptionProc \
3354
+ (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */
3355
+#define Tcl_ChannelGetOptionProc \
3356
+ (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */
3357
+#define Tcl_ChannelWatchProc \
3358
+ (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */
3359
+#define Tcl_ChannelGetHandleProc \
3360
+ (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */
3361
+#define Tcl_ChannelFlushProc \
3362
+ (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */
3363
+#define Tcl_ChannelHandlerProc \
3364
+ (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */
3365
+#define Tcl_JoinThread \
3366
+ (tclStubsPtr->tcl_JoinThread) /* 412 */
3367
+#define Tcl_IsChannelShared \
3368
+ (tclStubsPtr->tcl_IsChannelShared) /* 413 */
3369
+#define Tcl_IsChannelRegistered \
3370
+ (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */
3371
+#define Tcl_CutChannel \
3372
+ (tclStubsPtr->tcl_CutChannel) /* 415 */
3373
+#define Tcl_SpliceChannel \
3374
+ (tclStubsPtr->tcl_SpliceChannel) /* 416 */
3375
+#define Tcl_ClearChannelHandlers \
3376
+ (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */
3377
+#define Tcl_IsChannelExisting \
3378
+ (tclStubsPtr->tcl_IsChannelExisting) /* 418 */
3379
+/* Slot 419 is reserved */
3380
+/* Slot 420 is reserved */
3381
+/* Slot 421 is reserved */
3382
+#define Tcl_CreateHashEntry \
3383
+ (tclStubsPtr->tcl_CreateHashEntry) /* 422 */
3384
+#define Tcl_InitCustomHashTable \
3385
+ (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */
3386
+#define Tcl_InitObjHashTable \
3387
+ (tclStubsPtr->tcl_InitObjHashTable) /* 424 */
3388
+#define Tcl_CommandTraceInfo \
3389
+ (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */
3390
+#define Tcl_TraceCommand \
3391
+ (tclStubsPtr->tcl_TraceCommand) /* 426 */
3392
+#define Tcl_UntraceCommand \
3393
+ (tclStubsPtr->tcl_UntraceCommand) /* 427 */
3394
+#define Tcl_AttemptAlloc \
3395
+ (tclStubsPtr->tcl_AttemptAlloc) /* 428 */
3396
+#define Tcl_AttemptDbCkalloc \
3397
+ (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */
3398
+#define Tcl_AttemptRealloc \
3399
+ (tclStubsPtr->tcl_AttemptRealloc) /* 430 */
3400
+#define Tcl_AttemptDbCkrealloc \
3401
+ (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */
3402
+#define Tcl_AttemptSetObjLength \
3403
+ (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */
3404
+#define Tcl_GetChannelThread \
3405
+ (tclStubsPtr->tcl_GetChannelThread) /* 433 */
3406
+#define TclGetUnicodeFromObj \
3407
+ (tclStubsPtr->tclGetUnicodeFromObj) /* 434 */
3408
+/* Slot 435 is reserved */
3409
+/* Slot 436 is reserved */
3410
+#define Tcl_SubstObj \
3411
+ (tclStubsPtr->tcl_SubstObj) /* 437 */
3412
+#define Tcl_DetachChannel \
3413
+ (tclStubsPtr->tcl_DetachChannel) /* 438 */
3414
+#define Tcl_IsStandardChannel \
3415
+ (tclStubsPtr->tcl_IsStandardChannel) /* 439 */
3416
+#define Tcl_FSCopyFile \
3417
+ (tclStubsPtr->tcl_FSCopyFile) /* 440 */
3418
+#define Tcl_FSCopyDirectory \
3419
+ (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */
3420
+#define Tcl_FSCreateDirectory \
3421
+ (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */
3422
+#define Tcl_FSDeleteFile \
3423
+ (tclStubsPtr->tcl_FSDeleteFile) /* 443 */
3424
+#define Tcl_FSLoadFile \
3425
+ (tclStubsPtr->tcl_FSLoadFile) /* 444 */
3426
+#define Tcl_FSMatchInDirectory \
3427
+ (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */
3428
+#define Tcl_FSLink \
3429
+ (tclStubsPtr->tcl_FSLink) /* 446 */
3430
+#define Tcl_FSRemoveDirectory \
3431
+ (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */
3432
+#define Tcl_FSRenameFile \
3433
+ (tclStubsPtr->tcl_FSRenameFile) /* 448 */
3434
+#define Tcl_FSLstat \
3435
+ (tclStubsPtr->tcl_FSLstat) /* 449 */
3436
+#define Tcl_FSUtime \
3437
+ (tclStubsPtr->tcl_FSUtime) /* 450 */
3438
+#define Tcl_FSFileAttrsGet \
3439
+ (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */
3440
+#define Tcl_FSFileAttrsSet \
3441
+ (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */
3442
+#define Tcl_FSFileAttrStrings \
3443
+ (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */
3444
+#define Tcl_FSStat \
3445
+ (tclStubsPtr->tcl_FSStat) /* 454 */
3446
+#define Tcl_FSAccess \
3447
+ (tclStubsPtr->tcl_FSAccess) /* 455 */
3448
+#define Tcl_FSOpenFileChannel \
3449
+ (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */
3450
+#define Tcl_FSGetCwd \
3451
+ (tclStubsPtr->tcl_FSGetCwd) /* 457 */
3452
+#define Tcl_FSChdir \
3453
+ (tclStubsPtr->tcl_FSChdir) /* 458 */
3454
+#define Tcl_FSConvertToPathType \
3455
+ (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */
3456
+#define Tcl_FSJoinPath \
3457
+ (tclStubsPtr->tcl_FSJoinPath) /* 460 */
3458
+#define TclFSSplitPath \
3459
+ (tclStubsPtr->tclFSSplitPath) /* 461 */
3460
+#define Tcl_FSEqualPaths \
3461
+ (tclStubsPtr->tcl_FSEqualPaths) /* 462 */
3462
+#define Tcl_FSGetNormalizedPath \
3463
+ (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */
3464
+#define Tcl_FSJoinToPath \
3465
+ (tclStubsPtr->tcl_FSJoinToPath) /* 464 */
3466
+#define Tcl_FSGetInternalRep \
3467
+ (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */
3468
+#define Tcl_FSGetTranslatedPath \
3469
+ (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */
3470
+#define Tcl_FSEvalFile \
3471
+ (tclStubsPtr->tcl_FSEvalFile) /* 467 */
3472
+#define Tcl_FSNewNativePath \
3473
+ (tclStubsPtr->tcl_FSNewNativePath) /* 468 */
3474
+#define Tcl_FSGetNativePath \
3475
+ (tclStubsPtr->tcl_FSGetNativePath) /* 469 */
3476
+#define Tcl_FSFileSystemInfo \
3477
+ (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */
3478
+#define Tcl_FSPathSeparator \
3479
+ (tclStubsPtr->tcl_FSPathSeparator) /* 471 */
3480
+#define Tcl_FSListVolumes \
3481
+ (tclStubsPtr->tcl_FSListVolumes) /* 472 */
3482
+#define Tcl_FSRegister \
3483
+ (tclStubsPtr->tcl_FSRegister) /* 473 */
3484
+#define Tcl_FSUnregister \
3485
+ (tclStubsPtr->tcl_FSUnregister) /* 474 */
3486
+#define Tcl_FSData \
3487
+ (tclStubsPtr->tcl_FSData) /* 475 */
3488
+#define Tcl_FSGetTranslatedStringPath \
3489
+ (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */
3490
+#define Tcl_FSGetFileSystemForPath \
3491
+ (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */
3492
+#define Tcl_FSGetPathType \
3493
+ (tclStubsPtr->tcl_FSGetPathType) /* 478 */
3494
+#define Tcl_OutputBuffered \
3495
+ (tclStubsPtr->tcl_OutputBuffered) /* 479 */
3496
+#define Tcl_FSMountsChanged \
3497
+ (tclStubsPtr->tcl_FSMountsChanged) /* 480 */
3498
+#define Tcl_EvalTokensStandard \
3499
+ (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */
3500
+#define Tcl_GetTime \
3501
+ (tclStubsPtr->tcl_GetTime) /* 482 */
3502
+#define Tcl_CreateObjTrace \
3503
+ (tclStubsPtr->tcl_CreateObjTrace) /* 483 */
3504
+#define Tcl_GetCommandInfoFromToken \
3505
+ (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */
3506
+#define Tcl_SetCommandInfoFromToken \
3507
+ (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */
3508
+#define Tcl_DbNewWideIntObj \
3509
+ (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */
3510
+#define Tcl_GetWideIntFromObj \
3511
+ (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */
3512
+#define Tcl_NewWideIntObj \
3513
+ (tclStubsPtr->tcl_NewWideIntObj) /* 488 */
3514
+#define Tcl_SetWideIntObj \
3515
+ (tclStubsPtr->tcl_SetWideIntObj) /* 489 */
3516
+#define Tcl_AllocStatBuf \
3517
+ (tclStubsPtr->tcl_AllocStatBuf) /* 490 */
3518
+#define Tcl_Seek \
3519
+ (tclStubsPtr->tcl_Seek) /* 491 */
3520
+#define Tcl_Tell \
3521
+ (tclStubsPtr->tcl_Tell) /* 492 */
3522
+#define Tcl_ChannelWideSeekProc \
3523
+ (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */
3524
+#define Tcl_DictObjPut \
3525
+ (tclStubsPtr->tcl_DictObjPut) /* 494 */
3526
+#define Tcl_DictObjGet \
3527
+ (tclStubsPtr->tcl_DictObjGet) /* 495 */
3528
+#define Tcl_DictObjRemove \
3529
+ (tclStubsPtr->tcl_DictObjRemove) /* 496 */
3530
+#define TclDictObjSize \
3531
+ (tclStubsPtr->tclDictObjSize) /* 497 */
3532
+#define Tcl_DictObjFirst \
3533
+ (tclStubsPtr->tcl_DictObjFirst) /* 498 */
3534
+#define Tcl_DictObjNext \
3535
+ (tclStubsPtr->tcl_DictObjNext) /* 499 */
3536
+#define Tcl_DictObjDone \
3537
+ (tclStubsPtr->tcl_DictObjDone) /* 500 */
3538
+#define Tcl_DictObjPutKeyList \
3539
+ (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */
3540
+#define Tcl_DictObjRemoveKeyList \
3541
+ (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */
3542
+#define Tcl_NewDictObj \
3543
+ (tclStubsPtr->tcl_NewDictObj) /* 503 */
3544
+#define Tcl_DbNewDictObj \
3545
+ (tclStubsPtr->tcl_DbNewDictObj) /* 504 */
3546
+#define Tcl_RegisterConfig \
3547
+ (tclStubsPtr->tcl_RegisterConfig) /* 505 */
3548
+#define Tcl_CreateNamespace \
3549
+ (tclStubsPtr->tcl_CreateNamespace) /* 506 */
3550
+#define Tcl_DeleteNamespace \
3551
+ (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
3552
+#define Tcl_AppendExportList \
3553
+ (tclStubsPtr->tcl_AppendExportList) /* 508 */
3554
+#define Tcl_Export \
3555
+ (tclStubsPtr->tcl_Export) /* 509 */
3556
+#define Tcl_Import \
3557
+ (tclStubsPtr->tcl_Import) /* 510 */
3558
+#define Tcl_ForgetImport \
3559
+ (tclStubsPtr->tcl_ForgetImport) /* 511 */
3560
+#define Tcl_GetCurrentNamespace \
3561
+ (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
3562
+#define Tcl_GetGlobalNamespace \
3563
+ (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
3564
+#define Tcl_FindNamespace \
3565
+ (tclStubsPtr->tcl_FindNamespace) /* 514 */
3566
+#define Tcl_FindCommand \
3567
+ (tclStubsPtr->tcl_FindCommand) /* 515 */
3568
+#define Tcl_GetCommandFromObj \
3569
+ (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
3570
+#define Tcl_GetCommandFullName \
3571
+ (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
3572
+#define Tcl_FSEvalFileEx \
3573
+ (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */
3574
+/* Slot 519 is reserved */
3575
+#define Tcl_LimitAddHandler \
3576
+ (tclStubsPtr->tcl_LimitAddHandler) /* 520 */
3577
+#define Tcl_LimitRemoveHandler \
3578
+ (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */
3579
+#define Tcl_LimitReady \
3580
+ (tclStubsPtr->tcl_LimitReady) /* 522 */
3581
+#define Tcl_LimitCheck \
3582
+ (tclStubsPtr->tcl_LimitCheck) /* 523 */
3583
+#define Tcl_LimitExceeded \
3584
+ (tclStubsPtr->tcl_LimitExceeded) /* 524 */
3585
+#define Tcl_LimitSetCommands \
3586
+ (tclStubsPtr->tcl_LimitSetCommands) /* 525 */
3587
+#define Tcl_LimitSetTime \
3588
+ (tclStubsPtr->tcl_LimitSetTime) /* 526 */
3589
+#define Tcl_LimitSetGranularity \
3590
+ (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */
3591
+#define Tcl_LimitTypeEnabled \
3592
+ (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */
3593
+#define Tcl_LimitTypeExceeded \
3594
+ (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */
3595
+#define Tcl_LimitTypeSet \
3596
+ (tclStubsPtr->tcl_LimitTypeSet) /* 530 */
3597
+#define Tcl_LimitTypeReset \
3598
+ (tclStubsPtr->tcl_LimitTypeReset) /* 531 */
3599
+#define Tcl_LimitGetCommands \
3600
+ (tclStubsPtr->tcl_LimitGetCommands) /* 532 */
3601
+#define Tcl_LimitGetTime \
3602
+ (tclStubsPtr->tcl_LimitGetTime) /* 533 */
3603
+#define Tcl_LimitGetGranularity \
3604
+ (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */
3605
+#define Tcl_SaveInterpState \
3606
+ (tclStubsPtr->tcl_SaveInterpState) /* 535 */
3607
+#define Tcl_RestoreInterpState \
3608
+ (tclStubsPtr->tcl_RestoreInterpState) /* 536 */
3609
+#define Tcl_DiscardInterpState \
3610
+ (tclStubsPtr->tcl_DiscardInterpState) /* 537 */
3611
+#define Tcl_SetReturnOptions \
3612
+ (tclStubsPtr->tcl_SetReturnOptions) /* 538 */
3613
+#define Tcl_GetReturnOptions \
3614
+ (tclStubsPtr->tcl_GetReturnOptions) /* 539 */
3615
+#define Tcl_IsEnsemble \
3616
+ (tclStubsPtr->tcl_IsEnsemble) /* 540 */
3617
+#define Tcl_CreateEnsemble \
3618
+ (tclStubsPtr->tcl_CreateEnsemble) /* 541 */
3619
+#define Tcl_FindEnsemble \
3620
+ (tclStubsPtr->tcl_FindEnsemble) /* 542 */
3621
+#define Tcl_SetEnsembleSubcommandList \
3622
+ (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */
3623
+#define Tcl_SetEnsembleMappingDict \
3624
+ (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */
3625
+#define Tcl_SetEnsembleUnknownHandler \
3626
+ (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */
3627
+#define Tcl_SetEnsembleFlags \
3628
+ (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */
3629
+#define Tcl_GetEnsembleSubcommandList \
3630
+ (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */
3631
+#define Tcl_GetEnsembleMappingDict \
3632
+ (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */
3633
+#define Tcl_GetEnsembleUnknownHandler \
3634
+ (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */
3635
+#define Tcl_GetEnsembleFlags \
3636
+ (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */
3637
+#define Tcl_GetEnsembleNamespace \
3638
+ (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */
3639
+#define Tcl_SetTimeProc \
3640
+ (tclStubsPtr->tcl_SetTimeProc) /* 552 */
3641
+#define Tcl_QueryTimeProc \
3642
+ (tclStubsPtr->tcl_QueryTimeProc) /* 553 */
3643
+#define Tcl_ChannelThreadActionProc \
3644
+ (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */
3645
+#define Tcl_NewBignumObj \
3646
+ (tclStubsPtr->tcl_NewBignumObj) /* 555 */
3647
+#define Tcl_DbNewBignumObj \
3648
+ (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */
3649
+#define Tcl_SetBignumObj \
3650
+ (tclStubsPtr->tcl_SetBignumObj) /* 557 */
3651
+#define Tcl_GetBignumFromObj \
3652
+ (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */
3653
+#define Tcl_TakeBignumFromObj \
3654
+ (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */
3655
+#define Tcl_TruncateChannel \
3656
+ (tclStubsPtr->tcl_TruncateChannel) /* 560 */
3657
+#define Tcl_ChannelTruncateProc \
3658
+ (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */
3659
+#define Tcl_SetChannelErrorInterp \
3660
+ (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */
3661
+#define Tcl_GetChannelErrorInterp \
3662
+ (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */
3663
+#define Tcl_SetChannelError \
3664
+ (tclStubsPtr->tcl_SetChannelError) /* 564 */
3665
+#define Tcl_GetChannelError \
3666
+ (tclStubsPtr->tcl_GetChannelError) /* 565 */
3667
+#define Tcl_InitBignumFromDouble \
3668
+ (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */
3669
+#define Tcl_GetNamespaceUnknownHandler \
3670
+ (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */
3671
+#define Tcl_SetNamespaceUnknownHandler \
3672
+ (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */
3673
+#define Tcl_GetEncodingFromObj \
3674
+ (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */
3675
+#define Tcl_GetEncodingSearchPath \
3676
+ (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */
3677
+#define Tcl_SetEncodingSearchPath \
3678
+ (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */
3679
+#define Tcl_GetEncodingNameFromEnvironment \
3680
+ (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */
3681
+#define Tcl_PkgRequireProc \
3682
+ (tclStubsPtr->tcl_PkgRequireProc) /* 573 */
3683
+#define Tcl_AppendObjToErrorInfo \
3684
+ (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */
3685
+#define Tcl_AppendLimitedToObj \
3686
+ (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */
3687
+#define Tcl_Format \
3688
+ (tclStubsPtr->tcl_Format) /* 576 */
3689
+#define Tcl_AppendFormatToObj \
3690
+ (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */
3691
+#define Tcl_ObjPrintf \
3692
+ (tclStubsPtr->tcl_ObjPrintf) /* 578 */
3693
+#define Tcl_AppendPrintfToObj \
3694
+ (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
3695
+#define Tcl_CancelEval \
3696
+ (tclStubsPtr->tcl_CancelEval) /* 580 */
3697
+#define Tcl_Canceled \
3698
+ (tclStubsPtr->tcl_Canceled) /* 581 */
3699
+#define Tcl_CreatePipe \
3700
+ (tclStubsPtr->tcl_CreatePipe) /* 582 */
3701
+#define Tcl_NRCreateCommand \
3702
+ (tclStubsPtr->tcl_NRCreateCommand) /* 583 */
3703
+#define Tcl_NREvalObj \
3704
+ (tclStubsPtr->tcl_NREvalObj) /* 584 */
3705
+#define Tcl_NREvalObjv \
3706
+ (tclStubsPtr->tcl_NREvalObjv) /* 585 */
3707
+#define Tcl_NRCmdSwap \
3708
+ (tclStubsPtr->tcl_NRCmdSwap) /* 586 */
3709
+#define Tcl_NRAddCallback \
3710
+ (tclStubsPtr->tcl_NRAddCallback) /* 587 */
3711
+#define Tcl_NRCallObjProc \
3712
+ (tclStubsPtr->tcl_NRCallObjProc) /* 588 */
3713
+#define Tcl_GetFSDeviceFromStat \
3714
+ (tclStubsPtr->tcl_GetFSDeviceFromStat) /* 589 */
3715
+#define Tcl_GetFSInodeFromStat \
3716
+ (tclStubsPtr->tcl_GetFSInodeFromStat) /* 590 */
3717
+#define Tcl_GetModeFromStat \
3718
+ (tclStubsPtr->tcl_GetModeFromStat) /* 591 */
3719
+#define Tcl_GetLinkCountFromStat \
3720
+ (tclStubsPtr->tcl_GetLinkCountFromStat) /* 592 */
3721
+#define Tcl_GetUserIdFromStat \
3722
+ (tclStubsPtr->tcl_GetUserIdFromStat) /* 593 */
3723
+#define Tcl_GetGroupIdFromStat \
3724
+ (tclStubsPtr->tcl_GetGroupIdFromStat) /* 594 */
3725
+#define Tcl_GetDeviceTypeFromStat \
3726
+ (tclStubsPtr->tcl_GetDeviceTypeFromStat) /* 595 */
3727
+#define Tcl_GetAccessTimeFromStat \
3728
+ (tclStubsPtr->tcl_GetAccessTimeFromStat) /* 596 */
3729
+#define Tcl_GetModificationTimeFromStat \
3730
+ (tclStubsPtr->tcl_GetModificationTimeFromStat) /* 597 */
3731
+#define Tcl_GetChangeTimeFromStat \
3732
+ (tclStubsPtr->tcl_GetChangeTimeFromStat) /* 598 */
3733
+#define Tcl_GetSizeFromStat \
3734
+ (tclStubsPtr->tcl_GetSizeFromStat) /* 599 */
3735
+#define Tcl_GetBlocksFromStat \
3736
+ (tclStubsPtr->tcl_GetBlocksFromStat) /* 600 */
3737
+#define Tcl_GetBlockSizeFromStat \
3738
+ (tclStubsPtr->tcl_GetBlockSizeFromStat) /* 601 */
3739
+#define Tcl_SetEnsembleParameterList \
3740
+ (tclStubsPtr->tcl_SetEnsembleParameterList) /* 602 */
3741
+#define Tcl_GetEnsembleParameterList \
3742
+ (tclStubsPtr->tcl_GetEnsembleParameterList) /* 603 */
3743
+#define TclParseArgsObjv \
3744
+ (tclStubsPtr->tclParseArgsObjv) /* 604 */
3745
+#define Tcl_GetErrorLine \
3746
+ (tclStubsPtr->tcl_GetErrorLine) /* 605 */
3747
+#define Tcl_SetErrorLine \
3748
+ (tclStubsPtr->tcl_SetErrorLine) /* 606 */
3749
+#define Tcl_TransferResult \
3750
+ (tclStubsPtr->tcl_TransferResult) /* 607 */
3751
+#define Tcl_InterpActive \
3752
+ (tclStubsPtr->tcl_InterpActive) /* 608 */
3753
+#define Tcl_BackgroundException \
3754
+ (tclStubsPtr->tcl_BackgroundException) /* 609 */
3755
+#define Tcl_ZlibDeflate \
3756
+ (tclStubsPtr->tcl_ZlibDeflate) /* 610 */
3757
+#define Tcl_ZlibInflate \
3758
+ (tclStubsPtr->tcl_ZlibInflate) /* 611 */
3759
+#define Tcl_ZlibCRC32 \
3760
+ (tclStubsPtr->tcl_ZlibCRC32) /* 612 */
3761
+#define Tcl_ZlibAdler32 \
3762
+ (tclStubsPtr->tcl_ZlibAdler32) /* 613 */
3763
+#define Tcl_ZlibStreamInit \
3764
+ (tclStubsPtr->tcl_ZlibStreamInit) /* 614 */
3765
+#define Tcl_ZlibStreamGetCommandName \
3766
+ (tclStubsPtr->tcl_ZlibStreamGetCommandName) /* 615 */
3767
+#define Tcl_ZlibStreamEof \
3768
+ (tclStubsPtr->tcl_ZlibStreamEof) /* 616 */
3769
+#define Tcl_ZlibStreamChecksum \
3770
+ (tclStubsPtr->tcl_ZlibStreamChecksum) /* 617 */
3771
+#define Tcl_ZlibStreamPut \
3772
+ (tclStubsPtr->tcl_ZlibStreamPut) /* 618 */
3773
+#define Tcl_ZlibStreamGet \
3774
+ (tclStubsPtr->tcl_ZlibStreamGet) /* 619 */
3775
+#define Tcl_ZlibStreamClose \
3776
+ (tclStubsPtr->tcl_ZlibStreamClose) /* 620 */
3777
+#define Tcl_ZlibStreamReset \
3778
+ (tclStubsPtr->tcl_ZlibStreamReset) /* 621 */
3779
+#define Tcl_SetStartupScript \
3780
+ (tclStubsPtr->tcl_SetStartupScript) /* 622 */
3781
+#define Tcl_GetStartupScript \
3782
+ (tclStubsPtr->tcl_GetStartupScript) /* 623 */
3783
+#define Tcl_CloseEx \
3784
+ (tclStubsPtr->tcl_CloseEx) /* 624 */
3785
+#define Tcl_NRExprObj \
3786
+ (tclStubsPtr->tcl_NRExprObj) /* 625 */
3787
+#define Tcl_NRSubstObj \
3788
+ (tclStubsPtr->tcl_NRSubstObj) /* 626 */
3789
+#define Tcl_LoadFile \
3790
+ (tclStubsPtr->tcl_LoadFile) /* 627 */
3791
+#define Tcl_FindSymbol \
3792
+ (tclStubsPtr->tcl_FindSymbol) /* 628 */
3793
+#define Tcl_FSUnloadFile \
3794
+ (tclStubsPtr->tcl_FSUnloadFile) /* 629 */
3795
+#define Tcl_ZlibStreamSetCompressionDictionary \
3796
+ (tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) /* 630 */
3797
+#define Tcl_OpenTcpServerEx \
3798
+ (tclStubsPtr->tcl_OpenTcpServerEx) /* 631 */
3799
+#define TclZipfs_Mount \
3800
+ (tclStubsPtr->tclZipfs_Mount) /* 632 */
3801
+#define TclZipfs_Unmount \
3802
+ (tclStubsPtr->tclZipfs_Unmount) /* 633 */
3803
+#define TclZipfs_TclLibrary \
3804
+ (tclStubsPtr->tclZipfs_TclLibrary) /* 634 */
3805
+#define TclZipfs_MountBuffer \
3806
+ (tclStubsPtr->tclZipfs_MountBuffer) /* 635 */
3807
+#define Tcl_FreeInternalRep \
3808
+ (tclStubsPtr->tcl_FreeInternalRep) /* 636 */
3809
+#define Tcl_InitStringRep \
3810
+ (tclStubsPtr->tcl_InitStringRep) /* 637 */
3811
+#define Tcl_FetchInternalRep \
3812
+ (tclStubsPtr->tcl_FetchInternalRep) /* 638 */
3813
+#define Tcl_StoreInternalRep \
3814
+ (tclStubsPtr->tcl_StoreInternalRep) /* 639 */
3815
+#define Tcl_HasStringRep \
3816
+ (tclStubsPtr->tcl_HasStringRep) /* 640 */
3817
+#define Tcl_IncrRefCount \
3818
+ (tclStubsPtr->tcl_IncrRefCount) /* 641 */
3819
+#define Tcl_DecrRefCount \
3820
+ (tclStubsPtr->tcl_DecrRefCount) /* 642 */
3821
+#define Tcl_IsShared \
3822
+ (tclStubsPtr->tcl_IsShared) /* 643 */
3823
+#define Tcl_LinkArray \
3824
+ (tclStubsPtr->tcl_LinkArray) /* 644 */
3825
+#define Tcl_GetIntForIndex \
3826
+ (tclStubsPtr->tcl_GetIntForIndex) /* 645 */
3827
+#define Tcl_UtfToUniChar \
3828
+ (tclStubsPtr->tcl_UtfToUniChar) /* 646 */
3829
+#define Tcl_UniCharToUtfDString \
3830
+ (tclStubsPtr->tcl_UniCharToUtfDString) /* 647 */
3831
+#define Tcl_UtfToUniCharDString \
3832
+ (tclStubsPtr->tcl_UtfToUniCharDString) /* 648 */
3833
+#define TclGetBytesFromObj \
3834
+ (tclStubsPtr->tclGetBytesFromObj) /* 649 */
3835
+#define Tcl_GetBytesFromObj \
3836
+ (tclStubsPtr->tcl_GetBytesFromObj) /* 650 */
3837
+#define Tcl_GetStringFromObj \
3838
+ (tclStubsPtr->tcl_GetStringFromObj) /* 651 */
3839
+#define Tcl_GetUnicodeFromObj \
3840
+ (tclStubsPtr->tcl_GetUnicodeFromObj) /* 652 */
3841
+#define Tcl_GetSizeIntFromObj \
3842
+ (tclStubsPtr->tcl_GetSizeIntFromObj) /* 653 */
3843
+#define Tcl_UtfCharComplete \
3844
+ (tclStubsPtr->tcl_UtfCharComplete) /* 654 */
3845
+#define Tcl_UtfNext \
3846
+ (tclStubsPtr->tcl_UtfNext) /* 655 */
3847
+#define Tcl_UtfPrev \
3848
+ (tclStubsPtr->tcl_UtfPrev) /* 656 */
3849
+#define Tcl_FSTildeExpand \
3850
+ (tclStubsPtr->tcl_FSTildeExpand) /* 657 */
3851
+#define Tcl_ExternalToUtfDStringEx \
3852
+ (tclStubsPtr->tcl_ExternalToUtfDStringEx) /* 658 */
3853
+#define Tcl_UtfToExternalDStringEx \
3854
+ (tclStubsPtr->tcl_UtfToExternalDStringEx) /* 659 */
3855
+#define Tcl_AsyncMarkFromSignal \
3856
+ (tclStubsPtr->tcl_AsyncMarkFromSignal) /* 660 */
3857
+#define Tcl_ListObjGetElements \
3858
+ (tclStubsPtr->tcl_ListObjGetElements) /* 661 */
3859
+#define Tcl_ListObjLength \
3860
+ (tclStubsPtr->tcl_ListObjLength) /* 662 */
3861
+#define Tcl_DictObjSize \
3862
+ (tclStubsPtr->tcl_DictObjSize) /* 663 */
3863
+#define Tcl_SplitList \
3864
+ (tclStubsPtr->tcl_SplitList) /* 664 */
3865
+#define Tcl_SplitPath \
3866
+ (tclStubsPtr->tcl_SplitPath) /* 665 */
3867
+#define Tcl_FSSplitPath \
3868
+ (tclStubsPtr->tcl_FSSplitPath) /* 666 */
3869
+#define Tcl_ParseArgsObjv \
3870
+ (tclStubsPtr->tcl_ParseArgsObjv) /* 667 */
3871
+#define Tcl_UniCharLen \
3872
+ (tclStubsPtr->tcl_UniCharLen) /* 668 */
3873
+#define Tcl_NumUtfChars \
3874
+ (tclStubsPtr->tcl_NumUtfChars) /* 669 */
3875
+#define Tcl_GetCharLength \
3876
+ (tclStubsPtr->tcl_GetCharLength) /* 670 */
3877
+#define Tcl_UtfAtIndex \
3878
+ (tclStubsPtr->tcl_UtfAtIndex) /* 671 */
3879
+#define Tcl_GetRange \
3880
+ (tclStubsPtr->tcl_GetRange) /* 672 */
3881
+#define Tcl_GetUniChar \
3882
+ (tclStubsPtr->tcl_GetUniChar) /* 673 */
3883
+#define Tcl_GetBool \
3884
+ (tclStubsPtr->tcl_GetBool) /* 674 */
3885
+#define Tcl_GetBoolFromObj \
3886
+ (tclStubsPtr->tcl_GetBoolFromObj) /* 675 */
3887
+#define Tcl_CreateObjCommand2 \
3888
+ (tclStubsPtr->tcl_CreateObjCommand2) /* 676 */
3889
+#define Tcl_CreateObjTrace2 \
3890
+ (tclStubsPtr->tcl_CreateObjTrace2) /* 677 */
3891
+#define Tcl_NRCreateCommand2 \
3892
+ (tclStubsPtr->tcl_NRCreateCommand2) /* 678 */
3893
+#define Tcl_NRCallObjProc2 \
3894
+ (tclStubsPtr->tcl_NRCallObjProc2) /* 679 */
3895
+#define Tcl_GetNumberFromObj \
3896
+ (tclStubsPtr->tcl_GetNumberFromObj) /* 680 */
3897
+#define Tcl_GetNumber \
3898
+ (tclStubsPtr->tcl_GetNumber) /* 681 */
3899
+#define Tcl_RemoveChannelMode \
3900
+ (tclStubsPtr->tcl_RemoveChannelMode) /* 682 */
3901
+#define Tcl_GetEncodingNulLength \
3902
+ (tclStubsPtr->tcl_GetEncodingNulLength) /* 683 */
3903
+#define Tcl_GetWideUIntFromObj \
3904
+ (tclStubsPtr->tcl_GetWideUIntFromObj) /* 684 */
3905
+#define Tcl_DStringToObj \
3906
+ (tclStubsPtr->tcl_DStringToObj) /* 685 */
3907
+#define Tcl_UtfNcmp \
3908
+ (tclStubsPtr->tcl_UtfNcmp) /* 686 */
3909
+#define Tcl_UtfNcasecmp \
3910
+ (tclStubsPtr->tcl_UtfNcasecmp) /* 687 */
3911
+#define Tcl_NewWideUIntObj \
3912
+ (tclStubsPtr->tcl_NewWideUIntObj) /* 688 */
3913
+#define Tcl_SetWideUIntObj \
3914
+ (tclStubsPtr->tcl_SetWideUIntObj) /* 689 */
3915
+#define TclUnusedStubEntry \
3916
+ (tclStubsPtr->tclUnusedStubEntry) /* 690 */
3917
+
3918
+#endif /* defined(USE_TCL_STUBS) */
3919
+
3920
+/* !END!: Do not edit above this line. */
3921
+
3922
+#undef TclUnusedStubEntry
3923
+
3924
+#ifdef _WIN32
3925
+# undef Tcl_CreateFileHandler
3926
+# undef Tcl_DeleteFileHandler
3927
+# undef Tcl_GetOpenFile
3928
+#endif
3929
+
3930
+#undef TCL_STORAGE_CLASS
3931
+#define TCL_STORAGE_CLASS DLLIMPORT
3932
+
3933
+#define Tcl_PkgPresent(interp, name, version, exact) \
3934
+ Tcl_PkgPresentEx(interp, name, version, exact, NULL)
3935
+#define Tcl_PkgProvide(interp, name, version) \
3936
+ Tcl_PkgProvideEx(interp, name, version, NULL)
3937
+#define Tcl_PkgRequire(interp, name, version, exact) \
3938
+ Tcl_PkgRequireEx(interp, name, version, exact, NULL)
3939
+#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \
3940
+ Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \
3941
+ sizeof(char *), msg, flags, indexPtr)
3942
+#define Tcl_NewBooleanObj(intValue) \
3943
+ Tcl_NewWideIntObj((intValue)!=0)
3944
+#define Tcl_DbNewBooleanObj(intValue, file, line) \
3945
+ Tcl_DbNewWideIntObj((intValue)!=0, file, line)
3946
+#define Tcl_SetBooleanObj(objPtr, intValue) \
3947
+ Tcl_SetWideIntObj(objPtr, (intValue)!=0)
3948
+#define Tcl_SetVar(interp, varName, newValue, flags) \
3949
+ Tcl_SetVar2(interp, varName, NULL, newValue, flags)
3950
+#define Tcl_UnsetVar(interp, varName, flags) \
3951
+ Tcl_UnsetVar2(interp, varName, NULL, flags)
3952
+#define Tcl_GetVar(interp, varName, flags) \
3953
+ Tcl_GetVar2(interp, varName, NULL, flags)
3954
+#define Tcl_TraceVar(interp, varName, flags, proc, clientData) \
3955
+ Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData)
3956
+#define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \
3957
+ Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData)
3958
+#define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \
3959
+ Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData)
3960
+#define Tcl_UpVar(interp, frameName, varName, localName, flags) \
3961
+ Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags)
3962
+#define Tcl_AddErrorInfo(interp, message) \
3963
+ Tcl_AppendObjToErrorInfo(interp, Tcl_NewStringObj(message, -1))
3964
+#define Tcl_AddObjErrorInfo(interp, message, length) \
3965
+ Tcl_AppendObjToErrorInfo(interp, Tcl_NewStringObj(message, length))
3966
+#define Tcl_Eval(interp, objPtr) \
3967
+ Tcl_EvalEx(interp, objPtr, TCL_INDEX_NONE, 0)
3968
+#define Tcl_GlobalEval(interp, objPtr) \
3969
+ Tcl_EvalEx(interp, objPtr, TCL_INDEX_NONE, TCL_EVAL_GLOBAL)
3970
+#define Tcl_GetStringResult(interp) Tcl_GetString(Tcl_GetObjResult(interp))
3971
+#define Tcl_SetResult(interp, result, freeProc) \
3972
+ do { \
3973
+ const char *__result = result; \
3974
+ Tcl_FreeProc *__freeProc = freeProc; \
3975
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(__result, -1)); \
3976
+ if (__result != NULL && __freeProc != NULL && __freeProc != TCL_VOLATILE) { \
3977
+ if (__freeProc == TCL_DYNAMIC) { \
3978
+ Tcl_Free((void *)__result); \
3979
+ } else { \
3980
+ (*__freeProc)((void *)__result); \
3981
+ } \
3982
+ } \
3983
+ } while(0)
3984
+
3985
+#if defined(USE_TCL_STUBS)
3986
+# if defined(_WIN32) && defined(_WIN64) && TCL_MAJOR_VERSION < 9
3987
+# undef Tcl_GetTime
3988
+/* Handle Win64 tk.dll being loaded in Cygwin64 (only needed for Tcl 8). */
3989
+# define Tcl_GetTime(t) \
3990
+ do { \
3991
+ struct { \
3992
+ Tcl_Time now; \
3993
+ long long reserved; \
3994
+ } _t; \
3995
+ _t.reserved = -1; \
3996
+ tclStubsPtr->tcl_GetTime((&_t.now)); \
3997
+ if (_t.reserved != -1) { \
3998
+ _t.now.usec = (long) _t.reserved; \
3999
+ } \
4000
+ *(t) = _t.now; \
4001
+ } while (0)
4002
+# endif
4003
+# if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG)
4004
+/* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore
4005
+ * we have to make sure that all stub entries on Cygwin64 follow the
4006
+ * Win64 signature. Cygwin64 stubbed extensions cannot use those stub
4007
+ * entries any more, they should use the 64-bit alternatives where
4008
+ * possible. Tcl 9 must find a better solution, but that cannot be done
4009
+ * without introducing a binary incompatibility.
4010
+ */
4011
+# undef Tcl_GetLongFromObj
4012
+# undef Tcl_ExprLong
4013
+# undef Tcl_ExprLongObj
4014
+# define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj)
4015
+# define Tcl_ExprLong TclExprLong
4016
+ static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){
4017
+ int intValue;
4018
+ int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue);
4019
+ if (result == TCL_OK) *ptr = (long)intValue;
4020
+ return result;
4021
+ }
4022
+# define Tcl_ExprLongObj TclExprLongObj
4023
+ static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){
4024
+ int intValue;
4025
+ int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue);
4026
+ if (result == TCL_OK) *ptr = (long)intValue;
4027
+ return result;
4028
+ }
4029
+# endif
4030
+#endif
4031
+
4032
+#undef Tcl_GetString
4033
+#undef Tcl_GetUnicode
4034
+#undef Tcl_CreateHashEntry
4035
+#define Tcl_GetString(objPtr) \
4036
+ Tcl_GetStringFromObj(objPtr, (Tcl_Size *)NULL)
4037
+#define Tcl_GetUnicode(objPtr) \
4038
+ Tcl_GetUnicodeFromObj(objPtr, (Tcl_Size *)NULL)
4039
+#undef Tcl_GetIndexFromObjStruct
4040
+#undef Tcl_GetBooleanFromObj
4041
+#undef Tcl_GetBoolean
4042
+#if !defined(TCLBOOLWARNING)
4043
+#if !defined(__cplusplus) && !defined(BUILD_tcl) && !defined(BUILD_tk) && defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 201112L)
4044
+# define TCLBOOLWARNING(boolPtr) (void)(sizeof(struct {_Static_assert(sizeof(*(boolPtr)) <= sizeof(int), "sizeof(boolPtr) too large");int dummy;})),
4045
+#elif defined(__GNUC__) && !defined(__STRICT_ANSI__)
4046
+ /* If this gives: "error: size of array ‘_bool_Var’ is negative", it means that sizeof(*boolPtr)>sizeof(int), which is not allowed */
4047
+# define TCLBOOLWARNING(boolPtr) ({__attribute__((unused)) char _bool_Var[sizeof(*(boolPtr)) <= sizeof(int) ? 1 : -1];}),
4048
+#else
4049
+# define TCLBOOLWARNING(boolPtr)
4050
+#endif
4051
+#endif /* !TCLBOOLWARNING */
4052
+#if defined(USE_TCL_STUBS)
4053
+#define Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) \
4054
+ (tclStubsPtr->tcl_GetIndexFromObjStruct((interp), (objPtr), (tablePtr), (offset), (msg), \
4055
+ (flags)|(int)(sizeof(*(indexPtr))<<1), (indexPtr)))
4056
+#define Tcl_GetBooleanFromObj(interp, objPtr, boolPtr) \
4057
+ ((sizeof(*(boolPtr)) == sizeof(int) && (TCL_MAJOR_VERSION == 8)) ? tclStubsPtr->tcl_GetBooleanFromObj(interp, objPtr, (int *)(boolPtr)) : \
4058
+ ((sizeof(*(boolPtr)) <= sizeof(int)) ? Tcl_GetBoolFromObj(interp, objPtr, (TCL_NULL_OK-2)&(int)sizeof((*(boolPtr))), (char *)(boolPtr)) : \
4059
+ (TCLBOOLWARNING(boolPtr)Tcl_Panic("sizeof(%s) must be <= sizeof(int)", & #boolPtr [1]),TCL_ERROR)))
4060
+#define Tcl_GetBoolean(interp, src, boolPtr) \
4061
+ ((sizeof(*(boolPtr)) == sizeof(int) && (TCL_MAJOR_VERSION == 8)) ? tclStubsPtr->tcl_GetBoolean(interp, src, (int *)(boolPtr)) : \
4062
+ ((sizeof(*(boolPtr)) <= sizeof(int)) ? Tcl_GetBool(interp, src, (TCL_NULL_OK-2)&(int)sizeof((*(boolPtr))), (char *)(boolPtr)) : \
4063
+ (TCLBOOLWARNING(boolPtr)Tcl_Panic("sizeof(%s) must be <= sizeof(int)", & #boolPtr [1]),TCL_ERROR)))
4064
+#else
4065
+#define Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) \
4066
+ ((Tcl_GetIndexFromObjStruct)((interp), (objPtr), (tablePtr), (offset), (msg), \
4067
+ (flags)|(int)(sizeof(*(indexPtr))<<1), (indexPtr)))
4068
+#define Tcl_GetBooleanFromObj(interp, objPtr, boolPtr) \
4069
+ ((sizeof(*(boolPtr)) == sizeof(int) && (TCL_MAJOR_VERSION == 8)) ? Tcl_GetBooleanFromObj(interp, objPtr, (int *)(boolPtr)) : \
4070
+ ((sizeof(*(boolPtr)) <= sizeof(int)) ? Tcl_GetBoolFromObj(interp, objPtr, (TCL_NULL_OK-2)&(int)sizeof((*(boolPtr))), (char *)(boolPtr)) : \
4071
+ (TCLBOOLWARNING(boolPtr)Tcl_Panic("sizeof(%s) must be <= sizeof(int)", & #boolPtr [1]),TCL_ERROR)))
4072
+#define Tcl_GetBoolean(interp, src, boolPtr) \
4073
+ ((sizeof(*(boolPtr)) == sizeof(int) && (TCL_MAJOR_VERSION == 8)) ? Tcl_GetBoolean(interp, src, (int *)(boolPtr)) : \
4074
+ ((sizeof(*(boolPtr)) <= sizeof(int)) ? Tcl_GetBool(interp, src, (TCL_NULL_OK-2)&(int)sizeof((*(boolPtr))), (char *)(boolPtr)) : \
4075
+ (TCLBOOLWARNING(boolPtr)Tcl_Panic("sizeof(%s) must be <= sizeof(int)", & #boolPtr [1]),TCL_ERROR)))
4076
+#endif
4077
+
4078
+#ifdef TCL_MEM_DEBUG
4079
+# undef Tcl_Alloc
4080
+# define Tcl_Alloc(x) \
4081
+ (Tcl_DbCkalloc((x), __FILE__, __LINE__))
4082
+# undef Tcl_Free
4083
+# define Tcl_Free(x) \
4084
+ Tcl_DbCkfree((x), __FILE__, __LINE__)
4085
+# undef Tcl_Realloc
4086
+# define Tcl_Realloc(x,y) \
4087
+ (Tcl_DbCkrealloc((x), (y), __FILE__, __LINE__))
4088
+# undef Tcl_AttemptAlloc
4089
+# define Tcl_AttemptAlloc(x) \
4090
+ (Tcl_AttemptDbCkalloc((x), __FILE__, __LINE__))
4091
+# undef Tcl_AttemptRealloc
4092
+# define Tcl_AttemptRealloc(x,y) \
4093
+ (Tcl_AttemptDbCkrealloc((x), (y), __FILE__, __LINE__))
4094
+#endif /* !TCL_MEM_DEBUG */
4095
+
4096
+#define Tcl_NewLongObj(value) Tcl_NewWideIntObj((long)(value))
4097
+#define Tcl_NewIntObj(value) Tcl_NewWideIntObj((int)(value))
4098
+#define Tcl_DbNewLongObj(value, file, line) Tcl_DbNewWideIntObj((long)(value), file, line)
4099
+#define Tcl_SetIntObj(objPtr, value) Tcl_SetWideIntObj((objPtr), (int)(value))
4100
+#define Tcl_SetLongObj(objPtr, value) Tcl_SetWideIntObj((objPtr), (long)(value))
4101
+#define Tcl_BackgroundError(interp) Tcl_BackgroundException((interp), TCL_ERROR)
4102
+#define Tcl_StringMatch(str, pattern) Tcl_StringCaseMatch((str), (pattern), 0)
4103
+
4104
+#if TCL_UTF_MAX < 4
4105
+# undef Tcl_UniCharToUtfDString
4106
+# define Tcl_UniCharToUtfDString Tcl_Char16ToUtfDString
4107
+# undef Tcl_UtfToUniCharDString
4108
+# define Tcl_UtfToUniCharDString Tcl_UtfToChar16DString
4109
+# undef Tcl_UtfToUniChar
4110
+# define Tcl_UtfToUniChar Tcl_UtfToChar16
4111
+# undef Tcl_UniCharLen
4112
+# define Tcl_UniCharLen Tcl_Char16Len
4113
+# undef Tcl_UniCharToUtf
4114
+# if defined(USE_TCL_STUBS)
4115
+# define Tcl_UniCharToUtf(c, p) \
4116
+ (tclStubsPtr->tcl_UniCharToUtf((c)|TCL_COMBINE, (p)))
4117
+# else
4118
+# define Tcl_UniCharToUtf(c, p) \
4119
+ ((Tcl_UniCharToUtf)((c)|TCL_COMBINE, (p)))
4120
+# endif
4121
+# undef Tcl_NumUtfChars
4122
+# define Tcl_NumUtfChars TclNumUtfChars
4123
+# undef Tcl_GetCharLength
4124
+# define Tcl_GetCharLength TclGetCharLength
4125
+# undef Tcl_UtfAtIndex
4126
+# define Tcl_UtfAtIndex TclUtfAtIndex
4127
+# undef Tcl_GetRange
4128
+# define Tcl_GetRange TclGetRange
4129
+# undef Tcl_GetUniChar
4130
+# define Tcl_GetUniChar TclGetUniChar
4131
+# undef Tcl_UtfNcmp
4132
+# define Tcl_UtfNcmp TclUtfNcmp
4133
+# undef Tcl_UtfNcasecmp
4134
+# define Tcl_UtfNcasecmp TclUtfNcasecmp
4135
+#endif
4136
+#if TCL_MAJOR_VERSION > 8
4137
+# if defined(USE_TCL_STUBS)
4138
+# define Tcl_WCharToUtfDString (sizeof(wchar_t) != sizeof(short) \
4139
+ ? (char *(*)(const wchar_t *, Tcl_Size, Tcl_DString *))tclStubsPtr->tcl_UniCharToUtfDString \
4140
+ : (char *(*)(const wchar_t *, Tcl_Size, Tcl_DString *))Tcl_Char16ToUtfDString)
4141
+# define Tcl_UtfToWCharDString (sizeof(wchar_t) != sizeof(short) \
4142
+ ? (wchar_t *(*)(const char *, Tcl_Size, Tcl_DString *))tclStubsPtr->tcl_UtfToUniCharDString \
4143
+ : (wchar_t *(*)(const char *, Tcl_Size, Tcl_DString *))Tcl_UtfToChar16DString)
4144
+# define Tcl_UtfToWChar (sizeof(wchar_t) != sizeof(short) \
4145
+ ? (Tcl_Size (*)(const char *, wchar_t *))tclStubsPtr->tcl_UtfToUniChar \
4146
+ : (Tcl_Size (*)(const char *, wchar_t *))Tcl_UtfToChar16)
4147
+# define Tcl_WCharLen (sizeof(wchar_t) != sizeof(short) \
4148
+ ? (Tcl_Size (*)(wchar_t *))tclStubsPtr->tcl_UniCharLen \
4149
+ : (Tcl_Size (*)(wchar_t *))Tcl_Char16Len)
4150
+# else
4151
+# define Tcl_WCharToUtfDString (sizeof(wchar_t) != sizeof(short) \
4152
+ ? (char *(*)(const wchar_t *, Tcl_Size, Tcl_DString *))Tcl_UniCharToUtfDString \
4153
+ : (char *(*)(const wchar_t *, Tcl_Size, Tcl_DString *))Tcl_Char16ToUtfDString)
4154
+# define Tcl_UtfToWCharDString (sizeof(wchar_t) != sizeof(short) \
4155
+ ? (wchar_t *(*)(const char *, Tcl_Size, Tcl_DString *))Tcl_UtfToUniCharDString \
4156
+ : (wchar_t *(*)(const char *, Tcl_Size, Tcl_DString *))Tcl_UtfToChar16DString)
4157
+# define Tcl_UtfToWChar (sizeof(wchar_t) != sizeof(short) \
4158
+ ? (Tcl_Size (*)(const char *, wchar_t *))Tcl_UtfToUniChar \
4159
+ : (Tcl_Size (*)(const char *, wchar_t *))Tcl_UtfToChar16)
4160
+# define Tcl_WCharLen (sizeof(wchar_t) != sizeof(short) \
4161
+ ? (Tcl_Size (*)(wchar_t *))Tcl_UniCharLen \
4162
+ : (Tcl_Size (*)(wchar_t *))Tcl_Char16Len)
4163
+# endif
4164
+#endif
4165
+
4166
+/*
4167
+ * Deprecated Tcl procedures:
4168
+ */
4169
+
4170
+#define Tcl_EvalObj(interp, objPtr) \
4171
+ Tcl_EvalObjEx(interp, objPtr, 0)
4172
+#define Tcl_GlobalEvalObj(interp, objPtr) \
4173
+ Tcl_EvalObjEx(interp, objPtr, TCL_EVAL_GLOBAL)
4174
+
4175
+#if TCL_MAJOR_VERSION > 8
4176
+# undef Tcl_Close
4177
+# define Tcl_Close(interp, chan) Tcl_CloseEx(interp, chan, 0)
4178
+#endif
4179
+
4180
+#undef TclUtfCharComplete
4181
+#undef TclUtfNext
4182
+#undef TclUtfPrev
4183
+#ifndef TCL_NO_DEPRECATED
4184
+# define Tcl_CreateSlave Tcl_CreateChild
4185
+# define Tcl_GetSlave Tcl_GetChild
4186
+# define Tcl_GetMaster Tcl_GetParent
4187
+#endif
4188
+
4189
+/* Protect those 11 functions, make them useless through the stub table */
4190
+#undef TclGetStringFromObj
4191
+#undef TclGetBytesFromObj
4192
+#undef TclGetUnicodeFromObj
4193
+#undef TclListObjGetElements
4194
+#undef TclListObjLength
4195
+#undef TclDictObjSize
4196
+#undef TclSplitList
4197
+#undef TclSplitPath
4198
+#undef TclFSSplitPath
4199
+#undef TclParseArgsObjv
4200
+#undef TclGetAliasObj
4201
+
4202
+#if TCL_MAJOR_VERSION < 9
4203
+ /* TIP #627 */
4204
+# undef Tcl_CreateObjCommand2
4205
+# define Tcl_CreateObjCommand2 Tcl_CreateObjCommand
4206
+# undef Tcl_CreateObjTrace2
4207
+# define Tcl_CreateObjTrace2 Tcl_CreateObjTrace
4208
+# undef Tcl_NRCreateCommand2
4209
+# define Tcl_NRCreateCommand2 Tcl_NRCreateCommand
4210
+# undef Tcl_NRCallObjProc2
4211
+# define Tcl_NRCallObjProc2 Tcl_NRCallObjProc
4212
+ /* TIP #660 */
4213
+# undef Tcl_GetSizeIntFromObj
4214
+# define Tcl_GetSizeIntFromObj Tcl_GetIntFromObj
4215
+
4216
+# undef Tcl_GetBytesFromObj
4217
+# define Tcl_GetBytesFromObj(interp, objPtr, sizePtr) \
4218
+ tclStubsPtr->tclGetBytesFromObj((interp), (objPtr), (sizePtr))
4219
+# undef Tcl_GetStringFromObj
4220
+# define Tcl_GetStringFromObj(objPtr, sizePtr) \
4221
+ tclStubsPtr->tclGetStringFromObj((objPtr), (sizePtr))
4222
+# undef Tcl_GetUnicodeFromObj
4223
+# define Tcl_GetUnicodeFromObj(objPtr, sizePtr) \
4224
+ tclStubsPtr->tclGetUnicodeFromObj((objPtr), (sizePtr))
4225
+# undef Tcl_ListObjGetElements
4226
+# define Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) \
4227
+ tclStubsPtr->tclListObjGetElements((interp), (listPtr), (objcPtr), (objvPtr))
4228
+# undef Tcl_ListObjLength
4229
+# define Tcl_ListObjLength(interp, listPtr, lengthPtr) \
4230
+ tclStubsPtr->tclListObjLength((interp), (listPtr), (lengthPtr))
4231
+# undef Tcl_DictObjSize
4232
+# define Tcl_DictObjSize(interp, dictPtr, sizePtr) \
4233
+ tclStubsPtr->tclDictObjSize((interp), (dictPtr), (sizePtr))
4234
+# undef Tcl_SplitList
4235
+# define Tcl_SplitList(interp, listStr, argcPtr, argvPtr) \
4236
+ tclStubsPtr->tclSplitList((interp), (listStr), (argcPtr), (argvPtr))
4237
+# undef Tcl_SplitPath
4238
+# define Tcl_SplitPath(path, argcPtr, argvPtr) \
4239
+ tclStubsPtr->tclSplitPath((path), (argcPtr), (argvPtr))
4240
+# undef Tcl_FSSplitPath
4241
+# define Tcl_FSSplitPath(pathPtr, lenPtr) \
4242
+ tclStubsPtr->tclFSSplitPath((pathPtr), (lenPtr))
4243
+# undef Tcl_ParseArgsObjv
4244
+# define Tcl_ParseArgsObjv(interp, argTable, objcPtr, objv, remObjv) \
4245
+ tclStubsPtr->tclParseArgsObjv((interp), (argTable), (objcPtr), (objv), (remObjv))
4246
+# undef Tcl_GetAliasObj
4247
+# define Tcl_GetAliasObj(interp, childCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) \
4248
+ tclStubsPtr->tclGetAliasObj((interp), (childCmd), (targetInterpPtr), (targetCmdPtr), (objcPtr), (objv))
4249
+# undef Tcl_OpenTcpServerEx
4250
+# undef TclZipfs_Mount
4251
+# undef TclZipfs_Unmount
4252
+# undef TclZipfs_TclLibrary
4253
+# undef TclZipfs_MountBuffer
4254
+# undef Tcl_FreeInternalRep
4255
+# undef Tcl_InitStringRep
4256
+# undef Tcl_FetchInternalRep
4257
+# undef Tcl_StoreInternalRep
4258
+# undef Tcl_HasStringRep
4259
+# undef Tcl_LinkArray
4260
+# undef Tcl_GetIntForIndex
4261
+# undef Tcl_FSTildeExpand
4262
+# undef Tcl_ExternalToUtfDStringEx
4263
+# undef Tcl_UtfToExternalDStringEx
4264
+# undef Tcl_AsyncMarkFromSignal
4265
+# undef Tcl_GetBool
4266
+# undef Tcl_GetBoolFromObj
4267
+# undef Tcl_GetNumberFromObj
4268
+# undef Tcl_GetNumber
4269
+# undef Tcl_RemoveChannelMode
4270
+# undef Tcl_GetEncodingNulLength
4271
+# undef Tcl_GetWideUIntFromObj
4272
+# undef Tcl_DStringToObj
4273
+# undef Tcl_NewWideUIntObj
4274
+# undef Tcl_SetWideUIntObj
4275
+#elif defined(TCL_8_API)
4276
+# undef Tcl_GetByteArrayFromObj
4277
+# undef Tcl_GetBytesFromObj
4278
+# undef Tcl_GetStringFromObj
4279
+# undef Tcl_GetUnicodeFromObj
4280
+# undef Tcl_ListObjGetElements
4281
+# undef Tcl_ListObjLength
4282
+# undef Tcl_DictObjSize
4283
+# undef Tcl_SplitList
4284
+# undef Tcl_SplitPath
4285
+# undef Tcl_FSSplitPath
4286
+# undef Tcl_ParseArgsObjv
4287
+# undef Tcl_GetAliasObj
4288
+# if !defined(USE_TCL_STUBS)
4289
+# define Tcl_GetByteArrayFromObj(objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4290
+ TclGetBytesFromObj(NULL, (objPtr), (sizePtr)) : \
4291
+ (Tcl_GetBytesFromObj)(NULL, (objPtr), (Tcl_Size *)(void *)(sizePtr)))
4292
+# define Tcl_GetBytesFromObj(interp, objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4293
+ TclGetBytesFromObj((interp), (objPtr), (sizePtr)) : \
4294
+ (Tcl_GetBytesFromObj)((interp), (objPtr), (Tcl_Size *)(void *)(sizePtr)))
4295
+# define Tcl_GetStringFromObj(objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4296
+ (TclGetStringFromObj)((objPtr), (sizePtr)) : \
4297
+ (Tcl_GetStringFromObj)((objPtr), (Tcl_Size *)(void *)(sizePtr)))
4298
+# define Tcl_GetUnicodeFromObj(objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4299
+ TclGetUnicodeFromObj((objPtr), (sizePtr)) : \
4300
+ (Tcl_GetUnicodeFromObj)((objPtr), (Tcl_Size *)(void *)(sizePtr)))
4301
+# define Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) (sizeof(*(objcPtr)) <= sizeof(int) ? \
4302
+ (TclListObjGetElements)((interp), (listPtr), (objcPtr), (objvPtr)) : \
4303
+ (Tcl_ListObjGetElements)((interp), (listPtr), (Tcl_Size *)(void *)(objcPtr), (objvPtr)))
4304
+# define Tcl_ListObjLength(interp, listPtr, lengthPtr) (sizeof(*(lengthPtr)) <= sizeof(int) ? \
4305
+ (TclListObjLength)((interp), (listPtr), (lengthPtr)) : \
4306
+ (Tcl_ListObjLength)((interp), (listPtr), (Tcl_Size *)(void *)(lengthPtr)))
4307
+# define Tcl_DictObjSize(interp, dictPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4308
+ TclDictObjSize((interp), (dictPtr), (sizePtr)) : \
4309
+ (Tcl_DictObjSize)((interp), (dictPtr), (Tcl_Size *)(void *)(sizePtr)))
4310
+# define Tcl_SplitList(interp, listStr, argcPtr, argvPtr) (sizeof(*(argcPtr)) <= sizeof(int) ? \
4311
+ TclSplitList((interp), (listStr), (argcPtr), (argvPtr)) : \
4312
+ (Tcl_SplitList)((interp), (listStr), (Tcl_Size *)(void *)(argcPtr), (argvPtr)))
4313
+# define Tcl_SplitPath(path, argcPtr, argvPtr) (sizeof(*(argcPtr)) <= sizeof(int) ? \
4314
+ TclSplitPath((path), (argcPtr), (argvPtr)) : \
4315
+ (Tcl_SplitPath)((path), (Tcl_Size *)(void *)(argcPtr), (argvPtr)))
4316
+# define Tcl_FSSplitPath(pathPtr, lenPtr) (sizeof(*(lenPtr)) <= sizeof(int) ? \
4317
+ TclFSSplitPath((pathPtr), (lenPtr)) : \
4318
+ (Tcl_FSSplitPath)((pathPtr), (Tcl_Size *)(void *)(lenPtr)))
4319
+# define Tcl_ParseArgsObjv(interp, argTable, objcPtr, objv, remObjv) (sizeof(*(objcPtr)) <= sizeof(int) ? \
4320
+ TclParseArgsObjv((interp), (argTable), (objcPtr), (objv), (remObjv)) : \
4321
+ (Tcl_ParseArgsObjv)((interp), (argTable), (Tcl_Size *)(void *)(objcPtr), (objv), (remObjv)))
4322
+# define Tcl_GetAliasObj(interp, childCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) (sizeof(*(objcPtr)) <= sizeof(int) ? \
4323
+ TclGetAliasObj((interp), (childCmd), (targetInterpPtr), (targetCmdPtr), (objcPtr), (objv)) : \
4324
+ (Tcl_GetAliasObj)((interp), (childCmd), (targetInterpPtr), (targetCmdPtr), (Tcl_Size *)(void *)(objcPtr), (objv)))
4325
+# elif !defined(BUILD_tcl)
4326
+# define Tcl_GetByteArrayFromObj(objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4327
+ tclStubsPtr->tclGetBytesFromObj(NULL, (objPtr), (sizePtr)) : \
4328
+ tclStubsPtr->tcl_GetBytesFromObj(NULL, (objPtr), (Tcl_Size *)(void *)(sizePtr)))
4329
+# define Tcl_GetBytesFromObj(interp, objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4330
+ tclStubsPtr->tclGetBytesFromObj((interp), (objPtr), (sizePtr)) : \
4331
+ tclStubsPtr->tcl_GetBytesFromObj((interp), (objPtr), (Tcl_Size *)(void *)(sizePtr)))
4332
+# define Tcl_GetStringFromObj(objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4333
+ tclStubsPtr->tclGetStringFromObj((objPtr), (sizePtr)) : \
4334
+ tclStubsPtr->tcl_GetStringFromObj((objPtr), (Tcl_Size *)(void *)(sizePtr)))
4335
+# define Tcl_GetUnicodeFromObj(objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4336
+ tclStubsPtr->tclGetUnicodeFromObj((objPtr), (sizePtr)) : \
4337
+ tclStubsPtr->tcl_GetUnicodeFromObj((objPtr), (Tcl_Size *)(void *)(sizePtr)))
4338
+# define Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) (sizeof(*(objcPtr)) <= sizeof(int) ? \
4339
+ tclStubsPtr->tclListObjGetElements((interp), (listPtr), (objcPtr), (objvPtr)) : \
4340
+ tclStubsPtr->tcl_ListObjGetElements((interp), (listPtr), (Tcl_Size *)(void *)(objcPtr), (objvPtr)))
4341
+# define Tcl_ListObjLength(interp, listPtr, lengthPtr) (sizeof(*(lengthPtr)) <= sizeof(int) ? \
4342
+ tclStubsPtr->tclListObjLength((interp), (listPtr), (lengthPtr)) : \
4343
+ tclStubsPtr->tcl_ListObjLength((interp), (listPtr), (Tcl_Size *)(void *)(lengthPtr)))
4344
+# define Tcl_DictObjSize(interp, dictPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4345
+ tclStubsPtr->tclDictObjSize((interp), (dictPtr), (sizePtr)) : \
4346
+ tclStubsPtr->tcl_DictObjSize((interp), (dictPtr), (Tcl_Size *)(void *)(sizePtr)))
4347
+# define Tcl_SplitList(interp, listStr, argcPtr, argvPtr) (sizeof(*(argcPtr)) <= sizeof(int) ? \
4348
+ tclStubsPtr->tclSplitList((interp), (listStr), (argcPtr), (argvPtr)) : \
4349
+ tclStubsPtr->tcl_SplitList((interp), (listStr), (Tcl_Size *)(void *)(argcPtr), (argvPtr)))
4350
+# define Tcl_SplitPath(path, argcPtr, argvPtr) (sizeof(*(argcPtr)) <= sizeof(int) ? \
4351
+ tclStubsPtr->tclSplitPath((path), (argcPtr), (argvPtr)) : \
4352
+ tclStubsPtr->tcl_SplitPath((path), (Tcl_Size *)(void *)(argcPtr), (argvPtr)))
4353
+# define Tcl_FSSplitPath(pathPtr, lenPtr) (sizeof(*(lenPtr)) <= sizeof(int) ? \
4354
+ tclStubsPtr->tclFSSplitPath((pathPtr), (lenPtr)) : \
4355
+ tclStubsPtr->tcl_FSSplitPath((pathPtr), (Tcl_Size *)(void *)(lenPtr)))
4356
+# define Tcl_ParseArgsObjv(interp, argTable, objcPtr, objv, remObjv) (sizeof(*(objcPtr)) <= sizeof(int) ? \
4357
+ tclStubsPtr->tclParseArgsObjv((interp), (argTable), (objcPtr), (objv), (remObjv)) : \
4358
+ tclStubsPtr->tcl_ParseArgsObjv((interp), (argTable), (Tcl_Size *)(void *)(objcPtr), (objv), (remObjv)))
4359
+# define Tcl_GetAliasObj(interp, childCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) (sizeof(*(objcPtr)) <= sizeof(int) ? \
4360
+ tclStubsPtr->tclGetAliasObj((interp), (childCmd), (targetInterpPtr), (targetCmdPtr), (objcPtr), (objv)) : \
4361
+ tclStubsPtr->tcl_GetAliasObj((interp), (childCmd), (targetInterpPtr), (targetCmdPtr), (Tcl_Size *)(void *)(objcPtr), (objv)))
4362
+# endif /* defined(USE_TCL_STUBS) */
4363
+#else /* !defined(TCL_8_API) */
4364
+# undef Tcl_GetByteArrayFromObj
4365
+# define Tcl_GetByteArrayFromObj(objPtr, sizePtr) \
4366
+ Tcl_GetBytesFromObj(NULL, (objPtr), (sizePtr))
4367
+#endif /* defined(TCL_8_API) */
4368
+
4369
+#endif /* _TCLDECLS */
--- a/compat/tcl-9.0/generic/tclDecls.h
+++ b/compat/tcl-9.0/generic/tclDecls.h
@@ -0,0 +1,4369 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
--- a/compat/tcl-9.0/generic/tclDecls.h
+++ b/compat/tcl-9.0/generic/tclDecls.h
@@ -0,0 +1,4369 @@
1 /*
2 * tclDecls.h --
3 *
4 * Declarations of functions in the platform independent public Tcl API.
5 *
6 * Copyright (c) 1998-1999 by Scriptics Corporation.
7 *
8 * See the file "license.terms" for information on usage and redistribution
9 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
10 */
11
12 #ifndef _TCLDECLS
13 #define _TCLDECLS
14
15 #include <stddef.h> /* for size_t */
16
17 #undef TCL_STORAGE_CLASS
18 #ifdef BUILD_tcl
19 # define TCL_STORAGE_CLASS DLLEXPORT
20 #else
21 # ifdef USE_TCL_STUBS
22 # define TCL_STORAGE_CLASS
23 # else
24 # define TCL_STORAGE_CLASS DLLIMPORT
25 # endif
26 #endif
27
28 #if !defined(BUILD_tcl)
29 # define TCL_DEPRECATED(msg) EXTERN TCL_DEPRECATED_API(msg)
30 #elif defined(TCL_NO_DEPRECATED)
31 # define TCL_DEPRECATED(msg) MODULE_SCOPE
32 #else
33 # define TCL_DEPRECATED(msg) EXTERN
34 #endif
35
36
37 /*
38 * WARNING: This file is automatically generated by the tools/genStubs.tcl
39 * script. Any modifications to the function declarations below should be made
40 * in the generic/tcl.decls script.
41 */
42
43 /* !BEGIN!: Do not edit below this line. */
44
45 #ifdef __cplusplus
46 extern "C" {
47 #endif
48
49 /*
50 * Exported function declarations:
51 */
52
53 /* 0 */
54 EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp,
55 const char *name, const char *version,
56 const void *clientData);
57 /* 1 */
58 EXTERN const char * Tcl_PkgRequireEx(Tcl_Interp *interp,
59 const char *name, const char *version,
60 int exact, void *clientDataPtr);
61 /* 2 */
62 EXTERN TCL_NORETURN void Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
63 /* 3 */
64 EXTERN void * Tcl_Alloc(TCL_HASH_TYPE size);
65 /* 4 */
66 EXTERN void Tcl_Free(void *ptr);
67 /* 5 */
68 EXTERN void * Tcl_Realloc(void *ptr, TCL_HASH_TYPE size);
69 /* 6 */
70 EXTERN void * Tcl_DbCkalloc(TCL_HASH_TYPE size, const char *file,
71 int line);
72 /* 7 */
73 EXTERN void Tcl_DbCkfree(void *ptr, const char *file, int line);
74 /* 8 */
75 EXTERN void * Tcl_DbCkrealloc(void *ptr, TCL_HASH_TYPE size,
76 const char *file, int line);
77 /* 9 */
78 EXTERN void Tcl_CreateFileHandler(int fd, int mask,
79 Tcl_FileProc *proc, void *clientData);
80 /* 10 */
81 EXTERN void Tcl_DeleteFileHandler(int fd);
82 /* 11 */
83 EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr);
84 /* 12 */
85 EXTERN void Tcl_Sleep(int ms);
86 /* 13 */
87 EXTERN int Tcl_WaitForEvent(const Tcl_Time *timePtr);
88 /* 14 */
89 EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp,
90 Tcl_Obj *objPtr);
91 /* 15 */
92 EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...);
93 /* 16 */
94 EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes,
95 Tcl_Size length);
96 /* 17 */
97 EXTERN Tcl_Obj * Tcl_ConcatObj(Tcl_Size objc, Tcl_Obj *const objv[]);
98 /* 18 */
99 EXTERN int Tcl_ConvertToType(Tcl_Interp *interp,
100 Tcl_Obj *objPtr, const Tcl_ObjType *typePtr);
101 /* 19 */
102 EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file,
103 int line);
104 /* 20 */
105 EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file,
106 int line);
107 /* 21 */
108 EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file,
109 int line);
110 /* Slot 22 is reserved */
111 /* 23 */
112 EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(const unsigned char *bytes,
113 Tcl_Size numBytes, const char *file,
114 int line);
115 /* 24 */
116 EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue,
117 const char *file, int line);
118 /* 25 */
119 EXTERN Tcl_Obj * Tcl_DbNewListObj(Tcl_Size objc, Tcl_Obj *const *objv,
120 const char *file, int line);
121 /* Slot 26 is reserved */
122 /* 27 */
123 EXTERN Tcl_Obj * Tcl_DbNewObj(const char *file, int line);
124 /* 28 */
125 EXTERN Tcl_Obj * Tcl_DbNewStringObj(const char *bytes,
126 Tcl_Size length, const char *file, int line);
127 /* 29 */
128 EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr);
129 /* 30 */
130 EXTERN void TclFreeObj(Tcl_Obj *objPtr);
131 /* 31 */
132 EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, const char *src,
133 int *intPtr);
134 /* 32 */
135 EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp,
136 Tcl_Obj *objPtr, int *intPtr);
137 /* 33 */
138 EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr,
139 Tcl_Size *numBytesPtr);
140 /* 34 */
141 EXTERN int Tcl_GetDouble(Tcl_Interp *interp, const char *src,
142 double *doublePtr);
143 /* 35 */
144 EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp,
145 Tcl_Obj *objPtr, double *doublePtr);
146 /* Slot 36 is reserved */
147 /* 37 */
148 EXTERN int Tcl_GetInt(Tcl_Interp *interp, const char *src,
149 int *intPtr);
150 /* 38 */
151 EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp,
152 Tcl_Obj *objPtr, int *intPtr);
153 /* 39 */
154 EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp,
155 Tcl_Obj *objPtr, long *longPtr);
156 /* 40 */
157 EXTERN const Tcl_ObjType * Tcl_GetObjType(const char *typeName);
158 /* 41 */
159 EXTERN char * TclGetStringFromObj(Tcl_Obj *objPtr, void *lengthPtr);
160 /* 42 */
161 EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr);
162 /* 43 */
163 EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp,
164 Tcl_Obj *listPtr, Tcl_Obj *elemListPtr);
165 /* 44 */
166 EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp,
167 Tcl_Obj *listPtr, Tcl_Obj *objPtr);
168 /* 45 */
169 EXTERN int TclListObjGetElements(Tcl_Interp *interp,
170 Tcl_Obj *listPtr, void *objcPtr,
171 Tcl_Obj ***objvPtr);
172 /* 46 */
173 EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp,
174 Tcl_Obj *listPtr, Tcl_Size index,
175 Tcl_Obj **objPtrPtr);
176 /* 47 */
177 EXTERN int TclListObjLength(Tcl_Interp *interp,
178 Tcl_Obj *listPtr, void *lengthPtr);
179 /* 48 */
180 EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp,
181 Tcl_Obj *listPtr, Tcl_Size first,
182 Tcl_Size count, Tcl_Size objc,
183 Tcl_Obj *const objv[]);
184 /* Slot 49 is reserved */
185 /* 50 */
186 EXTERN Tcl_Obj * Tcl_NewByteArrayObj(const unsigned char *bytes,
187 Tcl_Size numBytes);
188 /* 51 */
189 EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue);
190 /* Slot 52 is reserved */
191 /* 53 */
192 EXTERN Tcl_Obj * Tcl_NewListObj(Tcl_Size objc, Tcl_Obj *const objv[]);
193 /* Slot 54 is reserved */
194 /* 55 */
195 EXTERN Tcl_Obj * Tcl_NewObj(void);
196 /* 56 */
197 EXTERN Tcl_Obj * Tcl_NewStringObj(const char *bytes, Tcl_Size length);
198 /* Slot 57 is reserved */
199 /* 58 */
200 EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr,
201 Tcl_Size numBytes);
202 /* 59 */
203 EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr,
204 const unsigned char *bytes,
205 Tcl_Size numBytes);
206 /* 60 */
207 EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue);
208 /* Slot 61 is reserved */
209 /* 62 */
210 EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, Tcl_Size objc,
211 Tcl_Obj *const objv[]);
212 /* Slot 63 is reserved */
213 /* 64 */
214 EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, Tcl_Size length);
215 /* 65 */
216 EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes,
217 Tcl_Size length);
218 /* Slot 66 is reserved */
219 /* Slot 67 is reserved */
220 /* 68 */
221 EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp);
222 /* 69 */
223 EXTERN void Tcl_AppendElement(Tcl_Interp *interp,
224 const char *element);
225 /* 70 */
226 EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...);
227 /* 71 */
228 EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc,
229 void *clientData);
230 /* 72 */
231 EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async);
232 /* 73 */
233 EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code);
234 /* 74 */
235 EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async);
236 /* 75 */
237 EXTERN int Tcl_AsyncReady(void);
238 /* Slot 76 is reserved */
239 /* Slot 77 is reserved */
240 /* 78 */
241 EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp,
242 const char *optionName,
243 const char *optionList);
244 /* 79 */
245 EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp,
246 Tcl_InterpDeleteProc *proc, void *clientData);
247 /* 80 */
248 EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc,
249 void *clientData);
250 /* 81 */
251 EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan);
252 /* 82 */
253 EXTERN int Tcl_CommandComplete(const char *cmd);
254 /* 83 */
255 EXTERN char * Tcl_Concat(Tcl_Size argc, const char *const *argv);
256 /* 84 */
257 EXTERN Tcl_Size Tcl_ConvertElement(const char *src, char *dst,
258 int flags);
259 /* 85 */
260 EXTERN Tcl_Size Tcl_ConvertCountedElement(const char *src,
261 Tcl_Size length, char *dst, int flags);
262 /* 86 */
263 EXTERN int Tcl_CreateAlias(Tcl_Interp *childInterp,
264 const char *childCmd, Tcl_Interp *target,
265 const char *targetCmd, Tcl_Size argc,
266 const char *const *argv);
267 /* 87 */
268 EXTERN int Tcl_CreateAliasObj(Tcl_Interp *childInterp,
269 const char *childCmd, Tcl_Interp *target,
270 const char *targetCmd, Tcl_Size objc,
271 Tcl_Obj *const objv[]);
272 /* 88 */
273 EXTERN Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr,
274 const char *chanName, void *instanceData,
275 int mask);
276 /* 89 */
277 EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask,
278 Tcl_ChannelProc *proc, void *clientData);
279 /* 90 */
280 EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan,
281 Tcl_CloseProc *proc, void *clientData);
282 /* 91 */
283 EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp,
284 const char *cmdName, Tcl_CmdProc *proc,
285 void *clientData,
286 Tcl_CmdDeleteProc *deleteProc);
287 /* 92 */
288 EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc,
289 Tcl_EventCheckProc *checkProc,
290 void *clientData);
291 /* 93 */
292 EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc,
293 void *clientData);
294 /* 94 */
295 EXTERN Tcl_Interp * Tcl_CreateInterp(void);
296 /* Slot 95 is reserved */
297 /* 96 */
298 EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp,
299 const char *cmdName, Tcl_ObjCmdProc *proc,
300 void *clientData,
301 Tcl_CmdDeleteProc *deleteProc);
302 /* 97 */
303 EXTERN Tcl_Interp * Tcl_CreateChild(Tcl_Interp *interp, const char *name,
304 int isSafe);
305 /* 98 */
306 EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds,
307 Tcl_TimerProc *proc, void *clientData);
308 /* 99 */
309 EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, Tcl_Size level,
310 Tcl_CmdTraceProc *proc, void *clientData);
311 /* 100 */
312 EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp,
313 const char *name);
314 /* 101 */
315 EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan,
316 Tcl_ChannelProc *proc, void *clientData);
317 /* 102 */
318 EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan,
319 Tcl_CloseProc *proc, void *clientData);
320 /* 103 */
321 EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp,
322 const char *cmdName);
323 /* 104 */
324 EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp,
325 Tcl_Command command);
326 /* 105 */
327 EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc,
328 void *clientData);
329 /* 106 */
330 EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc,
331 Tcl_EventCheckProc *checkProc,
332 void *clientData);
333 /* 107 */
334 EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc,
335 void *clientData);
336 /* 108 */
337 EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr);
338 /* 109 */
339 EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr);
340 /* 110 */
341 EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp);
342 /* 111 */
343 EXTERN void Tcl_DetachPids(Tcl_Size numPids, Tcl_Pid *pidPtr);
344 /* 112 */
345 EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token);
346 /* 113 */
347 EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace);
348 /* 114 */
349 EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp,
350 Tcl_InterpDeleteProc *proc, void *clientData);
351 /* 115 */
352 EXTERN int Tcl_DoOneEvent(int flags);
353 /* 116 */
354 EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc, void *clientData);
355 /* 117 */
356 EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr,
357 const char *bytes, Tcl_Size length);
358 /* 118 */
359 EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr,
360 const char *element);
361 /* 119 */
362 EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr);
363 /* 120 */
364 EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr);
365 /* 121 */
366 EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp,
367 Tcl_DString *dsPtr);
368 /* 122 */
369 EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr);
370 /* 123 */
371 EXTERN void Tcl_DStringResult(Tcl_Interp *interp,
372 Tcl_DString *dsPtr);
373 /* 124 */
374 EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr,
375 Tcl_Size length);
376 /* 125 */
377 EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr);
378 /* 126 */
379 EXTERN int Tcl_Eof(Tcl_Channel chan);
380 /* 127 */
381 EXTERN const char * Tcl_ErrnoId(void);
382 /* 128 */
383 EXTERN const char * Tcl_ErrnoMsg(int err);
384 /* Slot 129 is reserved */
385 /* 130 */
386 EXTERN int Tcl_EvalFile(Tcl_Interp *interp,
387 const char *fileName);
388 /* Slot 131 is reserved */
389 /* 132 */
390 EXTERN void Tcl_EventuallyFree(void *clientData,
391 Tcl_FreeProc *freeProc);
392 /* 133 */
393 EXTERN TCL_NORETURN void Tcl_Exit(int status);
394 /* 134 */
395 EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp,
396 const char *hiddenCmdToken,
397 const char *cmdName);
398 /* 135 */
399 EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr,
400 int *ptr);
401 /* 136 */
402 EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp,
403 Tcl_Obj *objPtr, int *ptr);
404 /* 137 */
405 EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, const char *expr,
406 double *ptr);
407 /* 138 */
408 EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp,
409 Tcl_Obj *objPtr, double *ptr);
410 /* 139 */
411 EXTERN int Tcl_ExprLong(Tcl_Interp *interp, const char *expr,
412 long *ptr);
413 /* 140 */
414 EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
415 long *ptr);
416 /* 141 */
417 EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
418 Tcl_Obj **resultPtrPtr);
419 /* 142 */
420 EXTERN int Tcl_ExprString(Tcl_Interp *interp, const char *expr);
421 /* 143 */
422 EXTERN void Tcl_Finalize(void);
423 /* Slot 144 is reserved */
424 /* 145 */
425 EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr,
426 Tcl_HashSearch *searchPtr);
427 /* 146 */
428 EXTERN int Tcl_Flush(Tcl_Channel chan);
429 /* Slot 147 is reserved */
430 /* Slot 148 is reserved */
431 /* 149 */
432 EXTERN int TclGetAliasObj(Tcl_Interp *interp,
433 const char *childCmd,
434 Tcl_Interp **targetInterpPtr,
435 const char **targetCmdPtr, int *objcPtr,
436 Tcl_Obj ***objvPtr);
437 /* 150 */
438 EXTERN void * Tcl_GetAssocData(Tcl_Interp *interp,
439 const char *name,
440 Tcl_InterpDeleteProc **procPtr);
441 /* 151 */
442 EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp,
443 const char *chanName, int *modePtr);
444 /* 152 */
445 EXTERN Tcl_Size Tcl_GetChannelBufferSize(Tcl_Channel chan);
446 /* 153 */
447 EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction,
448 void **handlePtr);
449 /* 154 */
450 EXTERN void * Tcl_GetChannelInstanceData(Tcl_Channel chan);
451 /* 155 */
452 EXTERN int Tcl_GetChannelMode(Tcl_Channel chan);
453 /* 156 */
454 EXTERN const char * Tcl_GetChannelName(Tcl_Channel chan);
455 /* 157 */
456 EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp,
457 Tcl_Channel chan, const char *optionName,
458 Tcl_DString *dsPtr);
459 /* 158 */
460 EXTERN const Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan);
461 /* 159 */
462 EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp,
463 const char *cmdName, Tcl_CmdInfo *infoPtr);
464 /* 160 */
465 EXTERN const char * Tcl_GetCommandName(Tcl_Interp *interp,
466 Tcl_Command command);
467 /* 161 */
468 EXTERN int Tcl_GetErrno(void);
469 /* 162 */
470 EXTERN const char * Tcl_GetHostName(void);
471 /* 163 */
472 EXTERN int Tcl_GetInterpPath(Tcl_Interp *interp,
473 Tcl_Interp *childInterp);
474 /* 164 */
475 EXTERN Tcl_Interp * Tcl_GetParent(Tcl_Interp *interp);
476 /* 165 */
477 EXTERN const char * Tcl_GetNameOfExecutable(void);
478 /* 166 */
479 EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp);
480 /* 167 */
481 EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
482 const char *chanID, int forWriting,
483 int checkUsage, void **filePtr);
484 /* 168 */
485 EXTERN Tcl_PathType Tcl_GetPathType(const char *path);
486 /* 169 */
487 EXTERN Tcl_Size Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr);
488 /* 170 */
489 EXTERN Tcl_Size Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr);
490 /* 171 */
491 EXTERN int Tcl_GetServiceMode(void);
492 /* 172 */
493 EXTERN Tcl_Interp * Tcl_GetChild(Tcl_Interp *interp, const char *name);
494 /* 173 */
495 EXTERN Tcl_Channel Tcl_GetStdChannel(int type);
496 /* Slot 174 is reserved */
497 /* Slot 175 is reserved */
498 /* 176 */
499 EXTERN const char * Tcl_GetVar2(Tcl_Interp *interp, const char *part1,
500 const char *part2, int flags);
501 /* Slot 177 is reserved */
502 /* Slot 178 is reserved */
503 /* 179 */
504 EXTERN int Tcl_HideCommand(Tcl_Interp *interp,
505 const char *cmdName,
506 const char *hiddenCmdToken);
507 /* 180 */
508 EXTERN int Tcl_Init(Tcl_Interp *interp);
509 /* 181 */
510 EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr,
511 int keyType);
512 /* 182 */
513 EXTERN int Tcl_InputBlocked(Tcl_Channel chan);
514 /* 183 */
515 EXTERN int Tcl_InputBuffered(Tcl_Channel chan);
516 /* 184 */
517 EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp);
518 /* 185 */
519 EXTERN int Tcl_IsSafe(Tcl_Interp *interp);
520 /* 186 */
521 EXTERN char * Tcl_JoinPath(Tcl_Size argc, const char *const *argv,
522 Tcl_DString *resultPtr);
523 /* 187 */
524 EXTERN int Tcl_LinkVar(Tcl_Interp *interp, const char *varName,
525 void *addr, int type);
526 /* Slot 188 is reserved */
527 /* 189 */
528 EXTERN Tcl_Channel Tcl_MakeFileChannel(void *handle, int mode);
529 /* Slot 190 is reserved */
530 /* 191 */
531 EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(void *tcpSocket);
532 /* 192 */
533 EXTERN char * Tcl_Merge(Tcl_Size argc, const char *const *argv);
534 /* 193 */
535 EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr);
536 /* 194 */
537 EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask);
538 /* 195 */
539 EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
540 Tcl_Obj *part2Ptr, int flags);
541 /* 196 */
542 EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
543 Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
544 int flags);
545 /* 197 */
546 EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp,
547 Tcl_Size argc, const char **argv, int flags);
548 /* 198 */
549 EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp,
550 const char *fileName, const char *modeString,
551 int permissions);
552 /* 199 */
553 EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port,
554 const char *address, const char *myaddr,
555 int myport, int flags);
556 /* 200 */
557 EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port,
558 const char *host,
559 Tcl_TcpAcceptProc *acceptProc,
560 void *callbackData);
561 /* 201 */
562 EXTERN void Tcl_Preserve(void *data);
563 /* 202 */
564 EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value,
565 char *dst);
566 /* 203 */
567 EXTERN int Tcl_PutEnv(const char *assignment);
568 /* 204 */
569 EXTERN const char * Tcl_PosixError(Tcl_Interp *interp);
570 /* 205 */
571 EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr, int position);
572 /* 206 */
573 EXTERN Tcl_Size Tcl_Read(Tcl_Channel chan, char *bufPtr,
574 Tcl_Size toRead);
575 /* 207 */
576 EXTERN void Tcl_ReapDetachedProcs(void);
577 /* 208 */
578 EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp,
579 const char *cmd, int flags);
580 /* 209 */
581 EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp,
582 Tcl_Obj *cmdPtr, int flags);
583 /* 210 */
584 EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp,
585 Tcl_Channel chan);
586 /* 211 */
587 EXTERN void Tcl_RegisterObjType(const Tcl_ObjType *typePtr);
588 /* 212 */
589 EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp,
590 const char *pattern);
591 /* 213 */
592 EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp,
593 const char *text, const char *start);
594 /* 214 */
595 EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, const char *text,
596 const char *pattern);
597 /* 215 */
598 EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, Tcl_Size index,
599 const char **startPtr, const char **endPtr);
600 /* 216 */
601 EXTERN void Tcl_Release(void *clientData);
602 /* 217 */
603 EXTERN void Tcl_ResetResult(Tcl_Interp *interp);
604 /* 218 */
605 EXTERN Tcl_Size Tcl_ScanElement(const char *src, int *flagPtr);
606 /* 219 */
607 EXTERN Tcl_Size Tcl_ScanCountedElement(const char *src,
608 Tcl_Size length, int *flagPtr);
609 /* Slot 220 is reserved */
610 /* 221 */
611 EXTERN int Tcl_ServiceAll(void);
612 /* 222 */
613 EXTERN int Tcl_ServiceEvent(int flags);
614 /* 223 */
615 EXTERN void Tcl_SetAssocData(Tcl_Interp *interp,
616 const char *name, Tcl_InterpDeleteProc *proc,
617 void *clientData);
618 /* 224 */
619 EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan,
620 Tcl_Size sz);
621 /* 225 */
622 EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp,
623 Tcl_Channel chan, const char *optionName,
624 const char *newValue);
625 /* 226 */
626 EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp,
627 const char *cmdName,
628 const Tcl_CmdInfo *infoPtr);
629 /* 227 */
630 EXTERN void Tcl_SetErrno(int err);
631 /* 228 */
632 EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...);
633 /* 229 */
634 EXTERN void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr);
635 /* Slot 230 is reserved */
636 /* 231 */
637 EXTERN Tcl_Size Tcl_SetRecursionLimit(Tcl_Interp *interp,
638 Tcl_Size depth);
639 /* Slot 232 is reserved */
640 /* 233 */
641 EXTERN int Tcl_SetServiceMode(int mode);
642 /* 234 */
643 EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp,
644 Tcl_Obj *errorObjPtr);
645 /* 235 */
646 EXTERN void Tcl_SetObjResult(Tcl_Interp *interp,
647 Tcl_Obj *resultObjPtr);
648 /* 236 */
649 EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type);
650 /* Slot 237 is reserved */
651 /* 238 */
652 EXTERN const char * Tcl_SetVar2(Tcl_Interp *interp, const char *part1,
653 const char *part2, const char *newValue,
654 int flags);
655 /* 239 */
656 EXTERN const char * Tcl_SignalId(int sig);
657 /* 240 */
658 EXTERN const char * Tcl_SignalMsg(int sig);
659 /* 241 */
660 EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp);
661 /* 242 */
662 EXTERN int TclSplitList(Tcl_Interp *interp, const char *listStr,
663 void *argcPtr, const char ***argvPtr);
664 /* 243 */
665 EXTERN void TclSplitPath(const char *path, void *argcPtr,
666 const char ***argvPtr);
667 /* Slot 244 is reserved */
668 /* Slot 245 is reserved */
669 /* Slot 246 is reserved */
670 /* Slot 247 is reserved */
671 /* 248 */
672 EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, const char *part1,
673 const char *part2, int flags,
674 Tcl_VarTraceProc *proc, void *clientData);
675 /* 249 */
676 EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp,
677 const char *name, Tcl_DString *bufferPtr);
678 /* 250 */
679 EXTERN Tcl_Size Tcl_Ungets(Tcl_Channel chan, const char *str,
680 Tcl_Size len, int atHead);
681 /* 251 */
682 EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp,
683 const char *varName);
684 /* 252 */
685 EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp,
686 Tcl_Channel chan);
687 /* Slot 253 is reserved */
688 /* 254 */
689 EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1,
690 const char *part2, int flags);
691 /* Slot 255 is reserved */
692 /* 256 */
693 EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp,
694 const char *part1, const char *part2,
695 int flags, Tcl_VarTraceProc *proc,
696 void *clientData);
697 /* 257 */
698 EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp,
699 const char *varName);
700 /* Slot 258 is reserved */
701 /* 259 */
702 EXTERN int Tcl_UpVar2(Tcl_Interp *interp, const char *frameName,
703 const char *part1, const char *part2,
704 const char *localName, int flags);
705 /* 260 */
706 EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...);
707 /* Slot 261 is reserved */
708 /* 262 */
709 EXTERN void * Tcl_VarTraceInfo2(Tcl_Interp *interp,
710 const char *part1, const char *part2,
711 int flags, Tcl_VarTraceProc *procPtr,
712 void *prevClientData);
713 /* 263 */
714 EXTERN Tcl_Size Tcl_Write(Tcl_Channel chan, const char *s,
715 Tcl_Size slen);
716 /* 264 */
717 EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, Tcl_Size objc,
718 Tcl_Obj *const objv[], const char *message);
719 /* 265 */
720 EXTERN int Tcl_DumpActiveMemory(const char *fileName);
721 /* 266 */
722 EXTERN void Tcl_ValidateAllMemory(const char *file, int line);
723 /* Slot 267 is reserved */
724 /* Slot 268 is reserved */
725 /* 269 */
726 EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr);
727 /* 270 */
728 EXTERN const char * Tcl_ParseVar(Tcl_Interp *interp, const char *start,
729 const char **termPtr);
730 /* Slot 271 is reserved */
731 /* 272 */
732 EXTERN const char * Tcl_PkgPresentEx(Tcl_Interp *interp,
733 const char *name, const char *version,
734 int exact, void *clientDataPtr);
735 /* Slot 273 is reserved */
736 /* Slot 274 is reserved */
737 /* Slot 275 is reserved */
738 /* Slot 276 is reserved */
739 /* 277 */
740 EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options);
741 /* Slot 278 is reserved */
742 /* 279 */
743 EXTERN void Tcl_GetVersion(int *major, int *minor,
744 int *patchLevel, int *type);
745 /* 280 */
746 EXTERN void Tcl_InitMemory(Tcl_Interp *interp);
747 /* 281 */
748 EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp,
749 const Tcl_ChannelType *typePtr,
750 void *instanceData, int mask,
751 Tcl_Channel prevChan);
752 /* 282 */
753 EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp,
754 Tcl_Channel chan);
755 /* 283 */
756 EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan);
757 /* 284 */
758 EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc);
759 /* 285 */
760 EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp,
761 const char *childCmd,
762 Tcl_Interp **targetInterpPtr,
763 const char **targetCmdPtr, Tcl_Size *objcPtr,
764 Tcl_Obj ***objvPtr);
765 /* 286 */
766 EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr,
767 Tcl_Obj *appendObjPtr);
768 /* 287 */
769 EXTERN Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr);
770 /* 288 */
771 EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc,
772 void *clientData);
773 /* 289 */
774 EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc,
775 void *clientData);
776 /* Slot 290 is reserved */
777 /* 291 */
778 EXTERN int Tcl_EvalEx(Tcl_Interp *interp, const char *script,
779 Tcl_Size numBytes, int flags);
780 /* 292 */
781 EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, Tcl_Size objc,
782 Tcl_Obj *const objv[], int flags);
783 /* 293 */
784 EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
785 int flags);
786 /* 294 */
787 EXTERN TCL_NORETURN void Tcl_ExitThread(int status);
788 /* 295 */
789 EXTERN int Tcl_ExternalToUtf(Tcl_Interp *interp,
790 Tcl_Encoding encoding, const char *src,
791 Tcl_Size srcLen, int flags,
792 Tcl_EncodingState *statePtr, char *dst,
793 Tcl_Size dstLen, int *srcReadPtr,
794 int *dstWrotePtr, int *dstCharsPtr);
795 /* 296 */
796 EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding,
797 const char *src, Tcl_Size srcLen,
798 Tcl_DString *dsPtr);
799 /* 297 */
800 EXTERN void Tcl_FinalizeThread(void);
801 /* 298 */
802 EXTERN void Tcl_FinalizeNotifier(void *clientData);
803 /* 299 */
804 EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding);
805 /* 300 */
806 EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void);
807 /* 301 */
808 EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, const char *name);
809 /* 302 */
810 EXTERN const char * Tcl_GetEncodingName(Tcl_Encoding encoding);
811 /* 303 */
812 EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp);
813 /* 304 */
814 EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp,
815 Tcl_Obj *objPtr, const void *tablePtr,
816 Tcl_Size offset, const char *msg, int flags,
817 void *indexPtr);
818 /* 305 */
819 EXTERN void * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr,
820 Tcl_Size size);
821 /* 306 */
822 EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1,
823 const char *part2, int flags);
824 /* 307 */
825 EXTERN void * Tcl_InitNotifier(void);
826 /* 308 */
827 EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr);
828 /* 309 */
829 EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr);
830 /* 310 */
831 EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr);
832 /* 311 */
833 EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr,
834 Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr);
835 /* 312 */
836 EXTERN Tcl_Size TclNumUtfChars(const char *src, Tcl_Size length);
837 /* 313 */
838 EXTERN Tcl_Size Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr,
839 Tcl_Size charsToRead, int appendFlag);
840 /* Slot 314 is reserved */
841 /* Slot 315 is reserved */
842 /* 316 */
843 EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp,
844 const char *name);
845 /* 317 */
846 EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1,
847 const char *part2, Tcl_Obj *newValuePtr,
848 int flags);
849 /* 318 */
850 EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId);
851 /* 319 */
852 EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId,
853 Tcl_Event *evPtr, int position);
854 /* 320 */
855 EXTERN int Tcl_UniCharAtIndex(const char *src, Tcl_Size index);
856 /* 321 */
857 EXTERN int Tcl_UniCharToLower(int ch);
858 /* 322 */
859 EXTERN int Tcl_UniCharToTitle(int ch);
860 /* 323 */
861 EXTERN int Tcl_UniCharToUpper(int ch);
862 /* 324 */
863 EXTERN Tcl_Size Tcl_UniCharToUtf(int ch, char *buf);
864 /* 325 */
865 EXTERN const char * TclUtfAtIndex(const char *src, Tcl_Size index);
866 /* 326 */
867 EXTERN int TclUtfCharComplete(const char *src, Tcl_Size length);
868 /* 327 */
869 EXTERN Tcl_Size Tcl_UtfBackslash(const char *src, int *readPtr,
870 char *dst);
871 /* 328 */
872 EXTERN const char * Tcl_UtfFindFirst(const char *src, int ch);
873 /* 329 */
874 EXTERN const char * Tcl_UtfFindLast(const char *src, int ch);
875 /* 330 */
876 EXTERN const char * TclUtfNext(const char *src);
877 /* 331 */
878 EXTERN const char * TclUtfPrev(const char *src, const char *start);
879 /* 332 */
880 EXTERN int Tcl_UtfToExternal(Tcl_Interp *interp,
881 Tcl_Encoding encoding, const char *src,
882 Tcl_Size srcLen, int flags,
883 Tcl_EncodingState *statePtr, char *dst,
884 Tcl_Size dstLen, int *srcReadPtr,
885 int *dstWrotePtr, int *dstCharsPtr);
886 /* 333 */
887 EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding,
888 const char *src, Tcl_Size srcLen,
889 Tcl_DString *dsPtr);
890 /* 334 */
891 EXTERN Tcl_Size Tcl_UtfToLower(char *src);
892 /* 335 */
893 EXTERN Tcl_Size Tcl_UtfToTitle(char *src);
894 /* 336 */
895 EXTERN Tcl_Size Tcl_UtfToChar16(const char *src,
896 unsigned short *chPtr);
897 /* 337 */
898 EXTERN Tcl_Size Tcl_UtfToUpper(char *src);
899 /* 338 */
900 EXTERN Tcl_Size Tcl_WriteChars(Tcl_Channel chan, const char *src,
901 Tcl_Size srcLen);
902 /* 339 */
903 EXTERN Tcl_Size Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr);
904 /* 340 */
905 EXTERN char * Tcl_GetString(Tcl_Obj *objPtr);
906 /* Slot 341 is reserved */
907 /* Slot 342 is reserved */
908 /* 343 */
909 EXTERN void Tcl_AlertNotifier(void *clientData);
910 /* 344 */
911 EXTERN void Tcl_ServiceModeHook(int mode);
912 /* 345 */
913 EXTERN int Tcl_UniCharIsAlnum(int ch);
914 /* 346 */
915 EXTERN int Tcl_UniCharIsAlpha(int ch);
916 /* 347 */
917 EXTERN int Tcl_UniCharIsDigit(int ch);
918 /* 348 */
919 EXTERN int Tcl_UniCharIsLower(int ch);
920 /* 349 */
921 EXTERN int Tcl_UniCharIsSpace(int ch);
922 /* 350 */
923 EXTERN int Tcl_UniCharIsUpper(int ch);
924 /* 351 */
925 EXTERN int Tcl_UniCharIsWordChar(int ch);
926 /* 352 */
927 EXTERN Tcl_Size Tcl_Char16Len(const unsigned short *uniStr);
928 /* Slot 353 is reserved */
929 /* 354 */
930 EXTERN char * Tcl_Char16ToUtfDString(const unsigned short *uniStr,
931 Tcl_Size uniLength, Tcl_DString *dsPtr);
932 /* 355 */
933 EXTERN unsigned short * Tcl_UtfToChar16DString(const char *src,
934 Tcl_Size length, Tcl_DString *dsPtr);
935 /* 356 */
936 EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp,
937 Tcl_Obj *patObj, int flags);
938 /* Slot 357 is reserved */
939 /* 358 */
940 EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr);
941 /* 359 */
942 EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp,
943 const char *script, const char *command,
944 Tcl_Size length);
945 /* 360 */
946 EXTERN int Tcl_ParseBraces(Tcl_Interp *interp,
947 const char *start, Tcl_Size numBytes,
948 Tcl_Parse *parsePtr, int append,
949 const char **termPtr);
950 /* 361 */
951 EXTERN int Tcl_ParseCommand(Tcl_Interp *interp,
952 const char *start, Tcl_Size numBytes,
953 int nested, Tcl_Parse *parsePtr);
954 /* 362 */
955 EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, const char *start,
956 Tcl_Size numBytes, Tcl_Parse *parsePtr);
957 /* 363 */
958 EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp,
959 const char *start, Tcl_Size numBytes,
960 Tcl_Parse *parsePtr, int append,
961 const char **termPtr);
962 /* 364 */
963 EXTERN int Tcl_ParseVarName(Tcl_Interp *interp,
964 const char *start, Tcl_Size numBytes,
965 Tcl_Parse *parsePtr, int append);
966 /* 365 */
967 EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr);
968 /* 366 */
969 EXTERN int Tcl_Chdir(const char *dirName);
970 /* 367 */
971 EXTERN int Tcl_Access(const char *path, int mode);
972 /* 368 */
973 EXTERN int Tcl_Stat(const char *path, struct stat *bufPtr);
974 /* 369 */
975 EXTERN int TclUtfNcmp(const char *s1, const char *s2, size_t n);
976 /* 370 */
977 EXTERN int TclUtfNcasecmp(const char *s1, const char *s2,
978 size_t n);
979 /* 371 */
980 EXTERN int Tcl_StringCaseMatch(const char *str,
981 const char *pattern, int nocase);
982 /* 372 */
983 EXTERN int Tcl_UniCharIsControl(int ch);
984 /* 373 */
985 EXTERN int Tcl_UniCharIsGraph(int ch);
986 /* 374 */
987 EXTERN int Tcl_UniCharIsPrint(int ch);
988 /* 375 */
989 EXTERN int Tcl_UniCharIsPunct(int ch);
990 /* 376 */
991 EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp,
992 Tcl_RegExp regexp, Tcl_Obj *textObj,
993 Tcl_Size offset, Tcl_Size nmatches,
994 int flags);
995 /* 377 */
996 EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp,
997 Tcl_RegExpInfo *infoPtr);
998 /* 378 */
999 EXTERN Tcl_Obj * Tcl_NewUnicodeObj(const Tcl_UniChar *unicode,
1000 Tcl_Size numChars);
1001 /* 379 */
1002 EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr,
1003 const Tcl_UniChar *unicode,
1004 Tcl_Size numChars);
1005 /* 380 */
1006 EXTERN Tcl_Size TclGetCharLength(Tcl_Obj *objPtr);
1007 /* 381 */
1008 EXTERN int TclGetUniChar(Tcl_Obj *objPtr, Tcl_Size index);
1009 /* Slot 382 is reserved */
1010 /* 383 */
1011 EXTERN Tcl_Obj * TclGetRange(Tcl_Obj *objPtr, Tcl_Size first,
1012 Tcl_Size last);
1013 /* 384 */
1014 EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr,
1015 const Tcl_UniChar *unicode, Tcl_Size length);
1016 /* 385 */
1017 EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp,
1018 Tcl_Obj *textObj, Tcl_Obj *patternObj);
1019 /* 386 */
1020 EXTERN void Tcl_SetNotifier(
1021 const Tcl_NotifierProcs *notifierProcPtr);
1022 /* 387 */
1023 EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void);
1024 /* 388 */
1025 EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp);
1026 /* 389 */
1027 EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp,
1028 const char *pattern);
1029 /* 390 */
1030 EXTERN int Tcl_ProcObjCmd(void *clientData, Tcl_Interp *interp,
1031 Tcl_Size objc, Tcl_Obj *const objv[]);
1032 /* 391 */
1033 EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr);
1034 /* 392 */
1035 EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex);
1036 /* 393 */
1037 EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr,
1038 Tcl_ThreadCreateProc *proc, void *clientData,
1039 TCL_HASH_TYPE stackSize, int flags);
1040 /* 394 */
1041 EXTERN Tcl_Size Tcl_ReadRaw(Tcl_Channel chan, char *dst,
1042 Tcl_Size bytesToRead);
1043 /* 395 */
1044 EXTERN Tcl_Size Tcl_WriteRaw(Tcl_Channel chan, const char *src,
1045 Tcl_Size srcLen);
1046 /* 396 */
1047 EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan);
1048 /* 397 */
1049 EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan);
1050 /* 398 */
1051 EXTERN const char * Tcl_ChannelName(const Tcl_ChannelType *chanTypePtr);
1052 /* 399 */
1053 EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion(
1054 const Tcl_ChannelType *chanTypePtr);
1055 /* 400 */
1056 EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc(
1057 const Tcl_ChannelType *chanTypePtr);
1058 /* Slot 401 is reserved */
1059 /* 402 */
1060 EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc(
1061 const Tcl_ChannelType *chanTypePtr);
1062 /* 403 */
1063 EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc(
1064 const Tcl_ChannelType *chanTypePtr);
1065 /* 404 */
1066 EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc(
1067 const Tcl_ChannelType *chanTypePtr);
1068 /* Slot 405 is reserved */
1069 /* 406 */
1070 EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc(
1071 const Tcl_ChannelType *chanTypePtr);
1072 /* 407 */
1073 EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc(
1074 const Tcl_ChannelType *chanTypePtr);
1075 /* 408 */
1076 EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc(
1077 const Tcl_ChannelType *chanTypePtr);
1078 /* 409 */
1079 EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc(
1080 const Tcl_ChannelType *chanTypePtr);
1081 /* 410 */
1082 EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc(
1083 const Tcl_ChannelType *chanTypePtr);
1084 /* 411 */
1085 EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc(
1086 const Tcl_ChannelType *chanTypePtr);
1087 /* 412 */
1088 EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result);
1089 /* 413 */
1090 EXTERN int Tcl_IsChannelShared(Tcl_Channel channel);
1091 /* 414 */
1092 EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp,
1093 Tcl_Channel channel);
1094 /* 415 */
1095 EXTERN void Tcl_CutChannel(Tcl_Channel channel);
1096 /* 416 */
1097 EXTERN void Tcl_SpliceChannel(Tcl_Channel channel);
1098 /* 417 */
1099 EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel);
1100 /* 418 */
1101 EXTERN int Tcl_IsChannelExisting(const char *channelName);
1102 /* Slot 419 is reserved */
1103 /* Slot 420 is reserved */
1104 /* Slot 421 is reserved */
1105 /* 422 */
1106 EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr,
1107 const void *key, int *newPtr);
1108 /* 423 */
1109 EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr,
1110 int keyType, const Tcl_HashKeyType *typePtr);
1111 /* 424 */
1112 EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr);
1113 /* 425 */
1114 EXTERN void * Tcl_CommandTraceInfo(Tcl_Interp *interp,
1115 const char *varName, int flags,
1116 Tcl_CommandTraceProc *procPtr,
1117 void *prevClientData);
1118 /* 426 */
1119 EXTERN int Tcl_TraceCommand(Tcl_Interp *interp,
1120 const char *varName, int flags,
1121 Tcl_CommandTraceProc *proc, void *clientData);
1122 /* 427 */
1123 EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp,
1124 const char *varName, int flags,
1125 Tcl_CommandTraceProc *proc, void *clientData);
1126 /* 428 */
1127 EXTERN void * Tcl_AttemptAlloc(TCL_HASH_TYPE size);
1128 /* 429 */
1129 EXTERN void * Tcl_AttemptDbCkalloc(TCL_HASH_TYPE size,
1130 const char *file, int line);
1131 /* 430 */
1132 EXTERN void * Tcl_AttemptRealloc(void *ptr, TCL_HASH_TYPE size);
1133 /* 431 */
1134 EXTERN void * Tcl_AttemptDbCkrealloc(void *ptr, TCL_HASH_TYPE size,
1135 const char *file, int line);
1136 /* 432 */
1137 EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr,
1138 Tcl_Size length);
1139 /* 433 */
1140 EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel);
1141 /* 434 */
1142 EXTERN Tcl_UniChar * TclGetUnicodeFromObj(Tcl_Obj *objPtr,
1143 void *lengthPtr);
1144 /* Slot 435 is reserved */
1145 /* Slot 436 is reserved */
1146 /* 437 */
1147 EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1148 int flags);
1149 /* 438 */
1150 EXTERN int Tcl_DetachChannel(Tcl_Interp *interp,
1151 Tcl_Channel channel);
1152 /* 439 */
1153 EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel);
1154 /* 440 */
1155 EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr,
1156 Tcl_Obj *destPathPtr);
1157 /* 441 */
1158 EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr,
1159 Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
1160 /* 442 */
1161 EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr);
1162 /* 443 */
1163 EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr);
1164 /* 444 */
1165 EXTERN int Tcl_FSLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
1166 const char *sym1, const char *sym2,
1167 Tcl_LibraryInitProc **proc1Ptr,
1168 Tcl_LibraryInitProc **proc2Ptr,
1169 Tcl_LoadHandle *handlePtr,
1170 Tcl_FSUnloadFileProc **unloadProcPtr);
1171 /* 445 */
1172 EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp,
1173 Tcl_Obj *result, Tcl_Obj *pathPtr,
1174 const char *pattern, Tcl_GlobTypeData *types);
1175 /* 446 */
1176 EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr,
1177 int linkAction);
1178 /* 447 */
1179 EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr,
1180 int recursive, Tcl_Obj **errorPtr);
1181 /* 448 */
1182 EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr,
1183 Tcl_Obj *destPathPtr);
1184 /* 449 */
1185 EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
1186 /* 450 */
1187 EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval);
1188 /* 451 */
1189 EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index,
1190 Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef);
1191 /* 452 */
1192 EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index,
1193 Tcl_Obj *pathPtr, Tcl_Obj *objPtr);
1194 /* 453 */
1195 EXTERN const char *const * Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr,
1196 Tcl_Obj **objPtrRef);
1197 /* 454 */
1198 EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
1199 /* 455 */
1200 EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode);
1201 /* 456 */
1202 EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp,
1203 Tcl_Obj *pathPtr, const char *modeString,
1204 int permissions);
1205 /* 457 */
1206 EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp);
1207 /* 458 */
1208 EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr);
1209 /* 459 */
1210 EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp,
1211 Tcl_Obj *pathPtr);
1212 /* 460 */
1213 EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, Tcl_Size elements);
1214 /* 461 */
1215 EXTERN Tcl_Obj * TclFSSplitPath(Tcl_Obj *pathPtr, void *lenPtr);
1216 /* 462 */
1217 EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr,
1218 Tcl_Obj *secondPtr);
1219 /* 463 */
1220 EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp,
1221 Tcl_Obj *pathPtr);
1222 /* 464 */
1223 EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, Tcl_Size objc,
1224 Tcl_Obj *const objv[]);
1225 /* 465 */
1226 EXTERN void * Tcl_FSGetInternalRep(Tcl_Obj *pathPtr,
1227 const Tcl_Filesystem *fsPtr);
1228 /* 466 */
1229 EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp,
1230 Tcl_Obj *pathPtr);
1231 /* 467 */
1232 EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName);
1233 /* 468 */
1234 EXTERN Tcl_Obj * Tcl_FSNewNativePath(
1235 const Tcl_Filesystem *fromFilesystem,
1236 void *clientData);
1237 /* 469 */
1238 EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr);
1239 /* 470 */
1240 EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr);
1241 /* 471 */
1242 EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr);
1243 /* 472 */
1244 EXTERN Tcl_Obj * Tcl_FSListVolumes(void);
1245 /* 473 */
1246 EXTERN int Tcl_FSRegister(void *clientData,
1247 const Tcl_Filesystem *fsPtr);
1248 /* 474 */
1249 EXTERN int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr);
1250 /* 475 */
1251 EXTERN void * Tcl_FSData(const Tcl_Filesystem *fsPtr);
1252 /* 476 */
1253 EXTERN const char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp,
1254 Tcl_Obj *pathPtr);
1255 /* 477 */
1256 EXTERN const Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr);
1257 /* 478 */
1258 EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr);
1259 /* 479 */
1260 EXTERN int Tcl_OutputBuffered(Tcl_Channel chan);
1261 /* 480 */
1262 EXTERN void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr);
1263 /* 481 */
1264 EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp,
1265 Tcl_Token *tokenPtr, Tcl_Size count);
1266 /* 482 */
1267 EXTERN void Tcl_GetTime(Tcl_Time *timeBuf);
1268 /* 483 */
1269 EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp,
1270 Tcl_Size level, int flags,
1271 Tcl_CmdObjTraceProc *objProc,
1272 void *clientData,
1273 Tcl_CmdObjTraceDeleteProc *delProc);
1274 /* 484 */
1275 EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token,
1276 Tcl_CmdInfo *infoPtr);
1277 /* 485 */
1278 EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token,
1279 const Tcl_CmdInfo *infoPtr);
1280 /* 486 */
1281 EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue,
1282 const char *file, int line);
1283 /* 487 */
1284 EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp,
1285 Tcl_Obj *objPtr, Tcl_WideInt *widePtr);
1286 /* 488 */
1287 EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue);
1288 /* 489 */
1289 EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr,
1290 Tcl_WideInt wideValue);
1291 /* 490 */
1292 EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void);
1293 /* 491 */
1294 EXTERN long long Tcl_Seek(Tcl_Channel chan, long long offset,
1295 int mode);
1296 /* 492 */
1297 EXTERN long long Tcl_Tell(Tcl_Channel chan);
1298 /* 493 */
1299 EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc(
1300 const Tcl_ChannelType *chanTypePtr);
1301 /* 494 */
1302 EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1303 Tcl_Obj *keyPtr, Tcl_Obj *valuePtr);
1304 /* 495 */
1305 EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1306 Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr);
1307 /* 496 */
1308 EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp,
1309 Tcl_Obj *dictPtr, Tcl_Obj *keyPtr);
1310 /* 497 */
1311 EXTERN int TclDictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1312 void *sizePtr);
1313 /* 498 */
1314 EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp,
1315 Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr,
1316 Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
1317 int *donePtr);
1318 /* 499 */
1319 EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr,
1320 Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
1321 int *donePtr);
1322 /* 500 */
1323 EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr);
1324 /* 501 */
1325 EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp,
1326 Tcl_Obj *dictPtr, Tcl_Size keyc,
1327 Tcl_Obj *const *keyv, Tcl_Obj *valuePtr);
1328 /* 502 */
1329 EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp,
1330 Tcl_Obj *dictPtr, Tcl_Size keyc,
1331 Tcl_Obj *const *keyv);
1332 /* 503 */
1333 EXTERN Tcl_Obj * Tcl_NewDictObj(void);
1334 /* 504 */
1335 EXTERN Tcl_Obj * Tcl_DbNewDictObj(const char *file, int line);
1336 /* 505 */
1337 EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp,
1338 const char *pkgName,
1339 const Tcl_Config *configuration,
1340 const char *valEncoding);
1341 /* 506 */
1342 EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp,
1343 const char *name, void *clientData,
1344 Tcl_NamespaceDeleteProc *deleteProc);
1345 /* 507 */
1346 EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
1347 /* 508 */
1348 EXTERN int Tcl_AppendExportList(Tcl_Interp *interp,
1349 Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
1350 /* 509 */
1351 EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
1352 const char *pattern, int resetListFirst);
1353 /* 510 */
1354 EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
1355 const char *pattern, int allowOverwrite);
1356 /* 511 */
1357 EXTERN int Tcl_ForgetImport(Tcl_Interp *interp,
1358 Tcl_Namespace *nsPtr, const char *pattern);
1359 /* 512 */
1360 EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp);
1361 /* 513 */
1362 EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp);
1363 /* 514 */
1364 EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp,
1365 const char *name,
1366 Tcl_Namespace *contextNsPtr, int flags);
1367 /* 515 */
1368 EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name,
1369 Tcl_Namespace *contextNsPtr, int flags);
1370 /* 516 */
1371 EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp,
1372 Tcl_Obj *objPtr);
1373 /* 517 */
1374 EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp,
1375 Tcl_Command command, Tcl_Obj *objPtr);
1376 /* 518 */
1377 EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp,
1378 Tcl_Obj *fileName, const char *encodingName);
1379 /* Slot 519 is reserved */
1380 /* 520 */
1381 EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type,
1382 Tcl_LimitHandlerProc *handlerProc,
1383 void *clientData,
1384 Tcl_LimitHandlerDeleteProc *deleteProc);
1385 /* 521 */
1386 EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type,
1387 Tcl_LimitHandlerProc *handlerProc,
1388 void *clientData);
1389 /* 522 */
1390 EXTERN int Tcl_LimitReady(Tcl_Interp *interp);
1391 /* 523 */
1392 EXTERN int Tcl_LimitCheck(Tcl_Interp *interp);
1393 /* 524 */
1394 EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp);
1395 /* 525 */
1396 EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp,
1397 Tcl_Size commandLimit);
1398 /* 526 */
1399 EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp,
1400 Tcl_Time *timeLimitPtr);
1401 /* 527 */
1402 EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type,
1403 int granularity);
1404 /* 528 */
1405 EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type);
1406 /* 529 */
1407 EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type);
1408 /* 530 */
1409 EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type);
1410 /* 531 */
1411 EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type);
1412 /* 532 */
1413 EXTERN Tcl_Size Tcl_LimitGetCommands(Tcl_Interp *interp);
1414 /* 533 */
1415 EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp,
1416 Tcl_Time *timeLimitPtr);
1417 /* 534 */
1418 EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type);
1419 /* 535 */
1420 EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status);
1421 /* 536 */
1422 EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp,
1423 Tcl_InterpState state);
1424 /* 537 */
1425 EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state);
1426 /* 538 */
1427 EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp,
1428 Tcl_Obj *options);
1429 /* 539 */
1430 EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result);
1431 /* 540 */
1432 EXTERN int Tcl_IsEnsemble(Tcl_Command token);
1433 /* 541 */
1434 EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp,
1435 const char *name,
1436 Tcl_Namespace *namespacePtr, int flags);
1437 /* 542 */
1438 EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp,
1439 Tcl_Obj *cmdNameObj, int flags);
1440 /* 543 */
1441 EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp,
1442 Tcl_Command token, Tcl_Obj *subcmdList);
1443 /* 544 */
1444 EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp,
1445 Tcl_Command token, Tcl_Obj *mapDict);
1446 /* 545 */
1447 EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp,
1448 Tcl_Command token, Tcl_Obj *unknownList);
1449 /* 546 */
1450 EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp,
1451 Tcl_Command token, int flags);
1452 /* 547 */
1453 EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp,
1454 Tcl_Command token, Tcl_Obj **subcmdListPtr);
1455 /* 548 */
1456 EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp,
1457 Tcl_Command token, Tcl_Obj **mapDictPtr);
1458 /* 549 */
1459 EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp,
1460 Tcl_Command token, Tcl_Obj **unknownListPtr);
1461 /* 550 */
1462 EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp,
1463 Tcl_Command token, int *flagsPtr);
1464 /* 551 */
1465 EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp,
1466 Tcl_Command token,
1467 Tcl_Namespace **namespacePtrPtr);
1468 /* 552 */
1469 EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc,
1470 Tcl_ScaleTimeProc *scaleProc,
1471 void *clientData);
1472 /* 553 */
1473 EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc,
1474 Tcl_ScaleTimeProc **scaleProc,
1475 void **clientData);
1476 /* 554 */
1477 EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc(
1478 const Tcl_ChannelType *chanTypePtr);
1479 /* 555 */
1480 EXTERN Tcl_Obj * Tcl_NewBignumObj(void *value);
1481 /* 556 */
1482 EXTERN Tcl_Obj * Tcl_DbNewBignumObj(void *value, const char *file,
1483 int line);
1484 /* 557 */
1485 EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, void *value);
1486 /* 558 */
1487 EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp,
1488 Tcl_Obj *obj, void *value);
1489 /* 559 */
1490 EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp,
1491 Tcl_Obj *obj, void *value);
1492 /* 560 */
1493 EXTERN int Tcl_TruncateChannel(Tcl_Channel chan,
1494 long long length);
1495 /* 561 */
1496 EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc(
1497 const Tcl_ChannelType *chanTypePtr);
1498 /* 562 */
1499 EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp,
1500 Tcl_Obj *msg);
1501 /* 563 */
1502 EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp,
1503 Tcl_Obj **msg);
1504 /* 564 */
1505 EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg);
1506 /* 565 */
1507 EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg);
1508 /* 566 */
1509 EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp,
1510 double initval, void *toInit);
1511 /* 567 */
1512 EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp,
1513 Tcl_Namespace *nsPtr);
1514 /* 568 */
1515 EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp,
1516 Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr);
1517 /* 569 */
1518 EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp,
1519 Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr);
1520 /* 570 */
1521 EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void);
1522 /* 571 */
1523 EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath);
1524 /* 572 */
1525 EXTERN const char * Tcl_GetEncodingNameFromEnvironment(
1526 Tcl_DString *bufPtr);
1527 /* 573 */
1528 EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp,
1529 const char *name, Tcl_Size objc,
1530 Tcl_Obj *const objv[], void *clientDataPtr);
1531 /* 574 */
1532 EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp,
1533 Tcl_Obj *objPtr);
1534 /* 575 */
1535 EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr,
1536 const char *bytes, Tcl_Size length,
1537 Tcl_Size limit, const char *ellipsis);
1538 /* 576 */
1539 EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, const char *format,
1540 Tcl_Size objc, Tcl_Obj *const objv[]);
1541 /* 577 */
1542 EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp,
1543 Tcl_Obj *objPtr, const char *format,
1544 Tcl_Size objc, Tcl_Obj *const objv[]);
1545 /* 578 */
1546 EXTERN Tcl_Obj * Tcl_ObjPrintf(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
1547 /* 579 */
1548 EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
1549 const char *format, ...) TCL_FORMAT_PRINTF(2, 3);
1550 /* 580 */
1551 EXTERN int Tcl_CancelEval(Tcl_Interp *interp,
1552 Tcl_Obj *resultObjPtr, void *clientData,
1553 int flags);
1554 /* 581 */
1555 EXTERN int Tcl_Canceled(Tcl_Interp *interp, int flags);
1556 /* 582 */
1557 EXTERN int Tcl_CreatePipe(Tcl_Interp *interp,
1558 Tcl_Channel *rchan, Tcl_Channel *wchan,
1559 int flags);
1560 /* 583 */
1561 EXTERN Tcl_Command Tcl_NRCreateCommand(Tcl_Interp *interp,
1562 const char *cmdName, Tcl_ObjCmdProc *proc,
1563 Tcl_ObjCmdProc *nreProc, void *clientData,
1564 Tcl_CmdDeleteProc *deleteProc);
1565 /* 584 */
1566 EXTERN int Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1567 int flags);
1568 /* 585 */
1569 EXTERN int Tcl_NREvalObjv(Tcl_Interp *interp, Tcl_Size objc,
1570 Tcl_Obj *const objv[], int flags);
1571 /* 586 */
1572 EXTERN int Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd,
1573 Tcl_Size objc, Tcl_Obj *const objv[],
1574 int flags);
1575 /* 587 */
1576 EXTERN void Tcl_NRAddCallback(Tcl_Interp *interp,
1577 Tcl_NRPostProc *postProcPtr, void *data0,
1578 void *data1, void *data2, void *data3);
1579 /* 588 */
1580 EXTERN int Tcl_NRCallObjProc(Tcl_Interp *interp,
1581 Tcl_ObjCmdProc *objProc, void *clientData,
1582 Tcl_Size objc, Tcl_Obj *const objv[]);
1583 /* 589 */
1584 EXTERN unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr);
1585 /* 590 */
1586 EXTERN unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr);
1587 /* 591 */
1588 EXTERN unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr);
1589 /* 592 */
1590 EXTERN int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr);
1591 /* 593 */
1592 EXTERN int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr);
1593 /* 594 */
1594 EXTERN int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr);
1595 /* 595 */
1596 EXTERN int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr);
1597 /* 596 */
1598 EXTERN long long Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr);
1599 /* 597 */
1600 EXTERN long long Tcl_GetModificationTimeFromStat(
1601 const Tcl_StatBuf *statPtr);
1602 /* 598 */
1603 EXTERN long long Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr);
1604 /* 599 */
1605 EXTERN unsigned long long Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr);
1606 /* 600 */
1607 EXTERN unsigned long long Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr);
1608 /* 601 */
1609 EXTERN unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr);
1610 /* 602 */
1611 EXTERN int Tcl_SetEnsembleParameterList(Tcl_Interp *interp,
1612 Tcl_Command token, Tcl_Obj *paramList);
1613 /* 603 */
1614 EXTERN int Tcl_GetEnsembleParameterList(Tcl_Interp *interp,
1615 Tcl_Command token, Tcl_Obj **paramListPtr);
1616 /* 604 */
1617 EXTERN int TclParseArgsObjv(Tcl_Interp *interp,
1618 const Tcl_ArgvInfo *argTable, void *objcPtr,
1619 Tcl_Obj *const *objv, Tcl_Obj ***remObjv);
1620 /* 605 */
1621 EXTERN int Tcl_GetErrorLine(Tcl_Interp *interp);
1622 /* 606 */
1623 EXTERN void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum);
1624 /* 607 */
1625 EXTERN void Tcl_TransferResult(Tcl_Interp *sourceInterp,
1626 int code, Tcl_Interp *targetInterp);
1627 /* 608 */
1628 EXTERN int Tcl_InterpActive(Tcl_Interp *interp);
1629 /* 609 */
1630 EXTERN void Tcl_BackgroundException(Tcl_Interp *interp, int code);
1631 /* 610 */
1632 EXTERN int Tcl_ZlibDeflate(Tcl_Interp *interp, int format,
1633 Tcl_Obj *data, int level,
1634 Tcl_Obj *gzipHeaderDictObj);
1635 /* 611 */
1636 EXTERN int Tcl_ZlibInflate(Tcl_Interp *interp, int format,
1637 Tcl_Obj *data, Tcl_Size buffersize,
1638 Tcl_Obj *gzipHeaderDictObj);
1639 /* 612 */
1640 EXTERN unsigned int Tcl_ZlibCRC32(unsigned int crc,
1641 const unsigned char *buf, Tcl_Size len);
1642 /* 613 */
1643 EXTERN unsigned int Tcl_ZlibAdler32(unsigned int adler,
1644 const unsigned char *buf, Tcl_Size len);
1645 /* 614 */
1646 EXTERN int Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode,
1647 int format, int level, Tcl_Obj *dictObj,
1648 Tcl_ZlibStream *zshandle);
1649 /* 615 */
1650 EXTERN Tcl_Obj * Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle);
1651 /* 616 */
1652 EXTERN int Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle);
1653 /* 617 */
1654 EXTERN int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle);
1655 /* 618 */
1656 EXTERN int Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle,
1657 Tcl_Obj *data, int flush);
1658 /* 619 */
1659 EXTERN int Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle,
1660 Tcl_Obj *data, Tcl_Size count);
1661 /* 620 */
1662 EXTERN int Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle);
1663 /* 621 */
1664 EXTERN int Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle);
1665 /* 622 */
1666 EXTERN void Tcl_SetStartupScript(Tcl_Obj *path,
1667 const char *encoding);
1668 /* 623 */
1669 EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingPtr);
1670 /* 624 */
1671 EXTERN int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan,
1672 int flags);
1673 /* 625 */
1674 EXTERN int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1675 Tcl_Obj *resultPtr);
1676 /* 626 */
1677 EXTERN int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1678 int flags);
1679 /* 627 */
1680 EXTERN int Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
1681 const char *const symv[], int flags,
1682 void *procPtrs, Tcl_LoadHandle *handlePtr);
1683 /* 628 */
1684 EXTERN void * Tcl_FindSymbol(Tcl_Interp *interp,
1685 Tcl_LoadHandle handle, const char *symbol);
1686 /* 629 */
1687 EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp,
1688 Tcl_LoadHandle handlePtr);
1689 /* 630 */
1690 EXTERN void Tcl_ZlibStreamSetCompressionDictionary(
1691 Tcl_ZlibStream zhandle,
1692 Tcl_Obj *compressionDictionaryObj);
1693 /* 631 */
1694 EXTERN Tcl_Channel Tcl_OpenTcpServerEx(Tcl_Interp *interp,
1695 const char *service, const char *host,
1696 unsigned int flags, int backlog,
1697 Tcl_TcpAcceptProc *acceptProc,
1698 void *callbackData);
1699 /* 632 */
1700 EXTERN int TclZipfs_Mount(Tcl_Interp *interp,
1701 const char *zipname, const char *mountPoint,
1702 const char *passwd);
1703 /* 633 */
1704 EXTERN int TclZipfs_Unmount(Tcl_Interp *interp,
1705 const char *mountPoint);
1706 /* 634 */
1707 EXTERN Tcl_Obj * TclZipfs_TclLibrary(void);
1708 /* 635 */
1709 EXTERN int TclZipfs_MountBuffer(Tcl_Interp *interp,
1710 const void *data, size_t datalen,
1711 const char *mountPoint, int copy);
1712 /* 636 */
1713 EXTERN void Tcl_FreeInternalRep(Tcl_Obj *objPtr);
1714 /* 637 */
1715 EXTERN char * Tcl_InitStringRep(Tcl_Obj *objPtr, const char *bytes,
1716 TCL_HASH_TYPE numBytes);
1717 /* 638 */
1718 EXTERN Tcl_ObjInternalRep * Tcl_FetchInternalRep(Tcl_Obj *objPtr,
1719 const Tcl_ObjType *typePtr);
1720 /* 639 */
1721 EXTERN void Tcl_StoreInternalRep(Tcl_Obj *objPtr,
1722 const Tcl_ObjType *typePtr,
1723 const Tcl_ObjInternalRep *irPtr);
1724 /* 640 */
1725 EXTERN int Tcl_HasStringRep(Tcl_Obj *objPtr);
1726 /* 641 */
1727 EXTERN void Tcl_IncrRefCount(Tcl_Obj *objPtr);
1728 /* 642 */
1729 EXTERN void Tcl_DecrRefCount(Tcl_Obj *objPtr);
1730 /* 643 */
1731 EXTERN int Tcl_IsShared(Tcl_Obj *objPtr);
1732 /* 644 */
1733 EXTERN int Tcl_LinkArray(Tcl_Interp *interp,
1734 const char *varName, void *addr, int type,
1735 Tcl_Size size);
1736 /* 645 */
1737 EXTERN int Tcl_GetIntForIndex(Tcl_Interp *interp,
1738 Tcl_Obj *objPtr, Tcl_Size endValue,
1739 Tcl_Size *indexPtr);
1740 /* 646 */
1741 EXTERN Tcl_Size Tcl_UtfToUniChar(const char *src, int *chPtr);
1742 /* 647 */
1743 EXTERN char * Tcl_UniCharToUtfDString(const int *uniStr,
1744 Tcl_Size uniLength, Tcl_DString *dsPtr);
1745 /* 648 */
1746 EXTERN int * Tcl_UtfToUniCharDString(const char *src,
1747 Tcl_Size length, Tcl_DString *dsPtr);
1748 /* 649 */
1749 EXTERN unsigned char * TclGetBytesFromObj(Tcl_Interp *interp,
1750 Tcl_Obj *objPtr, void *numBytesPtr);
1751 /* 650 */
1752 EXTERN unsigned char * Tcl_GetBytesFromObj(Tcl_Interp *interp,
1753 Tcl_Obj *objPtr, Tcl_Size *numBytesPtr);
1754 /* 651 */
1755 EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr,
1756 Tcl_Size *lengthPtr);
1757 /* 652 */
1758 EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr,
1759 Tcl_Size *lengthPtr);
1760 /* 653 */
1761 EXTERN int Tcl_GetSizeIntFromObj(Tcl_Interp *interp,
1762 Tcl_Obj *objPtr, Tcl_Size *sizePtr);
1763 /* 654 */
1764 EXTERN int Tcl_UtfCharComplete(const char *src, Tcl_Size length);
1765 /* 655 */
1766 EXTERN const char * Tcl_UtfNext(const char *src);
1767 /* 656 */
1768 EXTERN const char * Tcl_UtfPrev(const char *src, const char *start);
1769 /* 657 */
1770 EXTERN int Tcl_FSTildeExpand(Tcl_Interp *interp,
1771 const char *path, Tcl_DString *dsPtr);
1772 /* 658 */
1773 EXTERN int Tcl_ExternalToUtfDStringEx(Tcl_Interp *interp,
1774 Tcl_Encoding encoding, const char *src,
1775 Tcl_Size srcLen, int flags,
1776 Tcl_DString *dsPtr,
1777 Tcl_Size *errorLocationPtr);
1778 /* 659 */
1779 EXTERN int Tcl_UtfToExternalDStringEx(Tcl_Interp *interp,
1780 Tcl_Encoding encoding, const char *src,
1781 Tcl_Size srcLen, int flags,
1782 Tcl_DString *dsPtr,
1783 Tcl_Size *errorLocationPtr);
1784 /* 660 */
1785 EXTERN int Tcl_AsyncMarkFromSignal(Tcl_AsyncHandler async,
1786 int sigNumber);
1787 /* 661 */
1788 EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp,
1789 Tcl_Obj *listPtr, Tcl_Size *objcPtr,
1790 Tcl_Obj ***objvPtr);
1791 /* 662 */
1792 EXTERN int Tcl_ListObjLength(Tcl_Interp *interp,
1793 Tcl_Obj *listPtr, Tcl_Size *lengthPtr);
1794 /* 663 */
1795 EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr,
1796 Tcl_Size *sizePtr);
1797 /* 664 */
1798 EXTERN int Tcl_SplitList(Tcl_Interp *interp,
1799 const char *listStr, Tcl_Size *argcPtr,
1800 const char ***argvPtr);
1801 /* 665 */
1802 EXTERN void Tcl_SplitPath(const char *path, Tcl_Size *argcPtr,
1803 const char ***argvPtr);
1804 /* 666 */
1805 EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, Tcl_Size *lenPtr);
1806 /* 667 */
1807 EXTERN int Tcl_ParseArgsObjv(Tcl_Interp *interp,
1808 const Tcl_ArgvInfo *argTable,
1809 Tcl_Size *objcPtr, Tcl_Obj *const *objv,
1810 Tcl_Obj ***remObjv);
1811 /* 668 */
1812 EXTERN Tcl_Size Tcl_UniCharLen(const int *uniStr);
1813 /* 669 */
1814 EXTERN Tcl_Size Tcl_NumUtfChars(const char *src, Tcl_Size length);
1815 /* 670 */
1816 EXTERN Tcl_Size Tcl_GetCharLength(Tcl_Obj *objPtr);
1817 /* 671 */
1818 EXTERN const char * Tcl_UtfAtIndex(const char *src, Tcl_Size index);
1819 /* 672 */
1820 EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, Tcl_Size first,
1821 Tcl_Size last);
1822 /* 673 */
1823 EXTERN int Tcl_GetUniChar(Tcl_Obj *objPtr, Tcl_Size index);
1824 /* 674 */
1825 EXTERN int Tcl_GetBool(Tcl_Interp *interp, const char *src,
1826 int flags, char *charPtr);
1827 /* 675 */
1828 EXTERN int Tcl_GetBoolFromObj(Tcl_Interp *interp,
1829 Tcl_Obj *objPtr, int flags, char *charPtr);
1830 /* 676 */
1831 EXTERN Tcl_Command Tcl_CreateObjCommand2(Tcl_Interp *interp,
1832 const char *cmdName, Tcl_ObjCmdProc2 *proc2,
1833 void *clientData,
1834 Tcl_CmdDeleteProc *deleteProc);
1835 /* 677 */
1836 EXTERN Tcl_Trace Tcl_CreateObjTrace2(Tcl_Interp *interp,
1837 Tcl_Size level, int flags,
1838 Tcl_CmdObjTraceProc2 *objProc2,
1839 void *clientData,
1840 Tcl_CmdObjTraceDeleteProc *delProc);
1841 /* 678 */
1842 EXTERN Tcl_Command Tcl_NRCreateCommand2(Tcl_Interp *interp,
1843 const char *cmdName, Tcl_ObjCmdProc2 *proc,
1844 Tcl_ObjCmdProc2 *nreProc2, void *clientData,
1845 Tcl_CmdDeleteProc *deleteProc);
1846 /* 679 */
1847 EXTERN int Tcl_NRCallObjProc2(Tcl_Interp *interp,
1848 Tcl_ObjCmdProc2 *objProc2, void *clientData,
1849 Tcl_Size objc, Tcl_Obj *const objv[]);
1850 /* 680 */
1851 EXTERN int Tcl_GetNumberFromObj(Tcl_Interp *interp,
1852 Tcl_Obj *objPtr, void **clientDataPtr,
1853 int *typePtr);
1854 /* 681 */
1855 EXTERN int Tcl_GetNumber(Tcl_Interp *interp, const char *bytes,
1856 Tcl_Size numBytes, void **clientDataPtr,
1857 int *typePtr);
1858 /* 682 */
1859 EXTERN int Tcl_RemoveChannelMode(Tcl_Interp *interp,
1860 Tcl_Channel chan, int mode);
1861 /* 683 */
1862 EXTERN Tcl_Size Tcl_GetEncodingNulLength(Tcl_Encoding encoding);
1863 /* 684 */
1864 EXTERN int Tcl_GetWideUIntFromObj(Tcl_Interp *interp,
1865 Tcl_Obj *objPtr, Tcl_WideUInt *uwidePtr);
1866 /* 685 */
1867 EXTERN Tcl_Obj * Tcl_DStringToObj(Tcl_DString *dsPtr);
1868 /* 686 */
1869 EXTERN int Tcl_UtfNcmp(const char *s1, const char *s2, size_t n);
1870 /* 687 */
1871 EXTERN int Tcl_UtfNcasecmp(const char *s1, const char *s2,
1872 size_t n);
1873 /* 688 */
1874 EXTERN Tcl_Obj * Tcl_NewWideUIntObj(Tcl_WideUInt wideValue);
1875 /* 689 */
1876 EXTERN void Tcl_SetWideUIntObj(Tcl_Obj *objPtr,
1877 Tcl_WideUInt uwideValue);
1878 /* 690 */
1879 EXTERN void TclUnusedStubEntry(void);
1880
1881 typedef struct {
1882 const struct TclPlatStubs *tclPlatStubs;
1883 const struct TclIntStubs *tclIntStubs;
1884 const struct TclIntPlatStubs *tclIntPlatStubs;
1885 } TclStubHooks;
1886
1887 typedef struct TclStubs {
1888 int magic;
1889 const TclStubHooks *hooks;
1890
1891 int (*tcl_PkgProvideEx) (Tcl_Interp *interp, const char *name, const char *version, const void *clientData); /* 0 */
1892 const char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 1 */
1893 TCL_NORETURN1 void (*tcl_Panic) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 2 */
1894 void * (*tcl_Alloc) (TCL_HASH_TYPE size); /* 3 */
1895 void (*tcl_Free) (void *ptr); /* 4 */
1896 void * (*tcl_Realloc) (void *ptr, TCL_HASH_TYPE size); /* 5 */
1897 void * (*tcl_DbCkalloc) (TCL_HASH_TYPE size, const char *file, int line); /* 6 */
1898 void (*tcl_DbCkfree) (void *ptr, const char *file, int line); /* 7 */
1899 void * (*tcl_DbCkrealloc) (void *ptr, TCL_HASH_TYPE size, const char *file, int line); /* 8 */
1900 void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, void *clientData); /* 9 */
1901 void (*tcl_DeleteFileHandler) (int fd); /* 10 */
1902 void (*tcl_SetTimer) (const Tcl_Time *timePtr); /* 11 */
1903 void (*tcl_Sleep) (int ms); /* 12 */
1904 int (*tcl_WaitForEvent) (const Tcl_Time *timePtr); /* 13 */
1905 int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */
1906 void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */
1907 void (*tcl_AppendToObj) (Tcl_Obj *objPtr, const char *bytes, Tcl_Size length); /* 16 */
1908 Tcl_Obj * (*tcl_ConcatObj) (Tcl_Size objc, Tcl_Obj *const objv[]); /* 17 */
1909 int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); /* 18 */
1910 void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 19 */
1911 void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 20 */
1912 int (*tcl_DbIsShared) (Tcl_Obj *objPtr, const char *file, int line); /* 21 */
1913 void (*reserved22)(void);
1914 Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char *bytes, Tcl_Size numBytes, const char *file, int line); /* 23 */
1915 Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char *file, int line); /* 24 */
1916 Tcl_Obj * (*tcl_DbNewListObj) (Tcl_Size objc, Tcl_Obj *const *objv, const char *file, int line); /* 25 */
1917 void (*reserved26)(void);
1918 Tcl_Obj * (*tcl_DbNewObj) (const char *file, int line); /* 27 */
1919 Tcl_Obj * (*tcl_DbNewStringObj) (const char *bytes, Tcl_Size length, const char *file, int line); /* 28 */
1920 Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */
1921 void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */
1922 int (*tcl_GetBoolean) (Tcl_Interp *interp, const char *src, int *intPtr); /* 31 */
1923 int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 32 */
1924 unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, Tcl_Size *numBytesPtr); /* 33 */
1925 int (*tcl_GetDouble) (Tcl_Interp *interp, const char *src, double *doublePtr); /* 34 */
1926 int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */
1927 void (*reserved36)(void);
1928 int (*tcl_GetInt) (Tcl_Interp *interp, const char *src, int *intPtr); /* 37 */
1929 int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */
1930 int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */
1931 const Tcl_ObjType * (*tcl_GetObjType) (const char *typeName); /* 40 */
1932 char * (*tclGetStringFromObj) (Tcl_Obj *objPtr, void *lengthPtr); /* 41 */
1933 void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */
1934 int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */
1935 int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */
1936 int (*tclListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, void *objcPtr, Tcl_Obj ***objvPtr); /* 45 */
1937 int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Size index, Tcl_Obj **objPtrPtr); /* 46 */
1938 int (*tclListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, void *lengthPtr); /* 47 */
1939 int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Size first, Tcl_Size count, Tcl_Size objc, Tcl_Obj *const objv[]); /* 48 */
1940 void (*reserved49)(void);
1941 Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char *bytes, Tcl_Size numBytes); /* 50 */
1942 Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */
1943 void (*reserved52)(void);
1944 Tcl_Obj * (*tcl_NewListObj) (Tcl_Size objc, Tcl_Obj *const objv[]); /* 53 */
1945 void (*reserved54)(void);
1946 Tcl_Obj * (*tcl_NewObj) (void); /* 55 */
1947 Tcl_Obj * (*tcl_NewStringObj) (const char *bytes, Tcl_Size length); /* 56 */
1948 void (*reserved57)(void);
1949 unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, Tcl_Size numBytes); /* 58 */
1950 void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, const unsigned char *bytes, Tcl_Size numBytes); /* 59 */
1951 void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */
1952 void (*reserved61)(void);
1953 void (*tcl_SetListObj) (Tcl_Obj *objPtr, Tcl_Size objc, Tcl_Obj *const objv[]); /* 62 */
1954 void (*reserved63)(void);
1955 void (*tcl_SetObjLength) (Tcl_Obj *objPtr, Tcl_Size length); /* 64 */
1956 void (*tcl_SetStringObj) (Tcl_Obj *objPtr, const char *bytes, Tcl_Size length); /* 65 */
1957 void (*reserved66)(void);
1958 void (*reserved67)(void);
1959 void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */
1960 void (*tcl_AppendElement) (Tcl_Interp *interp, const char *element); /* 69 */
1961 void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */
1962 Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, void *clientData); /* 71 */
1963 void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */
1964 int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */
1965 void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */
1966 int (*tcl_AsyncReady) (void); /* 75 */
1967 void (*reserved76)(void);
1968 void (*reserved77)(void);
1969 int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); /* 78 */
1970 void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, void *clientData); /* 79 */
1971 void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, void *clientData); /* 80 */
1972 int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */
1973 int (*tcl_CommandComplete) (const char *cmd); /* 82 */
1974 char * (*tcl_Concat) (Tcl_Size argc, const char *const *argv); /* 83 */
1975 Tcl_Size (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 84 */
1976 Tcl_Size (*tcl_ConvertCountedElement) (const char *src, Tcl_Size length, char *dst, int flags); /* 85 */
1977 int (*tcl_CreateAlias) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, Tcl_Size argc, const char *const *argv); /* 86 */
1978 int (*tcl_CreateAliasObj) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, Tcl_Size objc, Tcl_Obj *const objv[]); /* 87 */
1979 Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const char *chanName, void *instanceData, int mask); /* 88 */
1980 void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, void *clientData); /* 89 */
1981 void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, void *clientData); /* 90 */
1982 Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */
1983 void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, void *clientData); /* 92 */
1984 void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, void *clientData); /* 93 */
1985 Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */
1986 void (*reserved95)(void);
1987 Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */
1988 Tcl_Interp * (*tcl_CreateChild) (Tcl_Interp *interp, const char *name, int isSafe); /* 97 */
1989 Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, void *clientData); /* 98 */
1990 Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, Tcl_Size level, Tcl_CmdTraceProc *proc, void *clientData); /* 99 */
1991 void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); /* 100 */
1992 void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, void *clientData); /* 101 */
1993 void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, void *clientData); /* 102 */
1994 int (*tcl_DeleteCommand) (Tcl_Interp *interp, const char *cmdName); /* 103 */
1995 int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */
1996 void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, void *clientData); /* 105 */
1997 void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, void *clientData); /* 106 */
1998 void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, void *clientData); /* 107 */
1999 void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */
2000 void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */
2001 void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */
2002 void (*tcl_DetachPids) (Tcl_Size numPids, Tcl_Pid *pidPtr); /* 111 */
2003 void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */
2004 void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */
2005 void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, void *clientData); /* 114 */
2006 int (*tcl_DoOneEvent) (int flags); /* 115 */
2007 void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, void *clientData); /* 116 */
2008 char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, const char *bytes, Tcl_Size length); /* 117 */
2009 char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, const char *element); /* 118 */
2010 void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */
2011 void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */
2012 void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */
2013 void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */
2014 void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */
2015 void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, Tcl_Size length); /* 124 */
2016 void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */
2017 int (*tcl_Eof) (Tcl_Channel chan); /* 126 */
2018 const char * (*tcl_ErrnoId) (void); /* 127 */
2019 const char * (*tcl_ErrnoMsg) (int err); /* 128 */
2020 void (*reserved129)(void);
2021 int (*tcl_EvalFile) (Tcl_Interp *interp, const char *fileName); /* 130 */
2022 void (*reserved131)(void);
2023 void (*tcl_EventuallyFree) (void *clientData, Tcl_FreeProc *freeProc); /* 132 */
2024 TCL_NORETURN1 void (*tcl_Exit) (int status); /* 133 */
2025 int (*tcl_ExposeCommand) (Tcl_Interp *interp, const char *hiddenCmdToken, const char *cmdName); /* 134 */
2026 int (*tcl_ExprBoolean) (Tcl_Interp *interp, const char *expr, int *ptr); /* 135 */
2027 int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */
2028 int (*tcl_ExprDouble) (Tcl_Interp *interp, const char *expr, double *ptr); /* 137 */
2029 int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */
2030 int (*tcl_ExprLong) (Tcl_Interp *interp, const char *expr, long *ptr); /* 139 */
2031 int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */
2032 int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */
2033 int (*tcl_ExprString) (Tcl_Interp *interp, const char *expr); /* 142 */
2034 void (*tcl_Finalize) (void); /* 143 */
2035 void (*reserved144)(void);
2036 Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */
2037 int (*tcl_Flush) (Tcl_Channel chan); /* 146 */
2038 void (*reserved147)(void);
2039 void (*reserved148)(void);
2040 int (*tclGetAliasObj) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, const char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 149 */
2041 void * (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */
2042 Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName, int *modePtr); /* 151 */
2043 Tcl_Size (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */
2044 int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, void **handlePtr); /* 153 */
2045 void * (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */
2046 int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */
2047 const char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */
2048 int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, Tcl_DString *dsPtr); /* 157 */
2049 const Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */
2050 int (*tcl_GetCommandInfo) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */
2051 const char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */
2052 int (*tcl_GetErrno) (void); /* 161 */
2053 const char * (*tcl_GetHostName) (void); /* 162 */
2054 int (*tcl_GetInterpPath) (Tcl_Interp *interp, Tcl_Interp *childInterp); /* 163 */
2055 Tcl_Interp * (*tcl_GetParent) (Tcl_Interp *interp); /* 164 */
2056 const char * (*tcl_GetNameOfExecutable) (void); /* 165 */
2057 Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */
2058 int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, void **filePtr); /* 167 */
2059 Tcl_PathType (*tcl_GetPathType) (const char *path); /* 168 */
2060 Tcl_Size (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */
2061 Tcl_Size (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */
2062 int (*tcl_GetServiceMode) (void); /* 171 */
2063 Tcl_Interp * (*tcl_GetChild) (Tcl_Interp *interp, const char *name); /* 172 */
2064 Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */
2065 void (*reserved174)(void);
2066 void (*reserved175)(void);
2067 const char * (*tcl_GetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 176 */
2068 void (*reserved177)(void);
2069 void (*reserved178)(void);
2070 int (*tcl_HideCommand) (Tcl_Interp *interp, const char *cmdName, const char *hiddenCmdToken); /* 179 */
2071 int (*tcl_Init) (Tcl_Interp *interp); /* 180 */
2072 void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */
2073 int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */
2074 int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */
2075 int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */
2076 int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */
2077 char * (*tcl_JoinPath) (Tcl_Size argc, const char *const *argv, Tcl_DString *resultPtr); /* 186 */
2078 int (*tcl_LinkVar) (Tcl_Interp *interp, const char *varName, void *addr, int type); /* 187 */
2079 void (*reserved188)(void);
2080 Tcl_Channel (*tcl_MakeFileChannel) (void *handle, int mode); /* 189 */
2081 void (*reserved190)(void);
2082 Tcl_Channel (*tcl_MakeTcpClientChannel) (void *tcpSocket); /* 191 */
2083 char * (*tcl_Merge) (Tcl_Size argc, const char *const *argv); /* 192 */
2084 Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */
2085 void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */
2086 Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */
2087 Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */
2088 Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, Tcl_Size argc, const char **argv, int flags); /* 197 */
2089 Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, const char *fileName, const char *modeString, int permissions); /* 198 */
2090 Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, const char *address, const char *myaddr, int myport, int flags); /* 199 */
2091 Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, const char *host, Tcl_TcpAcceptProc *acceptProc, void *callbackData); /* 200 */
2092 void (*tcl_Preserve) (void *data); /* 201 */
2093 void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */
2094 int (*tcl_PutEnv) (const char *assignment); /* 203 */
2095 const char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */
2096 void (*tcl_QueueEvent) (Tcl_Event *evPtr, int position); /* 205 */
2097 Tcl_Size (*tcl_Read) (Tcl_Channel chan, char *bufPtr, Tcl_Size toRead); /* 206 */
2098 void (*tcl_ReapDetachedProcs) (void); /* 207 */
2099 int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flags); /* 208 */
2100 int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */
2101 void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */
2102 void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); /* 211 */
2103 Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *pattern); /* 212 */
2104 int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const char *text, const char *start); /* 213 */
2105 int (*tcl_RegExpMatch) (Tcl_Interp *interp, const char *text, const char *pattern); /* 214 */
2106 void (*tcl_RegExpRange) (Tcl_RegExp regexp, Tcl_Size index, const char **startPtr, const char **endPtr); /* 215 */
2107 void (*tcl_Release) (void *clientData); /* 216 */
2108 void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */
2109 Tcl_Size (*tcl_ScanElement) (const char *src, int *flagPtr); /* 218 */
2110 Tcl_Size (*tcl_ScanCountedElement) (const char *src, Tcl_Size length, int *flagPtr); /* 219 */
2111 void (*reserved220)(void);
2112 int (*tcl_ServiceAll) (void); /* 221 */
2113 int (*tcl_ServiceEvent) (int flags); /* 222 */
2114 void (*tcl_SetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc *proc, void *clientData); /* 223 */
2115 void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, Tcl_Size sz); /* 224 */
2116 int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, const char *newValue); /* 225 */
2117 int (*tcl_SetCommandInfo) (Tcl_Interp *interp, const char *cmdName, const Tcl_CmdInfo *infoPtr); /* 226 */
2118 void (*tcl_SetErrno) (int err); /* 227 */
2119 void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */
2120 void (*tcl_SetMaxBlockTime) (const Tcl_Time *timePtr); /* 229 */
2121 void (*reserved230)(void);
2122 Tcl_Size (*tcl_SetRecursionLimit) (Tcl_Interp *interp, Tcl_Size depth); /* 231 */
2123 void (*reserved232)(void);
2124 int (*tcl_SetServiceMode) (int mode); /* 233 */
2125 void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */
2126 void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */
2127 void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */
2128 void (*reserved237)(void);
2129 const char * (*tcl_SetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, const char *newValue, int flags); /* 238 */
2130 const char * (*tcl_SignalId) (int sig); /* 239 */
2131 const char * (*tcl_SignalMsg) (int sig); /* 240 */
2132 void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */
2133 int (*tclSplitList) (Tcl_Interp *interp, const char *listStr, void *argcPtr, const char ***argvPtr); /* 242 */
2134 void (*tclSplitPath) (const char *path, void *argcPtr, const char ***argvPtr); /* 243 */
2135 void (*reserved244)(void);
2136 void (*reserved245)(void);
2137 void (*reserved246)(void);
2138 void (*reserved247)(void);
2139 int (*tcl_TraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, void *clientData); /* 248 */
2140 char * (*tcl_TranslateFileName) (Tcl_Interp *interp, const char *name, Tcl_DString *bufferPtr); /* 249 */
2141 Tcl_Size (*tcl_Ungets) (Tcl_Channel chan, const char *str, Tcl_Size len, int atHead); /* 250 */
2142 void (*tcl_UnlinkVar) (Tcl_Interp *interp, const char *varName); /* 251 */
2143 int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */
2144 void (*reserved253)(void);
2145 int (*tcl_UnsetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 254 */
2146 void (*reserved255)(void);
2147 void (*tcl_UntraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, void *clientData); /* 256 */
2148 void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, const char *varName); /* 257 */
2149 void (*reserved258)(void);
2150 int (*tcl_UpVar2) (Tcl_Interp *interp, const char *frameName, const char *part1, const char *part2, const char *localName, int flags); /* 259 */
2151 int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */
2152 void (*reserved261)(void);
2153 void * (*tcl_VarTraceInfo2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *procPtr, void *prevClientData); /* 262 */
2154 Tcl_Size (*tcl_Write) (Tcl_Channel chan, const char *s, Tcl_Size slen); /* 263 */
2155 void (*tcl_WrongNumArgs) (Tcl_Interp *interp, Tcl_Size objc, Tcl_Obj *const objv[], const char *message); /* 264 */
2156 int (*tcl_DumpActiveMemory) (const char *fileName); /* 265 */
2157 void (*tcl_ValidateAllMemory) (const char *file, int line); /* 266 */
2158 void (*reserved267)(void);
2159 void (*reserved268)(void);
2160 char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */
2161 const char * (*tcl_ParseVar) (Tcl_Interp *interp, const char *start, const char **termPtr); /* 270 */
2162 void (*reserved271)(void);
2163 const char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 272 */
2164 void (*reserved273)(void);
2165 void (*reserved274)(void);
2166 void (*reserved275)(void);
2167 void (*reserved276)(void);
2168 Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */
2169 void (*reserved278)(void);
2170 void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */
2171 void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */
2172 Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, const Tcl_ChannelType *typePtr, void *instanceData, int mask, Tcl_Channel prevChan); /* 281 */
2173 int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */
2174 Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */
2175 void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */
2176 int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, const char **targetCmdPtr, Tcl_Size *objcPtr, Tcl_Obj ***objvPtr); /* 285 */
2177 void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */
2178 Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType *typePtr); /* 287 */
2179 void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, void *clientData); /* 288 */
2180 void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, void *clientData); /* 289 */
2181 void (*reserved290)(void);
2182 int (*tcl_EvalEx) (Tcl_Interp *interp, const char *script, Tcl_Size numBytes, int flags); /* 291 */
2183 int (*tcl_EvalObjv) (Tcl_Interp *interp, Tcl_Size objc, Tcl_Obj *const objv[], int flags); /* 292 */
2184 int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */
2185 TCL_NORETURN1 void (*tcl_ExitThread) (int status); /* 294 */
2186 int (*tcl_ExternalToUtf) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, Tcl_Size dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 295 */
2187 char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, Tcl_DString *dsPtr); /* 296 */
2188 void (*tcl_FinalizeThread) (void); /* 297 */
2189 void (*tcl_FinalizeNotifier) (void *clientData); /* 298 */
2190 void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */
2191 Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */
2192 Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, const char *name); /* 301 */
2193 const char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */
2194 void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */
2195 int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, const void *tablePtr, Tcl_Size offset, const char *msg, int flags, void *indexPtr); /* 304 */
2196 void * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, Tcl_Size size); /* 305 */
2197 Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 306 */
2198 void * (*tcl_InitNotifier) (void); /* 307 */
2199 void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */
2200 void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */
2201 void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */
2202 void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); /* 311 */
2203 Tcl_Size (*tclNumUtfChars) (const char *src, Tcl_Size length); /* 312 */
2204 Tcl_Size (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, Tcl_Size charsToRead, int appendFlag); /* 313 */
2205 void (*reserved314)(void);
2206 void (*reserved315)(void);
2207 int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, const char *name); /* 316 */
2208 Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */
2209 void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */
2210 void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, int position); /* 319 */
2211 int (*tcl_UniCharAtIndex) (const char *src, Tcl_Size index); /* 320 */
2212 int (*tcl_UniCharToLower) (int ch); /* 321 */
2213 int (*tcl_UniCharToTitle) (int ch); /* 322 */
2214 int (*tcl_UniCharToUpper) (int ch); /* 323 */
2215 Tcl_Size (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */
2216 const char * (*tclUtfAtIndex) (const char *src, Tcl_Size index); /* 325 */
2217 int (*tclUtfCharComplete) (const char *src, Tcl_Size length); /* 326 */
2218 Tcl_Size (*tcl_UtfBackslash) (const char *src, int *readPtr, char *dst); /* 327 */
2219 const char * (*tcl_UtfFindFirst) (const char *src, int ch); /* 328 */
2220 const char * (*tcl_UtfFindLast) (const char *src, int ch); /* 329 */
2221 const char * (*tclUtfNext) (const char *src); /* 330 */
2222 const char * (*tclUtfPrev) (const char *src, const char *start); /* 331 */
2223 int (*tcl_UtfToExternal) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, Tcl_Size dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 332 */
2224 char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, Tcl_DString *dsPtr); /* 333 */
2225 Tcl_Size (*tcl_UtfToLower) (char *src); /* 334 */
2226 Tcl_Size (*tcl_UtfToTitle) (char *src); /* 335 */
2227 Tcl_Size (*tcl_UtfToChar16) (const char *src, unsigned short *chPtr); /* 336 */
2228 Tcl_Size (*tcl_UtfToUpper) (char *src); /* 337 */
2229 Tcl_Size (*tcl_WriteChars) (Tcl_Channel chan, const char *src, Tcl_Size srcLen); /* 338 */
2230 Tcl_Size (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */
2231 char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */
2232 void (*reserved341)(void);
2233 void (*reserved342)(void);
2234 void (*tcl_AlertNotifier) (void *clientData); /* 343 */
2235 void (*tcl_ServiceModeHook) (int mode); /* 344 */
2236 int (*tcl_UniCharIsAlnum) (int ch); /* 345 */
2237 int (*tcl_UniCharIsAlpha) (int ch); /* 346 */
2238 int (*tcl_UniCharIsDigit) (int ch); /* 347 */
2239 int (*tcl_UniCharIsLower) (int ch); /* 348 */
2240 int (*tcl_UniCharIsSpace) (int ch); /* 349 */
2241 int (*tcl_UniCharIsUpper) (int ch); /* 350 */
2242 int (*tcl_UniCharIsWordChar) (int ch); /* 351 */
2243 Tcl_Size (*tcl_Char16Len) (const unsigned short *uniStr); /* 352 */
2244 void (*reserved353)(void);
2245 char * (*tcl_Char16ToUtfDString) (const unsigned short *uniStr, Tcl_Size uniLength, Tcl_DString *dsPtr); /* 354 */
2246 unsigned short * (*tcl_UtfToChar16DString) (const char *src, Tcl_Size length, Tcl_DString *dsPtr); /* 355 */
2247 Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */
2248 void (*reserved357)(void);
2249 void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */
2250 void (*tcl_LogCommandInfo) (Tcl_Interp *interp, const char *script, const char *command, Tcl_Size length); /* 359 */
2251 int (*tcl_ParseBraces) (Tcl_Interp *interp, const char *start, Tcl_Size numBytes, Tcl_Parse *parsePtr, int append, const char **termPtr); /* 360 */
2252 int (*tcl_ParseCommand) (Tcl_Interp *interp, const char *start, Tcl_Size numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */
2253 int (*tcl_ParseExpr) (Tcl_Interp *interp, const char *start, Tcl_Size numBytes, Tcl_Parse *parsePtr); /* 362 */
2254 int (*tcl_ParseQuotedString) (Tcl_Interp *interp, const char *start, Tcl_Size numBytes, Tcl_Parse *parsePtr, int append, const char **termPtr); /* 363 */
2255 int (*tcl_ParseVarName) (Tcl_Interp *interp, const char *start, Tcl_Size numBytes, Tcl_Parse *parsePtr, int append); /* 364 */
2256 char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */
2257 int (*tcl_Chdir) (const char *dirName); /* 366 */
2258 int (*tcl_Access) (const char *path, int mode); /* 367 */
2259 int (*tcl_Stat) (const char *path, struct stat *bufPtr); /* 368 */
2260 int (*tclUtfNcmp) (const char *s1, const char *s2, size_t n); /* 369 */
2261 int (*tclUtfNcasecmp) (const char *s1, const char *s2, size_t n); /* 370 */
2262 int (*tcl_StringCaseMatch) (const char *str, const char *pattern, int nocase); /* 371 */
2263 int (*tcl_UniCharIsControl) (int ch); /* 372 */
2264 int (*tcl_UniCharIsGraph) (int ch); /* 373 */
2265 int (*tcl_UniCharIsPrint) (int ch); /* 374 */
2266 int (*tcl_UniCharIsPunct) (int ch); /* 375 */
2267 int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, Tcl_Size offset, Tcl_Size nmatches, int flags); /* 376 */
2268 void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */
2269 Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar *unicode, Tcl_Size numChars); /* 378 */
2270 void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, Tcl_Size numChars); /* 379 */
2271 Tcl_Size (*tclGetCharLength) (Tcl_Obj *objPtr); /* 380 */
2272 int (*tclGetUniChar) (Tcl_Obj *objPtr, Tcl_Size index); /* 381 */
2273 void (*reserved382)(void);
2274 Tcl_Obj * (*tclGetRange) (Tcl_Obj *objPtr, Tcl_Size first, Tcl_Size last); /* 383 */
2275 void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, Tcl_Size length); /* 384 */
2276 int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */
2277 void (*tcl_SetNotifier) (const Tcl_NotifierProcs *notifierProcPtr); /* 386 */
2278 Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */
2279 int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */
2280 int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, const char *pattern); /* 389 */
2281 int (*tcl_ProcObjCmd) (void *clientData, Tcl_Interp *interp, Tcl_Size objc, Tcl_Obj *const objv[]); /* 390 */
2282 void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */
2283 void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */
2284 int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc, void *clientData, TCL_HASH_TYPE stackSize, int flags); /* 393 */
2285 Tcl_Size (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, Tcl_Size bytesToRead); /* 394 */
2286 Tcl_Size (*tcl_WriteRaw) (Tcl_Channel chan, const char *src, Tcl_Size srcLen); /* 395 */
2287 Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */
2288 int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */
2289 const char * (*tcl_ChannelName) (const Tcl_ChannelType *chanTypePtr); /* 398 */
2290 Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType *chanTypePtr); /* 399 */
2291 Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_ChannelType *chanTypePtr); /* 400 */
2292 void (*reserved401)(void);
2293 Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType *chanTypePtr); /* 402 */
2294 Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType *chanTypePtr); /* 403 */
2295 Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType *chanTypePtr); /* 404 */
2296 void (*reserved405)(void);
2297 Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 406 */
2298 Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 407 */
2299 Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType *chanTypePtr); /* 408 */
2300 Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType *chanTypePtr); /* 409 */
2301 Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType *chanTypePtr); /* 410 */
2302 Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType *chanTypePtr); /* 411 */
2303 int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */
2304 int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */
2305 int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */
2306 void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */
2307 void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */
2308 void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */
2309 int (*tcl_IsChannelExisting) (const char *channelName); /* 418 */
2310 void (*reserved419)(void);
2311 void (*reserved420)(void);
2312 void (*reserved421)(void);
2313 Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, const void *key, int *newPtr); /* 422 */
2314 void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, const Tcl_HashKeyType *typePtr); /* 423 */
2315 void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */
2316 void * (*tcl_CommandTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *procPtr, void *prevClientData); /* 425 */
2317 int (*tcl_TraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, void *clientData); /* 426 */
2318 void (*tcl_UntraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, void *clientData); /* 427 */
2319 void * (*tcl_AttemptAlloc) (TCL_HASH_TYPE size); /* 428 */
2320 void * (*tcl_AttemptDbCkalloc) (TCL_HASH_TYPE size, const char *file, int line); /* 429 */
2321 void * (*tcl_AttemptRealloc) (void *ptr, TCL_HASH_TYPE size); /* 430 */
2322 void * (*tcl_AttemptDbCkrealloc) (void *ptr, TCL_HASH_TYPE size, const char *file, int line); /* 431 */
2323 int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, Tcl_Size length); /* 432 */
2324 Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */
2325 Tcl_UniChar * (*tclGetUnicodeFromObj) (Tcl_Obj *objPtr, void *lengthPtr); /* 434 */
2326 void (*reserved435)(void);
2327 void (*reserved436)(void);
2328 Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */
2329 int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */
2330 int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */
2331 int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */
2332 int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */
2333 int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */
2334 int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */
2335 int (*tcl_FSLoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *sym1, const char *sym2, Tcl_LibraryInitProc **proc1Ptr, Tcl_LibraryInitProc **proc2Ptr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr); /* 444 */
2336 int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); /* 445 */
2337 Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */
2338 int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */
2339 int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */
2340 int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */
2341 int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */
2342 int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */
2343 int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */
2344 const char *const * (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */
2345 int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */
2346 int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */
2347 Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *modeString, int permissions); /* 456 */
2348 Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */
2349 int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */
2350 int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */
2351 Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, Tcl_Size elements); /* 460 */
2352 Tcl_Obj * (*tclFSSplitPath) (Tcl_Obj *pathPtr, void *lenPtr); /* 461 */
2353 int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */
2354 Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */
2355 Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, Tcl_Size objc, Tcl_Obj *const objv[]); /* 464 */
2356 void * (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, const Tcl_Filesystem *fsPtr); /* 465 */
2357 Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */
2358 int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */
2359 Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem, void *clientData); /* 468 */
2360 const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */
2361 Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */
2362 Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */
2363 Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */
2364 int (*tcl_FSRegister) (void *clientData, const Tcl_Filesystem *fsPtr); /* 473 */
2365 int (*tcl_FSUnregister) (const Tcl_Filesystem *fsPtr); /* 474 */
2366 void * (*tcl_FSData) (const Tcl_Filesystem *fsPtr); /* 475 */
2367 const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */
2368 const Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */
2369 Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */
2370 int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */
2371 void (*tcl_FSMountsChanged) (const Tcl_Filesystem *fsPtr); /* 480 */
2372 int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, Tcl_Size count); /* 481 */
2373 void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */
2374 Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, Tcl_Size level, int flags, Tcl_CmdObjTraceProc *objProc, void *clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */
2375 int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */
2376 int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo *infoPtr); /* 485 */
2377 Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char *file, int line); /* 486 */
2378 int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */
2379 Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */
2380 void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */
2381 Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */
2382 long long (*tcl_Seek) (Tcl_Channel chan, long long offset, int mode); /* 491 */
2383 long long (*tcl_Tell) (Tcl_Channel chan); /* 492 */
2384 Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 493 */
2385 int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */
2386 int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */
2387 int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */
2388 int (*tclDictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, void *sizePtr); /* 497 */
2389 int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */
2390 void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */
2391 void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */
2392 int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Size keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); /* 501 */
2393 int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Size keyc, Tcl_Obj *const *keyv); /* 502 */
2394 Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */
2395 Tcl_Obj * (*tcl_DbNewDictObj) (const char *file, int line); /* 504 */
2396 void (*tcl_RegisterConfig) (Tcl_Interp *interp, const char *pkgName, const Tcl_Config *configuration, const char *valEncoding); /* 505 */
2397 Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, void *clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */
2398 void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */
2399 int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */
2400 int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 509 */
2401 int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 510 */
2402 int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 511 */
2403 Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */
2404 Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */
2405 Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */
2406 Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */
2407 Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */
2408 void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */
2409 int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, const char *encodingName); /* 518 */
2410 void (*reserved519)(void);
2411 void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, void *clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */
2412 void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, void *clientData); /* 521 */
2413 int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */
2414 int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */
2415 int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */
2416 void (*tcl_LimitSetCommands) (Tcl_Interp *interp, Tcl_Size commandLimit); /* 525 */
2417 void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */
2418 void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */
2419 int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */
2420 int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */
2421 void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */
2422 void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */
2423 Tcl_Size (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */
2424 void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */
2425 int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */
2426 Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */
2427 int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */
2428 void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */
2429 int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */
2430 Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */
2431 int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */
2432 Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, const char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */
2433 Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */
2434 int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */
2435 int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */
2436 int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */
2437 int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */
2438 int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */
2439 int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */
2440 int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */
2441 int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */
2442 int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */
2443 void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, void *clientData); /* 552 */
2444 void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, void **clientData); /* 553 */
2445 Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType *chanTypePtr); /* 554 */
2446 Tcl_Obj * (*tcl_NewBignumObj) (void *value); /* 555 */
2447 Tcl_Obj * (*tcl_DbNewBignumObj) (void *value, const char *file, int line); /* 556 */
2448 void (*tcl_SetBignumObj) (Tcl_Obj *obj, void *value); /* 557 */
2449 int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, void *value); /* 558 */
2450 int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, void *value); /* 559 */
2451 int (*tcl_TruncateChannel) (Tcl_Channel chan, long long length); /* 560 */
2452 Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType *chanTypePtr); /* 561 */
2453 void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */
2454 void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */
2455 void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */
2456 void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */
2457 int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, void *toInit); /* 566 */
2458 Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */
2459 int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */
2460 int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */
2461 Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */
2462 int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */
2463 const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */
2464 int (*tcl_PkgRequireProc) (Tcl_Interp *interp, const char *name, Tcl_Size objc, Tcl_Obj *const objv[], void *clientDataPtr); /* 573 */
2465 void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */
2466 void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, const char *bytes, Tcl_Size length, Tcl_Size limit, const char *ellipsis); /* 575 */
2467 Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, const char *format, Tcl_Size objc, Tcl_Obj *const objv[]); /* 576 */
2468 int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, const char *format, Tcl_Size objc, Tcl_Obj *const objv[]); /* 577 */
2469 Tcl_Obj * (*tcl_ObjPrintf) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 578 */
2470 void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, const char *format, ...) TCL_FORMAT_PRINTF(2, 3); /* 579 */
2471 int (*tcl_CancelEval) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr, void *clientData, int flags); /* 580 */
2472 int (*tcl_Canceled) (Tcl_Interp *interp, int flags); /* 581 */
2473 int (*tcl_CreatePipe) (Tcl_Interp *interp, Tcl_Channel *rchan, Tcl_Channel *wchan, int flags); /* 582 */
2474 Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, Tcl_ObjCmdProc *nreProc, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 583 */
2475 int (*tcl_NREvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 584 */
2476 int (*tcl_NREvalObjv) (Tcl_Interp *interp, Tcl_Size objc, Tcl_Obj *const objv[], int flags); /* 585 */
2477 int (*tcl_NRCmdSwap) (Tcl_Interp *interp, Tcl_Command cmd, Tcl_Size objc, Tcl_Obj *const objv[], int flags); /* 586 */
2478 void (*tcl_NRAddCallback) (Tcl_Interp *interp, Tcl_NRPostProc *postProcPtr, void *data0, void *data1, void *data2, void *data3); /* 587 */
2479 int (*tcl_NRCallObjProc) (Tcl_Interp *interp, Tcl_ObjCmdProc *objProc, void *clientData, Tcl_Size objc, Tcl_Obj *const objv[]); /* 588 */
2480 unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf *statPtr); /* 589 */
2481 unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf *statPtr); /* 590 */
2482 unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf *statPtr); /* 591 */
2483 int (*tcl_GetLinkCountFromStat) (const Tcl_StatBuf *statPtr); /* 592 */
2484 int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); /* 593 */
2485 int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); /* 594 */
2486 int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); /* 595 */
2487 long long (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); /* 596 */
2488 long long (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); /* 597 */
2489 long long (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); /* 598 */
2490 unsigned long long (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 599 */
2491 unsigned long long (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /* 600 */
2492 unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); /* 601 */
2493 int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *paramList); /* 602 */
2494 int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **paramListPtr); /* 603 */
2495 int (*tclParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, void *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 604 */
2496 int (*tcl_GetErrorLine) (Tcl_Interp *interp); /* 605 */
2497 void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); /* 606 */
2498 void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int code, Tcl_Interp *targetInterp); /* 607 */
2499 int (*tcl_InterpActive) (Tcl_Interp *interp); /* 608 */
2500 void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 609 */
2501 int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int level, Tcl_Obj *gzipHeaderDictObj); /* 610 */
2502 int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, Tcl_Size buffersize, Tcl_Obj *gzipHeaderDictObj); /* 611 */
2503 unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const unsigned char *buf, Tcl_Size len); /* 612 */
2504 unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const unsigned char *buf, Tcl_Size len); /* 613 */
2505 int (*tcl_ZlibStreamInit) (Tcl_Interp *interp, int mode, int format, int level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle); /* 614 */
2506 Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); /* 615 */
2507 int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); /* 616 */
2508 int (*tcl_ZlibStreamChecksum) (Tcl_ZlibStream zshandle); /* 617 */
2509 int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int flush); /* 618 */
2510 int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj *data, Tcl_Size count); /* 619 */
2511 int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); /* 620 */
2512 int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); /* 621 */
2513 void (*tcl_SetStartupScript) (Tcl_Obj *path, const char *encoding); /* 622 */
2514 Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingPtr); /* 623 */
2515 int (*tcl_CloseEx) (Tcl_Interp *interp, Tcl_Channel chan, int flags); /* 624 */
2516 int (*tcl_NRExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr); /* 625 */
2517 int (*tcl_NRSubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 626 */
2518 int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); /* 627 */
2519 void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); /* 628 */
2520 int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); /* 629 */
2521 void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); /* 630 */
2522 Tcl_Channel (*tcl_OpenTcpServerEx) (Tcl_Interp *interp, const char *service, const char *host, unsigned int flags, int backlog, Tcl_TcpAcceptProc *acceptProc, void *callbackData); /* 631 */
2523 int (*tclZipfs_Mount) (Tcl_Interp *interp, const char *zipname, const char *mountPoint, const char *passwd); /* 632 */
2524 int (*tclZipfs_Unmount) (Tcl_Interp *interp, const char *mountPoint); /* 633 */
2525 Tcl_Obj * (*tclZipfs_TclLibrary) (void); /* 634 */
2526 int (*tclZipfs_MountBuffer) (Tcl_Interp *interp, const void *data, size_t datalen, const char *mountPoint, int copy); /* 635 */
2527 void (*tcl_FreeInternalRep) (Tcl_Obj *objPtr); /* 636 */
2528 char * (*tcl_InitStringRep) (Tcl_Obj *objPtr, const char *bytes, TCL_HASH_TYPE numBytes); /* 637 */
2529 Tcl_ObjInternalRep * (*tcl_FetchInternalRep) (Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); /* 638 */
2530 void (*tcl_StoreInternalRep) (Tcl_Obj *objPtr, const Tcl_ObjType *typePtr, const Tcl_ObjInternalRep *irPtr); /* 639 */
2531 int (*tcl_HasStringRep) (Tcl_Obj *objPtr); /* 640 */
2532 void (*tcl_IncrRefCount) (Tcl_Obj *objPtr); /* 641 */
2533 void (*tcl_DecrRefCount) (Tcl_Obj *objPtr); /* 642 */
2534 int (*tcl_IsShared) (Tcl_Obj *objPtr); /* 643 */
2535 int (*tcl_LinkArray) (Tcl_Interp *interp, const char *varName, void *addr, int type, Tcl_Size size); /* 644 */
2536 int (*tcl_GetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Size endValue, Tcl_Size *indexPtr); /* 645 */
2537 Tcl_Size (*tcl_UtfToUniChar) (const char *src, int *chPtr); /* 646 */
2538 char * (*tcl_UniCharToUtfDString) (const int *uniStr, Tcl_Size uniLength, Tcl_DString *dsPtr); /* 647 */
2539 int * (*tcl_UtfToUniCharDString) (const char *src, Tcl_Size length, Tcl_DString *dsPtr); /* 648 */
2540 unsigned char * (*tclGetBytesFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, void *numBytesPtr); /* 649 */
2541 unsigned char * (*tcl_GetBytesFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Size *numBytesPtr); /* 650 */
2542 char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, Tcl_Size *lengthPtr); /* 651 */
2543 Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, Tcl_Size *lengthPtr); /* 652 */
2544 int (*tcl_GetSizeIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Size *sizePtr); /* 653 */
2545 int (*tcl_UtfCharComplete) (const char *src, Tcl_Size length); /* 654 */
2546 const char * (*tcl_UtfNext) (const char *src); /* 655 */
2547 const char * (*tcl_UtfPrev) (const char *src, const char *start); /* 656 */
2548 int (*tcl_FSTildeExpand) (Tcl_Interp *interp, const char *path, Tcl_DString *dsPtr); /* 657 */
2549 int (*tcl_ExternalToUtfDStringEx) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, int flags, Tcl_DString *dsPtr, Tcl_Size *errorLocationPtr); /* 658 */
2550 int (*tcl_UtfToExternalDStringEx) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, int flags, Tcl_DString *dsPtr, Tcl_Size *errorLocationPtr); /* 659 */
2551 int (*tcl_AsyncMarkFromSignal) (Tcl_AsyncHandler async, int sigNumber); /* 660 */
2552 int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Size *objcPtr, Tcl_Obj ***objvPtr); /* 661 */
2553 int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Size *lengthPtr); /* 662 */
2554 int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Size *sizePtr); /* 663 */
2555 int (*tcl_SplitList) (Tcl_Interp *interp, const char *listStr, Tcl_Size *argcPtr, const char ***argvPtr); /* 664 */
2556 void (*tcl_SplitPath) (const char *path, Tcl_Size *argcPtr, const char ***argvPtr); /* 665 */
2557 Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, Tcl_Size *lenPtr); /* 666 */
2558 int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, Tcl_Size *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 667 */
2559 Tcl_Size (*tcl_UniCharLen) (const int *uniStr); /* 668 */
2560 Tcl_Size (*tcl_NumUtfChars) (const char *src, Tcl_Size length); /* 669 */
2561 Tcl_Size (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 670 */
2562 const char * (*tcl_UtfAtIndex) (const char *src, Tcl_Size index); /* 671 */
2563 Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, Tcl_Size first, Tcl_Size last); /* 672 */
2564 int (*tcl_GetUniChar) (Tcl_Obj *objPtr, Tcl_Size index); /* 673 */
2565 int (*tcl_GetBool) (Tcl_Interp *interp, const char *src, int flags, char *charPtr); /* 674 */
2566 int (*tcl_GetBoolFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, char *charPtr); /* 675 */
2567 Tcl_Command (*tcl_CreateObjCommand2) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc2 *proc2, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 676 */
2568 Tcl_Trace (*tcl_CreateObjTrace2) (Tcl_Interp *interp, Tcl_Size level, int flags, Tcl_CmdObjTraceProc2 *objProc2, void *clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 677 */
2569 Tcl_Command (*tcl_NRCreateCommand2) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc2 *proc, Tcl_ObjCmdProc2 *nreProc2, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 678 */
2570 int (*tcl_NRCallObjProc2) (Tcl_Interp *interp, Tcl_ObjCmdProc2 *objProc2, void *clientData, Tcl_Size objc, Tcl_Obj *const objv[]); /* 679 */
2571 int (*tcl_GetNumberFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, void **clientDataPtr, int *typePtr); /* 680 */
2572 int (*tcl_GetNumber) (Tcl_Interp *interp, const char *bytes, Tcl_Size numBytes, void **clientDataPtr, int *typePtr); /* 681 */
2573 int (*tcl_RemoveChannelMode) (Tcl_Interp *interp, Tcl_Channel chan, int mode); /* 682 */
2574 Tcl_Size (*tcl_GetEncodingNulLength) (Tcl_Encoding encoding); /* 683 */
2575 int (*tcl_GetWideUIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideUInt *uwidePtr); /* 684 */
2576 Tcl_Obj * (*tcl_DStringToObj) (Tcl_DString *dsPtr); /* 685 */
2577 int (*tcl_UtfNcmp) (const char *s1, const char *s2, size_t n); /* 686 */
2578 int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, size_t n); /* 687 */
2579 Tcl_Obj * (*tcl_NewWideUIntObj) (Tcl_WideUInt wideValue); /* 688 */
2580 void (*tcl_SetWideUIntObj) (Tcl_Obj *objPtr, Tcl_WideUInt uwideValue); /* 689 */
2581 void (*tclUnusedStubEntry) (void); /* 690 */
2582 } TclStubs;
2583
2584 extern const TclStubs *tclStubsPtr;
2585
2586 #ifdef __cplusplus
2587 }
2588 #endif
2589
2590 #if defined(USE_TCL_STUBS)
2591
2592 /*
2593 * Inline function declarations:
2594 */
2595
2596 #define Tcl_PkgProvideEx \
2597 (tclStubsPtr->tcl_PkgProvideEx) /* 0 */
2598 #define Tcl_PkgRequireEx \
2599 (tclStubsPtr->tcl_PkgRequireEx) /* 1 */
2600 #define Tcl_Panic \
2601 (tclStubsPtr->tcl_Panic) /* 2 */
2602 #define Tcl_Alloc \
2603 (tclStubsPtr->tcl_Alloc) /* 3 */
2604 #define Tcl_Free \
2605 (tclStubsPtr->tcl_Free) /* 4 */
2606 #define Tcl_Realloc \
2607 (tclStubsPtr->tcl_Realloc) /* 5 */
2608 #define Tcl_DbCkalloc \
2609 (tclStubsPtr->tcl_DbCkalloc) /* 6 */
2610 #define Tcl_DbCkfree \
2611 (tclStubsPtr->tcl_DbCkfree) /* 7 */
2612 #define Tcl_DbCkrealloc \
2613 (tclStubsPtr->tcl_DbCkrealloc) /* 8 */
2614 #define Tcl_CreateFileHandler \
2615 (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
2616 #define Tcl_DeleteFileHandler \
2617 (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
2618 #define Tcl_SetTimer \
2619 (tclStubsPtr->tcl_SetTimer) /* 11 */
2620 #define Tcl_Sleep \
2621 (tclStubsPtr->tcl_Sleep) /* 12 */
2622 #define Tcl_WaitForEvent \
2623 (tclStubsPtr->tcl_WaitForEvent) /* 13 */
2624 #define Tcl_AppendAllObjTypes \
2625 (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */
2626 #define Tcl_AppendStringsToObj \
2627 (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */
2628 #define Tcl_AppendToObj \
2629 (tclStubsPtr->tcl_AppendToObj) /* 16 */
2630 #define Tcl_ConcatObj \
2631 (tclStubsPtr->tcl_ConcatObj) /* 17 */
2632 #define Tcl_ConvertToType \
2633 (tclStubsPtr->tcl_ConvertToType) /* 18 */
2634 #define Tcl_DbDecrRefCount \
2635 (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */
2636 #define Tcl_DbIncrRefCount \
2637 (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */
2638 #define Tcl_DbIsShared \
2639 (tclStubsPtr->tcl_DbIsShared) /* 21 */
2640 /* Slot 22 is reserved */
2641 #define Tcl_DbNewByteArrayObj \
2642 (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */
2643 #define Tcl_DbNewDoubleObj \
2644 (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */
2645 #define Tcl_DbNewListObj \
2646 (tclStubsPtr->tcl_DbNewListObj) /* 25 */
2647 /* Slot 26 is reserved */
2648 #define Tcl_DbNewObj \
2649 (tclStubsPtr->tcl_DbNewObj) /* 27 */
2650 #define Tcl_DbNewStringObj \
2651 (tclStubsPtr->tcl_DbNewStringObj) /* 28 */
2652 #define Tcl_DuplicateObj \
2653 (tclStubsPtr->tcl_DuplicateObj) /* 29 */
2654 #define TclFreeObj \
2655 (tclStubsPtr->tclFreeObj) /* 30 */
2656 #define Tcl_GetBoolean \
2657 (tclStubsPtr->tcl_GetBoolean) /* 31 */
2658 #define Tcl_GetBooleanFromObj \
2659 (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */
2660 #define Tcl_GetByteArrayFromObj \
2661 (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */
2662 #define Tcl_GetDouble \
2663 (tclStubsPtr->tcl_GetDouble) /* 34 */
2664 #define Tcl_GetDoubleFromObj \
2665 (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */
2666 /* Slot 36 is reserved */
2667 #define Tcl_GetInt \
2668 (tclStubsPtr->tcl_GetInt) /* 37 */
2669 #define Tcl_GetIntFromObj \
2670 (tclStubsPtr->tcl_GetIntFromObj) /* 38 */
2671 #define Tcl_GetLongFromObj \
2672 (tclStubsPtr->tcl_GetLongFromObj) /* 39 */
2673 #define Tcl_GetObjType \
2674 (tclStubsPtr->tcl_GetObjType) /* 40 */
2675 #define TclGetStringFromObj \
2676 (tclStubsPtr->tclGetStringFromObj) /* 41 */
2677 #define Tcl_InvalidateStringRep \
2678 (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */
2679 #define Tcl_ListObjAppendList \
2680 (tclStubsPtr->tcl_ListObjAppendList) /* 43 */
2681 #define Tcl_ListObjAppendElement \
2682 (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */
2683 #define TclListObjGetElements \
2684 (tclStubsPtr->tclListObjGetElements) /* 45 */
2685 #define Tcl_ListObjIndex \
2686 (tclStubsPtr->tcl_ListObjIndex) /* 46 */
2687 #define TclListObjLength \
2688 (tclStubsPtr->tclListObjLength) /* 47 */
2689 #define Tcl_ListObjReplace \
2690 (tclStubsPtr->tcl_ListObjReplace) /* 48 */
2691 /* Slot 49 is reserved */
2692 #define Tcl_NewByteArrayObj \
2693 (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */
2694 #define Tcl_NewDoubleObj \
2695 (tclStubsPtr->tcl_NewDoubleObj) /* 51 */
2696 /* Slot 52 is reserved */
2697 #define Tcl_NewListObj \
2698 (tclStubsPtr->tcl_NewListObj) /* 53 */
2699 /* Slot 54 is reserved */
2700 #define Tcl_NewObj \
2701 (tclStubsPtr->tcl_NewObj) /* 55 */
2702 #define Tcl_NewStringObj \
2703 (tclStubsPtr->tcl_NewStringObj) /* 56 */
2704 /* Slot 57 is reserved */
2705 #define Tcl_SetByteArrayLength \
2706 (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */
2707 #define Tcl_SetByteArrayObj \
2708 (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */
2709 #define Tcl_SetDoubleObj \
2710 (tclStubsPtr->tcl_SetDoubleObj) /* 60 */
2711 /* Slot 61 is reserved */
2712 #define Tcl_SetListObj \
2713 (tclStubsPtr->tcl_SetListObj) /* 62 */
2714 /* Slot 63 is reserved */
2715 #define Tcl_SetObjLength \
2716 (tclStubsPtr->tcl_SetObjLength) /* 64 */
2717 #define Tcl_SetStringObj \
2718 (tclStubsPtr->tcl_SetStringObj) /* 65 */
2719 /* Slot 66 is reserved */
2720 /* Slot 67 is reserved */
2721 #define Tcl_AllowExceptions \
2722 (tclStubsPtr->tcl_AllowExceptions) /* 68 */
2723 #define Tcl_AppendElement \
2724 (tclStubsPtr->tcl_AppendElement) /* 69 */
2725 #define Tcl_AppendResult \
2726 (tclStubsPtr->tcl_AppendResult) /* 70 */
2727 #define Tcl_AsyncCreate \
2728 (tclStubsPtr->tcl_AsyncCreate) /* 71 */
2729 #define Tcl_AsyncDelete \
2730 (tclStubsPtr->tcl_AsyncDelete) /* 72 */
2731 #define Tcl_AsyncInvoke \
2732 (tclStubsPtr->tcl_AsyncInvoke) /* 73 */
2733 #define Tcl_AsyncMark \
2734 (tclStubsPtr->tcl_AsyncMark) /* 74 */
2735 #define Tcl_AsyncReady \
2736 (tclStubsPtr->tcl_AsyncReady) /* 75 */
2737 /* Slot 76 is reserved */
2738 /* Slot 77 is reserved */
2739 #define Tcl_BadChannelOption \
2740 (tclStubsPtr->tcl_BadChannelOption) /* 78 */
2741 #define Tcl_CallWhenDeleted \
2742 (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */
2743 #define Tcl_CancelIdleCall \
2744 (tclStubsPtr->tcl_CancelIdleCall) /* 80 */
2745 #define Tcl_Close \
2746 (tclStubsPtr->tcl_Close) /* 81 */
2747 #define Tcl_CommandComplete \
2748 (tclStubsPtr->tcl_CommandComplete) /* 82 */
2749 #define Tcl_Concat \
2750 (tclStubsPtr->tcl_Concat) /* 83 */
2751 #define Tcl_ConvertElement \
2752 (tclStubsPtr->tcl_ConvertElement) /* 84 */
2753 #define Tcl_ConvertCountedElement \
2754 (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */
2755 #define Tcl_CreateAlias \
2756 (tclStubsPtr->tcl_CreateAlias) /* 86 */
2757 #define Tcl_CreateAliasObj \
2758 (tclStubsPtr->tcl_CreateAliasObj) /* 87 */
2759 #define Tcl_CreateChannel \
2760 (tclStubsPtr->tcl_CreateChannel) /* 88 */
2761 #define Tcl_CreateChannelHandler \
2762 (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */
2763 #define Tcl_CreateCloseHandler \
2764 (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */
2765 #define Tcl_CreateCommand \
2766 (tclStubsPtr->tcl_CreateCommand) /* 91 */
2767 #define Tcl_CreateEventSource \
2768 (tclStubsPtr->tcl_CreateEventSource) /* 92 */
2769 #define Tcl_CreateExitHandler \
2770 (tclStubsPtr->tcl_CreateExitHandler) /* 93 */
2771 #define Tcl_CreateInterp \
2772 (tclStubsPtr->tcl_CreateInterp) /* 94 */
2773 /* Slot 95 is reserved */
2774 #define Tcl_CreateObjCommand \
2775 (tclStubsPtr->tcl_CreateObjCommand) /* 96 */
2776 #define Tcl_CreateChild \
2777 (tclStubsPtr->tcl_CreateChild) /* 97 */
2778 #define Tcl_CreateTimerHandler \
2779 (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */
2780 #define Tcl_CreateTrace \
2781 (tclStubsPtr->tcl_CreateTrace) /* 99 */
2782 #define Tcl_DeleteAssocData \
2783 (tclStubsPtr->tcl_DeleteAssocData) /* 100 */
2784 #define Tcl_DeleteChannelHandler \
2785 (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */
2786 #define Tcl_DeleteCloseHandler \
2787 (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */
2788 #define Tcl_DeleteCommand \
2789 (tclStubsPtr->tcl_DeleteCommand) /* 103 */
2790 #define Tcl_DeleteCommandFromToken \
2791 (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */
2792 #define Tcl_DeleteEvents \
2793 (tclStubsPtr->tcl_DeleteEvents) /* 105 */
2794 #define Tcl_DeleteEventSource \
2795 (tclStubsPtr->tcl_DeleteEventSource) /* 106 */
2796 #define Tcl_DeleteExitHandler \
2797 (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */
2798 #define Tcl_DeleteHashEntry \
2799 (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */
2800 #define Tcl_DeleteHashTable \
2801 (tclStubsPtr->tcl_DeleteHashTable) /* 109 */
2802 #define Tcl_DeleteInterp \
2803 (tclStubsPtr->tcl_DeleteInterp) /* 110 */
2804 #define Tcl_DetachPids \
2805 (tclStubsPtr->tcl_DetachPids) /* 111 */
2806 #define Tcl_DeleteTimerHandler \
2807 (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */
2808 #define Tcl_DeleteTrace \
2809 (tclStubsPtr->tcl_DeleteTrace) /* 113 */
2810 #define Tcl_DontCallWhenDeleted \
2811 (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */
2812 #define Tcl_DoOneEvent \
2813 (tclStubsPtr->tcl_DoOneEvent) /* 115 */
2814 #define Tcl_DoWhenIdle \
2815 (tclStubsPtr->tcl_DoWhenIdle) /* 116 */
2816 #define Tcl_DStringAppend \
2817 (tclStubsPtr->tcl_DStringAppend) /* 117 */
2818 #define Tcl_DStringAppendElement \
2819 (tclStubsPtr->tcl_DStringAppendElement) /* 118 */
2820 #define Tcl_DStringEndSublist \
2821 (tclStubsPtr->tcl_DStringEndSublist) /* 119 */
2822 #define Tcl_DStringFree \
2823 (tclStubsPtr->tcl_DStringFree) /* 120 */
2824 #define Tcl_DStringGetResult \
2825 (tclStubsPtr->tcl_DStringGetResult) /* 121 */
2826 #define Tcl_DStringInit \
2827 (tclStubsPtr->tcl_DStringInit) /* 122 */
2828 #define Tcl_DStringResult \
2829 (tclStubsPtr->tcl_DStringResult) /* 123 */
2830 #define Tcl_DStringSetLength \
2831 (tclStubsPtr->tcl_DStringSetLength) /* 124 */
2832 #define Tcl_DStringStartSublist \
2833 (tclStubsPtr->tcl_DStringStartSublist) /* 125 */
2834 #define Tcl_Eof \
2835 (tclStubsPtr->tcl_Eof) /* 126 */
2836 #define Tcl_ErrnoId \
2837 (tclStubsPtr->tcl_ErrnoId) /* 127 */
2838 #define Tcl_ErrnoMsg \
2839 (tclStubsPtr->tcl_ErrnoMsg) /* 128 */
2840 /* Slot 129 is reserved */
2841 #define Tcl_EvalFile \
2842 (tclStubsPtr->tcl_EvalFile) /* 130 */
2843 /* Slot 131 is reserved */
2844 #define Tcl_EventuallyFree \
2845 (tclStubsPtr->tcl_EventuallyFree) /* 132 */
2846 #define Tcl_Exit \
2847 (tclStubsPtr->tcl_Exit) /* 133 */
2848 #define Tcl_ExposeCommand \
2849 (tclStubsPtr->tcl_ExposeCommand) /* 134 */
2850 #define Tcl_ExprBoolean \
2851 (tclStubsPtr->tcl_ExprBoolean) /* 135 */
2852 #define Tcl_ExprBooleanObj \
2853 (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */
2854 #define Tcl_ExprDouble \
2855 (tclStubsPtr->tcl_ExprDouble) /* 137 */
2856 #define Tcl_ExprDoubleObj \
2857 (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */
2858 #define Tcl_ExprLong \
2859 (tclStubsPtr->tcl_ExprLong) /* 139 */
2860 #define Tcl_ExprLongObj \
2861 (tclStubsPtr->tcl_ExprLongObj) /* 140 */
2862 #define Tcl_ExprObj \
2863 (tclStubsPtr->tcl_ExprObj) /* 141 */
2864 #define Tcl_ExprString \
2865 (tclStubsPtr->tcl_ExprString) /* 142 */
2866 #define Tcl_Finalize \
2867 (tclStubsPtr->tcl_Finalize) /* 143 */
2868 /* Slot 144 is reserved */
2869 #define Tcl_FirstHashEntry \
2870 (tclStubsPtr->tcl_FirstHashEntry) /* 145 */
2871 #define Tcl_Flush \
2872 (tclStubsPtr->tcl_Flush) /* 146 */
2873 /* Slot 147 is reserved */
2874 /* Slot 148 is reserved */
2875 #define TclGetAliasObj \
2876 (tclStubsPtr->tclGetAliasObj) /* 149 */
2877 #define Tcl_GetAssocData \
2878 (tclStubsPtr->tcl_GetAssocData) /* 150 */
2879 #define Tcl_GetChannel \
2880 (tclStubsPtr->tcl_GetChannel) /* 151 */
2881 #define Tcl_GetChannelBufferSize \
2882 (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */
2883 #define Tcl_GetChannelHandle \
2884 (tclStubsPtr->tcl_GetChannelHandle) /* 153 */
2885 #define Tcl_GetChannelInstanceData \
2886 (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */
2887 #define Tcl_GetChannelMode \
2888 (tclStubsPtr->tcl_GetChannelMode) /* 155 */
2889 #define Tcl_GetChannelName \
2890 (tclStubsPtr->tcl_GetChannelName) /* 156 */
2891 #define Tcl_GetChannelOption \
2892 (tclStubsPtr->tcl_GetChannelOption) /* 157 */
2893 #define Tcl_GetChannelType \
2894 (tclStubsPtr->tcl_GetChannelType) /* 158 */
2895 #define Tcl_GetCommandInfo \
2896 (tclStubsPtr->tcl_GetCommandInfo) /* 159 */
2897 #define Tcl_GetCommandName \
2898 (tclStubsPtr->tcl_GetCommandName) /* 160 */
2899 #define Tcl_GetErrno \
2900 (tclStubsPtr->tcl_GetErrno) /* 161 */
2901 #define Tcl_GetHostName \
2902 (tclStubsPtr->tcl_GetHostName) /* 162 */
2903 #define Tcl_GetInterpPath \
2904 (tclStubsPtr->tcl_GetInterpPath) /* 163 */
2905 #define Tcl_GetParent \
2906 (tclStubsPtr->tcl_GetParent) /* 164 */
2907 #define Tcl_GetNameOfExecutable \
2908 (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */
2909 #define Tcl_GetObjResult \
2910 (tclStubsPtr->tcl_GetObjResult) /* 166 */
2911 #define Tcl_GetOpenFile \
2912 (tclStubsPtr->tcl_GetOpenFile) /* 167 */
2913 #define Tcl_GetPathType \
2914 (tclStubsPtr->tcl_GetPathType) /* 168 */
2915 #define Tcl_Gets \
2916 (tclStubsPtr->tcl_Gets) /* 169 */
2917 #define Tcl_GetsObj \
2918 (tclStubsPtr->tcl_GetsObj) /* 170 */
2919 #define Tcl_GetServiceMode \
2920 (tclStubsPtr->tcl_GetServiceMode) /* 171 */
2921 #define Tcl_GetChild \
2922 (tclStubsPtr->tcl_GetChild) /* 172 */
2923 #define Tcl_GetStdChannel \
2924 (tclStubsPtr->tcl_GetStdChannel) /* 173 */
2925 /* Slot 174 is reserved */
2926 /* Slot 175 is reserved */
2927 #define Tcl_GetVar2 \
2928 (tclStubsPtr->tcl_GetVar2) /* 176 */
2929 /* Slot 177 is reserved */
2930 /* Slot 178 is reserved */
2931 #define Tcl_HideCommand \
2932 (tclStubsPtr->tcl_HideCommand) /* 179 */
2933 #define Tcl_Init \
2934 (tclStubsPtr->tcl_Init) /* 180 */
2935 #define Tcl_InitHashTable \
2936 (tclStubsPtr->tcl_InitHashTable) /* 181 */
2937 #define Tcl_InputBlocked \
2938 (tclStubsPtr->tcl_InputBlocked) /* 182 */
2939 #define Tcl_InputBuffered \
2940 (tclStubsPtr->tcl_InputBuffered) /* 183 */
2941 #define Tcl_InterpDeleted \
2942 (tclStubsPtr->tcl_InterpDeleted) /* 184 */
2943 #define Tcl_IsSafe \
2944 (tclStubsPtr->tcl_IsSafe) /* 185 */
2945 #define Tcl_JoinPath \
2946 (tclStubsPtr->tcl_JoinPath) /* 186 */
2947 #define Tcl_LinkVar \
2948 (tclStubsPtr->tcl_LinkVar) /* 187 */
2949 /* Slot 188 is reserved */
2950 #define Tcl_MakeFileChannel \
2951 (tclStubsPtr->tcl_MakeFileChannel) /* 189 */
2952 /* Slot 190 is reserved */
2953 #define Tcl_MakeTcpClientChannel \
2954 (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */
2955 #define Tcl_Merge \
2956 (tclStubsPtr->tcl_Merge) /* 192 */
2957 #define Tcl_NextHashEntry \
2958 (tclStubsPtr->tcl_NextHashEntry) /* 193 */
2959 #define Tcl_NotifyChannel \
2960 (tclStubsPtr->tcl_NotifyChannel) /* 194 */
2961 #define Tcl_ObjGetVar2 \
2962 (tclStubsPtr->tcl_ObjGetVar2) /* 195 */
2963 #define Tcl_ObjSetVar2 \
2964 (tclStubsPtr->tcl_ObjSetVar2) /* 196 */
2965 #define Tcl_OpenCommandChannel \
2966 (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
2967 #define Tcl_OpenFileChannel \
2968 (tclStubsPtr->tcl_OpenFileChannel) /* 198 */
2969 #define Tcl_OpenTcpClient \
2970 (tclStubsPtr->tcl_OpenTcpClient) /* 199 */
2971 #define Tcl_OpenTcpServer \
2972 (tclStubsPtr->tcl_OpenTcpServer) /* 200 */
2973 #define Tcl_Preserve \
2974 (tclStubsPtr->tcl_Preserve) /* 201 */
2975 #define Tcl_PrintDouble \
2976 (tclStubsPtr->tcl_PrintDouble) /* 202 */
2977 #define Tcl_PutEnv \
2978 (tclStubsPtr->tcl_PutEnv) /* 203 */
2979 #define Tcl_PosixError \
2980 (tclStubsPtr->tcl_PosixError) /* 204 */
2981 #define Tcl_QueueEvent \
2982 (tclStubsPtr->tcl_QueueEvent) /* 205 */
2983 #define Tcl_Read \
2984 (tclStubsPtr->tcl_Read) /* 206 */
2985 #define Tcl_ReapDetachedProcs \
2986 (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
2987 #define Tcl_RecordAndEval \
2988 (tclStubsPtr->tcl_RecordAndEval) /* 208 */
2989 #define Tcl_RecordAndEvalObj \
2990 (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */
2991 #define Tcl_RegisterChannel \
2992 (tclStubsPtr->tcl_RegisterChannel) /* 210 */
2993 #define Tcl_RegisterObjType \
2994 (tclStubsPtr->tcl_RegisterObjType) /* 211 */
2995 #define Tcl_RegExpCompile \
2996 (tclStubsPtr->tcl_RegExpCompile) /* 212 */
2997 #define Tcl_RegExpExec \
2998 (tclStubsPtr->tcl_RegExpExec) /* 213 */
2999 #define Tcl_RegExpMatch \
3000 (tclStubsPtr->tcl_RegExpMatch) /* 214 */
3001 #define Tcl_RegExpRange \
3002 (tclStubsPtr->tcl_RegExpRange) /* 215 */
3003 #define Tcl_Release \
3004 (tclStubsPtr->tcl_Release) /* 216 */
3005 #define Tcl_ResetResult \
3006 (tclStubsPtr->tcl_ResetResult) /* 217 */
3007 #define Tcl_ScanElement \
3008 (tclStubsPtr->tcl_ScanElement) /* 218 */
3009 #define Tcl_ScanCountedElement \
3010 (tclStubsPtr->tcl_ScanCountedElement) /* 219 */
3011 /* Slot 220 is reserved */
3012 #define Tcl_ServiceAll \
3013 (tclStubsPtr->tcl_ServiceAll) /* 221 */
3014 #define Tcl_ServiceEvent \
3015 (tclStubsPtr->tcl_ServiceEvent) /* 222 */
3016 #define Tcl_SetAssocData \
3017 (tclStubsPtr->tcl_SetAssocData) /* 223 */
3018 #define Tcl_SetChannelBufferSize \
3019 (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */
3020 #define Tcl_SetChannelOption \
3021 (tclStubsPtr->tcl_SetChannelOption) /* 225 */
3022 #define Tcl_SetCommandInfo \
3023 (tclStubsPtr->tcl_SetCommandInfo) /* 226 */
3024 #define Tcl_SetErrno \
3025 (tclStubsPtr->tcl_SetErrno) /* 227 */
3026 #define Tcl_SetErrorCode \
3027 (tclStubsPtr->tcl_SetErrorCode) /* 228 */
3028 #define Tcl_SetMaxBlockTime \
3029 (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */
3030 /* Slot 230 is reserved */
3031 #define Tcl_SetRecursionLimit \
3032 (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */
3033 /* Slot 232 is reserved */
3034 #define Tcl_SetServiceMode \
3035 (tclStubsPtr->tcl_SetServiceMode) /* 233 */
3036 #define Tcl_SetObjErrorCode \
3037 (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */
3038 #define Tcl_SetObjResult \
3039 (tclStubsPtr->tcl_SetObjResult) /* 235 */
3040 #define Tcl_SetStdChannel \
3041 (tclStubsPtr->tcl_SetStdChannel) /* 236 */
3042 /* Slot 237 is reserved */
3043 #define Tcl_SetVar2 \
3044 (tclStubsPtr->tcl_SetVar2) /* 238 */
3045 #define Tcl_SignalId \
3046 (tclStubsPtr->tcl_SignalId) /* 239 */
3047 #define Tcl_SignalMsg \
3048 (tclStubsPtr->tcl_SignalMsg) /* 240 */
3049 #define Tcl_SourceRCFile \
3050 (tclStubsPtr->tcl_SourceRCFile) /* 241 */
3051 #define TclSplitList \
3052 (tclStubsPtr->tclSplitList) /* 242 */
3053 #define TclSplitPath \
3054 (tclStubsPtr->tclSplitPath) /* 243 */
3055 /* Slot 244 is reserved */
3056 /* Slot 245 is reserved */
3057 /* Slot 246 is reserved */
3058 /* Slot 247 is reserved */
3059 #define Tcl_TraceVar2 \
3060 (tclStubsPtr->tcl_TraceVar2) /* 248 */
3061 #define Tcl_TranslateFileName \
3062 (tclStubsPtr->tcl_TranslateFileName) /* 249 */
3063 #define Tcl_Ungets \
3064 (tclStubsPtr->tcl_Ungets) /* 250 */
3065 #define Tcl_UnlinkVar \
3066 (tclStubsPtr->tcl_UnlinkVar) /* 251 */
3067 #define Tcl_UnregisterChannel \
3068 (tclStubsPtr->tcl_UnregisterChannel) /* 252 */
3069 /* Slot 253 is reserved */
3070 #define Tcl_UnsetVar2 \
3071 (tclStubsPtr->tcl_UnsetVar2) /* 254 */
3072 /* Slot 255 is reserved */
3073 #define Tcl_UntraceVar2 \
3074 (tclStubsPtr->tcl_UntraceVar2) /* 256 */
3075 #define Tcl_UpdateLinkedVar \
3076 (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */
3077 /* Slot 258 is reserved */
3078 #define Tcl_UpVar2 \
3079 (tclStubsPtr->tcl_UpVar2) /* 259 */
3080 #define Tcl_VarEval \
3081 (tclStubsPtr->tcl_VarEval) /* 260 */
3082 /* Slot 261 is reserved */
3083 #define Tcl_VarTraceInfo2 \
3084 (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */
3085 #define Tcl_Write \
3086 (tclStubsPtr->tcl_Write) /* 263 */
3087 #define Tcl_WrongNumArgs \
3088 (tclStubsPtr->tcl_WrongNumArgs) /* 264 */
3089 #define Tcl_DumpActiveMemory \
3090 (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */
3091 #define Tcl_ValidateAllMemory \
3092 (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */
3093 /* Slot 267 is reserved */
3094 /* Slot 268 is reserved */
3095 #define Tcl_HashStats \
3096 (tclStubsPtr->tcl_HashStats) /* 269 */
3097 #define Tcl_ParseVar \
3098 (tclStubsPtr->tcl_ParseVar) /* 270 */
3099 /* Slot 271 is reserved */
3100 #define Tcl_PkgPresentEx \
3101 (tclStubsPtr->tcl_PkgPresentEx) /* 272 */
3102 /* Slot 273 is reserved */
3103 /* Slot 274 is reserved */
3104 /* Slot 275 is reserved */
3105 /* Slot 276 is reserved */
3106 #define Tcl_WaitPid \
3107 (tclStubsPtr->tcl_WaitPid) /* 277 */
3108 /* Slot 278 is reserved */
3109 #define Tcl_GetVersion \
3110 (tclStubsPtr->tcl_GetVersion) /* 279 */
3111 #define Tcl_InitMemory \
3112 (tclStubsPtr->tcl_InitMemory) /* 280 */
3113 #define Tcl_StackChannel \
3114 (tclStubsPtr->tcl_StackChannel) /* 281 */
3115 #define Tcl_UnstackChannel \
3116 (tclStubsPtr->tcl_UnstackChannel) /* 282 */
3117 #define Tcl_GetStackedChannel \
3118 (tclStubsPtr->tcl_GetStackedChannel) /* 283 */
3119 #define Tcl_SetMainLoop \
3120 (tclStubsPtr->tcl_SetMainLoop) /* 284 */
3121 #define Tcl_GetAliasObj \
3122 (tclStubsPtr->tcl_GetAliasObj) /* 285 */
3123 #define Tcl_AppendObjToObj \
3124 (tclStubsPtr->tcl_AppendObjToObj) /* 286 */
3125 #define Tcl_CreateEncoding \
3126 (tclStubsPtr->tcl_CreateEncoding) /* 287 */
3127 #define Tcl_CreateThreadExitHandler \
3128 (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */
3129 #define Tcl_DeleteThreadExitHandler \
3130 (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */
3131 /* Slot 290 is reserved */
3132 #define Tcl_EvalEx \
3133 (tclStubsPtr->tcl_EvalEx) /* 291 */
3134 #define Tcl_EvalObjv \
3135 (tclStubsPtr->tcl_EvalObjv) /* 292 */
3136 #define Tcl_EvalObjEx \
3137 (tclStubsPtr->tcl_EvalObjEx) /* 293 */
3138 #define Tcl_ExitThread \
3139 (tclStubsPtr->tcl_ExitThread) /* 294 */
3140 #define Tcl_ExternalToUtf \
3141 (tclStubsPtr->tcl_ExternalToUtf) /* 295 */
3142 #define Tcl_ExternalToUtfDString \
3143 (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */
3144 #define Tcl_FinalizeThread \
3145 (tclStubsPtr->tcl_FinalizeThread) /* 297 */
3146 #define Tcl_FinalizeNotifier \
3147 (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */
3148 #define Tcl_FreeEncoding \
3149 (tclStubsPtr->tcl_FreeEncoding) /* 299 */
3150 #define Tcl_GetCurrentThread \
3151 (tclStubsPtr->tcl_GetCurrentThread) /* 300 */
3152 #define Tcl_GetEncoding \
3153 (tclStubsPtr->tcl_GetEncoding) /* 301 */
3154 #define Tcl_GetEncodingName \
3155 (tclStubsPtr->tcl_GetEncodingName) /* 302 */
3156 #define Tcl_GetEncodingNames \
3157 (tclStubsPtr->tcl_GetEncodingNames) /* 303 */
3158 #define Tcl_GetIndexFromObjStruct \
3159 (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */
3160 #define Tcl_GetThreadData \
3161 (tclStubsPtr->tcl_GetThreadData) /* 305 */
3162 #define Tcl_GetVar2Ex \
3163 (tclStubsPtr->tcl_GetVar2Ex) /* 306 */
3164 #define Tcl_InitNotifier \
3165 (tclStubsPtr->tcl_InitNotifier) /* 307 */
3166 #define Tcl_MutexLock \
3167 (tclStubsPtr->tcl_MutexLock) /* 308 */
3168 #define Tcl_MutexUnlock \
3169 (tclStubsPtr->tcl_MutexUnlock) /* 309 */
3170 #define Tcl_ConditionNotify \
3171 (tclStubsPtr->tcl_ConditionNotify) /* 310 */
3172 #define Tcl_ConditionWait \
3173 (tclStubsPtr->tcl_ConditionWait) /* 311 */
3174 #define TclNumUtfChars \
3175 (tclStubsPtr->tclNumUtfChars) /* 312 */
3176 #define Tcl_ReadChars \
3177 (tclStubsPtr->tcl_ReadChars) /* 313 */
3178 /* Slot 314 is reserved */
3179 /* Slot 315 is reserved */
3180 #define Tcl_SetSystemEncoding \
3181 (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */
3182 #define Tcl_SetVar2Ex \
3183 (tclStubsPtr->tcl_SetVar2Ex) /* 317 */
3184 #define Tcl_ThreadAlert \
3185 (tclStubsPtr->tcl_ThreadAlert) /* 318 */
3186 #define Tcl_ThreadQueueEvent \
3187 (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */
3188 #define Tcl_UniCharAtIndex \
3189 (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */
3190 #define Tcl_UniCharToLower \
3191 (tclStubsPtr->tcl_UniCharToLower) /* 321 */
3192 #define Tcl_UniCharToTitle \
3193 (tclStubsPtr->tcl_UniCharToTitle) /* 322 */
3194 #define Tcl_UniCharToUpper \
3195 (tclStubsPtr->tcl_UniCharToUpper) /* 323 */
3196 #define Tcl_UniCharToUtf \
3197 (tclStubsPtr->tcl_UniCharToUtf) /* 324 */
3198 #define TclUtfAtIndex \
3199 (tclStubsPtr->tclUtfAtIndex) /* 325 */
3200 #define TclUtfCharComplete \
3201 (tclStubsPtr->tclUtfCharComplete) /* 326 */
3202 #define Tcl_UtfBackslash \
3203 (tclStubsPtr->tcl_UtfBackslash) /* 327 */
3204 #define Tcl_UtfFindFirst \
3205 (tclStubsPtr->tcl_UtfFindFirst) /* 328 */
3206 #define Tcl_UtfFindLast \
3207 (tclStubsPtr->tcl_UtfFindLast) /* 329 */
3208 #define TclUtfNext \
3209 (tclStubsPtr->tclUtfNext) /* 330 */
3210 #define TclUtfPrev \
3211 (tclStubsPtr->tclUtfPrev) /* 331 */
3212 #define Tcl_UtfToExternal \
3213 (tclStubsPtr->tcl_UtfToExternal) /* 332 */
3214 #define Tcl_UtfToExternalDString \
3215 (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */
3216 #define Tcl_UtfToLower \
3217 (tclStubsPtr->tcl_UtfToLower) /* 334 */
3218 #define Tcl_UtfToTitle \
3219 (tclStubsPtr->tcl_UtfToTitle) /* 335 */
3220 #define Tcl_UtfToChar16 \
3221 (tclStubsPtr->tcl_UtfToChar16) /* 336 */
3222 #define Tcl_UtfToUpper \
3223 (tclStubsPtr->tcl_UtfToUpper) /* 337 */
3224 #define Tcl_WriteChars \
3225 (tclStubsPtr->tcl_WriteChars) /* 338 */
3226 #define Tcl_WriteObj \
3227 (tclStubsPtr->tcl_WriteObj) /* 339 */
3228 #define Tcl_GetString \
3229 (tclStubsPtr->tcl_GetString) /* 340 */
3230 /* Slot 341 is reserved */
3231 /* Slot 342 is reserved */
3232 #define Tcl_AlertNotifier \
3233 (tclStubsPtr->tcl_AlertNotifier) /* 343 */
3234 #define Tcl_ServiceModeHook \
3235 (tclStubsPtr->tcl_ServiceModeHook) /* 344 */
3236 #define Tcl_UniCharIsAlnum \
3237 (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */
3238 #define Tcl_UniCharIsAlpha \
3239 (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */
3240 #define Tcl_UniCharIsDigit \
3241 (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */
3242 #define Tcl_UniCharIsLower \
3243 (tclStubsPtr->tcl_UniCharIsLower) /* 348 */
3244 #define Tcl_UniCharIsSpace \
3245 (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */
3246 #define Tcl_UniCharIsUpper \
3247 (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */
3248 #define Tcl_UniCharIsWordChar \
3249 (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */
3250 #define Tcl_Char16Len \
3251 (tclStubsPtr->tcl_Char16Len) /* 352 */
3252 /* Slot 353 is reserved */
3253 #define Tcl_Char16ToUtfDString \
3254 (tclStubsPtr->tcl_Char16ToUtfDString) /* 354 */
3255 #define Tcl_UtfToChar16DString \
3256 (tclStubsPtr->tcl_UtfToChar16DString) /* 355 */
3257 #define Tcl_GetRegExpFromObj \
3258 (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */
3259 /* Slot 357 is reserved */
3260 #define Tcl_FreeParse \
3261 (tclStubsPtr->tcl_FreeParse) /* 358 */
3262 #define Tcl_LogCommandInfo \
3263 (tclStubsPtr->tcl_LogCommandInfo) /* 359 */
3264 #define Tcl_ParseBraces \
3265 (tclStubsPtr->tcl_ParseBraces) /* 360 */
3266 #define Tcl_ParseCommand \
3267 (tclStubsPtr->tcl_ParseCommand) /* 361 */
3268 #define Tcl_ParseExpr \
3269 (tclStubsPtr->tcl_ParseExpr) /* 362 */
3270 #define Tcl_ParseQuotedString \
3271 (tclStubsPtr->tcl_ParseQuotedString) /* 363 */
3272 #define Tcl_ParseVarName \
3273 (tclStubsPtr->tcl_ParseVarName) /* 364 */
3274 #define Tcl_GetCwd \
3275 (tclStubsPtr->tcl_GetCwd) /* 365 */
3276 #define Tcl_Chdir \
3277 (tclStubsPtr->tcl_Chdir) /* 366 */
3278 #define Tcl_Access \
3279 (tclStubsPtr->tcl_Access) /* 367 */
3280 #define Tcl_Stat \
3281 (tclStubsPtr->tcl_Stat) /* 368 */
3282 #define TclUtfNcmp \
3283 (tclStubsPtr->tclUtfNcmp) /* 369 */
3284 #define TclUtfNcasecmp \
3285 (tclStubsPtr->tclUtfNcasecmp) /* 370 */
3286 #define Tcl_StringCaseMatch \
3287 (tclStubsPtr->tcl_StringCaseMatch) /* 371 */
3288 #define Tcl_UniCharIsControl \
3289 (tclStubsPtr->tcl_UniCharIsControl) /* 372 */
3290 #define Tcl_UniCharIsGraph \
3291 (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */
3292 #define Tcl_UniCharIsPrint \
3293 (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */
3294 #define Tcl_UniCharIsPunct \
3295 (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */
3296 #define Tcl_RegExpExecObj \
3297 (tclStubsPtr->tcl_RegExpExecObj) /* 376 */
3298 #define Tcl_RegExpGetInfo \
3299 (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */
3300 #define Tcl_NewUnicodeObj \
3301 (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */
3302 #define Tcl_SetUnicodeObj \
3303 (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */
3304 #define TclGetCharLength \
3305 (tclStubsPtr->tclGetCharLength) /* 380 */
3306 #define TclGetUniChar \
3307 (tclStubsPtr->tclGetUniChar) /* 381 */
3308 /* Slot 382 is reserved */
3309 #define TclGetRange \
3310 (tclStubsPtr->tclGetRange) /* 383 */
3311 #define Tcl_AppendUnicodeToObj \
3312 (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */
3313 #define Tcl_RegExpMatchObj \
3314 (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */
3315 #define Tcl_SetNotifier \
3316 (tclStubsPtr->tcl_SetNotifier) /* 386 */
3317 #define Tcl_GetAllocMutex \
3318 (tclStubsPtr->tcl_GetAllocMutex) /* 387 */
3319 #define Tcl_GetChannelNames \
3320 (tclStubsPtr->tcl_GetChannelNames) /* 388 */
3321 #define Tcl_GetChannelNamesEx \
3322 (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */
3323 #define Tcl_ProcObjCmd \
3324 (tclStubsPtr->tcl_ProcObjCmd) /* 390 */
3325 #define Tcl_ConditionFinalize \
3326 (tclStubsPtr->tcl_ConditionFinalize) /* 391 */
3327 #define Tcl_MutexFinalize \
3328 (tclStubsPtr->tcl_MutexFinalize) /* 392 */
3329 #define Tcl_CreateThread \
3330 (tclStubsPtr->tcl_CreateThread) /* 393 */
3331 #define Tcl_ReadRaw \
3332 (tclStubsPtr->tcl_ReadRaw) /* 394 */
3333 #define Tcl_WriteRaw \
3334 (tclStubsPtr->tcl_WriteRaw) /* 395 */
3335 #define Tcl_GetTopChannel \
3336 (tclStubsPtr->tcl_GetTopChannel) /* 396 */
3337 #define Tcl_ChannelBuffered \
3338 (tclStubsPtr->tcl_ChannelBuffered) /* 397 */
3339 #define Tcl_ChannelName \
3340 (tclStubsPtr->tcl_ChannelName) /* 398 */
3341 #define Tcl_ChannelVersion \
3342 (tclStubsPtr->tcl_ChannelVersion) /* 399 */
3343 #define Tcl_ChannelBlockModeProc \
3344 (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */
3345 /* Slot 401 is reserved */
3346 #define Tcl_ChannelClose2Proc \
3347 (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */
3348 #define Tcl_ChannelInputProc \
3349 (tclStubsPtr->tcl_ChannelInputProc) /* 403 */
3350 #define Tcl_ChannelOutputProc \
3351 (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */
3352 /* Slot 405 is reserved */
3353 #define Tcl_ChannelSetOptionProc \
3354 (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */
3355 #define Tcl_ChannelGetOptionProc \
3356 (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */
3357 #define Tcl_ChannelWatchProc \
3358 (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */
3359 #define Tcl_ChannelGetHandleProc \
3360 (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */
3361 #define Tcl_ChannelFlushProc \
3362 (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */
3363 #define Tcl_ChannelHandlerProc \
3364 (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */
3365 #define Tcl_JoinThread \
3366 (tclStubsPtr->tcl_JoinThread) /* 412 */
3367 #define Tcl_IsChannelShared \
3368 (tclStubsPtr->tcl_IsChannelShared) /* 413 */
3369 #define Tcl_IsChannelRegistered \
3370 (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */
3371 #define Tcl_CutChannel \
3372 (tclStubsPtr->tcl_CutChannel) /* 415 */
3373 #define Tcl_SpliceChannel \
3374 (tclStubsPtr->tcl_SpliceChannel) /* 416 */
3375 #define Tcl_ClearChannelHandlers \
3376 (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */
3377 #define Tcl_IsChannelExisting \
3378 (tclStubsPtr->tcl_IsChannelExisting) /* 418 */
3379 /* Slot 419 is reserved */
3380 /* Slot 420 is reserved */
3381 /* Slot 421 is reserved */
3382 #define Tcl_CreateHashEntry \
3383 (tclStubsPtr->tcl_CreateHashEntry) /* 422 */
3384 #define Tcl_InitCustomHashTable \
3385 (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */
3386 #define Tcl_InitObjHashTable \
3387 (tclStubsPtr->tcl_InitObjHashTable) /* 424 */
3388 #define Tcl_CommandTraceInfo \
3389 (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */
3390 #define Tcl_TraceCommand \
3391 (tclStubsPtr->tcl_TraceCommand) /* 426 */
3392 #define Tcl_UntraceCommand \
3393 (tclStubsPtr->tcl_UntraceCommand) /* 427 */
3394 #define Tcl_AttemptAlloc \
3395 (tclStubsPtr->tcl_AttemptAlloc) /* 428 */
3396 #define Tcl_AttemptDbCkalloc \
3397 (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */
3398 #define Tcl_AttemptRealloc \
3399 (tclStubsPtr->tcl_AttemptRealloc) /* 430 */
3400 #define Tcl_AttemptDbCkrealloc \
3401 (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */
3402 #define Tcl_AttemptSetObjLength \
3403 (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */
3404 #define Tcl_GetChannelThread \
3405 (tclStubsPtr->tcl_GetChannelThread) /* 433 */
3406 #define TclGetUnicodeFromObj \
3407 (tclStubsPtr->tclGetUnicodeFromObj) /* 434 */
3408 /* Slot 435 is reserved */
3409 /* Slot 436 is reserved */
3410 #define Tcl_SubstObj \
3411 (tclStubsPtr->tcl_SubstObj) /* 437 */
3412 #define Tcl_DetachChannel \
3413 (tclStubsPtr->tcl_DetachChannel) /* 438 */
3414 #define Tcl_IsStandardChannel \
3415 (tclStubsPtr->tcl_IsStandardChannel) /* 439 */
3416 #define Tcl_FSCopyFile \
3417 (tclStubsPtr->tcl_FSCopyFile) /* 440 */
3418 #define Tcl_FSCopyDirectory \
3419 (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */
3420 #define Tcl_FSCreateDirectory \
3421 (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */
3422 #define Tcl_FSDeleteFile \
3423 (tclStubsPtr->tcl_FSDeleteFile) /* 443 */
3424 #define Tcl_FSLoadFile \
3425 (tclStubsPtr->tcl_FSLoadFile) /* 444 */
3426 #define Tcl_FSMatchInDirectory \
3427 (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */
3428 #define Tcl_FSLink \
3429 (tclStubsPtr->tcl_FSLink) /* 446 */
3430 #define Tcl_FSRemoveDirectory \
3431 (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */
3432 #define Tcl_FSRenameFile \
3433 (tclStubsPtr->tcl_FSRenameFile) /* 448 */
3434 #define Tcl_FSLstat \
3435 (tclStubsPtr->tcl_FSLstat) /* 449 */
3436 #define Tcl_FSUtime \
3437 (tclStubsPtr->tcl_FSUtime) /* 450 */
3438 #define Tcl_FSFileAttrsGet \
3439 (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */
3440 #define Tcl_FSFileAttrsSet \
3441 (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */
3442 #define Tcl_FSFileAttrStrings \
3443 (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */
3444 #define Tcl_FSStat \
3445 (tclStubsPtr->tcl_FSStat) /* 454 */
3446 #define Tcl_FSAccess \
3447 (tclStubsPtr->tcl_FSAccess) /* 455 */
3448 #define Tcl_FSOpenFileChannel \
3449 (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */
3450 #define Tcl_FSGetCwd \
3451 (tclStubsPtr->tcl_FSGetCwd) /* 457 */
3452 #define Tcl_FSChdir \
3453 (tclStubsPtr->tcl_FSChdir) /* 458 */
3454 #define Tcl_FSConvertToPathType \
3455 (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */
3456 #define Tcl_FSJoinPath \
3457 (tclStubsPtr->tcl_FSJoinPath) /* 460 */
3458 #define TclFSSplitPath \
3459 (tclStubsPtr->tclFSSplitPath) /* 461 */
3460 #define Tcl_FSEqualPaths \
3461 (tclStubsPtr->tcl_FSEqualPaths) /* 462 */
3462 #define Tcl_FSGetNormalizedPath \
3463 (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */
3464 #define Tcl_FSJoinToPath \
3465 (tclStubsPtr->tcl_FSJoinToPath) /* 464 */
3466 #define Tcl_FSGetInternalRep \
3467 (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */
3468 #define Tcl_FSGetTranslatedPath \
3469 (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */
3470 #define Tcl_FSEvalFile \
3471 (tclStubsPtr->tcl_FSEvalFile) /* 467 */
3472 #define Tcl_FSNewNativePath \
3473 (tclStubsPtr->tcl_FSNewNativePath) /* 468 */
3474 #define Tcl_FSGetNativePath \
3475 (tclStubsPtr->tcl_FSGetNativePath) /* 469 */
3476 #define Tcl_FSFileSystemInfo \
3477 (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */
3478 #define Tcl_FSPathSeparator \
3479 (tclStubsPtr->tcl_FSPathSeparator) /* 471 */
3480 #define Tcl_FSListVolumes \
3481 (tclStubsPtr->tcl_FSListVolumes) /* 472 */
3482 #define Tcl_FSRegister \
3483 (tclStubsPtr->tcl_FSRegister) /* 473 */
3484 #define Tcl_FSUnregister \
3485 (tclStubsPtr->tcl_FSUnregister) /* 474 */
3486 #define Tcl_FSData \
3487 (tclStubsPtr->tcl_FSData) /* 475 */
3488 #define Tcl_FSGetTranslatedStringPath \
3489 (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */
3490 #define Tcl_FSGetFileSystemForPath \
3491 (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */
3492 #define Tcl_FSGetPathType \
3493 (tclStubsPtr->tcl_FSGetPathType) /* 478 */
3494 #define Tcl_OutputBuffered \
3495 (tclStubsPtr->tcl_OutputBuffered) /* 479 */
3496 #define Tcl_FSMountsChanged \
3497 (tclStubsPtr->tcl_FSMountsChanged) /* 480 */
3498 #define Tcl_EvalTokensStandard \
3499 (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */
3500 #define Tcl_GetTime \
3501 (tclStubsPtr->tcl_GetTime) /* 482 */
3502 #define Tcl_CreateObjTrace \
3503 (tclStubsPtr->tcl_CreateObjTrace) /* 483 */
3504 #define Tcl_GetCommandInfoFromToken \
3505 (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */
3506 #define Tcl_SetCommandInfoFromToken \
3507 (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */
3508 #define Tcl_DbNewWideIntObj \
3509 (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */
3510 #define Tcl_GetWideIntFromObj \
3511 (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */
3512 #define Tcl_NewWideIntObj \
3513 (tclStubsPtr->tcl_NewWideIntObj) /* 488 */
3514 #define Tcl_SetWideIntObj \
3515 (tclStubsPtr->tcl_SetWideIntObj) /* 489 */
3516 #define Tcl_AllocStatBuf \
3517 (tclStubsPtr->tcl_AllocStatBuf) /* 490 */
3518 #define Tcl_Seek \
3519 (tclStubsPtr->tcl_Seek) /* 491 */
3520 #define Tcl_Tell \
3521 (tclStubsPtr->tcl_Tell) /* 492 */
3522 #define Tcl_ChannelWideSeekProc \
3523 (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */
3524 #define Tcl_DictObjPut \
3525 (tclStubsPtr->tcl_DictObjPut) /* 494 */
3526 #define Tcl_DictObjGet \
3527 (tclStubsPtr->tcl_DictObjGet) /* 495 */
3528 #define Tcl_DictObjRemove \
3529 (tclStubsPtr->tcl_DictObjRemove) /* 496 */
3530 #define TclDictObjSize \
3531 (tclStubsPtr->tclDictObjSize) /* 497 */
3532 #define Tcl_DictObjFirst \
3533 (tclStubsPtr->tcl_DictObjFirst) /* 498 */
3534 #define Tcl_DictObjNext \
3535 (tclStubsPtr->tcl_DictObjNext) /* 499 */
3536 #define Tcl_DictObjDone \
3537 (tclStubsPtr->tcl_DictObjDone) /* 500 */
3538 #define Tcl_DictObjPutKeyList \
3539 (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */
3540 #define Tcl_DictObjRemoveKeyList \
3541 (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */
3542 #define Tcl_NewDictObj \
3543 (tclStubsPtr->tcl_NewDictObj) /* 503 */
3544 #define Tcl_DbNewDictObj \
3545 (tclStubsPtr->tcl_DbNewDictObj) /* 504 */
3546 #define Tcl_RegisterConfig \
3547 (tclStubsPtr->tcl_RegisterConfig) /* 505 */
3548 #define Tcl_CreateNamespace \
3549 (tclStubsPtr->tcl_CreateNamespace) /* 506 */
3550 #define Tcl_DeleteNamespace \
3551 (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
3552 #define Tcl_AppendExportList \
3553 (tclStubsPtr->tcl_AppendExportList) /* 508 */
3554 #define Tcl_Export \
3555 (tclStubsPtr->tcl_Export) /* 509 */
3556 #define Tcl_Import \
3557 (tclStubsPtr->tcl_Import) /* 510 */
3558 #define Tcl_ForgetImport \
3559 (tclStubsPtr->tcl_ForgetImport) /* 511 */
3560 #define Tcl_GetCurrentNamespace \
3561 (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
3562 #define Tcl_GetGlobalNamespace \
3563 (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
3564 #define Tcl_FindNamespace \
3565 (tclStubsPtr->tcl_FindNamespace) /* 514 */
3566 #define Tcl_FindCommand \
3567 (tclStubsPtr->tcl_FindCommand) /* 515 */
3568 #define Tcl_GetCommandFromObj \
3569 (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
3570 #define Tcl_GetCommandFullName \
3571 (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
3572 #define Tcl_FSEvalFileEx \
3573 (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */
3574 /* Slot 519 is reserved */
3575 #define Tcl_LimitAddHandler \
3576 (tclStubsPtr->tcl_LimitAddHandler) /* 520 */
3577 #define Tcl_LimitRemoveHandler \
3578 (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */
3579 #define Tcl_LimitReady \
3580 (tclStubsPtr->tcl_LimitReady) /* 522 */
3581 #define Tcl_LimitCheck \
3582 (tclStubsPtr->tcl_LimitCheck) /* 523 */
3583 #define Tcl_LimitExceeded \
3584 (tclStubsPtr->tcl_LimitExceeded) /* 524 */
3585 #define Tcl_LimitSetCommands \
3586 (tclStubsPtr->tcl_LimitSetCommands) /* 525 */
3587 #define Tcl_LimitSetTime \
3588 (tclStubsPtr->tcl_LimitSetTime) /* 526 */
3589 #define Tcl_LimitSetGranularity \
3590 (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */
3591 #define Tcl_LimitTypeEnabled \
3592 (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */
3593 #define Tcl_LimitTypeExceeded \
3594 (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */
3595 #define Tcl_LimitTypeSet \
3596 (tclStubsPtr->tcl_LimitTypeSet) /* 530 */
3597 #define Tcl_LimitTypeReset \
3598 (tclStubsPtr->tcl_LimitTypeReset) /* 531 */
3599 #define Tcl_LimitGetCommands \
3600 (tclStubsPtr->tcl_LimitGetCommands) /* 532 */
3601 #define Tcl_LimitGetTime \
3602 (tclStubsPtr->tcl_LimitGetTime) /* 533 */
3603 #define Tcl_LimitGetGranularity \
3604 (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */
3605 #define Tcl_SaveInterpState \
3606 (tclStubsPtr->tcl_SaveInterpState) /* 535 */
3607 #define Tcl_RestoreInterpState \
3608 (tclStubsPtr->tcl_RestoreInterpState) /* 536 */
3609 #define Tcl_DiscardInterpState \
3610 (tclStubsPtr->tcl_DiscardInterpState) /* 537 */
3611 #define Tcl_SetReturnOptions \
3612 (tclStubsPtr->tcl_SetReturnOptions) /* 538 */
3613 #define Tcl_GetReturnOptions \
3614 (tclStubsPtr->tcl_GetReturnOptions) /* 539 */
3615 #define Tcl_IsEnsemble \
3616 (tclStubsPtr->tcl_IsEnsemble) /* 540 */
3617 #define Tcl_CreateEnsemble \
3618 (tclStubsPtr->tcl_CreateEnsemble) /* 541 */
3619 #define Tcl_FindEnsemble \
3620 (tclStubsPtr->tcl_FindEnsemble) /* 542 */
3621 #define Tcl_SetEnsembleSubcommandList \
3622 (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */
3623 #define Tcl_SetEnsembleMappingDict \
3624 (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */
3625 #define Tcl_SetEnsembleUnknownHandler \
3626 (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */
3627 #define Tcl_SetEnsembleFlags \
3628 (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */
3629 #define Tcl_GetEnsembleSubcommandList \
3630 (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */
3631 #define Tcl_GetEnsembleMappingDict \
3632 (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */
3633 #define Tcl_GetEnsembleUnknownHandler \
3634 (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */
3635 #define Tcl_GetEnsembleFlags \
3636 (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */
3637 #define Tcl_GetEnsembleNamespace \
3638 (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */
3639 #define Tcl_SetTimeProc \
3640 (tclStubsPtr->tcl_SetTimeProc) /* 552 */
3641 #define Tcl_QueryTimeProc \
3642 (tclStubsPtr->tcl_QueryTimeProc) /* 553 */
3643 #define Tcl_ChannelThreadActionProc \
3644 (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */
3645 #define Tcl_NewBignumObj \
3646 (tclStubsPtr->tcl_NewBignumObj) /* 555 */
3647 #define Tcl_DbNewBignumObj \
3648 (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */
3649 #define Tcl_SetBignumObj \
3650 (tclStubsPtr->tcl_SetBignumObj) /* 557 */
3651 #define Tcl_GetBignumFromObj \
3652 (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */
3653 #define Tcl_TakeBignumFromObj \
3654 (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */
3655 #define Tcl_TruncateChannel \
3656 (tclStubsPtr->tcl_TruncateChannel) /* 560 */
3657 #define Tcl_ChannelTruncateProc \
3658 (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */
3659 #define Tcl_SetChannelErrorInterp \
3660 (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */
3661 #define Tcl_GetChannelErrorInterp \
3662 (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */
3663 #define Tcl_SetChannelError \
3664 (tclStubsPtr->tcl_SetChannelError) /* 564 */
3665 #define Tcl_GetChannelError \
3666 (tclStubsPtr->tcl_GetChannelError) /* 565 */
3667 #define Tcl_InitBignumFromDouble \
3668 (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */
3669 #define Tcl_GetNamespaceUnknownHandler \
3670 (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */
3671 #define Tcl_SetNamespaceUnknownHandler \
3672 (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */
3673 #define Tcl_GetEncodingFromObj \
3674 (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */
3675 #define Tcl_GetEncodingSearchPath \
3676 (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */
3677 #define Tcl_SetEncodingSearchPath \
3678 (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */
3679 #define Tcl_GetEncodingNameFromEnvironment \
3680 (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */
3681 #define Tcl_PkgRequireProc \
3682 (tclStubsPtr->tcl_PkgRequireProc) /* 573 */
3683 #define Tcl_AppendObjToErrorInfo \
3684 (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */
3685 #define Tcl_AppendLimitedToObj \
3686 (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */
3687 #define Tcl_Format \
3688 (tclStubsPtr->tcl_Format) /* 576 */
3689 #define Tcl_AppendFormatToObj \
3690 (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */
3691 #define Tcl_ObjPrintf \
3692 (tclStubsPtr->tcl_ObjPrintf) /* 578 */
3693 #define Tcl_AppendPrintfToObj \
3694 (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
3695 #define Tcl_CancelEval \
3696 (tclStubsPtr->tcl_CancelEval) /* 580 */
3697 #define Tcl_Canceled \
3698 (tclStubsPtr->tcl_Canceled) /* 581 */
3699 #define Tcl_CreatePipe \
3700 (tclStubsPtr->tcl_CreatePipe) /* 582 */
3701 #define Tcl_NRCreateCommand \
3702 (tclStubsPtr->tcl_NRCreateCommand) /* 583 */
3703 #define Tcl_NREvalObj \
3704 (tclStubsPtr->tcl_NREvalObj) /* 584 */
3705 #define Tcl_NREvalObjv \
3706 (tclStubsPtr->tcl_NREvalObjv) /* 585 */
3707 #define Tcl_NRCmdSwap \
3708 (tclStubsPtr->tcl_NRCmdSwap) /* 586 */
3709 #define Tcl_NRAddCallback \
3710 (tclStubsPtr->tcl_NRAddCallback) /* 587 */
3711 #define Tcl_NRCallObjProc \
3712 (tclStubsPtr->tcl_NRCallObjProc) /* 588 */
3713 #define Tcl_GetFSDeviceFromStat \
3714 (tclStubsPtr->tcl_GetFSDeviceFromStat) /* 589 */
3715 #define Tcl_GetFSInodeFromStat \
3716 (tclStubsPtr->tcl_GetFSInodeFromStat) /* 590 */
3717 #define Tcl_GetModeFromStat \
3718 (tclStubsPtr->tcl_GetModeFromStat) /* 591 */
3719 #define Tcl_GetLinkCountFromStat \
3720 (tclStubsPtr->tcl_GetLinkCountFromStat) /* 592 */
3721 #define Tcl_GetUserIdFromStat \
3722 (tclStubsPtr->tcl_GetUserIdFromStat) /* 593 */
3723 #define Tcl_GetGroupIdFromStat \
3724 (tclStubsPtr->tcl_GetGroupIdFromStat) /* 594 */
3725 #define Tcl_GetDeviceTypeFromStat \
3726 (tclStubsPtr->tcl_GetDeviceTypeFromStat) /* 595 */
3727 #define Tcl_GetAccessTimeFromStat \
3728 (tclStubsPtr->tcl_GetAccessTimeFromStat) /* 596 */
3729 #define Tcl_GetModificationTimeFromStat \
3730 (tclStubsPtr->tcl_GetModificationTimeFromStat) /* 597 */
3731 #define Tcl_GetChangeTimeFromStat \
3732 (tclStubsPtr->tcl_GetChangeTimeFromStat) /* 598 */
3733 #define Tcl_GetSizeFromStat \
3734 (tclStubsPtr->tcl_GetSizeFromStat) /* 599 */
3735 #define Tcl_GetBlocksFromStat \
3736 (tclStubsPtr->tcl_GetBlocksFromStat) /* 600 */
3737 #define Tcl_GetBlockSizeFromStat \
3738 (tclStubsPtr->tcl_GetBlockSizeFromStat) /* 601 */
3739 #define Tcl_SetEnsembleParameterList \
3740 (tclStubsPtr->tcl_SetEnsembleParameterList) /* 602 */
3741 #define Tcl_GetEnsembleParameterList \
3742 (tclStubsPtr->tcl_GetEnsembleParameterList) /* 603 */
3743 #define TclParseArgsObjv \
3744 (tclStubsPtr->tclParseArgsObjv) /* 604 */
3745 #define Tcl_GetErrorLine \
3746 (tclStubsPtr->tcl_GetErrorLine) /* 605 */
3747 #define Tcl_SetErrorLine \
3748 (tclStubsPtr->tcl_SetErrorLine) /* 606 */
3749 #define Tcl_TransferResult \
3750 (tclStubsPtr->tcl_TransferResult) /* 607 */
3751 #define Tcl_InterpActive \
3752 (tclStubsPtr->tcl_InterpActive) /* 608 */
3753 #define Tcl_BackgroundException \
3754 (tclStubsPtr->tcl_BackgroundException) /* 609 */
3755 #define Tcl_ZlibDeflate \
3756 (tclStubsPtr->tcl_ZlibDeflate) /* 610 */
3757 #define Tcl_ZlibInflate \
3758 (tclStubsPtr->tcl_ZlibInflate) /* 611 */
3759 #define Tcl_ZlibCRC32 \
3760 (tclStubsPtr->tcl_ZlibCRC32) /* 612 */
3761 #define Tcl_ZlibAdler32 \
3762 (tclStubsPtr->tcl_ZlibAdler32) /* 613 */
3763 #define Tcl_ZlibStreamInit \
3764 (tclStubsPtr->tcl_ZlibStreamInit) /* 614 */
3765 #define Tcl_ZlibStreamGetCommandName \
3766 (tclStubsPtr->tcl_ZlibStreamGetCommandName) /* 615 */
3767 #define Tcl_ZlibStreamEof \
3768 (tclStubsPtr->tcl_ZlibStreamEof) /* 616 */
3769 #define Tcl_ZlibStreamChecksum \
3770 (tclStubsPtr->tcl_ZlibStreamChecksum) /* 617 */
3771 #define Tcl_ZlibStreamPut \
3772 (tclStubsPtr->tcl_ZlibStreamPut) /* 618 */
3773 #define Tcl_ZlibStreamGet \
3774 (tclStubsPtr->tcl_ZlibStreamGet) /* 619 */
3775 #define Tcl_ZlibStreamClose \
3776 (tclStubsPtr->tcl_ZlibStreamClose) /* 620 */
3777 #define Tcl_ZlibStreamReset \
3778 (tclStubsPtr->tcl_ZlibStreamReset) /* 621 */
3779 #define Tcl_SetStartupScript \
3780 (tclStubsPtr->tcl_SetStartupScript) /* 622 */
3781 #define Tcl_GetStartupScript \
3782 (tclStubsPtr->tcl_GetStartupScript) /* 623 */
3783 #define Tcl_CloseEx \
3784 (tclStubsPtr->tcl_CloseEx) /* 624 */
3785 #define Tcl_NRExprObj \
3786 (tclStubsPtr->tcl_NRExprObj) /* 625 */
3787 #define Tcl_NRSubstObj \
3788 (tclStubsPtr->tcl_NRSubstObj) /* 626 */
3789 #define Tcl_LoadFile \
3790 (tclStubsPtr->tcl_LoadFile) /* 627 */
3791 #define Tcl_FindSymbol \
3792 (tclStubsPtr->tcl_FindSymbol) /* 628 */
3793 #define Tcl_FSUnloadFile \
3794 (tclStubsPtr->tcl_FSUnloadFile) /* 629 */
3795 #define Tcl_ZlibStreamSetCompressionDictionary \
3796 (tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) /* 630 */
3797 #define Tcl_OpenTcpServerEx \
3798 (tclStubsPtr->tcl_OpenTcpServerEx) /* 631 */
3799 #define TclZipfs_Mount \
3800 (tclStubsPtr->tclZipfs_Mount) /* 632 */
3801 #define TclZipfs_Unmount \
3802 (tclStubsPtr->tclZipfs_Unmount) /* 633 */
3803 #define TclZipfs_TclLibrary \
3804 (tclStubsPtr->tclZipfs_TclLibrary) /* 634 */
3805 #define TclZipfs_MountBuffer \
3806 (tclStubsPtr->tclZipfs_MountBuffer) /* 635 */
3807 #define Tcl_FreeInternalRep \
3808 (tclStubsPtr->tcl_FreeInternalRep) /* 636 */
3809 #define Tcl_InitStringRep \
3810 (tclStubsPtr->tcl_InitStringRep) /* 637 */
3811 #define Tcl_FetchInternalRep \
3812 (tclStubsPtr->tcl_FetchInternalRep) /* 638 */
3813 #define Tcl_StoreInternalRep \
3814 (tclStubsPtr->tcl_StoreInternalRep) /* 639 */
3815 #define Tcl_HasStringRep \
3816 (tclStubsPtr->tcl_HasStringRep) /* 640 */
3817 #define Tcl_IncrRefCount \
3818 (tclStubsPtr->tcl_IncrRefCount) /* 641 */
3819 #define Tcl_DecrRefCount \
3820 (tclStubsPtr->tcl_DecrRefCount) /* 642 */
3821 #define Tcl_IsShared \
3822 (tclStubsPtr->tcl_IsShared) /* 643 */
3823 #define Tcl_LinkArray \
3824 (tclStubsPtr->tcl_LinkArray) /* 644 */
3825 #define Tcl_GetIntForIndex \
3826 (tclStubsPtr->tcl_GetIntForIndex) /* 645 */
3827 #define Tcl_UtfToUniChar \
3828 (tclStubsPtr->tcl_UtfToUniChar) /* 646 */
3829 #define Tcl_UniCharToUtfDString \
3830 (tclStubsPtr->tcl_UniCharToUtfDString) /* 647 */
3831 #define Tcl_UtfToUniCharDString \
3832 (tclStubsPtr->tcl_UtfToUniCharDString) /* 648 */
3833 #define TclGetBytesFromObj \
3834 (tclStubsPtr->tclGetBytesFromObj) /* 649 */
3835 #define Tcl_GetBytesFromObj \
3836 (tclStubsPtr->tcl_GetBytesFromObj) /* 650 */
3837 #define Tcl_GetStringFromObj \
3838 (tclStubsPtr->tcl_GetStringFromObj) /* 651 */
3839 #define Tcl_GetUnicodeFromObj \
3840 (tclStubsPtr->tcl_GetUnicodeFromObj) /* 652 */
3841 #define Tcl_GetSizeIntFromObj \
3842 (tclStubsPtr->tcl_GetSizeIntFromObj) /* 653 */
3843 #define Tcl_UtfCharComplete \
3844 (tclStubsPtr->tcl_UtfCharComplete) /* 654 */
3845 #define Tcl_UtfNext \
3846 (tclStubsPtr->tcl_UtfNext) /* 655 */
3847 #define Tcl_UtfPrev \
3848 (tclStubsPtr->tcl_UtfPrev) /* 656 */
3849 #define Tcl_FSTildeExpand \
3850 (tclStubsPtr->tcl_FSTildeExpand) /* 657 */
3851 #define Tcl_ExternalToUtfDStringEx \
3852 (tclStubsPtr->tcl_ExternalToUtfDStringEx) /* 658 */
3853 #define Tcl_UtfToExternalDStringEx \
3854 (tclStubsPtr->tcl_UtfToExternalDStringEx) /* 659 */
3855 #define Tcl_AsyncMarkFromSignal \
3856 (tclStubsPtr->tcl_AsyncMarkFromSignal) /* 660 */
3857 #define Tcl_ListObjGetElements \
3858 (tclStubsPtr->tcl_ListObjGetElements) /* 661 */
3859 #define Tcl_ListObjLength \
3860 (tclStubsPtr->tcl_ListObjLength) /* 662 */
3861 #define Tcl_DictObjSize \
3862 (tclStubsPtr->tcl_DictObjSize) /* 663 */
3863 #define Tcl_SplitList \
3864 (tclStubsPtr->tcl_SplitList) /* 664 */
3865 #define Tcl_SplitPath \
3866 (tclStubsPtr->tcl_SplitPath) /* 665 */
3867 #define Tcl_FSSplitPath \
3868 (tclStubsPtr->tcl_FSSplitPath) /* 666 */
3869 #define Tcl_ParseArgsObjv \
3870 (tclStubsPtr->tcl_ParseArgsObjv) /* 667 */
3871 #define Tcl_UniCharLen \
3872 (tclStubsPtr->tcl_UniCharLen) /* 668 */
3873 #define Tcl_NumUtfChars \
3874 (tclStubsPtr->tcl_NumUtfChars) /* 669 */
3875 #define Tcl_GetCharLength \
3876 (tclStubsPtr->tcl_GetCharLength) /* 670 */
3877 #define Tcl_UtfAtIndex \
3878 (tclStubsPtr->tcl_UtfAtIndex) /* 671 */
3879 #define Tcl_GetRange \
3880 (tclStubsPtr->tcl_GetRange) /* 672 */
3881 #define Tcl_GetUniChar \
3882 (tclStubsPtr->tcl_GetUniChar) /* 673 */
3883 #define Tcl_GetBool \
3884 (tclStubsPtr->tcl_GetBool) /* 674 */
3885 #define Tcl_GetBoolFromObj \
3886 (tclStubsPtr->tcl_GetBoolFromObj) /* 675 */
3887 #define Tcl_CreateObjCommand2 \
3888 (tclStubsPtr->tcl_CreateObjCommand2) /* 676 */
3889 #define Tcl_CreateObjTrace2 \
3890 (tclStubsPtr->tcl_CreateObjTrace2) /* 677 */
3891 #define Tcl_NRCreateCommand2 \
3892 (tclStubsPtr->tcl_NRCreateCommand2) /* 678 */
3893 #define Tcl_NRCallObjProc2 \
3894 (tclStubsPtr->tcl_NRCallObjProc2) /* 679 */
3895 #define Tcl_GetNumberFromObj \
3896 (tclStubsPtr->tcl_GetNumberFromObj) /* 680 */
3897 #define Tcl_GetNumber \
3898 (tclStubsPtr->tcl_GetNumber) /* 681 */
3899 #define Tcl_RemoveChannelMode \
3900 (tclStubsPtr->tcl_RemoveChannelMode) /* 682 */
3901 #define Tcl_GetEncodingNulLength \
3902 (tclStubsPtr->tcl_GetEncodingNulLength) /* 683 */
3903 #define Tcl_GetWideUIntFromObj \
3904 (tclStubsPtr->tcl_GetWideUIntFromObj) /* 684 */
3905 #define Tcl_DStringToObj \
3906 (tclStubsPtr->tcl_DStringToObj) /* 685 */
3907 #define Tcl_UtfNcmp \
3908 (tclStubsPtr->tcl_UtfNcmp) /* 686 */
3909 #define Tcl_UtfNcasecmp \
3910 (tclStubsPtr->tcl_UtfNcasecmp) /* 687 */
3911 #define Tcl_NewWideUIntObj \
3912 (tclStubsPtr->tcl_NewWideUIntObj) /* 688 */
3913 #define Tcl_SetWideUIntObj \
3914 (tclStubsPtr->tcl_SetWideUIntObj) /* 689 */
3915 #define TclUnusedStubEntry \
3916 (tclStubsPtr->tclUnusedStubEntry) /* 690 */
3917
3918 #endif /* defined(USE_TCL_STUBS) */
3919
3920 /* !END!: Do not edit above this line. */
3921
3922 #undef TclUnusedStubEntry
3923
3924 #ifdef _WIN32
3925 # undef Tcl_CreateFileHandler
3926 # undef Tcl_DeleteFileHandler
3927 # undef Tcl_GetOpenFile
3928 #endif
3929
3930 #undef TCL_STORAGE_CLASS
3931 #define TCL_STORAGE_CLASS DLLIMPORT
3932
3933 #define Tcl_PkgPresent(interp, name, version, exact) \
3934 Tcl_PkgPresentEx(interp, name, version, exact, NULL)
3935 #define Tcl_PkgProvide(interp, name, version) \
3936 Tcl_PkgProvideEx(interp, name, version, NULL)
3937 #define Tcl_PkgRequire(interp, name, version, exact) \
3938 Tcl_PkgRequireEx(interp, name, version, exact, NULL)
3939 #define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \
3940 Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \
3941 sizeof(char *), msg, flags, indexPtr)
3942 #define Tcl_NewBooleanObj(intValue) \
3943 Tcl_NewWideIntObj((intValue)!=0)
3944 #define Tcl_DbNewBooleanObj(intValue, file, line) \
3945 Tcl_DbNewWideIntObj((intValue)!=0, file, line)
3946 #define Tcl_SetBooleanObj(objPtr, intValue) \
3947 Tcl_SetWideIntObj(objPtr, (intValue)!=0)
3948 #define Tcl_SetVar(interp, varName, newValue, flags) \
3949 Tcl_SetVar2(interp, varName, NULL, newValue, flags)
3950 #define Tcl_UnsetVar(interp, varName, flags) \
3951 Tcl_UnsetVar2(interp, varName, NULL, flags)
3952 #define Tcl_GetVar(interp, varName, flags) \
3953 Tcl_GetVar2(interp, varName, NULL, flags)
3954 #define Tcl_TraceVar(interp, varName, flags, proc, clientData) \
3955 Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData)
3956 #define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \
3957 Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData)
3958 #define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \
3959 Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData)
3960 #define Tcl_UpVar(interp, frameName, varName, localName, flags) \
3961 Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags)
3962 #define Tcl_AddErrorInfo(interp, message) \
3963 Tcl_AppendObjToErrorInfo(interp, Tcl_NewStringObj(message, -1))
3964 #define Tcl_AddObjErrorInfo(interp, message, length) \
3965 Tcl_AppendObjToErrorInfo(interp, Tcl_NewStringObj(message, length))
3966 #define Tcl_Eval(interp, objPtr) \
3967 Tcl_EvalEx(interp, objPtr, TCL_INDEX_NONE, 0)
3968 #define Tcl_GlobalEval(interp, objPtr) \
3969 Tcl_EvalEx(interp, objPtr, TCL_INDEX_NONE, TCL_EVAL_GLOBAL)
3970 #define Tcl_GetStringResult(interp) Tcl_GetString(Tcl_GetObjResult(interp))
3971 #define Tcl_SetResult(interp, result, freeProc) \
3972 do { \
3973 const char *__result = result; \
3974 Tcl_FreeProc *__freeProc = freeProc; \
3975 Tcl_SetObjResult(interp, Tcl_NewStringObj(__result, -1)); \
3976 if (__result != NULL && __freeProc != NULL && __freeProc != TCL_VOLATILE) { \
3977 if (__freeProc == TCL_DYNAMIC) { \
3978 Tcl_Free((void *)__result); \
3979 } else { \
3980 (*__freeProc)((void *)__result); \
3981 } \
3982 } \
3983 } while(0)
3984
3985 #if defined(USE_TCL_STUBS)
3986 # if defined(_WIN32) && defined(_WIN64) && TCL_MAJOR_VERSION < 9
3987 # undef Tcl_GetTime
3988 /* Handle Win64 tk.dll being loaded in Cygwin64 (only needed for Tcl 8). */
3989 # define Tcl_GetTime(t) \
3990 do { \
3991 struct { \
3992 Tcl_Time now; \
3993 long long reserved; \
3994 } _t; \
3995 _t.reserved = -1; \
3996 tclStubsPtr->tcl_GetTime((&_t.now)); \
3997 if (_t.reserved != -1) { \
3998 _t.now.usec = (long) _t.reserved; \
3999 } \
4000 *(t) = _t.now; \
4001 } while (0)
4002 # endif
4003 # if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG)
4004 /* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore
4005 * we have to make sure that all stub entries on Cygwin64 follow the
4006 * Win64 signature. Cygwin64 stubbed extensions cannot use those stub
4007 * entries any more, they should use the 64-bit alternatives where
4008 * possible. Tcl 9 must find a better solution, but that cannot be done
4009 * without introducing a binary incompatibility.
4010 */
4011 # undef Tcl_GetLongFromObj
4012 # undef Tcl_ExprLong
4013 # undef Tcl_ExprLongObj
4014 # define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj)
4015 # define Tcl_ExprLong TclExprLong
4016 static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){
4017 int intValue;
4018 int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue);
4019 if (result == TCL_OK) *ptr = (long)intValue;
4020 return result;
4021 }
4022 # define Tcl_ExprLongObj TclExprLongObj
4023 static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){
4024 int intValue;
4025 int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue);
4026 if (result == TCL_OK) *ptr = (long)intValue;
4027 return result;
4028 }
4029 # endif
4030 #endif
4031
4032 #undef Tcl_GetString
4033 #undef Tcl_GetUnicode
4034 #undef Tcl_CreateHashEntry
4035 #define Tcl_GetString(objPtr) \
4036 Tcl_GetStringFromObj(objPtr, (Tcl_Size *)NULL)
4037 #define Tcl_GetUnicode(objPtr) \
4038 Tcl_GetUnicodeFromObj(objPtr, (Tcl_Size *)NULL)
4039 #undef Tcl_GetIndexFromObjStruct
4040 #undef Tcl_GetBooleanFromObj
4041 #undef Tcl_GetBoolean
4042 #if !defined(TCLBOOLWARNING)
4043 #if !defined(__cplusplus) && !defined(BUILD_tcl) && !defined(BUILD_tk) && defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 201112L)
4044 # define TCLBOOLWARNING(boolPtr) (void)(sizeof(struct {_Static_assert(sizeof(*(boolPtr)) <= sizeof(int), "sizeof(boolPtr) too large");int dummy;})),
4045 #elif defined(__GNUC__) && !defined(__STRICT_ANSI__)
4046 /* If this gives: "error: size of array ‘_bool_Var’ is negative", it means that sizeof(*boolPtr)>sizeof(int), which is not allowed */
4047 # define TCLBOOLWARNING(boolPtr) ({__attribute__((unused)) char _bool_Var[sizeof(*(boolPtr)) <= sizeof(int) ? 1 : -1];}),
4048 #else
4049 # define TCLBOOLWARNING(boolPtr)
4050 #endif
4051 #endif /* !TCLBOOLWARNING */
4052 #if defined(USE_TCL_STUBS)
4053 #define Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) \
4054 (tclStubsPtr->tcl_GetIndexFromObjStruct((interp), (objPtr), (tablePtr), (offset), (msg), \
4055 (flags)|(int)(sizeof(*(indexPtr))<<1), (indexPtr)))
4056 #define Tcl_GetBooleanFromObj(interp, objPtr, boolPtr) \
4057 ((sizeof(*(boolPtr)) == sizeof(int) && (TCL_MAJOR_VERSION == 8)) ? tclStubsPtr->tcl_GetBooleanFromObj(interp, objPtr, (int *)(boolPtr)) : \
4058 ((sizeof(*(boolPtr)) <= sizeof(int)) ? Tcl_GetBoolFromObj(interp, objPtr, (TCL_NULL_OK-2)&(int)sizeof((*(boolPtr))), (char *)(boolPtr)) : \
4059 (TCLBOOLWARNING(boolPtr)Tcl_Panic("sizeof(%s) must be <= sizeof(int)", & #boolPtr [1]),TCL_ERROR)))
4060 #define Tcl_GetBoolean(interp, src, boolPtr) \
4061 ((sizeof(*(boolPtr)) == sizeof(int) && (TCL_MAJOR_VERSION == 8)) ? tclStubsPtr->tcl_GetBoolean(interp, src, (int *)(boolPtr)) : \
4062 ((sizeof(*(boolPtr)) <= sizeof(int)) ? Tcl_GetBool(interp, src, (TCL_NULL_OK-2)&(int)sizeof((*(boolPtr))), (char *)(boolPtr)) : \
4063 (TCLBOOLWARNING(boolPtr)Tcl_Panic("sizeof(%s) must be <= sizeof(int)", & #boolPtr [1]),TCL_ERROR)))
4064 #else
4065 #define Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) \
4066 ((Tcl_GetIndexFromObjStruct)((interp), (objPtr), (tablePtr), (offset), (msg), \
4067 (flags)|(int)(sizeof(*(indexPtr))<<1), (indexPtr)))
4068 #define Tcl_GetBooleanFromObj(interp, objPtr, boolPtr) \
4069 ((sizeof(*(boolPtr)) == sizeof(int) && (TCL_MAJOR_VERSION == 8)) ? Tcl_GetBooleanFromObj(interp, objPtr, (int *)(boolPtr)) : \
4070 ((sizeof(*(boolPtr)) <= sizeof(int)) ? Tcl_GetBoolFromObj(interp, objPtr, (TCL_NULL_OK-2)&(int)sizeof((*(boolPtr))), (char *)(boolPtr)) : \
4071 (TCLBOOLWARNING(boolPtr)Tcl_Panic("sizeof(%s) must be <= sizeof(int)", & #boolPtr [1]),TCL_ERROR)))
4072 #define Tcl_GetBoolean(interp, src, boolPtr) \
4073 ((sizeof(*(boolPtr)) == sizeof(int) && (TCL_MAJOR_VERSION == 8)) ? Tcl_GetBoolean(interp, src, (int *)(boolPtr)) : \
4074 ((sizeof(*(boolPtr)) <= sizeof(int)) ? Tcl_GetBool(interp, src, (TCL_NULL_OK-2)&(int)sizeof((*(boolPtr))), (char *)(boolPtr)) : \
4075 (TCLBOOLWARNING(boolPtr)Tcl_Panic("sizeof(%s) must be <= sizeof(int)", & #boolPtr [1]),TCL_ERROR)))
4076 #endif
4077
4078 #ifdef TCL_MEM_DEBUG
4079 # undef Tcl_Alloc
4080 # define Tcl_Alloc(x) \
4081 (Tcl_DbCkalloc((x), __FILE__, __LINE__))
4082 # undef Tcl_Free
4083 # define Tcl_Free(x) \
4084 Tcl_DbCkfree((x), __FILE__, __LINE__)
4085 # undef Tcl_Realloc
4086 # define Tcl_Realloc(x,y) \
4087 (Tcl_DbCkrealloc((x), (y), __FILE__, __LINE__))
4088 # undef Tcl_AttemptAlloc
4089 # define Tcl_AttemptAlloc(x) \
4090 (Tcl_AttemptDbCkalloc((x), __FILE__, __LINE__))
4091 # undef Tcl_AttemptRealloc
4092 # define Tcl_AttemptRealloc(x,y) \
4093 (Tcl_AttemptDbCkrealloc((x), (y), __FILE__, __LINE__))
4094 #endif /* !TCL_MEM_DEBUG */
4095
4096 #define Tcl_NewLongObj(value) Tcl_NewWideIntObj((long)(value))
4097 #define Tcl_NewIntObj(value) Tcl_NewWideIntObj((int)(value))
4098 #define Tcl_DbNewLongObj(value, file, line) Tcl_DbNewWideIntObj((long)(value), file, line)
4099 #define Tcl_SetIntObj(objPtr, value) Tcl_SetWideIntObj((objPtr), (int)(value))
4100 #define Tcl_SetLongObj(objPtr, value) Tcl_SetWideIntObj((objPtr), (long)(value))
4101 #define Tcl_BackgroundError(interp) Tcl_BackgroundException((interp), TCL_ERROR)
4102 #define Tcl_StringMatch(str, pattern) Tcl_StringCaseMatch((str), (pattern), 0)
4103
4104 #if TCL_UTF_MAX < 4
4105 # undef Tcl_UniCharToUtfDString
4106 # define Tcl_UniCharToUtfDString Tcl_Char16ToUtfDString
4107 # undef Tcl_UtfToUniCharDString
4108 # define Tcl_UtfToUniCharDString Tcl_UtfToChar16DString
4109 # undef Tcl_UtfToUniChar
4110 # define Tcl_UtfToUniChar Tcl_UtfToChar16
4111 # undef Tcl_UniCharLen
4112 # define Tcl_UniCharLen Tcl_Char16Len
4113 # undef Tcl_UniCharToUtf
4114 # if defined(USE_TCL_STUBS)
4115 # define Tcl_UniCharToUtf(c, p) \
4116 (tclStubsPtr->tcl_UniCharToUtf((c)|TCL_COMBINE, (p)))
4117 # else
4118 # define Tcl_UniCharToUtf(c, p) \
4119 ((Tcl_UniCharToUtf)((c)|TCL_COMBINE, (p)))
4120 # endif
4121 # undef Tcl_NumUtfChars
4122 # define Tcl_NumUtfChars TclNumUtfChars
4123 # undef Tcl_GetCharLength
4124 # define Tcl_GetCharLength TclGetCharLength
4125 # undef Tcl_UtfAtIndex
4126 # define Tcl_UtfAtIndex TclUtfAtIndex
4127 # undef Tcl_GetRange
4128 # define Tcl_GetRange TclGetRange
4129 # undef Tcl_GetUniChar
4130 # define Tcl_GetUniChar TclGetUniChar
4131 # undef Tcl_UtfNcmp
4132 # define Tcl_UtfNcmp TclUtfNcmp
4133 # undef Tcl_UtfNcasecmp
4134 # define Tcl_UtfNcasecmp TclUtfNcasecmp
4135 #endif
4136 #if TCL_MAJOR_VERSION > 8
4137 # if defined(USE_TCL_STUBS)
4138 # define Tcl_WCharToUtfDString (sizeof(wchar_t) != sizeof(short) \
4139 ? (char *(*)(const wchar_t *, Tcl_Size, Tcl_DString *))tclStubsPtr->tcl_UniCharToUtfDString \
4140 : (char *(*)(const wchar_t *, Tcl_Size, Tcl_DString *))Tcl_Char16ToUtfDString)
4141 # define Tcl_UtfToWCharDString (sizeof(wchar_t) != sizeof(short) \
4142 ? (wchar_t *(*)(const char *, Tcl_Size, Tcl_DString *))tclStubsPtr->tcl_UtfToUniCharDString \
4143 : (wchar_t *(*)(const char *, Tcl_Size, Tcl_DString *))Tcl_UtfToChar16DString)
4144 # define Tcl_UtfToWChar (sizeof(wchar_t) != sizeof(short) \
4145 ? (Tcl_Size (*)(const char *, wchar_t *))tclStubsPtr->tcl_UtfToUniChar \
4146 : (Tcl_Size (*)(const char *, wchar_t *))Tcl_UtfToChar16)
4147 # define Tcl_WCharLen (sizeof(wchar_t) != sizeof(short) \
4148 ? (Tcl_Size (*)(wchar_t *))tclStubsPtr->tcl_UniCharLen \
4149 : (Tcl_Size (*)(wchar_t *))Tcl_Char16Len)
4150 # else
4151 # define Tcl_WCharToUtfDString (sizeof(wchar_t) != sizeof(short) \
4152 ? (char *(*)(const wchar_t *, Tcl_Size, Tcl_DString *))Tcl_UniCharToUtfDString \
4153 : (char *(*)(const wchar_t *, Tcl_Size, Tcl_DString *))Tcl_Char16ToUtfDString)
4154 # define Tcl_UtfToWCharDString (sizeof(wchar_t) != sizeof(short) \
4155 ? (wchar_t *(*)(const char *, Tcl_Size, Tcl_DString *))Tcl_UtfToUniCharDString \
4156 : (wchar_t *(*)(const char *, Tcl_Size, Tcl_DString *))Tcl_UtfToChar16DString)
4157 # define Tcl_UtfToWChar (sizeof(wchar_t) != sizeof(short) \
4158 ? (Tcl_Size (*)(const char *, wchar_t *))Tcl_UtfToUniChar \
4159 : (Tcl_Size (*)(const char *, wchar_t *))Tcl_UtfToChar16)
4160 # define Tcl_WCharLen (sizeof(wchar_t) != sizeof(short) \
4161 ? (Tcl_Size (*)(wchar_t *))Tcl_UniCharLen \
4162 : (Tcl_Size (*)(wchar_t *))Tcl_Char16Len)
4163 # endif
4164 #endif
4165
4166 /*
4167 * Deprecated Tcl procedures:
4168 */
4169
4170 #define Tcl_EvalObj(interp, objPtr) \
4171 Tcl_EvalObjEx(interp, objPtr, 0)
4172 #define Tcl_GlobalEvalObj(interp, objPtr) \
4173 Tcl_EvalObjEx(interp, objPtr, TCL_EVAL_GLOBAL)
4174
4175 #if TCL_MAJOR_VERSION > 8
4176 # undef Tcl_Close
4177 # define Tcl_Close(interp, chan) Tcl_CloseEx(interp, chan, 0)
4178 #endif
4179
4180 #undef TclUtfCharComplete
4181 #undef TclUtfNext
4182 #undef TclUtfPrev
4183 #ifndef TCL_NO_DEPRECATED
4184 # define Tcl_CreateSlave Tcl_CreateChild
4185 # define Tcl_GetSlave Tcl_GetChild
4186 # define Tcl_GetMaster Tcl_GetParent
4187 #endif
4188
4189 /* Protect those 11 functions, make them useless through the stub table */
4190 #undef TclGetStringFromObj
4191 #undef TclGetBytesFromObj
4192 #undef TclGetUnicodeFromObj
4193 #undef TclListObjGetElements
4194 #undef TclListObjLength
4195 #undef TclDictObjSize
4196 #undef TclSplitList
4197 #undef TclSplitPath
4198 #undef TclFSSplitPath
4199 #undef TclParseArgsObjv
4200 #undef TclGetAliasObj
4201
4202 #if TCL_MAJOR_VERSION < 9
4203 /* TIP #627 */
4204 # undef Tcl_CreateObjCommand2
4205 # define Tcl_CreateObjCommand2 Tcl_CreateObjCommand
4206 # undef Tcl_CreateObjTrace2
4207 # define Tcl_CreateObjTrace2 Tcl_CreateObjTrace
4208 # undef Tcl_NRCreateCommand2
4209 # define Tcl_NRCreateCommand2 Tcl_NRCreateCommand
4210 # undef Tcl_NRCallObjProc2
4211 # define Tcl_NRCallObjProc2 Tcl_NRCallObjProc
4212 /* TIP #660 */
4213 # undef Tcl_GetSizeIntFromObj
4214 # define Tcl_GetSizeIntFromObj Tcl_GetIntFromObj
4215
4216 # undef Tcl_GetBytesFromObj
4217 # define Tcl_GetBytesFromObj(interp, objPtr, sizePtr) \
4218 tclStubsPtr->tclGetBytesFromObj((interp), (objPtr), (sizePtr))
4219 # undef Tcl_GetStringFromObj
4220 # define Tcl_GetStringFromObj(objPtr, sizePtr) \
4221 tclStubsPtr->tclGetStringFromObj((objPtr), (sizePtr))
4222 # undef Tcl_GetUnicodeFromObj
4223 # define Tcl_GetUnicodeFromObj(objPtr, sizePtr) \
4224 tclStubsPtr->tclGetUnicodeFromObj((objPtr), (sizePtr))
4225 # undef Tcl_ListObjGetElements
4226 # define Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) \
4227 tclStubsPtr->tclListObjGetElements((interp), (listPtr), (objcPtr), (objvPtr))
4228 # undef Tcl_ListObjLength
4229 # define Tcl_ListObjLength(interp, listPtr, lengthPtr) \
4230 tclStubsPtr->tclListObjLength((interp), (listPtr), (lengthPtr))
4231 # undef Tcl_DictObjSize
4232 # define Tcl_DictObjSize(interp, dictPtr, sizePtr) \
4233 tclStubsPtr->tclDictObjSize((interp), (dictPtr), (sizePtr))
4234 # undef Tcl_SplitList
4235 # define Tcl_SplitList(interp, listStr, argcPtr, argvPtr) \
4236 tclStubsPtr->tclSplitList((interp), (listStr), (argcPtr), (argvPtr))
4237 # undef Tcl_SplitPath
4238 # define Tcl_SplitPath(path, argcPtr, argvPtr) \
4239 tclStubsPtr->tclSplitPath((path), (argcPtr), (argvPtr))
4240 # undef Tcl_FSSplitPath
4241 # define Tcl_FSSplitPath(pathPtr, lenPtr) \
4242 tclStubsPtr->tclFSSplitPath((pathPtr), (lenPtr))
4243 # undef Tcl_ParseArgsObjv
4244 # define Tcl_ParseArgsObjv(interp, argTable, objcPtr, objv, remObjv) \
4245 tclStubsPtr->tclParseArgsObjv((interp), (argTable), (objcPtr), (objv), (remObjv))
4246 # undef Tcl_GetAliasObj
4247 # define Tcl_GetAliasObj(interp, childCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) \
4248 tclStubsPtr->tclGetAliasObj((interp), (childCmd), (targetInterpPtr), (targetCmdPtr), (objcPtr), (objv))
4249 # undef Tcl_OpenTcpServerEx
4250 # undef TclZipfs_Mount
4251 # undef TclZipfs_Unmount
4252 # undef TclZipfs_TclLibrary
4253 # undef TclZipfs_MountBuffer
4254 # undef Tcl_FreeInternalRep
4255 # undef Tcl_InitStringRep
4256 # undef Tcl_FetchInternalRep
4257 # undef Tcl_StoreInternalRep
4258 # undef Tcl_HasStringRep
4259 # undef Tcl_LinkArray
4260 # undef Tcl_GetIntForIndex
4261 # undef Tcl_FSTildeExpand
4262 # undef Tcl_ExternalToUtfDStringEx
4263 # undef Tcl_UtfToExternalDStringEx
4264 # undef Tcl_AsyncMarkFromSignal
4265 # undef Tcl_GetBool
4266 # undef Tcl_GetBoolFromObj
4267 # undef Tcl_GetNumberFromObj
4268 # undef Tcl_GetNumber
4269 # undef Tcl_RemoveChannelMode
4270 # undef Tcl_GetEncodingNulLength
4271 # undef Tcl_GetWideUIntFromObj
4272 # undef Tcl_DStringToObj
4273 # undef Tcl_NewWideUIntObj
4274 # undef Tcl_SetWideUIntObj
4275 #elif defined(TCL_8_API)
4276 # undef Tcl_GetByteArrayFromObj
4277 # undef Tcl_GetBytesFromObj
4278 # undef Tcl_GetStringFromObj
4279 # undef Tcl_GetUnicodeFromObj
4280 # undef Tcl_ListObjGetElements
4281 # undef Tcl_ListObjLength
4282 # undef Tcl_DictObjSize
4283 # undef Tcl_SplitList
4284 # undef Tcl_SplitPath
4285 # undef Tcl_FSSplitPath
4286 # undef Tcl_ParseArgsObjv
4287 # undef Tcl_GetAliasObj
4288 # if !defined(USE_TCL_STUBS)
4289 # define Tcl_GetByteArrayFromObj(objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4290 TclGetBytesFromObj(NULL, (objPtr), (sizePtr)) : \
4291 (Tcl_GetBytesFromObj)(NULL, (objPtr), (Tcl_Size *)(void *)(sizePtr)))
4292 # define Tcl_GetBytesFromObj(interp, objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4293 TclGetBytesFromObj((interp), (objPtr), (sizePtr)) : \
4294 (Tcl_GetBytesFromObj)((interp), (objPtr), (Tcl_Size *)(void *)(sizePtr)))
4295 # define Tcl_GetStringFromObj(objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4296 (TclGetStringFromObj)((objPtr), (sizePtr)) : \
4297 (Tcl_GetStringFromObj)((objPtr), (Tcl_Size *)(void *)(sizePtr)))
4298 # define Tcl_GetUnicodeFromObj(objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4299 TclGetUnicodeFromObj((objPtr), (sizePtr)) : \
4300 (Tcl_GetUnicodeFromObj)((objPtr), (Tcl_Size *)(void *)(sizePtr)))
4301 # define Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) (sizeof(*(objcPtr)) <= sizeof(int) ? \
4302 (TclListObjGetElements)((interp), (listPtr), (objcPtr), (objvPtr)) : \
4303 (Tcl_ListObjGetElements)((interp), (listPtr), (Tcl_Size *)(void *)(objcPtr), (objvPtr)))
4304 # define Tcl_ListObjLength(interp, listPtr, lengthPtr) (sizeof(*(lengthPtr)) <= sizeof(int) ? \
4305 (TclListObjLength)((interp), (listPtr), (lengthPtr)) : \
4306 (Tcl_ListObjLength)((interp), (listPtr), (Tcl_Size *)(void *)(lengthPtr)))
4307 # define Tcl_DictObjSize(interp, dictPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4308 TclDictObjSize((interp), (dictPtr), (sizePtr)) : \
4309 (Tcl_DictObjSize)((interp), (dictPtr), (Tcl_Size *)(void *)(sizePtr)))
4310 # define Tcl_SplitList(interp, listStr, argcPtr, argvPtr) (sizeof(*(argcPtr)) <= sizeof(int) ? \
4311 TclSplitList((interp), (listStr), (argcPtr), (argvPtr)) : \
4312 (Tcl_SplitList)((interp), (listStr), (Tcl_Size *)(void *)(argcPtr), (argvPtr)))
4313 # define Tcl_SplitPath(path, argcPtr, argvPtr) (sizeof(*(argcPtr)) <= sizeof(int) ? \
4314 TclSplitPath((path), (argcPtr), (argvPtr)) : \
4315 (Tcl_SplitPath)((path), (Tcl_Size *)(void *)(argcPtr), (argvPtr)))
4316 # define Tcl_FSSplitPath(pathPtr, lenPtr) (sizeof(*(lenPtr)) <= sizeof(int) ? \
4317 TclFSSplitPath((pathPtr), (lenPtr)) : \
4318 (Tcl_FSSplitPath)((pathPtr), (Tcl_Size *)(void *)(lenPtr)))
4319 # define Tcl_ParseArgsObjv(interp, argTable, objcPtr, objv, remObjv) (sizeof(*(objcPtr)) <= sizeof(int) ? \
4320 TclParseArgsObjv((interp), (argTable), (objcPtr), (objv), (remObjv)) : \
4321 (Tcl_ParseArgsObjv)((interp), (argTable), (Tcl_Size *)(void *)(objcPtr), (objv), (remObjv)))
4322 # define Tcl_GetAliasObj(interp, childCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) (sizeof(*(objcPtr)) <= sizeof(int) ? \
4323 TclGetAliasObj((interp), (childCmd), (targetInterpPtr), (targetCmdPtr), (objcPtr), (objv)) : \
4324 (Tcl_GetAliasObj)((interp), (childCmd), (targetInterpPtr), (targetCmdPtr), (Tcl_Size *)(void *)(objcPtr), (objv)))
4325 # elif !defined(BUILD_tcl)
4326 # define Tcl_GetByteArrayFromObj(objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4327 tclStubsPtr->tclGetBytesFromObj(NULL, (objPtr), (sizePtr)) : \
4328 tclStubsPtr->tcl_GetBytesFromObj(NULL, (objPtr), (Tcl_Size *)(void *)(sizePtr)))
4329 # define Tcl_GetBytesFromObj(interp, objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4330 tclStubsPtr->tclGetBytesFromObj((interp), (objPtr), (sizePtr)) : \
4331 tclStubsPtr->tcl_GetBytesFromObj((interp), (objPtr), (Tcl_Size *)(void *)(sizePtr)))
4332 # define Tcl_GetStringFromObj(objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4333 tclStubsPtr->tclGetStringFromObj((objPtr), (sizePtr)) : \
4334 tclStubsPtr->tcl_GetStringFromObj((objPtr), (Tcl_Size *)(void *)(sizePtr)))
4335 # define Tcl_GetUnicodeFromObj(objPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4336 tclStubsPtr->tclGetUnicodeFromObj((objPtr), (sizePtr)) : \
4337 tclStubsPtr->tcl_GetUnicodeFromObj((objPtr), (Tcl_Size *)(void *)(sizePtr)))
4338 # define Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) (sizeof(*(objcPtr)) <= sizeof(int) ? \
4339 tclStubsPtr->tclListObjGetElements((interp), (listPtr), (objcPtr), (objvPtr)) : \
4340 tclStubsPtr->tcl_ListObjGetElements((interp), (listPtr), (Tcl_Size *)(void *)(objcPtr), (objvPtr)))
4341 # define Tcl_ListObjLength(interp, listPtr, lengthPtr) (sizeof(*(lengthPtr)) <= sizeof(int) ? \
4342 tclStubsPtr->tclListObjLength((interp), (listPtr), (lengthPtr)) : \
4343 tclStubsPtr->tcl_ListObjLength((interp), (listPtr), (Tcl_Size *)(void *)(lengthPtr)))
4344 # define Tcl_DictObjSize(interp, dictPtr, sizePtr) (sizeof(*(sizePtr)) <= sizeof(int) ? \
4345 tclStubsPtr->tclDictObjSize((interp), (dictPtr), (sizePtr)) : \
4346 tclStubsPtr->tcl_DictObjSize((interp), (dictPtr), (Tcl_Size *)(void *)(sizePtr)))
4347 # define Tcl_SplitList(interp, listStr, argcPtr, argvPtr) (sizeof(*(argcPtr)) <= sizeof(int) ? \
4348 tclStubsPtr->tclSplitList((interp), (listStr), (argcPtr), (argvPtr)) : \
4349 tclStubsPtr->tcl_SplitList((interp), (listStr), (Tcl_Size *)(void *)(argcPtr), (argvPtr)))
4350 # define Tcl_SplitPath(path, argcPtr, argvPtr) (sizeof(*(argcPtr)) <= sizeof(int) ? \
4351 tclStubsPtr->tclSplitPath((path), (argcPtr), (argvPtr)) : \
4352 tclStubsPtr->tcl_SplitPath((path), (Tcl_Size *)(void *)(argcPtr), (argvPtr)))
4353 # define Tcl_FSSplitPath(pathPtr, lenPtr) (sizeof(*(lenPtr)) <= sizeof(int) ? \
4354 tclStubsPtr->tclFSSplitPath((pathPtr), (lenPtr)) : \
4355 tclStubsPtr->tcl_FSSplitPath((pathPtr), (Tcl_Size *)(void *)(lenPtr)))
4356 # define Tcl_ParseArgsObjv(interp, argTable, objcPtr, objv, remObjv) (sizeof(*(objcPtr)) <= sizeof(int) ? \
4357 tclStubsPtr->tclParseArgsObjv((interp), (argTable), (objcPtr), (objv), (remObjv)) : \
4358 tclStubsPtr->tcl_ParseArgsObjv((interp), (argTable), (Tcl_Size *)(void *)(objcPtr), (objv), (remObjv)))
4359 # define Tcl_GetAliasObj(interp, childCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) (sizeof(*(objcPtr)) <= sizeof(int) ? \
4360 tclStubsPtr->tclGetAliasObj((interp), (childCmd), (targetInterpPtr), (targetCmdPtr), (objcPtr), (objv)) : \
4361 tclStubsPtr->tcl_GetAliasObj((interp), (childCmd), (targetInterpPtr), (targetCmdPtr), (Tcl_Size *)(void *)(objcPtr), (objv)))
4362 # endif /* defined(USE_TCL_STUBS) */
4363 #else /* !defined(TCL_8_API) */
4364 # undef Tcl_GetByteArrayFromObj
4365 # define Tcl_GetByteArrayFromObj(objPtr, sizePtr) \
4366 Tcl_GetBytesFromObj(NULL, (objPtr), (sizePtr))
4367 #endif /* defined(TCL_8_API) */
4368
4369 #endif /* _TCLDECLS */
M extsrc/pikchr.c
+1 -1
--- extsrc/pikchr.c
+++ extsrc/pikchr.c
@@ -8284,11 +8284,11 @@
82848284
 */
82858285
 static int pik_tcl_command(
82868286
 ClientData clientData, /* Not Used */
82878287
 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
82888288
 int objc, /* Number of arguments */
8289
- Tcl_Obj *CONST objv[] /* Command arguments */
8289
+ Tcl_Obj *const objv[] /* Command arguments */
82908290
 ){
82918291
 int w, h; /* Width and height of the pikchr */
82928292
 const char *zIn; /* Source text input */
82938293
 char *zOut; /* SVG output text */
82948294
 Tcl_Obj *pRes; /* The result TCL object */
82958295
--- extsrc/pikchr.c
+++ extsrc/pikchr.c
@@ -8284,11 +8284,11 @@
8284 */
8285 static int pik_tcl_command(
8286 ClientData clientData, /* Not Used */
8287 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
8288 int objc, /* Number of arguments */
8289 Tcl_Obj *CONST objv[] /* Command arguments */
8290 ){
8291 int w, h; /* Width and height of the pikchr */
8292 const char *zIn; /* Source text input */
8293 char *zOut; /* SVG output text */
8294 Tcl_Obj *pRes; /* The result TCL object */
8295
--- extsrc/pikchr.c
+++ extsrc/pikchr.c
@@ -8284,11 +8284,11 @@
8284 */
8285 static int pik_tcl_command(
8286 ClientData clientData, /* Not Used */
8287 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
8288 int objc, /* Number of arguments */
8289 Tcl_Obj *const objv[] /* Command arguments */
8290 ){
8291 int w, h; /* Width and height of the pikchr */
8292 const char *zIn; /* Source text input */
8293 char *zOut; /* SVG output text */
8294 Tcl_Obj *pRes; /* The result TCL object */
8295
M src/main.c
+3
--- src/main.c
+++ src/main.c
@@ -128,10 +128,13 @@
128128
 struct TclContext {
129129
 int argc; /* Number of original (expanded) arguments. */
130130
 char **argv; /* Full copy of the original (expanded) arguments. */
131131
 void *hLibrary; /* The Tcl library module handle. */
132132
 void *xFindExecutable; /* See tcl_FindExecutableProc in th_tcl.c. */
133
+#if TCL_MAJOR_VERSION>=9
134
+ void *xZipfsAppHook; /* See TclZipfsAppHookProc in th_tcl.c. */
135
+#endif
133136
 void *xCreateInterp; /* See tcl_CreateInterpProc in th_tcl.c. */
134137
 void *xDeleteInterp; /* See tcl_DeleteInterpProc in th_tcl.c. */
135138
 void *xFinalize; /* See tcl_FinalizeProc in th_tcl.c. */
136139
 Tcl_Interp *interp; /* The on-demand created Tcl interpreter. */
137140
 int useObjProc; /* Non-zero if an objProc can be called directly. */
138141
--- src/main.c
+++ src/main.c
@@ -128,10 +128,13 @@
128 struct TclContext {
129 int argc; /* Number of original (expanded) arguments. */
130 char **argv; /* Full copy of the original (expanded) arguments. */
131 void *hLibrary; /* The Tcl library module handle. */
132 void *xFindExecutable; /* See tcl_FindExecutableProc in th_tcl.c. */
 
 
 
133 void *xCreateInterp; /* See tcl_CreateInterpProc in th_tcl.c. */
134 void *xDeleteInterp; /* See tcl_DeleteInterpProc in th_tcl.c. */
135 void *xFinalize; /* See tcl_FinalizeProc in th_tcl.c. */
136 Tcl_Interp *interp; /* The on-demand created Tcl interpreter. */
137 int useObjProc; /* Non-zero if an objProc can be called directly. */
138
--- src/main.c
+++ src/main.c
@@ -128,10 +128,13 @@
128 struct TclContext {
129 int argc; /* Number of original (expanded) arguments. */
130 char **argv; /* Full copy of the original (expanded) arguments. */
131 void *hLibrary; /* The Tcl library module handle. */
132 void *xFindExecutable; /* See tcl_FindExecutableProc in th_tcl.c. */
133 #if TCL_MAJOR_VERSION>=9
134 void *xZipfsAppHook; /* See TclZipfsAppHookProc in th_tcl.c. */
135 #endif
136 void *xCreateInterp; /* See tcl_CreateInterpProc in th_tcl.c. */
137 void *xDeleteInterp; /* See tcl_DeleteInterpProc in th_tcl.c. */
138 void *xFinalize; /* See tcl_FinalizeProc in th_tcl.c. */
139 Tcl_Interp *interp; /* The on-demand created Tcl interpreter. */
140 int useObjProc; /* Non-zero if an objProc can be called directly. */
141
M src/th_tcl.c
+52 -10
--- src/th_tcl.c
+++ src/th_tcl.c
@@ -102,11 +102,11 @@
102102
 # include <windows.h>
103103
 # ifndef TCL_DIRECTORY_SEP
104104
 # define TCL_DIRECTORY_SEP '\\'
105105
 # endif
106106
 # ifndef TCL_LIBRARY_NAME
107
-# define TCL_LIBRARY_NAME "tcl87.dll\0"
107
+# define TCL_LIBRARY_NAME "tcl91.dll\0"
108108
 # endif
109109
 # ifndef TCL_MINOR_OFFSET
110110
 # define TCL_MINOR_OFFSET (4)
111111
 # endif
112112
 # ifndef dlopen
@@ -121,43 +121,46 @@
121121
 # else
122122
 # include <dlfcn.h>
123123
 # ifndef TCL_DIRECTORY_SEP
124124
 # define TCL_DIRECTORY_SEP '/'
125125
 # endif
126
-# if defined(__CYGWIN__)
126
+# if defined(__CYGWIN__) && (TCL_MAJOR_VERSION > 8)
127127
 # ifndef TCL_LIBRARY_NAME
128
-# define TCL_LIBRARY_NAME "libtcl8.7.dll\0"
128
+# define TCL_LIBRARY_NAME "cygtcl9.1.dll\0"
129129
 # endif
130130
 # ifndef TCL_MINOR_OFFSET
131131
 # define TCL_MINOR_OFFSET (8)
132132
 # endif
133133
 # elif defined(__APPLE__)
134134
 # ifndef TCL_LIBRARY_NAME
135
-# define TCL_LIBRARY_NAME "libtcl8.7.dylib\0"
135
+# define TCL_LIBRARY_NAME "libtcl9.1.dylib\0"
136136
 # endif
137137
 # ifndef TCL_MINOR_OFFSET
138138
 # define TCL_MINOR_OFFSET (8)
139139
 # endif
140140
 # elif defined(__FreeBSD__)
141141
 # ifndef TCL_LIBRARY_NAME
142
-# define TCL_LIBRARY_NAME "libtcl87.so\0"
142
+# define TCL_LIBRARY_NAME "libtcl91.so\0"
143143
 # endif
144144
 # ifndef TCL_MINOR_OFFSET
145145
 # define TCL_MINOR_OFFSET (7)
146146
 # endif
147147
 # else
148148
 # ifndef TCL_LIBRARY_NAME
149
-# define TCL_LIBRARY_NAME "libtcl8.7.so\0"
149
+# define TCL_LIBRARY_NAME "libtcl9.1.so\0"
150150
 # endif
151151
 # ifndef TCL_MINOR_OFFSET
152152
 # define TCL_MINOR_OFFSET (8)
153153
 # endif
154154
 # endif /* defined(__CYGWIN__) */
155155
 # endif /* defined(_WIN32) */
156156
 # ifndef TCL_FINDEXECUTABLE_NAME
157157
 # define TCL_FINDEXECUTABLE_NAME "_Tcl_FindExecutable\0"
158158
 # endif
159
+# ifndef TCL_ZIPFSAPPHOOK_NAME
160
+# define TCL_ZIPFSAPPHOOK_NAME "_TclZipfs_AppHook\0"
161
+# endif
159162
 # ifndef TCL_CREATEINTERP_NAME
160163
 # define TCL_CREATEINTERP_NAME "_Tcl_CreateInterp\0"
161164
 # endif
162165
 # ifndef TCL_DELETEINTERP_NAME
163166
 # define TCL_DELETEINTERP_NAME "_Tcl_DeleteInterp\0"
@@ -189,10 +192,11 @@
189192
 ** cleanup if the Tcl stubs initialization fails somehow, the Tcl_DeleteInterp
190193
 ** and Tcl_Finalize function types are also required.
191194
 */
192195
 #if TCL_MAJOR_VERSION>=9
193196
 typedef const char *(tcl_FindExecutableProc) (const char *);
197
+typedef const char *(tcl_ZipfsAppHookProc) (int *, char ***);
194198
 #else
195199
 typedef void (tcl_FindExecutableProc) (const char *);
196200
 #endif
197201
 typedef Tcl_Interp *(tcl_CreateInterpProc) (void);
198202
 typedef void (tcl_DeleteInterpProc) (Tcl_Interp *);
@@ -260,11 +264,11 @@
260264
 "could not initialize Tcl stubs: incompatible mechanism",
261265
 (const char *)"", 0);
262266
 return TH_ERROR;
263267
 }
264268
 /* NOTE: At this point, the Tcl API functions should be available. */
265
- if( Tcl_PkgRequireEx(tclInterp, "Tcl", "8.4", 0, (void *)&tclStubsPtr)==0 ){
269
+ if( Tcl_PkgRequireEx(tclInterp, "Tcl", "8.5-", 0, (void *)&tclStubsPtr)==0 ){
266270
 Th_ErrorMessage(interp,
267271
 "could not initialize Tcl stubs: incompatible version",
268272
 (const char *)"", 0);
269273
 return TH_ERROR;
270274
 }
@@ -404,10 +408,13 @@
404408
 struct TclContext {
405409
 int argc; /* Number of original arguments. */
406410
 char **argv; /* Full copy of the original arguments. */
407411
 void *hLibrary; /* The Tcl library module handle. */
408412
 tcl_FindExecutableProc *xFindExecutable; /* Tcl_FindExecutable() pointer. */
413
+#if TCL_MAJOR_VERSION>=9
414
+ tcl_ZipfsAppHookProc *xZipfsAppHook; /* TclZipfsAppHook() pointer. */
415
+#endif
409416
 tcl_CreateInterpProc *xCreateInterp; /* Tcl_CreateInterp() pointer. */
410417
 tcl_DeleteInterpProc *xDeleteInterp; /* Tcl_DeleteInterp() pointer. */
411418
 tcl_FinalizeProc *xFinalize; /* Tcl_Finalize() pointer. */
412419
 Tcl_Interp *interp; /* The on-demand created Tcl interpreter. */
413420
 int useObjProc; /* Non-zero if an objProc can be called directly. */
@@ -819,10 +826,13 @@
819826
820827
 static int loadTcl(
821828
 Th_Interp *interp,
822829
 void **phLibrary,
823830
 tcl_FindExecutableProc **pxFindExecutable,
831
+#if TCL_MAJOR_VERSION>=9
832
+ tcl_ZipfsAppHookProc **pxZipfsAppHook,
833
+#endif
824834
 tcl_CreateInterpProc **pxCreateInterp,
825835
 tcl_DeleteInterpProc **pxDeleteInterp,
826836
 tcl_FinalizeProc **pxFinalize
827837
 ){
828838
 #if defined(USE_TCL_STUBS)
@@ -834,10 +844,18 @@
834844
 !pxDeleteInterp || !pxFinalize ){
835845
 Th_ErrorMessage(interp,
836846
 "invalid Tcl loader argument(s)", (const char *)"", 0);
837847
 return TH_ERROR;
838848
 }
849
+#if TCL_MAJOR_VERSION<9
850
+#if defined(_WIN32) || defined(__FreeBSD__)
851
+ aFileName[TCL_MINOR_OFFSET-1] = '0' + TCL_MAJOR_VERSION;
852
+#else
853
+ aFileName[TCL_MINOR_OFFSET-2] = '0' + TCL_MAJOR_VERSION;
854
+#endif
855
+ aFileName[TCL_MINOR_OFFSET] = '0' + TCL_MINOR_VERSION;
856
+#endif
839857
 #if defined(USE_TCL_STUBS)
840858
 do {
841859
 char *zFileName;
842860
 void *hLibrary;
843861
 if( !zEnvPath ){
@@ -870,10 +888,13 @@
870888
 if( zFileName!=aFileName ){
871889
 sqlite3_free(zFileName); zFileName = 0;
872890
 }
873891
 if( hLibrary ){
874892
 tcl_FindExecutableProc *xFindExecutable;
893
+#if TCL_MAJOR_VERSION>=9
894
+ tcl_ZipfsAppHookProc *xZipfsAppHook;
895
+#endif
875896
 tcl_CreateInterpProc *xCreateInterp;
876897
 tcl_DeleteInterpProc *xDeleteInterp;
877898
 tcl_FinalizeProc *xFinalize;
878899
 const char *procName = TCL_FINDEXECUTABLE_NAME;
879900
 xFindExecutable = (tcl_FindExecutableProc *)dlsym(hLibrary, procName+1);
@@ -884,10 +905,17 @@
884905
 Th_ErrorMessage(interp,
885906
 "could not locate Tcl_FindExecutable", (const char *)"", 0);
886907
 dlclose(hLibrary); hLibrary = 0;
887908
 return TH_ERROR;
888909
 }
910
+#if TCL_MAJOR_VERSION>=9
911
+ procName = TCL_ZIPFSAPPHOOK_NAME;
912
+ xZipfsAppHook = (tcl_ZipfsAppHookProc *)dlsym(hLibrary, procName+1);
913
+ if( !xZipfsAppHook ){
914
+ xZipfsAppHook = (tcl_ZipfsAppHookProc *)dlsym(hLibrary, procName);
915
+ }
916
+#endif
889917
 procName = TCL_CREATEINTERP_NAME;
890918
 xCreateInterp = (tcl_CreateInterpProc *)dlsym(hLibrary, procName+1);
891919
 if( !xCreateInterp ){
892920
 xCreateInterp = (tcl_CreateInterpProc *)dlsym(hLibrary, procName);
893921
 }
@@ -919,24 +947,30 @@
919947
 dlclose(hLibrary); hLibrary = 0;
920948
 return TH_ERROR;
921949
 }
922950
 *phLibrary = hLibrary;
923951
 *pxFindExecutable = xFindExecutable;
952
+#if TCL_MAJOR_VERSION>=9
953
+ *pxZipfsAppHook = xZipfsAppHook;
954
+#endif
924955
 *pxCreateInterp = xCreateInterp;
925956
 *pxDeleteInterp = xDeleteInterp;
926957
 *pxFinalize = xFinalize;
927958
 return TH_OK;
928959
 }
929
- } while( --aFileName[TCL_MINOR_OFFSET]>'3' ); /* Tcl 8.4+ */
960
+ } while( --aFileName[TCL_MINOR_OFFSET]!='6' && aFileName[TCL_MINOR_OFFSET]>='0'); /* Tcl 8.6+ */
930961
 aFileName[TCL_MINOR_OFFSET] = 'x';
931962
 Th_ErrorMessage(interp,
932
- "could not load any supported Tcl 8.x shared library \"",
963
+ "could not load any supported Tcl shared library \"",
933964
 aFileName, -1);
934965
 return TH_ERROR;
935966
 #else
936967
 *phLibrary = 0;
937968
 *pxFindExecutable = Tcl_FindExecutable;
969
+#if TCL_MAJOR_VERSION>=9
970
+ *pxZipfsAppHook = (tcl_ZipfsAppHookProc *)(void *)TclZipfs_AppHook;
971
+#endif
938972
 *pxCreateInterp = Tcl_CreateInterp;
939973
 *pxDeleteInterp = Tcl_DeleteInterp;
940974
 *pxFinalize = Tcl_Finalize;
941975
 return TH_OK;
942976
 #endif /* defined(USE_TCL_STUBS) */
@@ -1076,19 +1110,27 @@
10761110
 }
10771111
 if( tclContext->interp ){
10781112
 return TH_OK;
10791113
 }
10801114
 if( loadTcl(interp, &tclContext->hLibrary, &tclContext->xFindExecutable,
1115
+ #if TCL_MAJOR_VERSION >= 9
1116
+ &tclContext->xZipfsAppHook,
1117
+ #endif
10811118
 &tclContext->xCreateInterp, &tclContext->xDeleteInterp,
10821119
 &tclContext->xFinalize)!=TH_OK ){
10831120
 return TH_ERROR;
10841121
 }
10851122
 argc = tclContext->argc;
10861123
 argv = tclContext->argv;
10871124
 if( argc>0 && argv ){
10881125
 argv0 = argv[0];
10891126
 }
1127
+#if TCL_MAJOR_VERSION>=9
1128
+ if (tclContext->xZipfsAppHook) {
1129
+ tclContext->xZipfsAppHook(&tclContext->argc, &tclContext->argv);
1130
+ }
1131
+#endif
10901132
 tclContext->xFindExecutable(argv0);
10911133
 tclInterp = tclContext->xCreateInterp();
10921134
 if( !tclInterp ){
10931135
 Th_ErrorMessage(interp,
10941136
 "could not create Tcl interpreter", (const char *)"", 0);
@@ -1100,11 +1142,11 @@
11001142
 tclContext->xDeleteInterp(tclInterp);
11011143
 tclInterp = 0;
11021144
 return TH_ERROR;
11031145
 }
11041146
 #else
1105
- if( !Tcl_InitStubs(tclInterp, "8.4", 0) ){
1147
+ if( !Tcl_InitStubs(tclInterp, "8.5-", 0) ){
11061148
 Th_ErrorMessage(interp,
11071149
 "could not initialize Tcl stubs", (const char *)"", 0);
11081150
 tclContext->xDeleteInterp(tclInterp);
11091151
 tclInterp = 0;
11101152
 return TH_ERROR;
11111153
--- src/th_tcl.c
+++ src/th_tcl.c
@@ -102,11 +102,11 @@
102 # include <windows.h>
103 # ifndef TCL_DIRECTORY_SEP
104 # define TCL_DIRECTORY_SEP '\\'
105 # endif
106 # ifndef TCL_LIBRARY_NAME
107 # define TCL_LIBRARY_NAME "tcl87.dll\0"
108 # endif
109 # ifndef TCL_MINOR_OFFSET
110 # define TCL_MINOR_OFFSET (4)
111 # endif
112 # ifndef dlopen
@@ -121,43 +121,46 @@
121 # else
122 # include <dlfcn.h>
123 # ifndef TCL_DIRECTORY_SEP
124 # define TCL_DIRECTORY_SEP '/'
125 # endif
126 # if defined(__CYGWIN__)
127 # ifndef TCL_LIBRARY_NAME
128 # define TCL_LIBRARY_NAME "libtcl8.7.dll\0"
129 # endif
130 # ifndef TCL_MINOR_OFFSET
131 # define TCL_MINOR_OFFSET (8)
132 # endif
133 # elif defined(__APPLE__)
134 # ifndef TCL_LIBRARY_NAME
135 # define TCL_LIBRARY_NAME "libtcl8.7.dylib\0"
136 # endif
137 # ifndef TCL_MINOR_OFFSET
138 # define TCL_MINOR_OFFSET (8)
139 # endif
140 # elif defined(__FreeBSD__)
141 # ifndef TCL_LIBRARY_NAME
142 # define TCL_LIBRARY_NAME "libtcl87.so\0"
143 # endif
144 # ifndef TCL_MINOR_OFFSET
145 # define TCL_MINOR_OFFSET (7)
146 # endif
147 # else
148 # ifndef TCL_LIBRARY_NAME
149 # define TCL_LIBRARY_NAME "libtcl8.7.so\0"
150 # endif
151 # ifndef TCL_MINOR_OFFSET
152 # define TCL_MINOR_OFFSET (8)
153 # endif
154 # endif /* defined(__CYGWIN__) */
155 # endif /* defined(_WIN32) */
156 # ifndef TCL_FINDEXECUTABLE_NAME
157 # define TCL_FINDEXECUTABLE_NAME "_Tcl_FindExecutable\0"
158 # endif
 
 
 
159 # ifndef TCL_CREATEINTERP_NAME
160 # define TCL_CREATEINTERP_NAME "_Tcl_CreateInterp\0"
161 # endif
162 # ifndef TCL_DELETEINTERP_NAME
163 # define TCL_DELETEINTERP_NAME "_Tcl_DeleteInterp\0"
@@ -189,10 +192,11 @@
189 ** cleanup if the Tcl stubs initialization fails somehow, the Tcl_DeleteInterp
190 ** and Tcl_Finalize function types are also required.
191 */
192 #if TCL_MAJOR_VERSION>=9
193 typedef const char *(tcl_FindExecutableProc) (const char *);
 
194 #else
195 typedef void (tcl_FindExecutableProc) (const char *);
196 #endif
197 typedef Tcl_Interp *(tcl_CreateInterpProc) (void);
198 typedef void (tcl_DeleteInterpProc) (Tcl_Interp *);
@@ -260,11 +264,11 @@
260 "could not initialize Tcl stubs: incompatible mechanism",
261 (const char *)"", 0);
262 return TH_ERROR;
263 }
264 /* NOTE: At this point, the Tcl API functions should be available. */
265 if( Tcl_PkgRequireEx(tclInterp, "Tcl", "8.4", 0, (void *)&tclStubsPtr)==0 ){
266 Th_ErrorMessage(interp,
267 "could not initialize Tcl stubs: incompatible version",
268 (const char *)"", 0);
269 return TH_ERROR;
270 }
@@ -404,10 +408,13 @@
404 struct TclContext {
405 int argc; /* Number of original arguments. */
406 char **argv; /* Full copy of the original arguments. */
407 void *hLibrary; /* The Tcl library module handle. */
408 tcl_FindExecutableProc *xFindExecutable; /* Tcl_FindExecutable() pointer. */
 
 
 
409 tcl_CreateInterpProc *xCreateInterp; /* Tcl_CreateInterp() pointer. */
410 tcl_DeleteInterpProc *xDeleteInterp; /* Tcl_DeleteInterp() pointer. */
411 tcl_FinalizeProc *xFinalize; /* Tcl_Finalize() pointer. */
412 Tcl_Interp *interp; /* The on-demand created Tcl interpreter. */
413 int useObjProc; /* Non-zero if an objProc can be called directly. */
@@ -819,10 +826,13 @@
819
820 static int loadTcl(
821 Th_Interp *interp,
822 void **phLibrary,
823 tcl_FindExecutableProc **pxFindExecutable,
 
 
 
824 tcl_CreateInterpProc **pxCreateInterp,
825 tcl_DeleteInterpProc **pxDeleteInterp,
826 tcl_FinalizeProc **pxFinalize
827 ){
828 #if defined(USE_TCL_STUBS)
@@ -834,10 +844,18 @@
834 !pxDeleteInterp || !pxFinalize ){
835 Th_ErrorMessage(interp,
836 "invalid Tcl loader argument(s)", (const char *)"", 0);
837 return TH_ERROR;
838 }
 
 
 
 
 
 
 
 
839 #if defined(USE_TCL_STUBS)
840 do {
841 char *zFileName;
842 void *hLibrary;
843 if( !zEnvPath ){
@@ -870,10 +888,13 @@
870 if( zFileName!=aFileName ){
871 sqlite3_free(zFileName); zFileName = 0;
872 }
873 if( hLibrary ){
874 tcl_FindExecutableProc *xFindExecutable;
 
 
 
875 tcl_CreateInterpProc *xCreateInterp;
876 tcl_DeleteInterpProc *xDeleteInterp;
877 tcl_FinalizeProc *xFinalize;
878 const char *procName = TCL_FINDEXECUTABLE_NAME;
879 xFindExecutable = (tcl_FindExecutableProc *)dlsym(hLibrary, procName+1);
@@ -884,10 +905,17 @@
884 Th_ErrorMessage(interp,
885 "could not locate Tcl_FindExecutable", (const char *)"", 0);
886 dlclose(hLibrary); hLibrary = 0;
887 return TH_ERROR;
888 }
 
 
 
 
 
 
 
889 procName = TCL_CREATEINTERP_NAME;
890 xCreateInterp = (tcl_CreateInterpProc *)dlsym(hLibrary, procName+1);
891 if( !xCreateInterp ){
892 xCreateInterp = (tcl_CreateInterpProc *)dlsym(hLibrary, procName);
893 }
@@ -919,24 +947,30 @@
919 dlclose(hLibrary); hLibrary = 0;
920 return TH_ERROR;
921 }
922 *phLibrary = hLibrary;
923 *pxFindExecutable = xFindExecutable;
 
 
 
924 *pxCreateInterp = xCreateInterp;
925 *pxDeleteInterp = xDeleteInterp;
926 *pxFinalize = xFinalize;
927 return TH_OK;
928 }
929 } while( --aFileName[TCL_MINOR_OFFSET]>'3' ); /* Tcl 8.4+ */
930 aFileName[TCL_MINOR_OFFSET] = 'x';
931 Th_ErrorMessage(interp,
932 "could not load any supported Tcl 8.x shared library \"",
933 aFileName, -1);
934 return TH_ERROR;
935 #else
936 *phLibrary = 0;
937 *pxFindExecutable = Tcl_FindExecutable;
 
 
 
938 *pxCreateInterp = Tcl_CreateInterp;
939 *pxDeleteInterp = Tcl_DeleteInterp;
940 *pxFinalize = Tcl_Finalize;
941 return TH_OK;
942 #endif /* defined(USE_TCL_STUBS) */
@@ -1076,19 +1110,27 @@
1076 }
1077 if( tclContext->interp ){
1078 return TH_OK;
1079 }
1080 if( loadTcl(interp, &tclContext->hLibrary, &tclContext->xFindExecutable,
 
 
 
1081 &tclContext->xCreateInterp, &tclContext->xDeleteInterp,
1082 &tclContext->xFinalize)!=TH_OK ){
1083 return TH_ERROR;
1084 }
1085 argc = tclContext->argc;
1086 argv = tclContext->argv;
1087 if( argc>0 && argv ){
1088 argv0 = argv[0];
1089 }
 
 
 
 
 
1090 tclContext->xFindExecutable(argv0);
1091 tclInterp = tclContext->xCreateInterp();
1092 if( !tclInterp ){
1093 Th_ErrorMessage(interp,
1094 "could not create Tcl interpreter", (const char *)"", 0);
@@ -1100,11 +1142,11 @@
1100 tclContext->xDeleteInterp(tclInterp);
1101 tclInterp = 0;
1102 return TH_ERROR;
1103 }
1104 #else
1105 if( !Tcl_InitStubs(tclInterp, "8.4", 0) ){
1106 Th_ErrorMessage(interp,
1107 "could not initialize Tcl stubs", (const char *)"", 0);
1108 tclContext->xDeleteInterp(tclInterp);
1109 tclInterp = 0;
1110 return TH_ERROR;
1111
--- src/th_tcl.c
+++ src/th_tcl.c
@@ -102,11 +102,11 @@
102 # include <windows.h>
103 # ifndef TCL_DIRECTORY_SEP
104 # define TCL_DIRECTORY_SEP '\\'
105 # endif
106 # ifndef TCL_LIBRARY_NAME
107 # define TCL_LIBRARY_NAME "tcl91.dll\0"
108 # endif
109 # ifndef TCL_MINOR_OFFSET
110 # define TCL_MINOR_OFFSET (4)
111 # endif
112 # ifndef dlopen
@@ -121,43 +121,46 @@
121 # else
122 # include <dlfcn.h>
123 # ifndef TCL_DIRECTORY_SEP
124 # define TCL_DIRECTORY_SEP '/'
125 # endif
126 # if defined(__CYGWIN__) && (TCL_MAJOR_VERSION > 8)
127 # ifndef TCL_LIBRARY_NAME
128 # define TCL_LIBRARY_NAME "cygtcl9.1.dll\0"
129 # endif
130 # ifndef TCL_MINOR_OFFSET
131 # define TCL_MINOR_OFFSET (8)
132 # endif
133 # elif defined(__APPLE__)
134 # ifndef TCL_LIBRARY_NAME
135 # define TCL_LIBRARY_NAME "libtcl9.1.dylib\0"
136 # endif
137 # ifndef TCL_MINOR_OFFSET
138 # define TCL_MINOR_OFFSET (8)
139 # endif
140 # elif defined(__FreeBSD__)
141 # ifndef TCL_LIBRARY_NAME
142 # define TCL_LIBRARY_NAME "libtcl91.so\0"
143 # endif
144 # ifndef TCL_MINOR_OFFSET
145 # define TCL_MINOR_OFFSET (7)
146 # endif
147 # else
148 # ifndef TCL_LIBRARY_NAME
149 # define TCL_LIBRARY_NAME "libtcl9.1.so\0"
150 # endif
151 # ifndef TCL_MINOR_OFFSET
152 # define TCL_MINOR_OFFSET (8)
153 # endif
154 # endif /* defined(__CYGWIN__) */
155 # endif /* defined(_WIN32) */
156 # ifndef TCL_FINDEXECUTABLE_NAME
157 # define TCL_FINDEXECUTABLE_NAME "_Tcl_FindExecutable\0"
158 # endif
159 # ifndef TCL_ZIPFSAPPHOOK_NAME
160 # define TCL_ZIPFSAPPHOOK_NAME "_TclZipfs_AppHook\0"
161 # endif
162 # ifndef TCL_CREATEINTERP_NAME
163 # define TCL_CREATEINTERP_NAME "_Tcl_CreateInterp\0"
164 # endif
165 # ifndef TCL_DELETEINTERP_NAME
166 # define TCL_DELETEINTERP_NAME "_Tcl_DeleteInterp\0"
@@ -189,10 +192,11 @@
192 ** cleanup if the Tcl stubs initialization fails somehow, the Tcl_DeleteInterp
193 ** and Tcl_Finalize function types are also required.
194 */
195 #if TCL_MAJOR_VERSION>=9
196 typedef const char *(tcl_FindExecutableProc) (const char *);
197 typedef const char *(tcl_ZipfsAppHookProc) (int *, char ***);
198 #else
199 typedef void (tcl_FindExecutableProc) (const char *);
200 #endif
201 typedef Tcl_Interp *(tcl_CreateInterpProc) (void);
202 typedef void (tcl_DeleteInterpProc) (Tcl_Interp *);
@@ -260,11 +264,11 @@
264 "could not initialize Tcl stubs: incompatible mechanism",
265 (const char *)"", 0);
266 return TH_ERROR;
267 }
268 /* NOTE: At this point, the Tcl API functions should be available. */
269 if( Tcl_PkgRequireEx(tclInterp, "Tcl", "8.5-", 0, (void *)&tclStubsPtr)==0 ){
270 Th_ErrorMessage(interp,
271 "could not initialize Tcl stubs: incompatible version",
272 (const char *)"", 0);
273 return TH_ERROR;
274 }
@@ -404,10 +408,13 @@
408 struct TclContext {
409 int argc; /* Number of original arguments. */
410 char **argv; /* Full copy of the original arguments. */
411 void *hLibrary; /* The Tcl library module handle. */
412 tcl_FindExecutableProc *xFindExecutable; /* Tcl_FindExecutable() pointer. */
413 #if TCL_MAJOR_VERSION>=9
414 tcl_ZipfsAppHookProc *xZipfsAppHook; /* TclZipfsAppHook() pointer. */
415 #endif
416 tcl_CreateInterpProc *xCreateInterp; /* Tcl_CreateInterp() pointer. */
417 tcl_DeleteInterpProc *xDeleteInterp; /* Tcl_DeleteInterp() pointer. */
418 tcl_FinalizeProc *xFinalize; /* Tcl_Finalize() pointer. */
419 Tcl_Interp *interp; /* The on-demand created Tcl interpreter. */
420 int useObjProc; /* Non-zero if an objProc can be called directly. */
@@ -819,10 +826,13 @@
826
827 static int loadTcl(
828 Th_Interp *interp,
829 void **phLibrary,
830 tcl_FindExecutableProc **pxFindExecutable,
831 #if TCL_MAJOR_VERSION>=9
832 tcl_ZipfsAppHookProc **pxZipfsAppHook,
833 #endif
834 tcl_CreateInterpProc **pxCreateInterp,
835 tcl_DeleteInterpProc **pxDeleteInterp,
836 tcl_FinalizeProc **pxFinalize
837 ){
838 #if defined(USE_TCL_STUBS)
@@ -834,10 +844,18 @@
844 !pxDeleteInterp || !pxFinalize ){
845 Th_ErrorMessage(interp,
846 "invalid Tcl loader argument(s)", (const char *)"", 0);
847 return TH_ERROR;
848 }
849 #if TCL_MAJOR_VERSION<9
850 #if defined(_WIN32) || defined(__FreeBSD__)
851 aFileName[TCL_MINOR_OFFSET-1] = '0' + TCL_MAJOR_VERSION;
852 #else
853 aFileName[TCL_MINOR_OFFSET-2] = '0' + TCL_MAJOR_VERSION;
854 #endif
855 aFileName[TCL_MINOR_OFFSET] = '0' + TCL_MINOR_VERSION;
856 #endif
857 #if defined(USE_TCL_STUBS)
858 do {
859 char *zFileName;
860 void *hLibrary;
861 if( !zEnvPath ){
@@ -870,10 +888,13 @@
888 if( zFileName!=aFileName ){
889 sqlite3_free(zFileName); zFileName = 0;
890 }
891 if( hLibrary ){
892 tcl_FindExecutableProc *xFindExecutable;
893 #if TCL_MAJOR_VERSION>=9
894 tcl_ZipfsAppHookProc *xZipfsAppHook;
895 #endif
896 tcl_CreateInterpProc *xCreateInterp;
897 tcl_DeleteInterpProc *xDeleteInterp;
898 tcl_FinalizeProc *xFinalize;
899 const char *procName = TCL_FINDEXECUTABLE_NAME;
900 xFindExecutable = (tcl_FindExecutableProc *)dlsym(hLibrary, procName+1);
@@ -884,10 +905,17 @@
905 Th_ErrorMessage(interp,
906 "could not locate Tcl_FindExecutable", (const char *)"", 0);
907 dlclose(hLibrary); hLibrary = 0;
908 return TH_ERROR;
909 }
910 #if TCL_MAJOR_VERSION>=9
911 procName = TCL_ZIPFSAPPHOOK_NAME;
912 xZipfsAppHook = (tcl_ZipfsAppHookProc *)dlsym(hLibrary, procName+1);
913 if( !xZipfsAppHook ){
914 xZipfsAppHook = (tcl_ZipfsAppHookProc *)dlsym(hLibrary, procName);
915 }
916 #endif
917 procName = TCL_CREATEINTERP_NAME;
918 xCreateInterp = (tcl_CreateInterpProc *)dlsym(hLibrary, procName+1);
919 if( !xCreateInterp ){
920 xCreateInterp = (tcl_CreateInterpProc *)dlsym(hLibrary, procName);
921 }
@@ -919,24 +947,30 @@
947 dlclose(hLibrary); hLibrary = 0;
948 return TH_ERROR;
949 }
950 *phLibrary = hLibrary;
951 *pxFindExecutable = xFindExecutable;
952 #if TCL_MAJOR_VERSION>=9
953 *pxZipfsAppHook = xZipfsAppHook;
954 #endif
955 *pxCreateInterp = xCreateInterp;
956 *pxDeleteInterp = xDeleteInterp;
957 *pxFinalize = xFinalize;
958 return TH_OK;
959 }
960 } while( --aFileName[TCL_MINOR_OFFSET]!='6' && aFileName[TCL_MINOR_OFFSET]>='0'); /* Tcl 8.6+ */
961 aFileName[TCL_MINOR_OFFSET] = 'x';
962 Th_ErrorMessage(interp,
963 "could not load any supported Tcl shared library \"",
964 aFileName, -1);
965 return TH_ERROR;
966 #else
967 *phLibrary = 0;
968 *pxFindExecutable = Tcl_FindExecutable;
969 #if TCL_MAJOR_VERSION>=9
970 *pxZipfsAppHook = (tcl_ZipfsAppHookProc *)(void *)TclZipfs_AppHook;
971 #endif
972 *pxCreateInterp = Tcl_CreateInterp;
973 *pxDeleteInterp = Tcl_DeleteInterp;
974 *pxFinalize = Tcl_Finalize;
975 return TH_OK;
976 #endif /* defined(USE_TCL_STUBS) */
@@ -1076,19 +1110,27 @@
1110 }
1111 if( tclContext->interp ){
1112 return TH_OK;
1113 }
1114 if( loadTcl(interp, &tclContext->hLibrary, &tclContext->xFindExecutable,
1115 #if TCL_MAJOR_VERSION >= 9
1116 &tclContext->xZipfsAppHook,
1117 #endif
1118 &tclContext->xCreateInterp, &tclContext->xDeleteInterp,
1119 &tclContext->xFinalize)!=TH_OK ){
1120 return TH_ERROR;
1121 }
1122 argc = tclContext->argc;
1123 argv = tclContext->argv;
1124 if( argc>0 && argv ){
1125 argv0 = argv[0];
1126 }
1127 #if TCL_MAJOR_VERSION>=9
1128 if (tclContext->xZipfsAppHook) {
1129 tclContext->xZipfsAppHook(&tclContext->argc, &tclContext->argv);
1130 }
1131 #endif
1132 tclContext->xFindExecutable(argv0);
1133 tclInterp = tclContext->xCreateInterp();
1134 if( !tclInterp ){
1135 Th_ErrorMessage(interp,
1136 "could not create Tcl interpreter", (const char *)"", 0);
@@ -1100,11 +1142,11 @@
1142 tclContext->xDeleteInterp(tclInterp);
1143 tclInterp = 0;
1144 return TH_ERROR;
1145 }
1146 #else
1147 if( !Tcl_InitStubs(tclInterp, "8.5-", 0) ){
1148 Th_ErrorMessage(interp,
1149 "could not initialize Tcl stubs", (const char *)"", 0);
1150 tclContext->xDeleteInterp(tclInterp);
1151 tclInterp = 0;
1152 return TH_ERROR;
1153
M test/tester.tcl
+1 -1
--- test/tester.tcl
+++ test/tester.tcl
@@ -28,11 +28,11 @@
2828
 # tclsh ../test/tester.tcl ../bld/fossil <script-basename>...
2929
 #
3030
3131
 # We use some things introduced in 8.6 such as lmap. auto.def should
3232
 # have found us a suitable Tcl installation.
33
-package require Tcl 8.6
33
+package require Tcl 8.6-
3434
3535
 set testfiledir [file normalize [file dirname [info script]]]
3636
 set testrundir [pwd]
3737
 set testdir [file normalize [file dirname $argv0]]
3838
 set fossilexe [file normalize [lindex $argv 0]]
3939
--- test/tester.tcl
+++ test/tester.tcl
@@ -28,11 +28,11 @@
28 # tclsh ../test/tester.tcl ../bld/fossil <script-basename>...
29 #
30
31 # We use some things introduced in 8.6 such as lmap. auto.def should
32 # have found us a suitable Tcl installation.
33 package require Tcl 8.6
34
35 set testfiledir [file normalize [file dirname [info script]]]
36 set testrundir [pwd]
37 set testdir [file normalize [file dirname $argv0]]
38 set fossilexe [file normalize [lindex $argv 0]]
39
--- test/tester.tcl
+++ test/tester.tcl
@@ -28,11 +28,11 @@
28 # tclsh ../test/tester.tcl ../bld/fossil <script-basename>...
29 #
30
31 # We use some things introduced in 8.6 such as lmap. auto.def should
32 # have found us a suitable Tcl installation.
33 package require Tcl 8.6-
34
35 set testfiledir [file normalize [file dirname [info script]]]
36 set testrundir [pwd]
37 set testdir [file normalize [file dirname $argv0]]
38 set fossilexe [file normalize [lindex $argv 0]]
39

Keyboard Shortcuts

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