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