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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,59ec34bfa2373410
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!news.glorb.com!border1.nntp.dca.giganews.com!nntp.giganews.com!peer01.cox.net!peer02.cox.net!cox.net!news-server.columbus.rr.com!fe2.columbus.rr.com.POSTED!not-for-mail
Subject: Re: Using Jim Rogers' "Ada Binding to Pipes"? (Was: SSH Sessions?)
From: "James E. Hopper" <hopperj@macconnect.com>
Newsgroups: comp.lang.ada
Message-ID: <140820041446316991%hopperj@macconnect.com>
References: <49dc98cf.0408091032.508f09df@posting.google.com>
 <cf8iab$qav$1@a1-hrz.uni-duisburg.de>
 <adam.ruth-3053E7.22323309082004@localhost> <2nrv4rF3hamgU1@uni-berlin.de>
 <plk6w36yyx.fsf_-_@sparre.crs4.it> <2o4d0kF6f1hsU1@uni-berlin.de>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-transfer-encoding: 8bit
User-Agent: Thoth/1.6.0 (Carbon/OS X)
Date: Sat, 14 Aug 2004 18:45:25 GMT
NNTP-Posting-Host: 65.31.62.241
X-Complaints-To: abuse@rr.com
X-Trace: fe2.columbus.rr.com 1092509125 65.31.62.241 (Sat,
 14 Aug 2004 14:45:25 EDT)
NNTP-Posting-Date: Sat, 14 Aug 2004 14:45:25 EDT
Organization: Road Runner High Speed Online http://www.rr.com
Xref: g2news1.google.com comp.lang.ada:2733
Date: 2004-08-14T18:45:25+00:00
List-Id: <comp.lang.ada>

when building and running pipes after putting in the fix previously
mentioned in this thread i get

"Attempt illegal input from a pipe to the tee command:
Detected improper attempt to read from a pipe opened for write only."


from looking at the test program this seems the correct response as
written, even though its not obvous from the output that this is
expected.  code in question is:

      FileStream := execute(command4, write_file);
      begin
         print_buf(FileStream);
         exception
            when Access_Error =>
               put_line ("Detected improper attempt to read from a pipe
opened for write only.");
      end;


FileStream is opened for write, then in print_buf the code attempts to
read from the stream.  

is the test trying to force an error to demonstate that it works, or is
there something in using this with osx that makes this wrong?

thanks jim