tclIntPlatDecls.h 23 KB

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