123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600 |
- /*
- * tclIntPlatDecls.h --
- *
- * This file contains the declarations for all platform dependent
- * unsupported functions that are exported by the Tcl library. These
- * interfaces are not guaranteed to remain the same between
- * versions. Use at your own risk.
- *
- * Copyright (c) 1998-1999 by Scriptics Corporation.
- * All rights reserved.
- */
- #ifndef _TCLINTPLATDECLS
- #define _TCLINTPLATDECLS
- #undef TCL_STORAGE_CLASS
- #ifdef BUILD_tcl
- # define TCL_STORAGE_CLASS DLLEXPORT
- #else
- # ifdef USE_TCL_STUBS
- # define TCL_STORAGE_CLASS
- # else
- # define TCL_STORAGE_CLASS DLLIMPORT
- # endif
- #endif
- /*
- * WARNING: This file is automatically generated by the tools/genStubs.tcl
- * script. Any modifications to the function declarations below should be made
- * in the generic/tclInt.decls script.
- */
- /* !BEGIN!: Do not edit below this line. */
- #ifdef __cplusplus
- extern "C" {
- #endif
- /*
- * Exported function declarations:
- */
- #if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */
- /* 0 */
- EXTERN void TclGetAndDetachPids(Tcl_Interp *interp,
- Tcl_Channel chan);
- /* 1 */
- EXTERN int TclpCloseFile(TclFile file);
- /* 2 */
- EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile,
- TclFile writeFile, TclFile errorFile,
- int numPids, Tcl_Pid *pidPtr);
- /* 3 */
- EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe);
- /* 4 */
- EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc,
- const char **argv, TclFile inputFile,
- TclFile outputFile, TclFile errorFile,
- Tcl_Pid *pidPtr);
- /* 5 */
- EXTERN int TclUnixWaitForFile_(int fd, int mask, int timeout);
- /* 6 */
- EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction);
- /* 7 */
- EXTERN TclFile TclpOpenFile(const char *fname, int mode);
- /* 8 */
- EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout);
- /* 9 */
- EXTERN TclFile TclpCreateTempFile(const char *contents);
- /* 10 */
- EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir);
- /* 11 */
- EXTERN struct tm * TclpLocaltime_unix(const time_t *clock);
- /* 12 */
- EXTERN struct tm * TclpGmtime_unix(const time_t *clock);
- /* 13 */
- EXTERN char * TclpInetNtoa(struct in_addr addr);
- /* 14 */
- EXTERN int TclUnixCopyFile(const char *src, const char *dst,
- const Tcl_StatBuf *statBufPtr,
- int dontCopyAtts);
- /* 15 */
- EXTERN int TclMacOSXGetFileAttribute(Tcl_Interp *interp,
- int objIndex, Tcl_Obj *fileName,
- Tcl_Obj **attributePtrPtr);
- /* 16 */
- EXTERN int TclMacOSXSetFileAttribute(Tcl_Interp *interp,
- int objIndex, Tcl_Obj *fileName,
- Tcl_Obj *attributePtr);
- /* 17 */
- EXTERN int TclMacOSXCopyFileAttributes(const char *src,
- const char *dst,
- const Tcl_StatBuf *statBufPtr);
- /* 18 */
- EXTERN int TclMacOSXMatchType(Tcl_Interp *interp,
- const char *pathName, const char *fileName,
- Tcl_StatBuf *statBufPtr,
- Tcl_GlobTypeData *types);
- /* 19 */
- EXTERN void TclMacOSXNotifierAddRunLoopMode(
- const void *runLoopMode);
- /* Slot 20 is reserved */
- /* Slot 21 is reserved */
- /* 22 */
- EXTERN TclFile TclpCreateTempFile_(const char *contents);
- /* Slot 23 is reserved */
- /* Slot 24 is reserved */
- /* Slot 25 is reserved */
- /* Slot 26 is reserved */
- /* Slot 27 is reserved */
- /* Slot 28 is reserved */
- /* 29 */
- EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs);
- /* 30 */
- EXTERN int TclUnixOpenTemporaryFile(Tcl_Obj *dirObj,
- Tcl_Obj *basenameObj, Tcl_Obj *extensionObj,
- Tcl_Obj *resultingNameObj);
- #endif /* UNIX */
- #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
- /* 0 */
- EXTERN void TclWinConvertError(DWORD errCode);
- /* 1 */
- EXTERN void TclWinConvertWSAError(DWORD errCode);
- /* 2 */
- EXTERN struct servent * TclWinGetServByName(const char *nm,
- const char *proto);
- /* 3 */
- EXTERN int TclWinGetSockOpt(SOCKET s, int level, int optname,
- char *optval, int *optlen);
- /* 4 */
- EXTERN HINSTANCE TclWinGetTclInstance(void);
- /* 5 */
- EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout);
- /* 6 */
- EXTERN unsigned short TclWinNToHS(unsigned short ns);
- /* 7 */
- EXTERN int TclWinSetSockOpt(SOCKET s, int level, int optname,
- const char *optval, int optlen);
- /* 8 */
- EXTERN int TclpGetPid(Tcl_Pid pid);
- /* 9 */
- EXTERN int TclWinGetPlatformId(void);
- /* 10 */
- EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir);
- /* 11 */
- EXTERN void TclGetAndDetachPids(Tcl_Interp *interp,
- Tcl_Channel chan);
- /* 12 */
- EXTERN int TclpCloseFile(TclFile file);
- /* 13 */
- EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile,
- TclFile writeFile, TclFile errorFile,
- int numPids, Tcl_Pid *pidPtr);
- /* 14 */
- EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe);
- /* 15 */
- EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc,
- const char **argv, TclFile inputFile,
- TclFile outputFile, TclFile errorFile,
- Tcl_Pid *pidPtr);
- /* 16 */
- EXTERN int TclpIsAtty(int fd);
- /* 17 */
- EXTERN int TclUnixCopyFile(const char *src, const char *dst,
- const Tcl_StatBuf *statBufPtr,
- int dontCopyAtts);
- /* 18 */
- EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction);
- /* 19 */
- EXTERN TclFile TclpOpenFile(const char *fname, int mode);
- /* 20 */
- EXTERN void TclWinAddProcess(HANDLE hProcess, DWORD id);
- /* 21 */
- EXTERN char * TclpInetNtoa(struct in_addr addr);
- /* 22 */
- EXTERN TclFile TclpCreateTempFile(const char *contents);
- /* Slot 23 is reserved */
- /* 24 */
- EXTERN char * TclWinNoBackslash(char *path);
- /* Slot 25 is reserved */
- /* 26 */
- EXTERN void TclWinSetInterfaces(int wide);
- /* 27 */
- EXTERN void TclWinFlushDirtyChannels(void);
- /* 28 */
- EXTERN void TclWinResetInterfaces(void);
- /* 29 */
- EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs);
- /* 30 */
- EXTERN int TclUnixOpenTemporaryFile(Tcl_Obj *dirObj,
- Tcl_Obj *basenameObj, Tcl_Obj *extensionObj,
- Tcl_Obj *resultingNameObj);
- #endif /* WIN */
- #ifdef MAC_OSX_TCL /* MACOSX */
- /* 0 */
- EXTERN void TclGetAndDetachPids(Tcl_Interp *interp,
- Tcl_Channel chan);
- /* 1 */
- EXTERN int TclpCloseFile(TclFile file);
- /* 2 */
- EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile,
- TclFile writeFile, TclFile errorFile,
- int numPids, Tcl_Pid *pidPtr);
- /* 3 */
- EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe);
- /* 4 */
- EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc,
- const char **argv, TclFile inputFile,
- TclFile outputFile, TclFile errorFile,
- Tcl_Pid *pidPtr);
- /* 5 */
- EXTERN int TclUnixWaitForFile_(int fd, int mask, int timeout);
- /* 6 */
- EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction);
- /* 7 */
- EXTERN TclFile TclpOpenFile(const char *fname, int mode);
- /* 8 */
- EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout);
- /* 9 */
- EXTERN TclFile TclpCreateTempFile(const char *contents);
- /* 10 */
- EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir);
- /* 11 */
- EXTERN struct tm * TclpLocaltime_unix(const time_t *clock);
- /* 12 */
- EXTERN struct tm * TclpGmtime_unix(const time_t *clock);
- /* 13 */
- EXTERN char * TclpInetNtoa(struct in_addr addr);
- /* 14 */
- EXTERN int TclUnixCopyFile(const char *src, const char *dst,
- const Tcl_StatBuf *statBufPtr,
- int dontCopyAtts);
- /* 15 */
- EXTERN int TclMacOSXGetFileAttribute(Tcl_Interp *interp,
- int objIndex, Tcl_Obj *fileName,
- Tcl_Obj **attributePtrPtr);
- /* 16 */
- EXTERN int TclMacOSXSetFileAttribute(Tcl_Interp *interp,
- int objIndex, Tcl_Obj *fileName,
- Tcl_Obj *attributePtr);
- /* 17 */
- EXTERN int TclMacOSXCopyFileAttributes(const char *src,
- const char *dst,
- const Tcl_StatBuf *statBufPtr);
- /* 18 */
- EXTERN int TclMacOSXMatchType(Tcl_Interp *interp,
- const char *pathName, const char *fileName,
- Tcl_StatBuf *statBufPtr,
- Tcl_GlobTypeData *types);
- /* 19 */
- EXTERN void TclMacOSXNotifierAddRunLoopMode(
- const void *runLoopMode);
- /* Slot 20 is reserved */
- /* Slot 21 is reserved */
- /* 22 */
- EXTERN TclFile TclpCreateTempFile_(const char *contents);
- /* Slot 23 is reserved */
- /* Slot 24 is reserved */
- /* Slot 25 is reserved */
- /* Slot 26 is reserved */
- /* Slot 27 is reserved */
- /* Slot 28 is reserved */
- /* 29 */
- EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs);
- /* 30 */
- EXTERN int TclUnixOpenTemporaryFile(Tcl_Obj *dirObj,
- Tcl_Obj *basenameObj, Tcl_Obj *extensionObj,
- Tcl_Obj *resultingNameObj);
- #endif /* MACOSX */
- typedef struct TclIntPlatStubs {
- int magic;
- void *hooks;
- #if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */
- void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */
- int (*tclpCloseFile) (TclFile file); /* 1 */
- Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */
- int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */
- int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */
- int (*tclUnixWaitForFile_) (int fd, int mask, int timeout); /* 5 */
- TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */
- TclFile (*tclpOpenFile) (const char *fname, int mode); /* 7 */
- int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */
- TclFile (*tclpCreateTempFile) (const char *contents); /* 9 */
- Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */
- struct tm * (*tclpLocaltime_unix) (const time_t *clock); /* 11 */
- struct tm * (*tclpGmtime_unix) (const time_t *clock); /* 12 */
- char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */
- int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */
- int (*tclMacOSXGetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj **attributePtrPtr); /* 15 */
- int (*tclMacOSXSetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj *attributePtr); /* 16 */
- int (*tclMacOSXCopyFileAttributes) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr); /* 17 */
- int (*tclMacOSXMatchType) (Tcl_Interp *interp, const char *pathName, const char *fileName, Tcl_StatBuf *statBufPtr, Tcl_GlobTypeData *types); /* 18 */
- void (*tclMacOSXNotifierAddRunLoopMode) (const void *runLoopMode); /* 19 */
- void (*reserved20)(void);
- void (*reserved21)(void);
- TclFile (*tclpCreateTempFile_) (const char *contents); /* 22 */
- void (*reserved23)(void);
- void (*reserved24)(void);
- void (*reserved25)(void);
- void (*reserved26)(void);
- void (*reserved27)(void);
- void (*reserved28)(void);
- int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */
- int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */
- #endif /* UNIX */
- #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
- void (*tclWinConvertError) (DWORD errCode); /* 0 */
- void (*tclWinConvertWSAError) (DWORD errCode); /* 1 */
- struct servent * (*tclWinGetServByName) (const char *nm, const char *proto); /* 2 */
- int (*tclWinGetSockOpt) (SOCKET s, int level, int optname, char *optval, int *optlen); /* 3 */
- HINSTANCE (*tclWinGetTclInstance) (void); /* 4 */
- int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 5 */
- unsigned short (*tclWinNToHS) (unsigned short ns); /* 6 */
- int (*tclWinSetSockOpt) (SOCKET s, int level, int optname, const char *optval, int optlen); /* 7 */
- int (*tclpGetPid) (Tcl_Pid pid); /* 8 */
- int (*tclWinGetPlatformId) (void); /* 9 */
- Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */
- void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 11 */
- int (*tclpCloseFile) (TclFile file); /* 12 */
- Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 13 */
- int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 14 */
- int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 15 */
- int (*tclpIsAtty) (int fd); /* 16 */
- int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 17 */
- TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 18 */
- TclFile (*tclpOpenFile) (const char *fname, int mode); /* 19 */
- void (*tclWinAddProcess) (HANDLE hProcess, DWORD id); /* 20 */
- char * (*tclpInetNtoa) (struct in_addr addr); /* 21 */
- TclFile (*tclpCreateTempFile) (const char *contents); /* 22 */
- void (*reserved23)(void);
- char * (*tclWinNoBackslash) (char *path); /* 24 */
- void (*reserved25)(void);
- void (*tclWinSetInterfaces) (int wide); /* 26 */
- void (*tclWinFlushDirtyChannels) (void); /* 27 */
- void (*tclWinResetInterfaces) (void); /* 28 */
- int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */
- int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */
- #endif /* WIN */
- #ifdef MAC_OSX_TCL /* MACOSX */
- void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */
- int (*tclpCloseFile) (TclFile file); /* 1 */
- Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */
- int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */
- int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */
- int (*tclUnixWaitForFile_) (int fd, int mask, int timeout); /* 5 */
- TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */
- TclFile (*tclpOpenFile) (const char *fname, int mode); /* 7 */
- int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */
- TclFile (*tclpCreateTempFile) (const char *contents); /* 9 */
- Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */
- struct tm * (*tclpLocaltime_unix) (const time_t *clock); /* 11 */
- struct tm * (*tclpGmtime_unix) (const time_t *clock); /* 12 */
- char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */
- int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */
- int (*tclMacOSXGetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj **attributePtrPtr); /* 15 */
- int (*tclMacOSXSetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj *attributePtr); /* 16 */
- int (*tclMacOSXCopyFileAttributes) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr); /* 17 */
- int (*tclMacOSXMatchType) (Tcl_Interp *interp, const char *pathName, const char *fileName, Tcl_StatBuf *statBufPtr, Tcl_GlobTypeData *types); /* 18 */
- void (*tclMacOSXNotifierAddRunLoopMode) (const void *runLoopMode); /* 19 */
- void (*reserved20)(void);
- void (*reserved21)(void);
- TclFile (*tclpCreateTempFile_) (const char *contents); /* 22 */
- void (*reserved23)(void);
- void (*reserved24)(void);
- void (*reserved25)(void);
- void (*reserved26)(void);
- void (*reserved27)(void);
- void (*reserved28)(void);
- int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */
- int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */
- #endif /* MACOSX */
- } TclIntPlatStubs;
- extern const TclIntPlatStubs *tclIntPlatStubsPtr;
- #ifdef __cplusplus
- }
- #endif
- #if defined(USE_TCL_STUBS)
- /*
- * Inline function declarations:
- */
- #if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */
- #define TclGetAndDetachPids \
- (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */
- #define TclpCloseFile \
- (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */
- #define TclpCreateCommandChannel \
- (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */
- #define TclpCreatePipe \
- (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */
- #define TclpCreateProcess \
- (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */
- #define TclUnixWaitForFile_ \
- (tclIntPlatStubsPtr->tclUnixWaitForFile_) /* 5 */
- #define TclpMakeFile \
- (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */
- #define TclpOpenFile \
- (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */
- #define TclUnixWaitForFile \
- (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */
- #define TclpCreateTempFile \
- (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */
- #define TclpReaddir \
- (tclIntPlatStubsPtr->tclpReaddir) /* 10 */
- #define TclpLocaltime_unix \
- (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */
- #define TclpGmtime_unix \
- (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */
- #define TclpInetNtoa \
- (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */
- #define TclUnixCopyFile \
- (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */
- #define TclMacOSXGetFileAttribute \
- (tclIntPlatStubsPtr->tclMacOSXGetFileAttribute) /* 15 */
- #define TclMacOSXSetFileAttribute \
- (tclIntPlatStubsPtr->tclMacOSXSetFileAttribute) /* 16 */
- #define TclMacOSXCopyFileAttributes \
- (tclIntPlatStubsPtr->tclMacOSXCopyFileAttributes) /* 17 */
- #define TclMacOSXMatchType \
- (tclIntPlatStubsPtr->tclMacOSXMatchType) /* 18 */
- #define TclMacOSXNotifierAddRunLoopMode \
- (tclIntPlatStubsPtr->tclMacOSXNotifierAddRunLoopMode) /* 19 */
- /* Slot 20 is reserved */
- /* Slot 21 is reserved */
- #define TclpCreateTempFile_ \
- (tclIntPlatStubsPtr->tclpCreateTempFile_) /* 22 */
- /* Slot 23 is reserved */
- /* Slot 24 is reserved */
- /* Slot 25 is reserved */
- /* Slot 26 is reserved */
- /* Slot 27 is reserved */
- /* Slot 28 is reserved */
- #define TclWinCPUID \
- (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */
- #define TclUnixOpenTemporaryFile \
- (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */
- #endif /* UNIX */
- #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
- #define TclWinConvertError \
- (tclIntPlatStubsPtr->tclWinConvertError) /* 0 */
- #define TclWinConvertWSAError \
- (tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */
- #define TclWinGetServByName \
- (tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */
- #define TclWinGetSockOpt \
- (tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */
- #define TclWinGetTclInstance \
- (tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */
- #define TclUnixWaitForFile \
- (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 5 */
- #define TclWinNToHS \
- (tclIntPlatStubsPtr->tclWinNToHS) /* 6 */
- #define TclWinSetSockOpt \
- (tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */
- #define TclpGetPid \
- (tclIntPlatStubsPtr->tclpGetPid) /* 8 */
- #define TclWinGetPlatformId \
- (tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */
- #define TclpReaddir \
- (tclIntPlatStubsPtr->tclpReaddir) /* 10 */
- #define TclGetAndDetachPids \
- (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */
- #define TclpCloseFile \
- (tclIntPlatStubsPtr->tclpCloseFile) /* 12 */
- #define TclpCreateCommandChannel \
- (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */
- #define TclpCreatePipe \
- (tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */
- #define TclpCreateProcess \
- (tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */
- #define TclpIsAtty \
- (tclIntPlatStubsPtr->tclpIsAtty) /* 16 */
- #define TclUnixCopyFile \
- (tclIntPlatStubsPtr->tclUnixCopyFile) /* 17 */
- #define TclpMakeFile \
- (tclIntPlatStubsPtr->tclpMakeFile) /* 18 */
- #define TclpOpenFile \
- (tclIntPlatStubsPtr->tclpOpenFile) /* 19 */
- #define TclWinAddProcess \
- (tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */
- #define TclpInetNtoa \
- (tclIntPlatStubsPtr->tclpInetNtoa) /* 21 */
- #define TclpCreateTempFile \
- (tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */
- /* Slot 23 is reserved */
- #define TclWinNoBackslash \
- (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */
- /* Slot 25 is reserved */
- #define TclWinSetInterfaces \
- (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */
- #define TclWinFlushDirtyChannels \
- (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */
- #define TclWinResetInterfaces \
- (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */
- #define TclWinCPUID \
- (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */
- #define TclUnixOpenTemporaryFile \
- (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */
- #endif /* WIN */
- #ifdef MAC_OSX_TCL /* MACOSX */
- #define TclGetAndDetachPids \
- (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */
- #define TclpCloseFile \
- (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */
- #define TclpCreateCommandChannel \
- (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */
- #define TclpCreatePipe \
- (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */
- #define TclpCreateProcess \
- (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */
- #define TclUnixWaitForFile_ \
- (tclIntPlatStubsPtr->tclUnixWaitForFile_) /* 5 */
- #define TclpMakeFile \
- (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */
- #define TclpOpenFile \
- (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */
- #define TclUnixWaitForFile \
- (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */
- #define TclpCreateTempFile \
- (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */
- #define TclpReaddir \
- (tclIntPlatStubsPtr->tclpReaddir) /* 10 */
- #define TclpLocaltime_unix \
- (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */
- #define TclpGmtime_unix \
- (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */
- #define TclpInetNtoa \
- (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */
- #define TclUnixCopyFile \
- (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */
- #define TclMacOSXGetFileAttribute \
- (tclIntPlatStubsPtr->tclMacOSXGetFileAttribute) /* 15 */
- #define TclMacOSXSetFileAttribute \
- (tclIntPlatStubsPtr->tclMacOSXSetFileAttribute) /* 16 */
- #define TclMacOSXCopyFileAttributes \
- (tclIntPlatStubsPtr->tclMacOSXCopyFileAttributes) /* 17 */
- #define TclMacOSXMatchType \
- (tclIntPlatStubsPtr->tclMacOSXMatchType) /* 18 */
- #define TclMacOSXNotifierAddRunLoopMode \
- (tclIntPlatStubsPtr->tclMacOSXNotifierAddRunLoopMode) /* 19 */
- /* Slot 20 is reserved */
- /* Slot 21 is reserved */
- #define TclpCreateTempFile_ \
- (tclIntPlatStubsPtr->tclpCreateTempFile_) /* 22 */
- /* Slot 23 is reserved */
- /* Slot 24 is reserved */
- /* Slot 25 is reserved */
- /* Slot 26 is reserved */
- /* Slot 27 is reserved */
- /* Slot 28 is reserved */
- #define TclWinCPUID \
- (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */
- #define TclUnixOpenTemporaryFile \
- (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */
- #endif /* MACOSX */
- #endif /* defined(USE_TCL_STUBS) */
- /* !END!: Do not edit above this line. */
- #undef TCL_STORAGE_CLASS
- #define TCL_STORAGE_CLASS DLLIMPORT
- #undef TclpLocaltime_unix
- #undef TclpGmtime_unix
- #undef TclWinConvertWSAError
- #define TclWinConvertWSAError TclWinConvertError
- #undef TclpInetNtoa
- #define TclpInetNtoa inet_ntoa
- #undef TclpCreateTempFile_
- #undef TclUnixWaitForFile_
- #ifndef MAC_OSX_TCL /* not accessable on Win32/UNIX */
- #undef TclMacOSXGetFileAttribute /* 15 */
- #undef TclMacOSXSetFileAttribute /* 16 */
- #undef TclMacOSXCopyFileAttributes /* 17 */
- #undef TclMacOSXMatchType /* 18 */
- #undef TclMacOSXNotifierAddRunLoopMode /* 19 */
- #endif
- #if defined(_WIN32)
- # undef TclWinNToHS
- # undef TclWinGetServByName
- # undef TclWinGetSockOpt
- # undef TclWinSetSockOpt
- # define TclWinNToHS ntohs
- # define TclWinGetServByName getservbyname
- # define TclWinGetSockOpt getsockopt
- # define TclWinSetSockOpt setsockopt
- #else
- # undef TclpGetPid
- # define TclpGetPid(pid) ((unsigned long) (pid))
- #endif
- #endif /* _TCLINTPLATDECLS */
|