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=0.0 required=3.0 tests=BAYES_20,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.5-pre1
X-Received: by 2002:a37:61d0:: with SMTP id v199mr387243qkb.433.1610047105071; Thu, 07 Jan 2021 11:18:25 -0800 (PST)
X-Received: by 2002:a25:dc7:: with SMTP id 190mr408828ybn.73.1610047104854; Thu, 07 Jan 2021 11:18:24 -0800 (PST)
Path: eternal-september.org!reader02.eternal-september.org!news.uzoreto.com!tr2.eu1.usenetexpress.com!feeder.usenetexpress.com!tr2.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Thu, 7 Jan 2021 11:18:24 -0800 (PST)
In-Reply-To: <3adb0116-ade7-4942-aac1-dd20e8c89ee7n@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: google-groups.googlegroups.com; posting-host=2a02:1206:4564:fe50:1d96:6e3c:1205:11e0; posting-account=gRqrnQkAAAAC_02ynnhqGk1VRQlve6ZG
NNTP-Posting-Host: 2a02:1206:4564:fe50:1d96:6e3c:1205:11e0
References: <3645df90-9981-4e5b-8e3d-6a428c3dfb08n@googlegroups.com> <3adb0116-ade7-4942-aac1-dd20e8c89ee7n@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <db7c81ca-c75c-4c10-b057-e7fcfa89241fn@googlegroups.com>
Subject: Re: Ann: HAC v.0.085
From: Gautier write-only address <gautier_niouzes@hotmail.com>
Injection-Date: Thu, 07 Jan 2021 19:18:25 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:61057
List-Id: <comp.lang.ada>

On Saturday, January 2, 2021 at 10:10:37 PM UTC+1, reinert wrote:

> Detail: all procedures need "with hac_pack; use hac_pack;" ? 

Actually not anymore, now (rev. #400+) you can write things like:

with HAC_Pack;

procedure Hello is
  procedure Prefixed is
  begin
    HAC_Pack.Put("Hello");
  end;
  procedure Using_Use is
    use HAC_Pack;
  begin
    Put(" World!");
  end;
begin
  Prefixed;
  Using_Use;
end;
 
:-)