Mercurial > repos > rliterman > csp2

comparison CSP2/CSP2_env/env-d9b9114564458d9d-741b3de822f2aaca6c6caa4325c4afce/include/tclIntPlatDecls.h @ 69:33d812a61356

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 2e9511a184a1ca667c7be0c6321a36dc4e3d116d
author jpayne
date Tue, 18 Mar 2025 17:55:14 -0400
parents
children
comparison
equal deleted inserted replaced
67:0e9998148a16 69:33d812a61356
1 /*
2 * tclIntPlatDecls.h --
3 *
4 * This file contains the declarations for all platform dependent
5 * unsupported functions that are exported by the Tcl library. These
6 * interfaces are not guaranteed to remain the same between
7 * versions. Use at your own risk.
8 *
9 * Copyright (c) 1998-1999 by Scriptics Corporation.
10 * All rights reserved.
11 */
12
13 #ifndef _TCLINTPLATDECLS
14 #define _TCLINTPLATDECLS
15
16 #undef TCL_STORAGE_CLASS
17 #ifdef BUILD_tcl
18 # define TCL_STORAGE_CLASS DLLEXPORT
19 #else
20 # ifdef USE_TCL_STUBS
21 # define TCL_STORAGE_CLASS
22 # else
23 # define TCL_STORAGE_CLASS DLLIMPORT
24 # endif
25 #endif
26
27 /*
28 * WARNING: This file is automatically generated by the tools/genStubs.tcl
29 * script. Any modifications to the function declarations below should be made
30 * in the generic/tclInt.decls script.
31 */
32
33 /* !BEGIN!: Do not edit below this line. */
34
35 #ifdef __cplusplus
36 extern "C" {
37 #endif
38
39 /*
40 * Exported function declarations:
41 */
42
43 #if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */
44 /* 0 */
45 EXTERN void TclGetAndDetachPids(Tcl_Interp *interp,
46 Tcl_Channel chan);
47 /* 1 */
48 EXTERN int TclpCloseFile(TclFile file);
49 /* 2 */
50 EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile,
51 TclFile writeFile, TclFile errorFile,
52 int numPids, Tcl_Pid *pidPtr);
53 /* 3 */
54 EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe);
55 /* 4 */
56 EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc,
57 const char **argv, TclFile inputFile,
58 TclFile outputFile, TclFile errorFile,
59 Tcl_Pid *pidPtr);
60 /* 5 */
61 EXTERN int TclUnixWaitForFile_(int fd, int mask, int timeout);
62 /* 6 */
63 EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction);
64 /* 7 */
65 EXTERN TclFile TclpOpenFile(const char *fname, int mode);
66 /* 8 */
67 EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout);
68 /* 9 */
69 EXTERN TclFile TclpCreateTempFile(const char *contents);
70 /* 10 */
71 EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir);
72 /* 11 */
73 EXTERN struct tm * TclpLocaltime_unix(const time_t *clock);
74 /* 12 */
75 EXTERN struct tm * TclpGmtime_unix(const time_t *clock);
76 /* 13 */
77 EXTERN char * TclpInetNtoa(struct in_addr addr);
78 /* 14 */
79 EXTERN int TclUnixCopyFile(const char *src, const char *dst,
80 const Tcl_StatBuf *statBufPtr,
81 int dontCopyAtts);
82 /* 15 */
83 EXTERN int TclMacOSXGetFileAttribute(Tcl_Interp *interp,
84 int objIndex, Tcl_Obj *fileName,
85 Tcl_Obj **attributePtrPtr);
86 /* 16 */
87 EXTERN int TclMacOSXSetFileAttribute(Tcl_Interp *interp,
88 int objIndex, Tcl_Obj *fileName,
89 Tcl_Obj *attributePtr);
90 /* 17 */
91 EXTERN int TclMacOSXCopyFileAttributes(const char *src,
92 const char *dst,
93 const Tcl_StatBuf *statBufPtr);
94 /* 18 */
95 EXTERN int TclMacOSXMatchType(Tcl_Interp *interp,
96 const char *pathName, const char *fileName,
97 Tcl_StatBuf *statBufPtr,
98 Tcl_GlobTypeData *types);
99 /* 19 */
100 EXTERN void TclMacOSXNotifierAddRunLoopMode(
101 const void *runLoopMode);
102 /* Slot 20 is reserved */
103 /* Slot 21 is reserved */
104 /* 22 */
105 EXTERN TclFile TclpCreateTempFile_(const char *contents);
106 /* Slot 23 is reserved */
107 /* Slot 24 is reserved */
108 /* Slot 25 is reserved */
109 /* Slot 26 is reserved */
110 /* Slot 27 is reserved */
111 /* Slot 28 is reserved */
112 /* 29 */
113 EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs);
114 /* 30 */
115 EXTERN int TclUnixOpenTemporaryFile(Tcl_Obj *dirObj,
116 Tcl_Obj *basenameObj, Tcl_Obj *extensionObj,
117 Tcl_Obj *resultingNameObj);
118 #endif /* UNIX */
119 #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
120 /* 0 */
121 EXTERN void TclWinConvertError(DWORD errCode);
122 /* 1 */
123 EXTERN void TclWinConvertWSAError(DWORD errCode);
124 /* 2 */
125 EXTERN struct servent * TclWinGetServByName(const char *nm,
126 const char *proto);
127 /* 3 */
128 EXTERN int TclWinGetSockOpt(SOCKET s, int level, int optname,
129 char *optval, int *optlen);
130 /* 4 */
131 EXTERN HINSTANCE TclWinGetTclInstance(void);
132 /* 5 */
133 EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout);
134 /* 6 */
135 EXTERN unsigned short TclWinNToHS(unsigned short ns);
136 /* 7 */
137 EXTERN int TclWinSetSockOpt(SOCKET s, int level, int optname,
138 const char *optval, int optlen);
139 /* 8 */
140 EXTERN int TclpGetPid(Tcl_Pid pid);
141 /* 9 */
142 EXTERN int TclWinGetPlatformId(void);
143 /* 10 */
144 EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir);
145 /* 11 */
146 EXTERN void TclGetAndDetachPids(Tcl_Interp *interp,
147 Tcl_Channel chan);
148 /* 12 */
149 EXTERN int TclpCloseFile(TclFile file);
150 /* 13 */
151 EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile,
152 TclFile writeFile, TclFile errorFile,
153 int numPids, Tcl_Pid *pidPtr);
154 /* 14 */
155 EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe);
156 /* 15 */
157 EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc,
158 const char **argv, TclFile inputFile,
159 TclFile outputFile, TclFile errorFile,
160 Tcl_Pid *pidPtr);
161 /* 16 */
162 EXTERN int TclpIsAtty(int fd);
163 /* 17 */
164 EXTERN int TclUnixCopyFile(const char *src, const char *dst,
165 const Tcl_StatBuf *statBufPtr,
166 int dontCopyAtts);
167 /* 18 */
168 EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction);
169 /* 19 */
170 EXTERN TclFile TclpOpenFile(const char *fname, int mode);
171 /* 20 */
172 EXTERN void TclWinAddProcess(HANDLE hProcess, DWORD id);
173 /* 21 */
174 EXTERN char * TclpInetNtoa(struct in_addr addr);
175 /* 22 */
176 EXTERN TclFile TclpCreateTempFile(const char *contents);
177 /* Slot 23 is reserved */
178 /* 24 */
179 EXTERN char * TclWinNoBackslash(char *path);
180 /* Slot 25 is reserved */
181 /* 26 */
182 EXTERN void TclWinSetInterfaces(int wide);
183 /* 27 */
184 EXTERN void TclWinFlushDirtyChannels(void);
185 /* 28 */
186 EXTERN void TclWinResetInterfaces(void);
187 /* 29 */
188 EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs);
189 /* 30 */
190 EXTERN int TclUnixOpenTemporaryFile(Tcl_Obj *dirObj,
191 Tcl_Obj *basenameObj, Tcl_Obj *extensionObj,
192 Tcl_Obj *resultingNameObj);
193 #endif /* WIN */
194 #ifdef MAC_OSX_TCL /* MACOSX */
195 /* 0 */
196 EXTERN void TclGetAndDetachPids(Tcl_Interp *interp,
197 Tcl_Channel chan);
198 /* 1 */
199 EXTERN int TclpCloseFile(TclFile file);
200 /* 2 */
201 EXTERN Tcl_Channel TclpCreateCommandChannel(TclFile readFile,
202 TclFile writeFile, TclFile errorFile,
203 int numPids, Tcl_Pid *pidPtr);
204 /* 3 */
205 EXTERN int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe);
206 /* 4 */
207 EXTERN int TclpCreateProcess(Tcl_Interp *interp, int argc,
208 const char **argv, TclFile inputFile,
209 TclFile outputFile, TclFile errorFile,
210 Tcl_Pid *pidPtr);
211 /* 5 */
212 EXTERN int TclUnixWaitForFile_(int fd, int mask, int timeout);
213 /* 6 */
214 EXTERN TclFile TclpMakeFile(Tcl_Channel channel, int direction);
215 /* 7 */
216 EXTERN TclFile TclpOpenFile(const char *fname, int mode);
217 /* 8 */
218 EXTERN int TclUnixWaitForFile(int fd, int mask, int timeout);
219 /* 9 */
220 EXTERN TclFile TclpCreateTempFile(const char *contents);
221 /* 10 */
222 EXTERN Tcl_DirEntry * TclpReaddir(TclDIR *dir);
223 /* 11 */
224 EXTERN struct tm * TclpLocaltime_unix(const time_t *clock);
225 /* 12 */
226 EXTERN struct tm * TclpGmtime_unix(const time_t *clock);
227 /* 13 */
228 EXTERN char * TclpInetNtoa(struct in_addr addr);
229 /* 14 */
230 EXTERN int TclUnixCopyFile(const char *src, const char *dst,
231 const Tcl_StatBuf *statBufPtr,
232 int dontCopyAtts);
233 /* 15 */
234 EXTERN int TclMacOSXGetFileAttribute(Tcl_Interp *interp,
235 int objIndex, Tcl_Obj *fileName,
236 Tcl_Obj **attributePtrPtr);
237 /* 16 */
238 EXTERN int TclMacOSXSetFileAttribute(Tcl_Interp *interp,
239 int objIndex, Tcl_Obj *fileName,
240 Tcl_Obj *attributePtr);
241 /* 17 */
242 EXTERN int TclMacOSXCopyFileAttributes(const char *src,
243 const char *dst,
244 const Tcl_StatBuf *statBufPtr);
245 /* 18 */
246 EXTERN int TclMacOSXMatchType(Tcl_Interp *interp,
247 const char *pathName, const char *fileName,
248 Tcl_StatBuf *statBufPtr,
249 Tcl_GlobTypeData *types);
250 /* 19 */
251 EXTERN void TclMacOSXNotifierAddRunLoopMode(
252 const void *runLoopMode);
253 /* Slot 20 is reserved */
254 /* Slot 21 is reserved */
255 /* 22 */
256 EXTERN TclFile TclpCreateTempFile_(const char *contents);
257 /* Slot 23 is reserved */
258 /* Slot 24 is reserved */
259 /* Slot 25 is reserved */
260 /* Slot 26 is reserved */
261 /* Slot 27 is reserved */
262 /* Slot 28 is reserved */
263 /* 29 */
264 EXTERN int TclWinCPUID(unsigned int index, unsigned int *regs);
265 /* 30 */
266 EXTERN int TclUnixOpenTemporaryFile(Tcl_Obj *dirObj,
267 Tcl_Obj *basenameObj, Tcl_Obj *extensionObj,
268 Tcl_Obj *resultingNameObj);
269 #endif /* MACOSX */
270
271 typedef struct TclIntPlatStubs {
272 int magic;
273 void *hooks;
274
275 #if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */
276 void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */
277 int (*tclpCloseFile) (TclFile file); /* 1 */
278 Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */
279 int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */
280 int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */
281 int (*tclUnixWaitForFile_) (int fd, int mask, int timeout); /* 5 */
282 TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */
283 TclFile (*tclpOpenFile) (const char *fname, int mode); /* 7 */
284 int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */
285 TclFile (*tclpCreateTempFile) (const char *contents); /* 9 */
286 Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */
287 struct tm * (*tclpLocaltime_unix) (const time_t *clock); /* 11 */
288 struct tm * (*tclpGmtime_unix) (const time_t *clock); /* 12 */
289 char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */
290 int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */
291 int (*tclMacOSXGetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj **attributePtrPtr); /* 15 */
292 int (*tclMacOSXSetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj *attributePtr); /* 16 */
293 int (*tclMacOSXCopyFileAttributes) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr); /* 17 */
294 int (*tclMacOSXMatchType) (Tcl_Interp *interp, const char *pathName, const char *fileName, Tcl_StatBuf *statBufPtr, Tcl_GlobTypeData *types); /* 18 */
295 void (*tclMacOSXNotifierAddRunLoopMode) (const void *runLoopMode); /* 19 */
296 void (*reserved20)(void);
297 void (*reserved21)(void);
298 TclFile (*tclpCreateTempFile_) (const char *contents); /* 22 */
299 void (*reserved23)(void);
300 void (*reserved24)(void);
301 void (*reserved25)(void);
302 void (*reserved26)(void);
303 void (*reserved27)(void);
304 void (*reserved28)(void);
305 int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */
306 int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */
307 #endif /* UNIX */
308 #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
309 void (*tclWinConvertError) (DWORD errCode); /* 0 */
310 void (*tclWinConvertWSAError) (DWORD errCode); /* 1 */
311 struct servent * (*tclWinGetServByName) (const char *nm, const char *proto); /* 2 */
312 int (*tclWinGetSockOpt) (SOCKET s, int level, int optname, char *optval, int *optlen); /* 3 */
313 HINSTANCE (*tclWinGetTclInstance) (void); /* 4 */
314 int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 5 */
315 unsigned short (*tclWinNToHS) (unsigned short ns); /* 6 */
316 int (*tclWinSetSockOpt) (SOCKET s, int level, int optname, const char *optval, int optlen); /* 7 */
317 int (*tclpGetPid) (Tcl_Pid pid); /* 8 */
318 int (*tclWinGetPlatformId) (void); /* 9 */
319 Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */
320 void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 11 */
321 int (*tclpCloseFile) (TclFile file); /* 12 */
322 Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 13 */
323 int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 14 */
324 int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 15 */
325 int (*tclpIsAtty) (int fd); /* 16 */
326 int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 17 */
327 TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 18 */
328 TclFile (*tclpOpenFile) (const char *fname, int mode); /* 19 */
329 void (*tclWinAddProcess) (HANDLE hProcess, DWORD id); /* 20 */
330 char * (*tclpInetNtoa) (struct in_addr addr); /* 21 */
331 TclFile (*tclpCreateTempFile) (const char *contents); /* 22 */
332 void (*reserved23)(void);
333 char * (*tclWinNoBackslash) (char *path); /* 24 */
334 void (*reserved25)(void);
335 void (*tclWinSetInterfaces) (int wide); /* 26 */
336 void (*tclWinFlushDirtyChannels) (void); /* 27 */
337 void (*tclWinResetInterfaces) (void); /* 28 */
338 int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */
339 int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */
340 #endif /* WIN */
341 #ifdef MAC_OSX_TCL /* MACOSX */
342 void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 0 */
343 int (*tclpCloseFile) (TclFile file); /* 1 */
344 Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 2 */
345 int (*tclpCreatePipe) (TclFile *readPipe, TclFile *writePipe); /* 3 */
346 int (*tclpCreateProcess) (Tcl_Interp *interp, int argc, const char **argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr); /* 4 */
347 int (*tclUnixWaitForFile_) (int fd, int mask, int timeout); /* 5 */
348 TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */
349 TclFile (*tclpOpenFile) (const char *fname, int mode); /* 7 */
350 int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */
351 TclFile (*tclpCreateTempFile) (const char *contents); /* 9 */
352 Tcl_DirEntry * (*tclpReaddir) (TclDIR *dir); /* 10 */
353 struct tm * (*tclpLocaltime_unix) (const time_t *clock); /* 11 */
354 struct tm * (*tclpGmtime_unix) (const time_t *clock); /* 12 */
355 char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */
356 int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */
357 int (*tclMacOSXGetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj **attributePtrPtr); /* 15 */
358 int (*tclMacOSXSetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj *attributePtr); /* 16 */
359 int (*tclMacOSXCopyFileAttributes) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr); /* 17 */
360 int (*tclMacOSXMatchType) (Tcl_Interp *interp, const char *pathName, const char *fileName, Tcl_StatBuf *statBufPtr, Tcl_GlobTypeData *types); /* 18 */
361 void (*tclMacOSXNotifierAddRunLoopMode) (const void *runLoopMode); /* 19 */
362 void (*reserved20)(void);
363 void (*reserved21)(void);
364 TclFile (*tclpCreateTempFile_) (const char *contents); /* 22 */
365 void (*reserved23)(void);
366 void (*reserved24)(void);
367 void (*reserved25)(void);
368 void (*reserved26)(void);
369 void (*reserved27)(void);
370 void (*reserved28)(void);
371 int (*tclWinCPUID) (unsigned int index, unsigned int *regs); /* 29 */
372 int (*tclUnixOpenTemporaryFile) (Tcl_Obj *dirObj, Tcl_Obj *basenameObj, Tcl_Obj *extensionObj, Tcl_Obj *resultingNameObj); /* 30 */
373 #endif /* MACOSX */
374 } TclIntPlatStubs;
375
376 extern const TclIntPlatStubs *tclIntPlatStubsPtr;
377
378 #ifdef __cplusplus
379 }
380 #endif
381
382 #if defined(USE_TCL_STUBS)
383
384 /*
385 * Inline function declarations:
386 */
387
388 #if !defined(_WIN32) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */
389 #define TclGetAndDetachPids \
390 (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */
391 #define TclpCloseFile \
392 (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */
393 #define TclpCreateCommandChannel \
394 (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */
395 #define TclpCreatePipe \
396 (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */
397 #define TclpCreateProcess \
398 (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */
399 #define TclUnixWaitForFile_ \
400 (tclIntPlatStubsPtr->tclUnixWaitForFile_) /* 5 */
401 #define TclpMakeFile \
402 (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */
403 #define TclpOpenFile \
404 (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */
405 #define TclUnixWaitForFile \
406 (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */
407 #define TclpCreateTempFile \
408 (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */
409 #define TclpReaddir \
410 (tclIntPlatStubsPtr->tclpReaddir) /* 10 */
411 #define TclpLocaltime_unix \
412 (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */
413 #define TclpGmtime_unix \
414 (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */
415 #define TclpInetNtoa \
416 (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */
417 #define TclUnixCopyFile \
418 (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */
419 #define TclMacOSXGetFileAttribute \
420 (tclIntPlatStubsPtr->tclMacOSXGetFileAttribute) /* 15 */
421 #define TclMacOSXSetFileAttribute \
422 (tclIntPlatStubsPtr->tclMacOSXSetFileAttribute) /* 16 */
423 #define TclMacOSXCopyFileAttributes \
424 (tclIntPlatStubsPtr->tclMacOSXCopyFileAttributes) /* 17 */
425 #define TclMacOSXMatchType \
426 (tclIntPlatStubsPtr->tclMacOSXMatchType) /* 18 */
427 #define TclMacOSXNotifierAddRunLoopMode \
428 (tclIntPlatStubsPtr->tclMacOSXNotifierAddRunLoopMode) /* 19 */
429 /* Slot 20 is reserved */
430 /* Slot 21 is reserved */
431 #define TclpCreateTempFile_ \
432 (tclIntPlatStubsPtr->tclpCreateTempFile_) /* 22 */
433 /* Slot 23 is reserved */
434 /* Slot 24 is reserved */
435 /* Slot 25 is reserved */
436 /* Slot 26 is reserved */
437 /* Slot 27 is reserved */
438 /* Slot 28 is reserved */
439 #define TclWinCPUID \
440 (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */
441 #define TclUnixOpenTemporaryFile \
442 (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */
443 #endif /* UNIX */
444 #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
445 #define TclWinConvertError \
446 (tclIntPlatStubsPtr->tclWinConvertError) /* 0 */
447 #define TclWinConvertWSAError \
448 (tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */
449 #define TclWinGetServByName \
450 (tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */
451 #define TclWinGetSockOpt \
452 (tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */
453 #define TclWinGetTclInstance \
454 (tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */
455 #define TclUnixWaitForFile \
456 (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 5 */
457 #define TclWinNToHS \
458 (tclIntPlatStubsPtr->tclWinNToHS) /* 6 */
459 #define TclWinSetSockOpt \
460 (tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */
461 #define TclpGetPid \
462 (tclIntPlatStubsPtr->tclpGetPid) /* 8 */
463 #define TclWinGetPlatformId \
464 (tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */
465 #define TclpReaddir \
466 (tclIntPlatStubsPtr->tclpReaddir) /* 10 */
467 #define TclGetAndDetachPids \
468 (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */
469 #define TclpCloseFile \
470 (tclIntPlatStubsPtr->tclpCloseFile) /* 12 */
471 #define TclpCreateCommandChannel \
472 (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */
473 #define TclpCreatePipe \
474 (tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */
475 #define TclpCreateProcess \
476 (tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */
477 #define TclpIsAtty \
478 (tclIntPlatStubsPtr->tclpIsAtty) /* 16 */
479 #define TclUnixCopyFile \
480 (tclIntPlatStubsPtr->tclUnixCopyFile) /* 17 */
481 #define TclpMakeFile \
482 (tclIntPlatStubsPtr->tclpMakeFile) /* 18 */
483 #define TclpOpenFile \
484 (tclIntPlatStubsPtr->tclpOpenFile) /* 19 */
485 #define TclWinAddProcess \
486 (tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */
487 #define TclpInetNtoa \
488 (tclIntPlatStubsPtr->tclpInetNtoa) /* 21 */
489 #define TclpCreateTempFile \
490 (tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */
491 /* Slot 23 is reserved */
492 #define TclWinNoBackslash \
493 (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */
494 /* Slot 25 is reserved */
495 #define TclWinSetInterfaces \
496 (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */
497 #define TclWinFlushDirtyChannels \
498 (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */
499 #define TclWinResetInterfaces \
500 (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */
501 #define TclWinCPUID \
502 (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */
503 #define TclUnixOpenTemporaryFile \
504 (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */
505 #endif /* WIN */
506 #ifdef MAC_OSX_TCL /* MACOSX */
507 #define TclGetAndDetachPids \
508 (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */
509 #define TclpCloseFile \
510 (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */
511 #define TclpCreateCommandChannel \
512 (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */
513 #define TclpCreatePipe \
514 (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */
515 #define TclpCreateProcess \
516 (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */
517 #define TclUnixWaitForFile_ \
518 (tclIntPlatStubsPtr->tclUnixWaitForFile_) /* 5 */
519 #define TclpMakeFile \
520 (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */
521 #define TclpOpenFile \
522 (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */
523 #define TclUnixWaitForFile \
524 (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */
525 #define TclpCreateTempFile \
526 (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */
527 #define TclpReaddir \
528 (tclIntPlatStubsPtr->tclpReaddir) /* 10 */
529 #define TclpLocaltime_unix \
530 (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */
531 #define TclpGmtime_unix \
532 (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */
533 #define TclpInetNtoa \
534 (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */
535 #define TclUnixCopyFile \
536 (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */
537 #define TclMacOSXGetFileAttribute \
538 (tclIntPlatStubsPtr->tclMacOSXGetFileAttribute) /* 15 */
539 #define TclMacOSXSetFileAttribute \
540 (tclIntPlatStubsPtr->tclMacOSXSetFileAttribute) /* 16 */
541 #define TclMacOSXCopyFileAttributes \
542 (tclIntPlatStubsPtr->tclMacOSXCopyFileAttributes) /* 17 */
543 #define TclMacOSXMatchType \
544 (tclIntPlatStubsPtr->tclMacOSXMatchType) /* 18 */
545 #define TclMacOSXNotifierAddRunLoopMode \
546 (tclIntPlatStubsPtr->tclMacOSXNotifierAddRunLoopMode) /* 19 */
547 /* Slot 20 is reserved */
548 /* Slot 21 is reserved */
549 #define TclpCreateTempFile_ \
550 (tclIntPlatStubsPtr->tclpCreateTempFile_) /* 22 */
551 /* Slot 23 is reserved */
552 /* Slot 24 is reserved */
553 /* Slot 25 is reserved */
554 /* Slot 26 is reserved */
555 /* Slot 27 is reserved */
556 /* Slot 28 is reserved */
557 #define TclWinCPUID \
558 (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */
559 #define TclUnixOpenTemporaryFile \
560 (tclIntPlatStubsPtr->tclUnixOpenTemporaryFile) /* 30 */
561 #endif /* MACOSX */
562
563 #endif /* defined(USE_TCL_STUBS) */
564
565 /* !END!: Do not edit above this line. */
566
567 #undef TCL_STORAGE_CLASS
568 #define TCL_STORAGE_CLASS DLLIMPORT
569 #undef TclpLocaltime_unix
570 #undef TclpGmtime_unix
571 #undef TclWinConvertWSAError
572 #define TclWinConvertWSAError TclWinConvertError
573 #undef TclpInetNtoa
574 #define TclpInetNtoa inet_ntoa
575
576 #undef TclpCreateTempFile_
577 #undef TclUnixWaitForFile_
578 #ifndef MAC_OSX_TCL /* not accessable on Win32/UNIX */
579 #undef TclMacOSXGetFileAttribute /* 15 */
580 #undef TclMacOSXSetFileAttribute /* 16 */
581 #undef TclMacOSXCopyFileAttributes /* 17 */
582 #undef TclMacOSXMatchType /* 18 */
583 #undef TclMacOSXNotifierAddRunLoopMode /* 19 */
584 #endif
585
586 #if defined(_WIN32)
587 # undef TclWinNToHS
588 # undef TclWinGetServByName
589 # undef TclWinGetSockOpt
590 # undef TclWinSetSockOpt
591 # define TclWinNToHS ntohs
592 # define TclWinGetServByName getservbyname
593 # define TclWinGetSockOpt getsockopt
594 # define TclWinSetSockOpt setsockopt
595 #else
596 # undef TclpGetPid
597 # define TclpGetPid(pid) ((unsigned long) (pid))
598 #endif
599
600 #endif /* _TCLINTPLATDECLS */