1/* 2 * tclIntPlatDecls.h -- 3 * 4 * This file contains the declarations for all platform dependent 5 * unsupported functions that are exported by the Tcl library. These 6 * interfaces are not guaranteed to remain the same between 7 * versions. Use at your own risk. 8 * 9 * Copyright (c) 1998-1999 by Scriptics Corporation. 10 * All rights reserved. 11 * 12 * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.19.2.7 2007/04/21 19:52:14 kennykb Exp $ 13 */ 14 15#ifndef _TCLINTPLATDECLS 16#define _TCLINTPLATDECLS 17 18/* 19 * WARNING: This file is automatically generated by the tools/genStubs.tcl 20 * script. Any modifications to the function declarations below should be made 21 * in the generic/tclInt.decls script. 22 */ 23 24/* !BEGIN!: Do not edit below this line. */ 25 26/* 27 * Exported function declarations: 28 */ 29 30#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 31/* 0 */ 32EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, 33 Tcl_Channel chan)); 34/* 1 */ 35EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); 36/* 2 */ 37EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( 38 TclFile readFile, TclFile writeFile, 39 TclFile errorFile, int numPids, 40 Tcl_Pid * pidPtr)); 41/* 3 */ 42EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, 43 TclFile * writePipe)); 44/* 4 */ 45EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, 46 int argc, CONST char ** argv, 47 TclFile inputFile, TclFile outputFile, 48 TclFile errorFile, Tcl_Pid * pidPtr)); 49/* Slot 5 is reserved */ 50/* 6 */ 51EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, 52 int direction)); 53/* 7 */ 54EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, 55 int mode)); 56/* 8 */ 57EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, 58 int timeout)); 59/* 9 */ 60EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( 61 CONST char * contents)); 62/* 10 */ 63EXTERN Tcl_DirEntry * TclpReaddir _ANSI_ARGS_((DIR * dir)); 64/* 11 */ 65EXTERN struct tm * TclpLocaltime_unix _ANSI_ARGS_(( 66 TclpTime_t_CONST clock)); 67/* 12 */ 68EXTERN struct tm * TclpGmtime_unix _ANSI_ARGS_((TclpTime_t_CONST clock)); 69/* 13 */ 70EXTERN char * TclpInetNtoa _ANSI_ARGS_((struct in_addr addr)); 71#endif /* UNIX */ 72#ifdef __WIN32__ 73/* 0 */ 74EXTERN void TclWinConvertError _ANSI_ARGS_((DWORD errCode)); 75/* 1 */ 76EXTERN void TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode)); 77/* 2 */ 78EXTERN struct servent * TclWinGetServByName _ANSI_ARGS_((CONST char * nm, 79 CONST char * proto)); 80/* 3 */ 81EXTERN int TclWinGetSockOpt _ANSI_ARGS_((SOCKET s, int level, 82 int optname, char FAR * optval, 83 int FAR * optlen)); 84/* 4 */ 85EXTERN HINSTANCE TclWinGetTclInstance _ANSI_ARGS_((void)); 86/* Slot 5 is reserved */ 87/* 6 */ 88EXTERN u_short TclWinNToHS _ANSI_ARGS_((u_short ns)); 89/* 7 */ 90EXTERN int TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level, 91 int optname, CONST char FAR * optval, 92 int optlen)); 93/* 8 */ 94EXTERN unsigned long TclpGetPid _ANSI_ARGS_((Tcl_Pid pid)); 95/* 9 */ 96EXTERN int TclWinGetPlatformId _ANSI_ARGS_((void)); 97/* Slot 10 is reserved */ 98/* 11 */ 99EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, 100 Tcl_Channel chan)); 101/* 12 */ 102EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); 103/* 13 */ 104EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( 105 TclFile readFile, TclFile writeFile, 106 TclFile errorFile, int numPids, 107 Tcl_Pid * pidPtr)); 108/* 14 */ 109EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, 110 TclFile * writePipe)); 111/* 15 */ 112EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, 113 int argc, CONST char ** argv, 114 TclFile inputFile, TclFile outputFile, 115 TclFile errorFile, Tcl_Pid * pidPtr)); 116/* Slot 16 is reserved */ 117/* Slot 17 is reserved */ 118/* 18 */ 119EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, 120 int direction)); 121/* 19 */ 122EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, 123 int mode)); 124/* 20 */ 125EXTERN void TclWinAddProcess _ANSI_ARGS_((HANDLE hProcess, 126 DWORD id)); 127/* Slot 21 is reserved */ 128/* 22 */ 129EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( 130 CONST char * contents)); 131/* 23 */ 132EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst)); 133/* 24 */ 134EXTERN char * TclWinNoBackslash _ANSI_ARGS_((char * path)); 135/* 25 */ 136EXTERN TclPlatformType * TclWinGetPlatform _ANSI_ARGS_((void)); 137/* 26 */ 138EXTERN void TclWinSetInterfaces _ANSI_ARGS_((int wide)); 139/* 27 */ 140EXTERN void TclWinFlushDirtyChannels _ANSI_ARGS_((void)); 141/* 28 */ 142EXTERN void TclWinResetInterfaces _ANSI_ARGS_((void)); 143/* 29 */ 144EXTERN int TclWinCPUID _ANSI_ARGS_((unsigned int index, 145 unsigned int * regs)); 146#endif /* __WIN32__ */ 147#ifdef MAC_TCL 148/* 0 */ 149EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin)); 150/* 1 */ 151EXTERN void TclpSysFree _ANSI_ARGS_((VOID * ptr)); 152/* 2 */ 153EXTERN VOID * TclpSysRealloc _ANSI_ARGS_((VOID * cp, 154 unsigned int size)); 155/* 3 */ 156EXTERN void TclpExit _ANSI_ARGS_((int status)); 157/* 4 */ 158EXTERN int FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); 159/* 5 */ 160EXTERN int FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); 161/* 6 */ 162EXTERN OSErr FSpFindFolder _ANSI_ARGS_((short vRefNum, 163 OSType folderType, Boolean createFolder, 164 FSSpec * spec)); 165/* 7 */ 166EXTERN void GetGlobalMouseTcl _ANSI_ARGS_((Point * mouse)); 167/* 8 */ 168EXTERN pascal OSErr FSpGetDirectoryIDTcl _ANSI_ARGS_(( 169 CONST FSSpec * spec, long * theDirID, 170 Boolean * isDirectory)); 171/* 9 */ 172EXTERN pascal short FSpOpenResFileCompatTcl _ANSI_ARGS_(( 173 CONST FSSpec * spec, SignedByte permission)); 174/* 10 */ 175EXTERN pascal void FSpCreateResFileCompatTcl _ANSI_ARGS_(( 176 CONST FSSpec * spec, OSType creator, 177 OSType fileType, ScriptCode scriptTag)); 178/* 11 */ 179EXTERN int FSpLocationFromPath _ANSI_ARGS_((int length, 180 CONST char * path, FSSpecPtr theSpec)); 181/* 12 */ 182EXTERN OSErr FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec, 183 int * length, Handle * fullPath)); 184/* 13 */ 185EXTERN void TclMacExitHandler _ANSI_ARGS_((void)); 186/* 14 */ 187EXTERN void TclMacInitExitToShell _ANSI_ARGS_((int usePatch)); 188/* 15 */ 189EXTERN OSErr TclMacInstallExitToShellPatch _ANSI_ARGS_(( 190 ExitToShellProcPtr newProc)); 191/* 16 */ 192EXTERN int TclMacOSErrorToPosixError _ANSI_ARGS_((int error)); 193/* 17 */ 194EXTERN void TclMacRemoveTimer _ANSI_ARGS_((void * timerToken)); 195/* 18 */ 196EXTERN void * TclMacStartTimer _ANSI_ARGS_((long ms)); 197/* 19 */ 198EXTERN int TclMacTimerExpired _ANSI_ARGS_((void * timerToken)); 199/* 20 */ 200EXTERN int TclMacRegisterResourceFork _ANSI_ARGS_(( 201 short fileRef, Tcl_Obj * tokenPtr, 202 int insert)); 203/* 21 */ 204EXTERN short TclMacUnRegisterResourceFork _ANSI_ARGS_(( 205 char * tokenPtr, Tcl_Obj * resultPtr)); 206/* 22 */ 207EXTERN int TclMacCreateEnv _ANSI_ARGS_((void)); 208/* 23 */ 209EXTERN FILE * TclMacFOpenHack _ANSI_ARGS_((CONST char * path, 210 CONST char * mode)); 211/* 24 */ 212EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst)); 213/* 25 */ 214EXTERN int TclMacChmod _ANSI_ARGS_((CONST char * path, int mode)); 215/* 26 */ 216EXTERN int FSpLLocationFromPath _ANSI_ARGS_((int length, 217 CONST char * path, FSSpecPtr theSpec)); 218#endif /* MAC_TCL */ 219 220typedef struct TclIntPlatStubs { 221 int magic; 222 struct TclIntPlatStubHooks *hooks; 223 224#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 225 void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */ 226 int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */ 227 Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */ 228 int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */ 229 int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */ 230 void *reserved5; 231 TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */ 232 TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */ 233 int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */ 234 TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */ 235 Tcl_DirEntry * (*tclpReaddir) _ANSI_ARGS_((DIR * dir)); /* 10 */ 236 struct tm * (*tclpLocaltime_unix) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 11 */ 237 struct tm * (*tclpGmtime_unix) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 12 */ 238 char * (*tclpInetNtoa) _ANSI_ARGS_((struct in_addr addr)); /* 13 */ 239#endif /* UNIX */ 240#ifdef __WIN32__ 241 void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */ 242 void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */ 243 struct servent * (*tclWinGetServByName) _ANSI_ARGS_((CONST char * nm, CONST char * proto)); /* 2 */ 244 int (*tclWinGetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, char FAR * optval, int FAR * optlen)); /* 3 */ 245 HINSTANCE (*tclWinGetTclInstance) _ANSI_ARGS_((void)); /* 4 */ 246 void *reserved5; 247 u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */ 248 int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, CONST char FAR * optval, int optlen)); /* 7 */ 249 unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */ 250 int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */ 251 void *reserved10; 252 void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */ 253 int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */ 254 Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */ 255 int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */ 256 int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */ 257 void *reserved16; 258 void *reserved17; 259 TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */ 260 TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 19 */ 261 void (*tclWinAddProcess) _ANSI_ARGS_((HANDLE hProcess, DWORD id)); /* 20 */ 262 void *reserved21; 263 TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 22 */ 264 char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 23 */ 265 char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 24 */ 266 TclPlatformType * (*tclWinGetPlatform) _ANSI_ARGS_((void)); /* 25 */ 267 void (*tclWinSetInterfaces) _ANSI_ARGS_((int wide)); /* 26 */ 268 void (*tclWinFlushDirtyChannels) _ANSI_ARGS_((void)); /* 27 */ 269 void (*tclWinResetInterfaces) _ANSI_ARGS_((void)); /* 28 */ 270 int (*tclWinCPUID) _ANSI_ARGS_((unsigned int index, unsigned int * regs)); /* 29 */ 271#endif /* __WIN32__ */ 272#ifdef MAC_TCL 273 VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */ 274 void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */ 275 VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */ 276 void (*tclpExit) _ANSI_ARGS_((int status)); /* 3 */ 277 int (*fSpGetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 4 */ 278 int (*fSpSetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 5 */ 279 OSErr (*fSpFindFolder) _ANSI_ARGS_((short vRefNum, OSType folderType, Boolean createFolder, FSSpec * spec)); /* 6 */ 280 void (*getGlobalMouseTcl) _ANSI_ARGS_((Point * mouse)); /* 7 */ 281 pascal OSErr (*fSpGetDirectoryIDTcl) _ANSI_ARGS_((CONST FSSpec * spec, long * theDirID, Boolean * isDirectory)); /* 8 */ 282 pascal short (*fSpOpenResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, SignedByte permission)); /* 9 */ 283 pascal void (*fSpCreateResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, OSType creator, OSType fileType, ScriptCode scriptTag)); /* 10 */ 284 int (*fSpLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 11 */ 285 OSErr (*fSpPathFromLocation) _ANSI_ARGS_((FSSpecPtr theSpec, int * length, Handle * fullPath)); /* 12 */ 286 void (*tclMacExitHandler) _ANSI_ARGS_((void)); /* 13 */ 287 void (*tclMacInitExitToShell) _ANSI_ARGS_((int usePatch)); /* 14 */ 288 OSErr (*tclMacInstallExitToShellPatch) _ANSI_ARGS_((ExitToShellProcPtr newProc)); /* 15 */ 289 int (*tclMacOSErrorToPosixError) _ANSI_ARGS_((int error)); /* 16 */ 290 void (*tclMacRemoveTimer) _ANSI_ARGS_((void * timerToken)); /* 17 */ 291 void * (*tclMacStartTimer) _ANSI_ARGS_((long ms)); /* 18 */ 292 int (*tclMacTimerExpired) _ANSI_ARGS_((void * timerToken)); /* 19 */ 293 int (*tclMacRegisterResourceFork) _ANSI_ARGS_((short fileRef, Tcl_Obj * tokenPtr, int insert)); /* 20 */ 294 short (*tclMacUnRegisterResourceFork) _ANSI_ARGS_((char * tokenPtr, Tcl_Obj * resultPtr)); /* 21 */ 295 int (*tclMacCreateEnv) _ANSI_ARGS_((void)); /* 22 */ 296 FILE * (*tclMacFOpenHack) _ANSI_ARGS_((CONST char * path, CONST char * mode)); /* 23 */ 297 char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 24 */ 298 int (*tclMacChmod) _ANSI_ARGS_((CONST char * path, int mode)); /* 25 */ 299 int (*fSpLLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 26 */ 300#endif /* MAC_TCL */ 301} TclIntPlatStubs; 302 303#ifdef __cplusplus 304extern "C" { 305#endif 306extern TclIntPlatStubs *tclIntPlatStubsPtr; 307#ifdef __cplusplus 308} 309#endif 310 311#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) 312 313/* 314 * Inline function declarations: 315 */ 316 317#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 318#ifndef TclGetAndDetachPids 319#define TclGetAndDetachPids \ 320 (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ 321#endif 322#ifndef TclpCloseFile 323#define TclpCloseFile \ 324 (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ 325#endif 326#ifndef TclpCreateCommandChannel 327#define TclpCreateCommandChannel \ 328 (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ 329#endif 330#ifndef TclpCreatePipe 331#define TclpCreatePipe \ 332 (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ 333#endif 334#ifndef TclpCreateProcess 335#define TclpCreateProcess \ 336 (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ 337#endif 338/* Slot 5 is reserved */ 339#ifndef TclpMakeFile 340#define TclpMakeFile \ 341 (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ 342#endif 343#ifndef TclpOpenFile 344#define TclpOpenFile \ 345 (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ 346#endif 347#ifndef TclUnixWaitForFile 348#define TclUnixWaitForFile \ 349 (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ 350#endif 351#ifndef TclpCreateTempFile 352#define TclpCreateTempFile \ 353 (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ 354#endif 355#ifndef TclpReaddir 356#define TclpReaddir \ 357 (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ 358#endif 359#ifndef TclpLocaltime_unix 360#define TclpLocaltime_unix \ 361 (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */ 362#endif 363#ifndef TclpGmtime_unix 364#define TclpGmtime_unix \ 365 (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */ 366#endif 367#ifndef TclpInetNtoa 368#define TclpInetNtoa \ 369 (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */ 370#endif 371#endif /* UNIX */ 372#ifdef __WIN32__ 373#ifndef TclWinConvertError 374#define TclWinConvertError \ 375 (tclIntPlatStubsPtr->tclWinConvertError) /* 0 */ 376#endif 377#ifndef TclWinConvertWSAError 378#define TclWinConvertWSAError \ 379 (tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */ 380#endif 381#ifndef TclWinGetServByName 382#define TclWinGetServByName \ 383 (tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */ 384#endif 385#ifndef TclWinGetSockOpt 386#define TclWinGetSockOpt \ 387 (tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */ 388#endif 389#ifndef TclWinGetTclInstance 390#define TclWinGetTclInstance \ 391 (tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */ 392#endif 393/* Slot 5 is reserved */ 394#ifndef TclWinNToHS 395#define TclWinNToHS \ 396 (tclIntPlatStubsPtr->tclWinNToHS) /* 6 */ 397#endif 398#ifndef TclWinSetSockOpt 399#define TclWinSetSockOpt \ 400 (tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */ 401#endif 402#ifndef TclpGetPid 403#define TclpGetPid \ 404 (tclIntPlatStubsPtr->tclpGetPid) /* 8 */ 405#endif 406#ifndef TclWinGetPlatformId 407#define TclWinGetPlatformId \ 408 (tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */ 409#endif 410/* Slot 10 is reserved */ 411#ifndef TclGetAndDetachPids 412#define TclGetAndDetachPids \ 413 (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */ 414#endif 415#ifndef TclpCloseFile 416#define TclpCloseFile \ 417 (tclIntPlatStubsPtr->tclpCloseFile) /* 12 */ 418#endif 419#ifndef TclpCreateCommandChannel 420#define TclpCreateCommandChannel \ 421 (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */ 422#endif 423#ifndef TclpCreatePipe 424#define TclpCreatePipe \ 425 (tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */ 426#endif 427#ifndef TclpCreateProcess 428#define TclpCreateProcess \ 429 (tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */ 430#endif 431/* Slot 16 is reserved */ 432/* Slot 17 is reserved */ 433#ifndef TclpMakeFile 434#define TclpMakeFile \ 435 (tclIntPlatStubsPtr->tclpMakeFile) /* 18 */ 436#endif 437#ifndef TclpOpenFile 438#define TclpOpenFile \ 439 (tclIntPlatStubsPtr->tclpOpenFile) /* 19 */ 440#endif 441#ifndef TclWinAddProcess 442#define TclWinAddProcess \ 443 (tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */ 444#endif 445/* Slot 21 is reserved */ 446#ifndef TclpCreateTempFile 447#define TclpCreateTempFile \ 448 (tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */ 449#endif 450#ifndef TclpGetTZName 451#define TclpGetTZName \ 452 (tclIntPlatStubsPtr->tclpGetTZName) /* 23 */ 453#endif 454#ifndef TclWinNoBackslash 455#define TclWinNoBackslash \ 456 (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */ 457#endif 458#ifndef TclWinGetPlatform 459#define TclWinGetPlatform \ 460 (tclIntPlatStubsPtr->tclWinGetPlatform) /* 25 */ 461#endif 462#ifndef TclWinSetInterfaces 463#define TclWinSetInterfaces \ 464 (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */ 465#endif 466#ifndef TclWinFlushDirtyChannels 467#define TclWinFlushDirtyChannels \ 468 (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */ 469#endif 470#ifndef TclWinResetInterfaces 471#define TclWinResetInterfaces \ 472 (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */ 473#endif 474#ifndef TclWinCPUID 475#define TclWinCPUID \ 476 (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ 477#endif 478#endif /* __WIN32__ */ 479#ifdef MAC_TCL 480#ifndef TclpSysAlloc 481#define TclpSysAlloc \ 482 (tclIntPlatStubsPtr->tclpSysAlloc) /* 0 */ 483#endif 484#ifndef TclpSysFree 485#define TclpSysFree \ 486 (tclIntPlatStubsPtr->tclpSysFree) /* 1 */ 487#endif 488#ifndef TclpSysRealloc 489#define TclpSysRealloc \ 490 (tclIntPlatStubsPtr->tclpSysRealloc) /* 2 */ 491#endif 492#ifndef TclpExit 493#define TclpExit \ 494 (tclIntPlatStubsPtr->tclpExit) /* 3 */ 495#endif 496#ifndef FSpGetDefaultDir 497#define FSpGetDefaultDir \ 498 (tclIntPlatStubsPtr->fSpGetDefaultDir) /* 4 */ 499#endif 500#ifndef FSpSetDefaultDir 501#define FSpSetDefaultDir \ 502 (tclIntPlatStubsPtr->fSpSetDefaultDir) /* 5 */ 503#endif 504#ifndef FSpFindFolder 505#define FSpFindFolder \ 506 (tclIntPlatStubsPtr->fSpFindFolder) /* 6 */ 507#endif 508#ifndef GetGlobalMouseTcl 509#define GetGlobalMouseTcl \ 510 (tclIntPlatStubsPtr->getGlobalMouseTcl) /* 7 */ 511#endif 512#ifndef FSpGetDirectoryIDTcl 513#define FSpGetDirectoryIDTcl \ 514 (tclIntPlatStubsPtr->fSpGetDirectoryIDTcl) /* 8 */ 515#endif 516#ifndef FSpOpenResFileCompatTcl 517#define FSpOpenResFileCompatTcl \ 518 (tclIntPlatStubsPtr->fSpOpenResFileCompatTcl) /* 9 */ 519#endif 520#ifndef FSpCreateResFileCompatTcl 521#define FSpCreateResFileCompatTcl \ 522 (tclIntPlatStubsPtr->fSpCreateResFileCompatTcl) /* 10 */ 523#endif 524#ifndef FSpLocationFromPath 525#define FSpLocationFromPath \ 526 (tclIntPlatStubsPtr->fSpLocationFromPath) /* 11 */ 527#endif 528#ifndef FSpPathFromLocation 529#define FSpPathFromLocation \ 530 (tclIntPlatStubsPtr->fSpPathFromLocation) /* 12 */ 531#endif 532#ifndef TclMacExitHandler 533#define TclMacExitHandler \ 534 (tclIntPlatStubsPtr->tclMacExitHandler) /* 13 */ 535#endif 536#ifndef TclMacInitExitToShell 537#define TclMacInitExitToShell \ 538 (tclIntPlatStubsPtr->tclMacInitExitToShell) /* 14 */ 539#endif 540#ifndef TclMacInstallExitToShellPatch 541#define TclMacInstallExitToShellPatch \ 542 (tclIntPlatStubsPtr->tclMacInstallExitToShellPatch) /* 15 */ 543#endif 544#ifndef TclMacOSErrorToPosixError 545#define TclMacOSErrorToPosixError \ 546 (tclIntPlatStubsPtr->tclMacOSErrorToPosixError) /* 16 */ 547#endif 548#ifndef TclMacRemoveTimer 549#define TclMacRemoveTimer \ 550 (tclIntPlatStubsPtr->tclMacRemoveTimer) /* 17 */ 551#endif 552#ifndef TclMacStartTimer 553#define TclMacStartTimer \ 554 (tclIntPlatStubsPtr->tclMacStartTimer) /* 18 */ 555#endif 556#ifndef TclMacTimerExpired 557#define TclMacTimerExpired \ 558 (tclIntPlatStubsPtr->tclMacTimerExpired) /* 19 */ 559#endif 560#ifndef TclMacRegisterResourceFork 561#define TclMacRegisterResourceFork \ 562 (tclIntPlatStubsPtr->tclMacRegisterResourceFork) /* 20 */ 563#endif 564#ifndef TclMacUnRegisterResourceFork 565#define TclMacUnRegisterResourceFork \ 566 (tclIntPlatStubsPtr->tclMacUnRegisterResourceFork) /* 21 */ 567#endif 568#ifndef TclMacCreateEnv 569#define TclMacCreateEnv \ 570 (tclIntPlatStubsPtr->tclMacCreateEnv) /* 22 */ 571#endif 572#ifndef TclMacFOpenHack 573#define TclMacFOpenHack \ 574 (tclIntPlatStubsPtr->tclMacFOpenHack) /* 23 */ 575#endif 576#ifndef TclpGetTZName 577#define TclpGetTZName \ 578 (tclIntPlatStubsPtr->tclpGetTZName) /* 24 */ 579#endif 580#ifndef TclMacChmod 581#define TclMacChmod \ 582 (tclIntPlatStubsPtr->tclMacChmod) /* 25 */ 583#endif 584#ifndef FSpLLocationFromPath 585#define FSpLLocationFromPath \ 586 (tclIntPlatStubsPtr->fSpLLocationFromPath) /* 26 */ 587#endif 588#endif /* MAC_TCL */ 589 590#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ 591 592/* !END!: Do not edit above this line. */ 593 594#endif /* _TCLINTPLATDECLS */ 595