diff options
author | dkf <dkf@noemail.net> | 2008-10-13 13:13:45 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2008-10-13 13:13:45 (GMT) |
commit | 160fddcd1e254c4b017d9361cf77942c70a38d8f (patch) | |
tree | 81b8efb21794284aca2e4002f34b4f20171a7ea4 /generic/tclOOInt.h | |
parent | 2dcd85e223dffd933ba92d3c224e22f9c1eda179 (diff) | |
download | tcl-160fddcd1e254c4b017d9361cf77942c70a38d8f.zip tcl-160fddcd1e254c4b017d9361cf77942c70a38d8f.tar.gz tcl-160fddcd1e254c4b017d9361cf77942c70a38d8f.tar.bz2 |
Added magic for Objective C. [Bug 2163447]
FossilOrigin-Name: 6bb3cf9fbf6d158717703bf75ad9b4b01c57af7c
Diffstat (limited to 'generic/tclOOInt.h')
-rw-r--r-- | generic/tclOOInt.h | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index dbd7df2..4b6b8a0 100644 --- a/generic/tclOOInt.h +++ b/generic/tclOOInt.h @@ -9,13 +9,26 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclOOInt.h,v 1.8 2008/09/23 05:05:54 dkf Exp $ + * RCS: @(#) $Id: tclOOInt.h,v 1.9 2008/10/13 13:13:45 dkf Exp $ */ +#ifndef TCL_OO_INTERNAL_H +#define TCL_OO_INTERNAL_H 1 + #include <tclInt.h> #include "tclOO.h" /* + * Hack to make things work with Objective C. Note that ObjC isn't really + * supported, but we don't want to to be actively hostile to it. [Bug 2163447] + */ + +#ifdef __OBJC__ +#define Class TclOOClass +#define Object TclOOObject +#endif /* __OBJC__ */ + +/* * Forward declarations. */ @@ -584,6 +597,8 @@ MODULE_SCOPE void TclOOSetupVariableResolver(Tcl_Namespace *nsPtr); ckfree((char *) (ptr)); \ } \ } while(0) + +#endif /* TCL_OO_INTERNAL_H */ /* * Local Variables: |