diff options
Diffstat (limited to 'generic/tcl.decls')
| -rw-r--r-- | generic/tcl.decls | 722 |
1 files changed, 114 insertions, 608 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 8355d99..a061c76 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -7,8 +7,6 @@ # # Copyright (c) 1998-1999 by Scriptics Corporation. # Copyright (c) 2001, 2002 by Kevin B. Kenny. All rights reserved. -# Copyright (c) 2007 Daniel A. Steffen <das@users.sourceforge.net> -# # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. @@ -21,7 +19,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,12 +26,12 @@ 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 { void Tcl_Panic(const char *format, ...) @@ -52,7 +49,7 @@ declare 6 { char *Tcl_DbCkalloc(unsigned int size, const char *file, int line) } declare 7 { - void Tcl_DbCkfree(char *ptr, const char *file, int line) + int Tcl_DbCkfree(char *ptr, const char *file, int line) } declare 8 { char *Tcl_DbCkrealloc(char *ptr, unsigned int size, @@ -71,13 +68,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 +90,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 +151,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 +163,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 +323,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 { @@ -411,7 +408,7 @@ declare 109 { declare 110 { void Tcl_DeleteInterp(Tcl_Interp *interp) } -declare 111 { +declare 111 {unix win} { void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr) } declare 112 { @@ -566,7 +563,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, @@ -702,7 +699,7 @@ declare 196 { Tcl_Obj *Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags) } -declare 197 { +declare 197 {unix win} { Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, CONST84 char **argv, int flags) } @@ -738,7 +735,7 @@ declare 205 { declare 206 { int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead) } -declare 207 { +declare 207 {unix win} { void Tcl_ReapDetachedProcs(void) } declare 208 { @@ -751,7 +748,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,7 +809,7 @@ 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_PanicProc *panicProc) @@ -965,7 +962,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, @@ -1011,7 +1008,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 { @@ -1036,7 +1033,7 @@ declare 286 { void Tcl_AppendObjToObj(Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr) } declare 287 { - Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr) + Tcl_Encoding Tcl_CreateEncoding(Tcl_EncodingType *typePtr) } declare 288 { void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, ClientData clientData) @@ -1118,7 +1115,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 +1387,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) } @@ -1408,59 +1405,59 @@ declare 397 { int Tcl_ChannelBuffered(Tcl_Channel chan) } declare 398 { - CONST84_RETURN char *Tcl_ChannelName(const Tcl_ChannelType *chanTypePtr) + CONST84_RETURN char *Tcl_ChannelName(Tcl_ChannelType *chanTypePtr) } declare 399 { Tcl_ChannelTypeVersion Tcl_ChannelVersion( - const Tcl_ChannelType *chanTypePtr) + Tcl_ChannelType *chanTypePtr) } declare 400 { Tcl_DriverBlockModeProc *Tcl_ChannelBlockModeProc( - const Tcl_ChannelType *chanTypePtr) + Tcl_ChannelType *chanTypePtr) } declare 401 { Tcl_DriverCloseProc *Tcl_ChannelCloseProc( - const Tcl_ChannelType *chanTypePtr) + Tcl_ChannelType *chanTypePtr) } declare 402 { Tcl_DriverClose2Proc *Tcl_ChannelClose2Proc( - const Tcl_ChannelType *chanTypePtr) + Tcl_ChannelType *chanTypePtr) } declare 403 { Tcl_DriverInputProc *Tcl_ChannelInputProc( - const Tcl_ChannelType *chanTypePtr) + Tcl_ChannelType *chanTypePtr) } declare 404 { Tcl_DriverOutputProc *Tcl_ChannelOutputProc( - const Tcl_ChannelType *chanTypePtr) + Tcl_ChannelType *chanTypePtr) } declare 405 { Tcl_DriverSeekProc *Tcl_ChannelSeekProc( - const Tcl_ChannelType *chanTypePtr) + Tcl_ChannelType *chanTypePtr) } declare 406 { Tcl_DriverSetOptionProc *Tcl_ChannelSetOptionProc( - const Tcl_ChannelType *chanTypePtr) + Tcl_ChannelType *chanTypePtr) } declare 407 { Tcl_DriverGetOptionProc *Tcl_ChannelGetOptionProc( - const Tcl_ChannelType *chanTypePtr) + Tcl_ChannelType *chanTypePtr) } declare 408 { Tcl_DriverWatchProc *Tcl_ChannelWatchProc( - const Tcl_ChannelType *chanTypePtr) + Tcl_ChannelType *chanTypePtr) } declare 409 { Tcl_DriverGetHandleProc *Tcl_ChannelGetHandleProc( - const Tcl_ChannelType *chanTypePtr) + Tcl_ChannelType *chanTypePtr) } declare 410 { Tcl_DriverFlushProc *Tcl_ChannelFlushProc( - const Tcl_ChannelType *chanTypePtr) + Tcl_ChannelType *chanTypePtr) } declare 411 { Tcl_DriverHandlerProc *Tcl_ChannelHandlerProc( - const Tcl_ChannelType *chanTypePtr) + Tcl_ChannelType *chanTypePtr) } # Introduced in 8.4a2 @@ -1494,15 +1491,16 @@ 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 +1615,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 +1655,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 +1664,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 +1680,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 +1704,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 @@ -1763,615 +1761,123 @@ declare 492 { # TIP#91 (back-compat enhancements for channels) dkf declare 493 { Tcl_DriverWideSeekProc *Tcl_ChannelWideSeekProc( - const Tcl_ChannelType *chanTypePtr) -} - -# ----- BASELINE -- FOR -- 8.4.0 ----- # - -# TIP#111 (dictionaries) dkf -declare 494 { - int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr, - Tcl_Obj *keyPtr, Tcl_Obj *valuePtr) -} -declare 495 { - int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, - Tcl_Obj **valuePtrPtr) -} -declare 496 { - int Tcl_DictObjRemove(Tcl_Interp *interp, Tcl_Obj *dictPtr, - Tcl_Obj *keyPtr) -} -declare 497 { - int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr) -} -declare 498 { - int Tcl_DictObjFirst(Tcl_Interp *interp, Tcl_Obj *dictPtr, - Tcl_DictSearch *searchPtr, - Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr) -} -declare 499 { - void Tcl_DictObjNext(Tcl_DictSearch *searchPtr, - Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr) -} -declare 500 { - void Tcl_DictObjDone(Tcl_DictSearch *searchPtr) -} -declare 501 { - int Tcl_DictObjPutKeyList(Tcl_Interp *interp, Tcl_Obj *dictPtr, - int keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr) -} -declare 502 { - int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp, Tcl_Obj *dictPtr, - int keyc, Tcl_Obj *const *keyv) -} -declare 503 { - Tcl_Obj *Tcl_NewDictObj(void) -} -declare 504 { - Tcl_Obj *Tcl_DbNewDictObj(const char *file, int line) -} - -# TIP#59 (configuration reporting) akupries -declare 505 { - void Tcl_RegisterConfig(Tcl_Interp *interp, const char *pkgName, - const Tcl_Config *configuration, const char *valEncoding) -} - -# TIP #139 (partial exposure of namespace API - transferred from tclInt.decls) -# dkf, API by Brent Welch? -declare 506 { - Tcl_Namespace *Tcl_CreateNamespace(Tcl_Interp *interp, const char *name, - ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc) -} -declare 507 { - void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr) -} -declare 508 { - int Tcl_AppendExportList(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - Tcl_Obj *objPtr) -} -declare 509 { - int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - const char *pattern, int resetListFirst) -} -declare 510 { - int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - const char *pattern, int allowOverwrite) -} -declare 511 { - int Tcl_ForgetImport(Tcl_Interp *interp, Tcl_Namespace *nsPtr, - const char *pattern) -} -declare 512 { - Tcl_Namespace *Tcl_GetCurrentNamespace(Tcl_Interp *interp) -} -declare 513 { - Tcl_Namespace *Tcl_GetGlobalNamespace(Tcl_Interp *interp) -} -declare 514 { - Tcl_Namespace *Tcl_FindNamespace(Tcl_Interp *interp, const char *name, - Tcl_Namespace *contextNsPtr, int flags) -} -declare 515 { - Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name, - Tcl_Namespace *contextNsPtr, int flags) -} -declare 516 { - Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr) -} -declare 517 { - void Tcl_GetCommandFullName(Tcl_Interp *interp, Tcl_Command command, - Tcl_Obj *objPtr) + Tcl_ChannelType *chanTypePtr) } -# TIP#137 (encoding-aware source command) dgp for Anton Kovalenko -declare 518 { - int Tcl_FSEvalFileEx(Tcl_Interp *interp, Tcl_Obj *fileName, - const char *encodingName) -} - -# TIP#121 (exit handler) dkf for Joe Mistachkin -declare 519 { - Tcl_ExitProc *Tcl_SetExitProc(Tcl_ExitProc *proc) -} - -# TIP#143 (resource limits) dkf -declare 520 { - void Tcl_LimitAddHandler(Tcl_Interp *interp, int type, - Tcl_LimitHandlerProc *handlerProc, ClientData clientData, - Tcl_LimitHandlerDeleteProc *deleteProc) -} -declare 521 { - void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type, - Tcl_LimitHandlerProc *handlerProc, ClientData clientData) -} -declare 522 { - int Tcl_LimitReady(Tcl_Interp *interp) -} -declare 523 { - int Tcl_LimitCheck(Tcl_Interp *interp) -} -declare 524 { - int Tcl_LimitExceeded(Tcl_Interp *interp) -} -declare 525 { - void Tcl_LimitSetCommands(Tcl_Interp *interp, int commandLimit) -} -declare 526 { - void Tcl_LimitSetTime(Tcl_Interp *interp, Tcl_Time *timeLimitPtr) -} -declare 527 { - void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type, int granularity) -} -declare 528 { - int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type) -} -declare 529 { - int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type) -} -declare 530 { - void Tcl_LimitTypeSet(Tcl_Interp *interp, int type) -} -declare 531 { - void Tcl_LimitTypeReset(Tcl_Interp *interp, int type) -} -declare 532 { - int Tcl_LimitGetCommands(Tcl_Interp *interp) -} -declare 533 { - void Tcl_LimitGetTime(Tcl_Interp *interp, Tcl_Time *timeLimitPtr) -} -declare 534 { - int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type) -} - -# TIP#226 (interpreter result state management) dgp -declare 535 { - Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status) -} -declare 536 { - int Tcl_RestoreInterpState(Tcl_Interp *interp, Tcl_InterpState state) -} -declare 537 { - void Tcl_DiscardInterpState(Tcl_InterpState state) -} - -# TIP#227 (return options interface) dgp -declare 538 { - int Tcl_SetReturnOptions(Tcl_Interp *interp, Tcl_Obj *options) -} -declare 539 { - Tcl_Obj *Tcl_GetReturnOptions(Tcl_Interp *interp, int result) -} - -# TIP#235 (ensembles) dkf -declare 540 { - int Tcl_IsEnsemble(Tcl_Command token) -} -declare 541 { - Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp, const char *name, - Tcl_Namespace *namespacePtr, int flags) -} -declare 542 { - Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp, Tcl_Obj *cmdNameObj, - int flags) -} -declare 543 { - int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp, Tcl_Command token, - Tcl_Obj *subcmdList) -} -declare 544 { - int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp, Tcl_Command token, - Tcl_Obj *mapDict) -} -declare 545 { - int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp, Tcl_Command token, - Tcl_Obj *unknownList) -} -declare 546 { - int Tcl_SetEnsembleFlags(Tcl_Interp *interp, Tcl_Command token, int flags) -} -declare 547 { - int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp, Tcl_Command token, - Tcl_Obj **subcmdListPtr) -} -declare 548 { - int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp, Tcl_Command token, - Tcl_Obj **mapDictPtr) -} -declare 549 { - int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp, Tcl_Command token, - Tcl_Obj **unknownListPtr) -} -declare 550 { - int Tcl_GetEnsembleFlags(Tcl_Interp *interp, Tcl_Command token, - int *flagsPtr) -} -declare 551 { - int Tcl_GetEnsembleNamespace(Tcl_Interp *interp, Tcl_Command token, - Tcl_Namespace **namespacePtrPtr) -} - -# TIP#233 (virtualized time) akupries -declare 552 { - void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc, - Tcl_ScaleTimeProc *scaleProc, - ClientData clientData) -} -declare 553 { - void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc, - Tcl_ScaleTimeProc **scaleProc, - ClientData *clientData) -} +# Slots 494 to 553 are taken already by 8.5 +# #111 - Dicts (494 ... 504) +# #59 - Config (505) +# #139 - Namespace API (506 ... 517) +# #137 - source -encoding (518) +# #121 - ExitProc (519) +# #121 - Resource Limits (520 ... 534) +# #226 - S/R Interp State (535 ... 537) +# #227 - S/G Return Opts (538 ... 539) +# #235 - Ensemble C API (540 ... 551) +# #233 - Virtualized Time (552 ... 553) # TIP#218 (driver thread actions) davygrvy/akupries ChannelType ver 4 declare 554 { Tcl_DriverThreadActionProc *Tcl_ChannelThreadActionProc( - const Tcl_ChannelType *chanTypePtr) -} - -# TIP#237 (arbitrary-precision integers) kbk -declare 555 { - Tcl_Obj *Tcl_NewBignumObj(mp_int *value) -} -declare 556 { - Tcl_Obj *Tcl_DbNewBignumObj(mp_int *value, const char *file, int line) -} -declare 557 { - void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value) -} -declare 558 { - int Tcl_GetBignumFromObj(Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value) -} -declare 559 { - int Tcl_TakeBignumFromObj(Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value) + Tcl_ChannelType *chanTypePtr) } -# TIP #208 ('chan' command) jeffh -declare 560 { - int Tcl_TruncateChannel(Tcl_Channel chan, Tcl_WideInt length) -} -declare 561 { - Tcl_DriverTruncateProc *Tcl_ChannelTruncateProc( - const Tcl_ChannelType *chanTypePtr) -} - -# TIP#219 (channel reflection api) akupries -declare 562 { - void Tcl_SetChannelErrorInterp(Tcl_Interp *interp, Tcl_Obj *msg) -} -declare 563 { - void Tcl_GetChannelErrorInterp(Tcl_Interp *interp, Tcl_Obj **msg) -} -declare 564 { - void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg) -} -declare 565 { - void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg) -} - -# TIP #237 (additional conversion functions for bignum support) kbk/dgp -declare 566 { - int Tcl_InitBignumFromDouble(Tcl_Interp *interp, double initval, - mp_int *toInit) -} - -# TIP#181 (namespace unknown command) dgp for Neil Madden -declare 567 { - Tcl_Obj *Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp, - Tcl_Namespace *nsPtr) -} -declare 568 { - int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp, - Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr) -} - -# TIP#258 (enhanced interface for encodings) dgp -declare 569 { - int Tcl_GetEncodingFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - Tcl_Encoding *encodingPtr) -} -declare 570 { - Tcl_Obj *Tcl_GetEncodingSearchPath(void) -} -declare 571 { - int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath) -} -declare 572 { - const char *Tcl_GetEncodingNameFromEnvironment(Tcl_DString *bufPtr) -} +# Slots 555 to 572 are taken already by 8.5 +# TIP #237: Arbitrary-prec Integers (555 ... 559) +# TIP #208: 'chan' Command (560 ... 561) +# TIP #219: Channel Reflection (562 ... 565) +# TIP #237: Add. bignum support (566) +# TIP #181: 'namespace unknown' Cmd (567 ... 568) +# TIP #258: Enhanced Encodings API (569 ... 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) -} - -# TIP#270 (utility C routines for string formatting) dgp -declare 574 { - void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp, Tcl_Obj *objPtr) -} -declare 575 { - void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr, const char *bytes, int length, - int limit, const char *ellipsis) -} -declare 576 { - Tcl_Obj *Tcl_Format(Tcl_Interp *interp, const char *format, int objc, - Tcl_Obj *const objv[]) -} -declare 577 { - int Tcl_AppendFormatToObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - const char *format, int objc, Tcl_Obj *const objv[]) -} -declare 578 { - Tcl_Obj *Tcl_ObjPrintf(const char *format, ...) + int objc, Tcl_Obj *const objv[], ClientData *clientDataPtr) } -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) -} +# Define the platform specific public Tcl interface. These functions are +# only available on the designated platform. -# 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) -} +interface tclPlat -# 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) -} +################################ +# Windows specific functions -# 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) -} +# Added in Tcl 8.1 -# TIP#336 (manipulate the error line) dgp -declare 605 { - int Tcl_GetErrorLine(Tcl_Interp *interp) +declare 0 win { + TCHAR *Tcl_WinUtfToTChar(const char *str, int len, Tcl_DString *dsPtr) } -declare 606 { - void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum) +declare 1 win { + char *Tcl_WinTCharToUtf(const TCHAR *str, int len, Tcl_DString *dsPtr) } -# TIP#307 (move results between interpreters) dkf -declare 607 { - void Tcl_TransferResult(Tcl_Interp *sourceInterp, int result, - Tcl_Interp *targetInterp) -} +################## +# Mac declarations -# TIP#335 (detect if interpreter in use) jmistachkin -declare 608 { - int Tcl_InterpActive(Tcl_Interp *interp) +# This is needed by the shells to handle Macintosh events. + +declare 0 mac { + void Tcl_MacSetEventProc(Tcl_MacConvertEventPtr procPtr) } -# TIP#337 (log exception for background processing) dgp -declare 609 { - void Tcl_BackgroundException(Tcl_Interp *interp, int code) -} +# These routines are useful for handling using scripts from resources +# in the application shell -# 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 1 mac { + char *Tcl_MacConvertTextResource(Handle resource) } -declare 617 { - int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle) +declare 2 mac { + int Tcl_MacEvalResource(Tcl_Interp *interp, const char *resourceName, + int resourceNumber, const char *fileName) } -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) +declare 3 mac { + Handle Tcl_MacFindResource(Tcl_Interp *interp, long resourceType, + const char *resourceName, int resourceNumber, + const char *resFileRef, int *releaseIt) } -# 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) -} +# These routines support the new OSType object type (i.e. the packed 4 +# character type and creator codes). -# TIP#332 (half-close made public) aferrieux -declare 624 { - int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan, int flags) +declare 4 mac { + int Tcl_GetOSTypeFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, + OSType *osTypePtr) } - -# TIP #353 (NR-enabled expressions) dgp -declare 625 { - int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr) +declare 5 mac { + void Tcl_SetOSTypeObj(Tcl_Obj *objPtr, OSType osType) } - -# TIP #356 (NR-enabled substitution) dgp -declare 626 { - int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags) +declare 6 mac { + Tcl_Obj *Tcl_NewOSTypeObj(OSType osType) } -# 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) +# These are not in MSL 2.1.2, so we need to export them from the +# Tcl shared library. They are found in the compat directory. + +declare 7 mac { + int strncasecmp(const char *s1, const char *s2, size_t n) } -declare 629 { - int Tcl_FSUnloadFile(Tcl_Interp *interp, Tcl_LoadHandle handlePtr) -} - -# ----- BASELINE -- FOR -- 8.6.0 ----- # - -############################################################################## - -# Define the platform specific public Tcl interface. These functions are only -# available on the designated platform. - -interface tclPlat - -################################ -# Unix specific functions -# (none) - -################################ -# Windows specific functions - -# Added in Tcl 8.1 - -declare 0 win { - TCHAR *Tcl_WinUtfToTChar(const char *str, int len, Tcl_DString *dsPtr) -} -declare 1 win { - char *Tcl_WinTCharToUtf(const TCHAR *str, int len, Tcl_DString *dsPtr) +declare 8 mac { + int strcasecmp(const char *s1, const char *s2) } ################################ # Mac OS X specific functions -declare 0 {unix macosx} { +declare 0 unix { int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp, const char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPath) } -declare 1 {unix macosx} { +declare 1 unix { int Tcl_MacOSXOpenVersionedBundleResources(Tcl_Interp *interp, const char *bundleName, const char *bundleVersion, int hasResourceFile, int maxPathLen, char *libraryPath) } -############################################################################## - -# Public functions that are not accessible via the stubs table. - -export { - void Tcl_Main(int argc, char **argv, Tcl_AppInitProc *appInitProc) -} -export { - const char *Tcl_PkgInitStubsCheck(Tcl_Interp *interp, const char *version, - int exact) -} -export { - void Tcl_GetMemoryInfo(Tcl_DString *dsPtr) -} - # Local Variables: # mode: tcl # End: |