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
Path: eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mail
From: "Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org>
Newsgroups: comp.lang.ada
Subject: Re: Unchecked_Deallocation with tagged types
Date: Tue, 20 Apr 2021 19:24:04 +0200
Organization: Also freenews.netfront.net; news.tornevall.net;
 news.eternal-september.org
Message-ID: <s5n2nl$6ee$1@dont-email.me>
References: <607b56f8$0$3721$426a34cc@news.free.fr>
 <s5gq77$110s$1@gioia.aioe.org> <607bf826$0$3733$426a74cc@news.free.fr>
 <s5hnta$2qv$1@dont-email.me> <86im4hj6eh.fsf@stephe-leake.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Tue, 20 Apr 2021 17:24:06 -0000 (UTC)
Injection-Info: reader02.eternal-september.org; posting-host="547c960cf1afa81c407cf6082b4bd11e";
	logging-data="6606"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX190IaCIXiyiOnU22GUl8dY+Y2KP0xrt4Jw="
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101
 Thunderbird/78.7.1
Cancel-Lock: sha1:ckjYeWsBPNufZw4PmSB4mTQqgc0=
In-Reply-To: <86im4hj6eh.fsf@stephe-leake.org>
Content-Language: en-US
Xref: reader02.eternal-september.org comp.lang.ada:61864
List-Id: <comp.lang.ada>

On 4/20/21 5:57 PM, Stephen Leake wrote:
> "Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org> writes:
> 
>> package Lists is
>>     type Handle is tagged limited private;
>>
>>     procedure Clear (List : in out Handle);
>>
>> and then use
>>
>>     List : Lists.Handle;
>>
>>     List.Clear;
> 
> Just to provide an alternative, I like:
> 
>   package Lists is
>      type List is tagged limited private;
> 
>      procedure Clear (List : in out Lists.List);
> 
>   and then use
> 
>      List : Lists.List;
> 
>      List.Clear;

Lists.List is a bit repetitive. Are you sure you don't want 
Lists.Listy_List_Listing?

> that saves you having to think up a bogus name for the 'list' type.

I think of private types as allowing you to manipulate their abstraction without 
know how it's implemented, much as the handle on a suitcase allows you to 
manipulate its contents without knowing what's in there. So Handle seems an 
appropriate name.

-- 
Jeff Carter
"I'm particularly glad that these lovely children were
here today to hear that speech. Not only was it authentic
frontier gibberish, it expressed a courage little seen
in this day and age."
Blazing Saddles
88