diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2008-10-13 13:13:45 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2008-10-13 13:13:45 (GMT) |
| commit | 79a6fd2cfab32ca308e8aed929699cc447c82904 (patch) | |
| tree | 81b8efb21794284aca2e4002f34b4f20171a7ea4 /generic/tclOOInt.h | |
| parent | 49e05f106b6477c6567c8e8a819ae5d150634aa2 (diff) | |
| download | tcl-79a6fd2cfab32ca308e8aed929699cc447c82904.zip tcl-79a6fd2cfab32ca308e8aed929699cc447c82904.tar.gz tcl-79a6fd2cfab32ca308e8aed929699cc447c82904.tar.bz2 | |
Added magic for Objective C. [Bug 2163447]
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: |