os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/generic/tcl.decls
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/generic/tcl.decls Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,1881 @@
1.4 +# tcl.decls --
1.5 +#
1.6 +# This file contains the declarations for all supported public
1.7 +# functions that are exported by the Tcl library via the stubs table.
1.8 +# This file is used to generate the tclDecls.h, tclPlatDecls.h,
1.9 +# tclStub.c, and tclPlatStub.c files.
1.10 +#
1.11 +#
1.12 +# Copyright (c) 1998-1999 by Scriptics Corporation.
1.13 +# Copyright (c) 2001, 2002 by Kevin B. Kenny. All rights reserved.
1.14 +# See the file "license.terms" for information on usage and redistribution
1.15 +# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
1.16 +#
1.17 +# RCS: @(#) $Id: tcl.decls,v 1.94.2.4 2006/09/22 01:26:22 andreas_kupries Exp $
1.18 +
1.19 +library tcl
1.20 +
1.21 +# Define the tcl interface with several sub interfaces:
1.22 +# tclPlat - platform specific public
1.23 +# tclInt - generic private
1.24 +# tclPlatInt - platform specific private
1.25 +
1.26 +interface tcl
1.27 +hooks {tclPlat tclInt tclIntPlat}
1.28 +
1.29 +# Declare each of the functions in the public Tcl interface. Note that
1.30 +# the an index should never be reused for a different function in order
1.31 +# to preserve backwards compatibility.
1.32 +
1.33 +declare 0 generic {
1.34 + int Tcl_PkgProvideEx(Tcl_Interp* interp, CONST char* name,
1.35 + CONST char* version, ClientData clientData)
1.36 +}
1.37 +declare 1 generic {
1.38 + CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, CONST char *name,
1.39 + CONST char *version, int exact, ClientData *clientDataPtr)
1.40 +}
1.41 +declare 2 generic {
1.42 + void Tcl_Panic(CONST char *format, ...)
1.43 +}
1.44 +declare 3 generic {
1.45 + char * Tcl_Alloc(unsigned int size)
1.46 +}
1.47 +declare 4 generic {
1.48 + void Tcl_Free(char *ptr)
1.49 +}
1.50 +declare 5 generic {
1.51 + char * Tcl_Realloc(char *ptr, unsigned int size)
1.52 +}
1.53 +declare 6 generic {
1.54 + char * Tcl_DbCkalloc(unsigned int size, CONST char *file, int line)
1.55 +}
1.56 +declare 7 generic {
1.57 + int Tcl_DbCkfree(char *ptr, CONST char *file, int line)
1.58 +}
1.59 +declare 8 generic {
1.60 + char * Tcl_DbCkrealloc(char *ptr, unsigned int size,
1.61 + CONST char *file, int line)
1.62 +}
1.63 +
1.64 +# Tcl_CreateFileHandler and Tcl_DeleteFileHandler are only available on unix,
1.65 +# but they are part of the old generic interface, so we include them here for
1.66 +# compatibility reasons.
1.67 +
1.68 +declare 9 unix {
1.69 + void Tcl_CreateFileHandler(int fd, int mask, Tcl_FileProc *proc,
1.70 + ClientData clientData)
1.71 +}
1.72 +declare 10 unix {
1.73 + void Tcl_DeleteFileHandler(int fd)
1.74 +}
1.75 +
1.76 +declare 11 generic {
1.77 + void Tcl_SetTimer(Tcl_Time *timePtr)
1.78 +}
1.79 +declare 12 generic {
1.80 + void Tcl_Sleep(int ms)
1.81 +}
1.82 +declare 13 generic {
1.83 + int Tcl_WaitForEvent(Tcl_Time *timePtr)
1.84 +}
1.85 +declare 14 generic {
1.86 + int Tcl_AppendAllObjTypes(Tcl_Interp *interp, Tcl_Obj *objPtr)
1.87 +}
1.88 +declare 15 generic {
1.89 + void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...)
1.90 +}
1.91 +declare 16 generic {
1.92 + void Tcl_AppendToObj(Tcl_Obj* objPtr, CONST char* bytes, int length)
1.93 +}
1.94 +declare 17 generic {
1.95 + Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *CONST objv[])
1.96 +}
1.97 +declare 18 generic {
1.98 + int Tcl_ConvertToType(Tcl_Interp *interp, Tcl_Obj *objPtr,
1.99 + Tcl_ObjType *typePtr)
1.100 +}
1.101 +declare 19 generic {
1.102 + void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, CONST char *file, int line)
1.103 +}
1.104 +declare 20 generic {
1.105 + void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, CONST char *file, int line)
1.106 +}
1.107 +declare 21 generic {
1.108 + int Tcl_DbIsShared(Tcl_Obj *objPtr, CONST char *file, int line)
1.109 +}
1.110 +declare 22 generic {
1.111 + Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, CONST char *file, int line)
1.112 +}
1.113 +declare 23 generic {
1.114 + Tcl_Obj * Tcl_DbNewByteArrayObj(CONST unsigned char *bytes, int length,
1.115 + CONST char *file, int line)
1.116 +}
1.117 +declare 24 generic {
1.118 + Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue,
1.119 + CONST char *file, int line)
1.120 +}
1.121 +declare 25 generic {
1.122 + Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST *objv,
1.123 + CONST char *file, int line)
1.124 +}
1.125 +declare 26 generic {
1.126 + Tcl_Obj * Tcl_DbNewLongObj(long longValue, CONST char *file, int line)
1.127 +}
1.128 +declare 27 generic {
1.129 + Tcl_Obj * Tcl_DbNewObj(CONST char *file, int line)
1.130 +}
1.131 +declare 28 generic {
1.132 + Tcl_Obj * Tcl_DbNewStringObj(CONST char *bytes, int length,
1.133 + CONST char *file, int line)
1.134 +}
1.135 +declare 29 generic {
1.136 + Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr)
1.137 +}
1.138 +declare 30 generic {
1.139 + void TclFreeObj(Tcl_Obj *objPtr)
1.140 +}
1.141 +declare 31 generic {
1.142 + int Tcl_GetBoolean(Tcl_Interp *interp, CONST char *str, int *boolPtr)
1.143 +}
1.144 +declare 32 generic {
1.145 + int Tcl_GetBooleanFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1.146 + int *boolPtr)
1.147 +}
1.148 +declare 33 generic {
1.149 + unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, int *lengthPtr)
1.150 +}
1.151 +declare 34 generic {
1.152 + int Tcl_GetDouble(Tcl_Interp *interp, CONST char *str, double *doublePtr)
1.153 +}
1.154 +declare 35 generic {
1.155 + int Tcl_GetDoubleFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1.156 + double *doublePtr)
1.157 +}
1.158 +declare 36 generic {
1.159 + int Tcl_GetIndexFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1.160 + CONST84 char **tablePtr, CONST char *msg, int flags, int *indexPtr)
1.161 +}
1.162 +declare 37 generic {
1.163 + int Tcl_GetInt(Tcl_Interp *interp, CONST char *str, int *intPtr)
1.164 +}
1.165 +declare 38 generic {
1.166 + int Tcl_GetIntFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr)
1.167 +}
1.168 +declare 39 generic {
1.169 + int Tcl_GetLongFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr)
1.170 +}
1.171 +declare 40 generic {
1.172 + Tcl_ObjType * Tcl_GetObjType(CONST char *typeName)
1.173 +}
1.174 +declare 41 generic {
1.175 + char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr)
1.176 +}
1.177 +declare 42 generic {
1.178 + void Tcl_InvalidateStringRep(Tcl_Obj *objPtr)
1.179 +}
1.180 +declare 43 generic {
1.181 + int Tcl_ListObjAppendList(Tcl_Interp *interp, Tcl_Obj *listPtr,
1.182 + Tcl_Obj *elemListPtr)
1.183 +}
1.184 +declare 44 generic {
1.185 + int Tcl_ListObjAppendElement(Tcl_Interp *interp, Tcl_Obj *listPtr,
1.186 + Tcl_Obj *objPtr)
1.187 +}
1.188 +declare 45 generic {
1.189 + int Tcl_ListObjGetElements(Tcl_Interp *interp, Tcl_Obj *listPtr,
1.190 + int *objcPtr, Tcl_Obj ***objvPtr)
1.191 +}
1.192 +declare 46 generic {
1.193 + int Tcl_ListObjIndex(Tcl_Interp *interp, Tcl_Obj *listPtr, int index,
1.194 + Tcl_Obj **objPtrPtr)
1.195 +}
1.196 +declare 47 generic {
1.197 + int Tcl_ListObjLength(Tcl_Interp *interp, Tcl_Obj *listPtr,
1.198 + int *lengthPtr)
1.199 +}
1.200 +declare 48 generic {
1.201 + int Tcl_ListObjReplace(Tcl_Interp *interp, Tcl_Obj *listPtr, int first,
1.202 + int count, int objc, Tcl_Obj *CONST objv[])
1.203 +}
1.204 +declare 49 generic {
1.205 + Tcl_Obj *Tcl_NewBooleanObj(int boolValue)
1.206 +}
1.207 +declare 50 generic {
1.208 + Tcl_Obj *Tcl_NewByteArrayObj(CONST unsigned char* bytes, int length)
1.209 +}
1.210 +declare 51 generic {
1.211 + Tcl_Obj * Tcl_NewDoubleObj(double doubleValue)
1.212 +}
1.213 +declare 52 generic {
1.214 + Tcl_Obj * Tcl_NewIntObj(int intValue)
1.215 +}
1.216 +declare 53 generic {
1.217 + Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *CONST objv[])
1.218 +}
1.219 +declare 54 generic {
1.220 + Tcl_Obj * Tcl_NewLongObj(long longValue)
1.221 +}
1.222 +declare 55 generic {
1.223 + Tcl_Obj * Tcl_NewObj(void)
1.224 +}
1.225 +declare 56 generic {
1.226 + Tcl_Obj *Tcl_NewStringObj(CONST char *bytes, int length)
1.227 +}
1.228 +declare 57 generic {
1.229 + void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue)
1.230 +}
1.231 +declare 58 generic {
1.232 + unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length)
1.233 +}
1.234 +declare 59 generic {
1.235 + void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, CONST unsigned char *bytes,
1.236 + int length)
1.237 +}
1.238 +declare 60 generic {
1.239 + void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue)
1.240 +}
1.241 +declare 61 generic {
1.242 + void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue)
1.243 +}
1.244 +declare 62 generic {
1.245 + void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, Tcl_Obj *CONST objv[])
1.246 +}
1.247 +declare 63 generic {
1.248 + void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue)
1.249 +}
1.250 +declare 64 generic {
1.251 + void Tcl_SetObjLength(Tcl_Obj *objPtr, int length)
1.252 +}
1.253 +declare 65 generic {
1.254 + void Tcl_SetStringObj(Tcl_Obj* objPtr, CONST char* bytes, int length)
1.255 +}
1.256 +declare 66 generic {
1.257 + void Tcl_AddErrorInfo(Tcl_Interp *interp, CONST char *message)
1.258 +}
1.259 +declare 67 generic {
1.260 + void Tcl_AddObjErrorInfo(Tcl_Interp *interp, CONST char *message,
1.261 + int length)
1.262 +}
1.263 +declare 68 generic {
1.264 + void Tcl_AllowExceptions(Tcl_Interp *interp)
1.265 +}
1.266 +declare 69 generic {
1.267 + void Tcl_AppendElement(Tcl_Interp *interp, CONST char *string)
1.268 +}
1.269 +declare 70 generic {
1.270 + void Tcl_AppendResult(Tcl_Interp *interp, ...)
1.271 +}
1.272 +declare 71 generic {
1.273 + Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc,
1.274 + ClientData clientData)
1.275 +}
1.276 +declare 72 generic {
1.277 + void Tcl_AsyncDelete(Tcl_AsyncHandler async)
1.278 +}
1.279 +declare 73 generic {
1.280 + int Tcl_AsyncInvoke(Tcl_Interp *interp, int code)
1.281 +}
1.282 +declare 74 generic {
1.283 + void Tcl_AsyncMark(Tcl_AsyncHandler async)
1.284 +}
1.285 +declare 75 generic {
1.286 + int Tcl_AsyncReady(void)
1.287 +}
1.288 +declare 76 generic {
1.289 + void Tcl_BackgroundError(Tcl_Interp *interp)
1.290 +}
1.291 +declare 77 generic {
1.292 + char Tcl_Backslash(CONST char *src, int *readPtr)
1.293 +}
1.294 +declare 78 generic {
1.295 + int Tcl_BadChannelOption(Tcl_Interp *interp, CONST char *optionName,
1.296 + CONST char *optionList)
1.297 +}
1.298 +declare 79 generic {
1.299 + void Tcl_CallWhenDeleted(Tcl_Interp *interp, Tcl_InterpDeleteProc *proc,
1.300 + ClientData clientData)
1.301 +}
1.302 +declare 80 generic {
1.303 + void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, ClientData clientData)
1.304 +}
1.305 +declare 81 generic {
1.306 + int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan)
1.307 +}
1.308 +declare 82 generic {
1.309 + int Tcl_CommandComplete(CONST char *cmd)
1.310 +}
1.311 +declare 83 generic {
1.312 + char * Tcl_Concat(int argc, CONST84 char * CONST *argv)
1.313 +}
1.314 +declare 84 generic {
1.315 + int Tcl_ConvertElement(CONST char *src, char *dst, int flags)
1.316 +}
1.317 +declare 85 generic {
1.318 + int Tcl_ConvertCountedElement(CONST char *src, int length, char *dst,
1.319 + int flags)
1.320 +}
1.321 +declare 86 generic {
1.322 + int Tcl_CreateAlias(Tcl_Interp *slave, CONST char *slaveCmd,
1.323 + Tcl_Interp *target, CONST char *targetCmd, int argc,
1.324 + CONST84 char * CONST *argv)
1.325 +}
1.326 +declare 87 generic {
1.327 + int Tcl_CreateAliasObj(Tcl_Interp *slave, CONST char *slaveCmd,
1.328 + Tcl_Interp *target, CONST char *targetCmd, int objc,
1.329 + Tcl_Obj *CONST objv[])
1.330 +}
1.331 +declare 88 generic {
1.332 + Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr,
1.333 + CONST char *chanName, ClientData instanceData, int mask)
1.334 +}
1.335 +declare 89 generic {
1.336 + void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask,
1.337 + Tcl_ChannelProc *proc, ClientData clientData)
1.338 +}
1.339 +declare 90 generic {
1.340 + void Tcl_CreateCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc,
1.341 + ClientData clientData)
1.342 +}
1.343 +declare 91 generic {
1.344 + Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, CONST char *cmdName,
1.345 + Tcl_CmdProc *proc, ClientData clientData,
1.346 + Tcl_CmdDeleteProc *deleteProc)
1.347 +}
1.348 +declare 92 generic {
1.349 + void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc,
1.350 + Tcl_EventCheckProc *checkProc, ClientData clientData)
1.351 +}
1.352 +declare 93 generic {
1.353 + void Tcl_CreateExitHandler(Tcl_ExitProc *proc, ClientData clientData)
1.354 +}
1.355 +declare 94 generic {
1.356 + Tcl_Interp * Tcl_CreateInterp(void)
1.357 +}
1.358 +declare 95 generic {
1.359 + void Tcl_CreateMathFunc(Tcl_Interp *interp, CONST char *name,
1.360 + int numArgs, Tcl_ValueType *argTypes,
1.361 + Tcl_MathProc *proc, ClientData clientData)
1.362 +}
1.363 +declare 96 generic {
1.364 + Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp,
1.365 + CONST char *cmdName,
1.366 + Tcl_ObjCmdProc *proc, ClientData clientData,
1.367 + Tcl_CmdDeleteProc *deleteProc)
1.368 +}
1.369 +declare 97 generic {
1.370 + Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, CONST char *slaveName,
1.371 + int isSafe)
1.372 +}
1.373 +declare 98 generic {
1.374 + Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds,
1.375 + Tcl_TimerProc *proc, ClientData clientData)
1.376 +}
1.377 +declare 99 generic {
1.378 + Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level,
1.379 + Tcl_CmdTraceProc *proc, ClientData clientData)
1.380 +}
1.381 +declare 100 generic {
1.382 + void Tcl_DeleteAssocData(Tcl_Interp *interp, CONST char *name)
1.383 +}
1.384 +declare 101 generic {
1.385 + void Tcl_DeleteChannelHandler(Tcl_Channel chan, Tcl_ChannelProc *proc,
1.386 + ClientData clientData)
1.387 +}
1.388 +declare 102 generic {
1.389 + void Tcl_DeleteCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc,
1.390 + ClientData clientData)
1.391 +}
1.392 +declare 103 generic {
1.393 + int Tcl_DeleteCommand(Tcl_Interp *interp, CONST char *cmdName)
1.394 +}
1.395 +declare 104 generic {
1.396 + int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, Tcl_Command command)
1.397 +}
1.398 +declare 105 generic {
1.399 + void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, ClientData clientData)
1.400 +}
1.401 +declare 106 generic {
1.402 + void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc,
1.403 + Tcl_EventCheckProc *checkProc, ClientData clientData)
1.404 +}
1.405 +declare 107 generic {
1.406 + void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, ClientData clientData)
1.407 +}
1.408 +declare 108 generic {
1.409 + void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr)
1.410 +}
1.411 +declare 109 generic {
1.412 + void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr)
1.413 +}
1.414 +declare 110 generic {
1.415 + void Tcl_DeleteInterp(Tcl_Interp *interp)
1.416 +}
1.417 +declare 111 {unix win} {
1.418 + void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr)
1.419 +}
1.420 +declare 112 generic {
1.421 + void Tcl_DeleteTimerHandler(Tcl_TimerToken token)
1.422 +}
1.423 +declare 113 generic {
1.424 + void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace)
1.425 +}
1.426 +declare 114 generic {
1.427 + void Tcl_DontCallWhenDeleted(Tcl_Interp *interp,
1.428 + Tcl_InterpDeleteProc *proc, ClientData clientData)
1.429 +}
1.430 +declare 115 generic {
1.431 + int Tcl_DoOneEvent(int flags)
1.432 +}
1.433 +declare 116 generic {
1.434 + void Tcl_DoWhenIdle(Tcl_IdleProc *proc, ClientData clientData)
1.435 +}
1.436 +declare 117 generic {
1.437 + char * Tcl_DStringAppend(Tcl_DString *dsPtr, CONST char *str, int length)
1.438 +}
1.439 +declare 118 generic {
1.440 + char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, CONST char *string)
1.441 +}
1.442 +declare 119 generic {
1.443 + void Tcl_DStringEndSublist(Tcl_DString *dsPtr)
1.444 +}
1.445 +declare 120 generic {
1.446 + void Tcl_DStringFree(Tcl_DString *dsPtr)
1.447 +}
1.448 +declare 121 generic {
1.449 + void Tcl_DStringGetResult(Tcl_Interp *interp, Tcl_DString *dsPtr)
1.450 +}
1.451 +declare 122 generic {
1.452 + void Tcl_DStringInit(Tcl_DString *dsPtr)
1.453 +}
1.454 +declare 123 generic {
1.455 + void Tcl_DStringResult(Tcl_Interp *interp, Tcl_DString *dsPtr)
1.456 +}
1.457 +declare 124 generic {
1.458 + void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length)
1.459 +}
1.460 +declare 125 generic {
1.461 + void Tcl_DStringStartSublist(Tcl_DString *dsPtr)
1.462 +}
1.463 +declare 126 generic {
1.464 + int Tcl_Eof(Tcl_Channel chan)
1.465 +}
1.466 +declare 127 generic {
1.467 + CONST84_RETURN char * Tcl_ErrnoId(void)
1.468 +}
1.469 +declare 128 generic {
1.470 + CONST84_RETURN char * Tcl_ErrnoMsg(int err)
1.471 +}
1.472 +declare 129 generic {
1.473 + int Tcl_Eval(Tcl_Interp *interp, CONST char *string)
1.474 +}
1.475 +# This is obsolete, use Tcl_FSEvalFile
1.476 +declare 130 generic {
1.477 + int Tcl_EvalFile(Tcl_Interp *interp, CONST char *fileName)
1.478 +}
1.479 +declare 131 generic {
1.480 + int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
1.481 +}
1.482 +declare 132 generic {
1.483 + void Tcl_EventuallyFree(ClientData clientData, Tcl_FreeProc *freeProc)
1.484 +}
1.485 +declare 133 generic {
1.486 + void Tcl_Exit(int status)
1.487 +}
1.488 +declare 134 generic {
1.489 + int Tcl_ExposeCommand(Tcl_Interp *interp, CONST char *hiddenCmdToken,
1.490 + CONST char *cmdName)
1.491 +}
1.492 +declare 135 generic {
1.493 + int Tcl_ExprBoolean(Tcl_Interp *interp, CONST char *str, int *ptr)
1.494 +}
1.495 +declare 136 generic {
1.496 + int Tcl_ExprBooleanObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr)
1.497 +}
1.498 +declare 137 generic {
1.499 + int Tcl_ExprDouble(Tcl_Interp *interp, CONST char *str, double *ptr)
1.500 +}
1.501 +declare 138 generic {
1.502 + int Tcl_ExprDoubleObj(Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr)
1.503 +}
1.504 +declare 139 generic {
1.505 + int Tcl_ExprLong(Tcl_Interp *interp, CONST char *str, long *ptr)
1.506 +}
1.507 +declare 140 generic {
1.508 + int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr)
1.509 +}
1.510 +declare 141 generic {
1.511 + int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1.512 + Tcl_Obj **resultPtrPtr)
1.513 +}
1.514 +declare 142 generic {
1.515 + int Tcl_ExprString(Tcl_Interp *interp, CONST char *string)
1.516 +}
1.517 +declare 143 generic {
1.518 + void Tcl_Finalize(void)
1.519 +}
1.520 +declare 144 generic {
1.521 + void Tcl_FindExecutable(CONST char *argv0)
1.522 +}
1.523 +declare 145 generic {
1.524 + Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr,
1.525 + Tcl_HashSearch *searchPtr)
1.526 +}
1.527 +declare 146 generic {
1.528 + int Tcl_Flush(Tcl_Channel chan)
1.529 +}
1.530 +declare 147 generic {
1.531 + void Tcl_FreeResult(Tcl_Interp *interp)
1.532 +}
1.533 +declare 148 generic {
1.534 + int Tcl_GetAlias(Tcl_Interp *interp, CONST char *slaveCmd,
1.535 + Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr,
1.536 + int *argcPtr, CONST84 char ***argvPtr)
1.537 +}
1.538 +declare 149 generic {
1.539 + int Tcl_GetAliasObj(Tcl_Interp *interp, CONST char *slaveCmd,
1.540 + Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr,
1.541 + int *objcPtr, Tcl_Obj ***objv)
1.542 +}
1.543 +declare 150 generic {
1.544 + ClientData Tcl_GetAssocData(Tcl_Interp *interp, CONST char *name,
1.545 + Tcl_InterpDeleteProc **procPtr)
1.546 +}
1.547 +declare 151 generic {
1.548 + Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, CONST char *chanName,
1.549 + int *modePtr)
1.550 +}
1.551 +declare 152 generic {
1.552 + int Tcl_GetChannelBufferSize(Tcl_Channel chan)
1.553 +}
1.554 +declare 153 generic {
1.555 + int Tcl_GetChannelHandle(Tcl_Channel chan, int direction,
1.556 + ClientData *handlePtr)
1.557 +}
1.558 +declare 154 generic {
1.559 + ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan)
1.560 +}
1.561 +declare 155 generic {
1.562 + int Tcl_GetChannelMode(Tcl_Channel chan)
1.563 +}
1.564 +declare 156 generic {
1.565 + CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan)
1.566 +}
1.567 +declare 157 generic {
1.568 + int Tcl_GetChannelOption(Tcl_Interp *interp, Tcl_Channel chan,
1.569 + CONST char *optionName, Tcl_DString *dsPtr)
1.570 +}
1.571 +declare 158 generic {
1.572 + Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan)
1.573 +}
1.574 +declare 159 generic {
1.575 + int Tcl_GetCommandInfo(Tcl_Interp *interp, CONST char *cmdName,
1.576 + Tcl_CmdInfo *infoPtr)
1.577 +}
1.578 +declare 160 generic {
1.579 + CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp,
1.580 + Tcl_Command command)
1.581 +}
1.582 +declare 161 generic {
1.583 + int Tcl_GetErrno(void)
1.584 +}
1.585 +declare 162 generic {
1.586 + CONST84_RETURN char * Tcl_GetHostName(void)
1.587 +}
1.588 +declare 163 generic {
1.589 + int Tcl_GetInterpPath(Tcl_Interp *askInterp, Tcl_Interp *slaveInterp)
1.590 +}
1.591 +declare 164 generic {
1.592 + Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp)
1.593 +}
1.594 +declare 165 generic {
1.595 + CONST char * Tcl_GetNameOfExecutable(void)
1.596 +}
1.597 +declare 166 generic {
1.598 + Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp)
1.599 +}
1.600 +
1.601 +# Tcl_GetOpenFile is only available on unix, but it is a part of the old
1.602 +# generic interface, so we inlcude it here for compatibility reasons.
1.603 +
1.604 +declare 167 unix {
1.605 + int Tcl_GetOpenFile(Tcl_Interp *interp, CONST char *str, int forWriting,
1.606 + int checkUsage, ClientData *filePtr)
1.607 +}
1.608 +# Obsolete. Should now use Tcl_FSGetPathType which is objectified
1.609 +# and therefore usually faster.
1.610 +declare 168 generic {
1.611 + Tcl_PathType Tcl_GetPathType(CONST char *path)
1.612 +}
1.613 +declare 169 generic {
1.614 + int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr)
1.615 +}
1.616 +declare 170 generic {
1.617 + int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr)
1.618 +}
1.619 +declare 171 generic {
1.620 + int Tcl_GetServiceMode(void)
1.621 +}
1.622 +declare 172 generic {
1.623 + Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, CONST char *slaveName)
1.624 +}
1.625 +declare 173 generic {
1.626 + Tcl_Channel Tcl_GetStdChannel(int type)
1.627 +}
1.628 +declare 174 generic {
1.629 + CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp)
1.630 +}
1.631 +declare 175 generic {
1.632 + CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp, CONST char *varName,
1.633 + int flags)
1.634 +}
1.635 +declare 176 generic {
1.636 + CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp, CONST char *part1,
1.637 + CONST char *part2, int flags)
1.638 +}
1.639 +declare 177 generic {
1.640 + int Tcl_GlobalEval(Tcl_Interp *interp, CONST char *command)
1.641 +}
1.642 +declare 178 generic {
1.643 + int Tcl_GlobalEvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
1.644 +}
1.645 +declare 179 generic {
1.646 + int Tcl_HideCommand(Tcl_Interp *interp, CONST char *cmdName,
1.647 + CONST char *hiddenCmdToken)
1.648 +}
1.649 +declare 180 generic {
1.650 + int Tcl_Init(Tcl_Interp *interp)
1.651 +}
1.652 +declare 181 generic {
1.653 + void Tcl_InitHashTable(Tcl_HashTable *tablePtr, int keyType)
1.654 +}
1.655 +declare 182 generic {
1.656 + int Tcl_InputBlocked(Tcl_Channel chan)
1.657 +}
1.658 +declare 183 generic {
1.659 + int Tcl_InputBuffered(Tcl_Channel chan)
1.660 +}
1.661 +declare 184 generic {
1.662 + int Tcl_InterpDeleted(Tcl_Interp *interp)
1.663 +}
1.664 +declare 185 generic {
1.665 + int Tcl_IsSafe(Tcl_Interp *interp)
1.666 +}
1.667 +# Obsolete, use Tcl_FSJoinPath
1.668 +declare 186 generic {
1.669 + char * Tcl_JoinPath(int argc, CONST84 char * CONST *argv,
1.670 + Tcl_DString *resultPtr)
1.671 +}
1.672 +declare 187 generic {
1.673 + int Tcl_LinkVar(Tcl_Interp *interp, CONST char *varName, char *addr,
1.674 + int type)
1.675 +}
1.676 +
1.677 +# This slot is reserved for use by the plus patch:
1.678 +# declare 188 generic {
1.679 +# Tcl_MainLoop
1.680 +# }
1.681 +
1.682 +declare 189 generic {
1.683 + Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode)
1.684 +}
1.685 +declare 190 generic {
1.686 + int Tcl_MakeSafe(Tcl_Interp *interp)
1.687 +}
1.688 +declare 191 generic {
1.689 + Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket)
1.690 +}
1.691 +declare 192 generic {
1.692 + char * Tcl_Merge(int argc, CONST84 char * CONST *argv)
1.693 +}
1.694 +declare 193 generic {
1.695 + Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr)
1.696 +}
1.697 +declare 194 generic {
1.698 + void Tcl_NotifyChannel(Tcl_Channel channel, int mask)
1.699 +}
1.700 +declare 195 generic {
1.701 + Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
1.702 + Tcl_Obj *part2Ptr, int flags)
1.703 +}
1.704 +declare 196 generic {
1.705 + Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
1.706 + Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags)
1.707 +}
1.708 +declare 197 {unix win} {
1.709 + Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc,
1.710 + CONST84 char **argv, int flags)
1.711 +}
1.712 +# This is obsolete, use Tcl_FSOpenFileChannel
1.713 +declare 198 generic {
1.714 + Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, CONST char *fileName,
1.715 + CONST char *modeString, int permissions)
1.716 +}
1.717 +declare 199 generic {
1.718 + Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port,
1.719 + CONST char *address, CONST char *myaddr, int myport, int async)
1.720 +}
1.721 +declare 200 generic {
1.722 + Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port,
1.723 + CONST char *host, Tcl_TcpAcceptProc *acceptProc,
1.724 + ClientData callbackData)
1.725 +}
1.726 +declare 201 generic {
1.727 + void Tcl_Preserve(ClientData data)
1.728 +}
1.729 +declare 202 generic {
1.730 + void Tcl_PrintDouble(Tcl_Interp *interp, double value, char *dst)
1.731 +}
1.732 +declare 203 generic {
1.733 + int Tcl_PutEnv(CONST char *string)
1.734 +}
1.735 +declare 204 generic {
1.736 + CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp)
1.737 +}
1.738 +declare 205 generic {
1.739 + void Tcl_QueueEvent(Tcl_Event *evPtr, Tcl_QueuePosition position)
1.740 +}
1.741 +declare 206 generic {
1.742 + int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead)
1.743 +}
1.744 +declare 207 {unix win} {
1.745 + void Tcl_ReapDetachedProcs(void)
1.746 +}
1.747 +declare 208 generic {
1.748 + int Tcl_RecordAndEval(Tcl_Interp *interp, CONST char *cmd, int flags)
1.749 +}
1.750 +declare 209 generic {
1.751 + int Tcl_RecordAndEvalObj(Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags)
1.752 +}
1.753 +declare 210 generic {
1.754 + void Tcl_RegisterChannel(Tcl_Interp *interp, Tcl_Channel chan)
1.755 +}
1.756 +declare 211 generic {
1.757 + void Tcl_RegisterObjType(Tcl_ObjType *typePtr)
1.758 +}
1.759 +declare 212 generic {
1.760 + Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, CONST char *string)
1.761 +}
1.762 +declare 213 generic {
1.763 + int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp,
1.764 + CONST char *str, CONST char *start)
1.765 +}
1.766 +declare 214 generic {
1.767 + int Tcl_RegExpMatch(Tcl_Interp *interp, CONST char *str,
1.768 + CONST char *pattern)
1.769 +}
1.770 +declare 215 generic {
1.771 + void Tcl_RegExpRange(Tcl_RegExp regexp, int index,
1.772 + CONST84 char **startPtr, CONST84 char **endPtr)
1.773 +}
1.774 +declare 216 generic {
1.775 + void Tcl_Release(ClientData clientData)
1.776 +}
1.777 +declare 217 generic {
1.778 + void Tcl_ResetResult(Tcl_Interp *interp)
1.779 +}
1.780 +declare 218 generic {
1.781 + int Tcl_ScanElement(CONST char *str, int *flagPtr)
1.782 +}
1.783 +declare 219 generic {
1.784 + int Tcl_ScanCountedElement(CONST char *str, int length, int *flagPtr)
1.785 +}
1.786 +# Obsolete
1.787 +declare 220 generic {
1.788 + int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode)
1.789 +}
1.790 +declare 221 generic {
1.791 + int Tcl_ServiceAll(void)
1.792 +}
1.793 +declare 222 generic {
1.794 + int Tcl_ServiceEvent(int flags)
1.795 +}
1.796 +declare 223 generic {
1.797 + void Tcl_SetAssocData(Tcl_Interp *interp, CONST char *name,
1.798 + Tcl_InterpDeleteProc *proc, ClientData clientData)
1.799 +}
1.800 +declare 224 generic {
1.801 + void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz)
1.802 +}
1.803 +declare 225 generic {
1.804 + int Tcl_SetChannelOption(Tcl_Interp *interp, Tcl_Channel chan,
1.805 + CONST char *optionName, CONST char *newValue)
1.806 +}
1.807 +declare 226 generic {
1.808 + int Tcl_SetCommandInfo(Tcl_Interp *interp, CONST char *cmdName,
1.809 + CONST Tcl_CmdInfo *infoPtr)
1.810 +}
1.811 +declare 227 generic {
1.812 + void Tcl_SetErrno(int err)
1.813 +}
1.814 +declare 228 generic {
1.815 + void Tcl_SetErrorCode(Tcl_Interp *interp, ...)
1.816 +}
1.817 +declare 229 generic {
1.818 + void Tcl_SetMaxBlockTime(Tcl_Time *timePtr)
1.819 +}
1.820 +declare 230 generic {
1.821 + void Tcl_SetPanicProc(Tcl_PanicProc *panicProc)
1.822 +}
1.823 +declare 231 generic {
1.824 + int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth)
1.825 +}
1.826 +declare 232 generic {
1.827 + void Tcl_SetResult(Tcl_Interp *interp, char *str,
1.828 + Tcl_FreeProc *freeProc)
1.829 +}
1.830 +declare 233 generic {
1.831 + int Tcl_SetServiceMode(int mode)
1.832 +}
1.833 +declare 234 generic {
1.834 + void Tcl_SetObjErrorCode(Tcl_Interp *interp, Tcl_Obj *errorObjPtr)
1.835 +}
1.836 +declare 235 generic {
1.837 + void Tcl_SetObjResult(Tcl_Interp *interp, Tcl_Obj *resultObjPtr)
1.838 +}
1.839 +declare 236 generic {
1.840 + void Tcl_SetStdChannel(Tcl_Channel channel, int type)
1.841 +}
1.842 +declare 237 generic {
1.843 + CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp, CONST char *varName,
1.844 + CONST char *newValue, int flags)
1.845 +}
1.846 +declare 238 generic {
1.847 + CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp, CONST char *part1,
1.848 + CONST char *part2, CONST char *newValue, int flags)
1.849 +}
1.850 +declare 239 generic {
1.851 + CONST84_RETURN char * Tcl_SignalId(int sig)
1.852 +}
1.853 +declare 240 generic {
1.854 + CONST84_RETURN char * Tcl_SignalMsg(int sig)
1.855 +}
1.856 +declare 241 generic {
1.857 + void Tcl_SourceRCFile(Tcl_Interp *interp)
1.858 +}
1.859 +declare 242 generic {
1.860 + int Tcl_SplitList(Tcl_Interp *interp, CONST char *listStr, int *argcPtr,
1.861 + CONST84 char ***argvPtr)
1.862 +}
1.863 +# Obsolete, use Tcl_FSSplitPath
1.864 +declare 243 generic {
1.865 + void Tcl_SplitPath(CONST char *path, int *argcPtr, CONST84 char ***argvPtr)
1.866 +}
1.867 +declare 244 generic {
1.868 + void Tcl_StaticPackage(Tcl_Interp *interp, CONST char *pkgName,
1.869 + Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc)
1.870 +}
1.871 +declare 245 generic {
1.872 + int Tcl_StringMatch(CONST char *str, CONST char *pattern)
1.873 +}
1.874 +# Obsolete
1.875 +declare 246 generic {
1.876 + int Tcl_TellOld(Tcl_Channel chan)
1.877 +}
1.878 +declare 247 generic {
1.879 + int Tcl_TraceVar(Tcl_Interp *interp, CONST char *varName, int flags,
1.880 + Tcl_VarTraceProc *proc, ClientData clientData)
1.881 +}
1.882 +declare 248 generic {
1.883 + int Tcl_TraceVar2(Tcl_Interp *interp, CONST char *part1, CONST char *part2,
1.884 + int flags, Tcl_VarTraceProc *proc, ClientData clientData)
1.885 +}
1.886 +declare 249 generic {
1.887 + char * Tcl_TranslateFileName(Tcl_Interp *interp, CONST char *name,
1.888 + Tcl_DString *bufferPtr)
1.889 +}
1.890 +declare 250 generic {
1.891 + int Tcl_Ungets(Tcl_Channel chan, CONST char *str, int len, int atHead)
1.892 +}
1.893 +declare 251 generic {
1.894 + void Tcl_UnlinkVar(Tcl_Interp *interp, CONST char *varName)
1.895 +}
1.896 +declare 252 generic {
1.897 + int Tcl_UnregisterChannel(Tcl_Interp *interp, Tcl_Channel chan)
1.898 +}
1.899 +declare 253 generic {
1.900 + int Tcl_UnsetVar(Tcl_Interp *interp, CONST char *varName, int flags)
1.901 +}
1.902 +declare 254 generic {
1.903 + int Tcl_UnsetVar2(Tcl_Interp *interp, CONST char *part1, CONST char *part2,
1.904 + int flags)
1.905 +}
1.906 +declare 255 generic {
1.907 + void Tcl_UntraceVar(Tcl_Interp *interp, CONST char *varName, int flags,
1.908 + Tcl_VarTraceProc *proc, ClientData clientData)
1.909 +}
1.910 +declare 256 generic {
1.911 + void Tcl_UntraceVar2(Tcl_Interp *interp, CONST char *part1,
1.912 + CONST char *part2, int flags, Tcl_VarTraceProc *proc,
1.913 + ClientData clientData)
1.914 +}
1.915 +declare 257 generic {
1.916 + void Tcl_UpdateLinkedVar(Tcl_Interp *interp, CONST char *varName)
1.917 +}
1.918 +declare 258 generic {
1.919 + int Tcl_UpVar(Tcl_Interp *interp, CONST char *frameName,
1.920 + CONST char *varName, CONST char *localName, int flags)
1.921 +}
1.922 +declare 259 generic {
1.923 + int Tcl_UpVar2(Tcl_Interp *interp, CONST char *frameName, CONST char *part1,
1.924 + CONST char *part2, CONST char *localName, int flags)
1.925 +}
1.926 +declare 260 generic {
1.927 + int Tcl_VarEval(Tcl_Interp *interp, ...)
1.928 +}
1.929 +declare 261 generic {
1.930 + ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, CONST char *varName,
1.931 + int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData)
1.932 +}
1.933 +declare 262 generic {
1.934 + ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, CONST char *part1,
1.935 + CONST char *part2, int flags, Tcl_VarTraceProc *procPtr,
1.936 + ClientData prevClientData)
1.937 +}
1.938 +declare 263 generic {
1.939 + int Tcl_Write(Tcl_Channel chan, CONST char *s, int slen)
1.940 +}
1.941 +declare 264 generic {
1.942 + void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc,
1.943 + Tcl_Obj *CONST objv[], CONST char *message)
1.944 +}
1.945 +declare 265 generic {
1.946 + int Tcl_DumpActiveMemory(CONST char *fileName)
1.947 +}
1.948 +declare 266 generic {
1.949 + void Tcl_ValidateAllMemory(CONST char *file, int line)
1.950 +}
1.951 +
1.952 +declare 267 generic {
1.953 + void Tcl_AppendResultVA(Tcl_Interp *interp, va_list argList)
1.954 +}
1.955 +declare 268 generic {
1.956 + void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, va_list argList)
1.957 +}
1.958 +declare 269 generic {
1.959 + CONST84_RETURN char * Tcl_HashStats(Tcl_HashTable *tablePtr)
1.960 +}
1.961 +declare 270 generic {
1.962 + CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp, CONST char *str,
1.963 + CONST84 char **termPtr)
1.964 +}
1.965 +declare 271 generic {
1.966 + CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp, CONST char *name,
1.967 + CONST char *version, int exact)
1.968 +}
1.969 +declare 272 generic {
1.970 + CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp, CONST char *name,
1.971 + CONST char *version, int exact, ClientData *clientDataPtr)
1.972 +}
1.973 +declare 273 generic {
1.974 + int Tcl_PkgProvide(Tcl_Interp *interp, CONST char *name,
1.975 + CONST char *version)
1.976 +}
1.977 +
1.978 +# TIP #268: The internally used new Require function is in slot
1.979 +# 573. Assuming TCL_TIP268 was activated.
1.980 +
1.981 +declare 274 generic {
1.982 + CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp, CONST char *name,
1.983 + CONST char *version, int exact)
1.984 +}
1.985 +declare 275 generic {
1.986 + void Tcl_SetErrorCodeVA(Tcl_Interp *interp, va_list argList)
1.987 +}
1.988 +declare 276 generic {
1.989 + int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList)
1.990 +}
1.991 +declare 277 generic {
1.992 + Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options)
1.993 +}
1.994 +declare 278 generic {
1.995 + void Tcl_PanicVA(CONST char *format, va_list argList)
1.996 +}
1.997 +declare 279 generic {
1.998 + void Tcl_GetVersion(int *major, int *minor, int *patchLevel, int *type)
1.999 +}
1.1000 +declare 280 generic {
1.1001 + void Tcl_InitMemory(Tcl_Interp *interp)
1.1002 +}
1.1003 +
1.1004 +# Andreas Kupries <a.kupries@westend.com>, 03/21/1999
1.1005 +# "Trf-Patch for filtering channels"
1.1006 +#
1.1007 +# C-Level API for (un)stacking of channels. This allows the introduction
1.1008 +# of filtering channels with relatively little changes to the core.
1.1009 +# This patch was created in cooperation with Jan Nijtmans j.nijtmans@chello.nl
1.1010 +# and is therefore part of his plus-patches too.
1.1011 +#
1.1012 +# It would have been possible to place the following definitions according
1.1013 +# to the alphabetical order used elsewhere in this file, but I decided
1.1014 +# against that to ease the maintenance of the patch across new tcl versions
1.1015 +# (patch usually has no problems to integrate the patch file for the last
1.1016 +# version into the new one).
1.1017 +
1.1018 +declare 281 generic {
1.1019 + Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, Tcl_ChannelType *typePtr,
1.1020 + ClientData instanceData, int mask, Tcl_Channel prevChan)
1.1021 +}
1.1022 +declare 282 generic {
1.1023 + int Tcl_UnstackChannel(Tcl_Interp *interp, Tcl_Channel chan)
1.1024 +}
1.1025 +declare 283 generic {
1.1026 + Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan)
1.1027 +}
1.1028 +
1.1029 +# 284 was reserved, but added in 8.4a2
1.1030 +declare 284 generic {
1.1031 + void Tcl_SetMainLoop(Tcl_MainLoopProc *proc)
1.1032 +}
1.1033 +
1.1034 +# Reserved for future use (8.0.x vs. 8.1)
1.1035 +# declare 285 generic {
1.1036 +# }
1.1037 +
1.1038 +
1.1039 +# Added in 8.1:
1.1040 +
1.1041 +declare 286 generic {
1.1042 + void Tcl_AppendObjToObj(Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr)
1.1043 +}
1.1044 +declare 287 generic {
1.1045 + Tcl_Encoding Tcl_CreateEncoding(Tcl_EncodingType *typePtr)
1.1046 +}
1.1047 +declare 288 generic {
1.1048 + void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, ClientData clientData)
1.1049 +}
1.1050 +declare 289 generic {
1.1051 + void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc, ClientData clientData)
1.1052 +}
1.1053 +declare 290 generic {
1.1054 + void Tcl_DiscardResult(Tcl_SavedResult *statePtr)
1.1055 +}
1.1056 +declare 291 generic {
1.1057 + int Tcl_EvalEx(Tcl_Interp *interp, CONST char *script, int numBytes,
1.1058 + int flags)
1.1059 +}
1.1060 +declare 292 generic {
1.1061 + int Tcl_EvalObjv(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[],
1.1062 + int flags)
1.1063 +}
1.1064 +declare 293 generic {
1.1065 + int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags)
1.1066 +}
1.1067 +declare 294 generic {
1.1068 + void Tcl_ExitThread(int status)
1.1069 +}
1.1070 +declare 295 generic {
1.1071 + int Tcl_ExternalToUtf(Tcl_Interp *interp, Tcl_Encoding encoding,
1.1072 + CONST char *src, int srcLen, int flags,
1.1073 + Tcl_EncodingState *statePtr, char *dst, int dstLen,
1.1074 + int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr)
1.1075 +}
1.1076 +declare 296 generic {
1.1077 + char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding,
1.1078 + CONST char *src, int srcLen, Tcl_DString *dsPtr)
1.1079 +}
1.1080 +declare 297 generic {
1.1081 + void Tcl_FinalizeThread(void)
1.1082 +}
1.1083 +declare 298 generic {
1.1084 + void Tcl_FinalizeNotifier(ClientData clientData)
1.1085 +}
1.1086 +declare 299 generic {
1.1087 + void Tcl_FreeEncoding(Tcl_Encoding encoding)
1.1088 +}
1.1089 +declare 300 generic {
1.1090 + Tcl_ThreadId Tcl_GetCurrentThread(void)
1.1091 +}
1.1092 +declare 301 generic {
1.1093 + Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, CONST char *name)
1.1094 +}
1.1095 +declare 302 generic {
1.1096 + CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding)
1.1097 +}
1.1098 +declare 303 generic {
1.1099 + void Tcl_GetEncodingNames(Tcl_Interp *interp)
1.1100 +}
1.1101 +declare 304 generic {
1.1102 + int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp, Tcl_Obj *objPtr,
1.1103 + CONST VOID *tablePtr, int offset, CONST char *msg, int flags,
1.1104 + int *indexPtr)
1.1105 +}
1.1106 +declare 305 generic {
1.1107 + VOID * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr, int size)
1.1108 +}
1.1109 +declare 306 generic {
1.1110 + Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, CONST char *part1,
1.1111 + CONST char *part2, int flags)
1.1112 +}
1.1113 +declare 307 generic {
1.1114 + ClientData Tcl_InitNotifier(void)
1.1115 +}
1.1116 +declare 308 generic {
1.1117 + void Tcl_MutexLock(Tcl_Mutex *mutexPtr)
1.1118 +}
1.1119 +declare 309 generic {
1.1120 + void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr)
1.1121 +}
1.1122 +declare 310 generic {
1.1123 + void Tcl_ConditionNotify(Tcl_Condition *condPtr)
1.1124 +}
1.1125 +declare 311 generic {
1.1126 + void Tcl_ConditionWait(Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr,
1.1127 + Tcl_Time *timePtr)
1.1128 +}
1.1129 +declare 312 generic {
1.1130 + int Tcl_NumUtfChars(CONST char *src, int len)
1.1131 +}
1.1132 +declare 313 generic {
1.1133 + int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead,
1.1134 + int appendFlag)
1.1135 +}
1.1136 +declare 314 generic {
1.1137 + void Tcl_RestoreResult(Tcl_Interp *interp, Tcl_SavedResult *statePtr)
1.1138 +}
1.1139 +declare 315 generic {
1.1140 + void Tcl_SaveResult(Tcl_Interp *interp, Tcl_SavedResult *statePtr)
1.1141 +}
1.1142 +declare 316 generic {
1.1143 + int Tcl_SetSystemEncoding(Tcl_Interp *interp, CONST char *name)
1.1144 +}
1.1145 +declare 317 generic {
1.1146 + Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, CONST char *part1,
1.1147 + CONST char *part2, Tcl_Obj *newValuePtr, int flags)
1.1148 +}
1.1149 +declare 318 generic {
1.1150 + void Tcl_ThreadAlert(Tcl_ThreadId threadId)
1.1151 +}
1.1152 +declare 319 generic {
1.1153 + void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId, Tcl_Event* evPtr,
1.1154 + Tcl_QueuePosition position)
1.1155 +}
1.1156 +declare 320 generic {
1.1157 + Tcl_UniChar Tcl_UniCharAtIndex(CONST char *src, int index)
1.1158 +}
1.1159 +declare 321 generic {
1.1160 + Tcl_UniChar Tcl_UniCharToLower(int ch)
1.1161 +}
1.1162 +declare 322 generic {
1.1163 + Tcl_UniChar Tcl_UniCharToTitle(int ch)
1.1164 +}
1.1165 +declare 323 generic {
1.1166 + Tcl_UniChar Tcl_UniCharToUpper(int ch)
1.1167 +}
1.1168 +declare 324 generic {
1.1169 + int Tcl_UniCharToUtf(int ch, char *buf)
1.1170 +}
1.1171 +declare 325 generic {
1.1172 + CONST84_RETURN char * Tcl_UtfAtIndex(CONST char *src, int index)
1.1173 +}
1.1174 +declare 326 generic {
1.1175 + int Tcl_UtfCharComplete(CONST char *src, int len)
1.1176 +}
1.1177 +declare 327 generic {
1.1178 + int Tcl_UtfBackslash(CONST char *src, int *readPtr, char *dst)
1.1179 +}
1.1180 +declare 328 generic {
1.1181 + CONST84_RETURN char * Tcl_UtfFindFirst(CONST char *src, int ch)
1.1182 +}
1.1183 +declare 329 generic {
1.1184 + CONST84_RETURN char * Tcl_UtfFindLast(CONST char *src, int ch)
1.1185 +}
1.1186 +declare 330 generic {
1.1187 + CONST84_RETURN char * Tcl_UtfNext(CONST char *src)
1.1188 +}
1.1189 +declare 331 generic {
1.1190 + CONST84_RETURN char * Tcl_UtfPrev(CONST char *src, CONST char *start)
1.1191 +}
1.1192 +declare 332 generic {
1.1193 + int Tcl_UtfToExternal(Tcl_Interp *interp, Tcl_Encoding encoding,
1.1194 + CONST char *src, int srcLen, int flags,
1.1195 + Tcl_EncodingState *statePtr, char *dst, int dstLen,
1.1196 + int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr)
1.1197 +}
1.1198 +declare 333 generic {
1.1199 + char * Tcl_UtfToExternalDString(Tcl_Encoding encoding,
1.1200 + CONST char *src, int srcLen, Tcl_DString *dsPtr)
1.1201 +}
1.1202 +declare 334 generic {
1.1203 + int Tcl_UtfToLower(char *src)
1.1204 +}
1.1205 +declare 335 generic {
1.1206 + int Tcl_UtfToTitle(char *src)
1.1207 +}
1.1208 +declare 336 generic {
1.1209 + int Tcl_UtfToUniChar(CONST char *src, Tcl_UniChar *chPtr)
1.1210 +}
1.1211 +declare 337 generic {
1.1212 + int Tcl_UtfToUpper(char *src)
1.1213 +}
1.1214 +declare 338 generic {
1.1215 + int Tcl_WriteChars(Tcl_Channel chan, CONST char *src, int srcLen)
1.1216 +}
1.1217 +declare 339 generic {
1.1218 + int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr)
1.1219 +}
1.1220 +declare 340 generic {
1.1221 + char * Tcl_GetString(Tcl_Obj *objPtr)
1.1222 +}
1.1223 +declare 341 generic {
1.1224 + CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void)
1.1225 +}
1.1226 +declare 342 generic {
1.1227 + void Tcl_SetDefaultEncodingDir(CONST char *path)
1.1228 +}
1.1229 +declare 343 generic {
1.1230 + void Tcl_AlertNotifier(ClientData clientData)
1.1231 +}
1.1232 +declare 344 generic {
1.1233 + void Tcl_ServiceModeHook(int mode)
1.1234 +}
1.1235 +declare 345 generic {
1.1236 + int Tcl_UniCharIsAlnum(int ch)
1.1237 +}
1.1238 +declare 346 generic {
1.1239 + int Tcl_UniCharIsAlpha(int ch)
1.1240 +}
1.1241 +declare 347 generic {
1.1242 + int Tcl_UniCharIsDigit(int ch)
1.1243 +}
1.1244 +declare 348 generic {
1.1245 + int Tcl_UniCharIsLower(int ch)
1.1246 +}
1.1247 +declare 349 generic {
1.1248 + int Tcl_UniCharIsSpace(int ch)
1.1249 +}
1.1250 +declare 350 generic {
1.1251 + int Tcl_UniCharIsUpper(int ch)
1.1252 +}
1.1253 +declare 351 generic {
1.1254 + int Tcl_UniCharIsWordChar(int ch)
1.1255 +}
1.1256 +declare 352 generic {
1.1257 + int Tcl_UniCharLen(CONST Tcl_UniChar *str)
1.1258 +}
1.1259 +declare 353 generic {
1.1260 + int Tcl_UniCharNcmp(CONST Tcl_UniChar *cs, CONST Tcl_UniChar *ct,
1.1261 + unsigned long n)
1.1262 +}
1.1263 +declare 354 generic {
1.1264 + char * Tcl_UniCharToUtfDString(CONST Tcl_UniChar *string,
1.1265 + int numChars, Tcl_DString *dsPtr)
1.1266 +}
1.1267 +declare 355 generic {
1.1268 + Tcl_UniChar * Tcl_UtfToUniCharDString(CONST char *string,
1.1269 + int length, Tcl_DString *dsPtr)
1.1270 +}
1.1271 +declare 356 generic {
1.1272 + Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp, Tcl_Obj *patObj,
1.1273 + int flags)
1.1274 +}
1.1275 +
1.1276 +declare 357 generic {
1.1277 + Tcl_Obj *Tcl_EvalTokens(Tcl_Interp *interp, Tcl_Token *tokenPtr,
1.1278 + int count)
1.1279 +}
1.1280 +declare 358 generic {
1.1281 + void Tcl_FreeParse(Tcl_Parse *parsePtr)
1.1282 +}
1.1283 +declare 359 generic {
1.1284 + void Tcl_LogCommandInfo(Tcl_Interp *interp, CONST char *script,
1.1285 + CONST char *command, int length)
1.1286 +}
1.1287 +declare 360 generic {
1.1288 + int Tcl_ParseBraces(Tcl_Interp *interp, CONST char *string, int numBytes,
1.1289 + Tcl_Parse *parsePtr, int append, CONST84 char **termPtr)
1.1290 +}
1.1291 +declare 361 generic {
1.1292 + int Tcl_ParseCommand(Tcl_Interp *interp, CONST char *string, int numBytes,
1.1293 + int nested, Tcl_Parse *parsePtr)
1.1294 +}
1.1295 +declare 362 generic {
1.1296 + int Tcl_ParseExpr(Tcl_Interp *interp, CONST char *string, int numBytes,
1.1297 + Tcl_Parse *parsePtr)
1.1298 +}
1.1299 +declare 363 generic {
1.1300 + int Tcl_ParseQuotedString(Tcl_Interp *interp, CONST char *string,
1.1301 + int numBytes, Tcl_Parse *parsePtr, int append,
1.1302 + CONST84 char **termPtr)
1.1303 +}
1.1304 +declare 364 generic {
1.1305 + int Tcl_ParseVarName(Tcl_Interp *interp, CONST char *string, int numBytes,
1.1306 + Tcl_Parse *parsePtr, int append)
1.1307 +}
1.1308 +# These 4 functions are obsolete, use Tcl_FSGetCwd, Tcl_FSChdir,
1.1309 +# Tcl_FSAccess and Tcl_FSStat
1.1310 +declare 365 generic {
1.1311 + char *Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr)
1.1312 +}
1.1313 +declare 366 generic {
1.1314 + int Tcl_Chdir(CONST char *dirName)
1.1315 +}
1.1316 +declare 367 generic {
1.1317 + int Tcl_Access(CONST char *path, int mode)
1.1318 +}
1.1319 +declare 368 generic {
1.1320 + int Tcl_Stat(CONST char *path, struct stat *bufPtr)
1.1321 +}
1.1322 +declare 369 generic {
1.1323 + int Tcl_UtfNcmp(CONST char *s1, CONST char *s2, unsigned long n)
1.1324 +}
1.1325 +declare 370 generic {
1.1326 + int Tcl_UtfNcasecmp(CONST char *s1, CONST char *s2, unsigned long n)
1.1327 +}
1.1328 +declare 371 generic {
1.1329 + int Tcl_StringCaseMatch(CONST char *str, CONST char *pattern, int nocase)
1.1330 +}
1.1331 +declare 372 generic {
1.1332 + int Tcl_UniCharIsControl(int ch)
1.1333 +}
1.1334 +declare 373 generic {
1.1335 + int Tcl_UniCharIsGraph(int ch)
1.1336 +}
1.1337 +declare 374 generic {
1.1338 + int Tcl_UniCharIsPrint(int ch)
1.1339 +}
1.1340 +declare 375 generic {
1.1341 + int Tcl_UniCharIsPunct(int ch)
1.1342 +}
1.1343 +declare 376 generic {
1.1344 + int Tcl_RegExpExecObj(Tcl_Interp *interp, Tcl_RegExp regexp,
1.1345 + Tcl_Obj *objPtr, int offset, int nmatches, int flags)
1.1346 +}
1.1347 +declare 377 generic {
1.1348 + void Tcl_RegExpGetInfo(Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr)
1.1349 +}
1.1350 +declare 378 generic {
1.1351 + Tcl_Obj * Tcl_NewUnicodeObj(CONST Tcl_UniChar *unicode, int numChars)
1.1352 +}
1.1353 +declare 379 generic {
1.1354 + void Tcl_SetUnicodeObj(Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode,
1.1355 + int numChars)
1.1356 +}
1.1357 +declare 380 generic {
1.1358 + int Tcl_GetCharLength(Tcl_Obj *objPtr)
1.1359 +}
1.1360 +declare 381 generic {
1.1361 + Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index)
1.1362 +}
1.1363 +declare 382 generic {
1.1364 + Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr)
1.1365 +}
1.1366 +declare 383 generic {
1.1367 + Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last)
1.1368 +}
1.1369 +declare 384 generic {
1.1370 + void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode,
1.1371 + int length)
1.1372 +}
1.1373 +declare 385 generic {
1.1374 + int Tcl_RegExpMatchObj(Tcl_Interp *interp, Tcl_Obj *stringObj,
1.1375 + Tcl_Obj *patternObj)
1.1376 +}
1.1377 +declare 386 generic {
1.1378 + void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr)
1.1379 +}
1.1380 +declare 387 generic {
1.1381 + Tcl_Mutex * Tcl_GetAllocMutex(void)
1.1382 +}
1.1383 +declare 388 generic {
1.1384 + int Tcl_GetChannelNames(Tcl_Interp *interp)
1.1385 +}
1.1386 +declare 389 generic {
1.1387 + int Tcl_GetChannelNamesEx(Tcl_Interp *interp, CONST char *pattern)
1.1388 +}
1.1389 +declare 390 generic {
1.1390 + int Tcl_ProcObjCmd(ClientData clientData, Tcl_Interp *interp,
1.1391 + int objc, Tcl_Obj *CONST objv[])
1.1392 +}
1.1393 +declare 391 generic {
1.1394 + void Tcl_ConditionFinalize(Tcl_Condition *condPtr)
1.1395 +}
1.1396 +declare 392 generic {
1.1397 + void Tcl_MutexFinalize(Tcl_Mutex *mutex)
1.1398 +}
1.1399 +declare 393 generic {
1.1400 + int Tcl_CreateThread(Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc proc,
1.1401 + ClientData clientData, int stackSize, int flags)
1.1402 +}
1.1403 +
1.1404 +# Introduced in 8.3.2
1.1405 +declare 394 generic {
1.1406 + int Tcl_ReadRaw(Tcl_Channel chan, char *dst, int bytesToRead)
1.1407 +}
1.1408 +declare 395 generic {
1.1409 + int Tcl_WriteRaw(Tcl_Channel chan, CONST char *src, int srcLen)
1.1410 +}
1.1411 +declare 396 generic {
1.1412 + Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan)
1.1413 +}
1.1414 +declare 397 generic {
1.1415 + int Tcl_ChannelBuffered(Tcl_Channel chan)
1.1416 +}
1.1417 +declare 398 generic {
1.1418 + CONST84_RETURN char * Tcl_ChannelName(Tcl_ChannelType *chanTypePtr)
1.1419 +}
1.1420 +declare 399 generic {
1.1421 + Tcl_ChannelTypeVersion Tcl_ChannelVersion(Tcl_ChannelType *chanTypePtr)
1.1422 +}
1.1423 +declare 400 generic {
1.1424 + Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc(Tcl_ChannelType
1.1425 + *chanTypePtr)
1.1426 +}
1.1427 +declare 401 generic {
1.1428 + Tcl_DriverCloseProc * Tcl_ChannelCloseProc(Tcl_ChannelType *chanTypePtr)
1.1429 +}
1.1430 +declare 402 generic {
1.1431 + Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc(Tcl_ChannelType *chanTypePtr)
1.1432 +}
1.1433 +declare 403 generic {
1.1434 + Tcl_DriverInputProc * Tcl_ChannelInputProc(Tcl_ChannelType *chanTypePtr)
1.1435 +}
1.1436 +declare 404 generic {
1.1437 + Tcl_DriverOutputProc * Tcl_ChannelOutputProc(Tcl_ChannelType *chanTypePtr)
1.1438 +}
1.1439 +declare 405 generic {
1.1440 + Tcl_DriverSeekProc * Tcl_ChannelSeekProc(Tcl_ChannelType *chanTypePtr)
1.1441 +}
1.1442 +declare 406 generic {
1.1443 + Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc(Tcl_ChannelType
1.1444 + *chanTypePtr)
1.1445 +}
1.1446 +declare 407 generic {
1.1447 + Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc(Tcl_ChannelType
1.1448 + *chanTypePtr)
1.1449 +}
1.1450 +declare 408 generic {
1.1451 + Tcl_DriverWatchProc * Tcl_ChannelWatchProc(Tcl_ChannelType *chanTypePtr)
1.1452 +}
1.1453 +declare 409 generic {
1.1454 + Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc(Tcl_ChannelType
1.1455 + *chanTypePtr)
1.1456 +}
1.1457 +declare 410 generic {
1.1458 + Tcl_DriverFlushProc * Tcl_ChannelFlushProc(Tcl_ChannelType *chanTypePtr)
1.1459 +}
1.1460 +declare 411 generic {
1.1461 + Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc(Tcl_ChannelType
1.1462 + *chanTypePtr)
1.1463 +}
1.1464 +
1.1465 +# Introduced in 8.4a2
1.1466 +declare 412 generic {
1.1467 + int Tcl_JoinThread(Tcl_ThreadId threadId, int* result)
1.1468 +}
1.1469 +declare 413 generic {
1.1470 + int Tcl_IsChannelShared(Tcl_Channel channel)
1.1471 +}
1.1472 +declare 414 generic {
1.1473 + int Tcl_IsChannelRegistered(Tcl_Interp* interp, Tcl_Channel channel)
1.1474 +}
1.1475 +declare 415 generic {
1.1476 + void Tcl_CutChannel(Tcl_Channel channel)
1.1477 +}
1.1478 +declare 416 generic {
1.1479 + void Tcl_SpliceChannel(Tcl_Channel channel)
1.1480 +}
1.1481 +declare 417 generic {
1.1482 + void Tcl_ClearChannelHandlers(Tcl_Channel channel)
1.1483 +}
1.1484 +declare 418 generic {
1.1485 + int Tcl_IsChannelExisting(CONST char* channelName)
1.1486 +}
1.1487 +
1.1488 +declare 419 generic {
1.1489 + int Tcl_UniCharNcasecmp(CONST Tcl_UniChar *cs, CONST Tcl_UniChar *ct,
1.1490 + unsigned long n)
1.1491 +}
1.1492 +declare 420 generic {
1.1493 + int Tcl_UniCharCaseMatch(CONST Tcl_UniChar *ustr,
1.1494 + CONST Tcl_UniChar *pattern, int nocase)
1.1495 +}
1.1496 +
1.1497 +declare 421 generic {
1.1498 + Tcl_HashEntry *Tcl_FindHashEntry(Tcl_HashTable *tablePtr, CONST char *key)
1.1499 +}
1.1500 +
1.1501 +declare 422 generic {
1.1502 + Tcl_HashEntry *Tcl_CreateHashEntry(Tcl_HashTable *tablePtr,
1.1503 + CONST char *key, int *newPtr)
1.1504 +}
1.1505 +
1.1506 +declare 423 generic {
1.1507 + void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, int keyType,
1.1508 + Tcl_HashKeyType *typePtr)
1.1509 +}
1.1510 +
1.1511 +declare 424 generic {
1.1512 + void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr)
1.1513 +}
1.1514 +declare 425 generic {
1.1515 + ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp, CONST char *varName,
1.1516 + int flags, Tcl_CommandTraceProc *procPtr,
1.1517 + ClientData prevClientData)
1.1518 +}
1.1519 +declare 426 generic {
1.1520 + int Tcl_TraceCommand(Tcl_Interp *interp, CONST char *varName, int flags,
1.1521 + Tcl_CommandTraceProc *proc, ClientData clientData)
1.1522 +}
1.1523 +declare 427 generic {
1.1524 + void Tcl_UntraceCommand(Tcl_Interp *interp, CONST char *varName,
1.1525 + int flags, Tcl_CommandTraceProc *proc, ClientData clientData)
1.1526 +}
1.1527 +declare 428 generic {
1.1528 + char * Tcl_AttemptAlloc(unsigned int size)
1.1529 +}
1.1530 +declare 429 generic {
1.1531 + char * Tcl_AttemptDbCkalloc(unsigned int size, CONST char *file, int line)
1.1532 +}
1.1533 +declare 430 generic {
1.1534 + char * Tcl_AttemptRealloc(char *ptr, unsigned int size)
1.1535 +}
1.1536 +declare 431 generic {
1.1537 + char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size,
1.1538 + CONST char *file, int line)
1.1539 +}
1.1540 +declare 432 generic {
1.1541 + int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length)
1.1542 +}
1.1543 +declare 433 generic {
1.1544 + Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel)
1.1545 +}
1.1546 +# introduced in 8.4a3
1.1547 +declare 434 generic {
1.1548 + Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr, int *lengthPtr)
1.1549 +}
1.1550 +declare 435 generic {
1.1551 + int Tcl_GetMathFuncInfo(Tcl_Interp *interp, CONST char *name,
1.1552 + int *numArgsPtr, Tcl_ValueType **argTypesPtr,
1.1553 + Tcl_MathProc **procPtr, ClientData *clientDataPtr)
1.1554 +}
1.1555 +declare 436 generic {
1.1556 + Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp, CONST char *pattern)
1.1557 +}
1.1558 +declare 437 generic {
1.1559 + Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags)
1.1560 +}
1.1561 +declare 438 generic {
1.1562 + int Tcl_DetachChannel(Tcl_Interp* interp, Tcl_Channel channel)
1.1563 +}
1.1564 +declare 439 generic {
1.1565 + int Tcl_IsStandardChannel(Tcl_Channel channel)
1.1566 +}
1.1567 +# New functions due to TIP#17
1.1568 +declare 440 generic {
1.1569 + int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr)
1.1570 +}
1.1571 +declare 441 generic {
1.1572 + int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr,
1.1573 + Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr)
1.1574 +}
1.1575 +declare 442 generic {
1.1576 + int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr)
1.1577 +}
1.1578 +declare 443 generic {
1.1579 + int Tcl_FSDeleteFile(Tcl_Obj *pathPtr)
1.1580 +}
1.1581 +declare 444 generic {
1.1582 + int Tcl_FSLoadFile(Tcl_Interp * interp,
1.1583 + Tcl_Obj *pathPtr, CONST char * sym1, CONST char * sym2,
1.1584 + Tcl_PackageInitProc ** proc1Ptr,
1.1585 + Tcl_PackageInitProc ** proc2Ptr,
1.1586 + Tcl_LoadHandle * handlePtr,
1.1587 + Tcl_FSUnloadFileProc **unloadProcPtr)
1.1588 +}
1.1589 +declare 445 generic {
1.1590 + int Tcl_FSMatchInDirectory(Tcl_Interp *interp, Tcl_Obj *result,
1.1591 + Tcl_Obj *pathPtr, CONST char *pattern, Tcl_GlobTypeData *types)
1.1592 +}
1.1593 +declare 446 generic {
1.1594 + Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction)
1.1595 +}
1.1596 +declare 447 generic {
1.1597 + int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr,
1.1598 + int recursive, Tcl_Obj **errorPtr)
1.1599 +}
1.1600 +declare 448 generic {
1.1601 + int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr)
1.1602 +}
1.1603 +declare 449 generic {
1.1604 + int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf)
1.1605 +}
1.1606 +declare 450 generic {
1.1607 + int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval)
1.1608 +}
1.1609 +declare 451 generic {
1.1610 + int Tcl_FSFileAttrsGet(Tcl_Interp *interp,
1.1611 + int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)
1.1612 +}
1.1613 +declare 452 generic {
1.1614 + int Tcl_FSFileAttrsSet(Tcl_Interp *interp,
1.1615 + int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr)
1.1616 +}
1.1617 +declare 453 generic {
1.1618 + CONST char ** Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)
1.1619 +}
1.1620 +declare 454 generic {
1.1621 + int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf)
1.1622 +}
1.1623 +declare 455 generic {
1.1624 + int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode)
1.1625 +}
1.1626 +declare 456 generic {
1.1627 + Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp, Tcl_Obj *pathPtr,
1.1628 + CONST char *modeString, int permissions)
1.1629 +}
1.1630 +declare 457 generic {
1.1631 + Tcl_Obj* Tcl_FSGetCwd(Tcl_Interp *interp)
1.1632 +}
1.1633 +declare 458 generic {
1.1634 + int Tcl_FSChdir(Tcl_Obj *pathPtr)
1.1635 +}
1.1636 +declare 459 generic {
1.1637 + int Tcl_FSConvertToPathType(Tcl_Interp *interp, Tcl_Obj *pathPtr)
1.1638 +}
1.1639 +declare 460 generic {
1.1640 + Tcl_Obj* Tcl_FSJoinPath(Tcl_Obj *listObj, int elements)
1.1641 +}
1.1642 +declare 461 generic {
1.1643 + Tcl_Obj* Tcl_FSSplitPath(Tcl_Obj* pathPtr, int *lenPtr)
1.1644 +}
1.1645 +declare 462 generic {
1.1646 + int Tcl_FSEqualPaths(Tcl_Obj* firstPtr, Tcl_Obj* secondPtr)
1.1647 +}
1.1648 +declare 463 generic {
1.1649 + Tcl_Obj* Tcl_FSGetNormalizedPath(Tcl_Interp *interp, Tcl_Obj* pathObjPtr)
1.1650 +}
1.1651 +declare 464 generic {
1.1652 + Tcl_Obj* Tcl_FSJoinToPath(Tcl_Obj *basePtr, int objc,
1.1653 + Tcl_Obj *CONST objv[])
1.1654 +}
1.1655 +declare 465 generic {
1.1656 + ClientData Tcl_FSGetInternalRep(Tcl_Obj* pathObjPtr,
1.1657 + Tcl_Filesystem *fsPtr)
1.1658 +}
1.1659 +declare 466 generic {
1.1660 + Tcl_Obj* Tcl_FSGetTranslatedPath(Tcl_Interp *interp, Tcl_Obj* pathPtr)
1.1661 +}
1.1662 +declare 467 generic {
1.1663 + int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName)
1.1664 +}
1.1665 +declare 468 generic {
1.1666 + Tcl_Obj* Tcl_FSNewNativePath(Tcl_Filesystem* fromFilesystem,
1.1667 + ClientData clientData)
1.1668 +}
1.1669 +declare 469 generic {
1.1670 + CONST char* Tcl_FSGetNativePath(Tcl_Obj* pathObjPtr)
1.1671 +}
1.1672 +declare 470 generic {
1.1673 + Tcl_Obj* Tcl_FSFileSystemInfo(Tcl_Obj* pathObjPtr)
1.1674 +}
1.1675 +declare 471 generic {
1.1676 + Tcl_Obj* Tcl_FSPathSeparator(Tcl_Obj* pathObjPtr)
1.1677 +}
1.1678 +declare 472 generic {
1.1679 + Tcl_Obj* Tcl_FSListVolumes(void)
1.1680 +}
1.1681 +declare 473 generic {
1.1682 + int Tcl_FSRegister(ClientData clientData, Tcl_Filesystem *fsPtr)
1.1683 +}
1.1684 +declare 474 generic {
1.1685 + int Tcl_FSUnregister(Tcl_Filesystem *fsPtr)
1.1686 +}
1.1687 +declare 475 generic {
1.1688 + ClientData Tcl_FSData(Tcl_Filesystem *fsPtr)
1.1689 +}
1.1690 +declare 476 generic {
1.1691 + CONST char* Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp,
1.1692 + Tcl_Obj* pathPtr)
1.1693 +}
1.1694 +declare 477 generic {
1.1695 + Tcl_Filesystem* Tcl_FSGetFileSystemForPath(Tcl_Obj* pathObjPtr)
1.1696 +}
1.1697 +declare 478 generic {
1.1698 + Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathObjPtr)
1.1699 +}
1.1700 +# New function due to TIP#49
1.1701 +declare 479 generic {
1.1702 + int Tcl_OutputBuffered(Tcl_Channel chan)
1.1703 +}
1.1704 +declare 480 generic {
1.1705 + void Tcl_FSMountsChanged(Tcl_Filesystem *fsPtr)
1.1706 +}
1.1707 +# New function due to TIP#56
1.1708 +declare 481 generic {
1.1709 + int Tcl_EvalTokensStandard(Tcl_Interp *interp, Tcl_Token *tokenPtr,
1.1710 + int count)
1.1711 +}
1.1712 +
1.1713 +# New export due to TIP#73
1.1714 +declare 482 generic {
1.1715 + void Tcl_GetTime(Tcl_Time* timeBuf)
1.1716 +}
1.1717 +
1.1718 +# New exports due to TIP#32
1.1719 +
1.1720 +declare 483 generic {
1.1721 + Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp* interp, int level, int flags,
1.1722 + Tcl_CmdObjTraceProc* objProc, ClientData clientData,
1.1723 + Tcl_CmdObjTraceDeleteProc* delProc)
1.1724 +}
1.1725 +declare 484 generic {
1.1726 + int Tcl_GetCommandInfoFromToken(Tcl_Command token, Tcl_CmdInfo* infoPtr)
1.1727 +}
1.1728 +declare 485 generic {
1.1729 + int Tcl_SetCommandInfoFromToken(Tcl_Command token,
1.1730 + CONST Tcl_CmdInfo* infoPtr)
1.1731 +}
1.1732 +
1.1733 +### New functions on 64-bit dev branch ###
1.1734 +declare 486 generic {
1.1735 + Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue,
1.1736 + CONST char *file, int line)
1.1737 +}
1.1738 +declare 487 generic {
1.1739 + int Tcl_GetWideIntFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1.1740 + Tcl_WideInt *widePtr)
1.1741 +}
1.1742 +declare 488 generic {
1.1743 + Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue)
1.1744 +}
1.1745 +declare 489 generic {
1.1746 + void Tcl_SetWideIntObj(Tcl_Obj *objPtr, Tcl_WideInt wideValue)
1.1747 +}
1.1748 +declare 490 generic {
1.1749 + Tcl_StatBuf * Tcl_AllocStatBuf(void)
1.1750 +}
1.1751 +declare 491 generic {
1.1752 + Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset, int mode)
1.1753 +}
1.1754 +declare 492 generic {
1.1755 + Tcl_WideInt Tcl_Tell(Tcl_Channel chan)
1.1756 +}
1.1757 +
1.1758 +# New export due to TIP#91
1.1759 +declare 493 generic {
1.1760 + Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc(
1.1761 + Tcl_ChannelType *chanTypePtr)
1.1762 +}
1.1763 +
1.1764 +# Slots 494 to 553 are taken already by 8.5
1.1765 +# #111 - Dicts (494 ... 504)
1.1766 +# #59 - Config (505)
1.1767 +# #139 - Namespace API (506 ... 517)
1.1768 +# #137 - source -encoding (518)
1.1769 +# #121 - ExitProc (519)
1.1770 +# #121 - Resource Limits (520 ... 534)
1.1771 +# #226 - S/R Interp State (535 ... 537)
1.1772 +# #227 - S/G Return Opts (538 ... 539)
1.1773 +# #235 - Ensemble C API (540 ... 551)
1.1774 +# #233 - Virtualized Time (552 ... 553)
1.1775 +
1.1776 +# TIP#218 (Driver Thread Actions) davygrvy/akupries ChannelType ver 4
1.1777 +# These slots are used by 8.5 as well.
1.1778 +declare 554 generic {
1.1779 + Tcl_DriverThreadActionProc *Tcl_ChannelThreadActionProc(Tcl_ChannelType *chanTypePtr)
1.1780 +}
1.1781 +
1.1782 +# Slots 555 to 572 are taken already by 8.5
1.1783 +# TIP #237: Arbitrary-prec Integers (555 ... 559)
1.1784 +# TIP #208: 'chan' Command (560 ... 561)
1.1785 +# TIP #219: Channel Reflection (562 ... 565)
1.1786 +# TIP #237: Add. bignum support (566)
1.1787 +# TIP #181: 'namespace unknown' Cmd (567 ... 568)
1.1788 +# TIP #258: Enhanced Encodings API (569 ... 572)
1.1789 +
1.1790 +# TIP#268: Extended version numbers and requirements.
1.1791 +# The slot is present even if TCL_TIP268 is not activated.
1.1792 +
1.1793 +declare 573 generic {
1.1794 + int Tcl_PkgRequireProc(Tcl_Interp *interp, CONST char *name,
1.1795 + int objc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr)
1.1796 +}
1.1797 +
1.1798 +##############################################################################
1.1799 +
1.1800 +# Define the platform specific public Tcl interface. These functions are
1.1801 +# only available on the designated platform.
1.1802 +
1.1803 +interface tclPlat
1.1804 +
1.1805 +######################
1.1806 +# Windows declarations
1.1807 +
1.1808 +# Added in Tcl 8.1
1.1809 +
1.1810 +declare 0 win {
1.1811 + TCHAR * Tcl_WinUtfToTChar(CONST char *str, int len, Tcl_DString *dsPtr)
1.1812 +}
1.1813 +declare 1 win {
1.1814 + char * Tcl_WinTCharToUtf(CONST TCHAR *str, int len, Tcl_DString *dsPtr)
1.1815 +}
1.1816 +
1.1817 +##################
1.1818 +# Mac declarations
1.1819 +
1.1820 +# This is needed by the shells to handle Macintosh events.
1.1821 +
1.1822 +declare 0 mac {
1.1823 + void Tcl_MacSetEventProc(Tcl_MacConvertEventPtr procPtr)
1.1824 +}
1.1825 +
1.1826 +# These routines are useful for handling using scripts from resources
1.1827 +# in the application shell
1.1828 +
1.1829 +declare 1 mac {
1.1830 + char * Tcl_MacConvertTextResource(Handle resource)
1.1831 +}
1.1832 +declare 2 mac {
1.1833 + int Tcl_MacEvalResource(Tcl_Interp *interp, CONST char *resourceName,
1.1834 + int resourceNumber, CONST char *fileName)
1.1835 +}
1.1836 +declare 3 mac {
1.1837 + Handle Tcl_MacFindResource(Tcl_Interp *interp, long resourceType,
1.1838 + CONST char *resourceName, int resourceNumber,
1.1839 + CONST char *resFileRef, int * releaseIt)
1.1840 +}
1.1841 +
1.1842 +# These routines support the new OSType object type (i.e. the packed 4
1.1843 +# character type and creator codes).
1.1844 +
1.1845 +declare 4 mac {
1.1846 + int Tcl_GetOSTypeFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
1.1847 + OSType *osTypePtr)
1.1848 +}
1.1849 +declare 5 mac {
1.1850 + void Tcl_SetOSTypeObj(Tcl_Obj *objPtr, OSType osType)
1.1851 +}
1.1852 +declare 6 mac {
1.1853 + Tcl_Obj * Tcl_NewOSTypeObj(OSType osType)
1.1854 +}
1.1855 +
1.1856 +# These are not in MSL 2.1.2, so we need to export them from the
1.1857 +# Tcl shared library. They are found in the compat directory.
1.1858 +
1.1859 +declare 7 mac {
1.1860 + int strncasecmp(CONST char *s1, CONST char *s2, size_t n)
1.1861 +}
1.1862 +declare 8 mac {
1.1863 + int strcasecmp(CONST char *s1, CONST char *s2)
1.1864 +}
1.1865 +
1.1866 +##################
1.1867 +# Mac OS X declarations
1.1868 +#
1.1869 +
1.1870 +declare 0 macosx {
1.1871 + int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp,
1.1872 + CONST char *bundleName,
1.1873 + int hasResourceFile,
1.1874 + int maxPathLen,
1.1875 + char *libraryPath)
1.1876 +}
1.1877 +declare 1 macosx {
1.1878 + int Tcl_MacOSXOpenVersionedBundleResources(Tcl_Interp *interp,
1.1879 + CONST char *bundleName,
1.1880 + CONST char *bundleVersion,
1.1881 + int hasResourceFile,
1.1882 + int maxPathLen,
1.1883 + char *libraryPath)
1.1884 +}