merged tcl 8.1 branch back into the main trunk

1 files changed, 621 insertions, 64 deletions

diff --git a/generic/tclStubs.c b/generic/tclStubs.c
index a1f11fc..21ebe06 100644
--- a/generic/tclStubs.c
+++ b/generic/tclStubs.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclStubs.c,v 1.6 1999/03/11 02:49:34 stanton Exp $
+ * RCS: @(#) $Id: tclStubs.c,v 1.7 1999/04/16 00:46:53 stanton Exp $
  */
 
 #include "tcl.h"
@@ -29,8 +29,15 @@
 #undef Tcl_NewLongObj
 #undef Tcl_NewObj
 #undef Tcl_NewStringObj
+#undef Tcl_InitMemory
 #undef Tcl_DumpActiveMemory
 #undef Tcl_ValidateAllMemory
+#undef Tcl_EvalObj
+#undef Tcl_GlobalEvalObj
+#undef Tcl_MutexLock
+#undef Tcl_MutexUnlock
+#undef Tcl_ConditionNotify
+#undef Tcl_ConditionWait
 
 /*
  * WARNING: This file is automatically generated by the tools/genStubs.tcl
@@ -69,14 +76,14 @@ Tcl_PkgRequireEx(interp, name, version, exact, clientDataPtr)
 
 /* Slot 2 */
 void
-panic TCL_VARARGS_DEF(char *,format)
+Tcl_Panic TCL_VARARGS_DEF(char *,format)
 {
     char * var;
     va_list argList;
 
     var = (char *) TCL_VARARGS_START(char *,format,argList);
 
-    (tclStubsPtr->panicVA)(var, argList);
+    (tclStubsPtr->tcl_PanicVA)(var, argList);
     va_end(argList);
 }
 
@@ -328,7 +335,7 @@ Tcl_DbNewObj(file, line)
 /* Slot 28 */
 Tcl_Obj *
 Tcl_DbNewStringObj(bytes, length, file, line)
-    char * bytes;
+    CONST char * bytes;
     int length;
     char * file;
     int line;
@@ -354,12 +361,12 @@ TclFreeObj(objPtr)
 
 /* Slot 31 */
 int
-Tcl_GetBoolean(interp, string, boolPtr)
+Tcl_GetBoolean(interp, str, boolPtr)
     Tcl_Interp * interp;
-    char * string;
+    char * str;
     int * boolPtr;
 {
-    return (tclStubsPtr->tcl_GetBoolean)(interp, string, boolPtr);
+    return (tclStubsPtr->tcl_GetBoolean)(interp, str, boolPtr);
 }
 
 /* Slot 32 */
@@ -383,12 +390,12 @@ Tcl_GetByteArrayFromObj(objPtr, lengthPtr)
 
 /* Slot 34 */
 int
-Tcl_GetDouble(interp, string, doublePtr)
+Tcl_GetDouble(interp, str, doublePtr)
     Tcl_Interp * interp;
-    char * string;
+    char * str;
     double * doublePtr;
 {
-    return (tclStubsPtr->tcl_GetDouble)(interp, string, doublePtr);
+    return (tclStubsPtr->tcl_GetDouble)(interp, str, doublePtr);
 }
 
 /* Slot 35 */
@@ -416,12 +423,12 @@ Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr)
 
 /* Slot 37 */
 int
-Tcl_GetInt(interp, string, intPtr)
+Tcl_GetInt(interp, str, intPtr)
     Tcl_Interp * interp;
-    char * string;
+    char * str;
     int * intPtr;
 {
-    return (tclStubsPtr->tcl_GetInt)(interp, string, intPtr);
+    return (tclStubsPtr->tcl_GetInt)(interp, str, intPtr);
 }
 
 /* Slot 38 */
@@ -594,7 +601,7 @@ Tcl_NewObj()
 /* Slot 56 */
 Tcl_Obj *
 Tcl_NewStringObj(bytes, length)
