8.78 EXECUTE_COMMAND_LINE — Выполнение командной строки

Описание:

EXECUTE_COMMAND_LINE выполняет команду оболочки синхронно или асинхронно.

Аргумент COMMAND передаётся оболочке и выполняется с использованием вызова system библиотеки C. (Оболочка является sh в системах Unix и cmd.exe в Windows.) Если WAIT присутствует и имеет значение false, выполнение команды является асинхронным, если система его поддерживает; в противном случае команда выполняется синхронно.

Три последних аргумента позволяют пользователю получить информацию о статусе. После синхронного выполнения EXITSTAT содержит целое числоный код завершения команды, возвращаемый system. CMDSTAT устанавливается в ноль, если командная строка была выполнена (независимо от её кода возврата). CMDMSG получает сообщение об ошибке, если произошла ошибка.

Обратите внимание, что функция system не обязательно потокобезопасна. Пользователь отвечает за обеспечение того, чтобы функция system не вызывалась параллельно.

Стандарт:

Fortran 2008 и более поздние версии

Класс:

Подпрограмма

Синтаксис:

CALL EXECUTE_COMMAND_LINE(COMMAND [, WAIT, EXITSTAT, CMDSTAT, CMDMSG ])

Аргументы:

COMMAND	Должен быть скалярным значением типа CHARACTER по умолчанию.
WAIT	(Необязательно) Должен быть скалярным значением типа LOGICAL по умолчанию.
EXITSTAT	(Необязательно) Должен быть целого типа INTEGER стандартного вида.
CMDSTAT	(Необязательно) Должен быть целого типа INTEGER стандартного вида.
CMDMSG	(Необязательно) Должен быть скалярным значением типа CHARACTER стандартного вида.

Пример:

program test_exec
  integer :: i

  call execute_command_line ("external_prog.exe", exitstat=i)
  print *, "Exit status of external_prog.exe was ", i

  call execute_command_line ("reindex_files.exe", wait=.false.)
  print *, "Now reindexing files in the background"

end program test_exec

Примечание:

Поскольку этот встроенный модуль реализован в терминах вызова функции system, его поведение относительно сигналов зависит от процессора. В частности, в системах, совместимых с POSIX, сигналы SIGINT и SIGQUIT будут игнорироваться, а SIGCHLD будет заблокирован. Таким образом, если родительский процесс завершается, дочерний процесс может не завершиться вместе с ним.

См. также:

SYSTEM