/[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

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