ADA

Ejemplo

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

 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
  ...
end Ada.Command_Line;