Symaptic: os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/generic/tclIntPlatDecls.h@bde4ae8d615e

     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  * Portions Copyright (c) 2007-2008 Nokia Corporation and/or its subsidiaries. All rights reserved.

    12  *

    13  * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.19.2.7 2007/04/21 19:52:14 kennykb Exp $

    14  */

    16 #ifndef _TCLINTPLATDECLS

    17 #define _TCLINTPLATDECLS

    19 /*

    20  * WARNING: This file is automatically generated by the tools/genStubs.tcl

    21  * script.  Any modifications to the function declarations below should be made

    22  * in the generic/tclInt.decls script.

    23  */

    25 /* !BEGIN!: Do not edit below this line. */

    27 /*

    28  * Exported function declarations:

    29  */

    31 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */

    32 /* 0 */

    33 EXTERN void		TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp,

    34 				Tcl_Channel chan));

    35 /* 1 */

    36 EXTERN int		TclpCloseFile _ANSI_ARGS_((TclFile file));

    37 /* 2 */

    38 EXTERN Tcl_Channel	TclpCreateCommandChannel _ANSI_ARGS_((

    39 				TclFile readFile, TclFile writeFile,

    40 				TclFile errorFile, int numPids,

    41 				Tcl_Pid * pidPtr));

    42 /* 3 */

    43 EXTERN int		TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe,

    44 				TclFile * writePipe));

    45 /* 4 */

    46 EXTERN int		TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp,

    47 				int argc, CONST char ** argv,

    48 				TclFile inputFile, TclFile outputFile,

    49 				TclFile errorFile, Tcl_Pid * pidPtr));

    50 /* Slot 5 is reserved */

    51 /* 6 */

    52 EXTERN TclFile		TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel,

    53 				int direction));

    54 /* 7 */

    55 EXTERN TclFile		TclpOpenFile _ANSI_ARGS_((CONST char * fname,

    56 				int mode));

    57 /* 8 */

    58 EXTERN int		TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask,

    59 				int timeout));

    60 /* 9 */

    61 EXTERN TclFile		TclpCreateTempFile _ANSI_ARGS_((

    62 				CONST char * contents));

    63 /* 10 */

    64 EXTERN Tcl_DirEntry *	TclpReaddir _ANSI_ARGS_((DIR * dir));

    65 /* 11 */

    66 EXTERN struct tm *	TclpLocaltime_unix _ANSI_ARGS_((

    67 				TclpTime_t_CONST clock));

    68 /* 12 */

    69 EXTERN struct tm *	TclpGmtime_unix _ANSI_ARGS_((TclpTime_t_CONST clock));

    70 /* 13 */

    71 EXTERN char *		TclpInetNtoa _ANSI_ARGS_((struct in_addr addr));

    72 #ifdef __SYMBIAN32__

    74 #ifdef __WINSCW__

    75 /* 16 */

    76 EXTERN void*    get_gFileName _ANSI_ARGS_((int index));

    77 /* 17 */

    78 EXTERN char**   get_tclExecutableName _ANSI_ARGS_(());

    79 /* 18 */

    80 EXTERN char**   get_tclNativeExecutableName _ANSI_ARGS_(());

    81 /* 19 */

    82 EXTERN void**   get_dataKey _ANSI_ARGS_((int index));

    83 /* 20 */

    84 EXTERN void* 	get_inFinalize _ANSI_ARGS_(());

    85 /* 21 */

    86 EXTERN void* 	get_subsystemsInitialized _ANSI_ARGS_(());

    87 /* 22 */

    88 EXTERN void** 	get_allocHead _ANSI_ARGS_(());

    89 /* 23 */

    90 EXTERN void** 	get_defaultEncoding _ANSI_ARGS_(());

    91 /* 24 */

    92 EXTERN void** 	get_systemEncoding _ANSI_ARGS_(());

    93 /* 25 */

    94 EXTERN void* 	get_encodingTable _ANSI_ARGS_(());

    95 /* 26 */

    96 EXTERN void* 	get_keyRecord _ANSI_ARGS_(());

    97 /* 27 */

    98 EXTERN void* 	get_typeTable _ANSI_ARGS_(());

    99 /* 28 */

   100 EXTERN void* 	get_typeTableInitialized _ANSI_ARGS_(());

   101 /* 29 */

   102 EXTERN void* 	get_encodingsInitialized _ANSI_ARGS_(());

   103 /* 30 */

   104 EXTERN char**   get_tclDefaultEncodingDir _ANSI_ARGS_(());

   105 /* 31 */

   106 EXTERN char**   get_tclLibraryPathStr _ANSI_ARGS_(());

   107 /* 32 */

   108 EXTERN void* 	get_opTableInitialized _ANSI_ARGS_(());

   109 /* 33 */

   110 EXTERN void* 	get_opHashTable _ANSI_ARGS_(());

   111 /* 34 */

   112 EXTERN void* 	get_auxDataTypeTableInitialized _ANSI_ARGS_(());

   113 /* 35 */

   114 EXTERN void* 	get_auxDataTypeTable _ANSI_ARGS_(());

   115 /* 36 */

   116 EXTERN void** 	get_cwdPathPtr _ANSI_ARGS_(());

   117 /* 37 */

   118 EXTERN void* 	get_cwdPathEpoch _ANSI_ARGS_(());

   119 /* 38 */

   120 EXTERN void** 	get_refArray _ANSI_ARGS_(());

   121 /* 39 */

   122 EXTERN void* 	get_spaceAvl _ANSI_ARGS_(());

   123 /* 40 */

   124 EXTERN void* 	get_inUse _ANSI_ARGS_(());

   125 /* 41 */

   126 EXTERN void		TclpExit _ANSI_ARGS_((int status));

   127 /* 42 */

   128 EXTERN void* 	get_tclPlatform _ANSI_ARGS_(());

   129 /* 43 */

   130 EXTERN void** 	get_firstNotifierPtr _ANSI_ARGS_(());

   131 #endif /* __WINSCW__ */

   132 #endif /* __SYMBIAN32__ */

   133 #endif /* UNIX */

   134 #ifdef __WIN32__

   135 /* 0 */

   136 EXTERN void		TclWinConvertError _ANSI_ARGS_((DWORD errCode));

   137 /* 1 */

   138 EXTERN void		TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode));

   139 /* 2 */

   140 EXTERN struct servent *	 TclWinGetServByName _ANSI_ARGS_((CONST char * nm,

   141 				CONST char * proto));

   142 /* 3 */

   143 EXTERN int		TclWinGetSockOpt _ANSI_ARGS_((SOCKET s, int level,

   144 				int optname, char FAR * optval,

   145 				int FAR * optlen));

   146 /* 4 */

   147 EXTERN HINSTANCE	TclWinGetTclInstance _ANSI_ARGS_((void));

   148 /* Slot 5 is reserved */

   149 /* 6 */

   150 EXTERN u_short		TclWinNToHS _ANSI_ARGS_((u_short ns));

   151 /* 7 */

   152 EXTERN int		TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level,

   153 				int optname, CONST char FAR * optval,

   154 				int optlen));

   155 /* 8 */

   156 EXTERN unsigned long	TclpGetPid _ANSI_ARGS_((Tcl_Pid pid));

   157 /* 9 */

   158 EXTERN int		TclWinGetPlatformId _ANSI_ARGS_((void));

   159 /* Slot 10 is reserved */

   160 /* 11 */

   161 EXTERN void		TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp,

   162 				Tcl_Channel chan));

   163 /* 12 */

   164 EXTERN int		TclpCloseFile _ANSI_ARGS_((TclFile file));

   165 /* 13 */

   166 EXTERN Tcl_Channel	TclpCreateCommandChannel _ANSI_ARGS_((

   167 				TclFile readFile, TclFile writeFile,

   168 				TclFile errorFile, int numPids,

   169 				Tcl_Pid * pidPtr));

   170 /* 14 */

   171 EXTERN int		TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe,

   172 				TclFile * writePipe));

   173 /* 15 */

   174 EXTERN int		TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp,

   175 				int argc, CONST char ** argv,

   176 				TclFile inputFile, TclFile outputFile,

   177 				TclFile errorFile, Tcl_Pid * pidPtr));

   178 /* Slot 16 is reserved */

   179 /* Slot 17 is reserved */

   180 /* 18 */

   181 EXTERN TclFile		TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel,

   182 				int direction));

   183 /* 19 */

   184 EXTERN TclFile		TclpOpenFile _ANSI_ARGS_((CONST char * fname,

   185 				int mode));

   186 /* 20 */

   187 EXTERN void		TclWinAddProcess _ANSI_ARGS_((HANDLE hProcess,

   188 				DWORD id));

   189 /* Slot 21 is reserved */

   190 /* 22 */

   191 EXTERN TclFile		TclpCreateTempFile _ANSI_ARGS_((

   192 				CONST char * contents));

   193 /* 23 */

   194 EXTERN char *		TclpGetTZName _ANSI_ARGS_((int isdst));

   195 /* 24 */

   196 EXTERN char *		TclWinNoBackslash _ANSI_ARGS_((char * path));

   197 /* 25 */

   198 EXTERN TclPlatformType * TclWinGetPlatform _ANSI_ARGS_((void));

   199 /* 26 */

   200 EXTERN void		TclWinSetInterfaces _ANSI_ARGS_((int wide));

   201 /* 27 */

   202 EXTERN void		TclWinFlushDirtyChannels _ANSI_ARGS_((void));

   203 /* 28 */

   204 EXTERN void		TclWinResetInterfaces _ANSI_ARGS_((void));

   205 /* 29 */

   206 EXTERN int		TclWinCPUID _ANSI_ARGS_((unsigned int index,

   207 				unsigned int * regs));

   208 #endif /* __WIN32__ */

   209 #ifdef MAC_TCL

   210 /* 0 */

   211 EXTERN VOID *		TclpSysAlloc _ANSI_ARGS_((long size, int isBin));

   212 /* 1 */

   213 EXTERN void		TclpSysFree _ANSI_ARGS_((VOID * ptr));

   214 /* 2 */

   215 EXTERN VOID *		TclpSysRealloc _ANSI_ARGS_((VOID * cp,

   216 				unsigned int size));

   217 /* 3 */

   218 EXTERN void		TclpExit _ANSI_ARGS_((int status));

   219 /* 4 */

   220 EXTERN int		FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));

   221 /* 5 */

   222 EXTERN int		FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));

   223 /* 6 */

   224 EXTERN OSErr		FSpFindFolder _ANSI_ARGS_((short vRefNum,

   225 				OSType folderType, Boolean createFolder,

   226 				FSSpec * spec));

   227 /* 7 */

   228 EXTERN void		GetGlobalMouseTcl _ANSI_ARGS_((Point * mouse));

   229 /* 8 */

   230 EXTERN pascal OSErr	FSpGetDirectoryIDTcl _ANSI_ARGS_((

   231 				CONST FSSpec * spec, long * theDirID,

   232 				Boolean * isDirectory));

   233 /* 9 */

   234 EXTERN pascal short	FSpOpenResFileCompatTcl _ANSI_ARGS_((

   235 				CONST FSSpec * spec, SignedByte permission));

   236 /* 10 */

   237 EXTERN pascal void	FSpCreateResFileCompatTcl _ANSI_ARGS_((

   238 				CONST FSSpec * spec, OSType creator,

   239 				OSType fileType, ScriptCode scriptTag));

   240 /* 11 */

   241 EXTERN int		FSpLocationFromPath _ANSI_ARGS_((int length,

   242 				CONST char * path, FSSpecPtr theSpec));

   243 /* 12 */

   244 EXTERN OSErr		FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec,

   245 				int * length, Handle * fullPath));

   246 /* 13 */

   247 EXTERN void		TclMacExitHandler _ANSI_ARGS_((void));

   248 /* 14 */

   249 EXTERN void		TclMacInitExitToShell _ANSI_ARGS_((int usePatch));

   250 /* 15 */

   251 EXTERN OSErr		TclMacInstallExitToShellPatch _ANSI_ARGS_((

   252 				ExitToShellProcPtr newProc));

   253 /* 16 */

   254 EXTERN int		TclMacOSErrorToPosixError _ANSI_ARGS_((int error));

   255 /* 17 */

   256 EXTERN void		TclMacRemoveTimer _ANSI_ARGS_((void * timerToken));

   257 /* 18 */

   258 EXTERN void *		TclMacStartTimer _ANSI_ARGS_((long ms));

   259 /* 19 */

   260 EXTERN int		TclMacTimerExpired _ANSI_ARGS_((void * timerToken));

   261 /* 20 */

   262 EXTERN int		TclMacRegisterResourceFork _ANSI_ARGS_((

   263 				short fileRef, Tcl_Obj * tokenPtr,

   264 				int insert));

   265 /* 21 */

   266 EXTERN short		TclMacUnRegisterResourceFork _ANSI_ARGS_((

   267 				char * tokenPtr, Tcl_Obj * resultPtr));

   268 /* 22 */

   269 EXTERN int		TclMacCreateEnv _ANSI_ARGS_((void));

   270 /* 23 */

   271 EXTERN FILE *		TclMacFOpenHack _ANSI_ARGS_((CONST char * path,

   272 				CONST char * mode));

   273 /* 24 */

   274 EXTERN char *		TclpGetTZName _ANSI_ARGS_((int isdst));

   275 /* 25 */

   276 EXTERN int		TclMacChmod _ANSI_ARGS_((CONST char * path, int mode));

   277 /* 26 */

   278 EXTERN int		FSpLLocationFromPath _ANSI_ARGS_((int length,

   279 				CONST char * path, FSSpecPtr theSpec));

   280 #endif /* MAC_TCL */

   282 typedef struct TclIntPlatStubs {

   283     int magic;

   284     struct TclIntPlatStubHooks *hooks;

   286 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */

   287     void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */

   288     int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */

   289     Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */

   290     int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */

   291     int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */

   292     void *reserved5;

   293     TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */

   294     TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */

   295     int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */

   296     TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */

   297     Tcl_DirEntry * (*tclpReaddir) _ANSI_ARGS_((DIR * dir)); /* 10 */

   298     struct tm * (*tclpLocaltime_unix) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 11 */

   299     struct tm * (*tclpGmtime_unix) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 12 */

   300     char * (*tclpInetNtoa) _ANSI_ARGS_((struct in_addr addr)); /* 13 */

   301 #ifdef __SYMBIAN32__

   302     int	(*ChildProcessInit) _ANSI_ARGS_((int *argc, char ***argv));/* 14 */

   303     void (*ChildProcessCleanup) _ANSI_ARGS_((int isChildProcess, int argc, char **argv)); /* 15 */

   304 #ifdef __WINSCW__

   305     void* (*get_gFileName) _ANSI_ARGS_((int index)); /* 16 */

   306     char** (*get_tclExecutableName) _ANSI_ARGS_(()); /* 17 */

   307     char** (*get_tclNativeExecutableName) _ANSI_ARGS_(()); /* 18 */

   308     void** (*get_dataKey) _ANSI_ARGS_((int index)); /* 19 */

   309     void* (*get_inFinalize) _ANSI_ARGS_(()); /* 20 */

   310     void* (*get_subsystemsInitialized) _ANSI_ARGS_(()); /* 21 */

   311     void** 	(*get_allocHead) _ANSI_ARGS_(()); /* 22 */

   312     void** 	(*get_defaultEncoding) _ANSI_ARGS_(()); /* 23 */

   313     void** 	(*get_systemEncoding) _ANSI_ARGS_(()); /* 24 */

   314     void* 	(*get_encodingTable) _ANSI_ARGS_(()); /* 25 */

   315     void* 	(*get_keyRecord) _ANSI_ARGS_(()); /* 26 */

   316     void* 	(*get_typeTable) _ANSI_ARGS_(()); /* 27 */

   317     void* 	(*get_typeTableInitialized) _ANSI_ARGS_(()); /* 28 */

   318     void* 	(*get_encodingsInitialized) _ANSI_ARGS_(()); /* 29 */

   319     char**  (*get_tclDefaultEncodingDir) _ANSI_ARGS_(()); /* 30 */

   320     char**  (*get_tclLibraryPathStr) _ANSI_ARGS_(()); /* 31 */

   321     void* 	(*get_opTableInitialized) _ANSI_ARGS_(()); /* 32 */

   322     void* 	(*get_opHashTable) _ANSI_ARGS_(()); /* 33 */

   323     void* 	(*get_auxDataTypeTableInitialized) _ANSI_ARGS_(()); /* 34 */

   324     void* 	(*get_auxDataTypeTable) _ANSI_ARGS_(()); /* 35 */

   325     void** 	(*get_cwdPathPtr) _ANSI_ARGS_(()); /* 36 */

   326     void* 	(*get_cwdPathEpoch) _ANSI_ARGS_(()); /* 37 */

   327     void** 	(*get_refArray) _ANSI_ARGS_(()); /* 38 */

   328     void* 	(*get_spaceAvl) _ANSI_ARGS_(()); /* 39 */

   329     void* 	(*get_inUse) _ANSI_ARGS_(()); /* 40 */

   330     void    (*tclpExit) _ANSI_ARGS_((int status)); /* 41 */

   331     void* 	(*get_tclPlatform) _ANSI_ARGS_(()); /* 42 */

   332     void** 	(*get_firstNotifierPtr) _ANSI_ARGS_(()); /* 43 */

   333 #endif /* __WINSCW__ */

   334 #endif /* __SYMBIAN32__ */

   335 #endif /* UNIX */

   336 #ifdef __WIN32__

   337     void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */

   338     void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */

   339     struct servent * (*tclWinGetServByName) _ANSI_ARGS_((CONST char * nm, CONST char * proto)); /* 2 */

   340     int (*tclWinGetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, char FAR * optval, int FAR * optlen)); /* 3 */

   341     HINSTANCE (*tclWinGetTclInstance) _ANSI_ARGS_((void)); /* 4 */

   342     void *reserved5;

   343     u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */

   344     int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, CONST char FAR * optval, int optlen)); /* 7 */

   345     unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */

   346     int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */

   347     void *reserved10;

   348     void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */

   349     int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */

   350     Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */

   351     int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */

   352     int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */

   353     void *reserved16;

   354     void *reserved17;

   355     TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */

   356     TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 19 */

   357     void (*tclWinAddProcess) _ANSI_ARGS_((HANDLE hProcess, DWORD id)); /* 20 */

   358     void *reserved21;

   359     TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 22 */

   360     char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 23 */

   361     char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 24 */

   362     TclPlatformType * (*tclWinGetPlatform) _ANSI_ARGS_((void)); /* 25 */

   363     void (*tclWinSetInterfaces) _ANSI_ARGS_((int wide)); /* 26 */

   364     void (*tclWinFlushDirtyChannels) _ANSI_ARGS_((void)); /* 27 */

   365     void (*tclWinResetInterfaces) _ANSI_ARGS_((void)); /* 28 */

   366     int (*tclWinCPUID) _ANSI_ARGS_((unsigned int index, unsigned int * regs)); /* 29 */

   367 #endif /* __WIN32__ */

   368 #ifdef MAC_TCL

   369     VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */

   370     void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */

   371     VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */

   372     void (*tclpExit) _ANSI_ARGS_((int status)); /* 3 */

   373     int (*fSpGetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 4 */

   374     int (*fSpSetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 5 */

   375     OSErr (*fSpFindFolder) _ANSI_ARGS_((short vRefNum, OSType folderType, Boolean createFolder, FSSpec * spec)); /* 6 */

   376     void (*getGlobalMouseTcl) _ANSI_ARGS_((Point * mouse)); /* 7 */

   377     pascal OSErr (*fSpGetDirectoryIDTcl) _ANSI_ARGS_((CONST FSSpec * spec, long * theDirID, Boolean * isDirectory)); /* 8 */

   378     pascal short (*fSpOpenResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, SignedByte permission)); /* 9 */

   379     pascal void (*fSpCreateResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, OSType creator, OSType fileType, ScriptCode scriptTag)); /* 10 */

   380     int (*fSpLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 11 */

   381     OSErr (*fSpPathFromLocation) _ANSI_ARGS_((FSSpecPtr theSpec, int * length, Handle * fullPath)); /* 12 */

   382     void (*tclMacExitHandler) _ANSI_ARGS_((void)); /* 13 */

   383     void (*tclMacInitExitToShell) _ANSI_ARGS_((int usePatch)); /* 14 */

   384     OSErr (*tclMacInstallExitToShellPatch) _ANSI_ARGS_((ExitToShellProcPtr newProc)); /* 15 */

   385     int (*tclMacOSErrorToPosixError) _ANSI_ARGS_((int error)); /* 16 */

   386     void (*tclMacRemoveTimer) _ANSI_ARGS_((void * timerToken)); /* 17 */

   387     void * (*tclMacStartTimer) _ANSI_ARGS_((long ms)); /* 18 */

   388     int (*tclMacTimerExpired) _ANSI_ARGS_((void * timerToken)); /* 19 */

   389     int (*tclMacRegisterResourceFork) _ANSI_ARGS_((short fileRef, Tcl_Obj * tokenPtr, int insert)); /* 20 */

   390     short (*tclMacUnRegisterResourceFork) _ANSI_ARGS_((char * tokenPtr, Tcl_Obj * resultPtr)); /* 21 */

   391     int (*tclMacCreateEnv) _ANSI_ARGS_((void)); /* 22 */

   392     FILE * (*tclMacFOpenHack) _ANSI_ARGS_((CONST char * path, CONST char * mode)); /* 23 */

   393     char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 24 */

   394     int (*tclMacChmod) _ANSI_ARGS_((CONST char * path, int mode)); /* 25 */

   395     int (*fSpLLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 26 */

   396 #endif /* MAC_TCL */

   397 } TclIntPlatStubs;

   399 #ifdef __cplusplus

   400 extern "C" {

   401 #endif

   402 extern TclIntPlatStubs *tclIntPlatStubsPtr;

   403 #ifdef __cplusplus

   404 }

   405 #endif

   407 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)

   409 /*

   410  * Inline function declarations:

   411  */

   413 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */

   414 #ifndef TclGetAndDetachPids

   415 #define TclGetAndDetachPids \

   416 	(tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */

   417 #endif

   418 #ifndef TclpCloseFile

   419 #define TclpCloseFile \

   420 	(tclIntPlatStubsPtr->tclpCloseFile) /* 1 */

   421 #endif

   422 #ifndef TclpCreateCommandChannel

   423 #define TclpCreateCommandChannel \

   424 	(tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */

   425 #endif

   426 #ifndef TclpCreatePipe

   427 #define TclpCreatePipe \

   428 	(tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */

   429 #endif

   430 #ifndef TclpCreateProcess

   431 #define TclpCreateProcess \

   432 	(tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */

   433 #endif

   434 /* Slot 5 is reserved */

   435 #ifndef TclpMakeFile

   436 #define TclpMakeFile \

   437 	(tclIntPlatStubsPtr->tclpMakeFile) /* 6 */

   438 #endif

   439 #ifndef TclpOpenFile

   440 #define TclpOpenFile \

   441 	(tclIntPlatStubsPtr->tclpOpenFile) /* 7 */

   442 #endif

   443 #ifndef TclUnixWaitForFile

   444 #define TclUnixWaitForFile \

   445 	(tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */

   446 #endif

   447 #ifndef TclpCreateTempFile

   448 #define TclpCreateTempFile \

   449 	(tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */

   450 #endif

   451 #ifndef TclpReaddir

   452 #define TclpReaddir \

   453 	(tclIntPlatStubsPtr->tclpReaddir) /* 10 */

   454 #endif

   455 #ifndef TclpLocaltime_unix

   456 #define TclpLocaltime_unix \

   457 	(tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */

   458 #endif

   459 #ifndef TclpGmtime_unix

   460 #define TclpGmtime_unix \

   461 	(tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */

   462 #endif

   463 #ifndef TclpInetNtoa

   464 #define TclpInetNtoa \

   465 	(tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */

   466 #endif

   467 #ifdef __SYMBIAN32__

   468 #ifndef ChildProcessInit

   469 #define ChildProcessInit \

   470 	(tclPlatStubsPtr->ChildProcessInit) /* 14 */

   471 #endif

   472 #ifndef ChildProcessCleanup

   473 #define ChildProcessCleanup \

   474 	(tclPlatStubsPtr->ChildProcessCleanup) /* 15 */

   475 #endif

   476 #ifndef get_gFileName

   477 #define get_gFileName \

   478 	(tclPlatStubsPtr->get_gFileName) /* 16 */

   479 #endif

   480 #ifndef get_tclExecutableName

   481 #define get_tclExecutableName \

   482 	(tclPlatStubsPtr->get_tclExecutableName) /* 17 */

   483 #endif

   484 #ifndef get_tclNativeExecutableName

   485 #define get_tclNativeExecutableName \

   486 	(tclPlatStubsPtr->get_tclNativeExecutableName) /* 18 */

   487 #endif

   488 #ifndef get_dataKey

   489 #define get_dataKey \

   490 	(tclPlatStubsPtr->get_dataKey) /* 19 */

   491 #endif

   492 #ifndef inFinalize

   493 #define inFinalize \

   494 	(tclPlatStubsPtr->inFinalize) /* 20 */

   495 #endif

   496 #ifndef subsystemsInitialized

   497 #define subsystemsInitialized \

   498 	(tclPlatStubsPtr->subsystemsInitialized) /* 21 */

   499 #endif

   500 #endif /* __SYMBIAN32__ */

   501 #endif /* UNIX */

   502 #ifdef __WIN32__

   503 #ifndef TclWinConvertError

   504 #define TclWinConvertError \

   505 	(tclIntPlatStubsPtr->tclWinConvertError) /* 0 */

   506 #endif

   507 #ifndef TclWinConvertWSAError

   508 #define TclWinConvertWSAError \

   509 	(tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */

   510 #endif

   511 #ifndef TclWinGetServByName

   512 #define TclWinGetServByName \

   513 	(tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */

   514 #endif

   515 #ifndef TclWinGetSockOpt

   516 #define TclWinGetSockOpt \

   517 	(tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */

   518 #endif

   519 #ifndef TclWinGetTclInstance

   520 #define TclWinGetTclInstance \

   521 	(tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */

   522 #endif

   523 /* Slot 5 is reserved */

   524 #ifndef TclWinNToHS

   525 #define TclWinNToHS \

   526 	(tclIntPlatStubsPtr->tclWinNToHS) /* 6 */

   527 #endif

   528 #ifndef TclWinSetSockOpt

   529 #define TclWinSetSockOpt \

   530 	(tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */

   531 #endif

   532 #ifndef TclpGetPid

   533 #define TclpGetPid \

   534 	(tclIntPlatStubsPtr->tclpGetPid) /* 8 */

   535 #endif

   536 #ifndef TclWinGetPlatformId

   537 #define TclWinGetPlatformId \

   538 	(tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */

   539 #endif

   540 /* Slot 10 is reserved */

   541 #ifndef TclGetAndDetachPids

   542 #define TclGetAndDetachPids \

   543 	(tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */

   544 #endif

   545 #ifndef TclpCloseFile

   546 #define TclpCloseFile \

   547 	(tclIntPlatStubsPtr->tclpCloseFile) /* 12 */

   548 #endif

   549 #ifndef TclpCreateCommandChannel

   550 #define TclpCreateCommandChannel \

   551 	(tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */

   552 #endif

   553 #ifndef TclpCreatePipe

   554 #define TclpCreatePipe \

   555 	(tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */

   556 #endif

   557 #ifndef TclpCreateProcess

   558 #define TclpCreateProcess \

   559 	(tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */

   560 #endif

   561 /* Slot 16 is reserved */

   562 /* Slot 17 is reserved */

   563 #ifndef TclpMakeFile

   564 #define TclpMakeFile \

   565 	(tclIntPlatStubsPtr->tclpMakeFile) /* 18 */

   566 #endif

   567 #ifndef TclpOpenFile

   568 #define TclpOpenFile \

   569 	(tclIntPlatStubsPtr->tclpOpenFile) /* 19 */

   570 #endif

   571 #ifndef TclWinAddProcess

   572 #define TclWinAddProcess \

   573 	(tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */

   574 #endif

   575 /* Slot 21 is reserved */

   576 #ifndef TclpCreateTempFile

   577 #define TclpCreateTempFile \

   578 	(tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */

   579 #endif

   580 #ifndef TclpGetTZName

   581 #define TclpGetTZName \

   582 	(tclIntPlatStubsPtr->tclpGetTZName) /* 23 */

   583 #endif

   584 #ifndef TclWinNoBackslash

   585 #define TclWinNoBackslash \

   586 	(tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */

   587 #endif

   588 #ifndef TclWinGetPlatform

   589 #define TclWinGetPlatform \

   590 	(tclIntPlatStubsPtr->tclWinGetPlatform) /* 25 */

   591 #endif

   592 #ifndef TclWinSetInterfaces

   593 #define TclWinSetInterfaces \

   594 	(tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */

   595 #endif

   596 #ifndef TclWinFlushDirtyChannels

   597 #define TclWinFlushDirtyChannels \

   598 	(tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */

   599 #endif

   600 #ifndef TclWinResetInterfaces

   601 #define TclWinResetInterfaces \

   602 	(tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */

   603 #endif

   604 #ifndef TclWinCPUID

   605 #define TclWinCPUID \

   606 	(tclIntPlatStubsPtr->tclWinCPUID) /* 29 */

   607 #endif

   608 #endif /* __WIN32__ */

   609 #ifdef MAC_TCL

   610 #ifndef TclpSysAlloc

   611 #define TclpSysAlloc \

   612 	(tclIntPlatStubsPtr->tclpSysAlloc) /* 0 */

   613 #endif

   614 #ifndef TclpSysFree

   615 #define TclpSysFree \

   616 	(tclIntPlatStubsPtr->tclpSysFree) /* 1 */

   617 #endif

   618 #ifndef TclpSysRealloc

   619 #define TclpSysRealloc \

   620 	(tclIntPlatStubsPtr->tclpSysRealloc) /* 2 */

   621 #endif

   622 #ifndef TclpExit

   623 #define TclpExit \

   624 	(tclIntPlatStubsPtr->tclpExit) /* 3 */

   625 #endif

   626 #ifndef FSpGetDefaultDir

   627 #define FSpGetDefaultDir \

   628 	(tclIntPlatStubsPtr->fSpGetDefaultDir) /* 4 */

   629 #endif

   630 #ifndef FSpSetDefaultDir

   631 #define FSpSetDefaultDir \

   632 	(tclIntPlatStubsPtr->fSpSetDefaultDir) /* 5 */

   633 #endif

   634 #ifndef FSpFindFolder

   635 #define FSpFindFolder \

   636 	(tclIntPlatStubsPtr->fSpFindFolder) /* 6 */

   637 #endif

   638 #ifndef GetGlobalMouseTcl

   639 #define GetGlobalMouseTcl \

   640 	(tclIntPlatStubsPtr->getGlobalMouseTcl) /* 7 */

   641 #endif

   642 #ifndef FSpGetDirectoryIDTcl

   643 #define FSpGetDirectoryIDTcl \

   644 	(tclIntPlatStubsPtr->fSpGetDirectoryIDTcl) /* 8 */

   645 #endif

   646 #ifndef FSpOpenResFileCompatTcl

   647 #define FSpOpenResFileCompatTcl \

   648 	(tclIntPlatStubsPtr->fSpOpenResFileCompatTcl) /* 9 */

   649 #endif

   650 #ifndef FSpCreateResFileCompatTcl

   651 #define FSpCreateResFileCompatTcl \

   652 	(tclIntPlatStubsPtr->fSpCreateResFileCompatTcl) /* 10 */

   653 #endif

   654 #ifndef FSpLocationFromPath

   655 #define FSpLocationFromPath \

   656 	(tclIntPlatStubsPtr->fSpLocationFromPath) /* 11 */

   657 #endif

   658 #ifndef FSpPathFromLocation

   659 #define FSpPathFromLocation \

   660 	(tclIntPlatStubsPtr->fSpPathFromLocation) /* 12 */

   661 #endif

   662 #ifndef TclMacExitHandler

   663 #define TclMacExitHandler \

   664 	(tclIntPlatStubsPtr->tclMacExitHandler) /* 13 */

   665 #endif

   666 #ifndef TclMacInitExitToShell

   667 #define TclMacInitExitToShell \

   668 	(tclIntPlatStubsPtr->tclMacInitExitToShell) /* 14 */

   669 #endif

   670 #ifndef TclMacInstallExitToShellPatch

   671 #define TclMacInstallExitToShellPatch \

   672 	(tclIntPlatStubsPtr->tclMacInstallExitToShellPatch) /* 15 */

   673 #endif

   674 #ifndef TclMacOSErrorToPosixError

   675 #define TclMacOSErrorToPosixError \

   676 	(tclIntPlatStubsPtr->tclMacOSErrorToPosixError) /* 16 */

   677 #endif

   678 #ifndef TclMacRemoveTimer

   679 #define TclMacRemoveTimer \

   680 	(tclIntPlatStubsPtr->tclMacRemoveTimer) /* 17 */

   681 #endif

   682 #ifndef TclMacStartTimer

   683 #define TclMacStartTimer \

   684 	(tclIntPlatStubsPtr->tclMacStartTimer) /* 18 */

   685 #endif

   686 #ifndef TclMacTimerExpired

   687 #define TclMacTimerExpired \

   688 	(tclIntPlatStubsPtr->tclMacTimerExpired) /* 19 */

   689 #endif

   690 #ifndef TclMacRegisterResourceFork

   691 #define TclMacRegisterResourceFork \

   692 	(tclIntPlatStubsPtr->tclMacRegisterResourceFork) /* 20 */

   693 #endif

   694 #ifndef TclMacUnRegisterResourceFork

   695 #define TclMacUnRegisterResourceFork \

   696 	(tclIntPlatStubsPtr->tclMacUnRegisterResourceFork) /* 21 */

   697 #endif

   698 #ifndef TclMacCreateEnv

   699 #define TclMacCreateEnv \

   700 	(tclIntPlatStubsPtr->tclMacCreateEnv) /* 22 */

   701 #endif

   702 #ifndef TclMacFOpenHack

   703 #define TclMacFOpenHack \

   704 	(tclIntPlatStubsPtr->tclMacFOpenHack) /* 23 */

   705 #endif

   706 #ifndef TclpGetTZName

   707 #define TclpGetTZName \

   708 	(tclIntPlatStubsPtr->tclpGetTZName) /* 24 */

   709 #endif

   710 #ifndef TclMacChmod

   711 #define TclMacChmod \

   712 	(tclIntPlatStubsPtr->tclMacChmod) /* 25 */

   713 #endif

   714 #ifndef FSpLLocationFromPath

   715 #define FSpLLocationFromPath \

   716 	(tclIntPlatStubsPtr->fSpLLocationFromPath) /* 26 */

   717 #endif

   718 #endif /* MAC_TCL */

   720 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */

   722 /* !END!: Do not edit above this line. */

   724 #endif /* _TCLINTPLATDECLS */

author	sl@SLION-WIN7.fritz.box
	Fri, 15 Jun 2012 03:10:57 +0200
changeset 0	bde4ae8d615e
permissions	-rw-r--r--