Posted to tcl by apw at Tue Aug 07 15:40:33 GMT 2007view raw
- /*
- * tclItclOO.c --
- *
- * This file contains the object-system Itcl core (NB: not Tcl_Obj, but ::oo)
- *
- * Copyright (c) 2007 by Arnulf P. Wiedemann
- *
- * See the file "license.terms" for information on usage and redistribution of
- * this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- * RCS: @(#) $Id: tclItclOO.c,v 1.0 2007/07/30 14:53:08 apw Exp $
- */
- #include "tclInt.h"
- #include "tclOOInt.h"
- ^L
- /*
- * ----------------------------------------------------------------------
- *
- * Itcl_PublicObjectCmd, Itcl_PrivateObjectCmd --
- *
- * Main entry point for object invokations. The Public* and Private*
- * wrapper functions are just thin wrappers round the main ObjectCmd
- * function that does call chain creation, management and invokation.
- *
- * ----------------------------------------------------------------------
- */
- int
- Itcl_ConstructorObjectCmd(
- Tcl_Object oPtr,
- Tcl_Interp *interp,
- Tcl_Class clsPtr,
- int objc,
- Tcl_Obj *const *objv)
- {
- return TclOOObjectCmdCore((Object *)oPtr, interp, objc, objv, PUBLIC_METHOD,
- &((Object *)oPtr)->publicContextCache, (Class *)clsPtr);
- }
- ^L
- int
- Itcl_PublicObjectCmd(
- ClientData clientData,
- Tcl_Interp *interp,
- Tcl_Class clsPtr,
- int objc,
- Tcl_Obj *const *objv)
- {
- Object *oPtr = (Object *)clientData;
- int result;
- result = TclOOObjectCmdCore(oPtr, interp, objc, objv, PUBLIC_METHOD,
- &oPtr->publicContextCache, (Class *)clsPtr);
- return result;
- }
- ^L
- int
- Itcl_PrivateObjectCmd(
- ClientData clientData,
- Tcl_Interp *interp,
- Tcl_Class clsPtr,
- int objc,
- Tcl_Obj *const *objv)
- {
- Object *oPtr = (Object *)clientData;
- int result;
- result = TclOOObjectCmdCore(oPtr, interp, objc, objv, PRIVATE_METHOD,
- &oPtr->publicContextCache, (Class *)clsPtr);
- return result;
- }
Comments
Posted by apw at Tue Aug 07 15:49:08 GMT 2007 [text] [code]
Itcl_ConstructorObjectCmd is no longer needed, was a leftover!