[25] | 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 */ |
---|