-    char * bytes;
+    CONST char * bytes;
     int length;
 {
     return (tclStubsPtr->tcl_NewStringObj)(bytes, length);
@@ -688,7 +695,7 @@ Tcl_SetStringObj(objPtr, bytes, length)
 void
 Tcl_AddErrorInfo(interp, message)
     Tcl_Interp * interp;
-    char * message;
+    CONST char * message;
 {
     (tclStubsPtr->tcl_AddErrorInfo)(interp, message);
 }
@@ -697,7 +704,7 @@ Tcl_AddErrorInfo(interp, message)
 void
 Tcl_AddObjErrorInfo(interp, message, length)
     Tcl_Interp * interp;
-    char * message;
+    CONST char * message;
     int length;
 {
     (tclStubsPtr->tcl_AddObjErrorInfo)(interp, message, length);
@@ -715,7 +722,7 @@ Tcl_AllowExceptions(interp)
 void
 Tcl_AppendElement(interp, string)
     Tcl_Interp * interp;
-    char * string;
+    CONST char * string;
 {
     (tclStubsPtr->tcl_AppendElement)(interp, string);
 }
@@ -1173,12 +1180,12 @@ Tcl_DoWhenIdle(proc, clientData)
 
 /* Slot 117 */
 char *
-Tcl_DStringAppend(dsPtr, string, length)
+Tcl_DStringAppend(dsPtr, str, length)
     Tcl_DString * dsPtr;
-    CONST char * string;
+    CONST char * str;
     int length;
 {
-    return (tclStubsPtr->tcl_DStringAppend)(dsPtr, string, length);
+    return (tclStubsPtr->tcl_DStringAppend)(dsPtr, str, length);
 }
 
 /* Slot 118 */
@@ -1328,12 +1335,12 @@ Tcl_ExposeCommand(interp, hiddenCmdToken, cmdName)
 
 /* Slot 135 */
 int
-Tcl_ExprBoolean(interp, string, ptr)
+Tcl_ExprBoolean(interp, str, ptr)
     Tcl_Interp * interp;
-    char * string;
+    char * str;
     int * ptr;
 {
-    return (tclStubsPtr->tcl_ExprBoolean)(interp, string, ptr);
+    return (tclStubsPtr->tcl_ExprBoolean)(interp, str, ptr);
 }
 
 /* Slot 136 */
@@ -1348,12 +1355,12 @@ Tcl_ExprBooleanObj(interp, objPtr, ptr)
 
 /* Slot 137 */
 int
-Tcl_ExprDouble(interp, string, ptr)
+Tcl_ExprDouble(interp, str, ptr)
     Tcl_Interp * interp;
-    char * string;
+    char * str;
     double * ptr;
 {
-    return (tclStubsPtr->tcl_ExprDouble)(interp, string, ptr);
+    return (tclStubsPtr->tcl_ExprDouble)(interp, str, ptr);
 }
 
 /* Slot 138 */
@@ -1368,12 +1375,12 @@ Tcl_ExprDoubleObj(interp, objPtr, ptr)
 
 /* Slot 139 */
 int
-Tcl_ExprLong(interp, string, ptr)
+Tcl_ExprLong(interp, str, ptr)
     Tcl_Interp * interp;
-    char * string;
+    char * str;
     long * ptr;
 {
-    return (tclStubsPtr->tcl_ExprLong)(interp, string, ptr);
+    return (tclStubsPtr->tcl_ExprLong)(interp, str, ptr);
 }
 
 /* Slot 140 */
@@ -1415,7 +1422,7 @@ Tcl_Finalize()
 /* Slot 144 */
 void
 Tcl_FindExecutable(argv0)
-    char * argv0;
+    CONST char * argv0;
 {
     (tclStubsPtr->tcl_FindExecutable)(argv0);
 }
@@ -1620,14 +1627,14 @@ Tcl_GetObjResult(interp)
 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
 /* Slot 167 */
 int
-Tcl_GetOpenFile(interp, string, write, checkUsage, filePtr)
+Tcl_GetOpenFile(interp, str, write, checkUsage, filePtr)
     Tcl_Interp * interp;
-    char * string;
+    char * str;
     int write;
     int checkUsage;
     ClientData * filePtr;
 {
-    return (tclStubsPtr->tcl_GetOpenFile)(interp, string, write, checkUsage, filePtr);
+    return (tclStubsPtr->tcl_GetOpenFile)(interp, str, write, checkUsage, filePtr);
 }
 
 #endif /* UNIX */
@@ -1791,7 +1798,7 @@ Tcl_IsSafe(interp)
 char *
 Tcl_JoinPath(argc, argv, resultPtr)
     int argc;
-    char ** argv;
+    CONST char ** argv;
     Tcl_DString * resultPtr;
 {
     return (tclStubsPtr->tcl_JoinPath)(argc, argv, resultPtr);
@@ -2038,23 +2045,23 @@ Tcl_RegExpCompile(interp, string)
 
 /* Slot 213 */
 int
-Tcl_RegExpExec(interp, regexp, string, start)
+Tcl_RegExpExec(interp, regexp, str, start)
     Tcl_Interp * interp;
     Tcl_RegExp regexp;
-    char * string;
-    char * start;
+    CONST char * str;
+    CONST char * start;
 {
-    return (tclStubsPtr->tcl_RegExpExec)(interp, regexp, string, start);
+    return (tclStubsPtr->tcl_RegExpExec)(interp, regexp, str, start);
 }
 
 /* Slot 214 */
 int
-Tcl_RegExpMatch(interp, string, pattern)
+Tcl_RegExpMatch(interp, str, pattern)
     Tcl_Interp * interp;
-    char * string;
+    char * str;
     char * pattern;
 {
-    return (tclStubsPtr->tcl_RegExpMatch)(interp, string, pattern);
+    return (tclStubsPtr->tcl_RegExpMatch)(interp, str, pattern);
 }
 
 /* Slot 215 */
@@ -2086,21 +2093,21 @@ Tcl_ResetResult(interp)
 
 /* Slot 218 */
 int
-Tcl_ScanElement(string, flagPtr)
-    CONST char * string;
+Tcl_ScanElement(str, flagPtr)
+    CONST char * str;
     int * flagPtr;
 {
-    return (tclStubsPtr->tcl_ScanElement)(string, flagPtr);
+    return (tclStubsPtr->tcl_ScanElement)(str, flagPtr);
 }
 
 /* Slot 219 */
 int
-Tcl_ScanCountedElement(string, length, flagPtr)
-    CONST char * string;
+Tcl_ScanCountedElement(str, length, flagPtr)
+    CONST char * str;
     int length;
     int * flagPtr;
 {
-    return (tclStubsPtr->tcl_ScanCountedElement)(string, length, flagPtr);
+    return (tclStubsPtr->tcl_ScanCountedElement)(str, length, flagPtr);
 }
 
 /* Slot 220 */
@@ -2217,12 +2224,12 @@ Tcl_SetRecursionLimit(interp, depth)
 
 /* Slot 232 */
 void
-Tcl_SetResult(interp, string, freeProc)
+Tcl_SetResult(interp, str, freeProc)
     Tcl_Interp * interp;
-    char * string;
+    char * str;
     Tcl_FreeProc * freeProc;
 {
-    (tclStubsPtr->tcl_SetResult)(interp, string, freeProc);
+    (tclStubsPtr->tcl_SetResult)(interp, str, freeProc);
 }
 
 /* Slot 233 */
@@ -2309,19 +2316,19 @@ Tcl_SourceRCFile(interp)
 
 /* Slot 242 */
 int
-Tcl_SplitList(interp, list, argcPtr, argvPtr)
+Tcl_SplitList(interp, listStr, argcPtr, argvPtr)
     Tcl_Interp * interp;
-    char * list;
+    CONST char * listStr;
     int * argcPtr;
     char *** argvPtr;
 {
-    return (tclStubsPtr->tcl_SplitList)(interp, list, argcPtr, argvPtr);
+    return (tclStubsPtr->tcl_SplitList)(interp, listStr, argcPtr, argvPtr);
 }
 
 /* Slot 243 */
 void
 Tcl_SplitPath(path, argcPtr, argvPtr)
-    char * path;
+    CONST char * path;
     int * argcPtr;
     char *** argvPtr;
 {
@@ -2341,11 +2348,11 @@ Tcl_StaticPackage(interp, pkgName, initProc, safeInitProc)
 
 /* Slot 245 */
 int
-Tcl_StringMatch(string, pattern)
-    char * string;
-    char * pattern;
+Tcl_StringMatch(str, pattern)
+    CONST char * str;
+    CONST char * pattern;
 {
-    return (tclStubsPtr->tcl_StringMatch)(string, pattern);
+    return (tclStubsPtr->tcl_StringMatch)(str, pattern);
 }
 
 /* Slot 246 */
@@ -2385,7 +2392,7 @@ Tcl_TraceVar2(interp, part1, part2, flags, proc, clientData)
 char *
 Tcl_TranslateFileName(interp, name, bufferPtr)
     Tcl_Interp * interp;
-    char * name;
+    CONST char * name;
     Tcl_DString * bufferPtr;
 {
     return (tclStubsPtr->tcl_TranslateFileName)(interp, name, bufferPtr);
@@ -2606,12 +2613,12 @@ Tcl_HashStats(tablePtr)
 
 /* Slot 270 */
 char *
-Tcl_ParseVar(interp, string, termPtr)
+Tcl_ParseVar(interp, str, termPtr)
     Tcl_Interp * interp;
-    char * string;
+    char * str;
     char ** termPtr;
 {
-    return (tclStubsPtr->tcl_ParseVar)(interp, string, termPtr);
+    return (tclStubsPtr->tcl_ParseVar)(interp, str, termPtr);
 }
 
 /* Slot 271 */
@@ -2688,11 +2695,11 @@ Tcl_WaitPid(pid, statPtr, options)
 
 /* Slot 278 */
 void
-panicVA(format, argList)
+Tcl_PanicVA(format, argList)
     char * format;
     va_list argList;
 {
-    (tclStubsPtr->panicVA)(format, argList);
+    (tclStubsPtr->tcl_PanicVA)(format, argList);
 }
 
 /* Slot 279 */
@@ -2706,5 +2713,555 @@ Tcl_GetVersion(major, minor, patchLevel, type)
     (tclStubsPtr->tcl_GetVersion)(major, minor, patchLevel, type);
 }
 
+/* Slot 280 is reserved */
+/* Slot 281 is reserved */
+/* Slot 282 is reserved */
+/* Slot 283 is reserved */
+/* Slot 284 is reserved */
+/* Slot 285 is reserved */
+/* Slot 286 */
+void
+Tcl_AppendObjToObj(objPtr, appendObjPtr)
+    Tcl_Obj * objPtr;
+    Tcl_Obj * appendObjPtr;
+{
+    (tclStubsPtr->tcl_AppendObjToObj)(objPtr, appendObjPtr);
+}
+
+/* Slot 287 */
+Tcl_Encoding
+Tcl_CreateEncoding(typePtr)
+    Tcl_EncodingType * typePtr;
+{
+    return (tclStubsPtr->tcl_CreateEncoding)(typePtr);
+}
+
+/* Slot 288 */
+void
+Tcl_CreateThreadExitHandler(proc, clientData)
+    Tcl_ExitProc * proc;
+    ClientData clientData;
+{
+    (tclStubsPtr->tcl_CreateThreadExitHandler)(proc, clientData);
+}
+
+/* Slot 289 */
+void
+Tcl_DeleteThreadExitHandler(proc, clientData)
+    Tcl_ExitProc * proc;
+    ClientData clientData;
+{
+    (tclStubsPtr->tcl_DeleteThreadExitHandler)(proc, clientData);
+}
+
+/* Slot 290 */
+void
+Tcl_DiscardResult(statePtr)
+    Tcl_SavedResult * statePtr;
+{
+    (tclStubsPtr->tcl_DiscardResult)(statePtr);
+}
+
+/* Slot 291 */
+int
+Tcl_EvalEx(interp, script, numBytes, flags)
+    Tcl_Interp * interp;
+    char * script;
+    int numBytes;
+    int flags;
+{
+    return (tclStubsPtr->tcl_EvalEx)(interp, script, numBytes, flags);
+}
+
+/* Slot 292 */
+int
+Tcl_EvalObjv(interp, objc, objv, flags)
+    Tcl_Interp * interp;
+    int objc;
+    Tcl_Obj *CONST objv[];
+    int flags;
+{
+    return (tclStubsPtr->tcl_EvalObjv)(interp, objc, objv, flags);
+}
+
+/* Slot 293 */
+int
+Tcl_EvalObjEx(interp, objPtr, flags)
+    Tcl_Interp * interp;
+    Tcl_Obj * objPtr;
+    int flags;
+{
+    return (tclStubsPtr->tcl_EvalObjEx)(interp, objPtr, flags);
+}
+
+/* Slot 294 */
+void
+Tcl_ExitThread(status)
+    int status;
+{
+    (tclStubsPtr->tcl_ExitThread)(status);
+}
+
+/* Slot 295 */
+int
+Tcl_ExternalToUtf(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr)
+    Tcl_Interp * interp;
+    Tcl_Encoding encoding;
+    CONST char * src;
+    int srcLen;
+    int flags;
+    Tcl_EncodingState * statePtr;
+    char * dst;
+    int dstLen;
+    int * srcReadPtr;
+    int * dstWrotePtr;
+    int * dstCharsPtr;
+{
+    return (tclStubsPtr->tcl_ExternalToUtf)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr);
+}
+
+/* Slot 296 */
+char *
+Tcl_ExternalToUtfDString(encoding, src, srcLen, dsPtr)
+    Tcl_Encoding encoding;
+    CONST char * src;
+    int srcLen;
+    Tcl_DString * dsPtr;
+{
+    return (tclStubsPtr->tcl_ExternalToUtfDString)(encoding, src, srcLen, dsPtr);
+}
+
+/* Slot 297 */
+void
+Tcl_FinalizeThread()
+{
+    (tclStubsPtr->tcl_FinalizeThread)();
+}
+
+/* Slot 298 */
+void
+Tcl_FinalizeNotifier(clientData)
+    ClientData clientData;
+{
+    (tclStubsPtr->tcl_FinalizeNotifier)(clientData);
+}
+
+/* Slot 299 */
+void
+Tcl_FreeEncoding(encoding)
+    Tcl_Encoding encoding;
+{
+    (tclStubsPtr->tcl_FreeEncoding)(encoding);
+}
+
+/* Slot 300 */
+Tcl_ThreadId
+Tcl_GetCurrentThread()
+{
+    return (tclStubsPtr->tcl_GetCurrentThread)();
+}
+
+/* Slot 301 */
+Tcl_Encoding
+Tcl_GetEncoding(interp, name)
+    Tcl_Interp * interp;
+    CONST char * name;
+{
+    return (tclStubsPtr->tcl_GetEncoding)(interp, name);
+}
+
+/* Slot 302 */
+char *
+Tcl_GetEncodingName(encoding)
+    Tcl_Encoding encoding;
+{
+    return (tclStubsPtr->tcl_GetEncodingName)(encoding);
+}
+
+/* Slot 303 */
+void
+Tcl_GetEncodingNames(interp)
+    Tcl_Interp * interp;
+{
+    (tclStubsPtr->tcl_GetEncodingNames)(interp);
+}
+
+/* Slot 304 */
+int
+Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr)
+    Tcl_Interp * interp;
+    Tcl_Obj * objPtr;
+    char ** tablePtr;
+    int offset;
+    char * msg;
+    int flags;
+    int * indexPtr;
+{
+    return (tclStubsPtr->tcl_GetIndexFromObjStruct)(interp, objPtr, tablePtr, offset, msg, flags, indexPtr);
+}
+
+/* Slot 305 */
+VOID *
+Tcl_GetThreadData(keyPtr, size)
+    Tcl_ThreadDataKey * keyPtr;
+    int size;
+{
+    return (tclStubsPtr->tcl_GetThreadData)(keyPtr, size);
+}
+
+/* Slot 306 */
+Tcl_Obj *
+Tcl_GetVar2Ex(interp, part1, part2, flags)
+    Tcl_Interp * interp;
+    char * part1;
+    char * part2;
+    int flags;
+{
+    return (tclStubsPtr->tcl_GetVar2Ex)(interp, part1, part2, flags);
+}
+
+/* Slot 307 */
+ClientData
+Tcl_InitNotifier()
+{
+    return (tclStubsPtr->tcl_InitNotifier)();
+}
+
+/* Slot 308 */
+void
+Tcl_MutexLock(mutexPtr)
+    Tcl_Mutex * mutexPtr;
+{
+    (tclStubsPtr->tcl_MutexLock)(mutexPtr);
+}
+
+/* Slot 309 */
+void
+Tcl_MutexUnlock(mutexPtr)
+    Tcl_Mutex * mutexPtr;
+{
+    (tclStubsPtr->tcl_MutexUnlock)(mutexPtr);
+}
+
+/* Slot 310 */
+void
+Tcl_ConditionNotify(condPtr)
+    Tcl_Condition * condPtr;
+{
+    (tclStubsPtr->tcl_ConditionNotify)(condPtr);
+}
+
+/* Slot 311 */
+void
+Tcl_ConditionWait(condPtr, mutexPtr, timePtr)
+    Tcl_Condition * condPtr;
+    Tcl_Mutex * mutexPtr;
+    Tcl_Time * timePtr;
+{
+    (tclStubsPtr->tcl_ConditionWait)(condPtr, mutexPtr, timePtr);
+}
+
+/* Slot 312 */
+int
+Tcl_NumUtfChars(src, len)
+    CONST char * src;
+    int len;
+{
+    return (tclStubsPtr->tcl_NumUtfChars)(src, len);
+}
+
+/* Slot 313 */
+int
+Tcl_ReadChars(channel, objPtr, charsToRead, appendFlag)
+    Tcl_Channel channel;
+    Tcl_Obj * objPtr;
+    int charsToRead;
+    int appendFlag;
+{
+    return (tclStubsPtr->tcl_ReadChars)(channel, objPtr, charsToRead, appendFlag);
+}
+
+/* Slot 314 */
+void
+Tcl_RestoreResult(interp, statePtr)
+    Tcl_Interp * interp;
+    Tcl_SavedResult * statePtr;
+{
+    (tclStubsPtr->tcl_RestoreResult)(interp, statePtr);
+}
+
+/* Slot 315 */
+void
+Tcl_SaveResult(interp, statePtr)
+    Tcl_Interp * interp;
+    Tcl_SavedResult * statePtr;
+{
+    (tclStubsPtr->tcl_SaveResult)(interp, statePtr);
+}
+
+/* Slot 316 */
+int
+Tcl_SetSystemEncoding(interp, name)
+    Tcl_Interp * interp;
+    CONST char * name;
+{
+    return (tclStubsPtr->tcl_SetSystemEncoding)(interp, name);
+}
+
+/* Slot 317 */
+Tcl_Obj *
+Tcl_SetVar2Ex(interp, part1, part2, newValuePtr, flags)
+    Tcl_Interp * interp;
+    char * part1;
+    char * part2;
+    Tcl_Obj * newValuePtr;
+    int flags;
+{
+    return (tclStubsPtr->tcl_SetVar2Ex)(interp, part1, part2, newValuePtr, flags);
+}
+
+/* Slot 318 */
+void
+Tcl_ThreadAlert(threadId)
+    Tcl_ThreadId threadId;
+{
+    (tclStubsPtr->tcl_ThreadAlert)(threadId);
+}
+
+/* Slot 319 */
+void
+Tcl_ThreadQueueEvent(threadId, evPtr, position)
+    Tcl_ThreadId threadId;
+    Tcl_Event* evPtr;
+    Tcl_QueuePosition position;
+{
+    (tclStubsPtr->tcl_ThreadQueueEvent)(threadId, evPtr, position);
+}
+
+/* Slot 320 */
+Tcl_UniChar
+Tcl_UniCharAtIndex(src, index)
+    CONST char * src;
+    int index;
+{
+    return (tclStubsPtr->tcl_UniCharAtIndex)(src, index);
+}
+
+/* Slot 321 */
+Tcl_UniChar
+Tcl_UniCharToLower(ch)
+    int ch;
+{
+    return (tclStubsPtr->tcl_UniCharToLower)(ch);
+}
+
+/* Slot 322 */
+Tcl_UniChar
+Tcl_UniCharToTitle(ch)
+    int ch;
+{
+    return (tclStubsPtr->tcl_UniCharToTitle)(ch);
+}
+
+/* Slot 323 */
+Tcl_UniChar
+Tcl_UniCharToUpper(ch)
+    int ch;
+{
+    return (tclStubsPtr->tcl_UniCharToUpper)(ch);
+}
+
+/* Slot 324 */
+int
+Tcl_UniCharToUtf(ch, buf)
+    int ch;
+    char * buf;
+{
+    return (tclStubsPtr->tcl_UniCharToUtf)(ch, buf);
+}
+
+/* Slot 325 */
+char *
+Tcl_UtfAtIndex(src, index)
+    CONST char * src;
+    int index;
+{
+    return (tclStubsPtr->tcl_UtfAtIndex)(src, index);
+}
+
+/* Slot 326 */
+int
+Tcl_UtfCharComplete(src, len)
+    CONST char * src;
+    int len;
+{
+    return (tclStubsPtr->tcl_UtfCharComplete)(src, len);
+}
+
+/* Slot 327 */
+int
+Tcl_UtfBackslash(src, readPtr, dst)
+    CONST char * src;
+    int * readPtr;
+    char * dst;
+{
+    return (tclStubsPtr->tcl_UtfBackslash)(src, readPtr, dst);
+}
+
+/* Slot 328 */
+char *
+Tcl_UtfFindFirst(src, ch)
+    CONST char * src;
+    int ch;
+{
+    return (tclStubsPtr->tcl_UtfFindFirst)(src, ch);
+}
+
+/* Slot 329 */
+char *
+Tcl_UtfFindLast(src, ch)
+    CONST char * src;
+    int ch;
+{
+    return (tclStubsPtr->tcl_UtfFindLast)(src, ch);
+}
+
+/* Slot 330 */
+char *
+Tcl_UtfNext(src)
+    CONST char * src;
+{
+    return (tclStubsPtr->tcl_UtfNext)(src);
+}
+
+/* Slot 331 */
+char *
+Tcl_UtfPrev(src, start)
+    CONST char * src;
+    CONST char * start;
+{
+    return (tclStubsPtr->tcl_UtfPrev)(src, start);
+}
+
+/* Slot 332 */
+int
+Tcl_UtfToExternal(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr)
+    Tcl_Interp * interp;
+    Tcl_Encoding encoding;
+    CONST char * src;
+    int srcLen;
+    int flags;
+    Tcl_EncodingState * statePtr;
+    char * dst;
+    int dstLen;
+    int * srcReadPtr;
+    int * dstWrotePtr;
+    int * dstCharsPtr;
+{
+    return (tclStubsPtr->tcl_UtfToExternal)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr);
+}
+
+/* Slot 333 */
+char *
+Tcl_UtfToExternalDString(encoding, src, srcLen, dsPtr)
+    Tcl_Encoding encoding;
+    CONST char * src;
+    int srcLen;
+    Tcl_DString * dsPtr;
+{
+    return (tclStubsPtr->tcl_UtfToExternalDString)(encoding, src, srcLen, dsPtr);
+}
+
+/* Slot 334 */
+int
+Tcl_UtfToLower(src)
+    char * src;
+{
+    return (tclStubsPtr->tcl_UtfToLower)(src);
+}
+
+/* Slot 335 */
+int
+Tcl_UtfToTitle(src)
+    char * src;
+{
+    return (tclStubsPtr->tcl_UtfToTitle)(src);
+}
+
+/* Slot 336 */
+int
+Tcl_UtfToUniChar(src, chPtr)
+    CONST char * src;
+    Tcl_UniChar * chPtr;
+{
+    return (tclStubsPtr->tcl_UtfToUniChar)(src, chPtr);
+}
+
+/* Slot 337 */
+int
+Tcl_UtfToUpper(src)
+    char * src;
+{
+    return (tclStubsPtr->tcl_UtfToUpper)(src);
+}
+
+/* Slot 338 */
+int
+Tcl_WriteChars(chan, src, srcLen)
+    Tcl_Channel chan;
+    CONST char * src;
+    int srcLen;
+{
+    return (tclStubsPtr->tcl_WriteChars)(chan, src, srcLen);
+}
+
+/* Slot 339 */
+int
+Tcl_WriteObj(chan, objPtr)
+    Tcl_Channel chan;
+    Tcl_Obj * objPtr;
+{
+    return (tclStubsPtr->tcl_WriteObj)(chan, objPtr);
+}
+
+/* Slot 340 */
+char *
+Tcl_GetString(objPtr)
+    Tcl_Obj * objPtr;
+{
+    return (tclStubsPtr->tcl_GetString)(objPtr);
+}
+
+/* Slot 341 */
+char *
+Tcl_GetDefaultEncodingDir()
+{
+    return (tclStubsPtr->tcl_GetDefaultEncodingDir)();
+}
+
+/* Slot 342 */
+void
+Tcl_SetDefaultEncodingDir(path)
+    char * path;
+{
+    (tclStubsPtr->tcl_SetDefaultEncodingDir)(path);
+}
+
+/* Slot 343 */
+void
+Tcl_AlertNotifier(clientData)
+    ClientData clientData;
+{
+    (tclStubsPtr->tcl_AlertNotifier)(clientData);
+}
+
+/* Slot 344 */
+void
+Tcl_ServiceModeHook(mode)
+    int mode;
+{
+    (tclStubsPtr->tcl_ServiceModeHook)(mode);
+}
+
 
 /* !END!: Do not edit above this line. */