Re: Encapsulating Ada.Direct_IO

["Peter C. Chapin" <pcc482719@gmail.com>]

On 2010-11-17 20:16, Randy Brukardt wrote:

> Surely not. Not all machines have 8-bits as any sort of native type. For 
> instance, the Unisys U2200 (a 36-bit machine, with 9-bit bytes) used 
> Character'Size = 9. (It was great fun for the cross-compiler.)

So in that case if you absolutely wanted to read 8 bit units from a file
(because the file is in some externally defined binary format that uses
8 bit units) it would be necessary to do something like:

type My_Byte is mod 2**8;
for My_Byte'Size use 8;   -- This is important.

package My_Byte_IO is new Ada.Sequential_IO(My_Byte);

... and then convert from My_Byte to Character only as appropriate
during the file decoding process.

True?

Peter