diff options
Diffstat (limited to 'generic/tcl.decls')
| -rw-r--r-- | generic/tcl.decls | 301 |
1 files changed, 249 insertions, 52 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 92ccdcf..574b49b 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -21,6 +21,7 @@ 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 @@ -28,15 +29,15 @@ hooks {tclPlat tclInt tclIntPlat} declare 0 { int Tcl_PkgProvideEx(Tcl_Interp *interp, const char *name, - const char *version, ClientData clientData) + const char *version, const void *clientData) } declare 1 { CONST84_RETURN char *Tcl_PkgRequireEx(Tcl_Interp *interp, const char *name, const char *version, int exact, - ClientData *clientDataPtr) + void *clientDataPtr) } declare 2 { - void Tcl_Panic(const char *format, ...) + TCL_NORETURN void Tcl_Panic(const char *format, ...) } declare 3 { char *Tcl_Alloc(unsigned int size) @@ -70,13 +71,13 @@ declare 10 unix { void Tcl_DeleteFileHandler(int fd) } declare 11 { - void Tcl_SetTimer(Tcl_Time *timePtr) + void Tcl_SetTimer(const Tcl_Time *timePtr) } declare 12 { void Tcl_Sleep(int ms) } declare 13 { - int Tcl_WaitForEvent(Tcl_Time *timePtr) + int Tcl_WaitForEvent(const Tcl_Time *timePtr) } declare 14 { int Tcl_AppendAllObjTypes(Tcl_Interp *interp, Tcl_Obj *objPtr) @@ -92,7 +93,7 @@ declare 17 { } declare 18 { int Tcl_ConvertToType(Tcl_Interp *interp, Tcl_Obj *objPtr, - Tcl_ObjType *typePtr) + const Tcl_ObjType *typePtr) } declare 19 { void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file, int line) @@ -153,7 +154,7 @@ declare 35 { } declare 36 { int Tcl_GetIndexFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - CONST84 char **tablePtr, const char *msg, int flags, int *indexPtr) + CONST84 char *const *tablePtr, const char *msg, int flags, int *indexPtr) } declare 37 { int Tcl_GetInt(Tcl_Interp *interp, const char *src, int *intPtr) @@ -165,7 +166,7 @@ declare 39 { int Tcl_GetLongFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr) } declare 40 { - Tcl_ObjType *Tcl_GetObjType(const char *typeName) + CONST86 Tcl_ObjType *Tcl_GetObjType(const char *typeName) } declare 41 { char *Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr) @@ -325,7 +326,7 @@ declare 87 { Tcl_Obj *const objv[]) } declare 88 { - Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr, + Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr, const char *chanName, ClientData instanceData, int mask) } declare 89 { @@ -479,7 +480,7 @@ declare 132 { void Tcl_EventuallyFree(ClientData clientData, Tcl_FreeProc *freeProc) } declare 133 { - void Tcl_Exit(int status) + TCL_NORETURN void Tcl_Exit(int status) } declare 134 { int Tcl_ExposeCommand(Tcl_Interp *interp, const char *hiddenCmdToken, @@ -565,7 +566,7 @@ declare 157 { const char *optionName, Tcl_DString *dsPtr) } declare 158 { - Tcl_ChannelType *Tcl_GetChannelType(Tcl_Channel chan) + CONST86 Tcl_ChannelType *Tcl_GetChannelType(Tcl_Channel chan) } declare 159 { int Tcl_GetCommandInfo(Tcl_Interp *interp, const char *cmdName, @@ -750,7 +751,7 @@ declare 210 { void Tcl_RegisterChannel(Tcl_Interp *interp, Tcl_Channel chan) } declare 211 { - void Tcl_RegisterObjType(Tcl_ObjType *typePtr) + void Tcl_RegisterObjType(const Tcl_ObjType *typePtr) } declare 212 { Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, const char *pattern) @@ -811,10 +812,10 @@ declare 228 { void Tcl_SetErrorCode(Tcl_Interp *interp, ...) } declare 229 { - void Tcl_SetMaxBlockTime(Tcl_Time *timePtr) + void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr) } declare 230 { - void Tcl_SetPanicProc(Tcl_PanicProc *panicProc) + void Tcl_SetPanicProc(TCL_NORETURN1 Tcl_PanicProc *panicProc) } declare 231 { int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth) @@ -964,7 +965,7 @@ declare 271 { declare 272 { CONST84_RETURN char *Tcl_PkgPresentEx(Tcl_Interp *interp, const char *name, const char *version, int exact, - ClientData *clientDataPtr) + void *clientDataPtr) } declare 273 { int Tcl_PkgProvide(Tcl_Interp *interp, const char *name, @@ -985,7 +986,7 @@ declare 277 { Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options) } declare 278 { - void Tcl_PanicVA(const char *format, va_list argList) + TCL_NORETURN void Tcl_PanicVA(const char *format, va_list argList) } declare 279 { void Tcl_GetVersion(int *major, int *minor, int *patchLevel, int *type) @@ -1010,7 +1011,7 @@ declare 280 { declare 281 { Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, - Tcl_ChannelType *typePtr, ClientData instanceData, + const Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan) } declare 282 { @@ -1117,7 +1118,7 @@ declare 310 { } declare 311 { void Tcl_ConditionWait(Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, - Tcl_Time *timePtr) + const Tcl_Time *timePtr) } declare 312 { int Tcl_NumUtfChars(const char *src, int length) @@ -1389,7 +1390,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) } @@ -1493,15 +1494,15 @@ declare 420 { const Tcl_UniChar *uniPattern, int nocase) } declare 421 { - Tcl_HashEntry *Tcl_FindHashEntry(Tcl_HashTable *tablePtr, const char *key) + Tcl_HashEntry *Tcl_FindHashEntry(Tcl_HashTable *tablePtr, const void *key) } declare 422 { Tcl_HashEntry *Tcl_CreateHashEntry(Tcl_HashTable *tablePtr, - const char *key, int *newPtr) + const void *key, int *newPtr) } declare 423 { void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, int keyType, - Tcl_HashKeyType *typePtr) + const Tcl_HashKeyType *typePtr) } declare 424 { void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr) @@ -1616,7 +1617,7 @@ declare 452 { int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr) } declare 453 { - const char **Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, + const char *CONST86 *Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef) } declare 454 { @@ -1656,7 +1657,7 @@ declare 464 { } declare 465 { ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr, - Tcl_Filesystem *fsPtr) + const Tcl_Filesystem *fsPtr) } declare 466 { Tcl_Obj *Tcl_FSGetTranslatedPath(Tcl_Interp *interp, Tcl_Obj *pathPtr) @@ -1665,11 +1666,11 @@ declare 467 { int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName) } declare 468 { - Tcl_Obj *Tcl_FSNewNativePath(Tcl_Filesystem *fromFilesystem, + Tcl_Obj *Tcl_FSNewNativePath(const Tcl_Filesystem *fromFilesystem, ClientData clientData) } declare 469 { - const char *Tcl_FSGetNativePath(Tcl_Obj *pathPtr) + const void *Tcl_FSGetNativePath(Tcl_Obj *pathPtr) } declare 470 { Tcl_Obj *Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr) @@ -1681,20 +1682,20 @@ declare 472 { Tcl_Obj *Tcl_FSListVolumes(void) } declare 473 { - int Tcl_FSRegister(ClientData clientData, Tcl_Filesystem *fsPtr) + int Tcl_FSRegister(ClientData clientData, const Tcl_Filesystem *fsPtr) } declare 474 { - int Tcl_FSUnregister(Tcl_Filesystem *fsPtr) + int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr) } declare 475 { - ClientData Tcl_FSData(Tcl_Filesystem *fsPtr) + ClientData Tcl_FSData(const Tcl_Filesystem *fsPtr) } declare 476 { const char *Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp, Tcl_Obj *pathPtr) } declare 477 { - Tcl_Filesystem *Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr) + CONST86 Tcl_Filesystem *Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr) } declare 478 { Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr) @@ -1705,7 +1706,7 @@ declare 479 { int Tcl_OutputBuffered(Tcl_Channel chan) } declare 480 { - void Tcl_FSMountsChanged(Tcl_Filesystem *fsPtr) + void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr) } # TIP#56 (evaluate a parsed script) msofer @@ -1813,7 +1814,7 @@ declare 504 { # TIP#59 (configuration reporting) akupries declare 505 { void Tcl_RegisterConfig(Tcl_Interp *interp, const char *pkgName, - Tcl_Config *configuration, const char *valEncoding) + const Tcl_Config *configuration, const char *valEncoding) } # TIP #139 (partial exposure of namespace API - transferred from tclInt.decls) @@ -1871,7 +1872,7 @@ declare 518 { # TIP#121 (exit handler) dkf for Joe Mistachkin declare 519 { - Tcl_ExitProc *Tcl_SetExitProc(Tcl_ExitProc *proc) + Tcl_ExitProc *Tcl_SetExitProc(TCL_NORETURN1 Tcl_ExitProc *proc) } # TIP#143 (resource limits) dkf @@ -2083,7 +2084,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[], ClientData *clientDataPtr) + int objc, Tcl_Obj *const objv[], void *clientDataPtr) } # TIP#270 (utility C routines for string formatting) dgp @@ -2108,10 +2109,223 @@ 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 TclUnusedStubEntry(void) + void Tcl_ZlibStreamSetCompressionDictionary(Tcl_ZlibStream zhandle, + Tcl_Obj *compressionDictionaryObj) } +# ----- BASELINE -- FOR -- 8.6.0 ----- # + ############################################################################## # Define the platform specific public Tcl interface. These functions are only @@ -2172,23 +2386,6 @@ 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: |