File size: 2,694 Bytes
52edc5a | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | with Math_Utils;
package body Buffer_Stats is
function Occupancy_Percent (Buf : Memory_Structures.Buffer) return Natural is
Len : constant Natural := Natural (Memory_Structures.Buffer_Length (Buf));
Cap : constant Natural := Natural (Memory_Structures.Buffer_Capacity (Buf));
begin
if Cap = 0 then return 0; end if;
return (Len * 100) / Cap;
end Occupancy_Percent;
function Remaining_Capacity (Buf : Memory_Structures.Buffer) return Length_Type is
begin
return Memory_Structures.Buffer_Capacity (Buf) - Memory_Structures.Buffer_Length (Buf);
end Remaining_Capacity;
function Is_Nearly_Full (Buf : Memory_Structures.Buffer; Threshold : Natural) return Boolean is
begin
return Occupancy_Percent (Buf) >= Threshold;
end Is_Nearly_Full;
function Average_Byte (Buf : Memory_Structures.Buffer) return Byte is
Len : constant Length_Type := Memory_Structures.Buffer_Length (Buf);
Sum : Word32 := 0; Dummy : Byte; St : Status_Code;
begin
if Len = 0 then return 0; end if;
for I in 0 .. Len - 1 loop
St := Memory_Structures.Get_Byte (Buf, I, Dummy);
if St = Success then Sum := Sum + Word32 (Dummy); end if;
end loop;
return Byte (Sum / Word32 (Len));
end Average_Byte;
function Max_Byte (Buf : Memory_Structures.Buffer) return Byte is
Len : constant Length_Type := Memory_Structures.Buffer_Length (Buf);
Max_V : Byte := 0; Dummy : Byte; St : Status_Code;
begin
for I in 0 .. Len - 1 loop
St := Memory_Structures.Get_Byte (Buf, I, Dummy);
if St = Success and then Dummy > Max_V then Max_V := Dummy; end if;
end loop;
return Max_V;
end Max_Byte;
function Min_Byte (Buf : Memory_Structures.Buffer) return Byte is
Len : constant Length_Type := Memory_Structures.Buffer_Length (Buf);
Min_V : Byte := 255; Dummy : Byte; St : Status_Code;
begin
if Len = 0 then return 0; end if;
for I in 0 .. Len - 1 loop
St := Memory_Structures.Get_Byte (Buf, I, Dummy);
if St = Success and then Dummy < Min_V then Min_V := Dummy; end if;
end loop;
return Min_V;
end Min_Byte;
function Sum_Bytes (Buf : Memory_Structures.Buffer) return Word32 is
Len : constant Length_Type := Memory_Structures.Buffer_Length (Buf);
Sum : Word32 := 0; Dummy : Byte; St : Status_Code;
begin
for I in 0 .. Len - 1 loop
St := Memory_Structures.Get_Byte (Buf, I, Dummy);
if St = Success then Sum := Sum + Word32 (Dummy); end if;
end loop;
return Sum;
end Sum_Bytes;
end Buffer_Stats;
|