Tcl para niños

Datos para niños Tcl Tool Command Language
Desarrollador(es)
Tcl Core Team https://tcl.tk
Información general
Extensiones comunes	.tcl, .tbc
Paradigma	Multiparadigma: POO , funcional, procedural, Programación dirigida por eventos
Apareció en	1988
Diseñado por	John Ousterhout
Última versión estable	9.0.2 (2 de julio de 2025 (4 días))
Sistema de tipos	Dinámico, cualquier cosa puede tratarse como una cadena
Implementaciones	ActiveTcl
Influido por	C, Lisp, Shell, Awk, SCL
Ha influido a	Python, PowerShell
Sistema operativo	Multiplataforma
Licencia	BSD

Tcl (se pronuncia "tí-quel") es un lenguaje de programación especial, conocido como lenguaje de script. Fue creado por John Ousterhout en 1988. Su diseño es muy sencillo, lo que lo hace fácil de aprender y usar, sin perder su capacidad para crear programas complejos.

Tcl se usa mucho para crear programas rápidamente, hacer pruebas y diseñar interfaces gráficas (las pantallas con botones y menús que ves en las aplicaciones). Cuando Tcl se combina con Tk (que significa "Tool Kit" o "Caja de Herramientas"), se le llama Tcl/Tk. Esta combinación es perfecta para construir esas interfaces gráficas.

¿Qué hace especial a Tcl?

Tcl es un lenguaje interpretado, lo que significa que su código se ejecuta directamente sin necesidad de un paso extra de "compilación". Esto permite que los programas se puedan cambiar y probar fácilmente mientras se están creando.

Características principales de Tcl

• Sencillez: Sus reglas son muy simples, lo que facilita escribir y entender el código. Los programas hechos con Tcl suelen ser más cortos y claros que los hechos con otros lenguajes.
• Multiplataforma: Funciona en muchos sistemas operativos, como Windows, Linux, Unix, MacOS y OSX. Incluso puede usarse en pequeños microprocesadores.
• Todo es un comando: En Tcl, cada parte de un programa, incluso las estructuras básicas como los "si" o los "mientras", se tratan como comandos. Esto le da mucha flexibilidad.
• Manejo de texto: Tcl trabaja con todos los datos como si fueran cadenas de texto (secuencias de letras y números). Desde 1999, soporta Unicode, lo que permite usar caracteres de muchos idiomas.
• Extensible: Puedes añadirle nuevas funciones a Tcl usando otros lenguajes como C, C++ o Java. Esto es muy útil si necesitas algo que Tcl no tiene por sí mismo.
• Programación orientada a eventos: Tcl puede responder a eventos, como cuando haces clic en un botón o cuando un archivo está listo.

¿Cómo nació Tcl?

Ejemplo de un menú hecho con Tcl/Tk.

Al principio, los creadores de Tcl estaban haciendo muchas herramientas interactivas. Cada herramienta necesitaba su propio lenguaje para recibir órdenes. Pero se dieron cuenta de que estaban dedicando mucho tiempo a crear estos lenguajes de órdenes, en lugar de concentrarse en las herramientas en sí.

Así que decidieron crear un lenguaje de órdenes que fuera útil para muchas aplicaciones diferentes y que se pudiera integrar fácilmente. De esta idea nació Tcl, que significa "Lenguaje de Herramientas de Comando".

Desde entonces, Tcl se ha usado mucho como lenguaje de script. A menudo se usa junto con la biblioteca Tk, que es un conjunto de herramientas para crear interfaces de usuario gráficas de forma sencilla. Como Tcl es fácil de extender, la comunidad ha creado muchas extensiones gratuitas para tareas específicas.

¿Cómo se escribe el código en Tcl?

Un programa en Tcl se compone de varios comandos. Cada comando es una lista de palabras separadas por espacios y termina con un salto de línea o un punto y coma.

El primer elemento es el nombre del comando, y los siguientes son sus argumentos. Por ejemplo:

nombreComando argumento1 argumento2 ... argumentoN

Un ejemplo sencillo es el comando `puts`, que muestra texto en la pantalla:

puts "¡Hola, mundo!"

Puedes usar variables y resultados de otros comandos dentro del texto. Aquí, `set` guarda un valor en una variable y `expr` calcula una operación matemática:

set suma [expr {1+2+3+4+5}] ;# Guarda el resultado de la suma en la variable 'suma'
puts "La suma de los números 1..5 es $suma." ;# Muestra el resultado

El punto y coma `;` permite poner varios comandos en una misma línea. El símbolo `#` se usa para añadir comentarios, que son notas para los programadores y no afectan al programa:

# Esto es un comentario en una línea
puts "¡Hola Mundo!" ; puts "otra línea de texto"
set i 0 ; # Este es un comentario al final de una línea de código

Cómo agrupar elementos

En Tcl, hay varias formas de agrupar cosas:

• Con `""` (comillas dobles): Sirven para texto donde quieres que se muestre el valor de las variables. Por ejemplo, si `numero` es 545, `"El valor es $numero"` mostrará "El valor es 545".
• Con `{}` (llaves): También sirven para texto, pero no muestran el valor de las variables. Si `numero` es 545, `{El valor es $numero}` mostrará "El valor es $numero". Las llaves también se usan en las estructuras de control.
• Con `()` (paréntesis): Se usan para agrupar operaciones en cálculos matemáticos o para indicar posiciones en listas especiales llamadas "tablas asociativas".
• Con `[]` (corchetes): Se usan para ejecutar un comando y usar su resultado. Por ejemplo, `[expr {1 + 2}]` ejecuta la suma y usa el resultado (3).

