diff options
Diffstat (limited to 'generic/tcl.decls')
| -rw-r--r-- | generic/tcl.decls | 431 |
1 files changed, 396 insertions, 35 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index b8d8d7d..7f49002 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -7,6 +7,8 @@ # # 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. @@ -1033,7 +1035,7 @@ declare 286 { void Tcl_AppendObjToObj(Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr) } declare 287 { - Tcl_Encoding Tcl_CreateEncoding(Tcl_EncodingType *typePtr) + Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr) } declare 288 { void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, ClientData clientData) @@ -1405,59 +1407,59 @@ declare 397 { int Tcl_ChannelBuffered(Tcl_Channel chan) } declare 398 { - CONST84_RETURN char *Tcl_ChannelName(Tcl_ChannelType *chanTypePtr) + CONST84_RETURN char *Tcl_ChannelName(const Tcl_ChannelType *chanTypePtr) } declare 399 { Tcl_ChannelTypeVersion Tcl_ChannelVersion( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } declare 400 { Tcl_DriverBlockModeProc *Tcl_ChannelBlockModeProc( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } declare 401 { Tcl_DriverCloseProc *Tcl_ChannelCloseProc( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } declare 402 { Tcl_DriverClose2Proc *Tcl_ChannelClose2Proc( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } declare 403 { Tcl_DriverInputProc *Tcl_ChannelInputProc( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } declare 404 { Tcl_DriverOutputProc *Tcl_ChannelOutputProc( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } declare 405 { Tcl_DriverSeekProc *Tcl_ChannelSeekProc( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } declare 406 { Tcl_DriverSetOptionProc *Tcl_ChannelSetOptionProc( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } declare 407 { Tcl_DriverGetOptionProc *Tcl_ChannelGetOptionProc( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } declare 408 { Tcl_DriverWatchProc *Tcl_ChannelWatchProc( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } declare 409 { Tcl_DriverGetHandleProc *Tcl_ChannelGetHandleProc( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } declare 410 { Tcl_DriverFlushProc *Tcl_ChannelFlushProc( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } declare 411 { Tcl_DriverHandlerProc *Tcl_ChannelHandlerProc( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } # Introduced in 8.4a2 @@ -1760,34 +1762,323 @@ declare 492 { # TIP#91 (back-compat enhancements for channels) dkf declare 493 { Tcl_DriverWideSeekProc *Tcl_ChannelWideSeekProc( - Tcl_ChannelType *chanTypePtr) + 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, + 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) +} + +# TIP#137 (encoding-aware source command) dgp for Anton Kovalenko +declare 518 { + int Tcl_FSEvalFileEx(Tcl_Interp *interp, Tcl_Obj *fileName, + const char *encodingName) } -# 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#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) +} # TIP#218 (driver thread actions) davygrvy/akupries ChannelType ver 4 declare 554 { Tcl_DriverThreadActionProc *Tcl_ChannelThreadActionProc( - Tcl_ChannelType *chanTypePtr) + const Tcl_ChannelType *chanTypePtr) } -# 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#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) +} + +# 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) +} # TIP#268 (extended version numbers and requirements) akupries declare 573 { @@ -1795,6 +2086,28 @@ declare 573 { int objc, Tcl_Obj *const objv[], ClientData *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, ...) +} +declare 579 { + void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, const char *format, ...) +} declare 630 { void TclUnusedStubEntry(void) } @@ -1836,6 +2149,54 @@ declare 1 macosx { 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_InitStubs(Tcl_Interp *interp, const char *version, + int exact) +} +export { + const char *TclTomMathInitializeStubs(Tcl_Interp* interp, + const char* version, int epoch, int revision) +} +export { + const char *Tcl_PkgInitStubsCheck(Tcl_Interp *interp, const char *version, + int exact) +} +export { + void Tcl_GetMemoryInfo(Tcl_DString *dsPtr) +} +export { + const char *Tcl_InitStubs(Tcl_Interp *interp, const char *version, + int exact) +} +export { + const char *TclTomMathInitializeStubs(Tcl_Interp *interp, + const char *version, int epoch, int revision) +} + +# 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: |