D3 Reference Manual

Index | Help

Поиск по страницам

Разделы / Общие сведения / var

var

Драйвер доступа к переменным окружения TCL через файловый интерфейс

Драйвер var (проще использовать через файл "var" счета "dm") предоставляет доступ к переменным окружения TCL через файловый интерфейс.

При чтении имя переменной используется как идентификатор записи, при этом возвращается содержимое переменной окружения.

При чтении используется команда TCL, заключенная в обратные кавычки, она выполняется и возвращает результат, как если бы эти результаты были сохранены в записи.

При сохранении в качестве идентификатора записи используется имя переменной аналогично выполнению команды TCL "set" для данной переменной.

При удалении в качестве идентификатора записи используется имя переменной, аналогично выполнению команды TCL "unset" для данной переменной.

Цикл select/readnext подобен команде TCL "penv", за исключением того, что возвращаются только имена переменных. Обратите внимание, что по select возвращаются только определенные пользователем переменные. Предустановленные и системные переменные могут быть возвращены только прямым чтением.

Примеры:

open "var"
*
* Чтение переменной окружения
*
print @user
*
read xx from "user"
print xx
*
*
* Сохранение переменной окружения
* 
execute "set myvar=abc"
*
write "abc" on "myvar"
*
* Удаление переменной окружения
*
execute "unset myvar"
*
delete "myvar"
*
* Вывод списка пользовательских переменных
*
execute "penv"
*
select
loop
  readnext id then print id else exit
repeat
*
*  Выполнение команды tcl
*
execute "display @`who`"
*
read xx from "`who`"
print xx