* Gustafson's Pascal with
@ 1991-04-24 0:57 Doug L. Bryan
0 siblings, 0 replies; only message in thread
From: Doug L. Bryan @ 1991-04-24 0:57 UTC (permalink / raw)
>Date: 4 Feb 91
Wow. The BITNET seems pretty slow lately.
>From: Eric Gustafson <ece490%VALPO.BITNET@UICVM.uic.edu>
>Subject: An equilivant to Pascal's WITH in Ada??
>Message-ID: <9104210400.AA06564@ajpo.sei.cmu.edu>
>Example ( In Pascal ):
>..
>Type
> PersonRec = Record
> Name : String;
> Age : Integer;
> ID : Integer;
> end; { PersonRec }
I'm not sure how you plan to handle strings, so I'll ignore then
in my example.
-- Ada
type Person_Rec is record
Age : Integer;
ID : Integer;
end record;
> WITH Person do
> begin
> Age := 24;
> ID := 123930;
> end; { with person }
-- Ada
With_Person: declare
Age : Integer renames Person.Age;
ID : Integer renames Person.ID;
begin
Age := 24;
ID := 123930;
end With_Person;
doug
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~1991-04-24 0:57 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1991-04-24 0:57 Gustafson's Pascal with Doug L. Bryan
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox