Programación en Ada/Unidades predefinidas/Ada.Command Line

Ada.Command_Line es un paquete predefinido para la consulta de la línea de comandos para los sistemas operativos que lo soportan, que son la mayoría. También permite establecer el código de error de terminación del programa.

Ejemplo

editar
with Ada.Text_IO;
with Ada.Command_Line; use Ada.Command_Line; 

-- Imprime los argumentos pasados por línea de comandos

procedure Imprimir_Argumentos is
 
begin
 
  Ada.Text_IO.Put_Line ("Imprimiendo argumentos pasados a " &
      Command_Name & '.');
  
  for I in 1 .. Argument_Count loop

      Ada.Text_IO.Put_Line
        ("Argumento nº" & Integer'Image (I) & ": " &
         Argument (I));

  end loop;

  Set_Exit_Status (Success);

exception
   when others =>
      Set_Exit_Status (Failure);
end Imprimir_Argumentos;

Especificación

editar

Según el manual de referencia de Ada (el estándar), la especificación de este paquete ha de ser la siguiente:

package Ada.Command_Line is
  pragma Preelaborate(Command_Line);

  function Argument_Count return Natural;

  function Argument (Number : in Positive) return String;

  function Command_Name return String;

  type Exit_Status is implementation-defined integer type;

  Success : constant Exit_Status;
  Failure : constant Exit_Status;

  procedure Set_Exit_Status (Code : in Exit_Status);

private
  ... -- not specified by the language
end Ada.Command_Line;

Manual de referencia de Ada

editar