Re: Binary Files in Text Editor

[jerry@jvdsys.nextjk.stuyts.nl (Jerry van Dijk)]

robinsoj@my-dejanews.com wrote:

: I have an array of records (there are two string fields, an integer field, and
: a float field) that I converted from a text file to a binary file.  Now I want
: to display those records to the screen like a list.

The problem in the discussion seems to be the persistent use of the term
'binary file'.

For reading/writing records Ada offers several options (Direct_IO,
Sequential_IO and Stream_IO). The easiest is using sequential IO, see
example below.

So, the question is: is something like the example below what you meant,
and why do you need a 'binary file'.

Jerry.

----- records.ads -----------------------------------------------------

package Records is

   type Data_Type is
      record
         Name   : String (1 .. 8);
         Active : Boolean;
         Salary : Float;
      end record;

   File_Name : constant String := "data.dat";

end Records;

----- write.adb -------------------------------------------------------

with Records;
with Ada.Sequential_IO;

procedure Write is

   package Data_Files is new Ada.Sequential_IO (Records.Data_Type);
   use Data_Files;

   File : File_Type;
   Data : array (1 .. 3) of Records.Data_Type;

begin

   Data(1) := ("Jerry   ", True,  120_000.00);
   Data(2) := ("Carolien", True,   40_000.00);
   Data(3) := ("Peter   ", False,  65_000.00);

   Create (File, Out_File, Records.File_Name);
   for I in Data'Range loop
      Write (File, Data(I));
   end loop;
   Close (File);

end Write;

----- read.adb --------------------------------------------------------

with Records;
with Ada.Text_IO;
with Ada.Sequential_IO;

procedure Read is

   package Data_Files is new Ada.Sequential_IO (Records.Data_Type);
   use Data_Files;

   File : File_Type;
   Data : Records.Data_Type;

begin

   Open (File, In_File, Records.File_Name);

   while not End_Of_File (File) loop

      Read (File, Data);

      Ada.Text_IO.Put (Data.Name & ASCII.HT);
      Ada.Text_IO.Put (Boolean'Image (Data.Active) & ASCII.HT);
      Ada.Text_IO.Put (Float'Image (Data.Salary));
      Ada.Text_IO.New_Line;

   end loop;

   Close (File);

end Read;


-- 
-- Jerry van Dijk  | email: jdijk@acm.org
-- Leiden, Holland | member Team-Ada
-- Ada & Win32: http://stad.dsl.nl/~jvandyk