diff options
Diffstat (limited to 'generic/tclStubs.c')
| -rw-r--r-- | generic/tclStubs.c | 685 |
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. */ |