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.1 required=5.0 tests=BAYES_00,
	PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,87f589d0052c40b3
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-10-01 01:05:04 PST
Path: 
 archiver1.google.com!news2.google.com!newsfeed.stanford.edu!cyclone.bc.net!in.100proofnews.com!in.100proofnews.com!news2.telebyte.nl!news.tele.dk!news.tele.dk!small.news.tele.dk!oleane.net!oleane!nnrp.oleane.net!skymaster!nobody
From: "Jean-Pierre Rosen" <rosen@adalog.fr>
Newsgroups: comp.lang.ada
Subject: Re: procedure Create(file : in out File_Type;
 from : in Stream_Access); ?
Date: Wed, 1 Oct 2003 09:34:58 +0200
Organization: Adalog
Message-ID: <v60elb.5sv.ln@skymaster>
References: <slrnbnfs9o.nr.lutz@taranis.iks-jena.de> <uzngnvd8h.fsf@nasa.gov>
 <slrnbnh205.dsr.lutz@belenus.iks-jena.de> <3dtblb.eoc.ln@skymaster>
 <slrnbnj15t.nr.lutz@taranis.iks-jena.de> <834clb.uan.ln@skymaster>
 <mailman.19.1064966674.25614.comp.lang.ada@ada-france.org>
NNTP-Posting-Host: mailhost.axlog.fr
X-Trace: s1.read.news.oleane.net 1064995336 6450 195.25.228.57 (1 Oct 2003
 08:02:16 GMT)
X-Complaints-To: abuse@oleane.net
NNTP-Posting-Date: Wed, 1 Oct 2003 08:02:16 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Xref: archiver1.google.com comp.lang.ada:55
Date: 2003-10-01T09:34:58+02:00
List-Id: <comp.lang.ada>


"sk" <noname@myob.com> a �crit dans le message de news:mailman.19.1064966674.25614.comp.lang.ada@ada-france.org...
> rosen@adalog.fr:
>  > With this package, you have both a File and a Stream refering
>  > to the same physical file.You can use that any way you want.
>  > Unless I missed something?
>
> The Gnat 3.15p Ada.Text_Io.Text_Streams provides stream
> access to an Ada.Text_Io.File_Type, not the other way
> around (an Ada.Text_Io.File_Type from an Ada Stream)
> unless I am missing something :-)
>
So, if I understand correctly, you want a Text_IO.File_Type from
*any* stream? Can't you use Ada.Text_IO.Text_Streams.Stream_Access
right from the start?

-- 
---------------------------------------------------------
           J-P. Rosen (rosen@adalog.fr)
Visit Adalog's web site at http://www.adalog.fr