Ада-95. Компилятор GNAT

       

Параметры командной строки


Во время выполнения программы существует возможность получения доступа к аргументам, которые указаны в командной строке запуска программы на выполнение.

Такая возможность обеспечивается средствами стандартного пакета Ada.Command_Line, спецификация которого имеет следующий вид:

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 Определяемый_Реализацией_Целочисленный_Тип;

Success : constant Exit_Status; Failure : constant Exit_Status;

procedure Set_Exit_Status (Code : in Exit_Status);

private

-- Стандартом языка не определено end Ada.Command_Line;



В качестве простой демонстрации использования средств этого предопределенного стандартом пакета, рассмотрим следующий пример:

with Ada.Text_IO; with Ada.Command_Line;

procedure Show_CMDLine is

begin

Ada.Text_IO.Put_Line ("The program " & '"' & Ada.Command_Line.Command_Name & '"' & " has " & Ada.Command_Line.Argument_Count'Img & " argument(s):");

for I in 1..Ada.Command_Line.Argument_Count loop

Ada.Text_IO.Put_Line (" The argument " & I'Img & " is " & '"' & Ada.Command_Line.Argument (I) & '"');

end loop;

end Show_CMDLine;

Данная программа отображает фактическое имя запущенной программы, количество переданных в командной строке аргументов, а затем показывает строковые значения переданных аргументов.

Процедура Set_Exit_Status, пакета Ada.Command_Line, может быть использована для возврата во внешню среду кода статуса завершения работы программы (иначе - кода ошибки).



Содержание раздела