source/include/tclIntPlatDecls.h

0001 /*
0002  * tclIntPlatDecls.h --
0003  *
0004  *  This file contains the declarations for all platform dependent
0005  *  unsupported functions that are exported by the Tcl library.  These
0006  *  interfaces are not guaranteed to remain the same between
0007  *  versions.  Use at your own risk.
0008  *
0009  * Copyright (c) 1998-1999 by Scriptics Corporation.
0010  * All rights reserved.
0011  */
0012
0013 #ifndef _TCLINTPLATDECLS
0014 #define _TCLINTPLATDECLS
0015
0016 #undef TCL_STORAGE_CLASS
0017 #ifdef BUILD_tcl
0018 #   define TCL_STORAGE_CLASS DLLEXPORT
0019 #else
0020 #   ifdef USE_TCL_STUBS
0021 #      define TCL_STORAGE_CLASS
0022 #   else
0023 #      define TCL_STORAGE_CLASS DLLIMPORT
0024 #   endif
0025 #endif
0026
0027 /*
0028  * WARNING: This file is automatically generated by the tools/genStubs.tcl
0029  * script.  Any modifications to the function declarations below should be made
0030  * in the generic/tclInt.decls script.
0031  */
0032
0033 /* !BEGIN!: Do not edit below this line. */
0034
0035 #ifdef __cplusplus
0036 extern "C" {
0037 #endif
0038
0039 /*
0040  * Exported function declarations:
0041  */
0042
0043 #if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */
0044 /* 0 */
0045 EXTERN void     TclGetAndDetachPids(Tcl_Interp *interp,
0046                 Tcl_Channel chan);
0047 /* 1 */
0048 EXTERN int      TclpCloseFile(TclFile file);
0049 /* 2 */
0050 EXTERN Tcl_Channel  TclpCreateCommandChannel(TclFile readFile,
0051                 TclFile writeFile, TclFile errorFile,
0052                 int numPids, Tcl_Pid *pidPtr);
0053 /* 3 */
0054 EXTERN int      TclpCreatePipe(TclFile *readPipe, TclFile *writePipe);
0055 /* 4 */
0056 EXTERN int      TclpCreateProcess(Tcl_Interp *interp, int argc,
0057                 const char **argv, TclFile inputFile,
0058                 TclFile outputFile, TclFile errorFile,
0059                 Tcl_Pid *pidPtr);
0060 /* 5 */
0061 EXTERN int      TclUnixWaitForFile_(int fd, int mask, int timeout);
0062 /* 6 */
0063 EXTERN TclFile      TclpMakeFile(Tcl_Channel channel, int direction);
0064 /* 7 */
0065 EXTERN TclFile      TclpOpenFile(const char *fname, int mode);
0066 /* 8 */
0067 EXTERN int      TclUnixWaitForFile(int fd, int mask, int timeout);
0068 /* 9 */
0069 EXTERN TclFile      TclpCreateTempFile(const char *contents);
0070 /* 10 */
0071 EXTERN Tcl_DirEntry *   TclpReaddir(TclDIR *dir);
0072 /* 11 */
0073 EXTERN struct tm *  TclpLocaltime_unix(const time_t *clock);
0074 /* 12 */
0075 EXTERN struct tm *  TclpGmtime_unix(const time_t *clock);
0076 /* 13 */
0077 EXTERN char *       TclpInetNtoa(struct in_addr addr);
0078 /* 14 */
0079 EXTERN int      TclUnixCopyFile(const char *src, const char *dst,
0080                 const Tcl_StatBuf *statBufPtr,
0081                 int dontCopyAtts);
0082 /* 15 */
0083 EXTERN int      TclMacOSXGetFileAttribute(Tcl_Interp *interp,
0084                 int objIndex, Tcl_Obj *fileName,
0085                 Tcl_Obj **attributePtrPtr);
0086 /* 16 */
0087 EXTERN int      TclMacOSXSetFileAttribute(Tcl_Interp *interp,
0088                 int objIndex, Tcl_Obj *fileName,
0089                 Tcl_Obj *attributePtr);
0090 /* 17 */
0091 EXTERN int      TclMacOSXCopyFileAttributes(const char *src,
0092                 const char *dst,
0093                 const Tcl_StatBuf *statBufPtr);
0094 /* 18 */
0095 EXTERN int      TclMacOSXMatchType(Tcl_Interp *interp,
0096                 const char *pathName, const char *fileName,
0097                 Tcl_StatBuf *statBufPtr,
0098                 Tcl_GlobTypeData *types);
0099 /* 19 */
0100 EXTERN void     TclMacOSXNotifierAddRunLoopMode(
0101                 const void *runLoopMode);
0102 /* Slot 20 is reserved */
0103 /* Slot 21 is reserved */
0104 /* 22 */
0105 EXTERN TclFile      TclpCreateTempFile_(const char *contents);
0106 /* Slot 23 is reserved */
0107 /* Slot 24 is reserved */
0108 /* Slot 25 is reserved */
0109 /* Slot 26 is reserved */
0110 /* Slot 27 is reserved */
0111 /* Slot 28 is reserved */
0112 /* 29 */
0113 EXTERN int      TclWinCPUID(unsigned int index, unsigned int *regs);
0114 /* 30 */
0115 EXTERN int      TclUnixOpenTemporaryFile(Tcl_Obj *dirObj,
0116                 Tcl_Obj *basenameObj, Tcl_Obj *extensionObj,
0117                 Tcl_Obj *resultingNameObj);
0118 #endif /* UNIX */
0119 #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
0120 /* 0 */
0121 EXTERN void     TclWinConvertError(DWORD errCode);
0122 /* 1 */
0123 EXTERN void     TclWinConvertWSAError(DWORD errCode);
0124 /* 2 */
0125 EXTERN struct servent *  TclWinGetServByName(const char *nm,
0126                 const char *proto);
0127 /* 3 */
0128 EXTERN int      TclWinGetSockOpt(SOCKET s, int level, int optname,
0129                 char *optval, int *optlen);
0130 /* 4 */
0131 EXTERN HINSTANCE    TclWinGetTclInstance(void);
0132 /* 5 */
0133 EXTERN int      TclUnixWaitForFile(int fd, int mask, int timeout);
0134 /* 6 */
0135 EXTERN unsigned short   TclWinNToHS(unsigned short ns);
0136 /* 7 */
0137 EXTERN int      TclWinSetSockOpt(SOCKET s, int level, int optname,
0138                 const char *optval, int optlen);
0139 /* 8 */
0140 EXTERN int      TclpGetPid(Tcl_Pid pid);
0141 /* 9 */
0142 EXTERN int      TclWinGetPlatformId(void);
0143 /* 10 */
0144 EXTERN Tcl_DirEntry *   TclpReaddir(TclDIR *dir);
0145 /* 11 */
0146 EXTERN void     TclGetAndDetachPids(Tcl_Interp *interp,
0147                 Tcl_Channel chan);
0148 /* 12 */
0149 EXTERN int      TclpCloseFile(TclFile file);
0150 /* 13 */
0151 EXTERN Tcl_Channel  TclpCreateCommandChannel(TclFile readFile,
0152                 TclFile writeFile, TclFile errorFile,
0153                 int numPids, Tcl_Pid *pidPtr);
0154 /* 14 */
0155 EXTERN int      TclpCreatePipe(TclFile *readPipe, TclFile *writePipe);
0156 /* 15 */
0157 EXTERN int      TclpCreateProcess(Tcl_Interp *interp, int argc,
0158                 const char **argv, TclFile inputFile,
0159                 TclFile outputFile, TclFile errorFile,
0160                 Tcl_Pid *pidPtr);
0161 /* 16 */
0162 EXTERN int      TclpIsAtty(int fd);
0163 /* 17 */
0164 EXTERN int      TclUnixCopyFile(const char *src, const char *dst,
0165                 const Tcl_StatBuf *statBufPtr,
0166                 int dontCopyAtts);
0167 /* 18 */
0168 EXTERN TclFile      TclpMakeFile(Tcl_Channel channel, int direction);
0169 /* 19 */
0170 EXTERN TclFile      TclpOpenFile(const char *fname, int mode);
0171 /* 20 */
0172 EXTERN void     TclWinAddProcess(HANDLE hProcess, DWORD id);
0173 /* 21 */
0174 EXTERN char *       TclpInetNtoa(struct in_addr addr);
0175 /* 22 */
0176 EXTERN TclFile      TclpCreateTempFile(const char *contents);
0177 /* Slot 23 is reserved */
0178 /* 24 */
0179 EXTERN char *       TclWinNoBackslash(char *path);
0180 /* Slot 25 is reserved */
0181 /* 26 */
0182 EXTERN void     TclWinSetInterfaces(int wide);
0183 /* 27 */
0184 EXTERN void     TclWinFlushDirtyChannels(void);
0185 /* 28 */
0186 EXTERN void     TclWinResetInterfaces(void);
0187 /* 29 */
0188 EXTERN int      TclWinCPUID(unsigned int index, unsigned int *regs);
0189 /* 30 */
0190 EXTERN int      TclUnixOpenTemporaryFile(Tcl_Obj *dirObj,
0191                 Tcl_Obj *basenameObj, Tcl_Obj *extensionObj,
0192                 Tcl_Obj *resultingNameObj);
0193 #endif /* WIN */
0194 #ifdef MAC_OSX_TCL /* MACOSX */
0195 /* 0 */
0196 EXTERN void     TclGetAndDetachPids(Tcl_Interp *interp,
0197                 Tcl_Channel chan);
0198 /* 1 */
0199 EXTERN int      TclpCloseFile(TclFile file);
0200 /* 2 */
0201 EXTERN Tcl_Channel  TclpCreateCommandChannel(TclFile readFile,
0202                 TclFile writeFile, TclFile errorFile,
0203                 int numPids, Tcl_Pid *pidPtr);
0204 /* 3 */
0205 EXTERN int      TclpCreatePipe(TclFile *readPipe, TclFile *writePipe);
0206 /* 4 */
0207 EXTERN int      TclpCreateProcess(Tcl_Interp *interp, int argc,
0208                 const char **argv, TclFile inputFile,
0209                 TclFile outputFile, TclFile errorFile,
0210                 Tcl_Pid *pidPtr);
0211 /* 5 */
0212 EXTERN int      TclUnixWaitForFile_(int fd, int mask, int timeout);
0213 /* 6 */
0214 EXTERN TclFile      TclpMakeFile(Tcl_Channel channel, int direction);
0215 /* 7 */
0216 EXTERN TclFile      TclpOpenFile(const char *fname, int mode);
0217 /* 8 */
0218 EXTERN int      TclUnixWaitForFile(int fd, int mask, int timeout);
0219 /* 9 */
0220 EXTERN TclFile      TclpCreateTempFile(const char *contents);
0221 /* 10 */
0222 EXTERN Tcl_DirEntry *   TclpReaddir(TclDIR *dir);
0223 /* 11 */
0224 EXTERN struct tm *  TclpLocaltime_unix(const time_t *clock);
0225 /* 12 */
0226 EXTERN struct tm *  TclpGmtime_unix(const time_t *clock);
0227 /* 13 */
0228 EXTERN char *       TclpInetNtoa(struct in_addr addr);
0229 /* 14 */
0230 EXTERN int      TclUnixCopyFile(const char *src, const char *dst,
0231                 const Tcl_StatBuf *statBufPtr,
0232                 int dontCopyAtts);
0233 /* 15 */
0234 EXTERN int      TclMacOSXGetFileAttribute(Tcl_Interp *interp,
0235                 int objIndex, Tcl_Obj *fileName,
0236                 Tcl_Obj **attributePtrPtr);
0237 /* 16 */
0238 EXTERN int      TclMacOSXSetFileAttribute(Tcl_Interp *interp,
0239                 int objIndex, Tcl_Obj *fileName,
0240                 Tcl_Obj *attributePtr);
0241 /* 17 */
0242 EXTERN int      TclMacOSXCopyFileAttributes(const char *src,
0243                 const char *dst,
0244                 const Tcl_StatBuf *statBufPtr);
0245 /* 18 */
0246 EXTERN int      TclMacOSXMatchType(Tcl_Interp *interp,
0247                 const char *pathName, const char *fileName,
0248                 Tcl_StatBuf *statBufPtr,
0249                 Tcl_GlobTypeData *types);
0250 /* 19 */
0251 EXTERN void     TclMacOSXNotifierAddRunLoopMode(
0252                 const void *runLoopMode);
0253 /* Slot 20 is reserved */
0254 /* Slot 21 is reserved */
0255 /* 22 */
0256 EXTERN TclFile      TclpCreateTempFile_(const char *contents);
0257 /* Slot 23 is reserved */
0258 /* Slot 24 is reserved */
0259 /* Slot 25 is reserved */
0260 /* Slot 26 is reserved */
0261 /* Slot 27 is reserved */
0262 /* Slot 28 is reserved */
0263 /* 29 */
0264 EXTERN int      TclWinCPUID(unsigned int index, unsigned int *regs);
0265 /* 30 */
0266 EXTERN int      TclUnixOpenTemporaryFile(Tcl_Obj *dirObj,
0267                 Tcl_Obj *basenameObj, Tcl_Obj *extensionObj,
0268                 Tcl_Obj *resultingNameObj);
0269 #endif /* MACOSX */
0270
0271 typedef struct TclIntPlatStubs {
0272     int magic;
0273     void *hooks;
0274
0275 #if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */
0276     void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */
0277     int (*tclpCloseFile) (TclFile file); /* 1 */
0278     Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */
0279     int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */
0280     int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */
0281     int (*tclUnixWaitForFile_) (int fd, int mask, int timeout); /* 5 */
0282     TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */
0283     TclFile (*tclpOpenFile) (const char *fname, int mode); /* 7 */
0284     int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */
0285     TclFile (*tclpCreateTempFile) (const char *contents); /* 9 */
0286     Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */
0287     struct tm * (*tclpLocaltime_unix) (const time_t *clock); /* 11 */
0288     struct tm * (*tclpGmtime_unix) (const time_t *clock); /* 12 */
0289     char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */
0290     int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */
0291     int (*tclMacOSXGetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj **attributePtrPtr); /* 15 */
0292     int (*tclMacOSXSetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj *attributePtr); /* 16 */
0293     int (*tclMacOSXCopyFileAttributes) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr); /* 17 */
0294     int (*tclMacOSXMatchType) (Tcl_Interp *interp, const char *pathName, const char *fileName, Tcl_StatBuf *statBufPtr, Tcl_GlobTypeData *types); /* 18 */
0295     void (*tclMacOSXNotifierAddRunLoopMode) (const void *runLoopMode); /* 19 */
0296     void (*reserved20)(void);
0297     void (*reserved21)(void);
0298     TclFile (*tclpCreateTempFile_) (const char *contents); /* 22 */
0299     void (*reserved23)(void);
0300     void (*reserved24)(void);
0301     void (*reserved25)(void);
0302     void (*reserved26)(void);
0303     void (*reserved27)(void);
0304     void (*reserved28)(void);
0305     int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */
0306     int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */
0307 #endif /* UNIX */
0308 #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
0309     void (*tclWinConvertError) (DWORD errCode); /* 0 */
0310     void (*tclWinConvertWSAError) (DWORD errCode); /* 1 */
0311     struct servent * (*tclWinGetServByName) (const char *nm, const char *proto); /* 2 */
0312     int (*tclWinGetSockOpt) (SOCKET s, int level, int optname, char *optval, int *optlen); /* 3 */
0313     HINSTANCE (*tclWinGetTclInstance) (void); /* 4 */
0314     int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 5 */
0315     unsigned short (*tclWinNToHS) (unsigned short ns); /* 6 */
0316     int (*tclWinSetSockOpt) (SOCKET s, int level, int optname, const char *optval, int optlen); /* 7 */
0317     int (*tclpGetPid) (Tcl_Pid pid); /* 8 */
0318     int (*tclWinGetPlatformId) (void); /* 9 */
0319     Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */
0320     void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 11 */
0321     int (*tclpCloseFile) (TclFile file); /* 12 */
0322     Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 13 */
0323     int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 14 */
0324     int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 15 */
0325     int (*tclpIsAtty) (int fd); /* 16 */
0326     int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 17 */
0327     TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 18 */
0328     TclFile (*tclpOpenFile) (const char *fname, int mode); /* 19 */
0329     void (*tclWinAddProcess) (HANDLE hProcess, DWORD id); /* 20 */
0330     char * (*tclpInetNtoa) (struct in_addr addr); /* 21 */
0331     TclFile (*tclpCreateTempFile) (const char *contents); /* 22 */
0332     void (*reserved23)(void);
0333     char * (*tclWinNoBackslash) (char *path); /* 24 */
0334     void (*reserved25)(void);
0335     void (*tclWinSetInterfaces) (int wide); /* 26 */
0336     void (*tclWinFlushDirtyChannels) (void); /* 27 */
0337     void (*tclWinResetInterfaces) (void); /* 28 */
0338     int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */
0339     int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */
0340 #endif /* WIN */
0341 #ifdef MAC_OSX_TCL /* MACOSX */
0342     void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */
0343     int (*tclpCloseFile) (TclFile file); /* 1 */
0344     Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */
0345     int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */
0346     int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */
0347     int (*tclUnixWaitForFile_) (int fd, int mask, int timeout); /* 5 */
0348     TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */
0349     TclFile (*tclpOpenFile) (const char *fname, int mode); /* 7 */
0350     int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */
0351     TclFile (*tclpCreateTempFile) (const char *contents); /* 9 */
0352     Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */
0353     struct tm * (*tclpLocaltime_unix) (const time_t *clock); /* 11 */
0354     struct tm * (*tclpGmtime_unix) (const time_t *clock); /* 12 */
0355     char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */
0356     int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */
0357     int (*tclMacOSXGetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj **attributePtrPtr); /* 15 */
0358     int (*tclMacOSXSetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj *attributePtr); /* 16 */
0359     int (*tclMacOSXCopyFileAttributes) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr); /* 17 */
0360     int (*tclMacOSXMatchType) (Tcl_Interp *interp, const char *pathName, const char *fileName, Tcl_StatBuf *statBufPtr, Tcl_GlobTypeData *types); /* 18 */
0361     void (*tclMacOSXNotifierAddRunLoopMode) (const void *runLoopMode); /* 19 */
0362     void (*reserved20)(void);
0363     void (*reserved21)(void);
0364     TclFile (*tclpCreateTempFile_) (const char *contents); /* 22 */
0365     void (*reserved23)(void);
0366     void (*reserved24)(void);
0367     void (*reserved25)(void);
0368     void (*reserved26)(void);
0369     void (*reserved27)(void);
0370     void (*reserved28)(void);
0371     int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */
0372     int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */
0373 #endif /* MACOSX */
0374 } TclIntPlatStubs;
0375
0376 extern const TclIntPlatStubs *tclIntPlatStubsPtr;
0377
0378 #ifdef __cplusplus
0379 }
0380 #endif
0381
0382 #if defined(USE_TCL_STUBS)
0383
0384 /*
0385  * Inline function declarations:
0386  */
0387
0388 #if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */
0389 #define TclGetAndDetachPids \
0390     (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */
0391 #define TclpCloseFile \
0392     (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */
0393 #define TclpCreateCommandChannel \
0394     (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */
0395 #define TclpCreatePipe \
0396     (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */
0397 #define TclpCreateProcess \
0398     (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */
0399 #define TclUnixWaitForFile_ \
0400     (tclIntPlatStubsPtr->tclUnixWaitForFile_) /* 5 */
0401 #define TclpMakeFile \
0402     (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */
0403 #define TclpOpenFile \
0404     (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */
0405 #define TclUnixWaitForFile \
0406     (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */
0407 #define TclpCreateTempFile \
0408     (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */
0409 #define TclpReaddir \
0410     (tclIntPlatStubsPtr->tclpReaddir) /* 10 */
0411 #define TclpLocaltime_unix \
0412     (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */
0413 #define TclpGmtime_unix \
0414     (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */
0415 #define TclpInetNtoa \
0416     (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */
0417 #define TclUnixCopyFile \
0418     (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */
0419 #define TclMacOSXGetFileAttribute \
0420     (tclIntPlatStubsPtr->tclMacOSXGetFileAttribute) /* 15 */
0421 #define TclMacOSXSetFileAttribute \
0422     (tclIntPlatStubsPtr->tclMacOSXSetFileAttribute) /* 16 */
0423 #define TclMacOSXCopyFileAttributes \
0424     (tclIntPlatStubsPtr->tclMacOSXCopyFileAttributes) /* 17 */
0425 #define TclMacOSXMatchType \
0426     (tclIntPlatStubsPtr->tclMacOSXMatchType) /* 18 */
0427 #define TclMacOSXNotifierAddRunLoopMode \
0428     (tclIntPlatStubsPtr->tclMacOSXNotifierAddRunLoopMode) /* 19 */
0429 /* Slot 20 is reserved */
0430 /* Slot 21 is reserved */
0431 #define TclpCreateTempFile_ \
0432     (tclIntPlatStubsPtr->tclpCreateTempFile_) /* 22 */
0433 /* Slot 23 is reserved */
0434 /* Slot 24 is reserved */
0435 /* Slot 25 is reserved */
0436 /* Slot 26 is reserved */
0437 /* Slot 27 is reserved */
0438 /* Slot 28 is reserved */
0439 #define TclWinCPUID \
0440     (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */
0441 #define TclUnixOpenTemporaryFile \
0442     (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */
0443 #endif /* UNIX */
0444 #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
0445 #define TclWinConvertError \
0446     (tclIntPlatStubsPtr->tclWinConvertError) /* 0 */
0447 #define TclWinConvertWSAError \
0448     (tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */
0449 #define TclWinGetServByName \
0450     (tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */
0451 #define TclWinGetSockOpt \
0452     (tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */
0453 #define TclWinGetTclInstance \
0454     (tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */
0455 #define TclUnixWaitForFile \
0456     (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 5 */
0457 #define TclWinNToHS \
0458     (tclIntPlatStubsPtr->tclWinNToHS) /* 6 */
0459 #define TclWinSetSockOpt \
0460     (tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */
0461 #define TclpGetPid \
0462     (tclIntPlatStubsPtr->tclpGetPid) /* 8 */
0463 #define TclWinGetPlatformId \
0464     (tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */
0465 #define TclpReaddir \
0466     (tclIntPlatStubsPtr->tclpReaddir) /* 10 */
0467 #define TclGetAndDetachPids \
0468     (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */
0469 #define TclpCloseFile \
0470     (tclIntPlatStubsPtr->tclpCloseFile) /* 12 */
0471 #define TclpCreateCommandChannel \
0472     (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */
0473 #define TclpCreatePipe \
0474     (tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */
0475 #define TclpCreateProcess \
0476     (tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */
0477 #define TclpIsAtty \
0478     (tclIntPlatStubsPtr->tclpIsAtty) /* 16 */
0479 #define TclUnixCopyFile \
0480     (tclIntPlatStubsPtr->tclUnixCopyFile) /* 17 */
0481 #define TclpMakeFile \
0482     (tclIntPlatStubsPtr->tclpMakeFile) /* 18 */
0483 #define TclpOpenFile \
0484     (tclIntPlatStubsPtr->tclpOpenFile) /* 19 */
0485 #define TclWinAddProcess \
0486     (tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */
0487 #define TclpInetNtoa \
0488     (tclIntPlatStubsPtr->tclpInetNtoa) /* 21 */
0489 #define TclpCreateTempFile \
0490     (tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */
0491 /* Slot 23 is reserved */
0492 #define TclWinNoBackslash \
0493     (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */
0494 /* Slot 25 is reserved */
0495 #define TclWinSetInterfaces \
0496     (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */
0497 #define TclWinFlushDirtyChannels \
0498     (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */
0499 #define TclWinResetInterfaces \
0500     (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */
0501 #define TclWinCPUID \
0502     (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */
0503 #define TclUnixOpenTemporaryFile \
0504     (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */
0505 #endif /* WIN */
0506 #ifdef MAC_OSX_TCL /* MACOSX */
0507 #define TclGetAndDetachPids \
0508     (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */
0509 #define TclpCloseFile \
0510     (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */
0511 #define TclpCreateCommandChannel \
0512     (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */
0513 #define TclpCreatePipe \
0514     (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */
0515 #define TclpCreateProcess \
0516     (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */
0517 #define TclUnixWaitForFile_ \
0518     (tclIntPlatStubsPtr->tclUnixWaitForFile_) /* 5 */
0519 #define TclpMakeFile \
0520     (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */
0521 #define TclpOpenFile \
0522     (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */
0523 #define TclUnixWaitForFile \
0524     (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */
0525 #define TclpCreateTempFile \
0526     (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */
0527 #define TclpReaddir \
0528     (tclIntPlatStubsPtr->tclpReaddir) /* 10 */
0529 #define TclpLocaltime_unix \
0530     (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */
0531 #define TclpGmtime_unix \
0532     (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */
0533 #define TclpInetNtoa \
0534     (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */
0535 #define TclUnixCopyFile \
0536     (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */
0537 #define TclMacOSXGetFileAttribute \
0538     (tclIntPlatStubsPtr->tclMacOSXGetFileAttribute) /* 15 */
0539 #define TclMacOSXSetFileAttribute \
0540     (tclIntPlatStubsPtr->tclMacOSXSetFileAttribute) /* 16 */
0541 #define TclMacOSXCopyFileAttributes \
0542     (tclIntPlatStubsPtr->tclMacOSXCopyFileAttributes) /* 17 */
0543 #define TclMacOSXMatchType \
0544     (tclIntPlatStubsPtr->tclMacOSXMatchType) /* 18 */
0545 #define TclMacOSXNotifierAddRunLoopMode \
0546     (tclIntPlatStubsPtr->tclMacOSXNotifierAddRunLoopMode) /* 19 */
0547 /* Slot 20 is reserved */
0548 /* Slot 21 is reserved */
0549 #define TclpCreateTempFile_ \
0550     (tclIntPlatStubsPtr->tclpCreateTempFile_) /* 22 */
0551 /* Slot 23 is reserved */
0552 /* Slot 24 is reserved */
0553 /* Slot 25 is reserved */
0554 /* Slot 26 is reserved */
0555 /* Slot 27 is reserved */
0556 /* Slot 28 is reserved */
0557 #define TclWinCPUID \
0558     (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */
0559 #define TclUnixOpenTemporaryFile \
0560     (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */
0561 #endif /* MACOSX */
0562
0563 #endif /* defined(USE_TCL_STUBS) */
0564
0565 /* !END!: Do not edit above this line. */
0566
0567 #undef TCL_STORAGE_CLASS
0568 #define TCL_STORAGE_CLASS DLLIMPORT
0569 #undef TclpLocaltime_unix
0570 #undef TclpGmtime_unix
0571 #undef TclWinConvertWSAError
0572 #define TclWinConvertWSAError TclWinConvertError
0573 #undef TclpInetNtoa
0574 #define TclpInetNtoa inet_ntoa
0575
0576 #undef TclpCreateTempFile_
0577 #undef TclUnixWaitForFile_
0578 #ifndef MAC_OSX_TCL /* not accessable on Win32/UNIX */
0579 #undef TclMacOSXGetFileAttribute /* 15 */
0580 #undef TclMacOSXSetFileAttribute /* 16 */
0581 #undef TclMacOSXCopyFileAttributes /* 17 */
0582 #undef TclMacOSXMatchType /* 18 */
0583 #undef TclMacOSXNotifierAddRunLoopMode /* 19 */
0584 #endif
0585
0586 #if defined(_WIN32)
0587 #   undef TclWinNToHS
0588 #   undef TclWinGetServByName
0589 #   undef TclWinGetSockOpt
0590 #   undef TclWinSetSockOpt
0591 #   define TclWinNToHS ntohs
0592 #   define TclWinGetServByName getservbyname
0593 #   define TclWinGetSockOpt getsockopt
0594 #   define TclWinSetSockOpt setsockopt
0595 #else
0596 #   undef TclpGetPid
0597 #   define TclpGetPid(pid) ((unsigned long) (pid))
0598 #endif
0599
0600 #endif /* _TCLINTPLATDECLS */