PACKAGE BODY Str_Manip IS

PROCEDURE Shift_Str(Str : IN OUT String; StrLen : IN OUT Natural; Pos : IN Natural; Char : IN Character) IS
BEGIN

FOR i IN Pos..(StrLen-1) LOOP
Str(i) := Str(i + 1);
END LOOP;

StrLen := StrLen - 1;
IF Str(Pos) = Char AND Pos < StrLen THEN
Shift_Str(Str => Str, StrLen => StrLen, Pos => Pos, Char => Char);
END IF;

END Shift_Str;

PROCEDURE Remove_Char(Str : IN OUT String; StrLen : IN OUT Natural; Char : IN Character) IS
BEGIN

FOR i IN 1..StrLen LOOP

IF i > StrLen THEN
EXIT;
END IF;

IF Str(i) = Char THEN
Shift_Str(Str => Str, StrLen => StrLen, Pos => i, Char => Char);
END IF;
END LOOP;

IF Str(StrLen) = Char THEN
StrLen := StrLen - 1;
END IF;

END Remove_Char;

END Str_Manip;