Re: Hex ouput

[Jeffrey Carter <spam@spam.com>]

Jerry Petrey wrote:

> Also if you want to output hex numbers without the 16#xxxx# format, here is a
> short routine to do that:

[code deleted]

Hi, Jerry. Every Mon I still see the same bunch of vapor jobs with 
Raytheon on the net.

Your version is too limited for my tastes. Why limit yourself to base 
16, and to blank-padded images? I've recently developed and am using 
this (lines may wrap):

with Ada.Text_IO;
package Images is
    subtype Field       is Ada.Text_IO.Field;
    subtype Number_Base is Ada.Text_IO.Number_Base;

    generic -- Signed_Image
       type Number is range <>;
    function Signed_Image (Value : Number; Width : Field := 0; 
Zero_Filled : Boolean := False; Base : Number_Base := 10)
    return String;
    -- Returns an image of Value, at least Width characters wide, in 
base Base, padded with blanks or zeroes,
    -- according to Zero_Filled

    generic -- Modular_Image
       type Number is mod <>;
    function Modular_Image (Value : Number; Width : Field := 0; 
Zero_Filled : Boolean := False; Base : Number_Base := 10)
    return String;
    -- Returns an image of Value, at least Width characters wide, in 
base Base, padded with blanks or zeroes,
    -- according to Zero_Filled
end Images;

(Body available on request.) Perhaps I should add to the comments some 
indication that the images do not include the B#...# for bases other 
than 10. When I feel confident with it, it will probably be added to the 
PragmAda Reusable Components.

-- 
Jeff Carter
"C++ is like jamming a helicopter inside a Miata
and expecting some sort of improvement."
Drew Olbrich
51