diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-07-19 11:46:52 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-07-19 11:46:52 (GMT) |
| commit | d63bf48fae3c37de04f6f82c8bde59587e1ed2aa (patch) | |
| tree | a8a19f6d92c70e4d6476438a0e2ce346f2fc7fff /generic/tclOODecls.h | |
| parent | 87edf9c39870a062040ef47d131ee19dfc4161d8 (diff) | |
| download | tcl-d63bf48fae3c37de04f6f82c8bde59587e1ed2aa.zip tcl-d63bf48fae3c37de04f6f82c8bde59587e1ed2aa.tar.gz tcl-d63bf48fae3c37de04f6f82c8bde59587e1ed2aa.tar.bz2 | |
Expose function to efficiently return current name of an object.
Diffstat (limited to 'generic/tclOODecls.h')
| -rw-r--r-- | generic/tclOODecls.h | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/generic/tclOODecls.h b/generic/tclOODecls.h index 1a0c262..c42c02f 100644 --- a/generic/tclOODecls.h +++ b/generic/tclOODecls.h @@ -1,5 +1,5 @@ /* - * $Id: tclOODecls.h,v 1.11 2009/01/29 14:53:36 dkf Exp $ + * $Id: tclOODecls.h,v 1.12 2009/07/19 11:46:53 dkf Exp $ * * This file is (mostly) automatically generated from tclOO.decls. */ @@ -207,6 +207,12 @@ EXTERN void Tcl_ClassSetConstructor (Tcl_Interp * interp, EXTERN void Tcl_ClassSetDestructor (Tcl_Interp * interp, Tcl_Class clazz, Tcl_Method method); #endif +#ifndef Tcl_GetObjectName_TCL_DECLARED +#define Tcl_GetObjectName_TCL_DECLARED +/* 28 */ +EXTERN Tcl_Obj * Tcl_GetObjectName (Tcl_Interp * interp, + Tcl_Object object); +#endif typedef struct TclOOStubHooks { const struct TclOOIntStubs *tclOOIntStubs; @@ -244,6 +250,7 @@ typedef struct TclOOStubs { void (*tcl_ObjectSetMethodNameMapper) (Tcl_Object object, Tcl_ObjectMapMethodNameProc mapMethodNameProc); /* 25 */ void (*tcl_ClassSetConstructor) (Tcl_Interp * interp, Tcl_Class clazz, Tcl_Method method); /* 26 */ void (*tcl_ClassSetDestructor) (Tcl_Interp * interp, Tcl_Class clazz, Tcl_Method method); /* 27 */ + Tcl_Obj * (*tcl_GetObjectName) (Tcl_Interp * interp, Tcl_Object object); /* 28 */ } TclOOStubs; #if defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS) @@ -368,6 +375,10 @@ extern const TclOOStubs *tclOOStubsPtr; #define Tcl_ClassSetDestructor \ (tclOOStubsPtr->tcl_ClassSetDestructor) /* 27 */ #endif +#ifndef Tcl_GetObjectName +#define Tcl_GetObjectName \ + (tclOOStubsPtr->tcl_GetObjectName) /* 28 */ +#endif #endif /* defined(USE_TCLOO_STUBS) && !defined(USE_TCLOO_STUB_PROCS) */ |