From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 16 Nov 92 18:55:13 GMT
From: visicom!amstel!rlk@nosc.mil  (Bob Kitzberger)
Subject: Re: HELP! Input/Output of private types
Message-ID: <rlk.721940113@amstel>
List-Id: <comp.lang.ada>

kist@acsu.buffalo.edu (james e kist) writes:

>generic
>	type Element is private;
>package abcd
>.
>end abcd;
>
>Now, how do I do I/O on an object that is of type Element? Thanks for any
>help.


   generic
       type Element is private;
       with procedure Put( Item : in     Element );
       with procedure Get( Item :    out Element );
   package abcd is
   ...
       Get (Item);
       Put (Item);
   end abcd;
   

----------------
Bob Kitzberger          VisiCom Laboratories, Inc.
rlk@visicom.com         10052 Mesa Ridge Court, San Diego CA 92121 USA
                        +1 619 457 2111    FAX +1 619 457 0888