эквивалент ifdef в TCL

Question

В TCL существует элегантная реализация, которая будет имитировать `ifdef, часто используемую в языках программирования. Из самого языка сценариев TCL я не смог найти способ, который поддерживается TLS-интерпретатором.

Answer 1

В Tcl нет ничего, что эквивалентно «ifdef», за исключением стандартного оператора «if». Если вам не нравится стандартный оператор «if», tcl дает вам все основные строительные блоки для создания вашей собственной команды «ifdef».

Например, ifdef действительно не более чем оператор if, ищущий определенное значение. Действительно простая реализация может выглядеть примерно так:

proc define {name value} { 
    set ::defined($name) $value 
} 

proc ifdef {name script1 else script2} { 
    if {[info exists ::defined($name)]} { 
     uplevel $script1 
    } else { 
     uplevel $script2 
    } 
} 

Вы могли бы использовать его как это:

define FOO 1 
... 
ifdef FOO { 
    <do this if FOO is defined> 
} else { 
    <do this if FOO is NOT defined> 
} 

Answer 2

Если вы пытаетесь проверить переменную Evironment, вы можете сделать что-то вроде:

if {[info exists ::env(PROJ_FOO)]} { 
    set_lib x 
} else { 
    set_lib y 
} 

Если у вас есть некоторые команды Tcl называется set_lib.

Answer 3

Посмотрите на [Информация существует VarName] и подобные. Например:

если {[Информация существует MYVAR]!} {Путы «MYVAR не определены так определить его здесь»}

Побольше типизации, но очевидно, что происходит и может быть использовано для чего информации может проверить.