/[dtapublic]/sf_code/esrgpcpj/shared/tcl_base/tclintplatdecls.h
ViewVC logotype

Annotation of /sf_code/esrgpcpj/shared/tcl_base/tclintplatdecls.h

Parent Directory Parent Directory | Revision Log Revision Log


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

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25