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
X-Received: by 2002:ac8:470e:: with SMTP id f14mr10352335qtp.54.1618940070702;
        Tue, 20 Apr 2021 10:34:30 -0700 (PDT)
X-Received: by 2002:a5b:e90:: with SMTP id z16mr27022587ybr.303.1618940070555;
 Tue, 20 Apr 2021 10:34:30 -0700 (PDT)
Path: eternal-september.org!reader02.eternal-september.org!news.mixmin.net!weretis.net!feeder8.news.weretis.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Tue, 20 Apr 2021 10:34:30 -0700 (PDT)
In-Reply-To: <s5n2nl$6ee$1@dont-email.me>
Injection-Info: google-groups.googlegroups.com; posting-host=35.245.252.196; posting-account=XfA3zgkAAABoz6fRf3Tehtnqqr7Ycml-
NNTP-Posting-Host: 35.245.252.196
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> <s5n2nl$6ee$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <827fce15-8277-4ec8-a627-01158b42a191n@googlegroups.com>
Subject: Re: Unchecked_Deallocation with tagged types
From: Vincent Marciante <vincent.marciante@l3harris.com>
Injection-Date: Tue, 20 Apr 2021 17:34:30 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:61867
List-Id: <comp.lang.ada>

On Tuesday, April 20, 2021 at 1:24:08 PM UTC-4, Jeffrey R. Carter wrote:
> On 4/20/21 5:57 PM, Stephen Leake wrote: 
> > "Jeffrey R. Carter" wrote: 
> > 
> >> 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

As people might remember from long ago, I'm in the

    Lists.List

 camp.

 (Wouldn't some "C" people argue for using the same name but
different capitalization to disambiguate ?:-)

[Vin runs away]