Tipos de datos en Tcl

Las variables en Tcl no tienen un tipo fijo (como número o texto). Tcl es muy flexible y puede tratar los datos de diferentes maneras según lo necesites. Sin embargo, podemos pensar en seis tipos principales:

• Booleanos: Representan verdadero o falso (0/no/off para falso, 1/yes/on para verdadero).
• Números: Como 1, 0, 3.14. Se tratan como texto, pero Tcl los convierte a números cuando haces operaciones matemáticas.
• Cadenas de caracteres: Cualquier texto, como "Hola" o "32".
• Listas: Son colecciones de elementos, que pueden ser otros tipos de datos o incluso otras listas.
• Diccionarios: Son colecciones de pares "clave-valor", como un diccionario donde cada palabra (clave) tiene una definición (valor). Se usan desde Tcl 8.5.
• Tablas asociativas: Son como diccionarios, pero más flexibles. Pueden contener cualquier tipo de dato.

Los primeros cinco tipos se llaman "escalares" y se pueden pasar fácilmente entre funciones. Tcl convierte los tipos automáticamente cuando es necesario. Por ejemplo, una cadena de texto puede ser tratada como una lista:

% set frutas "pomelo naranja banana"
pomelo naranja banana
% puts [lindex $frutas end] ;# Muestra el último elemento de la lista
banana
% puts [lindex $frutas 1] ;# Muestra el elemento en la posición 1 (el segundo, porque se empieza a contar desde 0)
naranja

Estructuras de control

En Tcl, las palabras para las estructuras de control (como `if` para "si" o `for` para "para") no son palabras especiales. Son comandos normales que siguen las mismas reglas que cualquier otro comando.

  while { unaExpresionLogica }   { ;# Mientras una condición sea verdadera
      unCommando
      unCommando
      ....
  }

  if {$x<0} { ;# Si x es menor que 0
     set x 0
  } elseif { $x<5 } { ;# Si no, pero x es menor que 5
     set x 5
  } else { ;# Si no se cumple ninguna de las anteriores
     set x 10
  }

  for {set i 0} {$i<10} {incr i} { ;# Para i desde 0 hasta 9
      puts $i
  }

  foreach i [list "hola" "mundo"] { ;# Para cada elemento en la lista
      puts $i
  }
  
  set color azul
  switch $color { ;# Comprueba el valor de 'color'
    rojo   { puts "FF0000" }
    azul   { puts "0000FF" }
    verde  { puts "00FF00" }
    default { puts "desconocido" } ;# Si no coincide con ninguno
  }

Ejemplos de programas en Tcl

Aquí tienes algunos ejemplos de lo que se puede hacer con Tcl:

• Calcular el factorial:

proc ! x {expr {$x<2? 1: $x*[! [incr x -1]]}}

• Sumar una lista de números:

Puedes usar un bucle `foreach`:

set numeros {10 9 8 7 6 5 4 3 2 1}
set suma 0
foreach i $numeros { 
   set suma [expr {$suma + $i}]
}

O una forma más corta usando el comando `join`:

set suma [expr [join $numeros +]]

• Descargar una página web (HTML):

package require http
set tok [http::geturl http://es.wikipedia.org/wiki/Tcl]
puts [http::data $tok]
http::cleanup $tok

¿Cómo se usa Tcl?

Eclipse ejecutando un programa Tcl que usa la extensión incr Tcl para programación orientada a objetos.

En sistemas como Linux o Unix, el programa para ejecutar Tcl (el intérprete) suele venir instalado. Si no, puedes instalarlo o compilarlo desde el código fuente.

Para ejecutar un programa Tcl, abres la consola (terminal) y escribes:

$ tclsh archivo.tcl

También puedes escribir solo `tclsh` en la consola para abrir una sesión interactiva de Tcl. Hay herramientas más avanzadas como TkCon, que es un intérprete mejorado. Además, muchos IDEs (programas para escribir código) como Eclipse soportan Tcl.

Programación con objetos en Tcl

Desde la versión 8.6 (lanzada en 2012), Tcl incluye de forma nativa la programación orientada a objetos (POO). Este es un estilo de programación que organiza el código en "objetos" que combinan datos y funciones.

La sintaxis básica es:

objeto método arg1 arg2 ....

Aquí tienes un ejemplo sencillo:

oo::class create DistribuidorTicket { ;# Crea una "clase" llamada DistribuidorTicket
  variable contador
    
  constructor {} {set contador 0} ;# Cuando se crea un objeto, el contador empieza en 0
  
  method entregaTicket {{ticket 1}} {  ;# Un "método" para entregar tickets
      incr contador
        for {set i 0} {$i < $ticket} {incr i} {
           puts "Entrega del ticket n° $i para el control $contador"
        }
  }
}

set macommande [DistribuidorTicket new] ;# Crea un nuevo objeto de la clase DistribuidorTicket
$macommande entregaTicket 2 ;# Llama al método 'entregaTicket' del objeto

Antes de la versión 8.6, Tcl no tenía POO integrada, pero la comunidad creó varias extensiones para añadir esta funcionalidad. La inclusión de POO en Tcl 8.6 buscó unificar estas diferentes formas de trabajar con objetos.

Véase también

En inglés: Tcl Facts for Kids