File size: 2,306 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 62 63 64 65 66 67 68 69 70 71 | package body String_Utils is
function Length_Of (S : Bounded_String) return Natural is
Last : Natural := 0;
begin
for I in S'Range loop
if S (I) /= ' ' then Last := I + 1; end if;
end loop;
return Last;
end Length_Of;
function Is_Empty (S : Bounded_String) return Boolean is
begin
for I in S'Range loop
if S (I) /= ' ' then return False; end if;
end loop;
return True;
end Is_Empty;
procedure Clear (S : in out Bounded_String) is
begin
S := (others => ' ');
end Clear;
procedure Copy_To (Src : String; Dst : in out Bounded_String) is
Len : Natural := Natural'Min (Src'Length, Dst'Length);
begin
Dst := (others => ' ');
for I in 0 .. Len - 1 loop
Dst (I) := Src (Src'First + I);
end loop;
end Copy_To;
function Starts_With (S : Bounded_String; Prefix : String) return Boolean is
begin
if Prefix'Length > S'Length then return False; end if;
for I in 0 .. Prefix'Length - 1 loop
if S (I) /= Prefix (Prefix'First + I) then return False; end if;
end loop;
return True;
end Starts_With;
function Equals (A, B : Bounded_String) return Boolean is
begin
for I in A'Range loop
if A (I) /= B (I) then return False; end if;
end loop;
return True;
end Equals;
function To_Upper_Bounded (S : Bounded_String) return Bounded_String is
Result : Bounded_String := S;
begin
for I in Result'Range loop
if Result (I) >= 'a' and Result (I) <= 'z' then
Result (I) := Character'Val (Character'Pos (Result (I)) - 32);
end if;
end loop;
return Result;
end To_Upper_Bounded;
function Contains_Char (S : Bounded_String; C : Character) return Boolean is
begin
for I in S'Range loop
if S (I) = C then return True; end if;
end loop;
return False;
end Contains_Char;
procedure Append_Char (S : in out Bounded_String; C : Character; Ok : out Boolean) is
begin
for I in S'Range loop
if S (I) = ' ' then
S (I) := C; Ok := True; return;
end if;
end loop;
Ok := False;
end Append_Char;
end String_Utils;
|