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.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
Path: 
 border2.nntp.dca3.giganews.com!backlog4.nntp.dca3.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!newspeer1.nac.net!newsfeed.xs4all.nl!newsfeed2.news.xs4all.nl!xs4all!news.stack.nl!aioe.org!.POSTED!not-for-mail
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Newsgroups: comp.lang.ada
Subject: Re: Your wish list for Ada 202X
Date: Thu, 24 Apr 2014 09:30:45 +0200
Organization: cbb software GmbH
Message-ID: <1m2e01a5935at$.7808izv5mhqk.dlg@40tude.net>
References: <7f1c01c5-3563-4b94-9831-152dbbf2ecdc@googlegroups.com>
 <bqqsmqFk8b9U1@mid.individual.net> <s604jsja4ayt.yf0xqwsaue9d.dlg@40tude.net>
 <bqr781FmefuU1@mid.individual.net>
 <1wjmcbk375lzk.6o7dpqcp3va3.dlg@40tude.net>
 <br07nkFnvrbU1@mid.individual.net> <lihtai$6oj$1@loke.gir.dk>
 <br8bu5Fg3keU1@mid.individual.net> <lin047$uik$1@loke.gir.dk>
 <brdegqFi62jU1@mid.individual.net> <lis5et$gt1$1@loke.gir.dk>
 <brepivFq9kcU1@mid.individual.net> <lj48fr$b48$1@loke.gir.dk>
 <11241mc0j3ewn.14ahwtra3l1i8.dlg@40tude.net> <tMp5v.132103$dK.57197@fx07.iad>
 <10o6qo98dwzjs$.rdpzvq7w1lep.dlg@40tude.net> <lj6tla$733$1@loke.gir.dk>
 <1y4292c8reke$.10t8zilxfxjqf.dlg@40tude.net>
 <rJU5v.136982$dK.105028@fx07.iad> <98un5d2zp91p$.cbmroy0r1uqu.dlg@40tude.net>
 <%fW5v.233114$ZP3.133046@fx20.iad>
Reply-To: mailbox@dmitry-kazakov.de
NNTP-Posting-Host: G+aXx1XI67D34t54ibhUPQ.user.speranza.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit
X-Complaints-To: abuse@aioe.org
User-Agent: 40tude_Dialog/2.0.15.1
X-Notice: Filtered by postfilter v. 0.8.2
X-Original-Bytes: 2674
Xref: number.nntp.dca.giganews.com comp.lang.ada:186056
Date: 2014-04-24T09:30:45+02:00
List-Id: <comp.lang.ada>

On Wed, 23 Apr 2014 15:28:27 -0600, Shark8 wrote:

> On 23-Apr-14 14:00, Dmitry A. Kazakov wrote:
>> On Wed, 23 Apr 2014 13:43:19 -0600, Shark8 wrote:
>>
>>> On 23-Apr-14 01:45, Dmitry A. Kazakov wrote:
>>>> In the case of files there already is such stick object: /dev/null.
>>>
>>> I think there's a problem with that assertion
>>>> C:\Programming\Projects\SiennaSCL\src>cd /dev/null
>>>> The system cannot find the path specified.
>>>
>>> See?
>>
>> Path /= File
> 
> Not much different:

Decisively different.

It would be trivial to implement Null_File_Type, provided there were
Root_File_Type. Alas, non-tagged File_Type is Ada 83 heritage.

If you don't mind being GNAT-locked, you can implement GNAT-specific
Null_File of File_Type on top of GNAT implementation.

For stream I/O everything is here. Root_Stream_Type is tagged.

type Null_Stream_Type is new Root_Stream_Type with null record;
overriding procedure Read ...
overriding procedure Write ...

Null_Stream : Null_Stream_Type;

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de