diff options
Diffstat (limited to 'generic/tclPlatDecls.h')
-rw-r--r-- | generic/tclPlatDecls.h | 71 |
1 files changed, 1 insertions, 70 deletions
diff --git a/generic/tclPlatDecls.h b/generic/tclPlatDecls.h index b8243d2..8d1eee1 100644 --- a/generic/tclPlatDecls.h +++ b/generic/tclPlatDecls.h @@ -48,7 +48,7 @@ # endif #endif -#if TCL_MAJOR_VERSION < 9 +/* !BEGIN!: Do not edit below this line. */ #ifdef __cplusplus extern "C" { @@ -134,67 +134,8 @@ extern const TclPlatStubs *tclPlatStubsPtr; #endif /* defined(USE_TCL_STUBS) */ -#else /* TCL_MAJOR_VERSION > 8 */ - -/* !BEGIN!: Do not edit below this line. */ - -#ifdef __cplusplus -extern "C" { -#endif - -/* - * Exported function declarations: - */ - -/* Slot 0 is reserved */ -/* 1 */ -EXTERN int Tcl_MacOSXOpenVersionedBundleResources( - Tcl_Interp *interp, const char *bundleName, - const char *bundleVersion, - int hasResourceFile, Tcl_Size maxPathLen, - char *libraryPath); -/* 2 */ -EXTERN void Tcl_MacOSXNotifierAddRunLoopMode( - const void *runLoopMode); -/* 3 */ -EXTERN void Tcl_WinConvertError(unsigned errCode); - -typedef struct TclPlatStubs { - int magic; - void *hooks; - - void (*reserved0)(void); - int (*tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp *interp, const char *bundleName, const char *bundleVersion, int hasResourceFile, Tcl_Size maxPathLen, char *libraryPath); /* 1 */ - void (*tcl_MacOSXNotifierAddRunLoopMode) (const void *runLoopMode); /* 2 */ - void (*tcl_WinConvertError) (unsigned errCode); /* 3 */ -} TclPlatStubs; - -extern const TclPlatStubs *tclPlatStubsPtr; - -#ifdef __cplusplus -} -#endif - -#if defined(USE_TCL_STUBS) - -/* - * Inline function declarations: - */ - -/* Slot 0 is reserved */ -#define Tcl_MacOSXOpenVersionedBundleResources \ - (tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */ -#define Tcl_MacOSXNotifierAddRunLoopMode \ - (tclPlatStubsPtr->tcl_MacOSXNotifierAddRunLoopMode) /* 2 */ -#define Tcl_WinConvertError \ - (tclPlatStubsPtr->tcl_WinConvertError) /* 3 */ - -#endif /* defined(USE_TCL_STUBS) */ - /* !END!: Do not edit above this line. */ -#endif /* TCL_MAJOR_VERSION */ - #ifdef MAC_OSX_TCL /* MACOSX */ #undef Tcl_MacOSXOpenBundleResources #define Tcl_MacOSXOpenBundleResources(a,b,c,d,e) Tcl_MacOSXOpenVersionedBundleResources(a,b,NULL,c,d,e) @@ -203,16 +144,6 @@ extern const TclPlatStubs *tclPlatStubsPtr; #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT -#ifdef _WIN32 -# undef Tcl_CreateFileHandler -# undef Tcl_DeleteFileHandler -# undef Tcl_GetOpenFile -#endif -#ifndef MAC_OSX_TCL -# undef Tcl_MacOSXOpenVersionedBundleResources -# undef Tcl_MacOSXNotifierAddRunLoopMode -#endif - #if defined(USE_TCL_STUBS) && (defined(_WIN32) || defined(__CYGWIN__))\ && (defined(TCL_NO_DEPRECATED) || TCL_MAJOR_VERSION > 8) #undef Tcl_WinUtfToTChar |