comp.lang.ada
 help / color / mirror / Atom feed
From: Preben Randhol <randhol+valid_for_reply_from_news@pvv.org>
Subject: Re: How to define an array of a variant record type?
Date: Wed, 19 Nov 2003 08:11:59 +0000 (UTC)
Date: 2003-11-19T08:11:59+00:00	[thread overview]
Message-ID: <slrnbrm9ef.2re.randhol+valid_for_reply_from_news@kiuk0156.chembio.ntnu.no> (raw)
In-Reply-To: AIAub.182993$9E1.962668@attbi_s52

On 2003-11-19, Steve <nospam_steved94@comcast.net> wrote:
> One other thing I can't resist mentioning.
>
> Here is a snippet of Ada Code in oue of our systems.
>
>   TYPE aConstantDataItemCAX (itemTypeCAX : aConstantDataTypeCAX :=
> invalidTypeCAX) IS
>     RECORD
>       CASE itemTypeCAX IS
>         WHEN invalidTypeCAX | iTypeCAX =>
>           --The data item that is used to pass data between screen edit
>           --and the access procedures
>           intValueCAX : integer;
>         WHEN fTypeCAX =>
>           realValueCAX : float;
>         WHEN eTypeCAX =>
>           eValueCAX : anEnumRecordCAX;
>         WHEN sTypeCAX =>
>           stringValueCAX : aConstantStringCAX;
>       END CASE;
>     END RECORD;

Wouldn't underscores been nice?


-- 
"Saving keystrokes is the job of the text editor, not the programming
 language."



  reply	other threads:[~2003-11-19  8:11 UTC|newest]

Thread overview: 12+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2003-11-17 16:57 How to define an array of a variant record type? Harald Schmidt
2003-11-17 17:35 ` Stephen Leake
2003-11-20 10:02   ` Craig Carey
2003-11-17 17:37 ` Marius Amado Alves
2003-11-18  2:48   ` Steve
2003-11-18  9:04     ` Marius Amado Alves
2003-11-17 18:45 ` Rodrigo Garcia
2003-11-18  2:48 ` Steve
2003-11-18 17:48 ` Nick Roberts
2003-11-19  2:38   ` Steve
2003-11-19  8:11     ` Preben Randhol [this message]
2003-11-19 13:26   ` Rodrigo Garcia
replies disabled

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