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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,a3736685ef876ab2
X-Google-Attributes: gid103376,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!postnews.google.com!t47g2000hsc.googlegroups.com!not-for-mail
From: braver <deliverable@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: OO Style with Ada Containers
Date: Mon, 26 Nov 2007 11:09:52 -0800 (PST)
Organization: http://groups.google.com
Message-ID: 
 <a7d55205-9f8f-4c70-b1cf-74c665460daa@t47g2000hsc.googlegroups.com>
References: <1195082906.420079.195000@d55g2000hsg.googlegroups.com>
	<1195084214.480299.13970@t8g2000prg.googlegroups.com>
 <1195084752.840598.174460@v65g2000hsc.googlegroups.com>
	<1195086265.070953.93180@d55g2000hsg.googlegroups.com>
 <u1wandlal.fsf@earthlink.net>
	<2e37536e-55fb-42d5-a073-10b47cc31128@v4g2000hsf.googlegroups.com>
	<u3auttzyt.fsf@earthlink.net> <uy7cl9l35.fsf@earthlink.net>
NNTP-Posting-Host: 85.30.231.120
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
X-Trace: posting.google.com 1196104289 30986 127.0.0.1 (26 Nov 2007 19:11:29
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Mon, 26 Nov 2007 19:11:29 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: t47g2000hsc.googlegroups.com; posting-host=85.30.231.120;
	posting-account=V2cESwoAAACnN32CFvmyu4DCs-heiisG
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en)
	AppleWebKit/523.12 (KHTML,
 like Gecko) Version/3.0.4 Safari/523.12,gzip(gfe),gzip(gfe)
Content-Disposition: inline
Xref: g2news1.google.com comp.lang.ada:18638
Date: 2007-11-26T11:09:52-08:00
List-Id: <comp.lang.ada>

On Nov 26, 4:45 pm, Matthew Heaney <matthewjhea...@earthlink.net>
wrote:
> Matthew Heaney <matthewjhea...@earthlink.net> writes:
> > This is all a bit of a trick, since it allows me to put the storage for the
> > current line on the stack:
>
> > declare
> >   S : Scanner := Scan (Get_Line (F));
> > begin
>
> Another possibility is:
>
>   type Scanner (Line : not null access constant String) is
>     tagged limited private;
> ...
>
>   declare
>      L : aliased constant String := Get_Line (F);
>      S : Scanner (L'Access);
>   begin

So in this case Handle goes away altogether?