include

tclIntPlatDecls.h

Go to the documentation of this file.
00001 /*
00002  * tclIntPlatDecls.h --
00003  *
00004  *      This file contains the declarations for all platform dependent
00005  *      unsupported functions that are exported by the Tcl library.  These
00006  *      interfaces are not guaranteed to remain the same between
00007  *      versions.  Use at your own risk.
00008  *
00009  * Copyright (c) 1998-1999 by Scriptics Corporation.
00010  * All rights reserved.
00011  *
00012  * RCS: @(#) $Id: tclIntPlatDecls.h,v 14.1 2004/11/16 19:42:10 morrison Exp $
00013  */
00014 
00015 #ifndef _TCLINTPLATDECLS
00016 #define _TCLINTPLATDECLS
00017 
00018 /*
00019  * WARNING: This file is automatically generated by the tools/genStubs.tcl
00020  * script.  Any modifications to the function declarations below should be made
00021  * in the generic/tclInt.decls script.
00022  */
00023 
00024 /* !BEGIN!: Do not edit below this line. */
00025 
00026 /*
00027  * Exported function declarations:
00028  */
00029 
00030 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
00031 /* 0 */
00032 EXTERN void             TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, 
00033                                 Tcl_Channel chan));
00034 /* 1 */
00035 EXTERN int              TclpCloseFile _ANSI_ARGS_((TclFile file));
00036 /* 2 */
00037 EXTERN Tcl_Channel      TclpCreateCommandChannel _ANSI_ARGS_((
00038                                 TclFile readFile, TclFile writeFile, 
00039                                 TclFile errorFile, int numPids, 
00040                                 Tcl_Pid * pidPtr));
00041 /* 3 */
00042 EXTERN int              TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, 
00043                                 TclFile * writePipe));
00044 /* 4 */
00045 EXTERN int              TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, 
00046                                 int argc, CONST char ** argv, 
00047                                 TclFile inputFile, TclFile outputFile, 
00048                                 TclFile errorFile, Tcl_Pid * pidPtr));
00049 /* Slot 5 is reserved */
00050 /* 6 */
00051 EXTERN TclFile          TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, 
00052                                 int direction));
00053 /* 7 */
00054 EXTERN TclFile          TclpOpenFile _ANSI_ARGS_((CONST char * fname, 
00055                                 int mode));
00056 /* 8 */
00057 EXTERN int              TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, 
00058                                 int timeout));
00059 /* 9 */
00060 EXTERN TclFile          TclpCreateTempFile _ANSI_ARGS_((
00061                                 CONST char * contents));
00062 /* 10 */
00063 EXTERN Tcl_DirEntry *   TclpReaddir _ANSI_ARGS_((DIR * dir));
00064 /* 11 */
00065 EXTERN struct tm *      TclpLocaltime _ANSI_ARGS_((time_t * clock));
00066 /* 12 */
00067 EXTERN struct tm *      TclpGmtime _ANSI_ARGS_((time_t * clock));
00068 /* 13 */
00069 EXTERN char *           TclpInetNtoa _ANSI_ARGS_((struct in_addr addr));
00070 #endif /* UNIX */
00071 #ifdef __WIN32__
00072 /* 0 */
00073 EXTERN void             TclWinConvertError _ANSI_ARGS_((DWORD errCode));
00074 /* 1 */
00075 EXTERN void             TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode));
00076 /* 2 */
00077 EXTERN struct servent *  TclWinGetServByName _ANSI_ARGS_((CONST char * nm, 
00078                                 CONST char * proto));
00079 /* 3 */
00080 EXTERN int              TclWinGetSockOpt _ANSI_ARGS_((SOCKET s, int level, 
00081                                 int optname, char FAR * optval, 
00082                                 int FAR * optlen));
00083 /* 4 */
00084 EXTERN HINSTANCE        TclWinGetTclInstance _ANSI_ARGS_((void));
00085 /* Slot 5 is reserved */
00086 /* 6 */
00087 EXTERN u_short          TclWinNToHS _ANSI_ARGS_((u_short ns));
00088 /* 7 */
00089 EXTERN int              TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level, 
00090                                 int optname, CONST char FAR * optval, 
00091                                 int optlen));
00092 /* 8 */
00093 EXTERN unsigned long    TclpGetPid _ANSI_ARGS_((Tcl_Pid pid));
00094 /* 9 */
00095 EXTERN int              TclWinGetPlatformId _ANSI_ARGS_((void));
00096 /* Slot 10 is reserved */
00097 /* 11 */
00098 EXTERN void             TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, 
00099                                 Tcl_Channel chan));
00100 /* 12 */
00101 EXTERN int              TclpCloseFile _ANSI_ARGS_((TclFile file));
00102 /* 13 */
00103 EXTERN Tcl_Channel      TclpCreateCommandChannel _ANSI_ARGS_((
00104                                 TclFile readFile, TclFile writeFile, 
00105                                 TclFile errorFile, int numPids, 
00106                                 Tcl_Pid * pidPtr));
00107 /* 14 */
00108 EXTERN int              TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, 
00109                                 TclFile * writePipe));
00110 /* 15 */
00111 EXTERN int              TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, 
00112                                 int argc, CONST char ** argv, 
00113                                 TclFile inputFile, TclFile outputFile, 
00114                                 TclFile errorFile, Tcl_Pid * pidPtr));
00115 /* Slot 16 is reserved */
00116 /* Slot 17 is reserved */
00117 /* 18 */
00118 EXTERN TclFile          TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, 
00119                                 int direction));
00120 /* 19 */
00121 EXTERN TclFile          TclpOpenFile _ANSI_ARGS_((CONST char * fname, 
00122                                 int mode));
00123 /* 20 */
00124 EXTERN void             TclWinAddProcess _ANSI_ARGS_((HANDLE hProcess, 
00125                                 DWORD id));
00126 /* Slot 21 is reserved */
00127 /* 22 */
00128 EXTERN TclFile          TclpCreateTempFile _ANSI_ARGS_((
00129                                 CONST char * contents));
00130 /* 23 */
00131 EXTERN char *           TclpGetTZName _ANSI_ARGS_((int isdst));
00132 /* 24 */
00133 EXTERN char *           TclWinNoBackslash _ANSI_ARGS_((char * path));
00134 /* 25 */
00135 EXTERN TclPlatformType * TclWinGetPlatform _ANSI_ARGS_((void));
00136 /* 26 */
00137 EXTERN void             TclWinSetInterfaces _ANSI_ARGS_((int wide));
00138 /* 27 */
00139 EXTERN void             TclWinFlushDirtyChannels _ANSI_ARGS_((void));
00140 /* 28 */
00141 EXTERN void             TclWinResetInterfaces _ANSI_ARGS_((void));
00142 #endif /* __WIN32__ */
00143 #ifdef MAC_TCL
00144 /* 0 */
00145 EXTERN VOID *           TclpSysAlloc _ANSI_ARGS_((long size, int isBin));
00146 /* 1 */
00147 EXTERN void             TclpSysFree _ANSI_ARGS_((VOID * ptr));
00148 /* 2 */
00149 EXTERN VOID *           TclpSysRealloc _ANSI_ARGS_((VOID * cp, 
00150                                 unsigned int size));
00151 /* 3 */
00152 EXTERN void             TclpExit _ANSI_ARGS_((int status));
00153 /* 4 */
00154 EXTERN int              FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));
00155 /* 5 */
00156 EXTERN int              FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));
00157 /* 6 */
00158 EXTERN OSErr            FSpFindFolder _ANSI_ARGS_((short vRefNum, 
00159                                 OSType folderType, Boolean createFolder, 
00160                                 FSSpec * spec));
00161 /* 7 */
00162 EXTERN void             GetGlobalMouseTcl _ANSI_ARGS_((Point * mouse));
00163 /* 8 */
00164 EXTERN pascal OSErr     FSpGetDirectoryIDTcl _ANSI_ARGS_((
00165                                 CONST FSSpec * spec, long * theDirID, 
00166                                 Boolean * isDirectory));
00167 /* 9 */
00168 EXTERN pascal short     FSpOpenResFileCompatTcl _ANSI_ARGS_((
00169                                 CONST FSSpec * spec, SignedByte permission));
00170 /* 10 */
00171 EXTERN pascal void      FSpCreateResFileCompatTcl _ANSI_ARGS_((
00172                                 CONST FSSpec * spec, OSType creator, 
00173                                 OSType fileType, ScriptCode scriptTag));
00174 /* 11 */
00175 EXTERN int              FSpLocationFromPath _ANSI_ARGS_((int length, 
00176                                 CONST char * path, FSSpecPtr theSpec));
00177 /* 12 */
00178 EXTERN OSErr            FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec, 
00179                                 int * length, Handle * fullPath));
00180 /* 13 */
00181 EXTERN void             TclMacExitHandler _ANSI_ARGS_((void));
00182 /* 14 */
00183 EXTERN void             TclMacInitExitToShell _ANSI_ARGS_((int usePatch));
00184 /* 15 */
00185 EXTERN OSErr            TclMacInstallExitToShellPatch _ANSI_ARGS_((
00186                                 ExitToShellProcPtr newProc));
00187 /* 16 */
00188 EXTERN int              TclMacOSErrorToPosixError _ANSI_ARGS_((int error));
00189 /* 17 */
00190 EXTERN void             TclMacRemoveTimer _ANSI_ARGS_((void * timerToken));
00191 /* 18 */
00192 EXTERN void *           TclMacStartTimer _ANSI_ARGS_((long ms));
00193 /* 19 */
00194 EXTERN int              TclMacTimerExpired _ANSI_ARGS_((void * timerToken));
00195 /* 20 */
00196 EXTERN int              TclMacRegisterResourceFork _ANSI_ARGS_((
00197                                 short fileRef, Tcl_Obj * tokenPtr, 
00198                                 int insert));
00199 /* 21 */
00200 EXTERN short            TclMacUnRegisterResourceFork _ANSI_ARGS_((
00201                                 char * tokenPtr, Tcl_Obj * resultPtr));
00202 /* 22 */
00203 EXTERN int              TclMacCreateEnv _ANSI_ARGS_((void));
00204 /* 23 */
00205 EXTERN FILE *           TclMacFOpenHack _ANSI_ARGS_((CONST char * path, 
00206                                 CONST char * mode));
00207 /* 24 */
00208 EXTERN char *           TclpGetTZName _ANSI_ARGS_((int isdst));
00209 /* 25 */
00210 EXTERN int              TclMacChmod _ANSI_ARGS_((CONST char * path, int mode));
00211 /* 26 */
00212 EXTERN int              FSpLLocationFromPath _ANSI_ARGS_((int length, 
00213                                 CONST char * path, FSSpecPtr theSpec));
00214 #endif /* MAC_TCL */
00215 
00216 typedef struct TclIntPlatStubs {
00217     int magic;
00218     struct TclIntPlatStubHooks *hooks;
00219 
00220 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
00221     void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */
00222     int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */
00223     Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */
00224     int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */
00225     int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */
00226     void *reserved5;
00227     TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */
00228     TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */
00229     int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */
00230     TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */
00231     Tcl_DirEntry * (*tclpReaddir) _ANSI_ARGS_((DIR * dir)); /* 10 */
00232     struct tm * (*tclpLocaltime) _ANSI_ARGS_((time_t * clock)); /* 11 */
00233     struct tm * (*tclpGmtime) _ANSI_ARGS_((time_t * clock)); /* 12 */
00234     char * (*tclpInetNtoa) _ANSI_ARGS_((struct in_addr addr)); /* 13 */
00235 #endif /* UNIX */
00236 #ifdef __WIN32__
00237     void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */
00238     void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */
00239     struct servent * (*tclWinGetServByName) _ANSI_ARGS_((CONST char * nm, CONST char * proto)); /* 2 */
00240     int (*tclWinGetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, char FAR * optval, int FAR * optlen)); /* 3 */
00241     HINSTANCE (*tclWinGetTclInstance) _ANSI_ARGS_((void)); /* 4 */
00242     void *reserved5;
00243     u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */
00244     int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, CONST char FAR * optval, int optlen)); /* 7 */
00245     unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */
00246     int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */
00247     void *reserved10;
00248     void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */
00249     int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */
00250     Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */
00251     int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */
00252     int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */
00253     void *reserved16;
00254     void *reserved17;
00255     TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */
00256     TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 19 */
00257     void (*tclWinAddProcess) _ANSI_ARGS_((HANDLE hProcess, DWORD id)); /* 20 */
00258     void *reserved21;
00259     TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 22 */
00260     char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 23 */
00261     char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 24 */
00262     TclPlatformType * (*tclWinGetPlatform) _ANSI_ARGS_((void)); /* 25 */
00263     void (*tclWinSetInterfaces) _ANSI_ARGS_((int wide)); /* 26 */
00264     void (*tclWinFlushDirtyChannels) _ANSI_ARGS_((void)); /* 27 */
00265     void (*tclWinResetInterfaces) _ANSI_ARGS_((void)); /* 28 */
00266 #endif /* __WIN32__ */
00267 #ifdef MAC_TCL
00268     VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */
00269     void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */
00270     VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */
00271     void (*tclpExit) _ANSI_ARGS_((int status)); /* 3 */
00272     int (*fSpGetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 4 */
00273     int (*fSpSetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 5 */
00274     OSErr (*fSpFindFolder) _ANSI_ARGS_((short vRefNum, OSType folderType, Boolean createFolder, FSSpec * spec)); /* 6 */
00275     void (*getGlobalMouseTcl) _ANSI_ARGS_((Point * mouse)); /* 7 */
00276     pascal OSErr (*fSpGetDirectoryIDTcl) _ANSI_ARGS_((CONST FSSpec * spec, long * theDirID, Boolean * isDirectory)); /* 8 */
00277     pascal short (*fSpOpenResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, SignedByte permission)); /* 9 */
00278     pascal void (*fSpCreateResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, OSType creator, OSType fileType, ScriptCode scriptTag)); /* 10 */
00279     int (*fSpLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 11 */
00280     OSErr (*fSpPathFromLocation) _ANSI_ARGS_((FSSpecPtr theSpec, int * length, Handle * fullPath)); /* 12 */
00281     void (*tclMacExitHandler) _ANSI_ARGS_((void)); /* 13 */
00282     void (*tclMacInitExitToShell) _ANSI_ARGS_((int usePatch)); /* 14 */
00283     OSErr (*tclMacInstallExitToShellPatch) _ANSI_ARGS_((ExitToShellProcPtr newProc)); /* 15 */
00284     int (*tclMacOSErrorToPosixError) _ANSI_ARGS_((int error)); /* 16 */
00285     void (*tclMacRemoveTimer) _ANSI_ARGS_((void * timerToken)); /* 17 */
00286     void * (*tclMacStartTimer) _ANSI_ARGS_((long ms)); /* 18 */
00287     int (*tclMacTimerExpired) _ANSI_ARGS_((void * timerToken)); /* 19 */
00288     int (*tclMacRegisterResourceFork) _ANSI_ARGS_((short fileRef, Tcl_Obj * tokenPtr, int insert)); /* 20 */
00289     short (*tclMacUnRegisterResourceFork) _ANSI_ARGS_((char * tokenPtr, Tcl_Obj * resultPtr)); /* 21 */
00290     int (*tclMacCreateEnv) _ANSI_ARGS_((void)); /* 22 */
00291     FILE * (*tclMacFOpenHack) _ANSI_ARGS_((CONST char * path, CONST char * mode)); /* 23 */
00292     char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 24 */
00293     int (*tclMacChmod) _ANSI_ARGS_((CONST char * path, int mode)); /* 25 */
00294     int (*fSpLLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 26 */
00295 #endif /* MAC_TCL */
00296 } TclIntPlatStubs;
00297 
00298 #ifdef __cplusplus
00299 extern "C" {
00300 #endif
00301 extern TclIntPlatStubs *tclIntPlatStubsPtr;
00302 #ifdef __cplusplus
00303 }
00304 #endif
00305 
00306 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
00307 
00308 /*
00309  * Inline function declarations:
00310  */
00311 
00312 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
00313 #ifndef TclGetAndDetachPids
00314 #define TclGetAndDetachPids \
00315         (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */
00316 #endif
00317 #ifndef TclpCloseFile
00318 #define TclpCloseFile \
00319         (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */
00320 #endif
00321 #ifndef TclpCreateCommandChannel
00322 #define TclpCreateCommandChannel \
00323         (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */
00324 #endif
00325 #ifndef TclpCreatePipe
00326 #define TclpCreatePipe \
00327         (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */
00328 #endif
00329 #ifndef TclpCreateProcess
00330 #define TclpCreateProcess \
00331         (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */
00332 #endif
00333 /* Slot 5 is reserved */
00334 #ifndef TclpMakeFile
00335 #define TclpMakeFile \
00336         (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */
00337 #endif
00338 #ifndef TclpOpenFile
00339 #define TclpOpenFile \
00340         (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */
00341 #endif
00342 #ifndef TclUnixWaitForFile
00343 #define TclUnixWaitForFile \
00344         (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */
00345 #endif
00346 #ifndef TclpCreateTempFile
00347 #define TclpCreateTempFile \
00348         (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */
00349 #endif
00350 #ifndef TclpReaddir
00351 #define TclpReaddir \
00352         (tclIntPlatStubsPtr->tclpReaddir) /* 10 */
00353 #endif
00354 #ifndef TclpLocaltime
00355 #define TclpLocaltime \
00356         (tclIntPlatStubsPtr->tclpLocaltime) /* 11 */
00357 #endif
00358 #ifndef TclpGmtime
00359 #define TclpGmtime \
00360         (tclIntPlatStubsPtr->tclpGmtime) /* 12 */
00361 #endif
00362 #ifndef TclpInetNtoa
00363 #define TclpInetNtoa \
00364         (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */
00365 #endif
00366 #endif /* UNIX */
00367 #ifdef __WIN32__
00368 #ifndef TclWinConvertError
00369 #define TclWinConvertError \
00370         (tclIntPlatStubsPtr->tclWinConvertError) /* 0 */
00371 #endif
00372 #ifndef TclWinConvertWSAError
00373 #define TclWinConvertWSAError \
00374         (tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */
00375 #endif
00376 #ifndef TclWinGetServByName
00377 #define TclWinGetServByName \
00378         (tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */
00379 #endif
00380 #ifndef TclWinGetSockOpt
00381 #define TclWinGetSockOpt \
00382         (tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */
00383 #endif
00384 #ifndef TclWinGetTclInstance
00385 #define TclWinGetTclInstance \
00386         (tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */
00387 #endif
00388 /* Slot 5 is reserved */
00389 #ifndef TclWinNToHS
00390 #define TclWinNToHS \
00391         (tclIntPlatStubsPtr->tclWinNToHS) /* 6 */
00392 #endif
00393 #ifndef TclWinSetSockOpt
00394 #define TclWinSetSockOpt \
00395         (tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */
00396 #endif
00397 #ifndef TclpGetPid
00398 #define TclpGetPid \
00399         (tclIntPlatStubsPtr->tclpGetPid) /* 8 */
00400 #endif
00401 #ifndef TclWinGetPlatformId
00402 #define TclWinGetPlatformId \
00403         (tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */
00404 #endif
00405 /* Slot 10 is reserved */
00406 #ifndef TclGetAndDetachPids
00407 #define TclGetAndDetachPids \
00408         (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */
00409 #endif
00410 #ifndef TclpCloseFile
00411 #define TclpCloseFile \
00412         (tclIntPlatStubsPtr->tclpCloseFile) /* 12 */
00413 #endif
00414 #ifndef TclpCreateCommandChannel
00415 #define TclpCreateCommandChannel \
00416         (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */
00417 #endif
00418 #ifndef TclpCreatePipe
00419 #define TclpCreatePipe \
00420         (tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */
00421 #endif
00422 #ifndef TclpCreateProcess
00423 #define TclpCreateProcess \
00424         (tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */
00425 #endif
00426 /* Slot 16 is reserved */
00427 /* Slot 17 is reserved */
00428 #ifndef TclpMakeFile
00429 #define TclpMakeFile \
00430         (tclIntPlatStubsPtr->tclpMakeFile) /* 18 */
00431 #endif
00432 #ifndef TclpOpenFile
00433 #define TclpOpenFile \
00434         (tclIntPlatStubsPtr->tclpOpenFile) /* 19 */
00435 #endif
00436 #ifndef TclWinAddProcess
00437 #define TclWinAddProcess \
00438         (tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */
00439 #endif
00440 /* Slot 21 is reserved */
00441 #ifndef TclpCreateTempFile
00442 #define TclpCreateTempFile \
00443         (tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */
00444 #endif
00445 #ifndef TclpGetTZName
00446 #define TclpGetTZName \
00447         (tclIntPlatStubsPtr->tclpGetTZName) /* 23 */
00448 #endif
00449 #ifndef TclWinNoBackslash
00450 #define TclWinNoBackslash \
00451         (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */
00452 #endif
00453 #ifndef TclWinGetPlatform
00454 #define TclWinGetPlatform \
00455         (tclIntPlatStubsPtr->tclWinGetPlatform) /* 25 */
00456 #endif
00457 #ifndef TclWinSetInterfaces
00458 #define TclWinSetInterfaces \
00459         (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */
00460 #endif
00461 #ifndef TclWinFlushDirtyChannels
00462 #define TclWinFlushDirtyChannels \
00463         (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */
00464 #endif
00465 #ifndef TclWinResetInterfaces
00466 #define TclWinResetInterfaces \
00467         (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */
00468 #endif
00469 #endif /* __WIN32__ */
00470 #ifdef MAC_TCL
00471 #ifndef TclpSysAlloc
00472 #define TclpSysAlloc \
00473         (tclIntPlatStubsPtr->tclpSysAlloc) /* 0 */
00474 #endif
00475 #ifndef TclpSysFree
00476 #define TclpSysFree \
00477         (tclIntPlatStubsPtr->tclpSysFree) /* 1 */
00478 #endif
00479 #ifndef TclpSysRealloc
00480 #define TclpSysRealloc \
00481         (tclIntPlatStubsPtr->tclpSysRealloc) /* 2 */
00482 #endif
00483 #ifndef TclpExit
00484 #define TclpExit \
00485         (tclIntPlatStubsPtr->tclpExit) /* 3 */
00486 #endif
00487 #ifndef FSpGetDefaultDir
00488 #define FSpGetDefaultDir \
00489         (tclIntPlatStubsPtr->fSpGetDefaultDir) /* 4 */
00490 #endif
00491 #ifndef FSpSetDefaultDir
00492 #define FSpSetDefaultDir \
00493         (tclIntPlatStubsPtr->fSpSetDefaultDir) /* 5 */
00494 #endif
00495 #ifndef FSpFindFolder
00496 #define FSpFindFolder \
00497         (tclIntPlatStubsPtr->fSpFindFolder) /* 6 */
00498 #endif
00499 #ifndef GetGlobalMouseTcl
00500 #define GetGlobalMouseTcl \
00501         (tclIntPlatStubsPtr->getGlobalMouseTcl) /* 7 */
00502 #endif
00503 #ifndef FSpGetDirectoryIDTcl
00504 #define FSpGetDirectoryIDTcl \
00505         (tclIntPlatStubsPtr->fSpGetDirectoryIDTcl) /* 8 */
00506 #endif
00507 #ifndef FSpOpenResFileCompatTcl
00508 #define FSpOpenResFileCompatTcl \
00509         (tclIntPlatStubsPtr->fSpOpenResFileCompatTcl) /* 9 */
00510 #endif
00511 #ifndef FSpCreateResFileCompatTcl
00512 #define FSpCreateResFileCompatTcl \
00513         (tclIntPlatStubsPtr->fSpCreateResFileCompatTcl) /* 10 */
00514 #endif
00515 #ifndef FSpLocationFromPath
00516 #define FSpLocationFromPath \
00517         (tclIntPlatStubsPtr->fSpLocationFromPath) /* 11 */
00518 #endif
00519 #ifndef FSpPathFromLocation
00520 #define FSpPathFromLocation \
00521         (tclIntPlatStubsPtr->fSpPathFromLocation) /* 12 */
00522 #endif
00523 #ifndef TclMacExitHandler
00524 #define TclMacExitHandler \
00525         (tclIntPlatStubsPtr->tclMacExitHandler) /* 13 */
00526 #endif
00527 #ifndef TclMacInitExitToShell
00528 #define TclMacInitExitToShell \
00529         (tclIntPlatStubsPtr->tclMacInitExitToShell) /* 14 */
00530 #endif
00531 #ifndef TclMacInstallExitToShellPatch
00532 #define TclMacInstallExitToShellPatch \
00533         (tclIntPlatStubsPtr->tclMacInstallExitToShellPatch) /* 15 */
00534 #endif
00535 #ifndef TclMacOSErrorToPosixError
00536 #define TclMacOSErrorToPosixError \
00537         (tclIntPlatStubsPtr->tclMacOSErrorToPosixError) /* 16 */
00538 #endif
00539 #ifndef TclMacRemoveTimer
00540 #define TclMacRemoveTimer \
00541         (tclIntPlatStubsPtr->tclMacRemoveTimer) /* 17 */
00542 #endif
00543 #ifndef TclMacStartTimer
00544 #define TclMacStartTimer \
00545         (tclIntPlatStubsPtr->tclMacStartTimer) /* 18 */
00546 #endif
00547 #ifndef TclMacTimerExpired
00548 #define TclMacTimerExpired \
00549         (tclIntPlatStubsPtr->tclMacTimerExpired) /* 19 */
00550 #endif
00551 #ifndef TclMacRegisterResourceFork
00552 #define TclMacRegisterResourceFork \
00553         (tclIntPlatStubsPtr->tclMacRegisterResourceFork) /* 20 */
00554 #endif
00555 #ifndef TclMacUnRegisterResourceFork
00556 #define TclMacUnRegisterResourceFork \
00557         (tclIntPlatStubsPtr->tclMacUnRegisterResourceFork) /* 21 */
00558 #endif
00559 #ifndef TclMacCreateEnv
00560 #define TclMacCreateEnv \
00561         (tclIntPlatStubsPtr->tclMacCreateEnv) /* 22 */
00562 #endif
00563 #ifndef TclMacFOpenHack
00564 #define TclMacFOpenHack \
00565         (tclIntPlatStubsPtr->tclMacFOpenHack) /* 23 */
00566 #endif
00567 #ifndef TclpGetTZName
00568 #define TclpGetTZName \
00569         (tclIntPlatStubsPtr->tclpGetTZName) /* 24 */
00570 #endif
00571 #ifndef TclMacChmod
00572 #define TclMacChmod \
00573         (tclIntPlatStubsPtr->tclMacChmod) /* 25 */
00574 #endif
00575 #ifndef FSpLLocationFromPath
00576 #define FSpLLocationFromPath \
00577         (tclIntPlatStubsPtr->fSpLLocationFromPath) /* 26 */
00578 #endif
00579 #endif /* MAC_TCL */
00580 
00581 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
00582 
00583 /* !END!: Do not edit above this line. */
00584 
00585 #endif /* _TCLINTPLATDECLS */
00586 
00587 /*
00588  * Local Variables:
00589  * mode: C
00590  * tab-width: 8
00591  * c-basic-offset: 4
00592  * indent-tabs-mode: t
00593  * End:
00594  * ex: shiftwidth=4 tabstop=8
00595  */
Generated on Mon Sep 18 01:24:44 2006 for BRL-CAD by  doxygen 1.4.6