- ---------------
- -- Str_Equal --
- ---------------
-
- function Str_Equal (A, B : String) return Boolean is
- begin
- if A'Length /= B'Length then
- return False;
-
- else
- for J in A'Range loop
- if A (J) /= B (J + (B'First - A'First)) then
- return False;
- end if;
- end loop;
-
- return True;
- end if;
- end Str_Equal;
-
- -------------------
- -- Str_Normalize --
- -------------------
-
- procedure Str_Normalize (A : in out String) is
- begin
- for J in A'Range loop
- A (J) := Character'Last;
- end loop;
- end Str_Normalize;
-
- ------------------------
- -- Wide_Str_Normalize --
- ------------------------
-
- procedure Wide_Str_Normalize (A : in out Wide_String) is
- begin
- for J in A'Range loop
- A (J) := Wide_Character'Last;
- end loop;
- end Wide_Str_Normalize;
-