From: "Robert C. Leif" <rleif@rleif.com>
Subject: RE: Run-Time Type Assignment
Date: Wed, 28 Aug 2002 20:18:36 -0700
Date: 2002-08-28T20:18:36-07:00 [thread overview]
Message-ID: <mailman.1030591141.31870.comp.lang.ada@ada.eu.org> (raw)
In-Reply-To: <wcclm6qtwz3.fsf@shell01.TheWorld.com>
From: Bob Leif
To: Robert A Duff et al.
I was being lazy. The actual parameters include unsigned 8, 16, and 32
bit integers; floats, one and two dimensional arrays, and possibly
booleans. Fortunately, the array consists of one type of record, which
can have 1 to approximately 15 fields (elements). The data type
possibilities and number of elements in a record will increase as the
technology advances.
-----Original Message-----
From: comp.lang.ada-admin@ada.eu.org
[mailto:comp.lang.ada-admin@ada.eu.org] On Behalf Of Robert A Duff
Sent: Wednesday, August 28, 2002 3:55 PM
To: comp.lang.ada@ada.eu.org
Subject: Re: Run-Time Type Assignment
"Robert C. Leif" <rleif@rleif.com> writes:
> From: Bob Leif
> From: Bob Leif
> To: Fellow Readers of Comp.Lang.Ada
> Firstly, thanks to all who suggested implementations. I now have a
> solution based on the Example from Norman Cohen's Ada as a second
> language page 377.
> The two pages and main procedure below compile. Unfortunately, type
> Para_Rec_Psuedo_Tagged_Type is brute force approach. Does anyone have
a
> simpler implementation?
In this case, all the "Para"'s are of type Positive, so you could make
an array inside the record, bounds 1..Num_Paras. You lose some range
checking, unfortunately. If the types were not all the same type, then
*make* them be all of the same type by the usual methods (pointer to
class-wide, pointer to variant record, etc).
SNIP including end.
next prev parent reply other threads:[~2002-08-29 3:18 UTC|newest]
Thread overview: 33+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <002a01c24e5f$9ee347b0$789a0844@robertqgx6k4x9>
2002-08-28 11:33 ` Run-Time Type Assignment sk
[not found] ` <3D6CB4F5.F4E05D76@myob.com>
2002-08-28 11:37 ` sk
2002-08-28 15:39 ` Robert C. Leif
2002-08-28 18:53 ` Jeffrey Carter
2002-08-28 20:54 ` Robert C. Leif
2002-08-28 22:55 ` Robert A Duff
2002-08-29 3:18 ` Robert C. Leif [this message]
[not found] <005101c24ea9$0de9c960$789a0844@robertqgx6k4x9>
2002-08-28 16:06 ` sk
2002-08-28 22:44 ` tmoran
2002-08-29 0:37 ` tmoran
2002-08-28 6:53 Robert C. Leif
2002-08-28 11:04 ` Robert Dewar
2002-08-28 13:35 ` Robert A Duff
2002-08-28 14:56 ` Larry Kilgallen
2002-08-28 14:31 ` Robert A Duff
2002-08-28 14:59 ` Lutz Donnerhacke
2002-08-28 22:32 ` Robert A Duff
2002-08-29 22:55 ` Dmitry A.Kazakov
2002-08-28 18:03 ` Frank J. Lhota
2002-08-28 18:37 ` Pat Rogers
2002-08-28 22:47 ` Robert A Duff
2002-08-29 13:32 ` Ben Brosgol
2002-08-29 13:52 ` SIMON Claude
2002-08-29 14:30 ` Robert A Duff
2002-08-29 18:27 ` Randy Brukardt
2002-08-29 14:56 ` Robert A Duff
2002-08-30 3:04 ` Ben Brosgol
2002-08-30 22:54 ` Robert A Duff
2002-08-29 15:09 ` Larry Kilgallen
2002-08-29 14:29 ` Marin D. Condic
2002-08-28 13:41 ` Robert A Duff
2002-08-28 17:15 ` Hyman Rosen
2002-08-28 20:27 ` Björn Lundin
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox