9.93 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

Далее: EXIT, Предыдущее: EVENT_QUERY, Вверх: Встроенные процедуры [Оглавление][Индекс]