Пакет Ada.Command_Line реализует следующие функции для работы со значениями аргументов командной строки:
- возврат количества аргументов командной строки в виде N >= 0
- возврат значения любого аргумента в виде строки
- возврат имени файла программы в виде строки
Функция Argument_Count
Возвращает количество переданных в программу аргументов если они доступны, иначе возвращает 0. Сравнительно с языком C эта функция возвращает argc - 1.
Параметры вызова функции: нет.
Тип возвращаемых данных: Natural.
Функция Argument
Возвращает значение аргумента переданного в программу по его порядковому номеру. В отличие от реализации argv в языке C где возможно получить имя файла программы, используя индекс 0, данная функция нумеруется с 1 до Argument_Count и возвращает исключительно значения аргументов так, что argv[N] = Argument(N). При указании недопустимого индекса функция вызывает исключение Constraint_Error.
Параметры вызова функции: N : Positive.
Тип возвращаемых данных: String.
Функция Command_Name
Возвращает имя файла программы если это допускает ОС, аналогично конструкции argv[0] в языке C.
Параметры вызова функции: нет.
Тип возвращаемых данных: String.
Процедура Set_Exit_Status
Устанавливает статус завершения программы.
Параметры вызова процедуры: Code : Exit_Status.
Тип Exit_Status
Тип реализующий Integer константы: Success (с фактическим значением 0), Failure (с фактическим значением 1) для возврата статуса завершения программы.
Использование аргументов командной строки в библиотеках Ada в составе программ на других языках
Если основная программа реализована не на языке Ada, то необходимо инициировать значения для аргументов используемых из библиотеки на языке Ada вручную. Для примера в языке C такая инициализация выглядит так:
main(int argc, char **argv, char **envp) {
extern int gnat_argc;
extern char **gnat_argv;
extern char **gnat_envp;
gnat_argc = argc;
gnat_argv = argv;
gnat_envp = envp;
adainit();
adamain();
adafinal();
}
