Tcl/Tk: Criar vários nomes para um comando (alias)

Além de renomear comandos em Tcl/Tk, também é possível criar “apelidos” para os comandos com o [interp alias]. Por exemplo, o comando [file exists] verifica se um determinado arquivo existe:

% if { [file exists "/caminho/do/arquivo.txt"] == 1 } {
       puts "O arquivo existe"
}

Se você achar que “file exists” é muito longo e/ou tiver saudade do Bash, pode criar o apelido “-e”:

% interp alias {} -e {} file exists

% if { [-e "/caminho/do/arquivo.txt"] == 1 } {
       puts "O arquivo existe."
}

Todos os outros comandos -[letra] do Bash podem ser recriados e carregados no início do programa:

interp alias {} -e {} file exists
interp alias {} -f {} file isfile
interp alias {} -d {} file isdirectory
interp alias {} -r {} file readable
interp alias {} -w {} file writable
interp alias {} -x {} file executable
interp alias {} -o {} file owned

Apelido “@” para o foreach, se você sentir saudade de Perl:

% interp alias {} @ {} foreach

% @ x "1 2 3" { puts $x }
1
2
3

Para quem gosta muito de PHP:

% interp alias {} strtolower {} string tolower

% puts [strtolower "GRITARIA"]
gritaria