comp.lang.ada
 help / color / mirror / Atom feed
From: Preben Randhol <randhol+cla@pvv.org>
To: comp.lang.ada@ada-france.org
Subject: Re: Universal type in Ada
Date: Wed, 15 Jun 2005 16:37:46 +0200
Date: 2005-06-15T16:37:46+02:00	[thread overview]
Message-ID: <mailman.39.1118846285.17633.comp.lang.ada@ada-france.org> (raw)
In-Reply-To: <1a7ughq9xrk30.1q7sknowaq5or.dlg@40tude.net>

"Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de> wrote on 15/06/2005 (14:00) :
> 
> type Object is abstract tagged null record;
> function Factory (...) return Object'Class;
> 
> type My_Special_Object is new Object with ...;
> 
> declare
>    X : My_Special_Object;
> begin
>    ...
>    X := My_Special_Object Factory (...));

    X := My_Special_Object (Factory (...));

right?

Preben



  reply	other threads:[~2005-06-15 14:37 UTC|newest]

Thread overview: 19+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2005-06-15 13:07 Universal type in Ada zw
2005-06-15 13:32 ` Larry Kilgallen
2005-06-16 13:13   ` zw
2005-06-16 14:36     ` Preben Randhol
2005-06-17  2:54     ` Stephen Leake
2005-06-19 17:38     ` Martin Krischik
2005-06-15 13:55 ` Dmitry A. Kazakov
2005-06-15 14:37   ` Preben Randhol [this message]
2005-06-15 16:48     ` Dmitry A. Kazakov
2005-06-15 14:34 ` Preben Randhol
2005-06-16 13:10   ` zw
2005-06-15 16:31 ` Georg Bauhaus
2005-06-16  8:18 ` Ole-Hjalmar Kristensen
2005-06-16 11:59   ` Dmitry A. Kazakov
2005-06-16 13:23     ` zw
2005-06-16 14:19       ` jimmaureenrogers
2005-06-16 14:31       ` Dmitry A. Kazakov
2005-06-19 17:31       ` Martin Krischik
2005-06-19 17:26 ` Martin Krischik
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox