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=2.1 required=5.0 tests=BAYES_00,INVALID_MSGID,
	MSGID_RANDY,PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,5641e390ebac2f88
X-Google-Attributes: gid103376,public
From: "Pascal Obry" <pascal.obry@der.edfgdf.fr>
Subject: Re: How does one use Ada.Streams.Stream_IO?
Date: 1997/08/01
Message-ID: <5rs828$s02$1@cf01.edf.fr>#1/1
X-Deja-AN: 261197338
References: <33DF3D90.155D@mail.connect.usq.edu.au>
X-MimeOle: Produced By Microsoft MimeOLE Engine V4.71.1008.3
Organization: EDF - Direction des Etudes et Recherches
Newsgroups: comp.lang.ada
Date: 1997-08-01T00:00:00+00:00
List-Id: <comp.lang.ada>



Here is a small example :

with Ada.Streams.Stream_IO;

procedure Streams is

   use Ada;

   Max_Datas : constant := 100_000;
   type Datas is array (1 .. Max_Datas) of Integer;

   D : Datas := (1 | 2 | 4 | 6 | 8 => 50, others => 1);

   procedure Write_Stream is
      package Data_IO renames Ada.Streams.Stream_IO;
      F : Data_IO.File_Type;
   begin
      Data_IO.Create (F, Name => "tmp_s.data", Mode => Data_IO.Out_File);
      for I in D'Range loop
         Integer'Write (Data_IO.Stream (F), D(I));
      end loop;
      Data_IO.Close (F);
   end Write_Stream;

   procedure Write_Array_Stream is
      package Data_IO renames Ada.Streams.Stream_IO;
      F : Data_IO.File_Type;
   begin
      Data_IO.Create (F, Name => "tmp_a.data", Mode => Data_IO.Out_File);
      Datas'Write (Data_IO.Stream (F), D);
      Data_IO.Close (F);
   end Write_Array_Stream;

begin
    null;
end Streams;


Hope this helps,
Pascal.
--

--|------------------------------------------------------------
--| Pascal Obry                               Team-Ada Member |
--|                                                           |
--| EDF-DER-IPN-SID- Ing�nierie des Syst�mes d'Informations   |
--|                                                           |
--| Bureau G1-010           e-mail: pascal.obry@der.edfgdf.fr |
--| 1 Av G�n�ral de Gaulle  voice : +33-1-47.65.50.91         |
--| 92141 Clamart CEDEX     fax   : +33-1-47.65.50.07         |
--| FRANCE                                                    |
--|------------------------------------------------------------
--|
--|   http://ourworld.compuserve.com/homepages/pascal_obry
--|
--|   "The best way to travel is by means of imagination"