Re: Hex ouput

[Jerry Petrey <"jdpetrey<NOSPAM>"@raytheon.com>]

Xenos wrote:

>
>
> Thanks, Ed.  I didn't think to just the RM as I have yet to get a hardcopy
> one for '95. Do you know where I can purchase one?  I hate trying to read
> PDF (et. al.) files on my computer.  I much prefer books.
>
> DrX.

You can find the Ada LRM at Amazon, among other places:
http://www.amazon.com/exec/obidos/tg/detail/-/3540430385/qid=1066923022/sr=1-1/ref=sr_1_1/102-5165323-3419326?v=glance&s=books

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


    procedure Hex_Print (Num                  : in Integer;
                                      Num_Of_Digits : in Positive) is

        Temp_Str    : String (1 .. Num_Of_Digits + 5) := (others => '0');
        New_Str     : String (1 .. Num_Of_Digits)     := (others => '0');
        First_Digit : Positive;

    begin

        Put (To => Temp_Str, Item => Num, Base => 16);

        for I in 1 .. Num_Of_Digits + 4 loop
            if Temp_Str (I) = '#' then
                First_Digit := I + 1;
                exit;
            end if;
        end loop;

        New_Str (First_Digit - 4 .. Num_Of_Digits) :=
           Temp_Str (First_Digit .. Num_Of_Digits + 4);
        Put (New_Str);

    end Hex_Print;

It could be improved some but should help you get the idea.

Jerry
--
---------------------------------------------------------------------------------

-- Jerry Petrey
-- Senior Principal Systems Engineer - Navigation (GPS/INS), Guidance, &
Control
-- Raytheon Missile Systems          - Member Team Ada & Team Forth
-- NOTE: please remove <NOSPAM> in email address to reply
---------------------------------------------------------------------------------