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 | * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.32 2007/12/13 15:23:18 dgp Exp $ |
---|
13 | */ |
---|
14 | |
---|
15 | #ifndef _TCLINTPLATDECLS |
---|
16 | #define _TCLINTPLATDECLS |
---|
17 | |
---|
18 | #undef TCL_STORAGE_CLASS |
---|
19 | #ifdef BUILD_tcl |
---|
20 | # define TCL_STORAGE_CLASS DLLEXPORT |
---|
21 | #else |
---|
22 | # ifdef USE_TCL_STUBS |
---|
23 | # define TCL_STORAGE_CLASS |
---|
24 | # else |
---|
25 | # define TCL_STORAGE_CLASS DLLIMPORT |
---|
26 | # endif |
---|
27 | #endif |
---|
28 | |
---|
29 | /* |
---|
30 | * WARNING: This file is automatically generated by the tools/genStubs.tcl |
---|
31 | * script. Any modifications to the function declarations below should be made |
---|
32 | * in the generic/tclInt.decls script. |
---|
33 | */ |
---|
34 | |
---|
35 | /* !BEGIN!: Do not edit below this line. */ |
---|
36 | |
---|
37 | /* |
---|
38 | * Exported function declarations: |
---|
39 | */ |
---|
40 | |
---|
41 | #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ |
---|
42 | #ifndef TclGetAndDetachPids_TCL_DECLARED |
---|
43 | #define TclGetAndDetachPids_TCL_DECLARED |
---|
44 | /* 0 */ |
---|
45 | EXTERN void TclGetAndDetachPids (Tcl_Interp * interp, |
---|
46 | Tcl_Channel chan); |
---|
47 | #endif |
---|
48 | #ifndef TclpCloseFile_TCL_DECLARED |
---|
49 | #define TclpCloseFile_TCL_DECLARED |
---|
50 | /* 1 */ |
---|
51 | EXTERN int TclpCloseFile (TclFile file); |
---|
52 | #endif |
---|
53 | #ifndef TclpCreateCommandChannel_TCL_DECLARED |
---|
54 | #define TclpCreateCommandChannel_TCL_DECLARED |
---|
55 | /* 2 */ |
---|
56 | EXTERN Tcl_Channel TclpCreateCommandChannel (TclFile readFile, |
---|
57 | TclFile writeFile, TclFile errorFile, |
---|
58 | int numPids, Tcl_Pid * pidPtr); |
---|
59 | #endif |
---|
60 | #ifndef TclpCreatePipe_TCL_DECLARED |
---|
61 | #define TclpCreatePipe_TCL_DECLARED |
---|
62 | /* 3 */ |
---|
63 | EXTERN int TclpCreatePipe (TclFile * readPipe, |
---|
64 | TclFile * writePipe); |
---|
65 | #endif |
---|
66 | #ifndef TclpCreateProcess_TCL_DECLARED |
---|
67 | #define TclpCreateProcess_TCL_DECLARED |
---|
68 | /* 4 */ |
---|
69 | EXTERN int TclpCreateProcess (Tcl_Interp * interp, int argc, |
---|
70 | CONST char ** argv, TclFile inputFile, |
---|
71 | TclFile outputFile, TclFile errorFile, |
---|
72 | Tcl_Pid * pidPtr); |
---|
73 | #endif |
---|
74 | /* Slot 5 is reserved */ |
---|
75 | #ifndef TclpMakeFile_TCL_DECLARED |
---|
76 | #define TclpMakeFile_TCL_DECLARED |
---|
77 | /* 6 */ |
---|
78 | EXTERN TclFile TclpMakeFile (Tcl_Channel channel, int direction); |
---|
79 | #endif |
---|
80 | #ifndef TclpOpenFile_TCL_DECLARED |
---|
81 | #define TclpOpenFile_TCL_DECLARED |
---|
82 | /* 7 */ |
---|
83 | EXTERN TclFile TclpOpenFile (CONST char * fname, int mode); |
---|
84 | #endif |
---|
85 | #ifndef TclUnixWaitForFile_TCL_DECLARED |
---|
86 | #define TclUnixWaitForFile_TCL_DECLARED |
---|
87 | /* 8 */ |
---|
88 | EXTERN int TclUnixWaitForFile (int fd, int mask, int timeout); |
---|
89 | #endif |
---|
90 | #ifndef TclpCreateTempFile_TCL_DECLARED |
---|
91 | #define TclpCreateTempFile_TCL_DECLARED |
---|
92 | /* 9 */ |
---|
93 | EXTERN TclFile TclpCreateTempFile (CONST char * contents); |
---|
94 | #endif |
---|
95 | #ifndef TclpReaddir_TCL_DECLARED |
---|
96 | #define TclpReaddir_TCL_DECLARED |
---|
97 | /* 10 */ |
---|
98 | EXTERN Tcl_DirEntry * TclpReaddir (DIR * dir); |
---|
99 | #endif |
---|
100 | #ifndef TclpLocaltime_unix_TCL_DECLARED |
---|
101 | #define TclpLocaltime_unix_TCL_DECLARED |
---|
102 | /* 11 */ |
---|
103 | EXTERN struct tm * TclpLocaltime_unix (CONST time_t * clock); |
---|
104 | #endif |
---|
105 | #ifndef TclpGmtime_unix_TCL_DECLARED |
---|
106 | #define TclpGmtime_unix_TCL_DECLARED |
---|
107 | /* 12 */ |
---|
108 | EXTERN struct tm * TclpGmtime_unix (CONST time_t * clock); |
---|
109 | #endif |
---|
110 | #ifndef TclpInetNtoa_TCL_DECLARED |
---|
111 | #define TclpInetNtoa_TCL_DECLARED |
---|
112 | /* 13 */ |
---|
113 | EXTERN char * TclpInetNtoa (struct in_addr addr); |
---|
114 | #endif |
---|
115 | #ifndef TclUnixCopyFile_TCL_DECLARED |
---|
116 | #define TclUnixCopyFile_TCL_DECLARED |
---|
117 | /* 14 */ |
---|
118 | EXTERN int TclUnixCopyFile (CONST char * src, CONST char * dst, |
---|
119 | CONST Tcl_StatBuf * statBufPtr, |
---|
120 | int dontCopyAtts); |
---|
121 | #endif |
---|
122 | #endif /* UNIX */ |
---|
123 | #ifdef __WIN32__ /* WIN */ |
---|
124 | #ifndef TclWinConvertError_TCL_DECLARED |
---|
125 | #define TclWinConvertError_TCL_DECLARED |
---|
126 | /* 0 */ |
---|
127 | EXTERN void TclWinConvertError (DWORD errCode); |
---|
128 | #endif |
---|
129 | #ifndef TclWinConvertWSAError_TCL_DECLARED |
---|
130 | #define TclWinConvertWSAError_TCL_DECLARED |
---|
131 | /* 1 */ |
---|
132 | EXTERN void TclWinConvertWSAError (DWORD errCode); |
---|
133 | #endif |
---|
134 | #ifndef TclWinGetServByName_TCL_DECLARED |
---|
135 | #define TclWinGetServByName_TCL_DECLARED |
---|
136 | /* 2 */ |
---|
137 | EXTERN struct servent * TclWinGetServByName (CONST char * nm, |
---|
138 | CONST char * proto); |
---|
139 | #endif |
---|
140 | #ifndef TclWinGetSockOpt_TCL_DECLARED |
---|
141 | #define TclWinGetSockOpt_TCL_DECLARED |
---|
142 | /* 3 */ |
---|
143 | EXTERN int TclWinGetSockOpt (int s, int level, int optname, |
---|
144 | char FAR * optval, int FAR * optlen); |
---|
145 | #endif |
---|
146 | #ifndef TclWinGetTclInstance_TCL_DECLARED |
---|
147 | #define TclWinGetTclInstance_TCL_DECLARED |
---|
148 | /* 4 */ |
---|
149 | EXTERN HINSTANCE TclWinGetTclInstance (void); |
---|
150 | #endif |
---|
151 | /* Slot 5 is reserved */ |
---|
152 | #ifndef TclWinNToHS_TCL_DECLARED |
---|
153 | #define TclWinNToHS_TCL_DECLARED |
---|
154 | /* 6 */ |
---|
155 | EXTERN u_short TclWinNToHS (u_short ns); |
---|
156 | #endif |
---|
157 | #ifndef TclWinSetSockOpt_TCL_DECLARED |
---|
158 | #define TclWinSetSockOpt_TCL_DECLARED |
---|
159 | /* 7 */ |
---|
160 | EXTERN int TclWinSetSockOpt (int s, int level, int optname, |
---|
161 | CONST char FAR * optval, int optlen); |
---|
162 | #endif |
---|
163 | #ifndef TclpGetPid_TCL_DECLARED |
---|
164 | #define TclpGetPid_TCL_DECLARED |
---|
165 | /* 8 */ |
---|
166 | EXTERN unsigned long TclpGetPid (Tcl_Pid pid); |
---|
167 | #endif |
---|
168 | #ifndef TclWinGetPlatformId_TCL_DECLARED |
---|
169 | #define TclWinGetPlatformId_TCL_DECLARED |
---|
170 | /* 9 */ |
---|
171 | EXTERN int TclWinGetPlatformId (void); |
---|
172 | #endif |
---|
173 | /* Slot 10 is reserved */ |
---|
174 | #ifndef TclGetAndDetachPids_TCL_DECLARED |
---|
175 | #define TclGetAndDetachPids_TCL_DECLARED |
---|
176 | /* 11 */ |
---|
177 | EXTERN void TclGetAndDetachPids (Tcl_Interp * interp, |
---|
178 | Tcl_Channel chan); |
---|
179 | #endif |
---|
180 | #ifndef TclpCloseFile_TCL_DECLARED |
---|
181 | #define TclpCloseFile_TCL_DECLARED |
---|
182 | /* 12 */ |
---|
183 | EXTERN int TclpCloseFile (TclFile file); |
---|
184 | #endif |
---|
185 | #ifndef TclpCreateCommandChannel_TCL_DECLARED |
---|
186 | #define TclpCreateCommandChannel_TCL_DECLARED |
---|
187 | /* 13 */ |
---|
188 | EXTERN Tcl_Channel TclpCreateCommandChannel (TclFile readFile, |
---|
189 | TclFile writeFile, TclFile errorFile, |
---|
190 | int numPids, Tcl_Pid * pidPtr); |
---|
191 | #endif |
---|
192 | #ifndef TclpCreatePipe_TCL_DECLARED |
---|
193 | #define TclpCreatePipe_TCL_DECLARED |
---|
194 | /* 14 */ |
---|
195 | EXTERN int TclpCreatePipe (TclFile * readPipe, |
---|
196 | TclFile * writePipe); |
---|
197 | #endif |
---|
198 | #ifndef TclpCreateProcess_TCL_DECLARED |
---|
199 | #define TclpCreateProcess_TCL_DECLARED |
---|
200 | /* 15 */ |
---|
201 | EXTERN int TclpCreateProcess (Tcl_Interp * interp, int argc, |
---|
202 | CONST char ** argv, TclFile inputFile, |
---|
203 | TclFile outputFile, TclFile errorFile, |
---|
204 | Tcl_Pid * pidPtr); |
---|
205 | #endif |
---|
206 | /* Slot 16 is reserved */ |
---|
207 | /* Slot 17 is reserved */ |
---|
208 | #ifndef TclpMakeFile_TCL_DECLARED |
---|
209 | #define TclpMakeFile_TCL_DECLARED |
---|
210 | /* 18 */ |
---|
211 | EXTERN TclFile TclpMakeFile (Tcl_Channel channel, int direction); |
---|
212 | #endif |
---|
213 | #ifndef TclpOpenFile_TCL_DECLARED |
---|
214 | #define TclpOpenFile_TCL_DECLARED |
---|
215 | /* 19 */ |
---|
216 | EXTERN TclFile TclpOpenFile (CONST char * fname, int mode); |
---|
217 | #endif |
---|
218 | #ifndef TclWinAddProcess_TCL_DECLARED |
---|
219 | #define TclWinAddProcess_TCL_DECLARED |
---|
220 | /* 20 */ |
---|
221 | EXTERN void TclWinAddProcess (HANDLE hProcess, DWORD id); |
---|
222 | #endif |
---|
223 | /* Slot 21 is reserved */ |
---|
224 | #ifndef TclpCreateTempFile_TCL_DECLARED |
---|
225 | #define TclpCreateTempFile_TCL_DECLARED |
---|
226 | /* 22 */ |
---|
227 | EXTERN TclFile TclpCreateTempFile (CONST char * contents); |
---|
228 | #endif |
---|
229 | #ifndef TclpGetTZName_TCL_DECLARED |
---|
230 | #define TclpGetTZName_TCL_DECLARED |
---|
231 | /* 23 */ |
---|
232 | EXTERN char * TclpGetTZName (int isdst); |
---|
233 | #endif |
---|
234 | #ifndef TclWinNoBackslash_TCL_DECLARED |
---|
235 | #define TclWinNoBackslash_TCL_DECLARED |
---|
236 | /* 24 */ |
---|
237 | EXTERN char * TclWinNoBackslash (char * path); |
---|
238 | #endif |
---|
239 | /* Slot 25 is reserved */ |
---|
240 | #ifndef TclWinSetInterfaces_TCL_DECLARED |
---|
241 | #define TclWinSetInterfaces_TCL_DECLARED |
---|
242 | /* 26 */ |
---|
243 | EXTERN void TclWinSetInterfaces (int wide); |
---|
244 | #endif |
---|
245 | #ifndef TclWinFlushDirtyChannels_TCL_DECLARED |
---|
246 | #define TclWinFlushDirtyChannels_TCL_DECLARED |
---|
247 | /* 27 */ |
---|
248 | EXTERN void TclWinFlushDirtyChannels (void); |
---|
249 | #endif |
---|
250 | #ifndef TclWinResetInterfaces_TCL_DECLARED |
---|
251 | #define TclWinResetInterfaces_TCL_DECLARED |
---|
252 | /* 28 */ |
---|
253 | EXTERN void TclWinResetInterfaces (void); |
---|
254 | #endif |
---|
255 | #ifndef TclWinCPUID_TCL_DECLARED |
---|
256 | #define TclWinCPUID_TCL_DECLARED |
---|
257 | /* 29 */ |
---|
258 | EXTERN int TclWinCPUID (unsigned int index, unsigned int * regs); |
---|
259 | #endif |
---|
260 | #endif /* WIN */ |
---|
261 | #ifdef MAC_OSX_TCL /* MACOSX */ |
---|
262 | #ifndef TclGetAndDetachPids_TCL_DECLARED |
---|
263 | #define TclGetAndDetachPids_TCL_DECLARED |
---|
264 | /* 0 */ |
---|
265 | EXTERN void TclGetAndDetachPids (Tcl_Interp * interp, |
---|
266 | Tcl_Channel chan); |
---|
267 | #endif |
---|
268 | #ifndef TclpCloseFile_TCL_DECLARED |
---|
269 | #define TclpCloseFile_TCL_DECLARED |
---|
270 | /* 1 */ |
---|
271 | EXTERN int TclpCloseFile (TclFile file); |
---|
272 | #endif |
---|
273 | #ifndef TclpCreateCommandChannel_TCL_DECLARED |
---|
274 | #define TclpCreateCommandChannel_TCL_DECLARED |
---|
275 | /* 2 */ |
---|
276 | EXTERN Tcl_Channel TclpCreateCommandChannel (TclFile readFile, |
---|
277 | TclFile writeFile, TclFile errorFile, |
---|
278 | int numPids, Tcl_Pid * pidPtr); |
---|
279 | #endif |
---|
280 | #ifndef TclpCreatePipe_TCL_DECLARED |
---|
281 | #define TclpCreatePipe_TCL_DECLARED |
---|
282 | /* 3 */ |
---|
283 | EXTERN int TclpCreatePipe (TclFile * readPipe, |
---|
284 | TclFile * writePipe); |
---|
285 | #endif |
---|
286 | #ifndef TclpCreateProcess_TCL_DECLARED |
---|
287 | #define TclpCreateProcess_TCL_DECLARED |
---|
288 | /* 4 */ |
---|
289 | EXTERN int TclpCreateProcess (Tcl_Interp * interp, int argc, |
---|
290 | CONST char ** argv, TclFile inputFile, |
---|
291 | TclFile outputFile, TclFile errorFile, |
---|
292 | Tcl_Pid * pidPtr); |
---|
293 | #endif |
---|
294 | /* Slot 5 is reserved */ |
---|
295 | #ifndef TclpMakeFile_TCL_DECLARED |
---|
296 | #define TclpMakeFile_TCL_DECLARED |
---|
297 | /* 6 */ |
---|
298 | EXTERN TclFile TclpMakeFile (Tcl_Channel channel, int direction); |
---|
299 | #endif |
---|
300 | #ifndef TclpOpenFile_TCL_DECLARED |
---|
301 | #define TclpOpenFile_TCL_DECLARED |
---|
302 | /* 7 */ |
---|
303 | EXTERN TclFile TclpOpenFile (CONST char * fname, int mode); |
---|
304 | #endif |
---|
305 | #ifndef TclUnixWaitForFile_TCL_DECLARED |
---|
306 | #define TclUnixWaitForFile_TCL_DECLARED |
---|
307 | /* 8 */ |
---|
308 | EXTERN int TclUnixWaitForFile (int fd, int mask, int timeout); |
---|
309 | #endif |
---|
310 | #ifndef TclpCreateTempFile_TCL_DECLARED |
---|
311 | #define TclpCreateTempFile_TCL_DECLARED |
---|
312 | /* 9 */ |
---|
313 | EXTERN TclFile TclpCreateTempFile (CONST char * contents); |
---|
314 | #endif |
---|
315 | #ifndef TclpReaddir_TCL_DECLARED |
---|
316 | #define TclpReaddir_TCL_DECLARED |
---|
317 | /* 10 */ |
---|
318 | EXTERN Tcl_DirEntry * TclpReaddir (DIR * dir); |
---|
319 | #endif |
---|
320 | #ifndef TclpLocaltime_unix_TCL_DECLARED |
---|
321 | #define TclpLocaltime_unix_TCL_DECLARED |
---|
322 | /* 11 */ |
---|
323 | EXTERN struct tm * TclpLocaltime_unix (CONST time_t * clock); |
---|
324 | #endif |
---|
325 | #ifndef TclpGmtime_unix_TCL_DECLARED |
---|
326 | #define TclpGmtime_unix_TCL_DECLARED |
---|
327 | /* 12 */ |
---|
328 | EXTERN struct tm * TclpGmtime_unix (CONST time_t * clock); |
---|
329 | #endif |
---|
330 | #ifndef TclpInetNtoa_TCL_DECLARED |
---|
331 | #define TclpInetNtoa_TCL_DECLARED |
---|
332 | /* 13 */ |
---|
333 | EXTERN char * TclpInetNtoa (struct in_addr addr); |
---|
334 | #endif |
---|
335 | #ifndef TclUnixCopyFile_TCL_DECLARED |
---|
336 | #define TclUnixCopyFile_TCL_DECLARED |
---|
337 | /* 14 */ |
---|
338 | EXTERN int TclUnixCopyFile (CONST char * src, CONST char * dst, |
---|
339 | CONST Tcl_StatBuf * statBufPtr, |
---|
340 | int dontCopyAtts); |
---|
341 | #endif |
---|
342 | #ifndef TclMacOSXGetFileAttribute_TCL_DECLARED |
---|
343 | #define TclMacOSXGetFileAttribute_TCL_DECLARED |
---|
344 | /* 15 */ |
---|
345 | EXTERN int TclMacOSXGetFileAttribute (Tcl_Interp * interp, |
---|
346 | int objIndex, Tcl_Obj * fileName, |
---|
347 | Tcl_Obj ** attributePtrPtr); |
---|
348 | #endif |
---|
349 | #ifndef TclMacOSXSetFileAttribute_TCL_DECLARED |
---|
350 | #define TclMacOSXSetFileAttribute_TCL_DECLARED |
---|
351 | /* 16 */ |
---|
352 | EXTERN int TclMacOSXSetFileAttribute (Tcl_Interp * interp, |
---|
353 | int objIndex, Tcl_Obj * fileName, |
---|
354 | Tcl_Obj * attributePtr); |
---|
355 | #endif |
---|
356 | #ifndef TclMacOSXCopyFileAttributes_TCL_DECLARED |
---|
357 | #define TclMacOSXCopyFileAttributes_TCL_DECLARED |
---|
358 | /* 17 */ |
---|
359 | EXTERN int TclMacOSXCopyFileAttributes (CONST char * src, |
---|
360 | CONST char * dst, |
---|
361 | CONST Tcl_StatBuf * statBufPtr); |
---|
362 | #endif |
---|
363 | #ifndef TclMacOSXMatchType_TCL_DECLARED |
---|
364 | #define TclMacOSXMatchType_TCL_DECLARED |
---|
365 | /* 18 */ |
---|
366 | EXTERN int TclMacOSXMatchType (Tcl_Interp * interp, |
---|
367 | CONST char * pathName, CONST char * fileName, |
---|
368 | Tcl_StatBuf * statBufPtr, |
---|
369 | Tcl_GlobTypeData * types); |
---|
370 | #endif |
---|
371 | #endif /* MACOSX */ |
---|
372 | |
---|
373 | typedef struct TclIntPlatStubs { |
---|
374 | int magic; |
---|
375 | struct TclIntPlatStubHooks *hooks; |
---|
376 | |
---|
377 | #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ |
---|
378 | void (*tclGetAndDetachPids) (Tcl_Interp * interp, Tcl_Channel chan); /* 0 */ |
---|
379 | int (*tclpCloseFile) (TclFile file); /* 1 */ |
---|
380 | Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr); /* 2 */ |
---|
381 | int (*tclpCreatePipe) (TclFile * readPipe, TclFile * writePipe); /* 3 */ |
---|
382 | int (*tclpCreateProcess) (Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr); /* 4 */ |
---|
383 | void *reserved5; |
---|
384 | TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */ |
---|
385 | TclFile (*tclpOpenFile) (CONST char * fname, int mode); /* 7 */ |
---|
386 | int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */ |
---|
387 | TclFile (*tclpCreateTempFile) (CONST char * contents); /* 9 */ |
---|
388 | Tcl_DirEntry * (*tclpReaddir) (DIR * dir); /* 10 */ |
---|
389 | struct tm * (*tclpLocaltime_unix) (CONST time_t * clock); /* 11 */ |
---|
390 | struct tm * (*tclpGmtime_unix) (CONST time_t * clock); /* 12 */ |
---|
391 | char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */ |
---|
392 | int (*tclUnixCopyFile) (CONST char * src, CONST char * dst, CONST Tcl_StatBuf * statBufPtr, int dontCopyAtts); /* 14 */ |
---|
393 | #endif /* UNIX */ |
---|
394 | #ifdef __WIN32__ /* WIN */ |
---|
395 | void (*tclWinConvertError) (DWORD errCode); /* 0 */ |
---|
396 | void (*tclWinConvertWSAError) (DWORD errCode); /* 1 */ |
---|
397 | struct servent * (*tclWinGetServByName) (CONST char * nm, CONST char * proto); /* 2 */ |
---|
398 | int (*tclWinGetSockOpt) (int s, int level, int optname, char FAR * optval, int FAR * optlen); /* 3 */ |
---|
399 | HINSTANCE (*tclWinGetTclInstance) (void); /* 4 */ |
---|
400 | void *reserved5; |
---|
401 | u_short (*tclWinNToHS) (u_short ns); /* 6 */ |
---|
402 | int (*tclWinSetSockOpt) (int s, int level, int optname, CONST char FAR * optval, int optlen); /* 7 */ |
---|
403 | unsigned long (*tclpGetPid) (Tcl_Pid pid); /* 8 */ |
---|
404 | int (*tclWinGetPlatformId) (void); /* 9 */ |
---|
405 | void *reserved10; |
---|
406 | void (*tclGetAndDetachPids) (Tcl_Interp * interp, Tcl_Channel chan); /* 11 */ |
---|
407 | int (*tclpCloseFile) (TclFile file); /* 12 */ |
---|
408 | Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr); /* 13 */ |
---|
409 | int (*tclpCreatePipe) (TclFile * readPipe, TclFile * writePipe); /* 14 */ |
---|
410 | int (*tclpCreateProcess) (Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr); /* 15 */ |
---|
411 | void *reserved16; |
---|
412 | void *reserved17; |
---|
413 | TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 18 */ |
---|
414 | TclFile (*tclpOpenFile) (CONST char * fname, int mode); /* 19 */ |
---|
415 | void (*tclWinAddProcess) (HANDLE hProcess, DWORD id); /* 20 */ |
---|
416 | void *reserved21; |
---|
417 | TclFile (*tclpCreateTempFile) (CONST char * contents); /* 22 */ |
---|
418 | char * (*tclpGetTZName) (int isdst); /* 23 */ |
---|
419 | char * (*tclWinNoBackslash) (char * path); /* 24 */ |
---|
420 | void *reserved25; |
---|
421 | void (*tclWinSetInterfaces) (int wide); /* 26 */ |
---|
422 | void (*tclWinFlushDirtyChannels) (void); /* 27 */ |
---|
423 | void (*tclWinResetInterfaces) (void); /* 28 */ |
---|
424 | int (*tclWinCPUID) (unsigned int index, unsigned int * regs); /* 29 */ |
---|
425 | #endif /* WIN */ |
---|
426 | #ifdef MAC_OSX_TCL /* MACOSX */ |
---|
427 | void (*tclGetAndDetachPids) (Tcl_Interp * interp, Tcl_Channel chan); /* 0 */ |
---|
428 | int (*tclpCloseFile) (TclFile file); /* 1 */ |
---|
429 | Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr); /* 2 */ |
---|
430 | int (*tclpCreatePipe) (TclFile * readPipe, TclFile * writePipe); /* 3 */ |
---|
431 | int (*tclpCreateProcess) (Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr); /* 4 */ |
---|
432 | void *reserved5; |
---|
433 | TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 6 */ |
---|
434 | TclFile (*tclpOpenFile) (CONST char * fname, int mode); /* 7 */ |
---|
435 | int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */ |
---|
436 | TclFile (*tclpCreateTempFile) (CONST char * contents); /* 9 */ |
---|
437 | Tcl_DirEntry * (*tclpReaddir) (DIR * dir); /* 10 */ |
---|
438 | struct tm * (*tclpLocaltime_unix) (CONST time_t * clock); /* 11 */ |
---|
439 | struct tm * (*tclpGmtime_unix) (CONST time_t * clock); /* 12 */ |
---|
440 | char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */ |
---|
441 | int (*tclUnixCopyFile) (CONST char * src, CONST char * dst, CONST Tcl_StatBuf * statBufPtr, int dontCopyAtts); /* 14 */ |
---|
442 | int (*tclMacOSXGetFileAttribute) (Tcl_Interp * interp, int objIndex, Tcl_Obj * fileName, Tcl_Obj ** attributePtrPtr); /* 15 */ |
---|
443 | int (*tclMacOSXSetFileAttribute) (Tcl_Interp * interp, int objIndex, Tcl_Obj * fileName, Tcl_Obj * attributePtr); /* 16 */ |
---|
444 | int (*tclMacOSXCopyFileAttributes) (CONST char * src, CONST char * dst, CONST Tcl_StatBuf * statBufPtr); /* 17 */ |
---|
445 | int (*tclMacOSXMatchType) (Tcl_Interp * interp, CONST char * pathName, CONST char * fileName, Tcl_StatBuf * statBufPtr, Tcl_GlobTypeData * types); /* 18 */ |
---|
446 | #endif /* MACOSX */ |
---|
447 | } TclIntPlatStubs; |
---|
448 | |
---|
449 | #ifdef __cplusplus |
---|
450 | extern "C" { |
---|
451 | #endif |
---|
452 | extern TclIntPlatStubs *tclIntPlatStubsPtr; |
---|
453 | #ifdef __cplusplus |
---|
454 | } |
---|
455 | #endif |
---|
456 | |
---|
457 | #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) |
---|
458 | |
---|
459 | /* |
---|
460 | * Inline function declarations: |
---|
461 | */ |
---|
462 | |
---|
463 | #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ |
---|
464 | #ifndef TclGetAndDetachPids |
---|
465 | #define TclGetAndDetachPids \ |
---|
466 | (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ |
---|
467 | #endif |
---|
468 | #ifndef TclpCloseFile |
---|
469 | #define TclpCloseFile \ |
---|
470 | (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ |
---|
471 | #endif |
---|
472 | #ifndef TclpCreateCommandChannel |
---|
473 | #define TclpCreateCommandChannel \ |
---|
474 | (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ |
---|
475 | #endif |
---|
476 | #ifndef TclpCreatePipe |
---|
477 | #define TclpCreatePipe \ |
---|
478 | (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ |
---|
479 | #endif |
---|
480 | #ifndef TclpCreateProcess |
---|
481 | #define TclpCreateProcess \ |
---|
482 | (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ |
---|
483 | #endif |
---|
484 | /* Slot 5 is reserved */ |
---|
485 | #ifndef TclpMakeFile |
---|
486 | #define TclpMakeFile \ |
---|
487 | (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ |
---|
488 | #endif |
---|
489 | #ifndef TclpOpenFile |
---|
490 | #define TclpOpenFile \ |
---|
491 | (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ |
---|
492 | #endif |
---|
493 | #ifndef TclUnixWaitForFile |
---|
494 | #define TclUnixWaitForFile \ |
---|
495 | (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ |
---|
496 | #endif |
---|
497 | #ifndef TclpCreateTempFile |
---|
498 | #define TclpCreateTempFile \ |
---|
499 | (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ |
---|
500 | #endif |
---|
501 | #ifndef TclpReaddir |
---|
502 | #define TclpReaddir \ |
---|
503 | (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ |
---|
504 | #endif |
---|
505 | #ifndef TclpLocaltime_unix |
---|
506 | #define TclpLocaltime_unix \ |
---|
507 | (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */ |
---|
508 | #endif |
---|
509 | #ifndef TclpGmtime_unix |
---|
510 | #define TclpGmtime_unix \ |
---|
511 | (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */ |
---|
512 | #endif |
---|
513 | #ifndef TclpInetNtoa |
---|
514 | #define TclpInetNtoa \ |
---|
515 | (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */ |
---|
516 | #endif |
---|
517 | #ifndef TclUnixCopyFile |
---|
518 | #define TclUnixCopyFile \ |
---|
519 | (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */ |
---|
520 | #endif |
---|
521 | #endif /* UNIX */ |
---|
522 | #ifdef __WIN32__ /* WIN */ |
---|
523 | #ifndef TclWinConvertError |
---|
524 | #define TclWinConvertError \ |
---|
525 | (tclIntPlatStubsPtr->tclWinConvertError) /* 0 */ |
---|
526 | #endif |
---|
527 | #ifndef TclWinConvertWSAError |
---|
528 | #define TclWinConvertWSAError \ |
---|
529 | (tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */ |
---|
530 | #endif |
---|
531 | #ifndef TclWinGetServByName |
---|
532 | #define TclWinGetServByName \ |
---|
533 | (tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */ |
---|
534 | #endif |
---|
535 | #ifndef TclWinGetSockOpt |
---|
536 | #define TclWinGetSockOpt \ |
---|
537 | (tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */ |
---|
538 | #endif |
---|
539 | #ifndef TclWinGetTclInstance |
---|
540 | #define TclWinGetTclInstance \ |
---|
541 | (tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */ |
---|
542 | #endif |
---|
543 | /* Slot 5 is reserved */ |
---|
544 | #ifndef TclWinNToHS |
---|
545 | #define TclWinNToHS \ |
---|
546 | (tclIntPlatStubsPtr->tclWinNToHS) /* 6 */ |
---|
547 | #endif |
---|
548 | #ifndef TclWinSetSockOpt |
---|
549 | #define TclWinSetSockOpt \ |
---|
550 | (tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */ |
---|
551 | #endif |
---|
552 | #ifndef TclpGetPid |
---|
553 | #define TclpGetPid \ |
---|
554 | (tclIntPlatStubsPtr->tclpGetPid) /* 8 */ |
---|
555 | #endif |
---|
556 | #ifndef TclWinGetPlatformId |
---|
557 | #define TclWinGetPlatformId \ |
---|
558 | (tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */ |
---|
559 | #endif |
---|
560 | /* Slot 10 is reserved */ |
---|
561 | #ifndef TclGetAndDetachPids |
---|
562 | #define TclGetAndDetachPids \ |
---|
563 | (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */ |
---|
564 | #endif |
---|
565 | #ifndef TclpCloseFile |
---|
566 | #define TclpCloseFile \ |
---|
567 | (tclIntPlatStubsPtr->tclpCloseFile) /* 12 */ |
---|
568 | #endif |
---|
569 | #ifndef TclpCreateCommandChannel |
---|
570 | #define TclpCreateCommandChannel \ |
---|
571 | (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */ |
---|
572 | #endif |
---|
573 | #ifndef TclpCreatePipe |
---|
574 | #define TclpCreatePipe \ |
---|
575 | (tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */ |
---|
576 | #endif |
---|
577 | #ifndef TclpCreateProcess |
---|
578 | #define TclpCreateProcess \ |
---|
579 | (tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */ |
---|
580 | #endif |
---|
581 | /* Slot 16 is reserved */ |
---|
582 | /* Slot 17 is reserved */ |
---|
583 | #ifndef TclpMakeFile |
---|
584 | #define TclpMakeFile \ |
---|
585 | (tclIntPlatStubsPtr->tclpMakeFile) /* 18 */ |
---|
586 | #endif |
---|
587 | #ifndef TclpOpenFile |
---|
588 | #define TclpOpenFile \ |
---|
589 | (tclIntPlatStubsPtr->tclpOpenFile) /* 19 */ |
---|
590 | #endif |
---|
591 | #ifndef TclWinAddProcess |
---|
592 | #define TclWinAddProcess \ |
---|
593 | (tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */ |
---|
594 | #endif |
---|
595 | /* Slot 21 is reserved */ |
---|
596 | #ifndef TclpCreateTempFile |
---|
597 | #define TclpCreateTempFile \ |
---|
598 | (tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */ |
---|
599 | #endif |
---|
600 | #ifndef TclpGetTZName |
---|
601 | #define TclpGetTZName \ |
---|
602 | (tclIntPlatStubsPtr->tclpGetTZName) /* 23 */ |
---|
603 | #endif |
---|
604 | #ifndef TclWinNoBackslash |
---|
605 | #define TclWinNoBackslash \ |
---|
606 | (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */ |
---|
607 | #endif |
---|
608 | /* Slot 25 is reserved */ |
---|
609 | #ifndef TclWinSetInterfaces |
---|
610 | #define TclWinSetInterfaces \ |
---|
611 | (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */ |
---|
612 | #endif |
---|
613 | #ifndef TclWinFlushDirtyChannels |
---|
614 | #define TclWinFlushDirtyChannels \ |
---|
615 | (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */ |
---|
616 | #endif |
---|
617 | #ifndef TclWinResetInterfaces |
---|
618 | #define TclWinResetInterfaces \ |
---|
619 | (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */ |
---|
620 | #endif |
---|
621 | #ifndef TclWinCPUID |
---|
622 | #define TclWinCPUID \ |
---|
623 | (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */ |
---|
624 | #endif |
---|
625 | #endif /* WIN */ |
---|
626 | #ifdef MAC_OSX_TCL /* MACOSX */ |
---|
627 | #ifndef TclGetAndDetachPids |
---|
628 | #define TclGetAndDetachPids \ |
---|
629 | (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ |
---|
630 | #endif |
---|
631 | #ifndef TclpCloseFile |
---|
632 | #define TclpCloseFile \ |
---|
633 | (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ |
---|
634 | #endif |
---|
635 | #ifndef TclpCreateCommandChannel |
---|
636 | #define TclpCreateCommandChannel \ |
---|
637 | (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ |
---|
638 | #endif |
---|
639 | #ifndef TclpCreatePipe |
---|
640 | #define TclpCreatePipe \ |
---|
641 | (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ |
---|
642 | #endif |
---|
643 | #ifndef TclpCreateProcess |
---|
644 | #define TclpCreateProcess \ |
---|
645 | (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ |
---|
646 | #endif |
---|
647 | /* Slot 5 is reserved */ |
---|
648 | #ifndef TclpMakeFile |
---|
649 | #define TclpMakeFile \ |
---|
650 | (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ |
---|
651 | #endif |
---|
652 | #ifndef TclpOpenFile |
---|
653 | #define TclpOpenFile \ |
---|
654 | (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ |
---|
655 | #endif |
---|
656 | #ifndef TclUnixWaitForFile |
---|
657 | #define TclUnixWaitForFile \ |
---|
658 | (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ |
---|
659 | #endif |
---|
660 | #ifndef TclpCreateTempFile |
---|
661 | #define TclpCreateTempFile \ |
---|
662 | (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ |
---|
663 | #endif |
---|
664 | #ifndef TclpReaddir |
---|
665 | #define TclpReaddir \ |
---|
666 | (tclIntPlatStubsPtr->tclpReaddir) /* 10 */ |
---|
667 | #endif |
---|
668 | #ifndef TclpLocaltime_unix |
---|
669 | #define TclpLocaltime_unix \ |
---|
670 | (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */ |
---|
671 | #endif |
---|
672 | #ifndef TclpGmtime_unix |
---|
673 | #define TclpGmtime_unix \ |
---|
674 | (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */ |
---|
675 | #endif |
---|
676 | #ifndef TclpInetNtoa |
---|
677 | #define TclpInetNtoa \ |
---|
678 | (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */ |
---|
679 | #endif |
---|
680 | #ifndef TclUnixCopyFile |
---|
681 | #define TclUnixCopyFile \ |
---|
682 | (tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */ |
---|
683 | #endif |
---|
684 | #ifndef TclMacOSXGetFileAttribute |
---|
685 | #define TclMacOSXGetFileAttribute \ |
---|
686 | (tclIntPlatStubsPtr->tclMacOSXGetFileAttribute) /* 15 */ |
---|
687 | #endif |
---|
688 | #ifndef TclMacOSXSetFileAttribute |
---|
689 | #define TclMacOSXSetFileAttribute \ |
---|
690 | (tclIntPlatStubsPtr->tclMacOSXSetFileAttribute) /* 16 */ |
---|
691 | #endif |
---|
692 | #ifndef TclMacOSXCopyFileAttributes |
---|
693 | #define TclMacOSXCopyFileAttributes \ |
---|
694 | (tclIntPlatStubsPtr->tclMacOSXCopyFileAttributes) /* 17 */ |
---|
695 | #endif |
---|
696 | #ifndef TclMacOSXMatchType |
---|
697 | #define TclMacOSXMatchType \ |
---|
698 | (tclIntPlatStubsPtr->tclMacOSXMatchType) /* 18 */ |
---|
699 | #endif |
---|
700 | #endif /* MACOSX */ |
---|
701 | |
---|
702 | #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |
---|
703 | |
---|
704 | /* !END!: Do not edit above this line. */ |
---|
705 | |
---|
706 | #undef TCL_STORAGE_CLASS |
---|
707 | #define TCL_STORAGE_CLASS DLLIMPORT |
---|
708 | |
---|
709 | #endif /* _TCLINTPLATDECLS */ |
---|