with Ada.Command_Line;
with Ada.Text_IO; use Ada.Text_IO;
with Get_Password;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
procedure Main is
Pin : String (1 .. 6);
Last : Natural;
Zorro : Unbounded_String;
begin
Get_Password.Get (Buffer => Pin,
Last => Last,
Marker => "<>");
Put_Line ("<" & Pin (Pin'First .. Last) & ">");
Get_Password.Get (Buffer => Pin,
Last => Last,
Marker => "*",
End_On => Get_Password.Buffer_Full);
Put_Line ("<" & Pin (Pin'First .. Last) & ">");
Get_Password.Get (Buffer => Pin,
Last => Last,
Marker => "???",
End_On => Get_Password.End_Of_Line);
Put_Line ("<" & Pin (Pin'First .. Last) & ">");
Get_Password.Get (Buffer => Zorro,
Marker => "%");
Put_Line ("<" & To_String (Zorro) & ">");
Ada.Command_Line.Set_Exit_Status (Ada.Command_Line.Success);
exception
when Get_Password.Not_A_Tty_Error =>
Put_Line (Standard_Error, "Error : Input is not a terminal");
Ada.Command_Line.Set_Exit_Status (Ada.Command_Line.Failure);
end Main;