source/include/tclPlatDecls.h

0001 /*
0002  * tclPlatDecls.h --
0003  *
0004  *  Declarations of platform specific Tcl APIs.
0005  *
0006  * Copyright (c) 1998-1999 by Scriptics Corporation.
0007  * All rights reserved.
0008  */
0009
0010 #ifndef _TCLPLATDECLS
0011 #define _TCLPLATDECLS
0012
0013 #undef TCL_STORAGE_CLASS
0014 #ifdef BUILD_tcl
0015 #   define TCL_STORAGE_CLASS DLLEXPORT
0016 #else
0017 #   ifdef USE_TCL_STUBS
0018 #      define TCL_STORAGE_CLASS
0019 #   else
0020 #      define TCL_STORAGE_CLASS DLLIMPORT
0021 #   endif
0022 #endif
0023
0024 /*
0025  * WARNING: This file is automatically generated by the tools/genStubs.tcl
0026  * script.  Any modifications to the function declarations below should be made
0027  * in the generic/tcl.decls script.
0028  */
0029
0030 /*
0031  * TCHAR is needed here for win32, so if it is not defined yet do it here.
0032  * This way, we don't need to include <tchar.h> just for one define.
0033  */
0034 #if (defined(_WIN32) || defined(__CYGWIN__)) && !defined(_TCHAR_DEFINED)
0035 #   if defined(_UNICODE)
0036     typedef wchar_t TCHAR;
0037 #   else
0038     typedef char TCHAR;
0039 #   endif
0040 #   define _TCHAR_DEFINED
0041 #endif
0042
0043 /* !BEGIN!: Do not edit below this line. */
0044
0045 #ifdef __cplusplus
0046 extern "C" {
0047 #endif
0048
0049 /*
0050  * Exported function declarations:
0051  */
0052
0053 #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
0054 /* 0 */
0055 EXTERN TCHAR *      Tcl_WinUtfToTChar(const char *str, int len,
0056                 Tcl_DString *dsPtr);
0057 /* 1 */
0058 EXTERN char *       Tcl_WinTCharToUtf(const TCHAR *str, int len,
0059                 Tcl_DString *dsPtr);
0060 /* Slot 2 is reserved */
0061 /* 3 */
0062 EXTERN void     TclWinConvertError_(unsigned errCode);
0063 #endif /* WIN */
0064 #ifdef MAC_OSX_TCL /* MACOSX */
0065 /* 0 */
0066 EXTERN int      Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp,
0067                 const char *bundleName, int hasResourceFile,
0068                 int maxPathLen, char *libraryPath);
0069 /* 1 */
0070 EXTERN int      Tcl_MacOSXOpenVersionedBundleResources(
0071                 Tcl_Interp *interp, const char *bundleName,
0072                 const char *bundleVersion,
0073                 int hasResourceFile, int maxPathLen,
0074                 char *libraryPath);
0075 /* 2 */
0076 EXTERN void     TclMacOSXNotifierAddRunLoopMode_(
0077                 const void *runLoopMode);
0078 #endif /* MACOSX */
0079
0080 typedef struct TclPlatStubs {
0081     int magic;
0082     void *hooks;
0083
0084 #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
0085     TCHAR * (*tcl_WinUtfToTChar) (const char *str, int len, Tcl_DString *dsPtr); /* 0 */
0086     char * (*tcl_WinTCharToUtf) (const TCHAR *str, int len, Tcl_DString *dsPtr); /* 1 */
0087     void (*reserved2)(void);
0088     void (*tclWinConvertError_) (unsigned errCode); /* 3 */
0089 #endif /* WIN */
0090 #ifdef MAC_OSX_TCL /* MACOSX */
0091     int (*tcl_MacOSXOpenBundleResources) (Tcl_Interp *interp, const char *bundleName, int hasResourceFile, int maxPathLen, char *libraryPath); /* 0 */
0092     int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp *interp, const char *bundleName, const char *bundleVersion, int hasResourceFile, int maxPathLen, char *libraryPath); /* 1 */
0093     void (*tclMacOSXNotifierAddRunLoopMode_) (const void *runLoopMode); /* 2 */
0094 #endif /* MACOSX */
0095 } TclPlatStubs;
0096
0097 extern const TclPlatStubs *tclPlatStubsPtr;
0098
0099 #ifdef __cplusplus
0100 }
0101 #endif
0102
0103 #if defined(USE_TCL_STUBS)
0104
0105 /*
0106  * Inline function declarations:
0107  */
0108
0109 #if defined(_WIN32) || defined(__CYGWIN__) /* WIN */
0110 #define Tcl_WinUtfToTChar \
0111     (tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */
0112 #define Tcl_WinTCharToUtf \
0113     (tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */
0114 /* Slot 2 is reserved */
0115 #define TclWinConvertError_ \
0116     (tclPlatStubsPtr->tclWinConvertError_) /* 3 */
0117 #endif /* WIN */
0118 #ifdef MAC_OSX_TCL /* MACOSX */
0119 #define Tcl_MacOSXOpenBundleResources \
0120     (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */
0121 #define Tcl_MacOSXOpenVersionedBundleResources \
0122     (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */
0123 #define TclMacOSXNotifierAddRunLoopMode_ \
0124     (tclPlatStubsPtr->tclMacOSXNotifierAddRunLoopMode_) /* 2 */
0125 #endif /* MACOSX */
0126
0127 #endif /* defined(USE_TCL_STUBS) */
0128
0129 /* !END!: Do not edit above this line. */
0130
0131 #undef TclUnusedStubEntry
0132 #undef TclMacOSXNotifierAddRunLoopMode_
0133 #undef TclWinConvertError_
0134 #ifdef MAC_OSX_TCL /* MACOSX */
0135 #undef Tcl_MacOSXOpenBundleResources
0136 #define Tcl_MacOSXOpenBundleResources(a,b,c,d,e) Tcl_MacOSXOpenVersionedBundleResources(a,b,NULL,c,d,e)
0137 #endif
0138
0139 #undef TCL_STORAGE_CLASS
0140 #define TCL_STORAGE_CLASS DLLIMPORT
0141
0142 #endif /* _TCLPLATDECLS */
0143
0144