Dodatki > TCL > Sterowanie

Instrukcja if wyznacza wartość wyrażenia, testuje obliczoną wartość i na tej podstawie warunkowo wykonuje skrypt. Np., w poniższym przykładzie wartość zmiennej x jest ustawiana na 0, jeśli poprzednio była ujemna:

if {$x < 0 } {

set x 0

}

W tym przypadku if otrzymał dwa argumenty, pierwszy jest testowanym wyrażeniem, drugi skryptem. Instrukcja wyznacza wartość wyrażenia, i w zależności od wyniku, jeśli jest on mniejszy od zera, interpretuje skrypt. Jeśli wartość zmiennej x jest równa lub większa od zera, wtedy nie podejmowana jest żadna akcja.

Instrukcja if może również zawierać jedną lub wiele klauzul elseif z dodatkowymi warunkami testującymi i skryptami, oraz dodatkowo ostatnią klauzulę else, której skrypt jest wykonywany jeśli żaden z testów nie przebiegnie pomyślnie.

if {$x < 0} {

...

}

elseif {$x == 0} {

...

} elseif {$x == 1} {

...

} else {

...

}

Instrukcja wykona jeden czterech skryptów oznaczonych przez „...", w zależności od wartości zmiennej x. Wynikiem wykonania instrukcji stanie się wynik wybranego skryptu. Gdyby instrukcja nie posiadała klauzuli else, i żaden z warunków nie zostałby spełniony, wynikiem wykonania instrukcji stałby się pusty napis.