os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/generic/tclIntPlatDecls.h
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/generic/tclIntPlatDecls.h Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,724 @@
1.4 +/*
1.5 + * tclIntPlatDecls.h --
1.6 + *
1.7 + * This file contains the declarations for all platform dependent
1.8 + * unsupported functions that are exported by the Tcl library. These
1.9 + * interfaces are not guaranteed to remain the same between
1.10 + * versions. Use at your own risk.
1.11 + *
1.12 + * Copyright (c) 1998-1999 by Scriptics Corporation.
1.13 + * All rights reserved.
1.14 + * Portions Copyright (c) 2007-2008 Nokia Corporation and/or its subsidiaries. All rights reserved.
1.15 + *
1.16 + * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.19.2.7 2007/04/21 19:52:14 kennykb Exp $
1.17 + */
1.18 +
1.19 +#ifndef _TCLINTPLATDECLS
1.20 +#define _TCLINTPLATDECLS
1.21 +
1.22 +/*
1.23 + * WARNING: This file is automatically generated by the tools/genStubs.tcl
1.24 + * script. Any modifications to the function declarations below should be made
1.25 + * in the generic/tclInt.decls script.
1.26 + */
1.27 +
1.28 +/* !BEGIN!: Do not edit below this line. */
1.29 +
1.30 +/*
1.31 + * Exported function declarations:
1.32 + */
1.33 +
1.34 +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
1.35 +/* 0 */
1.36 +EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp,
1.37 + Tcl_Channel chan));
1.38 +/* 1 */
1.39 +EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file));
1.40 +/* 2 */
1.41 +EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_((
1.42 + TclFile readFile, TclFile writeFile,
1.43 + TclFile errorFile, int numPids,
1.44 + Tcl_Pid * pidPtr));
1.45 +/* 3 */
1.46 +EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe,
1.47 + TclFile * writePipe));
1.48 +/* 4 */
1.49 +EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp,
1.50 + int argc, CONST char ** argv,
1.51 + TclFile inputFile, TclFile outputFile,
1.52 + TclFile errorFile, Tcl_Pid * pidPtr));
1.53 +/* Slot 5 is reserved */
1.54 +/* 6 */
1.55 +EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel,
1.56 + int direction));
1.57 +/* 7 */
1.58 +EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname,
1.59 + int mode));
1.60 +/* 8 */
1.61 +EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask,
1.62 + int timeout));
1.63 +/* 9 */
1.64 +EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((
1.65 + CONST char * contents));
1.66 +/* 10 */
1.67 +EXTERN Tcl_DirEntry * TclpReaddir _ANSI_ARGS_((DIR * dir));
1.68 +/* 11 */
1.69 +EXTERN struct tm * TclpLocaltime_unix _ANSI_ARGS_((
1.70 + TclpTime_t_CONST clock));
1.71 +/* 12 */
1.72 +EXTERN struct tm * TclpGmtime_unix _ANSI_ARGS_((TclpTime_t_CONST clock));
1.73 +/* 13 */
1.74 +EXTERN char * TclpInetNtoa _ANSI_ARGS_((struct in_addr addr));
1.75 +#ifdef __SYMBIAN32__
1.76 +
1.77 +#ifdef __WINSCW__
1.78 +/* 16 */
1.79 +EXTERN void* get_gFileName _ANSI_ARGS_((int index));
1.80 +/* 17 */
1.81 +EXTERN char** get_tclExecutableName _ANSI_ARGS_(());
1.82 +/* 18 */
1.83 +EXTERN char** get_tclNativeExecutableName _ANSI_ARGS_(());
1.84 +/* 19 */
1.85 +EXTERN void** get_dataKey _ANSI_ARGS_((int index));
1.86 +/* 20 */
1.87 +EXTERN void* get_inFinalize _ANSI_ARGS_(());
1.88 +/* 21 */
1.89 +EXTERN void* get_subsystemsInitialized _ANSI_ARGS_(());
1.90 +/* 22 */
1.91 +EXTERN void** get_allocHead _ANSI_ARGS_(());
1.92 +/* 23 */
1.93 +EXTERN void** get_defaultEncoding _ANSI_ARGS_(());
1.94 +/* 24 */
1.95 +EXTERN void** get_systemEncoding _ANSI_ARGS_(());
1.96 +/* 25 */
1.97 +EXTERN void* get_encodingTable _ANSI_ARGS_(());
1.98 +/* 26 */
1.99 +EXTERN void* get_keyRecord _ANSI_ARGS_(());
1.100 +/* 27 */
1.101 +EXTERN void* get_typeTable _ANSI_ARGS_(());
1.102 +/* 28 */
1.103 +EXTERN void* get_typeTableInitialized _ANSI_ARGS_(());
1.104 +/* 29 */
1.105 +EXTERN void* get_encodingsInitialized _ANSI_ARGS_(());
1.106 +/* 30 */
1.107 +EXTERN char** get_tclDefaultEncodingDir _ANSI_ARGS_(());
1.108 +/* 31 */
1.109 +EXTERN char** get_tclLibraryPathStr _ANSI_ARGS_(());
1.110 +/* 32 */
1.111 +EXTERN void* get_opTableInitialized _ANSI_ARGS_(());
1.112 +/* 33 */
1.113 +EXTERN void* get_opHashTable _ANSI_ARGS_(());
1.114 +/* 34 */
1.115 +EXTERN void* get_auxDataTypeTableInitialized _ANSI_ARGS_(());
1.116 +/* 35 */
1.117 +EXTERN void* get_auxDataTypeTable _ANSI_ARGS_(());
1.118 +/* 36 */
1.119 +EXTERN void** get_cwdPathPtr _ANSI_ARGS_(());
1.120 +/* 37 */
1.121 +EXTERN void* get_cwdPathEpoch _ANSI_ARGS_(());
1.122 +/* 38 */
1.123 +EXTERN void** get_refArray _ANSI_ARGS_(());
1.124 +/* 39 */
1.125 +EXTERN void* get_spaceAvl _ANSI_ARGS_(());
1.126 +/* 40 */
1.127 +EXTERN void* get_inUse _ANSI_ARGS_(());
1.128 +/* 41 */
1.129 +EXTERN void TclpExit _ANSI_ARGS_((int status));
1.130 +/* 42 */
1.131 +EXTERN void* get_tclPlatform _ANSI_ARGS_(());
1.132 +/* 43 */
1.133 +EXTERN void** get_firstNotifierPtr _ANSI_ARGS_(());
1.134 +#endif /* __WINSCW__ */
1.135 +#endif /* __SYMBIAN32__ */
1.136 +#endif /* UNIX */
1.137 +#ifdef __WIN32__
1.138 +/* 0 */
1.139 +EXTERN void TclWinConvertError _ANSI_ARGS_((DWORD errCode));
1.140 +/* 1 */
1.141 +EXTERN void TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode));
1.142 +/* 2 */
1.143 +EXTERN struct servent * TclWinGetServByName _ANSI_ARGS_((CONST char * nm,
1.144 + CONST char * proto));
1.145 +/* 3 */
1.146 +EXTERN int TclWinGetSockOpt _ANSI_ARGS_((SOCKET s, int level,
1.147 + int optname, char FAR * optval,
1.148 + int FAR * optlen));
1.149 +/* 4 */
1.150 +EXTERN HINSTANCE TclWinGetTclInstance _ANSI_ARGS_((void));
1.151 +/* Slot 5 is reserved */
1.152 +/* 6 */
1.153 +EXTERN u_short TclWinNToHS _ANSI_ARGS_((u_short ns));
1.154 +/* 7 */
1.155 +EXTERN int TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level,
1.156 + int optname, CONST char FAR * optval,
1.157 + int optlen));
1.158 +/* 8 */
1.159 +EXTERN unsigned long TclpGetPid _ANSI_ARGS_((Tcl_Pid pid));
1.160 +/* 9 */
1.161 +EXTERN int TclWinGetPlatformId _ANSI_ARGS_((void));
1.162 +/* Slot 10 is reserved */
1.163 +/* 11 */
1.164 +EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp,
1.165 + Tcl_Channel chan));
1.166 +/* 12 */
1.167 +EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file));
1.168 +/* 13 */
1.169 +EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_((
1.170 + TclFile readFile, TclFile writeFile,
1.171 + TclFile errorFile, int numPids,
1.172 + Tcl_Pid * pidPtr));
1.173 +/* 14 */
1.174 +EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe,
1.175 + TclFile * writePipe));
1.176 +/* 15 */
1.177 +EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp,
1.178 + int argc, CONST char ** argv,
1.179 + TclFile inputFile, TclFile outputFile,
1.180 + TclFile errorFile, Tcl_Pid * pidPtr));
1.181 +/* Slot 16 is reserved */
1.182 +/* Slot 17 is reserved */
1.183 +/* 18 */
1.184 +EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel,
1.185 + int direction));
1.186 +/* 19 */
1.187 +EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname,
1.188 + int mode));
1.189 +/* 20 */
1.190 +EXTERN void TclWinAddProcess _ANSI_ARGS_((HANDLE hProcess,
1.191 + DWORD id));
1.192 +/* Slot 21 is reserved */
1.193 +/* 22 */
1.194 +EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((
1.195 + CONST char * contents));
1.196 +/* 23 */
1.197 +EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst));
1.198 +/* 24 */
1.199 +EXTERN char * TclWinNoBackslash _ANSI_ARGS_((char * path));
1.200 +/* 25 */
1.201 +EXTERN TclPlatformType * TclWinGetPlatform _ANSI_ARGS_((void));
1.202 +/* 26 */
1.203 +EXTERN void TclWinSetInterfaces _ANSI_ARGS_((int wide));
1.204 +/* 27 */
1.205 +EXTERN void TclWinFlushDirtyChannels _ANSI_ARGS_((void));
1.206 +/* 28 */
1.207 +EXTERN void TclWinResetInterfaces _ANSI_ARGS_((void));
1.208 +/* 29 */
1.209 +EXTERN int TclWinCPUID _ANSI_ARGS_((unsigned int index,
1.210 + unsigned int * regs));
1.211 +#endif /* __WIN32__ */
1.212 +#ifdef MAC_TCL
1.213 +/* 0 */
1.214 +EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin));
1.215 +/* 1 */
1.216 +EXTERN void TclpSysFree _ANSI_ARGS_((VOID * ptr));
1.217 +/* 2 */
1.218 +EXTERN VOID * TclpSysRealloc _ANSI_ARGS_((VOID * cp,
1.219 + unsigned int size));
1.220 +/* 3 */
1.221 +EXTERN void TclpExit _ANSI_ARGS_((int status));
1.222 +/* 4 */
1.223 +EXTERN int FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));
1.224 +/* 5 */
1.225 +EXTERN int FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));
1.226 +/* 6 */
1.227 +EXTERN OSErr FSpFindFolder _ANSI_ARGS_((short vRefNum,
1.228 + OSType folderType, Boolean createFolder,
1.229 + FSSpec * spec));
1.230 +/* 7 */
1.231 +EXTERN void GetGlobalMouseTcl _ANSI_ARGS_((Point * mouse));
1.232 +/* 8 */
1.233 +EXTERN pascal OSErr FSpGetDirectoryIDTcl _ANSI_ARGS_((
1.234 + CONST FSSpec * spec, long * theDirID,
1.235 + Boolean * isDirectory));
1.236 +/* 9 */
1.237 +EXTERN pascal short FSpOpenResFileCompatTcl _ANSI_ARGS_((
1.238 + CONST FSSpec * spec, SignedByte permission));
1.239 +/* 10 */
1.240 +EXTERN pascal void FSpCreateResFileCompatTcl _ANSI_ARGS_((
1.241 + CONST FSSpec * spec, OSType creator,
1.242 + OSType fileType, ScriptCode scriptTag));
1.243 +/* 11 */
1.244 +EXTERN int FSpLocationFromPath _ANSI_ARGS_((int length,
1.245 + CONST char * path, FSSpecPtr theSpec));
1.246 +/* 12 */
1.247 +EXTERN OSErr FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec,
1.248 + int * length, Handle * fullPath));
1.249 +/* 13 */
1.250 +EXTERN void TclMacExitHandler _ANSI_ARGS_((void));
1.251 +/* 14 */
1.252 +EXTERN void TclMacInitExitToShell _ANSI_ARGS_((int usePatch));
1.253 +/* 15 */
1.254 +EXTERN OSErr TclMacInstallExitToShellPatch _ANSI_ARGS_((
1.255 + ExitToShellProcPtr newProc));
1.256 +/* 16 */
1.257 +EXTERN int TclMacOSErrorToPosixError _ANSI_ARGS_((int error));
1.258 +/* 17 */
1.259 +EXTERN void TclMacRemoveTimer _ANSI_ARGS_((void * timerToken));
1.260 +/* 18 */
1.261 +EXTERN void * TclMacStartTimer _ANSI_ARGS_((long ms));
1.262 +/* 19 */
1.263 +EXTERN int TclMacTimerExpired _ANSI_ARGS_((void * timerToken));
1.264 +/* 20 */
1.265 +EXTERN int TclMacRegisterResourceFork _ANSI_ARGS_((
1.266 + short fileRef, Tcl_Obj * tokenPtr,
1.267 + int insert));
1.268 +/* 21 */
1.269 +EXTERN short TclMacUnRegisterResourceFork _ANSI_ARGS_((
1.270 + char * tokenPtr, Tcl_Obj * resultPtr));
1.271 +/* 22 */
1.272 +EXTERN int TclMacCreateEnv _ANSI_ARGS_((void));
1.273 +/* 23 */
1.274 +EXTERN FILE * TclMacFOpenHack _ANSI_ARGS_((CONST char * path,
1.275 + CONST char * mode));
1.276 +/* 24 */
1.277 +EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst));
1.278 +/* 25 */
1.279 +EXTERN int TclMacChmod _ANSI_ARGS_((CONST char * path, int mode));
1.280 +/* 26 */
1.281 +EXTERN int FSpLLocationFromPath _ANSI_ARGS_((int length,
1.282 + CONST char * path, FSSpecPtr theSpec));
1.283 +#endif /* MAC_TCL */
1.284 +
1.285 +typedef struct TclIntPlatStubs {
1.286 + int magic;
1.287 + struct TclIntPlatStubHooks *hooks;
1.288 +
1.289 +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
1.290 + void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */
1.291 + int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */
1.292 + Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */
1.293 + int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */
1.294 + int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */
1.295 + void *reserved5;
1.296 + TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */
1.297 + TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */
1.298 + int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */
1.299 + TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */
1.300 + Tcl_DirEntry * (*tclpReaddir) _ANSI_ARGS_((DIR * dir)); /* 10 */
1.301 + struct tm * (*tclpLocaltime_unix) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 11 */
1.302 + struct tm * (*tclpGmtime_unix) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 12 */
1.303 + char * (*tclpInetNtoa) _ANSI_ARGS_((struct in_addr addr)); /* 13 */
1.304 +#ifdef __SYMBIAN32__
1.305 + int (*ChildProcessInit) _ANSI_ARGS_((int *argc, char ***argv));/* 14 */
1.306 + void (*ChildProcessCleanup) _ANSI_ARGS_((int isChildProcess, int argc, char **argv)); /* 15 */
1.307 +#ifdef __WINSCW__
1.308 + void* (*get_gFileName) _ANSI_ARGS_((int index)); /* 16 */
1.309 + char** (*get_tclExecutableName) _ANSI_ARGS_(()); /* 17 */
1.310 + char** (*get_tclNativeExecutableName) _ANSI_ARGS_(()); /* 18 */
1.311 + void** (*get_dataKey) _ANSI_ARGS_((int index)); /* 19 */
1.312 + void* (*get_inFinalize) _ANSI_ARGS_(()); /* 20 */
1.313 + void* (*get_subsystemsInitialized) _ANSI_ARGS_(()); /* 21 */
1.314 + void** (*get_allocHead) _ANSI_ARGS_(()); /* 22 */
1.315 + void** (*get_defaultEncoding) _ANSI_ARGS_(()); /* 23 */
1.316 + void** (*get_systemEncoding) _ANSI_ARGS_(()); /* 24 */
1.317 + void* (*get_encodingTable) _ANSI_ARGS_(()); /* 25 */
1.318 + void* (*get_keyRecord) _ANSI_ARGS_(()); /* 26 */
1.319 + void* (*get_typeTable) _ANSI_ARGS_(()); /* 27 */
1.320 + void* (*get_typeTableInitialized) _ANSI_ARGS_(()); /* 28 */
1.321 + void* (*get_encodingsInitialized) _ANSI_ARGS_(()); /* 29 */
1.322 + char** (*get_tclDefaultEncodingDir) _ANSI_ARGS_(()); /* 30 */
1.323 + char** (*get_tclLibraryPathStr) _ANSI_ARGS_(()); /* 31 */
1.324 + void* (*get_opTableInitialized) _ANSI_ARGS_(()); /* 32 */
1.325 + void* (*get_opHashTable) _ANSI_ARGS_(()); /* 33 */
1.326 + void* (*get_auxDataTypeTableInitialized) _ANSI_ARGS_(()); /* 34 */
1.327 + void* (*get_auxDataTypeTable) _ANSI_ARGS_(()); /* 35 */
1.328 + void** (*get_cwdPathPtr) _ANSI_ARGS_(()); /* 36 */
1.329 + void* (*get_cwdPathEpoch) _ANSI_ARGS_(()); /* 37 */
1.330 + void** (*get_refArray) _ANSI_ARGS_(()); /* 38 */
1.331 + void* (*get_spaceAvl) _ANSI_ARGS_(()); /* 39 */
1.332 + void* (*get_inUse) _ANSI_ARGS_(()); /* 40 */
1.333 + void (*tclpExit) _ANSI_ARGS_((int status)); /* 41 */
1.334 + void* (*get_tclPlatform) _ANSI_ARGS_(()); /* 42 */
1.335 + void** (*get_firstNotifierPtr) _ANSI_ARGS_(()); /* 43 */
1.336 +#endif /* __WINSCW__ */
1.337 +#endif /* __SYMBIAN32__ */
1.338 +#endif /* UNIX */
1.339 +#ifdef __WIN32__
1.340 + void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */
1.341 + void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */
1.342 + struct servent * (*tclWinGetServByName) _ANSI_ARGS_((CONST char * nm, CONST char * proto)); /* 2 */
1.343 + int (*tclWinGetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, char FAR * optval, int FAR * optlen)); /* 3 */
1.344 + HINSTANCE (*tclWinGetTclInstance) _ANSI_ARGS_((void)); /* 4 */
1.345 + void *reserved5;
1.346 + u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */
1.347 + int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, CONST char FAR * optval, int optlen)); /* 7 */
1.348 + unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */
1.349 + int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */
1.350 + void *reserved10;
1.351 + void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */
1.352 + int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */
1.353 + Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */
1.354 + int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */
1.355 + int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */
1.356 + void *reserved16;
1.357 + void *reserved17;
1.358 + TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */
1.359 + TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 19 */
1.360 + void (*tclWinAddProcess) _ANSI_ARGS_((HANDLE hProcess, DWORD id)); /* 20 */
1.361 + void *reserved21;
1.362 + TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 22 */
1.363 + char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 23 */
1.364 + char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 24 */
1.365 + TclPlatformType * (*tclWinGetPlatform) _ANSI_ARGS_((void)); /* 25 */
1.366 + void (*tclWinSetInterfaces) _ANSI_ARGS_((int wide)); /* 26 */
1.367 + void (*tclWinFlushDirtyChannels) _ANSI_ARGS_((void)); /* 27 */
1.368 + void (*tclWinResetInterfaces) _ANSI_ARGS_((void)); /* 28 */
1.369 + int (*tclWinCPUID) _ANSI_ARGS_((unsigned int index, unsigned int * regs)); /* 29 */
1.370 +#endif /* __WIN32__ */
1.371 +#ifdef MAC_TCL
1.372 + VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */
1.373 + void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */
1.374 + VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */
1.375 + void (*tclpExit) _ANSI_ARGS_((int status)); /* 3 */
1.376 + int (*fSpGetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 4 */
1.377 + int (*fSpSetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 5 */
1.378 + OSErr (*fSpFindFolder) _ANSI_ARGS_((short vRefNum, OSType folderType, Boolean createFolder, FSSpec * spec)); /* 6 */
1.379 + void (*getGlobalMouseTcl) _ANSI_ARGS_((Point * mouse)); /* 7 */
1.380 + pascal OSErr (*fSpGetDirectoryIDTcl) _ANSI_ARGS_((CONST FSSpec * spec, long * theDirID, Boolean * isDirectory)); /* 8 */
1.381 + pascal short (*fSpOpenResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, SignedByte permission)); /* 9 */
1.382 + pascal void (*fSpCreateResFileCompatTcl) _ANSI_ARGS_((CONST FSSpec * spec, OSType creator, OSType fileType, ScriptCode scriptTag)); /* 10 */
1.383 + int (*fSpLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 11 */
1.384 + OSErr (*fSpPathFromLocation) _ANSI_ARGS_((FSSpecPtr theSpec, int * length, Handle * fullPath)); /* 12 */
1.385 + void (*tclMacExitHandler) _ANSI_ARGS_((void)); /* 13 */
1.386 + void (*tclMacInitExitToShell) _ANSI_ARGS_((int usePatch)); /* 14 */
1.387 + OSErr (*tclMacInstallExitToShellPatch) _ANSI_ARGS_((ExitToShellProcPtr newProc)); /* 15 */
1.388 + int (*tclMacOSErrorToPosixError) _ANSI_ARGS_((int error)); /* 16 */
1.389 + void (*tclMacRemoveTimer) _ANSI_ARGS_((void * timerToken)); /* 17 */
1.390 + void * (*tclMacStartTimer) _ANSI_ARGS_((long ms)); /* 18 */
1.391 + int (*tclMacTimerExpired) _ANSI_ARGS_((void * timerToken)); /* 19 */
1.392 + int (*tclMacRegisterResourceFork) _ANSI_ARGS_((short fileRef, Tcl_Obj * tokenPtr, int insert)); /* 20 */
1.393 + short (*tclMacUnRegisterResourceFork) _ANSI_ARGS_((char * tokenPtr, Tcl_Obj * resultPtr)); /* 21 */
1.394 + int (*tclMacCreateEnv) _ANSI_ARGS_((void)); /* 22 */
1.395 + FILE * (*tclMacFOpenHack) _ANSI_ARGS_((CONST char * path, CONST char * mode)); /* 23 */
1.396 + char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 24 */
1.397 + int (*tclMacChmod) _ANSI_ARGS_((CONST char * path, int mode)); /* 25 */
1.398 + int (*fSpLLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 26 */
1.399 +#endif /* MAC_TCL */
1.400 +} TclIntPlatStubs;
1.401 +
1.402 +#ifdef __cplusplus
1.403 +extern "C" {
1.404 +#endif
1.405 +extern TclIntPlatStubs *tclIntPlatStubsPtr;
1.406 +#ifdef __cplusplus
1.407 +}
1.408 +#endif
1.409 +
1.410 +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
1.411 +
1.412 +/*
1.413 + * Inline function declarations:
1.414 + */
1.415 +
1.416 +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
1.417 +#ifndef TclGetAndDetachPids
1.418 +#define TclGetAndDetachPids \
1.419 + (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */
1.420 +#endif
1.421 +#ifndef TclpCloseFile
1.422 +#define TclpCloseFile \
1.423 + (tclIntPlatStubsPtr->tclpCloseFile) /* 1 */
1.424 +#endif
1.425 +#ifndef TclpCreateCommandChannel
1.426 +#define TclpCreateCommandChannel \
1.427 + (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */
1.428 +#endif
1.429 +#ifndef TclpCreatePipe
1.430 +#define TclpCreatePipe \
1.431 + (tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */
1.432 +#endif
1.433 +#ifndef TclpCreateProcess
1.434 +#define TclpCreateProcess \
1.435 + (tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */
1.436 +#endif
1.437 +/* Slot 5 is reserved */
1.438 +#ifndef TclpMakeFile
1.439 +#define TclpMakeFile \
1.440 + (tclIntPlatStubsPtr->tclpMakeFile) /* 6 */
1.441 +#endif
1.442 +#ifndef TclpOpenFile
1.443 +#define TclpOpenFile \
1.444 + (tclIntPlatStubsPtr->tclpOpenFile) /* 7 */
1.445 +#endif
1.446 +#ifndef TclUnixWaitForFile
1.447 +#define TclUnixWaitForFile \
1.448 + (tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */
1.449 +#endif
1.450 +#ifndef TclpCreateTempFile
1.451 +#define TclpCreateTempFile \
1.452 + (tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */
1.453 +#endif
1.454 +#ifndef TclpReaddir
1.455 +#define TclpReaddir \
1.456 + (tclIntPlatStubsPtr->tclpReaddir) /* 10 */
1.457 +#endif
1.458 +#ifndef TclpLocaltime_unix
1.459 +#define TclpLocaltime_unix \
1.460 + (tclIntPlatStubsPtr->tclpLocaltime_unix) /* 11 */
1.461 +#endif
1.462 +#ifndef TclpGmtime_unix
1.463 +#define TclpGmtime_unix \
1.464 + (tclIntPlatStubsPtr->tclpGmtime_unix) /* 12 */
1.465 +#endif
1.466 +#ifndef TclpInetNtoa
1.467 +#define TclpInetNtoa \
1.468 + (tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */
1.469 +#endif
1.470 +#ifdef __SYMBIAN32__
1.471 +#ifndef ChildProcessInit
1.472 +#define ChildProcessInit \
1.473 + (tclPlatStubsPtr->ChildProcessInit) /* 14 */
1.474 +#endif
1.475 +#ifndef ChildProcessCleanup
1.476 +#define ChildProcessCleanup \
1.477 + (tclPlatStubsPtr->ChildProcessCleanup) /* 15 */
1.478 +#endif
1.479 +#ifndef get_gFileName
1.480 +#define get_gFileName \
1.481 + (tclPlatStubsPtr->get_gFileName) /* 16 */
1.482 +#endif
1.483 +#ifndef get_tclExecutableName
1.484 +#define get_tclExecutableName \
1.485 + (tclPlatStubsPtr->get_tclExecutableName) /* 17 */
1.486 +#endif
1.487 +#ifndef get_tclNativeExecutableName
1.488 +#define get_tclNativeExecutableName \
1.489 + (tclPlatStubsPtr->get_tclNativeExecutableName) /* 18 */
1.490 +#endif
1.491 +#ifndef get_dataKey
1.492 +#define get_dataKey \
1.493 + (tclPlatStubsPtr->get_dataKey) /* 19 */
1.494 +#endif
1.495 +#ifndef inFinalize
1.496 +#define inFinalize \
1.497 + (tclPlatStubsPtr->inFinalize) /* 20 */
1.498 +#endif
1.499 +#ifndef subsystemsInitialized
1.500 +#define subsystemsInitialized \
1.501 + (tclPlatStubsPtr->subsystemsInitialized) /* 21 */
1.502 +#endif
1.503 +#endif /* __SYMBIAN32__ */
1.504 +#endif /* UNIX */
1.505 +#ifdef __WIN32__
1.506 +#ifndef TclWinConvertError
1.507 +#define TclWinConvertError \
1.508 + (tclIntPlatStubsPtr->tclWinConvertError) /* 0 */
1.509 +#endif
1.510 +#ifndef TclWinConvertWSAError
1.511 +#define TclWinConvertWSAError \
1.512 + (tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */
1.513 +#endif
1.514 +#ifndef TclWinGetServByName
1.515 +#define TclWinGetServByName \
1.516 + (tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */
1.517 +#endif
1.518 +#ifndef TclWinGetSockOpt
1.519 +#define TclWinGetSockOpt \
1.520 + (tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */
1.521 +#endif
1.522 +#ifndef TclWinGetTclInstance
1.523 +#define TclWinGetTclInstance \
1.524 + (tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */
1.525 +#endif
1.526 +/* Slot 5 is reserved */
1.527 +#ifndef TclWinNToHS
1.528 +#define TclWinNToHS \
1.529 + (tclIntPlatStubsPtr->tclWinNToHS) /* 6 */
1.530 +#endif
1.531 +#ifndef TclWinSetSockOpt
1.532 +#define TclWinSetSockOpt \
1.533 + (tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */
1.534 +#endif
1.535 +#ifndef TclpGetPid
1.536 +#define TclpGetPid \
1.537 + (tclIntPlatStubsPtr->tclpGetPid) /* 8 */
1.538 +#endif
1.539 +#ifndef TclWinGetPlatformId
1.540 +#define TclWinGetPlatformId \
1.541 + (tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */
1.542 +#endif
1.543 +/* Slot 10 is reserved */
1.544 +#ifndef TclGetAndDetachPids
1.545 +#define TclGetAndDetachPids \
1.546 + (tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */
1.547 +#endif
1.548 +#ifndef TclpCloseFile
1.549 +#define TclpCloseFile \
1.550 + (tclIntPlatStubsPtr->tclpCloseFile) /* 12 */
1.551 +#endif
1.552 +#ifndef TclpCreateCommandChannel
1.553 +#define TclpCreateCommandChannel \
1.554 + (tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */
1.555 +#endif
1.556 +#ifndef TclpCreatePipe
1.557 +#define TclpCreatePipe \
1.558 + (tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */
1.559 +#endif
1.560 +#ifndef TclpCreateProcess
1.561 +#define TclpCreateProcess \
1.562 + (tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */
1.563 +#endif
1.564 +/* Slot 16 is reserved */
1.565 +/* Slot 17 is reserved */
1.566 +#ifndef TclpMakeFile
1.567 +#define TclpMakeFile \
1.568 + (tclIntPlatStubsPtr->tclpMakeFile) /* 18 */
1.569 +#endif
1.570 +#ifndef TclpOpenFile
1.571 +#define TclpOpenFile \
1.572 + (tclIntPlatStubsPtr->tclpOpenFile) /* 19 */
1.573 +#endif
1.574 +#ifndef TclWinAddProcess
1.575 +#define TclWinAddProcess \
1.576 + (tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */
1.577 +#endif
1.578 +/* Slot 21 is reserved */
1.579 +#ifndef TclpCreateTempFile
1.580 +#define TclpCreateTempFile \
1.581 + (tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */
1.582 +#endif
1.583 +#ifndef TclpGetTZName
1.584 +#define TclpGetTZName \
1.585 + (tclIntPlatStubsPtr->tclpGetTZName) /* 23 */
1.586 +#endif
1.587 +#ifndef TclWinNoBackslash
1.588 +#define TclWinNoBackslash \
1.589 + (tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */
1.590 +#endif
1.591 +#ifndef TclWinGetPlatform
1.592 +#define TclWinGetPlatform \
1.593 + (tclIntPlatStubsPtr->tclWinGetPlatform) /* 25 */
1.594 +#endif
1.595 +#ifndef TclWinSetInterfaces
1.596 +#define TclWinSetInterfaces \
1.597 + (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */
1.598 +#endif
1.599 +#ifndef TclWinFlushDirtyChannels
1.600 +#define TclWinFlushDirtyChannels \
1.601 + (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */
1.602 +#endif
1.603 +#ifndef TclWinResetInterfaces
1.604 +#define TclWinResetInterfaces \
1.605 + (tclIntPlatStubsPtr->tclWinResetInterfaces) /* 28 */
1.606 +#endif
1.607 +#ifndef TclWinCPUID
1.608 +#define TclWinCPUID \
1.609 + (tclIntPlatStubsPtr->tclWinCPUID) /* 29 */
1.610 +#endif
1.611 +#endif /* __WIN32__ */
1.612 +#ifdef MAC_TCL
1.613 +#ifndef TclpSysAlloc
1.614 +#define TclpSysAlloc \
1.615 + (tclIntPlatStubsPtr->tclpSysAlloc) /* 0 */
1.616 +#endif
1.617 +#ifndef TclpSysFree
1.618 +#define TclpSysFree \
1.619 + (tclIntPlatStubsPtr->tclpSysFree) /* 1 */
1.620 +#endif
1.621 +#ifndef TclpSysRealloc
1.622 +#define TclpSysRealloc \
1.623 + (tclIntPlatStubsPtr->tclpSysRealloc) /* 2 */
1.624 +#endif
1.625 +#ifndef TclpExit
1.626 +#define TclpExit \
1.627 + (tclIntPlatStubsPtr->tclpExit) /* 3 */
1.628 +#endif
1.629 +#ifndef FSpGetDefaultDir
1.630 +#define FSpGetDefaultDir \
1.631 + (tclIntPlatStubsPtr->fSpGetDefaultDir) /* 4 */
1.632 +#endif
1.633 +#ifndef FSpSetDefaultDir
1.634 +#define FSpSetDefaultDir \
1.635 + (tclIntPlatStubsPtr->fSpSetDefaultDir) /* 5 */
1.636 +#endif
1.637 +#ifndef FSpFindFolder
1.638 +#define FSpFindFolder \
1.639 + (tclIntPlatStubsPtr->fSpFindFolder) /* 6 */
1.640 +#endif
1.641 +#ifndef GetGlobalMouseTcl
1.642 +#define GetGlobalMouseTcl \
1.643 + (tclIntPlatStubsPtr->getGlobalMouseTcl) /* 7 */
1.644 +#endif
1.645 +#ifndef FSpGetDirectoryIDTcl
1.646 +#define FSpGetDirectoryIDTcl \
1.647 + (tclIntPlatStubsPtr->fSpGetDirectoryIDTcl) /* 8 */
1.648 +#endif
1.649 +#ifndef FSpOpenResFileCompatTcl
1.650 +#define FSpOpenResFileCompatTcl \
1.651 + (tclIntPlatStubsPtr->fSpOpenResFileCompatTcl) /* 9 */
1.652 +#endif
1.653 +#ifndef FSpCreateResFileCompatTcl
1.654 +#define FSpCreateResFileCompatTcl \
1.655 + (tclIntPlatStubsPtr->fSpCreateResFileCompatTcl) /* 10 */
1.656 +#endif
1.657 +#ifndef FSpLocationFromPath
1.658 +#define FSpLocationFromPath \
1.659 + (tclIntPlatStubsPtr->fSpLocationFromPath) /* 11 */
1.660 +#endif
1.661 +#ifndef FSpPathFromLocation
1.662 +#define FSpPathFromLocation \
1.663 + (tclIntPlatStubsPtr->fSpPathFromLocation) /* 12 */
1.664 +#endif
1.665 +#ifndef TclMacExitHandler
1.666 +#define TclMacExitHandler \
1.667 + (tclIntPlatStubsPtr->tclMacExitHandler) /* 13 */
1.668 +#endif
1.669 +#ifndef TclMacInitExitToShell
1.670 +#define TclMacInitExitToShell \
1.671 + (tclIntPlatStubsPtr->tclMacInitExitToShell) /* 14 */
1.672 +#endif
1.673 +#ifndef TclMacInstallExitToShellPatch
1.674 +#define TclMacInstallExitToShellPatch \
1.675 + (tclIntPlatStubsPtr->tclMacInstallExitToShellPatch) /* 15 */
1.676 +#endif
1.677 +#ifndef TclMacOSErrorToPosixError
1.678 +#define TclMacOSErrorToPosixError \
1.679 + (tclIntPlatStubsPtr->tclMacOSErrorToPosixError) /* 16 */
1.680 +#endif
1.681 +#ifndef TclMacRemoveTimer
1.682 +#define TclMacRemoveTimer \
1.683 + (tclIntPlatStubsPtr->tclMacRemoveTimer) /* 17 */
1.684 +#endif
1.685 +#ifndef TclMacStartTimer
1.686 +#define TclMacStartTimer \
1.687 + (tclIntPlatStubsPtr->tclMacStartTimer) /* 18 */
1.688 +#endif
1.689 +#ifndef TclMacTimerExpired
1.690 +#define TclMacTimerExpired \
1.691 + (tclIntPlatStubsPtr->tclMacTimerExpired) /* 19 */
1.692 +#endif
1.693 +#ifndef TclMacRegisterResourceFork
1.694 +#define TclMacRegisterResourceFork \
1.695 + (tclIntPlatStubsPtr->tclMacRegisterResourceFork) /* 20 */
1.696 +#endif
1.697 +#ifndef TclMacUnRegisterResourceFork
1.698 +#define TclMacUnRegisterResourceFork \
1.699 + (tclIntPlatStubsPtr->tclMacUnRegisterResourceFork) /* 21 */
1.700 +#endif
1.701 +#ifndef TclMacCreateEnv
1.702 +#define TclMacCreateEnv \
1.703 + (tclIntPlatStubsPtr->tclMacCreateEnv) /* 22 */
1.704 +#endif
1.705 +#ifndef TclMacFOpenHack
1.706 +#define TclMacFOpenHack \
1.707 + (tclIntPlatStubsPtr->tclMacFOpenHack) /* 23 */
1.708 +#endif
1.709 +#ifndef TclpGetTZName
1.710 +#define TclpGetTZName \
1.711 + (tclIntPlatStubsPtr->tclpGetTZName) /* 24 */
1.712 +#endif
1.713 +#ifndef TclMacChmod
1.714 +#define TclMacChmod \
1.715 + (tclIntPlatStubsPtr->tclMacChmod) /* 25 */
1.716 +#endif
1.717 +#ifndef FSpLLocationFromPath
1.718 +#define FSpLLocationFromPath \
1.719 + (tclIntPlatStubsPtr->fSpLLocationFromPath) /* 26 */
1.720 +#endif
1.721 +#endif /* MAC_TCL */
1.722 +
1.723 +#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
1.724 +
1.725 +/* !END!: Do not edit above this line. */
1.726 +
1.727 +#endif /* _TCLINTPLATDECLS */