with Ada.Strings; use Ada.Strings;
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Ada.Strings.Unbounded.Text_IO; use Ada.Strings.Unbounded.Text_IO;
with Ada.Command_line; use Ada.Command_Line;
with Ada.Characters.Handling; use Ada.Characters.Handling;
function Create_Record return Boolean is
type Allowed_Params is array(1..4) of String(1..2);
AP_Array : Allowed_Params := ("-H","-F","-L","-O");
Found : Boolean := FALSE;
begin
for i in 1..Argument_Count loop
for j in AP_Array'Range loop
if To_Upper(Argument(i)) = AP_Array(j) then
Found := TRUE;
end if;
end loop;
if Found then
Put_Line(Argument(i) & " is allowed.");
Found := FALSE;
else
Put_Line(Argument(i) & " is not allowed");
end if;
end loop;
-- just for testing
return TRUE;
end Create_Record;