Re: How to get this space away?

["Randy Brukardt" <randy@rrsoftware.com>]

"Brad Moore" <brad.moore@shaw.ca> wrote in message 
news:BYfdx.40257$ic6.28837@fx17.iad...
> On 2015-06-03 05:00 PM, Randy Brukardt wrote:
...
>> Right, and the effort (in the Standard and especially for implementers)
>> probably outweights the value.
>
> Try formatting 4 unsigned byte values as an quad dot IP address string, 
> for example.
> Something that can be easily expressed in another language such as C in 
> one line of code is very awkward and ugly to write in Ada.

It's not *that* awkward. Since 'Image has to return a string that 'First = 
1, the following works fine (7 lines, well-formatted, could be less - 
assuming the parts are declared as bytes appropriately as they are in 
Claw.Sockets):

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;

And of course such a thing should be a subprogram (in any language) because 
you're going to use it enough (at least for debugging) that repeating it is 
silly.

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?).

                                        Randy.