From 27b9f8021eeb77e3c41dc8ad44ba85192457d082 Mon Sep 17 00:00:00 2001 From: das Date: Mon, 10 Dec 2007 15:51:14 +0000 Subject: * generic/tcl.decls: use new genstubs 'export' command to * generic/tclInt.decls: mark exported symbols not in stubs * generic/tclTomMath.decls: table [Tk FR 1716117]; cleanup formatting. --- generic/tcl.decls | 178 ++++++++++++++++++++++++++--------------------- generic/tclInt.decls | 72 +++++++++---------- generic/tclTomMath.decls | 5 +- 3 files changed, 133 insertions(+), 122 deletions(-) diff --git a/generic/tcl.decls b/generic/tcl.decls index b79f301..61e1067 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -4,14 +4,15 @@ # functions that are exported by the Tcl library via the stubs table. # This file is used to generate the tclDecls.h, tclPlatDecls.h, # tclStub.c, and tclPlatStub.c files. -# # # Copyright (c) 1998-1999 by Scriptics Corporation. # Copyright (c) 2001, 2002 by Kevin B. Kenny. All rights reserved. +# Copyright (c) 2007 Daniel A. Steffen +# # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: tcl.decls,v 1.127 2007/09/20 18:43:28 das Exp $ +# +# RCS: @(#) $Id: tcl.decls,v 1.128 2007/12/10 15:51:14 das Exp $ library tcl @@ -32,8 +33,9 @@ declare 0 generic { CONST char* version, ClientData clientData) } declare 1 generic { - CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, CONST char *name, - CONST char *version, int exact, ClientData *clientDataPtr) + CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, + CONST char *name, CONST char *version, int exact, + ClientData *clientDataPtr) } declare 2 generic { void Tcl_Panic(CONST char *format, ...) @@ -69,7 +71,6 @@ declare 9 unix { declare 10 unix { void Tcl_DeleteFileHandler(int fd) } - declare 11 generic { void Tcl_SetTimer(Tcl_Time *timePtr) } @@ -116,7 +117,7 @@ declare 24 generic { CONST char *file, int line) } declare 25 generic { - Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST *objv, + Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST *objv, CONST char *file, int line) } declare 26 generic { @@ -354,7 +355,7 @@ declare 94 generic { } declare 95 generic { void Tcl_CreateMathFunc(Tcl_Interp *interp, CONST char *name, - int numArgs, Tcl_ValueType *argTypes, + int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData) } declare 96 generic { @@ -945,7 +946,6 @@ declare 265 generic { declare 266 generic { void Tcl_ValidateAllMemory(CONST char *file, int line) } - declare 267 generic { void Tcl_AppendResultVA(Tcl_Interp *interp, va_list argList) } @@ -964,16 +964,17 @@ declare 271 generic { CONST char *version, int exact) } declare 272 generic { - CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp, CONST char *name, - CONST char *version, int exact, ClientData *clientDataPtr) + CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp, + CONST char *name, CONST char *version, int exact, + ClientData *clientDataPtr) } declare 273 generic { - int Tcl_PkgProvide(Tcl_Interp *interp, CONST char *name, + int Tcl_PkgProvide(Tcl_Interp *interp, CONST char *name, CONST char *version) } # TIP #268: The internally used new Require function is in slot 573. declare 274 generic { - CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp, CONST char *name, + CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp, CONST char *name, CONST char *version, int exact) } declare 275 generic { @@ -1137,7 +1138,7 @@ declare 316 generic { int Tcl_SetSystemEncoding(Tcl_Interp *interp, CONST char *name) } declare 317 generic { - Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, CONST char *part1, + Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, CONST char *part1, CONST char *part2, Tcl_Obj *newValuePtr, int flags) } declare 318 generic { @@ -1266,7 +1267,6 @@ declare 356 generic { Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp, Tcl_Obj *patObj, int flags) } - declare 357 generic { Tcl_Obj *Tcl_EvalTokens(Tcl_Interp *interp, Tcl_Token *tokenPtr, int count) @@ -1288,7 +1288,7 @@ declare 361 generic { } declare 362 generic { int Tcl_ParseExpr(Tcl_Interp *interp, CONST char *start, int numBytes, - Tcl_Parse *parsePtr) + Tcl_Parse *parsePtr) } declare 363 generic { int Tcl_ParseQuotedString(Tcl_Interp *interp, CONST char *start, @@ -1412,48 +1412,56 @@ declare 398 generic { CONST84_RETURN char * Tcl_ChannelName(CONST Tcl_ChannelType *chanTypePtr) } declare 399 generic { - Tcl_ChannelTypeVersion Tcl_ChannelVersion(CONST Tcl_ChannelType *chanTypePtr) + Tcl_ChannelTypeVersion Tcl_ChannelVersion( + CONST Tcl_ChannelType *chanTypePtr) } declare 400 generic { - Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc(CONST Tcl_ChannelType - *chanTypePtr) + Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc( + CONST Tcl_ChannelType *chanTypePtr) } declare 401 generic { - Tcl_DriverCloseProc * Tcl_ChannelCloseProc(CONST Tcl_ChannelType *chanTypePtr) + Tcl_DriverCloseProc * Tcl_ChannelCloseProc( + CONST Tcl_ChannelType *chanTypePtr) } declare 402 generic { - Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc(CONST Tcl_ChannelType *chanTypePtr) + Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc( + CONST Tcl_ChannelType *chanTypePtr) } declare 403 generic { - Tcl_DriverInputProc * Tcl_ChannelInputProc(CONST Tcl_ChannelType *chanTypePtr) + Tcl_DriverInputProc * Tcl_ChannelInputProc( + CONST Tcl_ChannelType *chanTypePtr) } declare 404 generic { - Tcl_DriverOutputProc * Tcl_ChannelOutputProc(CONST Tcl_ChannelType *chanTypePtr) + Tcl_DriverOutputProc * Tcl_ChannelOutputProc( + CONST Tcl_ChannelType *chanTypePtr) } declare 405 generic { - Tcl_DriverSeekProc * Tcl_ChannelSeekProc(CONST Tcl_ChannelType *chanTypePtr) + Tcl_DriverSeekProc * Tcl_ChannelSeekProc( + CONST Tcl_ChannelType *chanTypePtr) } declare 406 generic { - Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc(CONST Tcl_ChannelType - *chanTypePtr) + Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc( + CONST Tcl_ChannelType *chanTypePtr) } declare 407 generic { - Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc(CONST Tcl_ChannelType - *chanTypePtr) + Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc( + CONST Tcl_ChannelType *chanTypePtr) } declare 408 generic { - Tcl_DriverWatchProc * Tcl_ChannelWatchProc(CONST Tcl_ChannelType *chanTypePtr) + Tcl_DriverWatchProc * Tcl_ChannelWatchProc( + CONST Tcl_ChannelType *chanTypePtr) } declare 409 generic { - Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc(CONST Tcl_ChannelType - *chanTypePtr) + Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc( + CONST Tcl_ChannelType *chanTypePtr) } declare 410 generic { - Tcl_DriverFlushProc * Tcl_ChannelFlushProc(CONST Tcl_ChannelType *chanTypePtr) + Tcl_DriverFlushProc * Tcl_ChannelFlushProc( + CONST Tcl_ChannelType *chanTypePtr) } declare 411 generic { - Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc(CONST Tcl_ChannelType - *chanTypePtr) + Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc( + CONST Tcl_ChannelType *chanTypePtr) } # Introduced in 8.4a2 @@ -1478,7 +1486,6 @@ declare 417 generic { declare 418 generic { int Tcl_IsChannelExisting(CONST char* channelName) } - declare 419 generic { int Tcl_UniCharNcasecmp(CONST Tcl_UniChar *ucs, CONST Tcl_UniChar *uct, unsigned long numChars) @@ -1487,21 +1494,17 @@ declare 420 generic { int Tcl_UniCharCaseMatch(CONST Tcl_UniChar *uniStr, CONST Tcl_UniChar *uniPattern, int nocase) } - declare 421 generic { Tcl_HashEntry *Tcl_FindHashEntry(Tcl_HashTable *tablePtr, CONST char *key) } - declare 422 generic { Tcl_HashEntry *Tcl_CreateHashEntry(Tcl_HashTable *tablePtr, CONST char *key, int *newPtr) } - declare 423 generic { void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, int keyType, Tcl_HashKeyType *typePtr) } - declare 424 generic { void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr) } @@ -1697,14 +1700,14 @@ declare 479 generic { } declare 480 generic { void Tcl_FSMountsChanged(Tcl_Filesystem *fsPtr) -} +} # New function due to TIP#56 declare 481 generic { int Tcl_EvalTokensStandard(Tcl_Interp *interp, Tcl_Token *tokenPtr, int count) } -# New export due to TIP#73 +# New export due to TIP#73 declare 482 generic { void Tcl_GetTime(Tcl_Time* timeBuf) } @@ -1976,36 +1979,37 @@ declare 551 generic { } # TIP#233 (Virtualized Time) declare 552 generic { - void Tcl_SetTimeProc (Tcl_GetTimeProc* getProc, + void Tcl_SetTimeProc(Tcl_GetTimeProc* getProc, Tcl_ScaleTimeProc* scaleProc, ClientData clientData) } declare 553 generic { - void Tcl_QueryTimeProc (Tcl_GetTimeProc** getProc, + void Tcl_QueryTimeProc(Tcl_GetTimeProc** getProc, Tcl_ScaleTimeProc** scaleProc, ClientData* clientData) } # TIP#218 (Driver Thread Actions) davygrvy/akupries ChannelType ver 4 declare 554 generic { - Tcl_DriverThreadActionProc *Tcl_ChannelThreadActionProc(CONST Tcl_ChannelType *chanTypePtr) + Tcl_DriverThreadActionProc *Tcl_ChannelThreadActionProc( + CONST Tcl_ChannelType *chanTypePtr) } # TIP#237 (Arbitrary-precision Integers) kevin kenny declare 555 generic { - Tcl_Obj* Tcl_NewBignumObj( mp_int* value ) + Tcl_Obj* Tcl_NewBignumObj(mp_int* value) } declare 556 generic { - Tcl_Obj* Tcl_DbNewBignumObj( mp_int* value, CONST char* file, int line ) + Tcl_Obj* Tcl_DbNewBignumObj(mp_int* value, CONST char* file, int line) } declare 557 generic { - void Tcl_SetBignumObj( Tcl_Obj* obj, mp_int* value ) + void Tcl_SetBignumObj(Tcl_Obj* obj, mp_int* value) } declare 558 generic { - int Tcl_GetBignumFromObj( Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value ) + int Tcl_GetBignumFromObj(Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value) } declare 559 generic { - int Tcl_TakeBignumFromObj( Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value ) + int Tcl_TakeBignumFromObj(Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value) } # TIP #208 ('chan' Command) jeffh @@ -2020,22 +2024,22 @@ declare 561 generic { # TIP#219 (Tcl Channel Reflection API) akupries declare 562 generic { - void Tcl_SetChannelErrorInterp (Tcl_Interp* interp, Tcl_Obj* msg) + void Tcl_SetChannelErrorInterp(Tcl_Interp* interp, Tcl_Obj* msg) } declare 563 generic { - void Tcl_GetChannelErrorInterp (Tcl_Interp* interp, Tcl_Obj** msg) + void Tcl_GetChannelErrorInterp(Tcl_Interp* interp, Tcl_Obj** msg) } declare 564 generic { - void Tcl_SetChannelError (Tcl_Channel chan, Tcl_Obj* msg) + void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj* msg) } declare 565 generic { - void Tcl_GetChannelError (Tcl_Channel chan, Tcl_Obj** msg) + void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj** msg) } # TIP #237 (Additional conversion functions for bignum support) declare 566 generic { - int Tcl_InitBignumFromDouble(Tcl_Interp* interp, double initval, + int Tcl_InitBignumFromDouble(Tcl_Interp* interp, double initval, mp_int *toInit) } @@ -2068,7 +2072,7 @@ declare 572 generic { # TIP#268: Extended version numbers and requirements declare 573 generic { - int Tcl_PkgRequireProc(Tcl_Interp *interp, CONST char *name, + int Tcl_PkgRequireProc(Tcl_Interp *interp, CONST char *name, int objc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr) } @@ -2102,8 +2106,12 @@ declare 579 generic { interface tclPlat -###################### -# Windows declarations +################################ +# Unix specific functions +# (none) + +################################ +# Windows specific functions # Added in Tcl 8.1 @@ -2114,9 +2122,8 @@ declare 1 win { char * Tcl_WinTCharToUtf(CONST TCHAR *str, int len, Tcl_DString *dsPtr) } -################## -# Mac OS X declarations -# +################################ +# Mac OS X specific functions declare 0 macosx { int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp, @@ -2134,27 +2141,40 @@ declare 1 macosx { char *libraryPath) } - ############################################################################## -# Public functions that are not accessible via the stubs table: -# (listed here _as comments_ so that the 'checkstubs' make target does not -# complain about them) - -# void Tcl_Main(int argc, char **argv, Tcl_AppInitProc *appInitProc) -# CONST char *Tcl_InitStubs(Tcl_Interp *interp, CONST char *version, int exact) -# CONST char *TclTomMathInitializeStubs(Tcl_Interp* interp, -# CONST char* version, int epoch, int revision -# CONST char *Tcl_PkgInitStubsCheck(Tcl_Interp *interp, CONST char *version, -# int exact); +# 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); +} -# Global variables that need to be exported from the tcl shared library: -# (listed here _as comments_ so that the 'checkstubs' make target does not -# complain about them, c.f. tk bug bug 1716117) +# Global variables that need to be exported from the tcl shared library. -# TclStubs *tclStubsPtr (fool checkstubs) -# TclPlatStubs *tclPlatStubsPtr (fool checkstubs) -# TclIntStubs *tclIntStubsPtr (fool checkstubs) -# TclIntPlatStubs *tclIntPlatStubsPtr (fool checkstubs) -# TclTomMathStubs* tclTomMathStubsPtr (fool checkstubs) +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) +} diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 97a1269..5cca4c2 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -8,11 +8,12 @@ # # Copyright (c) 1998-1999 by Scriptics Corporation. # Copyright (c) 2001 by Kevin B. Kenny. All rights reserved. +# Copyright (c) 2007 Daniel A. Steffen # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: tclInt.decls,v 1.117 2007/11/12 02:07:19 hobbs Exp $ +# +# RCS: @(#) $Id: tclInt.decls,v 1.118 2007/12/10 15:51:15 das Exp $ library tcl @@ -39,7 +40,7 @@ declare 3 generic { void TclAllocateFreeObjects(void) } # Replaced by TclpChdir in 8.1: -# declare 4 generic { +# declare 4 generic { # int TclChdir(Tcl_Interp *interp, char *dirName) # } declare 5 {unix win} { @@ -65,7 +66,7 @@ declare 9 {unix win} { TclFile *errFilePtr) } declare 10 generic { - int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr, + int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr, CONST char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr) } @@ -223,7 +224,8 @@ declare 51 generic { } # Removed in Tcl 8.5a2 #declare 52 generic { -# int TclInvoke(Tcl_Interp *interp, int argc, CONST84 char **argv, int flags) +# int TclInvoke(Tcl_Interp *interp, int argc, CONST84 char **argv, +# int flags) #} declare 53 generic { int TclInvokeObjectCommand(ClientData clientData, Tcl_Interp *interp, @@ -318,7 +320,6 @@ declare 76 generic { declare 77 generic { void TclpGetTime(Tcl_Time *time) } - declare 78 generic { int TclpGetTimeZone(unsigned long time) } @@ -517,7 +518,7 @@ declare 128 generic { declare 129 generic { int Tcl_PushCallFrame(Tcl_Interp *interp, Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, int isProcCallFrame) -} +} declare 130 generic { int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, CONST char *name) } @@ -576,19 +577,15 @@ declare 144 generic { declare 145 generic { struct AuxDataType *TclGetAuxDataType(char *typeName) } - declare 146 generic { TclHandle TclHandleCreate(VOID *ptr) } - declare 147 generic { void TclHandleFree(TclHandle handle) } - declare 148 generic { TclHandle TclHandlePreserve(TclHandle handle) } - declare 149 generic { void TclHandleRelease(TclHandle handle) } @@ -602,7 +599,6 @@ declare 151 generic { void TclRegExpRangeUniChar(Tcl_RegExp re, int index, int *startPtr, int *endPtr) } - declare 152 generic { void TclSetLibraryPath(Tcl_Obj *pathPtr) } @@ -635,7 +631,8 @@ declare 159 generic { } #declare 160 generic { # int TclpMatchFilesTypes(Tcl_Interp *interp, char *separators, -# Tcl_DString *dirPtr, char *pattern, char *tail, GlobTypeData *types) +# Tcl_DString *dirPtr, char *pattern, char *tail, +# GlobTypeData *types) #} # new in 8.3.2/8.4a2 @@ -671,7 +668,7 @@ declare 165 generic { # New function due to TIP #33 declare 166 generic { - int TclListObjSetElement(Tcl_Interp *interp, Tcl_Obj *listPtr, + int TclListObjSetElement(Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj *valuePtr) } @@ -696,7 +693,6 @@ declare 171 generic { int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]) } - declare 172 generic { int TclInThreadExit(void) } @@ -728,7 +724,6 @@ declare 177 generic { void TclVarErrMsg(Tcl_Interp *interp, CONST char *part1, CONST char *part2, CONST char *operation, CONST char *reason) } - declare 178 generic { void Tcl_SetStartupScript(Tcl_Obj *pathPtr, CONST char* encodingName) } @@ -804,10 +799,9 @@ declare 183 generic { # Added in tcl8.5a5 for compiler/executor experimentation. # declare 197 generic { - int TclCompEvalObj (Tcl_Interp *interp, Tcl_Obj *objPtr, + int TclCompEvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr, CONST CmdFrame* invoker, int word) } - declare 198 generic { int TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr, CallFrame **framePtrPtr) @@ -819,33 +813,33 @@ declare 198 generic { # 200-208 exported for use by the test suite [Bug 1054748] declare 200 generic { - int TclpObjRemoveDirectory (Tcl_Obj *pathPtr, int recursive, + int TclpObjRemoveDirectory(Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr) } declare 201 generic { - int TclpObjCopyDirectory (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, + int TclpObjCopyDirectory(Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr) } declare 202 generic { - int TclpObjCreateDirectory (Tcl_Obj *pathPtr) + int TclpObjCreateDirectory(Tcl_Obj *pathPtr) } declare 203 generic { - int TclpObjDeleteFile (Tcl_Obj *pathPtr) + int TclpObjDeleteFile(Tcl_Obj *pathPtr) } declare 204 generic { - int TclpObjCopyFile (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr) + int TclpObjCopyFile(Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr) } declare 205 generic { - int TclpObjRenameFile (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr) + int TclpObjRenameFile(Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr) } declare 206 generic { - int TclpObjStat (Tcl_Obj *pathPtr, Tcl_StatBuf *buf) + int TclpObjStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf) } declare 207 generic { - int TclpObjAccess (Tcl_Obj *pathPtr, int mode) + int TclpObjAccess(Tcl_Obj *pathPtr, int mode) } declare 208 generic { - Tcl_Channel TclpOpenFileChannel (Tcl_Interp *interp, + Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions) } # Made public by TIP 258 @@ -891,18 +885,16 @@ declare 225 generic { Tcl_Obj *TclTraceDictPath(Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *CONST keyv[], int flags) } - declare 226 generic { int TclObjBeingDeleted(Tcl_Obj *objPtr) } - declare 227 generic { void TclSetNsPath(Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]) } declare 228 generic { int TclObjInterpProcCore(register Tcl_Interp *interp, Tcl_Obj *procNameObj, - int skip, ProcErrorProc errorProc) + int skip, ProcErrorProc errorProc) } declare 229 generic { int TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr, @@ -913,7 +905,6 @@ declare 230 generic { CONST char *part2, int flags, CONST char *msg, CONST int createPart1, CONST int createPart2, Var **arrayPtrPtr) } - declare 231 generic { int TclGetNamespaceFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr) @@ -930,7 +921,7 @@ declare 233 generic { # Exports for VarReform compat: Itcl, XOTcl like to peek into our varTables :( declare 234 generic { - Var *TclVarHashCreateVar(TclVarHashTable *tablePtr, const char *key, + Var *TclVarHashCreateVar(TclVarHashTable *tablePtr, const char *key, int *newPtr) } declare 235 generic { @@ -961,8 +952,8 @@ declare 238 generic { interface tclIntPlat -############################ -# Windows specific internals +################################ +# Windows specific functions declare 0 win { void TclWinConvertError(DWORD errCode) @@ -1074,13 +1065,12 @@ declare 27 win { declare 28 win { void TclWinResetInterfaces(void) } - declare 29 win { int TclWinCPUID( unsigned int index, unsigned int *regs ) } -######################### -# Unix specific internals +################################ +# Unix specific functions # Pipe channel functions @@ -1142,25 +1132,25 @@ declare 13 unix { # Added in 8.5: declare 14 unix { - int TclUnixCopyFile (CONST char *src, CONST char *dst, + int TclUnixCopyFile(CONST char *src, CONST char *dst, CONST Tcl_StatBuf *statBufPtr, int dontCopyAtts) } +################################ +# Mac OS X specific functions + declare 15 macosx { int TclMacOSXGetFileAttribute(Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj **attributePtrPtr) } - declare 16 macosx { int TclMacOSXSetFileAttribute(Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj *attributePtr) } - declare 17 macosx { int TclMacOSXCopyFileAttributes(CONST char *src, CONST char *dst, CONST Tcl_StatBuf *statBufPtr) } - declare 18 macosx { int TclMacOSXMatchType(Tcl_Interp *interp, CONST char *pathName, CONST char *fileName, Tcl_StatBuf *statBufPtr, diff --git a/generic/tclTomMath.decls b/generic/tclTomMath.decls index d68f512..ce1cec9 100644 --- a/generic/tclTomMath.decls +++ b/generic/tclTomMath.decls @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tclTomMath.decls,v 1.1 2005/12/13 22:43:18 kennykb Exp $ +# RCS: @(#) $Id: tclTomMath.decls,v 1.2 2007/12/10 15:51:15 das Exp $ library tcl @@ -161,7 +161,8 @@ declare 44 generic { int TclBN_mp_to_unsigned_bin(mp_int* a, unsigned char* b) } declare 45 generic { - int TclBN_mp_to_unsigned_bin_n(mp_int* a, unsigned char* b, unsigned long* outlen) + int TclBN_mp_to_unsigned_bin_n(mp_int* a, unsigned char* b, + unsigned long* outlen) } declare 46 generic { int TclBN_mp_toradix_n(mp_int* a, char* str, int radix, int maxlen) -- cgit v0.12