sl@0: /*
sl@0:  * tclIntPlatDecls.h --
sl@0:  *
sl@0:  *	This file contains the declarations for all platform dependent
sl@0:  *	unsupported functions that are exported by the Tcl library.  These
sl@0:  *	interfaces are not guaranteed to remain the same between
sl@0:  *	versions.  Use at your own risk.
sl@0:  *
sl@0:  * Copyright (c) 1998-1999 by Scriptics Corporation.
sl@0:  * All rights reserved.
sl@0:  * Portions Copyright (c) 2007-2008 Nokia Corporation and/or its subsidiaries. All rights reserved.  
sl@0:  *
sl@0:  * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.19.2.7 2007/04/21 19:52:14 kennykb Exp $
sl@0:  */
sl@0: 
sl@0: #ifndef _TCLINTPLATDECLS
sl@0: #define _TCLINTPLATDECLS
sl@0: 
sl@0: /*
sl@0:  * WARNING: This file is automatically generated by the tools/genStubs.tcl
sl@0:  * script.  Any modifications to the function declarations below should be made
sl@0:  * in the generic/tclInt.decls script.
sl@0:  */
sl@0: 
sl@0: /* !BEGIN!: Do not edit below this line. */
sl@0: 
sl@0: /*
sl@0:  * Exported function declarations:
sl@0:  */
sl@0: 
sl@0: #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
sl@0: /* 0 */
sl@0: EXTERN void		TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, 
sl@0: 				Tcl_Channel chan));
sl@0: /* 1 */
sl@0: EXTERN int		TclpCloseFile _ANSI_ARGS_((TclFile file));
sl@0: /* 2 */
sl@0: EXTERN Tcl_Channel	TclpCreateCommandChannel _ANSI_ARGS_((
sl@0: 				TclFile readFile, TclFile writeFile, 
sl@0: 				TclFile errorFile, int numPids, 
sl@0: 				Tcl_Pid * pidPtr));
sl@0: /* 3 */
sl@0: EXTERN int		TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, 
sl@0: 				TclFile * writePipe));
sl@0: /* 4 */
sl@0: EXTERN int		TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, 
sl@0: 				int argc, CONST char ** argv, 
sl@0: 				TclFile inputFile, TclFile outputFile, 
sl@0: 				TclFile errorFile, Tcl_Pid * pidPtr));
sl@0: /* Slot 5 is reserved */
sl@0: /* 6 */
sl@0: EXTERN TclFile		TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, 
sl@0: 				int direction));
sl@0: /* 7 */
sl@0: EXTERN TclFile		TclpOpenFile _ANSI_ARGS_((CONST char * fname, 
sl@0: 				int mode));
sl@0: /* 8 */
sl@0: EXTERN int		TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, 
sl@0: 				int timeout));
sl@0: /* 9 */
sl@0: EXTERN TclFile		TclpCreateTempFile _ANSI_ARGS_((
sl@0: 				CONST char * contents));
sl@0: /* 10 */
sl@0: EXTERN Tcl_DirEntry *	TclpReaddir _ANSI_ARGS_((DIR * dir));
sl@0: /* 11 */
sl@0: EXTERN struct tm *	TclpLocaltime_unix _ANSI_ARGS_((
sl@0: 				TclpTime_t_CONST clock));
sl@0: /* 12 */
sl@0: EXTERN struct tm *	TclpGmtime_unix _ANSI_ARGS_((TclpTime_t_CONST clock));
sl@0: /* 13 */
sl@0: EXTERN char *		TclpInetNtoa _ANSI_ARGS_((struct in_addr addr));
sl@0: #ifdef __SYMBIAN32__
sl@0: 
sl@0: #ifdef __WINSCW__
sl@0: /* 16 */
sl@0: EXTERN void*    get_gFileName _ANSI_ARGS_((int index));
sl@0: /* 17 */
sl@0: EXTERN char**   get_tclExecutableName _ANSI_ARGS_(());
sl@0: /* 18 */
sl@0: EXTERN char**   get_tclNativeExecutableName _ANSI_ARGS_(());
sl@0: /* 19 */
sl@0: EXTERN void**   get_dataKey _ANSI_ARGS_((int index));
sl@0: /* 20 */
sl@0: EXTERN void* 	get_inFinalize _ANSI_ARGS_(());
sl@0: /* 21 */
sl@0: EXTERN void* 	get_subsystemsInitialized _ANSI_ARGS_(());
sl@0: /* 22 */
sl@0: EXTERN void** 	get_allocHead _ANSI_ARGS_(());
sl@0: /* 23 */
sl@0: EXTERN void** 	get_defaultEncoding _ANSI_ARGS_(());
sl@0: /* 24 */
sl@0: EXTERN void** 	get_systemEncoding _ANSI_ARGS_(());
sl@0: /* 25 */
sl@0: EXTERN void* 	get_encodingTable _ANSI_ARGS_(()); 
sl@0: /* 26 */
sl@0: EXTERN void* 	get_keyRecord _ANSI_ARGS_(()); 
sl@0: /* 27 */
sl@0: EXTERN void* 	get_typeTable _ANSI_ARGS_(()); 
sl@0: /* 28 */        
sl@0: EXTERN void* 	get_typeTableInitialized _ANSI_ARGS_(()); 
sl@0: /* 29 */        
sl@0: EXTERN void* 	get_encodingsInitialized _ANSI_ARGS_(()); 
sl@0: /* 30 */
sl@0: EXTERN char**   get_tclDefaultEncodingDir _ANSI_ARGS_(());
sl@0: /* 31 */
sl@0: EXTERN char**   get_tclLibraryPathStr _ANSI_ARGS_(());
sl@0: /* 32 */        
sl@0: EXTERN void* 	get_opTableInitialized _ANSI_ARGS_(()); 
sl@0: /* 33 */
sl@0: EXTERN void* 	get_opHashTable _ANSI_ARGS_(()); 
sl@0: /* 34 */        
sl@0: EXTERN void* 	get_auxDataTypeTableInitialized _ANSI_ARGS_(()); 
sl@0: /* 35 */
sl@0: EXTERN void* 	get_auxDataTypeTable _ANSI_ARGS_(()); 
sl@0: /* 36 */
sl@0: EXTERN void** 	get_cwdPathPtr _ANSI_ARGS_(());
sl@0: /* 37 */        
sl@0: EXTERN void* 	get_cwdPathEpoch _ANSI_ARGS_(()); 
sl@0: /* 38 */
sl@0: EXTERN void** 	get_refArray _ANSI_ARGS_(());
sl@0: /* 39 */        
sl@0: EXTERN void* 	get_spaceAvl _ANSI_ARGS_(()); 
sl@0: /* 40 */        
sl@0: EXTERN void* 	get_inUse _ANSI_ARGS_(()); 
sl@0: /* 41 */
sl@0: EXTERN void		TclpExit _ANSI_ARGS_((int status));
sl@0: /* 42 */        
sl@0: EXTERN void* 	get_tclPlatform _ANSI_ARGS_(()); 
sl@0: /* 43 */
sl@0: EXTERN void** 	get_firstNotifierPtr _ANSI_ARGS_(());
sl@0: #endif /* __WINSCW__ */
sl@0: #endif /* __SYMBIAN32__ */
sl@0: #endif /* UNIX */
sl@0: #ifdef __WIN32__
sl@0: /* 0 */
sl@0: EXTERN void		TclWinConvertError _ANSI_ARGS_((DWORD errCode));
sl@0: /* 1 */
sl@0: EXTERN void		TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode));
sl@0: /* 2 */
sl@0: EXTERN struct servent *	 TclWinGetServByName _ANSI_ARGS_((CONST char * nm, 
sl@0: 				CONST char * proto));
sl@0: /* 3 */
sl@0: EXTERN int		TclWinGetSockOpt _ANSI_ARGS_((SOCKET s, int level, 
sl@0: 				int optname, char FAR * optval, 
sl@0: 				int FAR * optlen));
sl@0: /* 4 */
sl@0: EXTERN HINSTANCE	TclWinGetTclInstance _ANSI_ARGS_((void));
sl@0: /* Slot 5 is reserved */
sl@0: /* 6 */
sl@0: EXTERN u_short		TclWinNToHS _ANSI_ARGS_((u_short ns));
sl@0: /* 7 */
sl@0: EXTERN int		TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level, 
sl@0: 				int optname, CONST char FAR * optval, 
sl@0: 				int optlen));
sl@0: /* 8 */
sl@0: EXTERN unsigned long	TclpGetPid _ANSI_ARGS_((Tcl_Pid pid));
sl@0: /* 9 */
sl@0: EXTERN int		TclWinGetPlatformId _ANSI_ARGS_((void));
sl@0: /* Slot 10 is reserved */
sl@0: /* 11 */
sl@0: EXTERN void		TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, 
sl@0: 				Tcl_Channel chan));
sl@0: /* 12 */
sl@0: EXTERN int		TclpCloseFile _ANSI_ARGS_((TclFile file));
sl@0: /* 13 */
sl@0: EXTERN Tcl_Channel	TclpCreateCommandChannel _ANSI_ARGS_((
sl@0: 				TclFile readFile, TclFile writeFile, 
sl@0: 				TclFile errorFile, int numPids, 
sl@0: 				Tcl_Pid * pidPtr));
sl@0: /* 14 */
sl@0: EXTERN int		TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, 
sl@0: 				TclFile * writePipe));
sl@0: /* 15 */
sl@0: EXTERN int		TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, 
sl@0: 				int argc, CONST char ** argv, 
sl@0: 				TclFile inputFile, TclFile outputFile, 
sl@0: 				TclFile errorFile, Tcl_Pid * pidPtr));
sl@0: /* Slot 16 is reserved */
sl@0: /* Slot 17 is reserved */
sl@0: /* 18 */
sl@0: EXTERN TclFile		TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, 
sl@0: 				int direction));
sl@0: /* 19 */
sl@0: EXTERN TclFile		TclpOpenFile _ANSI_ARGS_((CONST char * fname, 
sl@0: 				int mode));
sl@0: /* 20 */
sl@0: EXTERN void		TclWinAddProcess _ANSI_ARGS_((HANDLE hProcess, 
sl@0: 				DWORD id));
sl@0: /* Slot 21 is reserved */
sl@0: /* 22 */
sl@0: EXTERN TclFile		TclpCreateTempFile _ANSI_ARGS_((
sl@0: 				CONST char * contents));
sl@0: /* 23 */
sl@0: EXTERN char *		TclpGetTZName _ANSI_ARGS_((int isdst));
sl@0: /* 24 */
sl@0: EXTERN char *		TclWinNoBackslash _ANSI_ARGS_((char * path));
sl@0: /* 25 */
sl@0: EXTERN TclPlatformType * TclWinGetPlatform _ANSI_ARGS_((void));
sl@0: /* 26 */
sl@0: EXTERN void		TclWinSetInterfaces _ANSI_ARGS_((int wide));
sl@0: /* 27 */
sl@0: EXTERN void		TclWinFlushDirtyChannels _ANSI_ARGS_((void));
sl@0: /* 28 */
sl@0: EXTERN void		TclWinResetInterfaces _ANSI_ARGS_((void));
sl@0: /* 29 */
sl@0: EXTERN int		TclWinCPUID _ANSI_ARGS_((unsigned int index, 
sl@0: 				unsigned int * regs));
sl@0: #endif /* __WIN32__ */
sl@0: #ifdef MAC_TCL
sl@0: /* 0 */
sl@0: EXTERN VOID *		TclpSysAlloc _ANSI_ARGS_((long size, int isBin));
sl@0: /* 1 */
sl@0: EXTERN void		TclpSysFree _ANSI_ARGS_((VOID * ptr));
sl@0: /* 2 */
sl@0: EXTERN VOID *		TclpSysRealloc _ANSI_ARGS_((VOID * cp, 
sl@0: 				unsigned int size));
sl@0: /* 3 */
sl@0: EXTERN void		TclpExit _ANSI_ARGS_((int status));
sl@0: /* 4 */
sl@0: EXTERN int		FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));
sl@0: /* 5 */
sl@0: EXTERN int		FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));
sl@0: /* 6 */
sl@0: EXTERN OSErr		FSpFindFolder _ANSI_ARGS_((short vRefNum, 
sl@0: 				OSType folderType, Boolean createFolder, 
sl@0: 				FSSpec * spec));
sl@0: /* 7 */
sl@0: EXTERN void		GetGlobalMouseTcl _ANSI_ARGS_((Point * mouse));
sl@0: /* 8 */
sl@0: EXTERN pascal OSErr	FSpGetDirectoryIDTcl _ANSI_ARGS_((
sl@0: 				CONST FSSpec * spec, long * theDirID, 
sl@0: 				Boolean * isDirectory));
sl@0: /* 9 */
sl@0: EXTERN pascal short	FSpOpenResFileCompatTcl _ANSI_ARGS_((
sl@0: 				CONST FSSpec * spec, SignedByte permission));
sl@0: /* 10 */
sl@0: EXTERN pascal void	FSpCreateResFileCompatTcl _ANSI_ARGS_((
sl@0: 				CONST FSSpec * spec, OSType creator, 
sl@0: 				OSType fileType, ScriptCode scriptTag));
sl@0: /* 11 */
sl@0: EXTERN int		FSpLocationFromPath _ANSI_ARGS_((int length, 
sl@0: 				CONST char * path, FSSpecPtr theSpec));
sl@0: /* 12 */
sl@0: EXTERN OSErr		FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec, 
sl@0: 				int * length, Handle * fullPath));
sl@0: /* 13 */
sl@0: EXTERN void		TclMacExitHandler _ANSI_ARGS_((void));
sl@0: /* 14 */
sl@0: EXTERN void		TclMacInitExitToShell _ANSI_ARGS_((int usePatch));
sl@0: /* 15 */
sl@0: EXTERN OSErr		TclMacInstallExitToShellPatch _ANSI_ARGS_((
sl@0: 				ExitToShellProcPtr newProc));
sl@0: /* 16 */
sl@0: EXTERN int		TclMacOSErrorToPosixError _ANSI_ARGS_((int error));
sl@0: /* 17 */
sl@0: EXTERN void		TclMacRemoveTimer _ANSI_ARGS_((void * timerToken));
sl@0: /* 18 */
sl@0: EXTERN void *		TclMacStartTimer _ANSI_ARGS_((long ms));
sl@0: /* 19 */
sl@0: EXTERN int		TclMacTimerExpired _ANSI_ARGS_((void * timerToken));
sl@0: /* 20 */
sl@0: EXTERN int		TclMacRegisterResourceFork _ANSI_ARGS_((
sl@0: 				short fileRef, Tcl_Obj * tokenPtr, 
sl@0: 				int insert));
sl@0: /* 21 */
sl@0: EXTERN short		TclMacUnRegisterResourceFork _ANSI_ARGS_((
sl@0: 				char * tokenPtr, Tcl_Obj * resultPtr));
sl@0: /* 22 */
sl@0: EXTERN int		TclMacCreateEnv _ANSI_ARGS_((void));
sl@0: /* 23 */
sl@0: EXTERN FILE *		TclMacFOpenHack _ANSI_ARGS_((CONST char * path, 
sl@0: 				CONST char * mode));
sl@0: /* 24 */
sl@0: EXTERN char *		TclpGetTZName _ANSI_ARGS_((int isdst));
sl@0: /* 25 */
sl@0: EXTERN int		TclMacChmod _ANSI_ARGS_((CONST char * path, int mode));
sl@0: /* 26 */
sl@0: EXTERN int		FSpLLocationFromPath _ANSI_ARGS_((int length, 
sl@0: 				CONST char * path, FSSpecPtr theSpec));
sl@0: #endif /* MAC_TCL */
sl@0: 
sl@0: typedef struct TclIntPlatStubs {
sl@0:     int magic;
sl@0:     struct TclIntPlatStubHooks *hooks;
sl@0: 
sl@0: #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
sl@0:     void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */
sl@0:     int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */
sl@0:     Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */
sl@0:     int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */
sl@0:     int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */
sl@0:     void *reserved5;
sl@0:     TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */
sl@0:     TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */
sl@0:     int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */
sl@0:     TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */
sl@0:     Tcl_DirEntry * (*tclpReaddir) _ANSI_ARGS_((DIR * dir)); /* 10 */
sl@0:     struct tm * (*tclpLocaltime_unix) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 11 */
sl@0:     struct tm * (*tclpGmtime_unix) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 12 */
sl@0:     char * (*tclpInetNtoa) _ANSI_ARGS_((struct in_addr addr)); /* 13 */
sl@0: #ifdef __SYMBIAN32__
sl@0:     int	(*ChildProcessInit) _ANSI_ARGS_((int *argc, char ***argv));/* 14 */
sl@0:     void (*ChildProcessCleanup) _ANSI_ARGS_((int isChildProcess, int argc, char **argv)); /* 15 */
sl@0: #ifdef __WINSCW__    
sl@0:     void* (*get_gFileName) _ANSI_ARGS_((int index)); /* 16 */
sl@0:     char** (*get_tclExecutableName) _ANSI_ARGS_(()); /* 17 */    
sl@0:     char** (*get_tclNativeExecutableName) _ANSI_ARGS_(()); /* 18 */        
sl@0:     void** (*get_dataKey) _ANSI_ARGS_((int index)); /* 19 */        
sl@0:     void* (*get_inFinalize) _ANSI_ARGS_(()); /* 20 */
sl@0:     void* (*get_subsystemsInitialized) _ANSI_ARGS_(()); /* 21 */
sl@0:     void** 	(*get_allocHead) _ANSI_ARGS_(()); /* 22 */
sl@0:     void** 	(*get_defaultEncoding) _ANSI_ARGS_(()); /* 23 */
sl@0:     void** 	(*get_systemEncoding) _ANSI_ARGS_(()); /* 24 */
sl@0:     void* 	(*get_encodingTable) _ANSI_ARGS_(()); /* 25 */    
sl@0:     void* 	(*get_keyRecord) _ANSI_ARGS_(()); /* 26 */        
sl@0:     void* 	(*get_typeTable) _ANSI_ARGS_(()); /* 27 */        
sl@0:     void* 	(*get_typeTableInitialized) _ANSI_ARGS_(()); /* 28 */        
sl@0:     void* 	(*get_encodingsInitialized) _ANSI_ARGS_(()); /* 29 */       
sl@0:     char**  (*get_tclDefaultEncodingDir) _ANSI_ARGS_(()); /* 30 */
sl@0:     char**  (*get_tclLibraryPathStr) _ANSI_ARGS_(()); /* 31 */
sl@0:     void* 	(*get_opTableInitialized) _ANSI_ARGS_(()); /* 32 */
sl@0:     void* 	(*get_opHashTable) _ANSI_ARGS_(()); /* 33 */        
sl@0:     void* 	(*get_auxDataTypeTableInitialized) _ANSI_ARGS_(()); /* 34 */
sl@0:     void* 	(*get_auxDataTypeTable) _ANSI_ARGS_(()); /* 35 */        
sl@0:     void** 	(*get_cwdPathPtr) _ANSI_ARGS_(()); /* 36 */
sl@0:     void* 	(*get_cwdPathEpoch) _ANSI_ARGS_(()); /* 37 */
sl@0:     void** 	(*get_refArray) _ANSI_ARGS_(()); /* 38 */
sl@0:     void* 	(*get_spaceAvl) _ANSI_ARGS_(()); /* 39 */
sl@0:     void* 	(*get_inUse) _ANSI_ARGS_(()); /* 40 */
sl@0:     void    (*tclpExit) _ANSI_ARGS_((int status)); /* 41 */    
sl@0:     void* 	(*get_tclPlatform) _ANSI_ARGS_(()); /* 42 */
sl@0:     void** 	(*get_firstNotifierPtr) _ANSI_ARGS_(()); /* 43 */
sl@0: #endif /* __WINSCW__ */
sl@0: #endif /* __SYMBIAN32__ */
sl@0: #endif /* UNIX */
sl@0: #ifdef __WIN32__
sl@0:     void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */
sl@0:     void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */
sl@0:     struct servent * (*tclWinGetServByName) _ANSI_ARGS_((CONST char * nm, CONST char * proto)); /* 2 */
sl@0:     int (*tclWinGetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, char FAR * optval, int FAR * optlen)); /* 3 */
sl@0:     HINSTANCE (*tclWinGetTclInstance) _ANSI_ARGS_((void)); /* 4 */
sl@0:     void *reserved5;
sl@0:     u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */
sl@0:     int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, CONST char FAR * optval, int optlen)); /* 7 */
sl@0:     unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */
sl@0:     int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */
sl@0:     void *reserved10;
sl@0:     void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */
sl@0:     int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */
sl@0:     Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */
sl@0:     int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */
sl@0:     int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */
sl@0:     void *reserved16;
sl@0:     void *reserved17;
sl@0:     TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */
sl@0:     TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 19 */
sl@0:     void (*tclWinAddProcess) _ANSI_ARGS_((HANDLE hProcess, DWORD id)); /* 20 */
sl@0:     void *reserved21;
sl@0:     TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 22 */
sl@0:     char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 23 */
sl@0:     char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 24 */
sl@0:     TclPlatformType * (*tclWinGetPlatform) _ANSI_ARGS_((void)); /* 25 */
sl@0:     void (*tclWinSetInterfaces) _ANSI_ARGS_((int wide)); /* 26 */
sl@0:     void (*tclWinFlushDirtyChannels) _ANSI_ARGS_((void)); /* 27 */
sl@0:     void (*tclWinResetInterfaces) _ANSI_ARGS_((void)); /* 28 */
sl@0:     int (*tclWinCPUID) _ANSI_ARGS_((unsigned int index, unsigned int * regs)); /* 29 */
sl@0: #endif /* __WIN32__ */
sl@0: #ifdef MAC_TCL
sl@0:     VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */
sl@0:     void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */
sl@0:     VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */
sl@0:     void (*tclpExit) _ANSI_ARGS_((int status)); /* 3 */
sl@0:     int (*fSpGetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 4 */
sl@0:     int (*fSpSetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 5 */
sl@0:     OSErr (*fSpFindFolder) _ANSI_ARGS_((short vRefNum, OSType folderType, Boolean createFolder, FSSpec * spec)); /* 6 */
sl@0:     void (*getGlobalMouseTcl) _ANSI_ARGS_((Point * mouse)); /* 7 */
sl@0:     pascal OSErr (*fSpGetDirectoryIDTcl) _ANSI_ARGS_((CONST FSSpec * spec, long * theDirID, Boolean * isDirectory)); /* 8 */
sl@0:     pascal short (*fSpOpenResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, SignedByte permission)); /* 9 */
sl@0:     pascal void (*fSpCreateResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, OSType creator, OSType fileType, ScriptCode scriptTag)); /* 10 */
sl@0:     int (*fSpLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 11 */
sl@0:     OSErr (*fSpPathFromLocation) _ANSI_ARGS_((FSSpecPtr theSpec, int * length, Handle * fullPath)); /* 12 */
sl@0:     void (*tclMacExitHandler) _ANSI_ARGS_((void)); /* 13 */
sl@0:     void (*tclMacInitExitToShell) _ANSI_ARGS_((int usePatch)); /* 14 */
sl@0:     OSErr (*tclMacInstallExitToShellPatch) _ANSI_ARGS_((ExitToShellProcPtr newProc)); /* 15 */
sl@0:     int (*tclMacOSErrorToPosixError) _ANSI_ARGS_((int error)); /* 16 */
sl@0:     void (*tclMacRemoveTimer) _ANSI_ARGS_((void * timerToken)); /* 17 */
sl@0:     void * (*tclMacStartTimer) _ANSI_ARGS_((long ms)); /* 18 */
sl@0:     int (*tclMacTimerExpired) _ANSI_ARGS_((void * timerToken)); /* 19 */
sl@0:     int (*tclMacRegisterResourceFork) _ANSI_ARGS_((short fileRef, Tcl_Obj * tokenPtr, int insert)); /* 20 */
sl@0:     short (*tclMacUnRegisterResourceFork) _ANSI_ARGS_((char * tokenPtr, Tcl_Obj * resultPtr)); /* 21 */
sl@0:     int (*tclMacCreateEnv) _ANSI_ARGS_((void)); /* 22 */
sl@0:     FILE * (*tclMacFOpenHack) _ANSI_ARGS_((CONST char * path, CONST char * mode)); /* 23 */
sl@0:     char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 24 */
sl@0:     int (*tclMacChmod) _ANSI_ARGS_((CONST char * path, int mode)); /* 25 */
sl@0:     int (*fSpLLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 26 */
sl@0: #endif /* MAC_TCL */
sl@0: } TclIntPlatStubs;
sl@0: 
sl@0: #ifdef __cplusplus
sl@0: extern "C" {
sl@0: #endif
sl@0: extern TclIntPlatStubs *tclIntPlatStubsPtr;
sl@0: #ifdef __cplusplus
sl@0: }
sl@0: #endif
sl@0: 
sl@0: #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
sl@0: 
sl@0: /*
sl@0:  * Inline function declarations:
sl@0:  */
sl@0: 
sl@0: #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
sl@0: #ifndef TclGetAndDetachPids
sl@0: #define TclGetAndDetachPids \
sl@0: 	(tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */
sl@0: #endif
sl@0: #ifndef TclpCloseFile
sl@0: #define TclpCloseFile \
sl@0: 	(tclIntPlatStubsPtr->tclpCloseFile) /* 1 */
sl@0: #endif
sl@0: #ifndef TclpCreateCommandChannel
sl@0: #define TclpCreateCommandChannel \
sl@0: 	(tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */
sl@0: #endif
sl@0: #ifndef TclpCreatePipe
sl@0: #define TclpCreatePipe \
sl@0: 	(tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */
sl@0: #endif
sl@0: #ifndef TclpCreateProcess
sl@0: #define TclpCreateProcess \
sl@0: 	(tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */
sl@0: #endif
sl@0: /* Slot 5 is reserved */
sl@0: #ifndef TclpMakeFile
sl@0: #define TclpMakeFile \
sl@0: 	(tclIntPlatStubsPtr->tclpMakeFile) /* 6 */
sl@0: #endif
sl@0: #ifndef TclpOpenFile
sl@0: #define TclpOpenFile \
sl@0: 	(tclIntPlatStubsPtr->tclpOpenFile) /* 7 */
sl@0: #endif
sl@0: #ifndef TclUnixWaitForFile
sl@0: #define TclUnixWaitForFile \
sl@0: 	(tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */
sl@0: #endif
sl@0: #ifndef TclpCreateTempFile
sl@0: #define TclpCreateTempFile \
sl@0: 	(tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */
sl@0: #endif
sl@0: #ifndef TclpReaddir
sl@0: #define TclpReaddir \
sl@0: 	(tclIntPlatStubsPtr->tclpReaddir) /* 10 */
sl@0: #endif
sl@0: #ifndef TclpLocaltime_unix
sl@0: #define TclpLocaltime_unix \
sl@0: 	(tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */
sl@0: #endif
sl@0: #ifndef TclpGmtime_unix
sl@0: #define TclpGmtime_unix \
sl@0: 	(tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */
sl@0: #endif
sl@0: #ifndef TclpInetNtoa
sl@0: #define TclpInetNtoa \
sl@0: 	(tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */
sl@0: #endif
sl@0: #ifdef __SYMBIAN32__
sl@0: #ifndef ChildProcessInit
sl@0: #define ChildProcessInit \
sl@0: 	(tclPlatStubsPtr->ChildProcessInit) /* 14 */
sl@0: #endif
sl@0: #ifndef ChildProcessCleanup
sl@0: #define ChildProcessCleanup \
sl@0: 	(tclPlatStubsPtr->ChildProcessCleanup) /* 15 */
sl@0: #endif
sl@0: #ifndef get_gFileName
sl@0: #define get_gFileName \
sl@0: 	(tclPlatStubsPtr->get_gFileName) /* 16 */
sl@0: #endif
sl@0: #ifndef get_tclExecutableName
sl@0: #define get_tclExecutableName \
sl@0: 	(tclPlatStubsPtr->get_tclExecutableName) /* 17 */
sl@0: #endif
sl@0: #ifndef get_tclNativeExecutableName
sl@0: #define get_tclNativeExecutableName \
sl@0: 	(tclPlatStubsPtr->get_tclNativeExecutableName) /* 18 */
sl@0: #endif
sl@0: #ifndef get_dataKey
sl@0: #define get_dataKey \
sl@0: 	(tclPlatStubsPtr->get_dataKey) /* 19 */
sl@0: #endif
sl@0: #ifndef inFinalize
sl@0: #define inFinalize \
sl@0: 	(tclPlatStubsPtr->inFinalize) /* 20 */
sl@0: #endif
sl@0: #ifndef subsystemsInitialized
sl@0: #define subsystemsInitialized \
sl@0: 	(tclPlatStubsPtr->subsystemsInitialized) /* 21 */
sl@0: #endif
sl@0: #endif /* __SYMBIAN32__ */
sl@0: #endif /* UNIX */
sl@0: #ifdef __WIN32__
sl@0: #ifndef TclWinConvertError
sl@0: #define TclWinConvertError \
sl@0: 	(tclIntPlatStubsPtr->tclWinConvertError) /* 0 */
sl@0: #endif
sl@0: #ifndef TclWinConvertWSAError
sl@0: #define TclWinConvertWSAError \
sl@0: 	(tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */
sl@0: #endif
sl@0: #ifndef TclWinGetServByName
sl@0: #define TclWinGetServByName \
sl@0: 	(tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */
sl@0: #endif
sl@0: #ifndef TclWinGetSockOpt
sl@0: #define TclWinGetSockOpt \
sl@0: 	(tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */
sl@0: #endif
sl@0: #ifndef TclWinGetTclInstance
sl@0: #define TclWinGetTclInstance \
sl@0: 	(tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */
sl@0: #endif
sl@0: /* Slot 5 is reserved */
sl@0: #ifndef TclWinNToHS
sl@0: #define TclWinNToHS \
sl@0: 	(tclIntPlatStubsPtr->tclWinNToHS) /* 6 */
sl@0: #endif
sl@0: #ifndef TclWinSetSockOpt
sl@0: #define TclWinSetSockOpt \
sl@0: 	(tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */
sl@0: #endif
sl@0: #ifndef TclpGetPid
sl@0: #define TclpGetPid \
sl@0: 	(tclIntPlatStubsPtr->tclpGetPid) /* 8 */
sl@0: #endif
sl@0: #ifndef TclWinGetPlatformId
sl@0: #define TclWinGetPlatformId \
sl@0: 	(tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */
sl@0: #endif
sl@0: /* Slot 10 is reserved */
sl@0: #ifndef TclGetAndDetachPids
sl@0: #define TclGetAndDetachPids \
sl@0: 	(tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */
sl@0: #endif
sl@0: #ifndef TclpCloseFile
sl@0: #define TclpCloseFile \
sl@0: 	(tclIntPlatStubsPtr->tclpCloseFile) /* 12 */
sl@0: #endif
sl@0: #ifndef TclpCreateCommandChannel
sl@0: #define TclpCreateCommandChannel \
sl@0: 	(tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */
sl@0: #endif
sl@0: #ifndef TclpCreatePipe
sl@0: #define TclpCreatePipe \
sl@0: 	(tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */
sl@0: #endif
sl@0: #ifndef TclpCreateProcess
sl@0: #define TclpCreateProcess \
sl@0: 	(tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */
sl@0: #endif
sl@0: /* Slot 16 is reserved */
sl@0: /* Slot 17 is reserved */
sl@0: #ifndef TclpMakeFile
sl@0: #define TclpMakeFile \
sl@0: 	(tclIntPlatStubsPtr->tclpMakeFile) /* 18 */
sl@0: #endif
sl@0: #ifndef TclpOpenFile
sl@0: #define TclpOpenFile \
sl@0: 	(tclIntPlatStubsPtr->tclpOpenFile) /* 19 */
sl@0: #endif
sl@0: #ifndef TclWinAddProcess
sl@0: #define TclWinAddProcess \
sl@0: 	(tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */
sl@0: #endif
sl@0: /* Slot 21 is reserved */
sl@0: #ifndef TclpCreateTempFile
sl@0: #define TclpCreateTempFile \
sl@0: 	(tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */
sl@0: #endif
sl@0: #ifndef TclpGetTZName
sl@0: #define TclpGetTZName \
sl@0: 	(tclIntPlatStubsPtr->tclpGetTZName) /* 23 */
sl@0: #endif
sl@0: #ifndef TclWinNoBackslash
sl@0: #define TclWinNoBackslash \
sl@0: 	(tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */
sl@0: #endif
sl@0: #ifndef TclWinGetPlatform
sl@0: #define TclWinGetPlatform \
sl@0: 	(tclIntPlatStubsPtr->tclWinGetPlatform) /* 25 */
sl@0: #endif
sl@0: #ifndef TclWinSetInterfaces
sl@0: #define TclWinSetInterfaces \
sl@0: 	(tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */
sl@0: #endif
sl@0: #ifndef TclWinFlushDirtyChannels
sl@0: #define TclWinFlushDirtyChannels \
sl@0: 	(tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */
sl@0: #endif
sl@0: #ifndef TclWinResetInterfaces
sl@0: #define TclWinResetInterfaces \
sl@0: 	(tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */
sl@0: #endif
sl@0: #ifndef TclWinCPUID
sl@0: #define TclWinCPUID \
sl@0: 	(tclIntPlatStubsPtr->tclWinCPUID) /* 29 */
sl@0: #endif
sl@0: #endif /* __WIN32__ */
sl@0: #ifdef MAC_TCL
sl@0: #ifndef TclpSysAlloc
sl@0: #define TclpSysAlloc \
sl@0: 	(tclIntPlatStubsPtr->tclpSysAlloc) /* 0 */
sl@0: #endif
sl@0: #ifndef TclpSysFree
sl@0: #define TclpSysFree \
sl@0: 	(tclIntPlatStubsPtr->tclpSysFree) /* 1 */
sl@0: #endif
sl@0: #ifndef TclpSysRealloc
sl@0: #define TclpSysRealloc \
sl@0: 	(tclIntPlatStubsPtr->tclpSysRealloc) /* 2 */
sl@0: #endif
sl@0: #ifndef TclpExit
sl@0: #define TclpExit \
sl@0: 	(tclIntPlatStubsPtr->tclpExit) /* 3 */
sl@0: #endif
sl@0: #ifndef FSpGetDefaultDir
sl@0: #define FSpGetDefaultDir \
sl@0: 	(tclIntPlatStubsPtr->fSpGetDefaultDir) /* 4 */
sl@0: #endif
sl@0: #ifndef FSpSetDefaultDir
sl@0: #define FSpSetDefaultDir \
sl@0: 	(tclIntPlatStubsPtr->fSpSetDefaultDir) /* 5 */
sl@0: #endif
sl@0: #ifndef FSpFindFolder
sl@0: #define FSpFindFolder \
sl@0: 	(tclIntPlatStubsPtr->fSpFindFolder) /* 6 */
sl@0: #endif
sl@0: #ifndef GetGlobalMouseTcl
sl@0: #define GetGlobalMouseTcl \
sl@0: 	(tclIntPlatStubsPtr->getGlobalMouseTcl) /* 7 */
sl@0: #endif
sl@0: #ifndef FSpGetDirectoryIDTcl
sl@0: #define FSpGetDirectoryIDTcl \
sl@0: 	(tclIntPlatStubsPtr->fSpGetDirectoryIDTcl) /* 8 */
sl@0: #endif
sl@0: #ifndef FSpOpenResFileCompatTcl
sl@0: #define FSpOpenResFileCompatTcl \
sl@0: 	(tclIntPlatStubsPtr->fSpOpenResFileCompatTcl) /* 9 */
sl@0: #endif
sl@0: #ifndef FSpCreateResFileCompatTcl
sl@0: #define FSpCreateResFileCompatTcl \
sl@0: 	(tclIntPlatStubsPtr->fSpCreateResFileCompatTcl) /* 10 */
sl@0: #endif
sl@0: #ifndef FSpLocationFromPath
sl@0: #define FSpLocationFromPath \
sl@0: 	(tclIntPlatStubsPtr->fSpLocationFromPath) /* 11 */
sl@0: #endif
sl@0: #ifndef FSpPathFromLocation
sl@0: #define FSpPathFromLocation \
sl@0: 	(tclIntPlatStubsPtr->fSpPathFromLocation) /* 12 */
sl@0: #endif
sl@0: #ifndef TclMacExitHandler
sl@0: #define TclMacExitHandler \
sl@0: 	(tclIntPlatStubsPtr->tclMacExitHandler) /* 13 */
sl@0: #endif
sl@0: #ifndef TclMacInitExitToShell
sl@0: #define TclMacInitExitToShell \
sl@0: 	(tclIntPlatStubsPtr->tclMacInitExitToShell) /* 14 */
sl@0: #endif
sl@0: #ifndef TclMacInstallExitToShellPatch
sl@0: #define TclMacInstallExitToShellPatch \
sl@0: 	(tclIntPlatStubsPtr->tclMacInstallExitToShellPatch) /* 15 */
sl@0: #endif
sl@0: #ifndef TclMacOSErrorToPosixError
sl@0: #define TclMacOSErrorToPosixError \
sl@0: 	(tclIntPlatStubsPtr->tclMacOSErrorToPosixError) /* 16 */
sl@0: #endif
sl@0: #ifndef TclMacRemoveTimer
sl@0: #define TclMacRemoveTimer \
sl@0: 	(tclIntPlatStubsPtr->tclMacRemoveTimer) /* 17 */
sl@0: #endif
sl@0: #ifndef TclMacStartTimer
sl@0: #define TclMacStartTimer \
sl@0: 	(tclIntPlatStubsPtr->tclMacStartTimer) /* 18 */
sl@0: #endif
sl@0: #ifndef TclMacTimerExpired
sl@0: #define TclMacTimerExpired \
sl@0: 	(tclIntPlatStubsPtr->tclMacTimerExpired) /* 19 */
sl@0: #endif
sl@0: #ifndef TclMacRegisterResourceFork
sl@0: #define TclMacRegisterResourceFork \
sl@0: 	(tclIntPlatStubsPtr->tclMacRegisterResourceFork) /* 20 */
sl@0: #endif
sl@0: #ifndef TclMacUnRegisterResourceFork
sl@0: #define TclMacUnRegisterResourceFork \
sl@0: 	(tclIntPlatStubsPtr->tclMacUnRegisterResourceFork) /* 21 */
sl@0: #endif
sl@0: #ifndef TclMacCreateEnv
sl@0: #define TclMacCreateEnv \
sl@0: 	(tclIntPlatStubsPtr->tclMacCreateEnv) /* 22 */
sl@0: #endif
sl@0: #ifndef TclMacFOpenHack
sl@0: #define TclMacFOpenHack \
sl@0: 	(tclIntPlatStubsPtr->tclMacFOpenHack) /* 23 */
sl@0: #endif
sl@0: #ifndef TclpGetTZName
sl@0: #define TclpGetTZName \
sl@0: 	(tclIntPlatStubsPtr->tclpGetTZName) /* 24 */
sl@0: #endif
sl@0: #ifndef TclMacChmod
sl@0: #define TclMacChmod \
sl@0: 	(tclIntPlatStubsPtr->tclMacChmod) /* 25 */
sl@0: #endif
sl@0: #ifndef FSpLLocationFromPath
sl@0: #define FSpLLocationFromPath \
sl@0: 	(tclIntPlatStubsPtr->fSpLLocationFromPath) /* 26 */
sl@0: #endif
sl@0: #endif /* MAC_TCL */
sl@0: 
sl@0: #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
sl@0: 
sl@0: /* !END!: Do not edit above this line. */
sl@0: 
sl@0: #endif /* _TCLINTPLATDECLS */