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,FREEMAIL_FROM autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,ca85d557480cf473 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2002-07-07 19:26:06 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.tele.dk!small.news.tele.dk!130.133.1.3!fu-berlin.de!uni-berlin.de!pcp01485549pcs.limstn01.de.comcast.NET!not-for-mail From: Ryan Tarpine Newsgroups: comp.lang.ada Subject: Re: Hiding a type Date: Sun, 07 Jul 2002 22:24:24 +0000 Message-ID: <3D28BF98.8080000@hotmail.com> References: <3D27263F.7070101@hotmail.com> <7kJV8.2438$gy3.1099236449@newssvr12.news.prodigy.com> <3D2733F4.8010304@hotmail.com> NNTP-Posting-Host: pcp01485549pcs.limstn01.de.comcast.net (68.82.51.136) Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit X-Trace: fu-berlin.de 1026095164 20943477 68.82.51.136 (16 [151722]) User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.0.0) Gecko/20020617 X-Accept-Language: en-us, en Xref: archiver1.google.com comp.lang.ada:26931 Date: 2002-07-07T22:24:24+00:00 List-Id: Frank J. Lhota wrote: >... > Given further clarification by Ryan, I would recommend the following: > > package Test is > type Public_Name is limited private; > procedure Initialize( Item : in out Public_Name; File_Name : in > String ); > procedure Process( Input : Public_Name ); > private > -- May want to declare the following type as abstract. > type Private_Root_Type is tagged record ... end record; > type Public_Name is access all Private_Root_Type'Class; > end Test; > My heartfelt thanks to everyone for all your helpful explanations! You have given me a much better understanding of the situation. The above solution was my favorite, and I plan to use it in my application. Thanks again, Ryan