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

Contents of /projs/trunk/shared_source/tcl_base/tclintplatdecls.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 42 - (show annotations) (download)
Fri Oct 14 01:50:00 2016 UTC (7 years, 5 months ago) by dashley
File MIME type: text/plain
File size: 19640 byte(s)
Move shared source code to commonize.
1 /* $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