Re: Base64-Encoding

[Jacob Sparre Andersen <sparre@nbi.dk>]

Stefan Bellon wrote:
> On Mon, 15 Oct, Jacob Sparre Andersen wrote:

>>    Padded_Data : String (1 .. Padded_Length) := Data & (others =>
>> ASCII.NUL);
>> 
>> would work fine.
>
> This results in:
>
>    error: "others" choice not allowed here

I can't figure out why, but here's something which does work:

      Padded_Data : String (1 .. Padded_Length) := 
                      Data & (Data'Length + 1 .. Padded_Length => ASCII.NUL);

> I hoped for this as well, but it looks like the attribute Bit_Order is
> only defined for record types. This is what 13.5.3 says and indeed GNAT
> refuses to accept a 'Bit_Order on Six_Bits or the array thereof.

Doesn't that simply mean that you have to make "Base64_Data" an array
of Base64_Block, where Base64_Block is declared like this:

   type Base64_Block is
      record
         A, B, C, D : Six_Bits;
      end record;

This way you will be allowed bit ordering on the Base64_Block, which
hopefully will solve your problem.

Greetings,

Jacob
-- 
Adlai Stevenson said it all when, at an event during the
1956 Presidential campaign, a woman shouted, "You have the
vote of every thinking person!" Stevenson shouted back,
"That's not enough, madam, we need a majority!"