[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [ns] otcl_mappings

>Hi all,
>
>In Tcl.cc in ~/tclcl/otcl, we have:
>
>void TclClass::bind()
>{
>	Tcl& tcl = Tcl::instance();
>	tcl.evalf("SplitObject register %s", classname_);
>	class_ = OTclGetClass(tcl.interp(),
>(char*)classname_);
>	OTclAddIMethod(class_, "create-shadow",
>		       create_shadow, (ClientData)this, 0);
>	OTclAddIMethod(class_, "delete-shadow",
>		       delete_shadow, (ClientData)this, 0);
>	otcl_mappings();
>}
>
>Could anyone tell me, whats this
>
>otcl_mappings();
>
>all about?

If you grep in tclcl you'll find it's involved in the
DEFINE_OTCL_CLASS and DEFINE_ABSTRACT_OTCL_CLASS
which are C pre-processor glue to declaring new classes
that were used only by MASH, not by ns.

   -John Heidemann