Curso de Ada - Paquete 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

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

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

• A.15 The Package Command_Line∞