开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
tclIntPlatDecls.h
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：20k
源码类别：

通讯编程

开发平台：

Visual C++

tclIntPlatDecls.h：源码内容
  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.19.2.7 2007/04/21 19:52:14 kennykb Exp $
  13.  */
  15. #ifndef _TCLINTPLATDECLS
  16. #define _TCLINTPLATDECLS
  18. /*
  19.  * WARNING: This file is automatically generated by the tools/genStubs.tcl
  20.  * script.  Any modifications to the function declarations below should be made
  21.  * in the generic/tclInt.decls script.
  22.  */
  24. /* !BEGIN!: Do not edit below this line. */
  26. /*
  27.  * Exported function declarations:
  28.  */
  30. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  31. /* 0 */
  32. EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, 
  33. Tcl_Channel chan));
  34. /* 1 */
  35. EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file));
  36. /* 2 */
  37. EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_((
  38. TclFile readFile, TclFile writeFile, 
  39. TclFile errorFile, int numPids, 
  40. Tcl_Pid * pidPtr));
  41. /* 3 */
  42. EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, 
  43. TclFile * writePipe));
  44. /* 4 */
  45. EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, 
  46. int argc, CONST char ** argv, 
  47. TclFile inputFile, TclFile outputFile, 
  48. TclFile errorFile, Tcl_Pid * pidPtr));
  49. /* Slot 5 is reserved */
  50. /* 6 */
  51. EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, 
  52. int direction));
  53. /* 7 */
  54. EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, 
  55. int mode));
  56. /* 8 */
  57. EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, 
  58. int timeout));
  59. /* 9 */
  60. EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((
  61. CONST char * contents));
  62. /* 10 */
  63. EXTERN Tcl_DirEntry * TclpReaddir _ANSI_ARGS_((DIR * dir));
  64. /* 11 */
  65. EXTERN struct tm * TclpLocaltime_unix _ANSI_ARGS_((
  66. TclpTime_t_CONST clock));
  67. /* 12 */
  68. EXTERN struct tm * TclpGmtime_unix _ANSI_ARGS_((TclpTime_t_CONST clock));
  69. /* 13 */
  70. EXTERN char * TclpInetNtoa _ANSI_ARGS_((struct in_addr addr));
  71. #endif /* UNIX */
  72. #ifdef __WIN32__
  73. /* 0 */
  74. EXTERN void TclWinConvertError _ANSI_ARGS_((DWORD errCode));
  75. /* 1 */
  76. EXTERN void TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode));
  77. /* 2 */
  78. EXTERN struct servent *  TclWinGetServByName _ANSI_ARGS_((CONST char * nm, 
  79. CONST char * proto));
  80. /* 3 */
  81. EXTERN int TclWinGetSockOpt _ANSI_ARGS_((SOCKET s, int level, 
  82. int optname, char FAR * optval, 
  83. int FAR * optlen));
  84. /* 4 */
  85. EXTERN HINSTANCE TclWinGetTclInstance _ANSI_ARGS_((void));
  86. /* Slot 5 is reserved */
  87. /* 6 */
  88. EXTERN u_short TclWinNToHS _ANSI_ARGS_((u_short ns));
  89. /* 7 */
  90. EXTERN int TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level, 
  91. int optname, CONST char FAR * optval, 
  92. int optlen));
  93. /* 8 */
  94. EXTERN unsigned long TclpGetPid _ANSI_ARGS_((Tcl_Pid pid));
  95. /* 9 */
  96. EXTERN int TclWinGetPlatformId _ANSI_ARGS_((void));
  97. /* Slot 10 is reserved */
  98. /* 11 */
  99. EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, 
  100. Tcl_Channel chan));
  101. /* 12 */
  102. EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file));
  103. /* 13 */
  104. EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_((
  105. TclFile readFile, TclFile writeFile, 
  106. TclFile errorFile, int numPids, 
  107. Tcl_Pid * pidPtr));
  108. /* 14 */
  109. EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, 
  110. TclFile * writePipe));
  111. /* 15 */
  112. EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, 
  113. int argc, CONST char ** argv, 
  114. TclFile inputFile, TclFile outputFile, 
  115. TclFile errorFile, Tcl_Pid * pidPtr));
  116. /* Slot 16 is reserved */
  117. /* Slot 17 is reserved */
  118. /* 18 */
  119. EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, 
  120. int direction));
  121. /* 19 */
  122. EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, 
  123. int mode));
  124. /* 20 */
  125. EXTERN void TclWinAddProcess _ANSI_ARGS_((HANDLE hProcess, 
  126. DWORD id));
  127. /* Slot 21 is reserved */
  128. /* 22 */
  129. EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((
  130. CONST char * contents));
  131. /* 23 */
  132. EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst));
  133. /* 24 */
  134. EXTERN char * TclWinNoBackslash _ANSI_ARGS_((char * path));
  135. /* 25 */
  136. EXTERN TclPlatformType * TclWinGetPlatform _ANSI_ARGS_((void));
  137. /* 26 */
  138. EXTERN void TclWinSetInterfaces _ANSI_ARGS_((int wide));
  139. /* 27 */
  140. EXTERN void TclWinFlushDirtyChannels _ANSI_ARGS_((void));
  141. /* 28 */
  142. EXTERN void TclWinResetInterfaces _ANSI_ARGS_((void));
  143. /* 29 */
  144. EXTERN int TclWinCPUID _ANSI_ARGS_((unsigned int index, 
  145. unsigned int * regs));
  146. #endif /* __WIN32__ */
  147. #ifdef MAC_TCL
  148. /* 0 */
  149. EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin));
  150. /* 1 */
  151. EXTERN void TclpSysFree _ANSI_ARGS_((VOID * ptr));
  152. /* 2 */
  153. EXTERN VOID * TclpSysRealloc _ANSI_ARGS_((VOID * cp, 
  154. unsigned int size));
  155. /* 3 */
  156. EXTERN void TclpExit _ANSI_ARGS_((int status));
  157. /* 4 */
  158. EXTERN int FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));
  159. /* 5 */
  160. EXTERN int FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));
  161. /* 6 */
  162. EXTERN OSErr FSpFindFolder _ANSI_ARGS_((short vRefNum, 
  163. OSType folderType, Boolean createFolder, 
  164. FSSpec * spec));
  165. /* 7 */
  166. EXTERN void GetGlobalMouseTcl _ANSI_ARGS_((Point * mouse));
  167. /* 8 */
  168. EXTERN pascal OSErr FSpGetDirectoryIDTcl _ANSI_ARGS_((
  169. CONST FSSpec * spec, long * theDirID, 
  170. Boolean * isDirectory));
  171. /* 9 */
  172. EXTERN pascal short FSpOpenResFileCompatTcl _ANSI_ARGS_((
  173. CONST FSSpec * spec, SignedByte permission));
  174. /* 10 */
  175. EXTERN pascal void FSpCreateResFileCompatTcl _ANSI_ARGS_((
  176. CONST FSSpec * spec, OSType creator, 
  177. OSType fileType, ScriptCode scriptTag));
  178. /* 11 */
  179. EXTERN int FSpLocationFromPath _ANSI_ARGS_((int length, 
  180. CONST char * path, FSSpecPtr theSpec));
  181. /* 12 */
  182. EXTERN OSErr FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec, 
  183. int * length, Handle * fullPath));
  184. /* 13 */
  185. EXTERN void TclMacExitHandler _ANSI_ARGS_((void));
  186. /* 14 */
  187. EXTERN void TclMacInitExitToShell _ANSI_ARGS_((int usePatch));
  188. /* 15 */
  189. EXTERN OSErr TclMacInstallExitToShellPatch _ANSI_ARGS_((
  190. ExitToShellProcPtr newProc));
  191. /* 16 */
  192. EXTERN int TclMacOSErrorToPosixError _ANSI_ARGS_((int error));
  193. /* 17 */
  194. EXTERN void TclMacRemoveTimer _ANSI_ARGS_((void * timerToken));
  195. /* 18 */
  196. EXTERN void * TclMacStartTimer _ANSI_ARGS_((long ms));
  197. /* 19 */
  198. EXTERN int TclMacTimerExpired _ANSI_ARGS_((void * timerToken));
  199. /* 20 */
  200. EXTERN int TclMacRegisterResourceFork _ANSI_ARGS_((
  201. short fileRef, Tcl_Obj * tokenPtr, 
  202. int insert));
  203. /* 21 */
  204. EXTERN short TclMacUnRegisterResourceFork _ANSI_ARGS_((
  205. char * tokenPtr, Tcl_Obj * resultPtr));
  206. /* 22 */
  207. EXTERN int TclMacCreateEnv _ANSI_ARGS_((void));
  208. /* 23 */
  209. EXTERN FILE * TclMacFOpenHack _ANSI_ARGS_((CONST char * path, 
  210. CONST char * mode));
  211. /* 24 */
  212. EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst));
  213. /* 25 */
  214. EXTERN int TclMacChmod _ANSI_ARGS_((CONST char * path, int mode));
  215. /* 26 */
  216. EXTERN int FSpLLocationFromPath _ANSI_ARGS_((int length, 
  217. CONST char * path, FSSpecPtr theSpec));
  218. #endif /* MAC_TCL */
  220. typedef struct TclIntPlatStubs {
  221.     int magic;
  222.     struct TclIntPlatStubHooks *hooks;
  224. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  225.     void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */
  226.     int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */
  227.     Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */
  228.     int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */
  229.     int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */
  230.     void *reserved5;
  231.     TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */
  232.     TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */
  233.     int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */
  234.     TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */
  235.     Tcl_DirEntry * (*tclpReaddir) _ANSI_ARGS_((DIR * dir)); /* 10 */
  236.     struct tm * (*tclpLocaltime_unix) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 11 */
  237.     struct tm * (*tclpGmtime_unix) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 12 */
  238.     char * (*tclpInetNtoa) _ANSI_ARGS_((struct in_addr addr)); /* 13 */
  239. #endif /* UNIX */
  240. #ifdef __WIN32__
  241.     void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */
  242.     void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */
  243.     struct servent * (*tclWinGetServByName) _ANSI_ARGS_((CONST char * nm, CONST char * proto)); /* 2 */
  244.     int (*tclWinGetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, char FAR * optval, int FAR * optlen)); /* 3 */
  245.     HINSTANCE (*tclWinGetTclInstance) _ANSI_ARGS_((void)); /* 4 */
  246.     void *reserved5;
  247.     u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */
  248.     int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, CONST char FAR * optval, int optlen)); /* 7 */
  249.     unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */
  250.     int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */
  251.     void *reserved10;
  252.     void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */
  253.     int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */
  254.     Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */
  255.     int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */
  256.     int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */
  257.     void *reserved16;
  258.     void *reserved17;
  259.     TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */
  260.     TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 19 */
  261.     void (*tclWinAddProcess) _ANSI_ARGS_((HANDLE hProcess, DWORD id)); /* 20 */
  262.     void *reserved21;
  263.     TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 22 */
  264.     char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 23 */
  265.     char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 24 */
  266.     TclPlatformType * (*tclWinGetPlatform) _ANSI_ARGS_((void)); /* 25 */
  267.     void (*tclWinSetInterfaces) _ANSI_ARGS_((int wide)); /* 26 */
  268.     void (*tclWinFlushDirtyChannels) _ANSI_ARGS_((void)); /* 27 */
  269.     void (*tclWinResetInterfaces) _ANSI_ARGS_((void)); /* 28 */
  270.     int (*tclWinCPUID) _ANSI_ARGS_((unsigned int index, unsigned int * regs)); /* 29 */
  271. #endif /* __WIN32__ */
  272. #ifdef MAC_TCL
  273.     VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */
  274.     void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */
  275.     VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */
  276.     void (*tclpExit) _ANSI_ARGS_((int status)); /* 3 */
  277.     int (*fSpGetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 4 */
  278.     int (*fSpSetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 5 */
  279.     OSErr (*fSpFindFolder) _ANSI_ARGS_((short vRefNum, OSType folderType, Boolean createFolder, FSSpec * spec)); /* 6 */
  280.     void (*getGlobalMouseTcl) _ANSI_ARGS_((Point * mouse)); /* 7 */
  281.     pascal OSErr (*fSpGetDirectoryIDTcl) _ANSI_ARGS_((CONST FSSpec * spec, long * theDirID, Boolean * isDirectory)); /* 8 */
  282.     pascal short (*fSpOpenResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, SignedByte permission)); /* 9 */
  283.     pascal void (*fSpCreateResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, OSType creator, OSType fileType, ScriptCode scriptTag)); /* 10 */
  284.     int (*fSpLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 11 */
  285.     OSErr (*fSpPathFromLocation) _ANSI_ARGS_((FSSpecPtr theSpec, int * length, Handle * fullPath)); /* 12 */
  286.     void (*tclMacExitHandler) _ANSI_ARGS_((void)); /* 13 */
  287.     void (*tclMacInitExitToShell) _ANSI_ARGS_((int usePatch)); /* 14 */
  288.     OSErr (*tclMacInstallExitToShellPatch) _ANSI_ARGS_((ExitToShellProcPtr newProc)); /* 15 */
  289.     int (*tclMacOSErrorToPosixError) _ANSI_ARGS_((int error)); /* 16 */
  290.     void (*tclMacRemoveTimer) _ANSI_ARGS_((void * timerToken)); /* 17 */
  291.     void * (*tclMacStartTimer) _ANSI_ARGS_((long ms)); /* 18 */
  292.     int (*tclMacTimerExpired) _ANSI_ARGS_((void * timerToken)); /* 19 */
  293.     int (*tclMacRegisterResourceFork) _ANSI_ARGS_((short fileRef, Tcl_Obj * tokenPtr, int insert)); /* 20 */
  294.     short (*tclMacUnRegisterResourceFork) _ANSI_ARGS_((char * tokenPtr, Tcl_Obj * resultPtr)); /* 21 */
  295.     int (*tclMacCreateEnv) _ANSI_ARGS_((void)); /* 22 */
  296.     FILE * (*tclMacFOpenHack) _ANSI_ARGS_((CONST char * path, CONST char * mode)); /* 23 */
  297.     char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 24 */
  298.     int (*tclMacChmod) _ANSI_ARGS_((CONST char * path, int mode)); /* 25 */
  299.     int (*fSpLLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 26 */
  300. #endif /* MAC_TCL */
  301. } TclIntPlatStubs;
  303. #ifdef __cplusplus
  304. extern "C" {
  305. #endif
  306. extern TclIntPlatStubs *tclIntPlatStubsPtr;
  307. #ifdef __cplusplus
  308. }
  309. #endif
  311. #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
  313. /*
  314.  * Inline function declarations:
  315.  */
  317. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  318. #ifndef TclGetAndDetachPids
  319. #define TclGetAndDetachPids 
  320. (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */
  321. #endif
  322. #ifndef TclpCloseFile
  323. #define TclpCloseFile 
  324. (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */
  325. #endif
  326. #ifndef TclpCreateCommandChannel
  327. #define TclpCreateCommandChannel 
  328. (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */
  329. #endif
  330. #ifndef TclpCreatePipe
  331. #define TclpCreatePipe 
  332. (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */
  333. #endif
  334. #ifndef TclpCreateProcess
  335. #define TclpCreateProcess 
  336. (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */
  337. #endif
  338. /* Slot 5 is reserved */
  339. #ifndef TclpMakeFile
  340. #define TclpMakeFile 
  341. (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */
  342. #endif
  343. #ifndef TclpOpenFile
  344. #define TclpOpenFile 
  345. (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */
  346. #endif
  347. #ifndef TclUnixWaitForFile
  348. #define TclUnixWaitForFile 
  349. (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */
  350. #endif
  351. #ifndef TclpCreateTempFile
  352. #define TclpCreateTempFile 
  353. (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */
  354. #endif
  355. #ifndef TclpReaddir
  356. #define TclpReaddir 
  357. (tclIntPlatStubsPtr->tclpReaddir) /* 10 */
  358. #endif
  359. #ifndef TclpLocaltime_unix
  360. #define TclpLocaltime_unix 
  361. (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */
  362. #endif
  363. #ifndef TclpGmtime_unix
  364. #define TclpGmtime_unix 
  365. (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */
  366. #endif
  367. #ifndef TclpInetNtoa
  368. #define TclpInetNtoa 
  369. (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */
  370. #endif
  371. #endif /* UNIX */
  372. #ifdef __WIN32__
  373. #ifndef TclWinConvertError
  374. #define TclWinConvertError 
  375. (tclIntPlatStubsPtr->tclWinConvertError) /* 0 */
  376. #endif
  377. #ifndef TclWinConvertWSAError
  378. #define TclWinConvertWSAError 
  379. (tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */
  380. #endif
  381. #ifndef TclWinGetServByName
  382. #define TclWinGetServByName 
  383. (tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */
  384. #endif
  385. #ifndef TclWinGetSockOpt
  386. #define TclWinGetSockOpt 
  387. (tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */
  388. #endif
  389. #ifndef TclWinGetTclInstance
  390. #define TclWinGetTclInstance 
  391. (tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */
  392. #endif
  393. /* Slot 5 is reserved */
  394. #ifndef TclWinNToHS
  395. #define TclWinNToHS 
  396. (tclIntPlatStubsPtr->tclWinNToHS) /* 6 */
  397. #endif
  398. #ifndef TclWinSetSockOpt
  399. #define TclWinSetSockOpt 
  400. (tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */
  401. #endif
  402. #ifndef TclpGetPid
  403. #define TclpGetPid 
  404. (tclIntPlatStubsPtr->tclpGetPid) /* 8 */
  405. #endif
  406. #ifndef TclWinGetPlatformId
  407. #define TclWinGetPlatformId 
  408. (tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */
  409. #endif
  410. /* Slot 10 is reserved */
  411. #ifndef TclGetAndDetachPids
  412. #define TclGetAndDetachPids 
  413. (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */
  414. #endif
  415. #ifndef TclpCloseFile
  416. #define TclpCloseFile 
  417. (tclIntPlatStubsPtr->tclpCloseFile) /* 12 */
  418. #endif
  419. #ifndef TclpCreateCommandChannel
  420. #define TclpCreateCommandChannel 
  421. (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */
  422. #endif
  423. #ifndef TclpCreatePipe
  424. #define TclpCreatePipe 
  425. (tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */
  426. #endif
  427. #ifndef TclpCreateProcess
  428. #define TclpCreateProcess 
  429. (tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */
  430. #endif
  431. /* Slot 16 is reserved */
  432. /* Slot 17 is reserved */
  433. #ifndef TclpMakeFile
  434. #define TclpMakeFile 
  435. (tclIntPlatStubsPtr->tclpMakeFile) /* 18 */
  436. #endif
  437. #ifndef TclpOpenFile
  438. #define TclpOpenFile 
  439. (tclIntPlatStubsPtr->tclpOpenFile) /* 19 */
  440. #endif
  441. #ifndef TclWinAddProcess
  442. #define TclWinAddProcess 
  443. (tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */
  444. #endif
  445. /* Slot 21 is reserved */
  446. #ifndef TclpCreateTempFile
  447. #define TclpCreateTempFile 
  448. (tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */
  449. #endif
  450. #ifndef TclpGetTZName
  451. #define TclpGetTZName 
  452. (tclIntPlatStubsPtr->tclpGetTZName) /* 23 */
  453. #endif
  454. #ifndef TclWinNoBackslash
  455. #define TclWinNoBackslash 
  456. (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */
  457. #endif
  458. #ifndef TclWinGetPlatform
  459. #define TclWinGetPlatform 
  460. (tclIntPlatStubsPtr->tclWinGetPlatform) /* 25 */
  461. #endif
  462. #ifndef TclWinSetInterfaces
  463. #define TclWinSetInterfaces 
  464. (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */
  465. #endif
  466. #ifndef TclWinFlushDirtyChannels
  467. #define TclWinFlushDirtyChannels 
  468. (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */
  469. #endif
  470. #ifndef TclWinResetInterfaces
  471. #define TclWinResetInterfaces 
  472. (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */
  473. #endif
  474. #ifndef TclWinCPUID
  475. #define TclWinCPUID 
  476. (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */
  477. #endif
  478. #endif /* __WIN32__ */
  479. #ifdef MAC_TCL
  480. #ifndef TclpSysAlloc
  481. #define TclpSysAlloc 
  482. (tclIntPlatStubsPtr->tclpSysAlloc) /* 0 */
  483. #endif
  484. #ifndef TclpSysFree
  485. #define TclpSysFree 
  486. (tclIntPlatStubsPtr->tclpSysFree) /* 1 */
  487. #endif
  488. #ifndef TclpSysRealloc
  489. #define TclpSysRealloc 
  490. (tclIntPlatStubsPtr->tclpSysRealloc) /* 2 */
  491. #endif
  492. #ifndef TclpExit
  493. #define TclpExit 
  494. (tclIntPlatStubsPtr->tclpExit) /* 3 */
  495. #endif
  496. #ifndef FSpGetDefaultDir
  497. #define FSpGetDefaultDir 
  498. (tclIntPlatStubsPtr->fSpGetDefaultDir) /* 4 */
  499. #endif
  500. #ifndef FSpSetDefaultDir
  501. #define FSpSetDefaultDir 
  502. (tclIntPlatStubsPtr->fSpSetDefaultDir) /* 5 */
  503. #endif
  504. #ifndef FSpFindFolder
  505. #define FSpFindFolder 
  506. (tclIntPlatStubsPtr->fSpFindFolder) /* 6 */
  507. #endif
  508. #ifndef GetGlobalMouseTcl
  509. #define GetGlobalMouseTcl 
  510. (tclIntPlatStubsPtr->getGlobalMouseTcl) /* 7 */
  511. #endif
  512. #ifndef FSpGetDirectoryIDTcl
  513. #define FSpGetDirectoryIDTcl 
  514. (tclIntPlatStubsPtr->fSpGetDirectoryIDTcl) /* 8 */
  515. #endif
  516. #ifndef FSpOpenResFileCompatTcl
  517. #define FSpOpenResFileCompatTcl 
  518. (tclIntPlatStubsPtr->fSpOpenResFileCompatTcl) /* 9 */
  519. #endif
  520. #ifndef FSpCreateResFileCompatTcl
  521. #define FSpCreateResFileCompatTcl 
  522. (tclIntPlatStubsPtr->fSpCreateResFileCompatTcl) /* 10 */
  523. #endif
  524. #ifndef FSpLocationFromPath
  525. #define FSpLocationFromPath 
  526. (tclIntPlatStubsPtr->fSpLocationFromPath) /* 11 */
  527. #endif
  528. #ifndef FSpPathFromLocation
  529. #define FSpPathFromLocation 
  530. (tclIntPlatStubsPtr->fSpPathFromLocation) /* 12 */
  531. #endif
  532. #ifndef TclMacExitHandler
  533. #define TclMacExitHandler 
  534. (tclIntPlatStubsPtr->tclMacExitHandler) /* 13 */
  535. #endif
  536. #ifndef TclMacInitExitToShell
  537. #define TclMacInitExitToShell 
  538. (tclIntPlatStubsPtr->tclMacInitExitToShell) /* 14 */
  539. #endif
  540. #ifndef TclMacInstallExitToShellPatch
  541. #define TclMacInstallExitToShellPatch 
  542. (tclIntPlatStubsPtr->tclMacInstallExitToShellPatch) /* 15 */
  543. #endif
  544. #ifndef TclMacOSErrorToPosixError
  545. #define TclMacOSErrorToPosixError 
  546. (tclIntPlatStubsPtr->tclMacOSErrorToPosixError) /* 16 */
  547. #endif
  548. #ifndef TclMacRemoveTimer
  549. #define TclMacRemoveTimer 
  550. (tclIntPlatStubsPtr->tclMacRemoveTimer) /* 17 */
  551. #endif
  552. #ifndef TclMacStartTimer
  553. #define TclMacStartTimer 
  554. (tclIntPlatStubsPtr->tclMacStartTimer) /* 18 */
  555. #endif
  556. #ifndef TclMacTimerExpired
  557. #define TclMacTimerExpired 
  558. (tclIntPlatStubsPtr->tclMacTimerExpired) /* 19 */
  559. #endif
  560. #ifndef TclMacRegisterResourceFork
  561. #define TclMacRegisterResourceFork 
  562. (tclIntPlatStubsPtr->tclMacRegisterResourceFork) /* 20 */
  563. #endif
  564. #ifndef TclMacUnRegisterResourceFork
  565. #define TclMacUnRegisterResourceFork 
  566. (tclIntPlatStubsPtr->tclMacUnRegisterResourceFork) /* 21 */
  567. #endif
  568. #ifndef TclMacCreateEnv
  569. #define TclMacCreateEnv 
  570. (tclIntPlatStubsPtr->tclMacCreateEnv) /* 22 */
  571. #endif
  572. #ifndef TclMacFOpenHack
  573. #define TclMacFOpenHack 
  574. (tclIntPlatStubsPtr->tclMacFOpenHack) /* 23 */
  575. #endif
  576. #ifndef TclpGetTZName
  577. #define TclpGetTZName 
  578. (tclIntPlatStubsPtr->tclpGetTZName) /* 24 */
  579. #endif
  580. #ifndef TclMacChmod
  581. #define TclMacChmod 
  582. (tclIntPlatStubsPtr->tclMacChmod) /* 25 */
  583. #endif
  584. #ifndef FSpLLocationFromPath
  585. #define FSpLLocationFromPath 
  586. (tclIntPlatStubsPtr->fSpLLocationFromPath) /* 26 */
  587. #endif
  588. #endif /* MAC_TCL */
  590. #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
  592. /* !END!: Do not edit above this line. */
  594. #endif /* _TCLINTPLATDECLS */