ACL. Command Line - JulTob/Ada GitHub Wiki
Command Line refers to the call of the executable from the command line. You can use
with Ada.Text_IO;
with Ada.Strings.Unbounded;
with Ada.Command_Line;
procedure Linea_Comandos is
package ACL renames Ada.Command_Line;
package ASU renames Ada.Strings.Unbounded;
use type ASU.Unbounded_String;
Input_Exception: exception;
begin
if ACL.Argument_Count /= 2 then
raise Input_Exception;
end if;
Ada.Text_Io.Put_Line(ACL.Argument(2));
exception
when Input_Exception =>
Ada.Text_Io.Put_Line("Wrong number of inputs");
end Linea_Comandos;