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.2 required=5.0 tests=BAYES_00,HK_RANDOM_FROM,
	INVALID_DATE autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!tut.cis.ohio-state.edu!uoft02.utoledo.edu!desire.wright.edu!wright!tmcclory
From: tmcclory@valhalla.cs.wright.edu (Tom McClory)
Newsgroups: comp.lang.ada
Subject: Text_Io Questions
Message-ID: <1991Jan26.185319.15676@cs.wright.edu>
Date: 26 Jan 91 18:53:19 GMT
Sender: tmcclory@cs.wright.edu (Tom McClory)
Organization: Wright State University
List-Id: <comp.lang.ada>

A few novice questions on using Text_Io ...

I've checked a couple of  "intro" text books on Ada, and the LRM, but I 
haven't found a solution to either of these (trivial?) problems.  I 
would welcome suggestion from any gurus in netland.  If there is 
sufficient interest, I'll post a summary.

1) How to open a text file to append to an existing text file?

2) Is there some way to write to either Standard_Output or to a file?
The Text_Io.File_Type is limited private, so the following doesn't work:

    The_File : File_Type;
    The_File := Standard_Output;
    ...
    Put(The_File, "hello world");

I then tried the following but the exception "Name_Error" was raised:

    Open( File => The_File, Mode => In_Out, Name => Name(Standard_Output));

I also tried Create, but this created a new file in my directory 
named "stdout".

Thanks,

Tom McClory
tmcclory@cs.wright.edu
Wright State Univ.
Dayton, OH.