Re: How to get this space away?

["Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org>]

On 06/08/2015 12:47 PM, Randy Brukardt wrote:
> 
> declare
>     A_Img : constant String := Byte'Image(IP.A);
>     B_Img : constant String := Byte'Image(IP.B);
>     C_Img : constant String := Byte'Image(IP.C);
>     D_Img : constant String := Byte'Image(IP.D);
> begin
>     Put (A_Img(2..A_Img'Last) & '.' & B_Img(2..B_Img'Last) & '.' & 
> C_Img(2..C_Img'Last) & '.' & C_Img(2..C_Img'Last);
> end;

I think you have C_Img in there twice.

> Now, if you prefer to have each part to take up three characters with 
> leading zeros except for the first (so they're all the same length) --  
> that'll take a bit more than a handful of lines in Ada. Ada's formatting is 
> primitive, except in the rarely thought of Annex F (does anyone use that?).

Presuming that "except for the first" means that IP.A should take up the minimum
number of characters, as above:

declare
   function Image is new PragmARC.Images.Modular_Image (Number => Byte);
begin
   Put (Image (IP.A)                                  & '.' &
        Image (IP.B, Width => 3, Zero_Filled => True) & '.' &
        Image (IP.C, Width => 3, Zero_Filled => True) & '.' &
        Image (IP.D, Width => 3, Zero_Filled => True) );
end;

And if you want IP.A to be 3 characters, zero filled, that's easy, too.

-- 
Jeff Carter
"This scene's supposed to be in a saloon, but
the censor cut it out. It'll play just as well
this way." [in a soda fountain]
Never Give a Sucker an Even Break
113