From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,769011296971bc3c
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-07-20 09:33:54 PST
Path: 
 archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!canoe.uoregon.edu!hammer.uoregon.edu!skates!not-for-mail
From: Stephen Leake <stephen.a.leake.1@gsfc.nasa.gov>
Newsgroups: comp.lang.ada
Subject: Re: about ADTs
Date: 20 Jul 2001 12:28:21 -0400
Organization: NASA Goddard Space Flight Center
Message-ID: <uvgknimze.fsf@gsfc.nasa.gov>
References: <tlehc36ma4rge2@corp.supernews.com>
NNTP-Posting-Host: anarres.gsfc.nasa.gov
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: skates.gsfc.nasa.gov 995647538 27865 128.183.220.71 (20 Jul 2001
 16:45:38 GMT)
X-Complaints-To: dscoggin@cne-odin.gsfc.nasa.gov
NNTP-Posting-Date: 20 Jul 2001 16:45:38 GMT
User-Agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.6
Xref: archiver1.google.com comp.lang.ada:10350
Date: 2001-07-20T16:45:38+00:00
List-Id: <comp.lang.ada>

"Beau" <beau@hiwaay.net> writes:

> In the child package for an ADT I need to get an enumerated type. Would I
> instantiate a package to read the enumerated data inside the child package?
> How would I write the child package get? would it look like this:
> --in the spec file for the child package
> PROCEDURE Get(File : IN Ada.Text_IO.File_Type;
>                                   Item : OUT Account);  --Account is a
> record containing a seperate ADT value Date, the
>                                                                          --e
> numeration type and a float value
> 
> --then inside the body of the child package:
> PROCEDURE Get(File : IN Ada.Text_IO.File_Type;
>                                    Item : OUT Account) IS
>     --here I would get the Dates from the other ADT package I am using
>     --here is where I would get the enumeration type
>     Enumeration_IO.Get( Item => TransKind);
>     --Here I get the Amount
>     Ada.Integer_Text_IO.Get(Item => Amount);
> 
> END Get;
> 
> does this look remotely right?

"remotely", yes. Here's an attempt to fix things:

procedure Get (File : in  Ada.Text_IO.File_Type;
               Item : out Account)
is
    package Account_Enum_IO is new Ada.Text_IO.Enumeration_IO (Enum_Type);
begin
   --here I would get the Dates from the other ADT package I am using
   Account_Enum_IO.Get (Item.TransKind);
   Ada.Integer_Text_IO.Get (Item.Amount);
end Get;

You need to instantiate the generic package Ada.Text_IO.Enumeration_IO
(I guessed at the name of the enumeration type). Record components are
accessed by ".", not "=>".

Hope this helps,

-- 
-- Stephe