diff options
Diffstat (limited to 'generic/tcl.decls')
| -rw-r--r-- | generic/tcl.decls | 312 |
1 files changed, 52 insertions, 260 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index ba047a0..92ccdcf 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -21,7 +21,6 @@ library tcl interface tcl hooks {tclPlat tclInt tclIntPlat} -scspec EXTERN # Declare each of the functions in the public Tcl interface. Note that # the an index should never be reused for a different function in order @@ -29,15 +28,15 @@ scspec EXTERN declare 0 { int Tcl_PkgProvideEx(Tcl_Interp *interp, const char *name, - const char *version, const void *clientData) + const char *version, ClientData clientData) } declare 1 { CONST84_RETURN char *Tcl_PkgRequireEx(Tcl_Interp *interp, const char *name, const char *version, int exact, - void *clientDataPtr) + ClientData *clientDataPtr) } declare 2 { - TCL_NORETURN void Tcl_Panic(const char *format, ...) + void Tcl_Panic(const char *format, ...) } declare 3 { char *Tcl_Alloc(unsigned int size) @@ -71,13 +70,13 @@ declare 10 unix { void Tcl_DeleteFileHandler(int fd) } declare 11 { - void Tcl_SetTimer(const Tcl_Time *timePtr) + void Tcl_SetTimer(Tcl_Time *timePtr) } declare 12 { void Tcl_Sleep(int ms) } declare 13 { - int Tcl_WaitForEvent(const Tcl_Time *timePtr) + int Tcl_WaitForEvent(Tcl_Time *timePtr) } declare 14 { int Tcl_AppendAllObjTypes(Tcl_Interp *interp, Tcl_Obj *objPtr) @@ -93,7 +92,7 @@ declare 17 { } declare 18 { int Tcl_ConvertToType(Tcl_Interp *interp, Tcl_Obj *objPtr, - const Tcl_ObjType *typePtr) + Tcl_ObjType *typePtr) } declare 19 { void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file, int line) @@ -154,7 +153,7 @@ declare 35 { } declare 36 { int Tcl_GetIndexFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - CONST84 char *const *tablePtr, const char *msg, int flags, int *indexPtr) + CONST84 char **tablePtr, const char *msg, int flags, int *indexPtr) } declare 37 { int Tcl_GetInt(Tcl_Interp *interp, const char *src, int *intPtr) @@ -166,7 +165,7 @@ declare 39 { int Tcl_GetLongFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr) } declare 40 { - CONST86 Tcl_ObjType *Tcl_GetObjType(const char *typeName) + Tcl_ObjType *Tcl_GetObjType(const char *typeName) } declare 41 { char *Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr) @@ -326,7 +325,7 @@ declare 87 { Tcl_Obj *const objv[]) } declare 88 { - Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr, + Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr, const char *chanName, ClientData instanceData, int mask) } declare 89 { @@ -480,7 +479,7 @@ declare 132 { void Tcl_EventuallyFree(ClientData clientData, Tcl_FreeProc *freeProc) } declare 133 { - TCL_NORETURN void Tcl_Exit(int status) + void Tcl_Exit(int status) } declare 134 { int Tcl_ExposeCommand(Tcl_Interp *interp, const char *hiddenCmdToken, @@ -566,7 +565,7 @@ declare 157 { const char *optionName, Tcl_DString *dsPtr) } declare 158 { - CONST86 Tcl_ChannelType *Tcl_GetChannelType(Tcl_Channel chan) + Tcl_ChannelType *Tcl_GetChannelType(Tcl_Channel chan) } declare 159 { int Tcl_GetCommandInfo(Tcl_Interp *interp, const char *cmdName, @@ -751,7 +750,7 @@ declare 210 { void Tcl_RegisterChannel(Tcl_Interp *interp, Tcl_Channel chan) } declare 211 { - void Tcl_RegisterObjType(const Tcl_ObjType *typePtr) + void Tcl_RegisterObjType(Tcl_ObjType *typePtr) } declare 212 { Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, const char *pattern) @@ -812,10 +811,10 @@ declare 228 { void Tcl_SetErrorCode(Tcl_Interp *interp, ...) } declare 229 { - void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr) + void Tcl_SetMaxBlockTime(Tcl_Time *timePtr) } declare 230 { - void Tcl_SetPanicProc(TCL_NORETURN1 Tcl_PanicProc *panicProc) + void Tcl_SetPanicProc(Tcl_PanicProc *panicProc) } declare 231 { int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth) @@ -965,7 +964,7 @@ declare 271 { declare 272 { CONST84_RETURN char *Tcl_PkgPresentEx(Tcl_Interp *interp, const char *name, const char *version, int exact, - void *clientDataPtr) + ClientData *clientDataPtr) } declare 273 { int Tcl_PkgProvide(Tcl_Interp *interp, const char *name, @@ -986,7 +985,7 @@ declare 277 { Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options) } declare 278 { - TCL_NORETURN void Tcl_PanicVA(const char *format, va_list argList) + void Tcl_PanicVA(const char *format, va_list argList) } declare 279 { void Tcl_GetVersion(int *major, int *minor, int *patchLevel, int *type) @@ -1011,7 +1010,7 @@ declare 280 { declare 281 { Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, - const Tcl_ChannelType *typePtr, ClientData instanceData, + Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan) } declare 282 { @@ -1118,7 +1117,7 @@ declare 310 { } declare 311 { void Tcl_ConditionWait(Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, - const Tcl_Time *timePtr) + Tcl_Time *timePtr) } declare 312 { int Tcl_NumUtfChars(const char *src, int length) @@ -1390,7 +1389,7 @@ declare 392 { void Tcl_MutexFinalize(Tcl_Mutex *mutex) } declare 393 { - int Tcl_CreateThread(Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc, + int Tcl_CreateThread(Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc proc, ClientData clientData, int stackSize, int flags) } @@ -1494,15 +1493,15 @@ declare 420 { const Tcl_UniChar *uniPattern, int nocase) } declare 421 { - Tcl_HashEntry *Tcl_FindHashEntry(Tcl_HashTable *tablePtr, const void *key) + Tcl_HashEntry *Tcl_FindHashEntry(Tcl_HashTable *tablePtr, const char *key) } declare 422 { Tcl_HashEntry *Tcl_CreateHashEntry(Tcl_HashTable *tablePtr, - const void *key, int *newPtr) + const char *key, int *newPtr) } declare 423 { void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, int keyType, - const Tcl_HashKeyType *typePtr) + Tcl_HashKeyType *typePtr) } declare 424 { void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr) @@ -1617,7 +1616,7 @@ declare 452 { int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr) } declare 453 { - const char *CONST86 *Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, + const char **Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef) } declare 454 { @@ -1657,7 +1656,7 @@ declare 464 { } declare 465 { ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr, - const Tcl_Filesystem *fsPtr) + Tcl_Filesystem *fsPtr) } declare 466 { Tcl_Obj *Tcl_FSGetTranslatedPath(Tcl_Interp *interp, Tcl_Obj *pathPtr) @@ -1666,11 +1665,11 @@ declare 467 { int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName) } declare 468 { - Tcl_Obj *Tcl_FSNewNativePath(const Tcl_Filesystem *fromFilesystem, + Tcl_Obj *Tcl_FSNewNativePath(Tcl_Filesystem *fromFilesystem, ClientData clientData) } declare 469 { - const void *Tcl_FSGetNativePath(Tcl_Obj *pathPtr) + const char *Tcl_FSGetNativePath(Tcl_Obj *pathPtr) } declare 470 { Tcl_Obj *Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr) @@ -1682,20 +1681,20 @@ declare 472 { Tcl_Obj *Tcl_FSListVolumes(void) } declare 473 { - int Tcl_FSRegister(ClientData clientData, const Tcl_Filesystem *fsPtr) + int Tcl_FSRegister(ClientData clientData, Tcl_Filesystem *fsPtr) } declare 474 { - int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr) + int Tcl_FSUnregister(Tcl_Filesystem *fsPtr) } declare 475 { - ClientData Tcl_FSData(const Tcl_Filesystem *fsPtr) + ClientData Tcl_FSData(Tcl_Filesystem *fsPtr) } declare 476 { const char *Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp, Tcl_Obj *pathPtr) } declare 477 { - CONST86 Tcl_Filesystem *Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr) + Tcl_Filesystem *Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr) } declare 478 { Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr) @@ -1706,7 +1705,7 @@ declare 479 { int Tcl_OutputBuffered(Tcl_Channel chan) } declare 480 { - void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr) + void Tcl_FSMountsChanged(Tcl_Filesystem *fsPtr) } # TIP#56 (evaluate a parsed script) msofer @@ -1814,7 +1813,7 @@ declare 504 { # TIP#59 (configuration reporting) akupries declare 505 { void Tcl_RegisterConfig(Tcl_Interp *interp, const char *pkgName, - const Tcl_Config *configuration, const char *valEncoding) + Tcl_Config *configuration, const char *valEncoding) } # TIP #139 (partial exposure of namespace API - transferred from tclInt.decls) @@ -1872,7 +1871,7 @@ declare 518 { # TIP#121 (exit handler) dkf for Joe Mistachkin declare 519 { - Tcl_ExitProc *Tcl_SetExitProc(TCL_NORETURN1 Tcl_ExitProc *proc) + Tcl_ExitProc *Tcl_SetExitProc(Tcl_ExitProc *proc) } # TIP#143 (resource limits) dkf @@ -2084,7 +2083,7 @@ declare 572 { # TIP#268 (extended version numbers and requirements) akupries declare 573 { int Tcl_PkgRequireProc(Tcl_Interp *interp, const char *name, - int objc, Tcl_Obj *const objv[], void *clientDataPtr) + int objc, Tcl_Obj *const objv[], ClientData *clientDataPtr) } # TIP#270 (utility C routines for string formatting) dgp @@ -2109,234 +2108,10 @@ declare 578 { declare 579 { void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, const char *format, ...) } - -# ----- BASELINE -- FOR -- 8.5.0 ----- # - -# TIP #285 (script cancellation support) jmistachkin -declare 580 { - int Tcl_CancelEval(Tcl_Interp *interp, Tcl_Obj *resultObjPtr, - ClientData clientData, int flags) -} -declare 581 { - int Tcl_Canceled(Tcl_Interp *interp, int flags) -} - -# TIP#304 (chan pipe) aferrieux -declare 582 { - int Tcl_CreatePipe(Tcl_Interp *interp, Tcl_Channel *rchan, - Tcl_Channel *wchan, int flags) -} - -# TIP #322 (NRE public interface) msofer -declare 583 { - Tcl_Command Tcl_NRCreateCommand(Tcl_Interp *interp, - const char *cmdName, Tcl_ObjCmdProc *proc, - Tcl_ObjCmdProc *nreProc, ClientData clientData, - Tcl_CmdDeleteProc *deleteProc) -} -declare 584 { - int Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags) -} -declare 585 { - int Tcl_NREvalObjv(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], - int flags) -} -declare 586 { - int Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd, int objc, - Tcl_Obj *const objv[], int flags) -} -declare 587 { - void Tcl_NRAddCallback(Tcl_Interp *interp, Tcl_NRPostProc *postProcPtr, - ClientData data0, ClientData data1, ClientData data2, - ClientData data3) -} -# For use by NR extenders, to have a simple way to also provide a (required!) -# classic objProc -declare 588 { - int Tcl_NRCallObjProc(Tcl_Interp *interp, Tcl_ObjCmdProc *objProc, - ClientData clientData, int objc, Tcl_Obj *const objv[]) -} - -# TIP#316 (Tcl_StatBuf reader functions) dkf -declare 589 { - unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr) -} -declare 590 { - unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr) -} -declare 591 { - unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr) -} -declare 592 { - int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr) -} -declare 593 { - int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr) -} -declare 594 { - int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr) -} -declare 595 { - int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr) -} -declare 596 { - Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr) -} -declare 597 { - Tcl_WideInt Tcl_GetModificationTimeFromStat(const Tcl_StatBuf *statPtr) -} -declare 598 { - Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr) -} -declare 599 { - Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr) -} -declare 600 { - Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr) -} -declare 601 { - unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr) -} - -# TIP#314 (ensembles with parameters) dkf for Lars Hellstr"om -declare 602 { - int Tcl_SetEnsembleParameterList(Tcl_Interp *interp, Tcl_Command token, - Tcl_Obj *paramList) -} -declare 603 { - int Tcl_GetEnsembleParameterList(Tcl_Interp *interp, Tcl_Command token, - Tcl_Obj **paramListPtr) -} - -# TIP#265 (option parser) dkf for Sam Bromley -declare 604 { - int Tcl_ParseArgsObjv(Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, - int *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv) -} - -# TIP#336 (manipulate the error line) dgp -declare 605 { - int Tcl_GetErrorLine(Tcl_Interp *interp) -} -declare 606 { - void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum) -} - -# TIP#307 (move results between interpreters) dkf -declare 607 { - void Tcl_TransferResult(Tcl_Interp *sourceInterp, int result, - Tcl_Interp *targetInterp) -} - -# TIP#335 (detect if interpreter in use) jmistachkin -declare 608 { - int Tcl_InterpActive(Tcl_Interp *interp) -} - -# TIP#337 (log exception for background processing) dgp -declare 609 { - void Tcl_BackgroundException(Tcl_Interp *interp, int code) -} - -# TIP#234 (zlib interface) dkf/Pascal Scheffers -declare 610 { - int Tcl_ZlibDeflate(Tcl_Interp *interp, int format, Tcl_Obj *data, - int level, Tcl_Obj *gzipHeaderDictObj) -} -declare 611 { - int Tcl_ZlibInflate(Tcl_Interp *interp, int format, Tcl_Obj *data, - int buffersize, Tcl_Obj *gzipHeaderDictObj) -} -declare 612 { - unsigned int Tcl_ZlibCRC32(unsigned int crc, const unsigned char *buf, - int len) -} -declare 613 { - unsigned int Tcl_ZlibAdler32(unsigned int adler, const unsigned char *buf, - int len) -} -declare 614 { - int Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode, int format, - int level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle) -} -declare 615 { - Tcl_Obj *Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle) -} -declare 616 { - int Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle) -} -declare 617 { - int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle) -} -declare 618 { - int Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle, Tcl_Obj *data, int flush) -} -declare 619 { - int Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle, Tcl_Obj *data, int count) -} -declare 620 { - int Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle) -} -declare 621 { - int Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle) -} - -# TIP 338 (control over startup script) dgp -declare 622 { - void Tcl_SetStartupScript(Tcl_Obj *path, const char *encoding) -} -declare 623 { - Tcl_Obj *Tcl_GetStartupScript(const char **encodingPtr) -} - -# TIP#332 (half-close made public) aferrieux -declare 624 { - int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan, int flags) -} - -# TIP #353 (NR-enabled expressions) dgp -declare 625 { - int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr) -} - -# TIP #356 (NR-enabled substitution) dgp -declare 626 { - int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags) -} - -# TIP #357 (Export TclLoadFile and TclpFindSymbol) kbk -declare 627 { - int Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, - const char *const symv[], int flags, void *procPtrs, - Tcl_LoadHandle *handlePtr) -} -declare 628 { - void *Tcl_FindSymbol(Tcl_Interp *interp, Tcl_LoadHandle handle, - const char *symbol) -} -declare 629 { - int Tcl_FSUnloadFile(Tcl_Interp *interp, Tcl_LoadHandle handlePtr) -} - -# TIP #400 declare 630 { - void Tcl_ZlibStreamSetCompressionDictionary(Tcl_ZlibStream zhandle, - Tcl_Obj *compressionDictionaryObj) + void TclUnusedStubEntry(void) } -# ----- BASELINE -- FOR -- 8.6.0 ----- # - -# TIP #456 -declare 631 { - Tcl_Channel Tcl_OpenTcpServerEx(Tcl_Interp *interp, const char *service, - const char *host, unsigned int flags, Tcl_TcpAcceptProc *acceptProc, - ClientData callbackData) -} - -# ----- BASELINE -- FOR -- 8.7.0 ----- # - - - ############################################################################## # Define the platform specific public Tcl interface. These functions are only @@ -2397,6 +2172,23 @@ export { void Tcl_GetMemoryInfo(Tcl_DString *dsPtr) } +# Global variables that need to be exported from the tcl shared library. + +export { + TclStubs *tclStubsPtr (fool checkstubs) +} +export { + TclPlatStubs *tclPlatStubsPtr (fool checkstubs) +} +export { + TclIntStubs *tclIntStubsPtr (fool checkstubs) +} +export { + TclIntPlatStubs *tclIntPlatStubsPtr (fool checkstubs) +} +export { + TclTomMathStubs *tclTomMathStubsPtr (fool checkstubs) +} # Local Variables: # mode: tcl # End: |