diff options
Diffstat (limited to 'generic/tclIntPlatDecls.h')
| -rw-r--r-- | generic/tclIntPlatDecls.h | 388 |
1 files changed, 369 insertions, 19 deletions
diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h index 35d5b95..04861f0 100644 --- a/generic/tclIntPlatDecls.h +++ b/generic/tclIntPlatDecls.h @@ -9,7 +9,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.1 1999/03/03 00:38:41 stanton Exp $ + * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.2 1999/03/04 01:01:58 stanton Exp $ */ #ifndef _TCLINTPLATDECLS @@ -49,19 +49,145 @@ EXTERN u_short TclWinNToHS _ANSI_ARGS_((u_short ns)); EXTERN int TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level, int optname, const char FAR * optval, int optlen)); +/* 8 */ +EXTERN unsigned long TclpGetPid _ANSI_ARGS_((Tcl_Pid pid)); +/* 9 */ +EXTERN void TclpFinalize _ANSI_ARGS_((void)); +/* 10 */ +EXTERN int TclWinGetPlatformId _ANSI_ARGS_((void)); +/* 11 */ +EXTERN void TclWinInit _ANSI_ARGS_((HINSTANCE hInst)); +/* 12 */ +EXTERN int TclWinSynchSpawn _ANSI_ARGS_((void * args, int type, + void ** trans, Tcl_Pid * pidPtr)); +/* 13 */ +EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel chan)); +/* 14 */ +EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); +/* 15 */ +EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( + TclFile readFile, TclFile writeFile, + TclFile errorFile, int numPids, + Tcl_Pid * pidPtr)); +/* 16 */ +EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, + TclFile * writePipe)); +/* 17 */ +EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, TclFile inputFile, + TclFile outputFile, TclFile errorFile, + Tcl_Pid * pidPtr)); +/* 18 */ +EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((char * contents, + Tcl_DString * namePtr)); +/* 19 */ +EXTERN char * TclpGetTZName _ANSI_ARGS_((void)); +/* 20 */ +EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, + int direction)); +/* 21 */ +EXTERN TclFile TclpOpenFile _ANSI_ARGS_((char * fname, int mode)); #endif /* __WIN32__ */ -#ifdef MAC_TCL +#if !defined(__WIN32__) && !defined(MAC_TCL) /* 0 */ -EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void)); +EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel chan)); /* 1 */ -EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin)); +EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); /* 2 */ -EXTERN void TclpSysFree _ANSI_ARGS_((VOID * ptr)); +EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( + TclFile readFile, TclFile writeFile, + TclFile errorFile, int numPids, + Tcl_Pid * pidPtr)); /* 3 */ +EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, + TclFile * writePipe)); +/* 4 */ +EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, TclFile inputFile, + TclFile outputFile, TclFile errorFile, + Tcl_Pid * pidPtr)); +/* 5 */ +EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((char * contents, + Tcl_DString * namePtr)); +/* 6 */ +EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, + int direction)); +/* 7 */ +EXTERN TclFile TclpOpenFile _ANSI_ARGS_((char * fname, int mode)); +/* 8 */ +EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, + int timeout)); +#endif /* UNIX */ +#ifdef MAC_TCL +/* 0 */ +EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin)); +/* 1 */ +EXTERN void TclpSysFree _ANSI_ARGS_((VOID * ptr)); +/* 2 */ EXTERN VOID * TclpSysRealloc _ANSI_ARGS_((VOID * cp, unsigned int size)); -/* 4 */ +/* 3 */ EXTERN void TclPlatformExit _ANSI_ARGS_((int status)); +/* 4 */ +EXTERN int FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); +/* 5 */ +EXTERN int FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); +/* 6 */ +EXTERN OSErr FSpFindFolder _ANSI_ARGS_((short vRefNum, + OSType folderType, Boolean createFolder, + FSSpec * spec)); +/* 7 */ +EXTERN void GetGlobalMouse _ANSI_ARGS_((Point * mouse)); +/* 8 */ +EXTERN pascal OSErr FSpGetDirectoryID _ANSI_ARGS_((const FSSpec * spec, + long * theDirID, Boolean * isDirectory)); +/* 9 */ +EXTERN pascal short FSpOpenResFileCompat _ANSI_ARGS_(( + const FSSpec * spec, SignedByte permission)); +/* 10 */ +EXTERN pascal void FSpCreateResFileCompat _ANSI_ARGS_(( + const FSSpec * spec, OSType creator, + OSType fileType, ScriptCode scriptTag)); +/* 11 */ +EXTERN int FSpLocationFromPath _ANSI_ARGS_((int length, + CONST char * path, FSSpecPtr theSpec)); +/* 12 */ +EXTERN OSErr FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec, + int * length, Handle * fullPath)); +/* 13 */ +EXTERN void TclMacExitHandler _ANSI_ARGS_((void)); +/* 14 */ +EXTERN void TclMacInitExitToShell _ANSI_ARGS_((int usePatch)); +/* 15 */ +EXTERN OSErr TclMacInstallExitToShellPatch _ANSI_ARGS_(( + ExitToShellProcPtr newProc)); +/* 16 */ +EXTERN int TclMacOSErrorToPosixError _ANSI_ARGS_((int error)); +/* 17 */ +EXTERN void TclMacRemoveTimer _ANSI_ARGS_((void * timerToken)); +/* 18 */ +EXTERN void * TclMacStartTimer _ANSI_ARGS_((long ms)); +/* 19 */ +EXTERN int TclMacTimerExpired _ANSI_ARGS_((void * timerToken)); +/* 20 */ +EXTERN int TclMacRegisterResourceFork _ANSI_ARGS_(( + short fileRef, Tcl_Obj * tokenPtr, + int insert)); +/* 21 */ +EXTERN short TclMacUnRegisterResourceFork _ANSI_ARGS_(( + char * tokenPtr, Tcl_Obj * resultPtr)); +/* 22 */ +EXTERN int TclMacCreateEnv _ANSI_ARGS_((void)); +/* 23 */ +EXTERN FILE * TclMacFOpenHack _ANSI_ARGS_((const char * path, + const char * mode)); +/* 24 */ +EXTERN int TclMacReadlink _ANSI_ARGS_((char * path, char * buf, + int size)); +/* 25 */ +EXTERN int TclMacChmod _ANSI_ARGS_((char * path, int mode)); #endif /* MAC_TCL */ typedef struct TclIntPlatStubs { @@ -77,13 +203,59 @@ typedef struct TclIntPlatStubs { HINSTANCE (*tclWinLoadLibrary) _ANSI_ARGS_((char * name)); /* 5 */ u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */ int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, const char FAR * optval, int optlen)); /* 7 */ + unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */ + void (*tclpFinalize) _ANSI_ARGS_((void)); /* 9 */ + int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 10 */ + void (*tclWinInit) _ANSI_ARGS_((HINSTANCE hInst)); /* 11 */ + int (*tclWinSynchSpawn) _ANSI_ARGS_((void * args, int type, void ** trans, Tcl_Pid * pidPtr)); /* 12 */ + void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 13 */ + int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 14 */ + Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 15 */ + int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 16 */ + int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 17 */ + TclFile (*tclpCreateTempFile) _ANSI_ARGS_((char * contents, Tcl_DString * namePtr)); /* 18 */ + char * (*tclpGetTZName) _ANSI_ARGS_((void)); /* 19 */ + TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 20 */ + TclFile (*tclpOpenFile) _ANSI_ARGS_((char * fname, int mode)); /* 21 */ #endif /* __WIN32__ */ +#if !defined(__WIN32__) && !defined(MAC_TCL) + void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */ + int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */ + Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */ + int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */ + int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */ + TclFile (*tclpCreateTempFile) _ANSI_ARGS_((char * contents, Tcl_DString * namePtr)); /* 5 */ + TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */ + TclFile (*tclpOpenFile) _ANSI_ARGS_((char * fname, int mode)); /* 7 */ + int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */ +#endif /* UNIX */ #ifdef MAC_TCL - int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 0 */ - VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 1 */ - void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 2 */ - VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 3 */ - void (*tclPlatformExit) _ANSI_ARGS_((int status)); /* 4 */ + VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */ + void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */ + VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */ + void (*tclPlatformExit) _ANSI_ARGS_((int status)); /* 3 */ + int (*fSpGetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 4 */ + int (*fSpSetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 5 */ + OSErr (*fSpFindFolder) _ANSI_ARGS_((short vRefNum, OSType folderType, Boolean createFolder, FSSpec * spec)); /* 6 */ + void (*getGlobalMouse) _ANSI_ARGS_((Point * mouse)); /* 7 */ + pascal OSErr (*fSpGetDirectoryID) _ANSI_ARGS_((const FSSpec * spec, long * theDirID, Boolean * isDirectory)); /* 8 */ + pascal short (*fSpOpenResFileCompat) _ANSI_ARGS_((const FSSpec * spec, SignedByte permission)); /* 9 */ + pascal void (*fSpCreateResFileCompat) _ANSI_ARGS_((const FSSpec * spec, OSType creator, OSType fileType, ScriptCode scriptTag)); /* 10 */ + int (*fSpLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 11 */ + OSErr (*fSpPathFromLocation) _ANSI_ARGS_((FSSpecPtr theSpec, int * length, Handle * fullPath)); /* 12 */ + void (*tclMacExitHandler) _ANSI_ARGS_((void)); /* 13 */ + void (*tclMacInitExitToShell) _ANSI_ARGS_((int usePatch)); /* 14 */ + OSErr (*tclMacInstallExitToShellPatch) _ANSI_ARGS_((ExitToShellProcPtr newProc)); /* 15 */ + int (*tclMacOSErrorToPosixError) _ANSI_ARGS_((int error)); /* 16 */ + void (*tclMacRemoveTimer) _ANSI_ARGS_((void * timerToken)); /* 17 */ + void * (*tclMacStartTimer) _ANSI_ARGS_((long ms)); /* 18 */ + int (*tclMacTimerExpired) _ANSI_ARGS_((void * timerToken)); /* 19 */ + int (*tclMacRegisterResourceFork) _ANSI_ARGS_((short fileRef, Tcl_Obj * tokenPtr, int insert)); /* 20 */ + short (*tclMacUnRegisterResourceFork) _ANSI_ARGS_((char * tokenPtr, Tcl_Obj * resultPtr)); /* 21 */ + int (*tclMacCreateEnv) _ANSI_ARGS_((void)); /* 22 */ + FILE * (*tclMacFOpenHack) _ANSI_ARGS_((const char * path, const char * mode)); /* 23 */ + int (*tclMacReadlink) _ANSI_ARGS_((char * path, char * buf, int size)); /* 24 */ + int (*tclMacChmod) _ANSI_ARGS_((char * path, int mode)); /* 25 */ #endif /* MAC_TCL */ } TclIntPlatStubs; @@ -128,27 +300,205 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr; #define TclWinSetSockOpt(s, level, optname, optval, optlen) \ (tclIntPlatStubsPtr->tclWinSetSockOpt)(s, level, optname, optval, optlen) /* 7 */ #endif +#ifndef TclpGetPid +#define TclpGetPid(pid) \ + (tclIntPlatStubsPtr->tclpGetPid)(pid) /* 8 */ +#endif +#ifndef TclpFinalize +#define TclpFinalize() \ + (tclIntPlatStubsPtr->tclpFinalize)() /* 9 */ +#endif +#ifndef TclWinGetPlatformId +#define TclWinGetPlatformId() \ + (tclIntPlatStubsPtr->tclWinGetPlatformId)() /* 10 */ +#endif +#ifndef TclWinInit +#define TclWinInit(hInst) \ + (tclIntPlatStubsPtr->tclWinInit)(hInst) /* 11 */ +#endif +#ifndef TclWinSynchSpawn +#define TclWinSynchSpawn(args, type, trans, pidPtr) \ + (tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr) /* 12 */ +#endif +#ifndef TclGetAndDetachPids +#define TclGetAndDetachPids(interp, chan) \ + (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 13 */ +#endif +#ifndef TclpCloseFile +#define TclpCloseFile(file) \ + (tclIntPlatStubsPtr->tclpCloseFile)(file) /* 14 */ +#endif +#ifndef TclpCreateCommandChannel +#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \ + (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 15 */ +#endif +#ifndef TclpCreatePipe +#define TclpCreatePipe(readPipe, writePipe) \ + (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 16 */ +#endif +#ifndef TclpCreateProcess +#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \ + (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 17 */ +#endif +#ifndef TclpCreateTempFile +#define TclpCreateTempFile(contents, namePtr) \ + (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr) /* 18 */ +#endif +#ifndef TclpGetTZName +#define TclpGetTZName() \ + (tclIntPlatStubsPtr->tclpGetTZName)() /* 19 */ +#endif +#ifndef TclpMakeFile +#define TclpMakeFile(channel, direction) \ + (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 20 */ +#endif +#ifndef TclpOpenFile +#define TclpOpenFile(fname, mode) \ + (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 21 */ +#endif #endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef TclpCheckStackSpace -#define TclpCheckStackSpace() \ - (tclIntPlatStubsPtr->tclpCheckStackSpace)() /* 0 */ +#if !defined(__WIN32__) && !defined(MAC_TCL) +#ifndef TclGetAndDetachPids +#define TclGetAndDetachPids(interp, chan) \ + (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 0 */ +#endif +#ifndef TclpCloseFile +#define TclpCloseFile(file) \ + (tclIntPlatStubsPtr->tclpCloseFile)(file) /* 1 */ +#endif +#ifndef TclpCreateCommandChannel +#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \ + (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 2 */ +#endif +#ifndef TclpCreatePipe +#define TclpCreatePipe(readPipe, writePipe) \ + (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 3 */ +#endif +#ifndef TclpCreateProcess +#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \ + (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 4 */ +#endif +#ifndef TclpCreateTempFile +#define TclpCreateTempFile(contents, namePtr) \ + (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr) /* 5 */ +#endif +#ifndef TclpMakeFile +#define TclpMakeFile(channel, direction) \ + (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 6 */ +#endif +#ifndef TclpOpenFile +#define TclpOpenFile(fname, mode) \ + (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 7 */ #endif +#ifndef TclUnixWaitForFile +#define TclUnixWaitForFile(fd, mask, timeout) \ + (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout) /* 8 */ +#endif +#endif /* UNIX */ +#ifdef MAC_TCL #ifndef TclpSysAlloc #define TclpSysAlloc(size, isBin) \ - (tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin) /* 1 */ + (tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin) /* 0 */ #endif #ifndef TclpSysFree #define TclpSysFree(ptr) \ - (tclIntPlatStubsPtr->tclpSysFree)(ptr) /* 2 */ + (tclIntPlatStubsPtr->tclpSysFree)(ptr) /* 1 */ #endif #ifndef TclpSysRealloc #define TclpSysRealloc(cp, size) \ - (tclIntPlatStubsPtr->tclpSysRealloc)(cp, size) /* 3 */ + (tclIntPlatStubsPtr->tclpSysRealloc)(cp, size) /* 2 */ #endif #ifndef TclPlatformExit #define TclPlatformExit(status) \ - (tclIntPlatStubsPtr->tclPlatformExit)(status) /* 4 */ + (tclIntPlatStubsPtr->tclPlatformExit)(status) /* 3 */ +#endif +#ifndef FSpGetDefaultDir +#define FSpGetDefaultDir(theSpec) \ + (tclIntPlatStubsPtr->fSpGetDefaultDir)(theSpec) /* 4 */ +#endif +#ifndef FSpSetDefaultDir +#define FSpSetDefaultDir(theSpec) \ + (tclIntPlatStubsPtr->fSpSetDefaultDir)(theSpec) /* 5 */ +#endif +#ifndef FSpFindFolder +#define FSpFindFolder(vRefNum, folderType, createFolder, spec) \ + (tclIntPlatStubsPtr->fSpFindFolder)(vRefNum, folderType, createFolder, spec) /* 6 */ +#endif +#ifndef GetGlobalMouse +#define GetGlobalMouse(mouse) \ + (tclIntPlatStubsPtr->getGlobalMouse)(mouse) /* 7 */ +#endif +#ifndef FSpGetDirectoryID +#define FSpGetDirectoryID(spec, theDirID, isDirectory) \ + (tclIntPlatStubsPtr->fSpGetDirectoryID)(spec, theDirID, isDirectory) /* 8 */ +#endif +#ifndef FSpOpenResFileCompat +#define FSpOpenResFileCompat(spec, permission) \ + (tclIntPlatStubsPtr->fSpOpenResFileCompat)(spec, permission) /* 9 */ +#endif +#ifndef FSpCreateResFileCompat +#define FSpCreateResFileCompat(spec, creator, fileType, scriptTag) \ + (tclIntPlatStubsPtr->fSpCreateResFileCompat)(spec, creator, fileType, scriptTag) /* 10 */ +#endif +#ifndef FSpLocationFromPath +#define FSpLocationFromPath(length, path, theSpec) \ + (tclIntPlatStubsPtr->fSpLocationFromPath)(length, path, theSpec) /* 11 */ +#endif +#ifndef FSpPathFromLocation +#define FSpPathFromLocation(theSpec, length, fullPath) \ + (tclIntPlatStubsPtr->fSpPathFromLocation)(theSpec, length, fullPath) /* 12 */ +#endif +#ifndef TclMacExitHandler +#define TclMacExitHandler() \ + (tclIntPlatStubsPtr->tclMacExitHandler)() /* 13 */ +#endif +#ifndef TclMacInitExitToShell +#define TclMacInitExitToShell(usePatch) \ + (tclIntPlatStubsPtr->tclMacInitExitToShell)(usePatch) /* 14 */ +#endif +#ifndef TclMacInstallExitToShellPatch +#define TclMacInstallExitToShellPatch(newProc) \ + (tclIntPlatStubsPtr->tclMacInstallExitToShellPatch)(newProc) /* 15 */ +#endif +#ifndef TclMacOSErrorToPosixError +#define TclMacOSErrorToPosixError(error) \ + (tclIntPlatStubsPtr->tclMacOSErrorToPosixError)(error) /* 16 */ +#endif +#ifndef TclMacRemoveTimer +#define TclMacRemoveTimer(timerToken) \ + (tclIntPlatStubsPtr->tclMacRemoveTimer)(timerToken) /* 17 */ +#endif +#ifndef TclMacStartTimer +#define TclMacStartTimer(ms) \ + (tclIntPlatStubsPtr->tclMacStartTimer)(ms) /* 18 */ +#endif +#ifndef TclMacTimerExpired +#define TclMacTimerExpired(timerToken) \ + (tclIntPlatStubsPtr->tclMacTimerExpired)(timerToken) /* 19 */ +#endif +#ifndef TclMacRegisterResourceFork +#define TclMacRegisterResourceFork(fileRef, tokenPtr, insert) \ + (tclIntPlatStubsPtr->tclMacRegisterResourceFork)(fileRef, tokenPtr, insert) /* 20 */ +#endif +#ifndef TclMacUnRegisterResourceFork +#define TclMacUnRegisterResourceFork(tokenPtr, resultPtr) \ + (tclIntPlatStubsPtr->tclMacUnRegisterResourceFork)(tokenPtr, resultPtr) /* 21 */ +#endif +#ifndef TclMacCreateEnv +#define TclMacCreateEnv() \ + (tclIntPlatStubsPtr->tclMacCreateEnv)() /* 22 */ +#endif +#ifndef TclMacFOpenHack +#define TclMacFOpenHack(path, mode) \ + (tclIntPlatStubsPtr->tclMacFOpenHack)(path, mode) /* 23 */ +#endif +#ifndef TclMacReadlink +#define TclMacReadlink(path, buf, size) \ + (tclIntPlatStubsPtr->tclMacReadlink)(path, buf, size) /* 24 */ +#endif +#ifndef TclMacChmod +#define TclMacChmod(path, mode) \ + (tclIntPlatStubsPtr->tclMacChmod)(path, mode) /* 25 */ #endif #endif /* MAC_TCL */ |