/[dtapublic]/projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclintplatdecls.h
ViewVC logotype

Diff of /projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclintplatdecls.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

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

Legend:
Removed from v.25  
changed lines
  Added in v.71

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25