Re: how to "put" a binary structure? (newbie question!)

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On Wed, 1 Feb 2006 18:04:43 +0100, Norbert Caspari wrote:

> I like to print the content of a binary bit structure with the put 
> statement but it doesn't work. I'm a newbie to Ada programming and 
> therefore please excuse if my question might be silly or stupid. Maybe I 
> misunderstood something.

Structure is not an integer type. You have to choose between three options:

1. Record type (structure)

2. Array of bits, like array (Integer range 1..8) of Boolean or of Bit_T

3. Modular integer type (unsigned with bit-wise operations) mod 2**8,
Unsigned_8

> How can I correct the source code to print the values stored in the 
> structure Xxx? Is it possible, to print the whole content of Xxx with just 
> one put statement? Or alternatively how can I assign the content of Xxx to 
> another variable of the type Unsigned_8 that I can use for output? Or is 
> there maybe another way?

type Look_Up_Table is array (Unsigned_8) of Byte;
Translation_Table : constant Look_Up_Table :=
   (  (Off, Off, Off, Off, Off, Off, Off, Off),
      (Off, Off, Off, Off, Off, Off, Off, On),
      (Off, Off, Off, Off, Off, Off, On, Off),
      (Off, Off, Off, Off, Off, Off, On, On),
      ...
      (On, On, On, On, On, On, On, On)
   );
function To_Byte (X : Unsigned_8) return Byte is
begin
   return Translation_Table (X);
end To_Byte;

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de