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.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!pacific.mps.ohio-state.edu!zaphod.mps.ohio-state.edu!rpi!bu.edu!inmet!stt
From: stt@inmet.inmet.com
Newsgroups: comp.lang.ada
Subject: Re: Append files using TEXT_IO
Message-ID: <20600050@inmet>
Date: 13 Jun 90 13:49:00 GMT
References: <24001@<900611181242>
Nf-ID: #R:<900611181242:24001:inmet:20600050:000:524
Nf-From: inmet.inmet.com!stt    Jun 13 09:49:00 1990
List-Id: <comp.lang.ada>


Re: Appending to a text file.

Leaving out "append" was probably a bug in Ada83.
Many compilers have provided a mechanism for open-with-append,
by an appropriate FORM string.  Check out the Appendix F of
your favorite compiler.

If all else fails, try pragma Interface to gain access to
the Unix Seek and Write.  You should be able to prepare
a string for output using the Text_IO.Put(TO: out String; ...),
and then pass its address and length directly to Unix Write.

S. Tucker Taft
Intermetrics, Inc.
Cambridge, MA  02138