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,CTE_8BIT_MISMATCH,
	INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,284617f48ce4b65a,start
X-Google-Attributes: gid103376,public
From: Andr� <bbp_abar@gig.net>
Subject: Beginner Need help !
Date: 1996/04/22
Message-ID: <317BA52A.18C4@gig.net>#1/1
X-Deja-AN: 150799814
content-type: text/plain; charset=iso-8859-1
organization: BBP Energie Lt�e
mime-version: 1.0
newsgroups: comp.lang.ada
x-mailer: Mozilla 2.0 (Win16; I)
Date: 1996-04-22T00:00:00+00:00
List-Id: <comp.lang.ada>

Hello Ada programers,

A beginner need help !
I want to write (in text mode) at the end of a file.

I tought using Text_IO.Open(...) with an existing file opened in
OUT_FILE mode, the result of the following code should append to
the file ...
But in fact, the original file is replaced with the new one !

What is wrong with this code ???

Thank you (excuse my english expression),
Andr� Baril  <bbp_abar@gig.net>


With Text_IO;
Procedure FileTest IS
Package IO_INT IS NEW Text_IO.Integer_IO(Num => Integer);

File_A : Text_IO.File_Type;
Line   : String(1..6) := "Line :";
Number : Natural;

Begin
   -- In this exemple the file, "b:\file_a.txt" should exit ...
   Text_IO.Open(File_A, Text_IO.Out_File, "b:\File_A.txt");

   FOR i IN 1..10 LOOP
      Text_IO.Put(File_A, Line);
      IO_INT.Put(File_A, i, 4);
      Text_IO.New_Line(File_A);
   END LOOP;

   Text_IO.Close(File_A);
End FileTest;