From: Martin Krischik <krischik@users.sourceforge.net>
Subject: Re: how do i implement double-dispatching?
Date: Thu, 18 Dec 2003 16:13:54 +0100
Date: 2003-12-18T16:13:54+01:00 [thread overview]
Message-ID: <1522008.DxYnxutugr@linux1.krischik.com> (raw)
In-Reply-To: pan.2003.12.17.18.08.34.122050@yahoo.com
cl1motorsports wrote:
Havn't got much time but you might like to try:
> procedure Accept_Visitor(V : in out Visitor_Record'Class; Node : in
> Parse_Tree_Node_Record'Class);
procedure Accept_Visitor(V : in out Visitor_Record; Node : in
Parse_Tree_Node_Record'Class);
> end Abstract_Visitor;
>
> -- abstract_visitor.adb
>
> package body Abstract_Visitor is
>
> procedure Accept_Visitor(V : in out Visitor_Record'Class; Node : in
> Parse_Tree_Node_Record'Class) is begin
procedure Accept_Visitor(V : in out Visitor_Record; Node : in
Parse_Tree_Node_Record'Class) is
V_C : Visitor_Record'Class renames Visitor_Record'Class (V);
begin
> Visit(V, Node);
Visit(V_C, Node);
> end Accept_Visitor;
>
> end Abstract_Visitor;
With Regards
Martin
--
mailto://krischik@users.sourceforge.net
http://www.ada.krischik.com
next prev parent reply other threads:[~2003-12-18 15:13 UTC|newest]
Thread overview: 15+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-12-17 18:08 how do i implement double-dispatching? cl1motorsports
2003-12-18 2:17 ` Stephen Leake
2003-12-18 9:48 ` Dmitry A. Kazakov
2003-12-18 15:13 ` Martin Krischik [this message]
2003-12-20 6:27 ` cl1motorsports
2003-12-20 9:56 ` Martin Krischik
2003-12-20 17:00 ` cl1motorsports
2003-12-21 13:39 ` Stephen Leake
2003-12-21 17:40 ` cl1motorsports
2003-12-22 22:47 ` Stephen Leake
2003-12-22 21:41 ` cl1motorsports
2003-12-22 21:47 ` cl1motorsports
2003-12-23 11:03 ` Dmitry A. Kazakov
2003-12-22 22:49 ` Stephen Leake
2003-12-22 23:04 ` cl1motorsports
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox