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