Hi Factor List,

I've got a base class tuple that I want to inherit 3 subclasses from. 
The subclasses don't have state of their own, but are merely used for 
polymorphic method dispatch. I'm using delegates as follows:

<PRIVATE
TUPLE: index fname ;
C: <index> index
PRIVATE>

: construct-index-delegate ( fname subclass -- obj )
   >r <index> r> construct-empty tuck set-delegate ;

TUPLE: pso-index ;
TUPLE: osp-index ;
TUPLE: pos-index ;

: <pso-index> pso-index construct-index-delegate ;
: <osp-index> osp-index construct-index-delegate ;
: <pos-index> pos-index construct-index-delegate ;

Is this the best approach?

Cheers,

Phil



-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk

Reply via email to