8.126 GET_ENVIRONMENT_VARIABLE — Получение переменной среды

Описание:

Получение значения VALUE переменной среды NAME.

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

Стандарт:

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

Класс:

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

Синтаксис:

CALL GET_ENVIRONMENT_VARIABLE(NAME[, VALUE, LENGTH, STATUS, TRIM_NAME)

Аргументы:

NAME	Должен быть скаляром типа CHARACTER и стандартного размера.
VALUE	(Необязательно) Должен быть скаляром типа CHARACTER и стандартного размера.
LENGTH	(Необязательно) Должен быть скаляром типа INTEGER и стандартного размера.
STATUS	(Необязательно) Должен быть скаляром типа INTEGER и стандартного размера.
TRIM_NAME	(Необязательно) Должен быть скаляром типа LOGICAL и стандартного размера.

Возвращаемое значение:

Сохраняет значение NAME в VALUE. Если VALUE недостаточно велик для хранения данных, он усекается. Если NAME не задан, VALUE заполнится пробелами. Аргумент LENGTH содержит длину, необходимую для хранения переменной среды NAME, или ноль, если она не существует. STATUS равен -1, если VALUE существует, но слишком короткий для переменной среды; он равен 1, если переменная среды не существует, и 2, если процессор не поддерживает переменные среды; во всех остальных случаях STATUS равен нулю. Если TRIM_NAME присутствует со значением .FALSE., конечные пробелы в NAME значимы; в противном случае они не являются частью имени переменной среды.

Пример:

PROGRAM test_getenv
  CHARACTER(len=255) :: homedir
  CALL get_environment_variable("HOME", homedir)
  WRITE (*,*) TRIM(homedir)
END PROGRAM

Далее: GETGID, Предыдущее: GETENV, Наверх: Встроенные процедуры [Содержание][Индекс]