1# tcl.decls -- 2# 3# This file contains the declarations for all supported public 4# functions that are exported by the Tcl library via the stubs table. 5# This file is used to generate the tclDecls.h, tclPlatDecls.h, 6# tclStub.c, and tclPlatStub.c files. 7# 8# 9# Copyright (c) 1998-1999 by Scriptics Corporation. 10# See the file "license.terms" for information on usage and redistribution 11# of this file, and for a DISCLAIMER OF ALL WARRANTIES. 12# 13# RCS: @(#) $Id: tcl.decls,v 1.2 1999/04/19 18:29:39 aku Exp $ 14 15library tcl 16 17# Define the tcl interface with several sub interfaces: 18# tclPlat - platform specific public 19# tclInt - generic private 20# tclPlatInt - platform specific private 21 22interface tcl 23hooks {tclPlat tclInt tclIntPlat} 24 25# Declare each of the functions in the public Tcl interface. Note that 26# the an index should never be reused for a different function in order 27# to preserve backwards compatibility. 28 29declare 0 generic { 30 int Tcl_PkgProvideEx(Tcl_Interp *interp, char *name, char *version, \ 31 ClientData clientData) 32} 33declare 1 generic { 34 char * Tcl_PkgRequireEx(Tcl_Interp *interp, char *name, char *version, \ 35 int exact, ClientData *clientDataPtr) 36} 37declare 2 generic { 38 void Tcl_Panic(char *format, ...) 39} 40declare 3 generic { 41 char * Tcl_Alloc(unsigned int size) 42} 43declare 4 generic { 44 void Tcl_Free(char *ptr) 45} 46declare 5 generic { 47 char * Tcl_Realloc(char *ptr, unsigned int size) 48} 49declare 6 generic { 50 char * Tcl_DbCkalloc(unsigned int size, char *file, int line) 51} 52declare 7 generic { 53 int Tcl_DbCkfree(char *ptr, char *file, int line) 54} 55declare 8 generic { 56 char * Tcl_DbCkrealloc(char *ptr, unsigned int size, char *file, int line) 57} 58 59# Tcl_CreateFileHandler and Tcl_DeleteFileHandler are only available on unix, 60# but they are part of the old generic interface, so we include them here for 61# compatibility reasons. 62 63declare 9 unix { 64 void Tcl_CreateFileHandler(int fd, int mask, Tcl_FileProc *proc, \ 65 ClientData clientData) 66} 67declare 10 unix { 68 void Tcl_DeleteFileHandler(int fd) 69} 70 71declare 11 generic { 72 void Tcl_SetTimer(Tcl_Time *timePtr) 73} 74declare 12 generic { 75 void Tcl_Sleep(int ms) 76} 77declare 13 generic { 78 int Tcl_WaitForEvent(Tcl_Time *timePtr) 79} 80declare 14 generic { 81 int Tcl_AppendAllObjTypes(Tcl_Interp *interp, Tcl_Obj *objPtr) 82} 83declare 15 generic { 84 void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...) 85} 86declare 16 generic { 87 void Tcl_AppendToObj(Tcl_Obj *objPtr, char *bytes, int length) 88} 89declare 17 generic { 90 Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *CONST objv[]) 91} 92declare 18 generic { 93 int Tcl_ConvertToType(Tcl_Interp *interp, Tcl_Obj *objPtr, \ 94 Tcl_ObjType *typePtr) 95} 96declare 19 generic { 97 void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, char *file, int line) 98} 99declare 20 generic { 100 void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, char *file, int line) 101} 102declare 21 generic { 103 int Tcl_DbIsShared(Tcl_Obj *objPtr, char *file, int line) 104} 105declare 22 generic { 106 Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, char *file, int line) 107} 108declare 23 generic { 109 Tcl_Obj * Tcl_DbNewByteArrayObj(unsigned char *bytes, int length, \ 110 char *file, int line) 111} 112declare 24 generic { 113 Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, char *file, int line) 114} 115declare 25 generic { 116 Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST objv[], char *file, \ 117 int line) 118} 119declare 26 generic { 120 Tcl_Obj * Tcl_DbNewLongObj(long longValue, char *file, int line) 121} 122declare 27 generic { 123 Tcl_Obj * Tcl_DbNewObj(char *file, int line) 124} 125declare 28 generic { 126 Tcl_Obj * Tcl_DbNewStringObj(CONST char *bytes, int length, \ 127 char *file, int line) 128} 129declare 29 generic { 130 Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr) 131} 132declare 30 generic { 133 void TclFreeObj(Tcl_Obj *objPtr) 134} 135declare 31 generic { 136 int Tcl_GetBoolean(Tcl_Interp *interp, char *str, int *boolPtr) 137} 138declare 32 generic { 139 int Tcl_GetBooleanFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ 140 int *boolPtr) 141} 142declare 33 generic { 143 unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, int *lengthPtr) 144} 145declare 34 generic { 146 int Tcl_GetDouble(Tcl_Interp *interp, char *str, double *doublePtr) 147} 148declare 35 generic { 149 int Tcl_GetDoubleFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ 150 double *doublePtr) 151} 152declare 36 generic { 153 int Tcl_GetIndexFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ 154 char **tablePtr, char *msg, int flags, int *indexPtr) 155} 156declare 37 generic { 157 int Tcl_GetInt(Tcl_Interp *interp, char *str, int *intPtr) 158} 159declare 38 generic { 160 int Tcl_GetIntFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr) 161} 162declare 39 generic { 163 int Tcl_GetLongFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr) 164} 165declare 40 generic { 166 Tcl_ObjType * Tcl_GetObjType(char *typeName) 167} 168declare 41 generic { 169 char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr) 170} 171declare 42 generic { 172 void Tcl_InvalidateStringRep(Tcl_Obj *objPtr) 173} 174declare 43 generic { 175 int Tcl_ListObjAppendList(Tcl_Interp *interp, Tcl_Obj *listPtr, \ 176 Tcl_Obj *elemListPtr) 177} 178declare 44 generic { 179 int Tcl_ListObjAppendElement(Tcl_Interp *interp, Tcl_Obj *listPtr, \ 180 Tcl_Obj *objPtr) 181} 182declare 45 generic { 183 int Tcl_ListObjGetElements(Tcl_Interp *interp, Tcl_Obj *listPtr, \ 184 int *objcPtr, Tcl_Obj ***objvPtr) 185} 186declare 46 generic { 187 int Tcl_ListObjIndex(Tcl_Interp *interp, Tcl_Obj *listPtr, int index, \ 188 Tcl_Obj **objPtrPtr) 189} 190declare 47 generic { 191 int Tcl_ListObjLength(Tcl_Interp *interp, Tcl_Obj *listPtr, int *intPtr) 192} 193declare 48 generic { 194 int Tcl_ListObjReplace(Tcl_Interp *interp, Tcl_Obj *listPtr, int first, \ 195 int count, int objc, Tcl_Obj *CONST objv[]) 196} 197declare 49 generic { 198 Tcl_Obj * Tcl_NewBooleanObj(int boolValue) 199} 200declare 50 generic { 201 Tcl_Obj * Tcl_NewByteArrayObj(unsigned char *bytes, int length) 202} 203declare 51 generic { 204 Tcl_Obj * Tcl_NewDoubleObj(double doubleValue) 205} 206declare 52 generic { 207 Tcl_Obj * Tcl_NewIntObj(int intValue) 208} 209declare 53 generic { 210 Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *CONST objv[]) 211} 212declare 54 generic { 213 Tcl_Obj * Tcl_NewLongObj(long longValue) 214} 215declare 55 generic { 216 Tcl_Obj * Tcl_NewObj(void) 217} 218declare 56 generic { 219 Tcl_Obj *Tcl_NewStringObj(CONST char *bytes, int length) 220} 221declare 57 generic { 222 void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue) 223} 224declare 58 generic { 225 unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length) 226} 227declare 59 generic { 228 void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, unsigned char *bytes, int length) 229} 230declare 60 generic { 231 void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue) 232} 233declare 61 generic { 234 void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue) 235} 236declare 62 generic { 237 void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, Tcl_Obj *CONST objv[]) 238} 239declare 63 generic { 240 void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue) 241} 242declare 64 generic { 243 void Tcl_SetObjLength(Tcl_Obj *objPtr, int length) 244} 245declare 65 generic { 246 void Tcl_SetStringObj(Tcl_Obj *objPtr, char *bytes, int length) 247} 248declare 66 generic { 249 void Tcl_AddErrorInfo(Tcl_Interp *interp, CONST char *message) 250} 251declare 67 generic { 252 void Tcl_AddObjErrorInfo(Tcl_Interp *interp, CONST char *message, \ 253 int length) 254} 255declare 68 generic { 256 void Tcl_AllowExceptions(Tcl_Interp *interp) 257} 258declare 69 generic { 259 void Tcl_AppendElement(Tcl_Interp *interp, CONST char *string) 260} 261declare 70 generic { 262 void Tcl_AppendResult(Tcl_Interp *interp, ...) 263} 264declare 71 generic { 265 Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, \ 266 ClientData clientData) 267} 268declare 72 generic { 269 void Tcl_AsyncDelete(Tcl_AsyncHandler async) 270} 271declare 73 generic { 272 int Tcl_AsyncInvoke(Tcl_Interp *interp, int code) 273} 274declare 74 generic { 275 void Tcl_AsyncMark(Tcl_AsyncHandler async) 276} 277declare 75 generic { 278 int Tcl_AsyncReady(void) 279} 280declare 76 generic { 281 void Tcl_BackgroundError(Tcl_Interp *interp) 282} 283declare 77 generic { 284 char Tcl_Backslash(CONST char *src, int *readPtr) 285} 286declare 78 generic { 287 int Tcl_BadChannelOption(Tcl_Interp *interp, char *optionName, \ 288 char *optionList) 289} 290declare 79 generic { 291 void Tcl_CallWhenDeleted(Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, \ 292 ClientData clientData) 293} 294declare 80 generic { 295 void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, ClientData clientData) 296} 297declare 81 generic { 298 int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan) 299} 300declare 82 generic { 301 int Tcl_CommandComplete(char *cmd) 302} 303declare 83 generic { 304 char * Tcl_Concat(int argc, char **argv) 305} 306declare 84 generic { 307 int Tcl_ConvertElement(CONST char *src, char *dst, int flags) 308} 309declare 85 generic { 310 int Tcl_ConvertCountedElement(CONST char *src, int length, char *dst, \ 311 int flags) 312} 313declare 86 generic { 314 int Tcl_CreateAlias(Tcl_Interp *slave, char *slaveCmd, \ 315 Tcl_Interp *target, char *targetCmd, int argc, char **argv) 316} 317declare 87 generic { 318 int Tcl_CreateAliasObj(Tcl_Interp *slave, char *slaveCmd, \ 319 Tcl_Interp *target, char *targetCmd, int objc, \ 320 Tcl_Obj *CONST objv[]) 321} 322declare 88 generic { 323 Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr, char *chanName, \ 324 ClientData instanceData, int mask) 325} 326declare 89 generic { 327 void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, \ 328 Tcl_ChannelProc *proc, ClientData clientData) 329} 330declare 90 generic { 331 void Tcl_CreateCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc, \ 332 ClientData clientData) 333} 334declare 91 generic { 335 Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, char *cmdName, \ 336 Tcl_CmdProc *proc, ClientData clientData, \ 337 Tcl_CmdDeleteProc *deleteProc) 338} 339declare 92 generic { 340 void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, \ 341 Tcl_EventCheckProc *checkProc, ClientData clientData) 342} 343declare 93 generic { 344 void Tcl_CreateExitHandler(Tcl_ExitProc *proc, ClientData clientData) 345} 346declare 94 generic { 347 Tcl_Interp * Tcl_CreateInterp(void) 348} 349declare 95 generic { 350 void Tcl_CreateMathFunc(Tcl_Interp *interp, char *name, int numArgs, \ 351 Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData) 352} 353declare 96 generic { 354 Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, char *cmdName, \ 355 Tcl_ObjCmdProc *proc, ClientData clientData, \ 356 Tcl_CmdDeleteProc *deleteProc) 357} 358declare 97 generic { 359 Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, char *slaveName, \ 360 int isSafe) 361} 362declare 98 generic { 363 Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, \ 364 Tcl_TimerProc *proc, ClientData clientData) 365} 366declare 99 generic { 367 Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, \ 368 Tcl_CmdTraceProc *proc, ClientData clientData) 369} 370declare 100 generic { 371 void Tcl_DeleteAssocData(Tcl_Interp *interp, char *name) 372} 373declare 101 generic { 374 void Tcl_DeleteChannelHandler(Tcl_Channel chan, Tcl_ChannelProc *proc, \ 375 ClientData clientData) 376} 377declare 102 generic { 378 void Tcl_DeleteCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc, \ 379 ClientData clientData) 380} 381declare 103 generic { 382 int Tcl_DeleteCommand(Tcl_Interp *interp, char *cmdName) 383} 384declare 104 generic { 385 int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, Tcl_Command command) 386} 387declare 105 generic { 388 void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, ClientData clientData) 389} 390declare 106 generic { 391 void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, \ 392 Tcl_EventCheckProc *checkProc, ClientData clientData) 393} 394declare 107 generic { 395 void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, ClientData clientData) 396} 397declare 108 generic { 398 void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr) 399} 400declare 109 generic { 401 void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr) 402} 403declare 110 generic { 404 void Tcl_DeleteInterp(Tcl_Interp *interp) 405} 406declare 111 generic { 407 void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr) 408} 409declare 112 generic { 410 void Tcl_DeleteTimerHandler(Tcl_TimerToken token) 411} 412declare 113 generic { 413 void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace) 414} 415declare 114 generic { 416 void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, \ 417 Tcl_InterpDeleteProc *proc, ClientData clientData) 418} 419declare 115 generic { 420 int Tcl_DoOneEvent(int flags) 421} 422declare 116 generic { 423 void Tcl_DoWhenIdle(Tcl_IdleProc *proc, ClientData clientData) 424} 425declare 117 generic { 426 char * Tcl_DStringAppend(Tcl_DString *dsPtr, CONST char *str, int length) 427} 428declare 118 generic { 429 char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, CONST char *string) 430} 431declare 119 generic { 432 void Tcl_DStringEndSublist(Tcl_DString *dsPtr) 433} 434declare 120 generic { 435 void Tcl_DStringFree(Tcl_DString *dsPtr) 436} 437declare 121 generic { 438 void Tcl_DStringGetResult(Tcl_Interp *interp, Tcl_DString *dsPtr) 439} 440declare 122 generic { 441 void Tcl_DStringInit(Tcl_DString *dsPtr) 442} 443declare 123 generic { 444 void Tcl_DStringResult(Tcl_Interp *interp, Tcl_DString *dsPtr) 445} 446declare 124 generic { 447 void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length) 448} 449declare 125 generic { 450 void Tcl_DStringStartSublist(Tcl_DString *dsPtr) 451} 452declare 126 generic { 453 int Tcl_Eof(Tcl_Channel chan) 454} 455declare 127 generic { 456 char * Tcl_ErrnoId(void) 457} 458declare 128 generic { 459 char * Tcl_ErrnoMsg(int err) 460} 461declare 129 generic { 462 int Tcl_Eval(Tcl_Interp *interp, char *string) 463} 464declare 130 generic { 465 int Tcl_EvalFile(Tcl_Interp *interp, char *fileName) 466} 467declare 131 generic { 468 int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr) 469} 470declare 132 generic { 471 void Tcl_EventuallyFree(ClientData clientData, Tcl_FreeProc *freeProc) 472} 473declare 133 generic { 474 void Tcl_Exit(int status) 475} 476declare 134 generic { 477 int Tcl_ExposeCommand(Tcl_Interp *interp, char *hiddenCmdToken, \ 478 char *cmdName) 479} 480declare 135 generic { 481 int Tcl_ExprBoolean(Tcl_Interp *interp, char *str, int *ptr) 482} 483declare 136 generic { 484 int Tcl_ExprBooleanObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr) 485} 486declare 137 generic { 487 int Tcl_ExprDouble(Tcl_Interp *interp, char *str, double *ptr) 488} 489declare 138 generic { 490 int Tcl_ExprDoubleObj(Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr) 491} 492declare 139 generic { 493 int Tcl_ExprLong(Tcl_Interp *interp, char *str, long *ptr) 494} 495declare 140 generic { 496 int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr) 497} 498declare 141 generic { 499 int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ 500 Tcl_Obj **resultPtrPtr) 501} 502declare 142 generic { 503 int Tcl_ExprString(Tcl_Interp *interp, char *string) 504} 505declare 143 generic { 506 void Tcl_Finalize(void) 507} 508declare 144 generic { 509 void Tcl_FindExecutable(CONST char *argv0) 510} 511declare 145 generic { 512 Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, \ 513 Tcl_HashSearch *searchPtr) 514} 515declare 146 generic { 516 int Tcl_Flush(Tcl_Channel chan) 517} 518declare 147 generic { 519 void Tcl_FreeResult(Tcl_Interp *interp) 520} 521declare 148 generic { 522 int Tcl_GetAlias(Tcl_Interp *interp, char *slaveCmd, \ 523 Tcl_Interp **targetInterpPtr, char **targetCmdPtr, int *argcPtr, \ 524 char ***argvPtr) 525} 526declare 149 generic { 527 int Tcl_GetAliasObj(Tcl_Interp *interp, char *slaveCmd, \ 528 Tcl_Interp **targetInterpPtr, char **targetCmdPtr, int *objcPtr, \ 529 Tcl_Obj ***objv) 530} 531declare 150 generic { 532 ClientData Tcl_GetAssocData(Tcl_Interp *interp, char *name, \ 533 Tcl_InterpDeleteProc **procPtr) 534} 535declare 151 generic { 536 Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, char *chanName, \ 537 int *modePtr) 538} 539declare 152 generic { 540 int Tcl_GetChannelBufferSize(Tcl_Channel chan) 541} 542declare 153 generic { 543 int Tcl_GetChannelHandle(Tcl_Channel chan, int direction, \ 544 ClientData *handlePtr) 545} 546declare 154 generic { 547 ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan) 548} 549declare 155 generic { 550 int Tcl_GetChannelMode(Tcl_Channel chan) 551} 552declare 156 generic { 553 char * Tcl_GetChannelName(Tcl_Channel chan) 554} 555declare 157 generic { 556 int Tcl_GetChannelOption(Tcl_Interp *interp, Tcl_Channel chan, \ 557 char *optionName, Tcl_DString *dsPtr) 558} 559declare 158 generic { 560 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan) 561} 562declare 159 generic { 563 int Tcl_GetCommandInfo(Tcl_Interp *interp, char *cmdName, \ 564 Tcl_CmdInfo *infoPtr) 565} 566declare 160 generic { 567 char * Tcl_GetCommandName(Tcl_Interp *interp, Tcl_Command command) 568} 569declare 161 generic { 570 int Tcl_GetErrno(void) 571} 572declare 162 generic { 573 char * Tcl_GetHostName(void) 574} 575declare 163 generic { 576 int Tcl_GetInterpPath(Tcl_Interp *askInterp, Tcl_Interp *slaveInterp) 577} 578declare 164 generic { 579 Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp) 580} 581declare 165 generic { 582 CONST char * Tcl_GetNameOfExecutable(void) 583} 584declare 166 generic { 585 Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp) 586} 587 588# Tcl_GetOpenFile is only available on unix, but it is a part of the old 589# generic interface, so we inlcude it here for compatibility reasons. 590 591declare 167 unix { 592 int Tcl_GetOpenFile(Tcl_Interp *interp, char *str, int write, \ 593 int checkUsage, ClientData *filePtr) 594} 595 596declare 168 generic { 597 Tcl_PathType Tcl_GetPathType(char *path) 598} 599declare 169 generic { 600 int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr) 601} 602declare 170 generic { 603 int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr) 604} 605declare 171 generic { 606 int Tcl_GetServiceMode(void) 607} 608declare 172 generic { 609 Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, char *slaveName) 610} 611declare 173 generic { 612 Tcl_Channel Tcl_GetStdChannel(int type) 613} 614declare 174 generic { 615 char * Tcl_GetStringResult(Tcl_Interp *interp) 616} 617declare 175 generic { 618 char * Tcl_GetVar(Tcl_Interp *interp, char *varName, int flags) 619} 620declare 176 generic { 621 char * Tcl_GetVar2(Tcl_Interp *interp, char *part1, char *part2, int flags) 622} 623declare 177 generic { 624 int Tcl_GlobalEval(Tcl_Interp *interp, char *command) 625} 626declare 178 generic { 627 int Tcl_GlobalEvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr) 628} 629declare 179 generic { 630 int Tcl_HideCommand(Tcl_Interp *interp, char *cmdName, \ 631 char *hiddenCmdToken) 632} 633declare 180 generic { 634 int Tcl_Init(Tcl_Interp *interp) 635} 636declare 181 generic { 637 void Tcl_InitHashTable(Tcl_HashTable *tablePtr, int keyType) 638} 639declare 182 generic { 640 int Tcl_InputBlocked(Tcl_Channel chan) 641} 642declare 183 generic { 643 int Tcl_InputBuffered(Tcl_Channel chan) 644} 645declare 184 generic { 646 int Tcl_InterpDeleted(Tcl_Interp *interp) 647} 648declare 185 generic { 649 int Tcl_IsSafe(Tcl_Interp *interp) 650} 651declare 186 generic { 652 char * Tcl_JoinPath(int argc, char **argv, Tcl_DString *resultPtr) 653} 654declare 187 generic { 655 int Tcl_LinkVar(Tcl_Interp *interp, char *varName, char *addr, int type) 656} 657 658# This slot is reserved for use by the plus patch: 659# declare 188 generic { 660# Tcl_MainLoop 661# } 662 663declare 189 generic { 664 Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode) 665} 666declare 190 generic { 667 int Tcl_MakeSafe(Tcl_Interp *interp) 668} 669declare 191 generic { 670 Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket) 671} 672declare 192 generic { 673 char * Tcl_Merge(int argc, char **argv) 674} 675declare 193 generic { 676 Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr) 677} 678declare 194 generic { 679 void Tcl_NotifyChannel(Tcl_Channel channel, int mask) 680} 681declare 195 generic { 682 Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \ 683 Tcl_Obj *part2Ptr, int flags) 684} 685declare 196 generic { 686 Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \ 687 Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags) 688} 689declare 197 generic { 690 Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, \ 691 char **argv, int flags) 692} 693declare 198 generic { 694 Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, char *fileName, \ 695 char *modeString, int permissions) 696} 697declare 199 generic { 698 Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, \ 699 char *address, char *myaddr, int myport, int async) 700} 701declare 200 generic { 702 Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, char *host, \ 703 Tcl_TcpAcceptProc *acceptProc, ClientData callbackData) 704} 705declare 201 generic { 706 void Tcl_Preserve(ClientData data) 707} 708declare 202 generic { 709 void Tcl_PrintDouble(Tcl_Interp *interp, double value, char *dst) 710} 711declare 203 generic { 712 int Tcl_PutEnv(CONST char *string) 713} 714declare 204 generic { 715 char * Tcl_PosixError(Tcl_Interp *interp) 716} 717declare 205 generic { 718 void Tcl_QueueEvent(Tcl_Event *evPtr, Tcl_QueuePosition position) 719} 720declare 206 generic { 721 int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead) 722} 723declare 207 generic { 724 void Tcl_ReapDetachedProcs(void) 725} 726declare 208 generic { 727 int Tcl_RecordAndEval(Tcl_Interp *interp, char *cmd, int flags) 728} 729declare 209 generic { 730 int Tcl_RecordAndEvalObj(Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags) 731} 732declare 210 generic { 733 void Tcl_RegisterChannel(Tcl_Interp *interp, Tcl_Channel chan) 734} 735declare 211 generic { 736 void Tcl_RegisterObjType(Tcl_ObjType *typePtr) 737} 738declare 212 generic { 739 Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, char *string) 740} 741declare 213 generic { 742 int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp, \ 743 CONST char *str, CONST char *start) 744} 745declare 214 generic { 746 int Tcl_RegExpMatch(Tcl_Interp *interp, char *str, char *pattern) 747} 748declare 215 generic { 749 void Tcl_RegExpRange(Tcl_RegExp regexp, int index, char **startPtr, \ 750 char **endPtr) 751} 752declare 216 generic { 753 void Tcl_Release(ClientData clientData) 754} 755declare 217 generic { 756 void Tcl_ResetResult(Tcl_Interp *interp) 757} 758declare 218 generic { 759 int Tcl_ScanElement(CONST char *str, int *flagPtr) 760} 761declare 219 generic { 762 int Tcl_ScanCountedElement(CONST char *str, int length, int *flagPtr) 763} 764declare 220 generic { 765 int Tcl_Seek(Tcl_Channel chan, int offset, int mode) 766} 767declare 221 generic { 768 int Tcl_ServiceAll(void) 769} 770declare 222 generic { 771 int Tcl_ServiceEvent(int flags) 772} 773declare 223 generic { 774 void Tcl_SetAssocData(Tcl_Interp *interp, char *name, \ 775 Tcl_InterpDeleteProc *proc, ClientData clientData) 776} 777declare 224 generic { 778 void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz) 779} 780declare 225 generic { 781 int Tcl_SetChannelOption(Tcl_Interp *interp, Tcl_Channel chan, \ 782 char *optionName, char *newValue) 783} 784declare 226 generic { 785 int Tcl_SetCommandInfo(Tcl_Interp *interp, char *cmdName, \ 786 Tcl_CmdInfo *infoPtr) 787} 788declare 227 generic { 789 void Tcl_SetErrno(int err) 790} 791declare 228 generic { 792 void Tcl_SetErrorCode(Tcl_Interp *interp, ...) 793} 794declare 229 generic { 795 void Tcl_SetMaxBlockTime(Tcl_Time *timePtr) 796} 797declare 230 generic { 798 void Tcl_SetPanicProc(Tcl_PanicProc *panicProc) 799} 800declare 231 generic { 801 int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth) 802} 803declare 232 generic { 804 void Tcl_SetResult(Tcl_Interp *interp, char *str, \ 805 Tcl_FreeProc *freeProc) 806} 807declare 233 generic { 808 int Tcl_SetServiceMode(int mode) 809} 810declare 234 generic { 811 void Tcl_SetObjErrorCode(Tcl_Interp *interp, Tcl_Obj *errorObjPtr) 812} 813declare 235 generic { 814 void Tcl_SetObjResult(Tcl_Interp *interp, Tcl_Obj *resultObjPtr) 815} 816declare 236 generic { 817 void Tcl_SetStdChannel(Tcl_Channel channel, int type) 818} 819declare 237 generic { 820 char * Tcl_SetVar(Tcl_Interp *interp, char *varName, char *newValue, \ 821 int flags) 822} 823declare 238 generic { 824 char * Tcl_SetVar2(Tcl_Interp *interp, char *part1, char *part2, \ 825 char *newValue, int flags) 826} 827declare 239 generic { 828 char * Tcl_SignalId(int sig) 829} 830declare 240 generic { 831 char * Tcl_SignalMsg(int sig) 832} 833declare 241 generic { 834 void Tcl_SourceRCFile(Tcl_Interp *interp) 835} 836declare 242 generic { 837 int Tcl_SplitList(Tcl_Interp *interp, CONST char *listStr, int *argcPtr, \ 838 char ***argvPtr) 839} 840declare 243 generic { 841 void Tcl_SplitPath(CONST char *path, int *argcPtr, char ***argvPtr) 842} 843declare 244 generic { 844 void Tcl_StaticPackage(Tcl_Interp *interp, char *pkgName, \ 845 Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc) 846} 847declare 245 generic { 848 int Tcl_StringMatch(CONST char *str, CONST char *pattern) 849} 850declare 246 generic { 851 int Tcl_Tell(Tcl_Channel chan) 852} 853declare 247 generic { 854 int Tcl_TraceVar(Tcl_Interp *interp, char *varName, int flags, \ 855 Tcl_VarTraceProc *proc, ClientData clientData) 856} 857declare 248 generic { 858 int Tcl_TraceVar2(Tcl_Interp *interp, char *part1, char *part2, \ 859 int flags, Tcl_VarTraceProc *proc, ClientData clientData) 860} 861declare 249 generic { 862 char * Tcl_TranslateFileName(Tcl_Interp *interp, char *name, \ 863 Tcl_DString *bufferPtr) 864} 865declare 250 generic { 866 int Tcl_Ungets(Tcl_Channel chan, char *str, int len, int atHead) 867} 868declare 251 generic { 869 void Tcl_UnlinkVar(Tcl_Interp *interp, char *varName) 870} 871declare 252 generic { 872 int Tcl_UnregisterChannel(Tcl_Interp *interp, Tcl_Channel chan) 873} 874declare 253 generic { 875 int Tcl_UnsetVar(Tcl_Interp *interp, char *varName, int flags) 876} 877declare 254 generic { 878 int Tcl_UnsetVar2(Tcl_Interp *interp, char *part1, char *part2, int flags) 879} 880declare 255 generic { 881 void Tcl_UntraceVar(Tcl_Interp *interp, char *varName, int flags, \ 882 Tcl_VarTraceProc *proc, ClientData clientData) 883} 884declare 256 generic { 885 void Tcl_UntraceVar2(Tcl_Interp *interp, char *part1, char *part2, \ 886 int flags, Tcl_VarTraceProc *proc, ClientData clientData) 887} 888declare 257 generic { 889 void Tcl_UpdateLinkedVar(Tcl_Interp *interp, char *varName) 890} 891declare 258 generic { 892 int Tcl_UpVar(Tcl_Interp *interp, char *frameName, char *varName, \ 893 char *localName, int flags) 894} 895declare 259 generic { 896 int Tcl_UpVar2(Tcl_Interp *interp, char *frameName, char *part1, \ 897 char *part2, char *localName, int flags) 898} 899declare 260 generic { 900 int Tcl_VarEval(Tcl_Interp *interp, ...) 901} 902declare 261 generic { 903 ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, char *varName, \ 904 int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData) 905} 906declare 262 generic { 907 ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, char *part1, \ 908 char *part2, int flags, Tcl_VarTraceProc *procPtr, \ 909 ClientData prevClientData) 910} 911declare 263 generic { 912 int Tcl_Write(Tcl_Channel chan, char *s, int slen) 913} 914declare 264 generic { 915 void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, \ 916 Tcl_Obj *CONST objv[], char *message) 917} 918declare 265 generic { 919 int Tcl_DumpActiveMemory(char *fileName) 920} 921declare 266 generic { 922 void Tcl_ValidateAllMemory(char *file, int line) 923} 924declare 267 generic { 925 void Tcl_AppendResultVA(Tcl_Interp *interp, va_list argList) 926} 927declare 268 generic { 928 void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, va_list argList) 929} 930declare 269 generic { 931 char * Tcl_HashStats(Tcl_HashTable *tablePtr) 932} 933declare 270 generic { 934 char * Tcl_ParseVar(Tcl_Interp *interp, char *str, char **termPtr) 935} 936declare 271 generic { 937 char * Tcl_PkgPresent(Tcl_Interp *interp, char *name, char *version, \ 938 int exact) 939} 940declare 272 generic { 941 char * Tcl_PkgPresentEx(Tcl_Interp *interp, char *name, char *version, \ 942 int exact, ClientData *clientDataPtr) 943} 944declare 273 generic { 945 int Tcl_PkgProvide(Tcl_Interp *interp, char *name, char *version) 946} 947declare 274 generic { 948 char * Tcl_PkgRequire(Tcl_Interp *interp, char *name, char *version, \ 949 int exact) 950} 951declare 275 generic { 952 void Tcl_SetErrorCodeVA(Tcl_Interp *interp, va_list argList) 953} 954declare 276 generic { 955 int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList) 956} 957declare 277 generic { 958 Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options) 959} 960declare 278 generic { 961 void Tcl_PanicVA(char *format, va_list argList) 962} 963declare 279 generic { 964 void Tcl_GetVersion(int *major, int *minor, int *patchLevel, int *type) 965} 966declare 280 generic { 967 void Tcl_InitMemory(Tcl_Interp *interp) 968} 969 970# Andreas Kupries <a.kupries@westend.com>, 03/21/1999 971# "Trf-Patch for filtering channels" 972# 973# C-Level API for (un)stacking of channels. This allows the introduction 974# of filtering channels with relatively little changes to the core. 975# This patch was created in cooperation with Jan Nijtmans <nijtmans@wxs.nl> 976# and is therefore part of his plus-patches too. 977# 978# It would have been possible to place the following definitions according 979# to the alphabetical order used elsewhere in this file, but I decided 980# against that to ease the maintenance of the patch across new tcl versions 981# (patch usually has no problems to integrate the patch file for the last 982# version into the new one). 983 984declare 281 generic { 985 Tcl_Channel Tcl_ReplaceChannel(Tcl_Interp *interp, \ 986 Tcl_ChannelType *typePtr, ClientData instanceData, \ 987 int mask, Tcl_Channel prevChan) 988} 989declare 282 generic { 990 void Tcl_UndoReplaceChannel(Tcl_Interp *interp, Tcl_Channel chan) 991} 992 993# Reserved for future use (8.0.x vs. 8.1) 994# declare 283 generic { 995# } 996# declare 284 generic { 997# } 998# declare 285 generic { 999# } 1000 1001 1002# Added in 8.1: 1003 1004declare 286 generic { 1005 void Tcl_AppendObjToObj(Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr) 1006} 1007declare 287 generic { 1008 Tcl_Encoding Tcl_CreateEncoding(Tcl_EncodingType *typePtr) 1009} 1010declare 288 generic { 1011 void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, ClientData clientData) 1012} 1013declare 289 generic { 1014 void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc, ClientData clientData) 1015} 1016declare 290 generic { 1017 void Tcl_DiscardResult(Tcl_SavedResult *statePtr) 1018} 1019declare 291 generic { 1020 int Tcl_EvalEx(Tcl_Interp *interp, char *script, int numBytes, int flags) 1021} 1022declare 292 generic { 1023 int Tcl_EvalObjv(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], \ 1024 int flags) 1025} 1026declare 293 generic { 1027 int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags) 1028} 1029declare 294 generic { 1030 void Tcl_ExitThread(int status) 1031} 1032declare 295 generic { 1033 int Tcl_ExternalToUtf(Tcl_Interp *interp, Tcl_Encoding encoding, \ 1034 CONST char *src, int srcLen, int flags, \ 1035 Tcl_EncodingState *statePtr, char *dst, int dstLen, \ 1036 int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr) 1037} 1038declare 296 generic { 1039 char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding, CONST char *src, \ 1040 int srcLen, Tcl_DString *dsPtr) 1041} 1042declare 297 generic { 1043 void Tcl_FinalizeThread(void) 1044} 1045declare 298 generic { 1046 void Tcl_FinalizeNotifier(ClientData clientData) 1047} 1048declare 299 generic { 1049 void Tcl_FreeEncoding(Tcl_Encoding encoding) 1050} 1051declare 300 generic { 1052 Tcl_ThreadId Tcl_GetCurrentThread(void) 1053} 1054declare 301 generic { 1055 Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, CONST char *name) 1056} 1057declare 302 generic { 1058 char * Tcl_GetEncodingName(Tcl_Encoding encoding) 1059} 1060declare 303 generic { 1061 void Tcl_GetEncodingNames(Tcl_Interp *interp) 1062} 1063declare 304 generic { 1064 int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp, Tcl_Obj *objPtr, \ 1065 char **tablePtr, int offset, char *msg, int flags, int *indexPtr) 1066} 1067declare 305 generic { 1068 VOID * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr, int size) 1069} 1070declare 306 generic { 1071 Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, char *part1, char *part2, \ 1072 int flags) 1073} 1074declare 307 generic { 1075 ClientData Tcl_InitNotifier(void) 1076} 1077declare 308 generic { 1078 void Tcl_MutexLock(Tcl_Mutex *mutexPtr) 1079} 1080declare 309 generic { 1081 void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr) 1082} 1083declare 310 generic { 1084 void Tcl_ConditionNotify(Tcl_Condition *condPtr) 1085} 1086declare 311 generic { 1087 void Tcl_ConditionWait(Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, \ 1088 Tcl_Time *timePtr) 1089} 1090declare 312 generic { 1091 int Tcl_NumUtfChars(CONST char *src, int len) 1092} 1093declare 313 generic { 1094 int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, \ 1095 int appendFlag) 1096} 1097declare 314 generic { 1098 void Tcl_RestoreResult(Tcl_Interp *interp, Tcl_SavedResult *statePtr) 1099} 1100declare 315 generic { 1101 void Tcl_SaveResult(Tcl_Interp *interp, Tcl_SavedResult *statePtr) 1102} 1103declare 316 generic { 1104 int Tcl_SetSystemEncoding(Tcl_Interp *interp, CONST char *name) 1105} 1106declare 317 generic { 1107 Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, char *part1, char *part2, \ 1108 Tcl_Obj *newValuePtr, int flags) 1109} 1110declare 318 generic { 1111 void Tcl_ThreadAlert(Tcl_ThreadId threadId) 1112} 1113declare 319 generic { 1114 void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId, Tcl_Event* evPtr, \ 1115 Tcl_QueuePosition position) 1116} 1117declare 320 generic { 1118 Tcl_UniChar Tcl_UniCharAtIndex(CONST char *src, int index) 1119} 1120declare 321 generic { 1121 Tcl_UniChar Tcl_UniCharToLower(int ch) 1122} 1123declare 322 generic { 1124 Tcl_UniChar Tcl_UniCharToTitle(int ch) 1125} 1126declare 323 generic { 1127 Tcl_UniChar Tcl_UniCharToUpper(int ch) 1128} 1129declare 324 generic { 1130 int Tcl_UniCharToUtf(int ch, char *buf) 1131} 1132declare 325 generic { 1133 char * Tcl_UtfAtIndex(CONST char *src, int index) 1134} 1135declare 326 generic { 1136 int Tcl_UtfCharComplete(CONST char *src, int len) 1137} 1138declare 327 generic { 1139 int Tcl_UtfBackslash(CONST char *src, int *readPtr, char *dst) 1140} 1141declare 328 generic { 1142 char * Tcl_UtfFindFirst(CONST char *src, int ch) 1143} 1144declare 329 generic { 1145 char * Tcl_UtfFindLast(CONST char *src, int ch) 1146} 1147declare 330 generic { 1148 char * Tcl_UtfNext(CONST char *src) 1149} 1150declare 331 generic { 1151 char * Tcl_UtfPrev(CONST char *src, CONST char *start) 1152} 1153declare 332 generic { 1154 int Tcl_UtfToExternal(Tcl_Interp *interp, Tcl_Encoding encoding, \ 1155 CONST char *src, int srcLen, int flags, \ 1156 Tcl_EncodingState *statePtr, char *dst, int dstLen, \ 1157 int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr) 1158} 1159declare 333 generic { 1160 char * Tcl_UtfToExternalDString(Tcl_Encoding encoding, CONST char *src, \ 1161 int srcLen, Tcl_DString *dsPtr) 1162} 1163declare 334 generic { 1164 int Tcl_UtfToLower(char *src) 1165} 1166declare 335 generic { 1167 int Tcl_UtfToTitle(char *src) 1168} 1169declare 336 generic { 1170 int Tcl_UtfToUniChar(CONST char *src, Tcl_UniChar *chPtr) 1171} 1172declare 337 generic { 1173 int Tcl_UtfToUpper(char *src) 1174} 1175declare 338 generic { 1176 int Tcl_WriteChars(Tcl_Channel chan, CONST char *src, int srcLen) 1177} 1178declare 339 generic { 1179 int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr) 1180} 1181declare 340 generic { 1182 char * Tcl_GetString(Tcl_Obj *objPtr) 1183} 1184declare 341 generic { 1185 char * Tcl_GetDefaultEncodingDir(void) 1186} 1187declare 342 generic { 1188 void Tcl_SetDefaultEncodingDir(char *path) 1189} 1190declare 343 generic { 1191 void Tcl_AlertNotifier(ClientData clientData) 1192} 1193declare 344 generic { 1194 void Tcl_ServiceModeHook(int mode) 1195} 1196declare 345 generic { 1197 int Tcl_UniCharIsAlnum(int ch) 1198} 1199declare 346 generic { 1200 int Tcl_UniCharIsAlpha(int ch) 1201} 1202declare 347 generic { 1203 int Tcl_UniCharIsDigit(int ch) 1204} 1205declare 348 generic { 1206 int Tcl_UniCharIsLower(int ch) 1207} 1208declare 349 generic { 1209 int Tcl_UniCharIsSpace(int ch) 1210} 1211declare 350 generic { 1212 int Tcl_UniCharIsUpper(int ch) 1213} 1214declare 351 generic { 1215 int Tcl_UniCharIsWordChar(int ch) 1216} 1217declare 352 generic { 1218 int Tcl_UniCharLen(Tcl_UniChar *str) 1219} 1220declare 353 generic { 1221 int Tcl_UniCharNcmp(const Tcl_UniChar *cs, const Tcl_UniChar *ct, size_t n) 1222} 1223declare 354 generic { 1224 char * Tcl_UniCharToUtfDString(CONST Tcl_UniChar *string, int numChars, \ 1225 Tcl_DString *dsPtr) 1226} 1227declare 355 generic { 1228 Tcl_UniChar * Tcl_UtfToUniCharDString(CONST char *string, int length, \ 1229 Tcl_DString *dsPtr) 1230} 1231declare 356 generic { 1232 Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp, Tcl_Obj *patObj, int flags) 1233} 1234 1235declare 357 generic { 1236 Tcl_Obj *Tcl_EvalTokens (Tcl_Interp *interp, Tcl_Token *tokenPtr, \ 1237 int count) 1238} 1239declare 358 generic { 1240 void Tcl_FreeParse (Tcl_Parse *parsePtr) 1241} 1242declare 359 generic { 1243 void Tcl_LogCommandInfo (Tcl_Interp *interp, char *script, \ 1244 char *command, int length) 1245} 1246declare 360 generic { 1247 int Tcl_ParseBraces (Tcl_Interp *interp, char *string, \ 1248 int numBytes, Tcl_Parse *parsePtr,int append, char **termPtr) 1249} 1250declare 361 generic { 1251 int Tcl_ParseCommand (Tcl_Interp *interp, char *string, int numBytes, \ 1252 int nested, Tcl_Parse *parsePtr) 1253} 1254declare 362 generic { 1255 int Tcl_ParseExpr(Tcl_Interp *interp, char *string, int numBytes, \ 1256 Tcl_Parse *parsePtr) 1257} 1258declare 363 generic { 1259 int Tcl_ParseQuotedString(Tcl_Interp *interp, char *string, int numBytes, \ 1260 Tcl_Parse *parsePtr, int append, char **termPtr) 1261} 1262declare 364 generic { 1263 int Tcl_ParseVarName (Tcl_Interp *interp, char *string, \ 1264 int numBytes, Tcl_Parse *parsePtr, int append) 1265} 1266declare 365 generic { 1267 char *Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr) 1268} 1269declare 366 generic { 1270 int Tcl_Chdir(CONST char *dirName) 1271} 1272 1273############################################################################## 1274 1275# Define the platform specific public Tcl interface. These functions are 1276# only available on the designated platform. 1277 1278interface tclPlat 1279 1280###################### 1281# Windows declarations 1282 1283# Added in Tcl 8.1 1284 1285declare 0 win { 1286 TCHAR * Tcl_WinUtfToTChar(CONST char *str, int len, Tcl_DString *dsPtr) 1287} 1288declare 1 win { 1289 char * Tcl_WinTCharToUtf(CONST TCHAR *str, int len, Tcl_DString *dsPtr) 1290} 1291 1292################## 1293# Mac declarations 1294 1295# This is needed by the shells to handle Macintosh events. 1296 1297declare 0 mac { 1298 void Tcl_MacSetEventProc(Tcl_MacConvertEventPtr procPtr) 1299} 1300 1301# These routines are useful for handling using scripts from resources 1302# in the application shell 1303 1304declare 1 mac { 1305 char * Tcl_MacConvertTextResource(Handle resource) 1306} 1307declare 2 mac { 1308 int Tcl_MacEvalResource(Tcl_Interp *interp, char *resourceName, \ 1309 int resourceNumber, char *fileName) 1310} 1311declare 3 mac { 1312 Handle Tcl_MacFindResource(Tcl_Interp *interp, long resourceType, \ 1313 char *resourceName, int resourceNumber, char *resFileRef, \ 1314 int * releaseIt) 1315} 1316 1317# These routines support the new OSType object type (i.e. the packed 4 1318# character type and creator codes). 1319 1320declare 4 mac { 1321 int Tcl_GetOSTypeFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ 1322 OSType *osTypePtr) 1323} 1324declare 5 mac { 1325 void Tcl_SetOSTypeObj(Tcl_Obj *objPtr, OSType osType) 1326} 1327declare 6 mac { 1328 Tcl_Obj * Tcl_NewOSTypeObj(OSType osType) 1329} 1330 1331# These are not in MSL 2.1.2, so we need to export them from the 1332# Tcl shared library. They are found in the compat directory 1333# except the panic routine which is found in tclMacPanic.h. 1334 1335declare 7 mac { 1336 int strncasecmp(CONST char *s1, CONST char *s2, size_t n) 1337} 1338declare 8 mac { 1339 int strcasecmp(CONST char *s1, CONST char *s2) 1340} 1341