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;