os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/generic/tclPlatDecls.h
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/generic/tclPlatDecls.h Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,206 @@
1.4 +/*
1.5 + * tclPlatDecls.h --
1.6 + *
1.7 + * Declarations of platform specific Tcl APIs.
1.8 + *
1.9 + * Copyright (c) 1998-1999 by Scriptics Corporation.
1.10 + * All rights reserved.
1.11 + * Portions Copyright (c) 2007 Nokia Corporation and/or its subsidiaries. All rights reserved.
1.12 + *
1.13 + * RCS: @(#) $Id: tclPlatDecls.h,v 1.18.2.5 2004/06/10 17:17:45 andreas_kupries Exp $
1.14 + */
1.15 +
1.16 +#ifndef _TCLPLATDECLS
1.17 +#define _TCLPLATDECLS
1.18 +
1.19 +/*
1.20 + * Pull in the typedef of TCHAR for windows.
1.21 + */
1.22 +#if defined(__CYGWIN__)
1.23 + typedef char TCHAR;
1.24 +#elif defined(__WIN32__) && !defined(_TCHAR_DEFINED)
1.25 +#ifdef __SYMBIAN32__
1.26 + typedef char TCHAR;
1.27 +#else
1.28 +# include <tchar.h>
1.29 +#endif
1.30 + typedef char TCHAR;
1.31 +# ifndef _TCHAR_DEFINED
1.32 + /* Borland seems to forget to set this. */
1.33 +#ifdef __SYMBIAN32__
1.34 + typedef char TCHAR;
1.35 +#else
1.36 + typedef _TCHAR TCHAR;
1.37 +#endif
1.38 +# define _TCHAR_DEFINED
1.39 +# endif
1.40 +# if defined(_MSC_VER) && defined(__STDC__)
1.41 + /* MSVC++ misses this. */
1.42 + typedef _TCHAR TCHAR;
1.43 +# endif
1.44 +#endif
1.45 +
1.46 +/* !BEGIN!: Do not edit below this line. */
1.47 +
1.48 +/*
1.49 + * Exported function declarations:
1.50 + */
1.51 +
1.52 +#ifdef __WIN32__
1.53 +/* 0 */
1.54 +EXTERN TCHAR * Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char * str,
1.55 + int len, Tcl_DString * dsPtr));
1.56 +/* 1 */
1.57 +EXTERN char * Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR * str,
1.58 + int len, Tcl_DString * dsPtr));
1.59 +#endif /* __WIN32__ */
1.60 +#ifdef MAC_TCL
1.61 +/* 0 */
1.62 +EXTERN void Tcl_MacSetEventProc _ANSI_ARGS_((
1.63 + Tcl_MacConvertEventPtr procPtr));
1.64 +/* 1 */
1.65 +EXTERN char * Tcl_MacConvertTextResource _ANSI_ARGS_((
1.66 + Handle resource));
1.67 +/* 2 */
1.68 +EXTERN int Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp * interp,
1.69 + CONST char * resourceName,
1.70 + int resourceNumber, CONST char * fileName));
1.71 +/* 3 */
1.72 +EXTERN Handle Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp * interp,
1.73 + long resourceType, CONST char * resourceName,
1.74 + int resourceNumber, CONST char * resFileRef,
1.75 + int * releaseIt));
1.76 +/* 4 */
1.77 +EXTERN int Tcl_GetOSTypeFromObj _ANSI_ARGS_((
1.78 + Tcl_Interp * interp, Tcl_Obj * objPtr,
1.79 + OSType * osTypePtr));
1.80 +/* 5 */
1.81 +EXTERN void Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj * objPtr,
1.82 + OSType osType));
1.83 +/* 6 */
1.84 +EXTERN Tcl_Obj * Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType));
1.85 +/* 7 */
1.86 +EXTERN int strncasecmp _ANSI_ARGS_((CONST char * s1,
1.87 + CONST char * s2, size_t n));
1.88 +/* 8 */
1.89 +EXTERN int strcasecmp _ANSI_ARGS_((CONST char * s1,
1.90 + CONST char * s2));
1.91 +#endif /* MAC_TCL */
1.92 +#ifdef MAC_OSX_TCL
1.93 +/* 0 */
1.94 +EXTERN int Tcl_MacOSXOpenBundleResources _ANSI_ARGS_((
1.95 + Tcl_Interp * interp, CONST char * bundleName,
1.96 + int hasResourceFile, int maxPathLen,
1.97 + char * libraryPath));
1.98 +/* 1 */
1.99 +EXTERN int Tcl_MacOSXOpenVersionedBundleResources _ANSI_ARGS_((
1.100 + Tcl_Interp * interp, CONST char * bundleName,
1.101 + CONST char * bundleVersion,
1.102 + int hasResourceFile, int maxPathLen,
1.103 + char * libraryPath));
1.104 +#endif /* MAC_OSX_TCL */
1.105 +
1.106 +typedef struct TclPlatStubs {
1.107 + int magic;
1.108 + struct TclPlatStubHooks *hooks;
1.109 +
1.110 +#ifdef __WIN32__
1.111 + TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char * str, int len, Tcl_DString * dsPtr)); /* 0 */
1.112 + char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR * str, int len, Tcl_DString * dsPtr)); /* 1 */
1.113 +#endif /* __WIN32__ */
1.114 +#ifdef MAC_TCL
1.115 + void (*tcl_MacSetEventProc) _ANSI_ARGS_((Tcl_MacConvertEventPtr procPtr)); /* 0 */
1.116 + char * (*tcl_MacConvertTextResource) _ANSI_ARGS_((Handle resource)); /* 1 */
1.117 + int (*tcl_MacEvalResource) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * resourceName, int resourceNumber, CONST char * fileName)); /* 2 */
1.118 + Handle (*tcl_MacFindResource) _ANSI_ARGS_((Tcl_Interp * interp, long resourceType, CONST char * resourceName, int resourceNumber, CONST char * resFileRef, int * releaseIt)); /* 3 */
1.119 + int (*tcl_GetOSTypeFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, OSType * osTypePtr)); /* 4 */
1.120 + void (*tcl_SetOSTypeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, OSType osType)); /* 5 */
1.121 + Tcl_Obj * (*tcl_NewOSTypeObj) _ANSI_ARGS_((OSType osType)); /* 6 */
1.122 + int (*strncasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_t n)); /* 7 */
1.123 + int (*strcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2)); /* 8 */
1.124 +#endif /* MAC_TCL */
1.125 +#ifdef MAC_OSX_TCL
1.126 + int (*tcl_MacOSXOpenBundleResources) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * bundleName, int hasResourceFile, int maxPathLen, char * libraryPath)); /* 0 */
1.127 + int (*tcl_MacOSXOpenVersionedBundleResources) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * bundleName, CONST char * bundleVersion, int hasResourceFile, int maxPathLen, char * libraryPath)); /* 1 */
1.128 +#endif /* MAC_OSX_TCL */
1.129 +} TclPlatStubs;
1.130 +
1.131 +#ifdef __cplusplus
1.132 +extern "C" {
1.133 +#endif
1.134 +extern TclPlatStubs *tclPlatStubsPtr;
1.135 +#ifdef __cplusplus
1.136 +}
1.137 +#endif
1.138 +
1.139 +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
1.140 +
1.141 +/*
1.142 + * Inline function declarations:
1.143 + */
1.144 +
1.145 +#ifdef __WIN32__
1.146 +#ifndef Tcl_WinUtfToTChar
1.147 +#define Tcl_WinUtfToTChar \
1.148 + (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */
1.149 +#endif
1.150 +#ifndef Tcl_WinTCharToUtf
1.151 +#define Tcl_WinTCharToUtf \
1.152 + (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */
1.153 +#endif
1.154 +#endif /* __WIN32__ */
1.155 +#ifdef MAC_TCL
1.156 +#ifndef Tcl_MacSetEventProc
1.157 +#define Tcl_MacSetEventProc \
1.158 + (tclPlatStubsPtr->tcl_MacSetEventProc) /* 0 */
1.159 +#endif
1.160 +#ifndef Tcl_MacConvertTextResource
1.161 +#define Tcl_MacConvertTextResource \
1.162 + (tclPlatStubsPtr->tcl_MacConvertTextResource) /* 1 */
1.163 +#endif
1.164 +#ifndef Tcl_MacEvalResource
1.165 +#define Tcl_MacEvalResource \
1.166 + (tclPlatStubsPtr->tcl_MacEvalResource) /* 2 */
1.167 +#endif
1.168 +#ifndef Tcl_MacFindResource
1.169 +#define Tcl_MacFindResource \
1.170 + (tclPlatStubsPtr->tcl_MacFindResource) /* 3 */
1.171 +#endif
1.172 +#ifndef Tcl_GetOSTypeFromObj
1.173 +#define Tcl_GetOSTypeFromObj \
1.174 + (tclPlatStubsPtr->tcl_GetOSTypeFromObj) /* 4 */
1.175 +#endif
1.176 +#ifndef Tcl_SetOSTypeObj
1.177 +#define Tcl_SetOSTypeObj \
1.178 + (tclPlatStubsPtr->tcl_SetOSTypeObj) /* 5 */
1.179 +#endif
1.180 +#ifndef Tcl_NewOSTypeObj
1.181 +#define Tcl_NewOSTypeObj \
1.182 + (tclPlatStubsPtr->tcl_NewOSTypeObj) /* 6 */
1.183 +#endif
1.184 +#ifndef strncasecmp
1.185 +#define strncasecmp \
1.186 + (tclPlatStubsPtr->strncasecmp) /* 7 */
1.187 +#endif
1.188 +#ifndef strcasecmp
1.189 +#define strcasecmp \
1.190 + (tclPlatStubsPtr->strcasecmp) /* 8 */
1.191 +#endif
1.192 +#endif /* MAC_TCL */
1.193 +#ifdef MAC_OSX_TCL
1.194 +#ifndef Tcl_MacOSXOpenBundleResources
1.195 +#define Tcl_MacOSXOpenBundleResources \
1.196 + (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */
1.197 +#endif
1.198 +#ifndef Tcl_MacOSXOpenVersionedBundleResources
1.199 +#define Tcl_MacOSXOpenVersionedBundleResources \
1.200 + (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */
1.201 +#endif
1.202 +#endif /* MAC_OSX_TCL */
1.203 +#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
1.204 +
1.205 +/* !END!: Do not edit above this line. */
1.206 +
1.207 +#endif /* _TCLPLATDECLS */
1.208 +
1.209 +