Re: Hexadecimal and stream element arrays

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On Mon, 19 Apr 2010 08:58:16 -0700 (PDT), tonyg wrote:

> On Apr 19, 4:44�pm, tonyg <tonytheg...@googlemail.com> wrote:
>> I have some data coming in from a serial port which I want to convert
>> to hexadecimal and display on the screen. I was wondering if anyone
>> knows of a simple way to do this?
> 
> To make myself more clear I have already dealt with the serial comms
> bit, I am looking to display the stream I have already captured

The following is based on:

   http://www.dmitry-kazakov.de/ada/strings_edit.htm

with Ada.Streams;            use Ada.Streams;
with Strings_Edit;           use Strings_Edit;
with Strings_Edit.Integers;  use Strings_Edit.Integers;

function Image (Data : Stream_Element_Array) return String is
begin
   if Data'Length = 0 then
      return "";
   end if;
   declare
      Text    : String (1..Data'Length * 3);
      Pointer : Integer := 1;
   begin
      for I in Data'Range loop
         Put
         (  Text, Pointer, Stream_Element'Pos (Data (I)),
            Field=>2, Fill=>'0', Justify=>Right, Base=>16
         );
         Put (Text, Pointer, ' ');
      end loop;
      return Text (1..Text'Last - 1);
   end;
end Image;

An individual item is output

   Put
   (  Text, Pointer, Stream_Element'Pos (Item),
       Field=>2, Fill=>'0', Justify=>Right, Base=>16
   );

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de