os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/generic/tclInt.decls
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/generic/tclInt.decls Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,1010 @@
1.4 +# tclInt.decls --
1.5 +#
1.6 +# This file contains the declarations for all unsupported
1.7 +# functions that are exported by the Tcl library. This file
1.8 +# is used to generate the tclIntDecls.h, tclIntPlatDecls.h,
1.9 +# tclIntStub.c, tclPlatStub.c, tclCompileDecls.h and tclCompileStub.c
1.10 +# files
1.11 +#
1.12 +# Copyright (c) 1998-1999 by Scriptics Corporation.
1.13 +# Copyright (c) 2001 by Kevin B. Kenny. All rights reserved.
1.14 +#
1.15 +# See the file "license.terms" for information on usage and redistribution
1.16 +# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
1.17 +#
1.18 +# RCS: @(#) $Id: tclInt.decls,v 1.59.2.7 2007/04/21 19:52:14 kennykb Exp $
1.19 +
1.20 +library tcl
1.21 +
1.22 +# Define the unsupported generic interfaces.
1.23 +
1.24 +interface tclInt
1.25 +
1.26 +# Declare each of the functions in the unsupported internal Tcl
1.27 +# interface. These interfaces are allowed to changed between versions.
1.28 +# Use at your own risk. Note that the position of functions should not
1.29 +# be changed between versions to avoid gratuitous incompatibilities.
1.30 +
1.31 +# Replaced by Tcl_FSAccess in 8.4:
1.32 +#declare 0 generic {
1.33 +# int TclAccess(CONST char *path, int mode)
1.34 +#}
1.35 +declare 1 generic {
1.36 + int TclAccessDeleteProc(TclAccessProc_ *proc)
1.37 +}
1.38 +declare 2 generic {
1.39 + int TclAccessInsertProc(TclAccessProc_ *proc)
1.40 +}
1.41 +declare 3 generic {
1.42 + void TclAllocateFreeObjects(void)
1.43 +}
1.44 +# Replaced by TclpChdir in 8.1:
1.45 +# declare 4 generic {
1.46 +# int TclChdir(Tcl_Interp *interp, char *dirName)
1.47 +# }
1.48 +declare 5 {unix win} {
1.49 + int TclCleanupChildren(Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr,
1.50 + Tcl_Channel errorChan)
1.51 +}
1.52 +declare 6 generic {
1.53 + void TclCleanupCommand(Command *cmdPtr)
1.54 +}
1.55 +declare 7 generic {
1.56 + int TclCopyAndCollapse(int count, CONST char *src, char *dst)
1.57 +}
1.58 +declare 8 generic {
1.59 + int TclCopyChannel(Tcl_Interp *interp, Tcl_Channel inChan,
1.60 + Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr)
1.61 +}
1.62 +
1.63 +# TclCreatePipeline unofficially exported for use by BLT.
1.64 +
1.65 +declare 9 {unix win} {
1.66 + int TclCreatePipeline(Tcl_Interp *interp, int argc, CONST char **argv,
1.67 + Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr,
1.68 + TclFile *errFilePtr)
1.69 +}
1.70 +declare 10 generic {
1.71 + int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr,
1.72 + CONST char *procName,
1.73 + Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr)
1.74 +}
1.75 +declare 11 generic {
1.76 + void TclDeleteCompiledLocalVars(Interp *iPtr, CallFrame *framePtr)
1.77 +}
1.78 +declare 12 generic {
1.79 + void TclDeleteVars(Interp *iPtr, Tcl_HashTable *tablePtr)
1.80 +}
1.81 +declare 13 generic {
1.82 + int TclDoGlob(Tcl_Interp *interp, char *separators,
1.83 + Tcl_DString *headPtr, char *tail, Tcl_GlobTypeData *types)
1.84 +}
1.85 +declare 14 generic {
1.86 + void TclDumpMemoryInfo(FILE *outFile)
1.87 +}
1.88 +# Removed in 8.1:
1.89 +# declare 15 generic {
1.90 +# void TclExpandParseValue(ParseValue *pvPtr, int needed)
1.91 +# }
1.92 +declare 16 generic {
1.93 + void TclExprFloatError(Tcl_Interp *interp, double value)
1.94 +}
1.95 +# Removed in 8.4
1.96 +#declare 17 generic {
1.97 +# int TclFileAttrsCmd(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
1.98 +#}
1.99 +#declare 18 generic {
1.100 +# int TclFileCopyCmd(Tcl_Interp *interp, int argc, char **argv)
1.101 +#}
1.102 +#declare 19 generic {
1.103 +# int TclFileDeleteCmd(Tcl_Interp *interp, int argc, char **argv)
1.104 +#}
1.105 +#declare 20 generic {
1.106 +# int TclFileMakeDirsCmd(Tcl_Interp *interp, int argc, char **argv)
1.107 +#}
1.108 +#declare 21 generic {
1.109 +# int TclFileRenameCmd(Tcl_Interp *interp, int argc, char **argv)
1.110 +#}
1.111 +declare 22 generic {
1.112 + int TclFindElement(Tcl_Interp *interp, CONST char *listStr,
1.113 + int listLength, CONST char **elementPtr, CONST char **nextPtr,
1.114 + int *sizePtr, int *bracePtr)
1.115 +}
1.116 +declare 23 generic {
1.117 + Proc * TclFindProc(Interp *iPtr, CONST char *procName)
1.118 +}
1.119 +declare 24 generic {
1.120 + int TclFormatInt(char *buffer, long n)
1.121 +}
1.122 +declare 25 generic {
1.123 + void TclFreePackageInfo(Interp *iPtr)
1.124 +}
1.125 +# Removed in 8.1:
1.126 +# declare 26 generic {
1.127 +# char * TclGetCwd(Tcl_Interp *interp)
1.128 +# }
1.129 +declare 27 generic {
1.130 + int TclGetDate(char *p, Tcl_WideInt now, long zone,
1.131 + Tcl_WideInt *timePtr)
1.132 +}
1.133 +declare 28 generic {
1.134 + Tcl_Channel TclpGetDefaultStdChannel(int type)
1.135 +}
1.136 +# Removed in 8.4b2:
1.137 +#declare 29 generic {
1.138 +# Tcl_Obj * TclGetElementOfIndexedArray(Tcl_Interp *interp,
1.139 +# int localIndex, Tcl_Obj *elemPtr, int flags)
1.140 +#}
1.141 +# Replaced by char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr) in 8.1:
1.142 +# declare 30 generic {
1.143 +# char * TclGetEnv(CONST char *name)
1.144 +# }
1.145 +declare 31 generic {
1.146 + char * TclGetExtension(char *name)
1.147 +}
1.148 +declare 32 generic {
1.149 + int TclGetFrame(Tcl_Interp *interp, CONST char *str,
1.150 + CallFrame **framePtrPtr)
1.151 +}
1.152 +declare 33 generic {
1.153 + TclCmdProcType TclGetInterpProc(void)
1.154 +}
1.155 +declare 34 generic {
1.156 + int TclGetIntForIndex(Tcl_Interp *interp, Tcl_Obj *objPtr,
1.157 + int endValue, int *indexPtr)
1.158 +}
1.159 +# Removed in 8.4b2:
1.160 +#declare 35 generic {
1.161 +# Tcl_Obj * TclGetIndexedScalar(Tcl_Interp *interp, int localIndex,
1.162 +# int flags)
1.163 +#}
1.164 +declare 36 generic {
1.165 + int TclGetLong(Tcl_Interp *interp, CONST char *str, long *longPtr)
1.166 +}
1.167 +declare 37 generic {
1.168 + int TclGetLoadedPackages(Tcl_Interp *interp, char *targetName)
1.169 +}
1.170 +declare 38 generic {
1.171 + int TclGetNamespaceForQualName(Tcl_Interp *interp, CONST char *qualName,
1.172 + Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr,
1.173 + Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr,
1.174 + CONST char **simpleNamePtr)
1.175 +}
1.176 +declare 39 generic {
1.177 + TclObjCmdProcType TclGetObjInterpProc(void)
1.178 +}
1.179 +declare 40 generic {
1.180 + int TclGetOpenMode(Tcl_Interp *interp, CONST char *str, int *seekFlagPtr)
1.181 +}
1.182 +declare 41 generic {
1.183 + Tcl_Command TclGetOriginalCommand(Tcl_Command command)
1.184 +}
1.185 +declare 42 generic {
1.186 + char * TclpGetUserHome(CONST char *name, Tcl_DString *bufferPtr)
1.187 +}
1.188 +declare 43 generic {
1.189 + int TclGlobalInvoke(Tcl_Interp *interp, int argc, CONST84 char **argv, int flags)
1.190 +}
1.191 +declare 44 generic {
1.192 + int TclGuessPackageName(CONST char *fileName, Tcl_DString *bufPtr)
1.193 +}
1.194 +declare 45 generic {
1.195 + int TclHideUnsafeCommands(Tcl_Interp *interp)
1.196 +}
1.197 +declare 46 generic {
1.198 + int TclInExit(void)
1.199 +}
1.200 +# Removed in 8.4b2:
1.201 +#declare 47 generic {
1.202 +# Tcl_Obj * TclIncrElementOfIndexedArray(Tcl_Interp *interp,
1.203 +# int localIndex, Tcl_Obj *elemPtr, long incrAmount)
1.204 +#}
1.205 +# Removed in 8.4b2:
1.206 +#declare 48 generic {
1.207 +# Tcl_Obj * TclIncrIndexedScalar(Tcl_Interp *interp, int localIndex,
1.208 +# long incrAmount)
1.209 +#}
1.210 +declare 49 generic {
1.211 + Tcl_Obj * TclIncrVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
1.212 + Tcl_Obj *part2Ptr, long incrAmount, int part1NotParsed)
1.213 +}
1.214 +declare 50 generic {
1.215 + void TclInitCompiledLocals(Tcl_Interp *interp, CallFrame *framePtr,
1.216 + Namespace *nsPtr)
1.217 +}
1.218 +declare 51 generic {
1.219 + int TclInterpInit(Tcl_Interp *interp)
1.220 +}
1.221 +declare 52 generic {
1.222 + int TclInvoke(Tcl_Interp *interp, int argc, CONST84 char **argv, int flags)
1.223 +}
1.224 +declare 53 generic {
1.225 + int TclInvokeObjectCommand(ClientData clientData, Tcl_Interp *interp,
1.226 + int argc, CONST84 char **argv)
1.227 +}
1.228 +declare 54 generic {
1.229 + int TclInvokeStringCommand(ClientData clientData, Tcl_Interp *interp,
1.230 + int objc, Tcl_Obj *CONST objv[])
1.231 +}
1.232 +declare 55 generic {
1.233 + Proc * TclIsProc(Command *cmdPtr)
1.234 +}
1.235 +# Replaced with TclpLoadFile in 8.1:
1.236 +# declare 56 generic {
1.237 +# int TclLoadFile(Tcl_Interp *interp, char *fileName, char *sym1,
1.238 +# char *sym2, Tcl_PackageInitProc **proc1Ptr,
1.239 +# Tcl_PackageInitProc **proc2Ptr)
1.240 +# }
1.241 +# Signature changed to take a length in 8.1:
1.242 +# declare 57 generic {
1.243 +# int TclLooksLikeInt(char *p)
1.244 +# }
1.245 +declare 58 generic {
1.246 + Var * TclLookupVar(Tcl_Interp *interp, CONST char *part1, CONST char *part2,
1.247 + int flags, CONST char *msg, int createPart1, int createPart2,
1.248 + Var **arrayPtrPtr)
1.249 +}
1.250 +# Replaced by Tcl_FSMatchInDirectory in 8.4
1.251 +#declare 59 generic {
1.252 +# int TclpMatchFiles(Tcl_Interp *interp, char *separators,
1.253 +# Tcl_DString *dirPtr, char *pattern, char *tail)
1.254 +#}
1.255 +declare 60 generic {
1.256 + int TclNeedSpace(CONST char *start, CONST char *end)
1.257 +}
1.258 +declare 61 generic {
1.259 + Tcl_Obj * TclNewProcBodyObj(Proc *procPtr)
1.260 +}
1.261 +declare 62 generic {
1.262 + int TclObjCommandComplete(Tcl_Obj *cmdPtr)
1.263 +}
1.264 +declare 63 generic {
1.265 + int TclObjInterpProc(ClientData clientData, Tcl_Interp *interp,
1.266 + int objc, Tcl_Obj *CONST objv[])
1.267 +}
1.268 +declare 64 generic {
1.269 + int TclObjInvoke(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[],
1.270 + int flags)
1.271 +}
1.272 +declare 65 generic {
1.273 + int TclObjInvokeGlobal(Tcl_Interp *interp, int objc,
1.274 + Tcl_Obj *CONST objv[], int flags)
1.275 +}
1.276 +declare 66 generic {
1.277 + int TclOpenFileChannelDeleteProc(TclOpenFileChannelProc_ *proc)
1.278 +}
1.279 +declare 67 generic {
1.280 + int TclOpenFileChannelInsertProc(TclOpenFileChannelProc_ *proc)
1.281 +}
1.282 +# Replaced by Tcl_FSAccess in 8.4:
1.283 +#declare 68 generic {
1.284 +# int TclpAccess(CONST char *path, int mode)
1.285 +#}
1.286 +declare 69 generic {
1.287 + char * TclpAlloc(unsigned int size)
1.288 +}
1.289 +#declare 70 generic {
1.290 +# int TclpCopyFile(CONST char *source, CONST char *dest)
1.291 +#}
1.292 +#declare 71 generic {
1.293 +# int TclpCopyDirectory(CONST char *source, CONST char *dest,
1.294 +# Tcl_DString *errorPtr)
1.295 +#}
1.296 +#declare 72 generic {
1.297 +# int TclpCreateDirectory(CONST char *path)
1.298 +#}
1.299 +#declare 73 generic {
1.300 +# int TclpDeleteFile(CONST char *path)
1.301 +#}
1.302 +declare 74 generic {
1.303 + void TclpFree(char *ptr)
1.304 +}
1.305 +declare 75 generic {
1.306 + unsigned long TclpGetClicks(void)
1.307 +}
1.308 +declare 76 generic {
1.309 + unsigned long TclpGetSeconds(void)
1.310 +}
1.311 +
1.312 +# deprecated
1.313 +declare 77 generic {
1.314 + void TclpGetTime(Tcl_Time *time)
1.315 +}
1.316 +
1.317 +declare 78 generic {
1.318 + int TclpGetTimeZone(Tcl_WideInt time)
1.319 +}
1.320 +# Replaced by Tcl_FSListVolumes in 8.4:
1.321 +#declare 79 generic {
1.322 +# int TclpListVolumes(Tcl_Interp *interp)
1.323 +#}
1.324 +# Replaced by Tcl_FSOpenFileChannel in 8.4:
1.325 +#declare 80 generic {
1.326 +# Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, char *fileName,
1.327 +# char *modeString, int permissions)
1.328 +#}
1.329 +declare 81 generic {
1.330 + char * TclpRealloc(char *ptr, unsigned int size)
1.331 +}
1.332 +#declare 82 generic {
1.333 +# int TclpRemoveDirectory(CONST char *path, int recursive,
1.334 +# Tcl_DString *errorPtr)
1.335 +#}
1.336 +#declare 83 generic {
1.337 +# int TclpRenameFile(CONST char *source, CONST char *dest)
1.338 +#}
1.339 +# Removed in 8.1:
1.340 +# declare 84 generic {
1.341 +# int TclParseBraces(Tcl_Interp *interp, char *str, char **termPtr,
1.342 +# ParseValue *pvPtr)
1.343 +# }
1.344 +# declare 85 generic {
1.345 +# int TclParseNestedCmd(Tcl_Interp *interp, char *str, int flags,
1.346 +# char **termPtr, ParseValue *pvPtr)
1.347 +# }
1.348 +# declare 86 generic {
1.349 +# int TclParseQuotes(Tcl_Interp *interp, char *str, int termChar,
1.350 +# int flags, char **termPtr, ParseValue *pvPtr)
1.351 +# }
1.352 +# declare 87 generic {
1.353 +# void TclPlatformInit(Tcl_Interp *interp)
1.354 +# }
1.355 +declare 88 generic {
1.356 + char * TclPrecTraceProc(ClientData clientData, Tcl_Interp *interp,
1.357 + CONST char *name1, CONST char *name2, int flags)
1.358 +}
1.359 +declare 89 generic {
1.360 + int TclPreventAliasLoop(Tcl_Interp *interp, Tcl_Interp *cmdInterp,
1.361 + Tcl_Command cmd)
1.362 +}
1.363 +# Removed in 8.1 (only available if compiled with TCL_COMPILE_DEBUG):
1.364 +# declare 90 generic {
1.365 +# void TclPrintByteCodeObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
1.366 +# }
1.367 +declare 91 generic {
1.368 + void TclProcCleanupProc(Proc *procPtr)
1.369 +}
1.370 +declare 92 generic {
1.371 + int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr,
1.372 + Tcl_Obj *bodyPtr, Namespace *nsPtr, CONST char *description,
1.373 + CONST char *procName)
1.374 +}
1.375 +declare 93 generic {
1.376 + void TclProcDeleteProc(ClientData clientData)
1.377 +}
1.378 +declare 94 generic {
1.379 + int TclProcInterpProc(ClientData clientData, Tcl_Interp *interp,
1.380 + int argc, CONST84 char **argv)
1.381 +}
1.382 +# Replaced by Tcl_FSStat in 8.4:
1.383 +#declare 95 generic {
1.384 +# int TclpStat(CONST char *path, Tcl_StatBuf *buf)
1.385 +#}
1.386 +declare 96 generic {
1.387 + int TclRenameCommand(Tcl_Interp *interp, char *oldName, char *newName)
1.388 +}
1.389 +declare 97 generic {
1.390 + void TclResetShadowedCmdRefs(Tcl_Interp *interp, Command *newCmdPtr)
1.391 +}
1.392 +declare 98 generic {
1.393 + int TclServiceIdle(void)
1.394 +}
1.395 +# Removed in 8.4b2:
1.396 +#declare 99 generic {
1.397 +# Tcl_Obj * TclSetElementOfIndexedArray(Tcl_Interp *interp, int localIndex,
1.398 +# Tcl_Obj *elemPtr, Tcl_Obj *objPtr, int flags)
1.399 +#}
1.400 +# Removed in 8.4b2:
1.401 +#declare 100 generic {
1.402 +# Tcl_Obj * TclSetIndexedScalar(Tcl_Interp *interp, int localIndex,
1.403 +# Tcl_Obj *objPtr, int flags)
1.404 +#}
1.405 +declare 101 generic {
1.406 + char * TclSetPreInitScript(char *string)
1.407 +}
1.408 +declare 102 generic {
1.409 + void TclSetupEnv(Tcl_Interp *interp)
1.410 +}
1.411 +declare 103 generic {
1.412 + int TclSockGetPort(Tcl_Interp *interp, char *str, char *proto,
1.413 + int *portPtr)
1.414 +}
1.415 +declare 104 {unix win} {
1.416 + int TclSockMinimumBuffers(int sock, int size)
1.417 +}
1.418 +# Replaced by Tcl_FSStat in 8.4:
1.419 +#declare 105 generic {
1.420 +# int TclStat(CONST char *path, Tcl_StatBuf *buf)
1.421 +#}
1.422 +declare 106 generic {
1.423 + int TclStatDeleteProc(TclStatProc_ *proc)
1.424 +}
1.425 +declare 107 generic {
1.426 + int TclStatInsertProc(TclStatProc_ *proc)
1.427 +}
1.428 +declare 108 generic {
1.429 + void TclTeardownNamespace(Namespace *nsPtr)
1.430 +}
1.431 +declare 109 generic {
1.432 + int TclUpdateReturnInfo(Interp *iPtr)
1.433 +}
1.434 +# Removed in 8.1:
1.435 +# declare 110 generic {
1.436 +# char * TclWordEnd(char *start, char *lastChar, int nested, int *semiPtr)
1.437 +# }
1.438 +
1.439 +# Procedures used in conjunction with Tcl namespaces. They are
1.440 +# defined here instead of in tcl.decls since they are not stable yet.
1.441 +
1.442 +declare 111 generic {
1.443 + void Tcl_AddInterpResolvers(Tcl_Interp *interp, CONST char *name,
1.444 + Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc,
1.445 + Tcl_ResolveCompiledVarProc *compiledVarProc)
1.446 +}
1.447 +declare 112 generic {
1.448 + int Tcl_AppendExportList(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
1.449 + Tcl_Obj *objPtr)
1.450 +}
1.451 +declare 113 generic {
1.452 + Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, CONST char *name,
1.453 + ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc)
1.454 +}
1.455 +declare 114 generic {
1.456 + void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr)
1.457 +}
1.458 +declare 115 generic {
1.459 + int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
1.460 + CONST char *pattern, int resetListFirst)
1.461 +}
1.462 +declare 116 generic {
1.463 + Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name,
1.464 + Tcl_Namespace *contextNsPtr, int flags)
1.465 +}
1.466 +declare 117 generic {
1.467 + Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, CONST char *name,
1.468 + Tcl_Namespace *contextNsPtr, int flags)
1.469 +}
1.470 +declare 118 generic {
1.471 + int Tcl_GetInterpResolvers(Tcl_Interp *interp, CONST char *name,
1.472 + Tcl_ResolverInfo *resInfo)
1.473 +}
1.474 +declare 119 generic {
1.475 + int Tcl_GetNamespaceResolvers(Tcl_Namespace *namespacePtr,
1.476 + Tcl_ResolverInfo *resInfo)
1.477 +}
1.478 +declare 120 generic {
1.479 + Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, CONST char *name,
1.480 + Tcl_Namespace *contextNsPtr, int flags)
1.481 +}
1.482 +declare 121 generic {
1.483 + int Tcl_ForgetImport(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
1.484 + CONST char *pattern)
1.485 +}
1.486 +declare 122 generic {
1.487 + Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
1.488 +}
1.489 +declare 123 generic {
1.490 + void Tcl_GetCommandFullName(Tcl_Interp *interp, Tcl_Command command,
1.491 + Tcl_Obj *objPtr)
1.492 +}
1.493 +declare 124 generic {
1.494 + Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp)
1.495 +}
1.496 +declare 125 generic {
1.497 + Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp)
1.498 +}
1.499 +declare 126 generic {
1.500 + void Tcl_GetVariableFullName(Tcl_Interp *interp, Tcl_Var variable,
1.501 + Tcl_Obj *objPtr)
1.502 +}
1.503 +declare 127 generic {
1.504 + int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
1.505 + CONST char *pattern, int allowOverwrite)
1.506 +}
1.507 +declare 128 generic {
1.508 + void Tcl_PopCallFrame(Tcl_Interp* interp)
1.509 +}
1.510 +declare 129 generic {
1.511 + int Tcl_PushCallFrame(Tcl_Interp* interp, Tcl_CallFrame *framePtr,
1.512 + Tcl_Namespace *nsPtr, int isProcCallFrame)
1.513 +}
1.514 +declare 130 generic {
1.515 + int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, CONST char *name)
1.516 +}
1.517 +declare 131 generic {
1.518 + void Tcl_SetNamespaceResolvers(Tcl_Namespace *namespacePtr,
1.519 + Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc,
1.520 + Tcl_ResolveCompiledVarProc *compiledVarProc)
1.521 +}
1.522 +declare 132 generic {
1.523 + int TclpHasSockets(Tcl_Interp *interp)
1.524 +}
1.525 +declare 133 generic {
1.526 + struct tm * TclpGetDate(TclpTime_t time, int useGMT)
1.527 +}
1.528 +declare 134 generic {
1.529 + size_t TclpStrftime(char *s, size_t maxsize, CONST char *format,
1.530 + CONST struct tm *t, int useGMT)
1.531 +}
1.532 +declare 135 generic {
1.533 + int TclpCheckStackSpace(void)
1.534 +}
1.535 +
1.536 +# Added in 8.1:
1.537 +
1.538 +#declare 137 generic {
1.539 +# int TclpChdir(CONST char *dirName)
1.540 +#}
1.541 +declare 138 generic {
1.542 + CONST84_RETURN char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr)
1.543 +}
1.544 +#declare 139 generic {
1.545 +# int TclpLoadFile(Tcl_Interp *interp, char *fileName, char *sym1,
1.546 +# char *sym2, Tcl_PackageInitProc **proc1Ptr,
1.547 +# Tcl_PackageInitProc **proc2Ptr, ClientData *clientDataPtr)
1.548 +#}
1.549 +declare 140 generic {
1.550 + int TclLooksLikeInt(CONST char *bytes, int length)
1.551 +}
1.552 +# This is used by TclX, but should otherwise be considered private
1.553 +declare 141 generic {
1.554 + CONST84_RETURN char *TclpGetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr)
1.555 +}
1.556 +declare 142 generic {
1.557 + int TclSetByteCodeFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr,
1.558 + CompileHookProc *hookProc, ClientData clientData)
1.559 +}
1.560 +declare 143 generic {
1.561 + int TclAddLiteralObj(struct CompileEnv *envPtr, Tcl_Obj *objPtr,
1.562 + LiteralEntry **litPtrPtr)
1.563 +}
1.564 +declare 144 generic {
1.565 + void TclHideLiteral(Tcl_Interp *interp, struct CompileEnv *envPtr,
1.566 + int index)
1.567 +}
1.568 +declare 145 generic {
1.569 + struct AuxDataType *TclGetAuxDataType(char *typeName)
1.570 +}
1.571 +
1.572 +declare 146 generic {
1.573 + TclHandle TclHandleCreate(VOID *ptr)
1.574 +}
1.575 +
1.576 +declare 147 generic {
1.577 + void TclHandleFree(TclHandle handle)
1.578 +}
1.579 +
1.580 +declare 148 generic {
1.581 + TclHandle TclHandlePreserve(TclHandle handle)
1.582 +}
1.583 +
1.584 +declare 149 generic {
1.585 + void TclHandleRelease(TclHandle handle)
1.586 +}
1.587 +
1.588 +# Added for Tcl 8.2
1.589 +
1.590 +declare 150 generic {
1.591 + int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re)
1.592 +}
1.593 +declare 151 generic {
1.594 + void TclRegExpRangeUniChar(Tcl_RegExp re, int index, int *startPtr,
1.595 + int *endPtr)
1.596 +}
1.597 +
1.598 +declare 152 generic {
1.599 + void TclSetLibraryPath(Tcl_Obj *pathPtr)
1.600 +}
1.601 +declare 153 generic {
1.602 + Tcl_Obj *TclGetLibraryPath(void)
1.603 +}
1.604 +
1.605 +# moved to tclTest.c (static) in 8.3.2/8.4a2
1.606 +#declare 154 generic {
1.607 +# int TclTestChannelCmd(ClientData clientData,
1.608 +# Tcl_Interp *interp, int argc, char **argv)
1.609 +#}
1.610 +#declare 155 generic {
1.611 +# int TclTestChannelEventCmd(ClientData clientData,
1.612 +# Tcl_Interp *interp, int argc, char **argv)
1.613 +#}
1.614 +
1.615 +declare 156 generic {
1.616 + void TclRegError (Tcl_Interp *interp, CONST char *msg,
1.617 + int status)
1.618 +}
1.619 +declare 157 generic {
1.620 + Var * TclVarTraceExists (Tcl_Interp *interp, CONST char *varName)
1.621 +}
1.622 +declare 158 generic {
1.623 + void TclSetStartupScriptFileName(CONST char *filename)
1.624 +}
1.625 +declare 159 generic {
1.626 + CONST84_RETURN char *TclGetStartupScriptFileName(void)
1.627 +}
1.628 +#declare 160 generic {
1.629 +# int TclpMatchFilesTypes(Tcl_Interp *interp, char *separators,
1.630 +# Tcl_DString *dirPtr, char *pattern, char *tail, GlobTypeData *types)
1.631 +#}
1.632 +
1.633 +# new in 8.3.2/8.4a2
1.634 +declare 161 generic {
1.635 + int TclChannelTransform(Tcl_Interp *interp, Tcl_Channel chan,
1.636 + Tcl_Obj *cmdObjPtr)
1.637 +}
1.638 +declare 162 generic {
1.639 + void TclChannelEventScriptInvoker(ClientData clientData, int flags)
1.640 +}
1.641 +
1.642 +# ALERT: The result of 'TclGetInstructionTable' is actually an
1.643 +# "InstructionDesc*" but we do not want to describe this structure in
1.644 +# "tclInt.h". It is described in "tclCompile.h". Use a cast to the
1.645 +# correct type when calling this procedure.
1.646 +
1.647 +declare 163 generic {
1.648 + void * TclGetInstructionTable (void)
1.649 +}
1.650 +
1.651 +# ALERT: The argument of 'TclExpandCodeArray' is actually a
1.652 +# "CompileEnv*" but we do not want to describe this structure in
1.653 +# "tclInt.h". It is described in "tclCompile.h".
1.654 +
1.655 +declare 164 generic {
1.656 + void TclExpandCodeArray (void *envPtr)
1.657 +}
1.658 +
1.659 +# These functions are vfs aware, but are generally only useful internally.
1.660 +declare 165 generic {
1.661 + void TclpSetInitialEncodings(void)
1.662 +}
1.663 +
1.664 +# New function due to TIP #33
1.665 +declare 166 generic {
1.666 + int TclListObjSetElement(Tcl_Interp *interp, Tcl_Obj *listPtr,
1.667 + int index, Tcl_Obj *valuePtr)
1.668 +}
1.669 +
1.670 +# VFS-aware versions of Tcl*StartupScriptFileName (158 and 159 above)
1.671 +declare 167 generic {
1.672 + void TclSetStartupScriptPath(Tcl_Obj *pathPtr)
1.673 +}
1.674 +declare 168 generic {
1.675 + Tcl_Obj *TclGetStartupScriptPath(void)
1.676 +}
1.677 +# variant of Tcl_UtfNCmp that takes n as bytes, not chars
1.678 +declare 169 generic {
1.679 + int TclpUtfNcmp2(CONST char *s1, CONST char *s2, unsigned long n)
1.680 +}
1.681 +declare 170 generic {
1.682 + int TclCheckInterpTraces (Tcl_Interp *interp, CONST char *command, int numChars, \
1.683 + Command *cmdPtr, int result, int traceFlags, int objc, \
1.684 + Tcl_Obj *CONST objv[])
1.685 +}
1.686 +declare 171 generic {
1.687 + int TclCheckExecutionTraces (Tcl_Interp *interp, CONST char *command, int numChars, \
1.688 + Command *cmdPtr, int result, int traceFlags, int objc, \
1.689 + Tcl_Obj *CONST objv[])
1.690 +}
1.691 +
1.692 +declare 172 generic {
1.693 + int TclInThreadExit(void)
1.694 +}
1.695 +
1.696 +# added for 8.4.2
1.697 +
1.698 +declare 173 generic {
1.699 + int TclUniCharMatch (CONST Tcl_UniChar *string, int strLen, \
1.700 + CONST Tcl_UniChar *pattern, int ptnLen, int nocase)
1.701 +}
1.702 +
1.703 +# TclpGmtime and TclpLocaltime promoted to the generic interface from unix
1.704 +
1.705 +declare 182 generic {
1.706 + struct tm *TclpLocaltime(TclpTime_t_CONST clock)
1.707 +}
1.708 +declare 183 generic {
1.709 + struct tm *TclpGmtime(TclpTime_t_CONST clock)
1.710 +}
1.711 +
1.712 +declare 199 generic {
1.713 + int TclMatchIsTrivial(CONST char *pattern)
1.714 +}
1.715 +
1.716 +##############################################################################
1.717 +
1.718 +# Define the platform specific internal Tcl interface. These functions are
1.719 +# only available on the designated platform.
1.720 +
1.721 +interface tclIntPlat
1.722 +
1.723 +########################
1.724 +# Mac specific internals
1.725 +
1.726 +declare 0 mac {
1.727 + VOID * TclpSysAlloc(long size, int isBin)
1.728 +}
1.729 +declare 1 mac {
1.730 + void TclpSysFree(VOID *ptr)
1.731 +}
1.732 +declare 2 mac {
1.733 + VOID * TclpSysRealloc(VOID *cp, unsigned int size)
1.734 +}
1.735 +declare 3 mac {
1.736 + void TclpExit(int status)
1.737 +}
1.738 +
1.739 +# Prototypes for functions found in the tclMacUtil.c compatability library.
1.740 +
1.741 +declare 4 mac {
1.742 + int FSpGetDefaultDir(FSSpecPtr theSpec)
1.743 +}
1.744 +declare 5 mac {
1.745 + int FSpSetDefaultDir(FSSpecPtr theSpec)
1.746 +}
1.747 +declare 6 mac {
1.748 + OSErr FSpFindFolder(short vRefNum, OSType folderType,
1.749 + Boolean createFolder, FSSpec *spec)
1.750 +}
1.751 +declare 7 mac {
1.752 + void GetGlobalMouseTcl(Point *mouse)
1.753 +}
1.754 +
1.755 +# The following routines are utility functions in Tcl. They are exported
1.756 +# here because they are needed in Tk. They are not officially supported,
1.757 +# however. The first set are from the MoreFiles package.
1.758 +
1.759 +declare 8 mac {
1.760 + pascal OSErr FSpGetDirectoryIDTcl(CONST FSSpec *spec, long *theDirID,
1.761 + Boolean *isDirectory)
1.762 +}
1.763 +declare 9 mac {
1.764 + pascal short FSpOpenResFileCompatTcl(CONST FSSpec *spec,
1.765 + SignedByte permission)
1.766 +}
1.767 +declare 10 mac {
1.768 + pascal void FSpCreateResFileCompatTcl(CONST FSSpec *spec, OSType creator,
1.769 + OSType fileType, ScriptCode scriptTag)
1.770 +}
1.771 +
1.772 +# Like the MoreFiles routines these fix problems in the standard
1.773 +# Mac calls. These routines are from tclMacUtils.h.
1.774 +
1.775 +declare 11 mac {
1.776 + int FSpLocationFromPath(int length, CONST char *path, FSSpecPtr theSpec)
1.777 +}
1.778 +declare 12 mac {
1.779 + OSErr FSpPathFromLocation(FSSpecPtr theSpec, int *length,
1.780 + Handle *fullPath)
1.781 +}
1.782 +
1.783 +# Prototypes of Mac only internal functions.
1.784 +
1.785 +declare 13 mac {
1.786 + void TclMacExitHandler(void)
1.787 +}
1.788 +declare 14 mac {
1.789 + void TclMacInitExitToShell(int usePatch)
1.790 +}
1.791 +declare 15 mac {
1.792 + OSErr TclMacInstallExitToShellPatch(ExitToShellProcPtr newProc)
1.793 +}
1.794 +declare 16 mac {
1.795 + int TclMacOSErrorToPosixError(int error)
1.796 +}
1.797 +declare 17 mac {
1.798 + void TclMacRemoveTimer(void *timerToken)
1.799 +}
1.800 +declare 18 mac {
1.801 + void * TclMacStartTimer(long ms)
1.802 +}
1.803 +declare 19 mac {
1.804 + int TclMacTimerExpired(void *timerToken)
1.805 +}
1.806 +declare 20 mac {
1.807 + int TclMacRegisterResourceFork(short fileRef, Tcl_Obj *tokenPtr,
1.808 + int insert)
1.809 +}
1.810 +declare 21 mac {
1.811 + short TclMacUnRegisterResourceFork(char *tokenPtr, Tcl_Obj *resultPtr)
1.812 +}
1.813 +declare 22 mac {
1.814 + int TclMacCreateEnv(void)
1.815 +}
1.816 +declare 23 mac {
1.817 + FILE * TclMacFOpenHack(CONST char *path, CONST char *mode)
1.818 +}
1.819 +# Replaced in 8.1 by TclpReadLink:
1.820 +# declare 24 mac {
1.821 +# int TclMacReadlink(char *path, char *buf, int size)
1.822 +# }
1.823 +declare 24 mac {
1.824 + char * TclpGetTZName(int isdst)
1.825 +}
1.826 +declare 25 mac {
1.827 + int TclMacChmod(CONST char *path, int mode)
1.828 +}
1.829 +# version of FSpLocationFromPath that doesn't resolve the last path component
1.830 +declare 26 mac {
1.831 + int FSpLLocationFromPath(int length, CONST char *path, FSSpecPtr theSpec)
1.832 +}
1.833 +
1.834 +############################
1.835 +# Windows specific internals
1.836 +
1.837 +declare 0 win {
1.838 + void TclWinConvertError(DWORD errCode)
1.839 +}
1.840 +declare 1 win {
1.841 + void TclWinConvertWSAError(DWORD errCode)
1.842 +}
1.843 +declare 2 win {
1.844 + struct servent * TclWinGetServByName(CONST char *nm,
1.845 + CONST char *proto)
1.846 +}
1.847 +declare 3 win {
1.848 + int TclWinGetSockOpt(SOCKET s, int level, int optname,
1.849 + char FAR * optval, int FAR *optlen)
1.850 +}
1.851 +declare 4 win {
1.852 + HINSTANCE TclWinGetTclInstance(void)
1.853 +}
1.854 +# Removed in 8.1:
1.855 +# declare 5 win {
1.856 +# HINSTANCE TclWinLoadLibrary(char *name)
1.857 +# }
1.858 +declare 6 win {
1.859 + u_short TclWinNToHS(u_short ns)
1.860 +}
1.861 +declare 7 win {
1.862 + int TclWinSetSockOpt(SOCKET s, int level, int optname,
1.863 + CONST char FAR * optval, int optlen)
1.864 +}
1.865 +declare 8 win {
1.866 + unsigned long TclpGetPid(Tcl_Pid pid)
1.867 +}
1.868 +declare 9 win {
1.869 + int TclWinGetPlatformId(void)
1.870 +}
1.871 +# Removed in 8.3.1 (for Win32s only)
1.872 +#declare 10 win {
1.873 +# int TclWinSynchSpawn(void *args, int type, void **trans, Tcl_Pid *pidPtr)
1.874 +#}
1.875 +
1.876 +# Pipe channel functions
1.877 +
1.878 +declare 11 win {
1.879 + void TclGetAndDetachPids(Tcl_Interp *interp, Tcl_Channel chan)
1.880 +}
1.881 +declare 12 win {
1.882 + int TclpCloseFile(TclFile file)
1.883 +}
1.884 +declare 13 win {
1.885 + Tcl_Channel TclpCreateCommandChannel(TclFile readFile,
1.886 + TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr)
1.887 +}
1.888 +declare 14 win {
1.889 + int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe)
1.890 +}
1.891 +declare 15 win {
1.892 + int TclpCreateProcess(Tcl_Interp *interp, int argc, CONST char **argv,
1.893 + TclFile inputFile, TclFile outputFile, TclFile errorFile,
1.894 + Tcl_Pid *pidPtr)
1.895 +}
1.896 +# Signature changed in 8.1:
1.897 +# declare 16 win {
1.898 +# TclFile TclpCreateTempFile(char *contents, Tcl_DString *namePtr)
1.899 +# }
1.900 +# declare 17 win {
1.901 +# char * TclpGetTZName(void)
1.902 +# }
1.903 +declare 18 win {
1.904 + TclFile TclpMakeFile(Tcl_Channel channel, int direction)
1.905 +}
1.906 +declare 19 win {
1.907 + TclFile TclpOpenFile(CONST char *fname, int mode)
1.908 +}
1.909 +declare 20 win {
1.910 + void TclWinAddProcess(HANDLE hProcess, DWORD id)
1.911 +}
1.912 +
1.913 +# removed permanently for 8.4
1.914 +#declare 21 win {
1.915 +# void TclpAsyncMark(Tcl_AsyncHandler async)
1.916 +#}
1.917 +
1.918 +# Added in 8.1:
1.919 +declare 22 win {
1.920 + TclFile TclpCreateTempFile(CONST char *contents)
1.921 +}
1.922 +declare 23 win {
1.923 + char * TclpGetTZName(int isdst)
1.924 +}
1.925 +declare 24 win {
1.926 + char * TclWinNoBackslash(char *path)
1.927 +}
1.928 +declare 25 win {
1.929 + TclPlatformType *TclWinGetPlatform(void)
1.930 +}
1.931 +declare 26 win {
1.932 + void TclWinSetInterfaces(int wide)
1.933 +}
1.934 +
1.935 +# Added in Tcl 8.3.3 / 8.4
1.936 +
1.937 +declare 27 win {
1.938 + void TclWinFlushDirtyChannels (void)
1.939 +}
1.940 +
1.941 +# Added in 8.4.2
1.942 +
1.943 +declare 28 win {
1.944 + void TclWinResetInterfaces(void)
1.945 +}
1.946 +
1.947 +declare 29 win {
1.948 + int TclWinCPUID( unsigned int index, unsigned int *regs )
1.949 +}
1.950 +
1.951 +#########################
1.952 +# Unix specific internals
1.953 +
1.954 +# Pipe channel functions
1.955 +
1.956 +declare 0 unix {
1.957 + void TclGetAndDetachPids(Tcl_Interp *interp, Tcl_Channel chan)
1.958 +}
1.959 +declare 1 unix {
1.960 + int TclpCloseFile(TclFile file)
1.961 +}
1.962 +declare 2 unix {
1.963 + Tcl_Channel TclpCreateCommandChannel(TclFile readFile,
1.964 + TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr)
1.965 +}
1.966 +declare 3 unix {
1.967 + int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe)
1.968 +}
1.969 +declare 4 unix {
1.970 + int TclpCreateProcess(Tcl_Interp *interp, int argc, CONST char **argv,
1.971 + TclFile inputFile, TclFile outputFile, TclFile errorFile,
1.972 + Tcl_Pid *pidPtr)
1.973 +}
1.974 +# Signature changed in 8.1:
1.975 +# declare 5 unix {
1.976 +# TclFile TclpCreateTempFile(char *contents, Tcl_DString *namePtr)
1.977 +# }
1.978 +declare 6 unix {
1.979 + TclFile TclpMakeFile(Tcl_Channel channel, int direction)
1.980 +}
1.981 +declare 7 unix {
1.982 + TclFile TclpOpenFile(CONST char *fname, int mode)
1.983 +}
1.984 +declare 8 unix {
1.985 + int TclUnixWaitForFile(int fd, int mask, int timeout)
1.986 +}
1.987 +
1.988 +# Added in 8.1:
1.989 +
1.990 +declare 9 unix {
1.991 + TclFile TclpCreateTempFile(CONST char *contents)
1.992 +}
1.993 +
1.994 +# Added in 8.4:
1.995 +
1.996 +declare 10 unix {
1.997 + Tcl_DirEntry * TclpReaddir(DIR * dir)
1.998 +}
1.999 +
1.1000 +# Slots 11 and 12 are forwarders for functions that were promoted to
1.1001 +# generic Stubs
1.1002 +
1.1003 +declare 11 unix {
1.1004 + struct tm * TclpLocaltime_unix(TclpTime_t_CONST clock)
1.1005 +}
1.1006 +
1.1007 +declare 12 unix {
1.1008 + struct tm * TclpGmtime_unix(TclpTime_t_CONST clock)
1.1009 +}
1.1010 +
1.1011 +declare 13 unix {
1.1012 + char * TclpInetNtoa(struct in_addr addr)
1.1013 +}