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

Описание:

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

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

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

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

Для асинхронного выполнения на поддерживаемых целевых системах используются функции POSIX posix_spawn или fork. Также устанавливается обработчик сигналов для сигнала SIGCHLD.

Стандарт:

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 — Выполнение командной строки

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-14.2.0/gfortran/EXECUTE_005fCOMMAND_005fLINE.html