File : dump.adb


   1 package body Dump is
   2    
   3    procedure HexDump(Stream : Stream_Element_Array) is
   4    begin
   5       for I in Stream'Range loop
   6          Put(Hex(Natural(Stream (I) / 16) + 1));
   7          Put(Hex(Natural(Stream (I) mod 16) + 1));
   8       end loop;
   9       New_Line;
  10    end HexDump;
  11    
  12    
  13    procedure HexDumpRev(Stream : Stream_Element_Array) is
  14    begin
  15       for I in reverse Stream'Range loop
  16          Put(Hex(Natural(Stream (I) / 16) + 1));
  17          Put(Hex(Natural(Stream (I) mod 16) + 1));
  18       end loop;
  19       New_Line;
  20    end HexDumpRev;
  21    
  22 end Dump;