Re: Read booleans from streams

[Erik Sigra <sigra@home.se>]

m�ndagen den 25 mars 2002 04.57 skrev du:
> I think the problem is in the read procedure.  It sees an array of 8
> elements, so wants to read 8 bytes.  I think you need a 'Read wrapper to
> read a single byte (type Byte is mod 2**8), and then do an
> Unchecked_Conversion:
>
>    function To_Boolean_Aggregate is new
> 	Ada.Unchecked_Conversion(Byte,Boolean_Aggregate);
>
>    procedure Read_Boolean_Aggregate
>         (Stream : Stream_Access; Data : in out Boolean_Aggregate) is
>
>         Item : Byte;
>    begin
>         Byte'Read (Stream, Item);
>         Data := To_Boolean_Aggregate (Item);
>    end Read_Boolean_Aggregate;
>
> ...
>
>    while not End_Of_File (File_Type) loop
>         Read_Boolean_Aggregate (Stream, Data);
>
>         ...
>    end loop;

Thanks, it works!

The only problem is that it seems impossible to state
"for Boolean_Aggregate'Read use Boolean_Aggregate_Read;".