Tcl (pronunciado " cosquillas " o como inicialización [8] ) es un lenguaje de programación dinámico , interpretado , de alto nivel y de propósito general . Fue diseñado con el objetivo de ser muy simple pero poderoso. [9] Tcl moldea todo en el molde de un comando , incluso construcciones de programación como asignación de variables y definición de procedimientos. [10] Tcl admite múltiples paradigmas de programación , incluidos los estilos orientado a objetos , imperativo , funcional y procedimental .
Se utiliza comúnmente integrado en aplicaciones C , [11] para creación rápida de prototipos , aplicaciones con script, GUI y pruebas. [12] Los intérpretes Tcl están disponibles para muchos sistemas operativos , lo que permite que el código Tcl se ejecute en una amplia variedad de sistemas. Debido a que Tcl es un lenguaje muy compacto, se utiliza en plataformas de sistemas integrados , tanto en su forma completa como en varias otras versiones de tamaño reducido. [13]
La popular combinación de Tcl con la extensión Tk se conoce como Tcl/Tk (pronunciado "tickle teca" o como inicialización ) y permite crear una interfaz gráfica de usuario (GUI) de forma nativa en Tcl. Tcl/Tk se incluye en la instalación estándar de Python en forma de Tkinter .
El lenguaje de programación Tcl fue creado en la primavera de 1988 por John Ousterhout mientras trabajaba en la Universidad de California, Berkeley . [14] [15] Originalmente "nació de la frustración", [11] según el autor, cuando los programadores idearon sus propios lenguajes para extender el software de automatización de diseño electrónico (EDA) y, más específicamente, la herramienta de diseño VLSI Magic , que fue un enfoque profesional para John en ese momento. [16] Posteriormente, Tcl ganó aceptación por sí solo. Ousterhout recibió el premio ACM Software System Award en 1997 por Tcl/Tk. [17]
El nombre proviene originalmente de T ool Command Language , pero convencionalmente se escribe Tcl en lugar de TCL . [18]
Las conferencias y talleres de Tcl se llevan a cabo tanto en Estados Unidos como en Europa. [28]
Las características de Tcl incluyen
uplevel
permite upvar
que los procesos interactúen con los alcances de las funciones adjuntas.Safe-Tcl es un subconjunto de Tcl que tiene funciones restringidas para que los scripts Tcl no puedan dañar su máquina o aplicación de alojamiento. [31] El acceso al sistema de archivos es limitado y se impide la ejecución de comandos arbitrarios del sistema. Utiliza un modelo de intérprete dual en el que el intérprete que no es de confianza ejecuta código en un script que no es de confianza. Fue diseñado por Nathaniel Borenstein y Marshall Rose para incluir mensajes activos en el correo electrónico. Safe-Tcl se puede incluir en el correo electrónico cuando se admiten application/safe-tcl y multipart/enabled-mail . Desde entonces, la funcionalidad de Safe-Tcl se ha incorporado como parte de las versiones estándar de Tcl/Tk. [32] [33]
La sintaxis y la semántica de Tcl están cubiertas por doce reglas [34] conocidas como Dodekalogue. [35]
Un script Tcl consta de una serie de invocaciones de comandos. Una invocación de comando es una lista de palabras separadas por espacios en blanco y terminadas con una nueva línea o punto y coma. La primera palabra es el nombre de un comando, que puede estar integrado en el lenguaje, encontrarse en una biblioteca disponible o definirse en el propio script. Las siguientes palabras sirven como argumentos del comando:
nombre del comando argumento1 argumento2 ... argumentoN
El siguiente ejemplo utiliza el comando puts (abreviatura de "poner cadena") para mostrar una cadena de texto en la consola del host:
pone "¡Hola mundo!"
Esto envía la cadena "¡Hola, mundo!" al dispositivo de salida estándar junto con un carácter de nueva línea añadido.
Las variables y los resultados de otros comandos se pueden sustituir en cadenas, como en este ejemplo que usa los comandos set y expr para almacenar el resultado de un cálculo en una variable (tenga en cuenta que Tcl no se usa =
como operador de asignación), y luego utiliza puts para imprimir el resultado junto con algún texto explicativo:
# expr evalúa la cadena de texto como una suma de conjunto de expresiones [expr 1 + 2 + 3 + 4 + 5 ] pone "La suma de los números 1..5 es $sum".
El #
personaje introduce un comentario . Los comentarios pueden aparecer en cualquier lugar donde el intérprete espere un nombre de comando.
# con llaves, la sustitución de variables se realiza mediante expr set x 1 set sum [expr { $x + 2 + 3 + 4 + 5 }]; # $x no se sustituye antes de pasar el parámetro a expr; # expr sustituye 1 por $x mientras evalúa la expresión y pone "La suma de los números 1..5 es $sum". ; # la suma es 15
# sin llaves, la sustitución de variables ocurre en el sitio de definición (alcance léxico) set x 2 set op * set y 3 set res [expr $x$op$y ]; # Se sustituyen $x, $op y $y y la expresión se evalúa como 6 puts "$x $op $y es $res". ; # $x, $op, $y y $res se sustituyen y evalúan como cadenas
Como se ve en estos ejemplos, hay una construcción básica en el lenguaje: el comando. Los mecanismos de cotización y las reglas de sustitución determinan cómo se procesan los argumentos de cada comando.
Se produce una sustitución especial antes del análisis de cualquier comando o argumento. Si el carácter final de una línea (es decir, inmediatamente antes de una nueva línea) es una barra invertida, entonces la combinación de barra invertida y nueva línea (y cualquier espacio o tabulación inmediatamente después de la nueva línea) se reemplaza por un solo espacio. Esto proporciona un mecanismo de continuación de línea , mediante el cual líneas largas en el código fuente se pueden pasar a la siguiente línea para comodidad de los lectores.
Continuando con el procesamiento normal de argumentos, una palabra que comienza con un carácter de comillas dobles ( "
) se extiende hasta el siguiente carácter de comillas dobles. Por tanto, una palabra de este tipo puede contener espacios en blanco y punto y coma sin que se interprete que esos caracteres tienen ningún significado especial (es decir, se tratan como caracteres de texto normales). Una palabra que comienza con un carácter de llave de apertura ( {
) se extiende hasta el siguiente carácter de llave de cierre ( }
). Dentro de las llaves se suprimen todas las formas de sustitución, excepto la eliminación de barra invertida y nueva línea mencionada anteriormente. Las palabras que no están incluidas en ninguna de las construcciones se conocen como palabras simples.
En palabras simples y entre comillas dobles, pueden ocurrir tres tipos de sustitución:
[expr 1+2+3]
se reemplaza por el resultado de evaluar la expresión contenida (en este caso 6).$foo
se reemplaza por el contenido de la variable llamada "foo". El nombre de la variable puede estar rodeado por llaves para separarlo del texto posterior en casos que de otro modo serían ambiguos (por ejemplo, ${foo}ing
).\n
se reemplaza por una nueva línea.La sustitución se realiza de izquierda a derecha en un solo recorrido por cada palabra. Cualquier texto sustituido no será escaneado nuevamente para posibles sustituciones adicionales. Sin embargo, puede aparecer cualquier número de sustituciones en una sola palabra.
Desde Tcl 8.5 en adelante, cualquier palabra puede tener el prefijo {*}
, lo que hace que la palabra se divida en sus subpalabras constituyentes con el fin de construir la invocación del comando (similar a la ,@
secuencia de la función de cuasicomillas de Lisp ).
Como consecuencia de estas reglas, el resultado de cualquier comando puede usarse como argumento para cualquier otro comando. Tenga en cuenta que, a diferencia de los shells de comandos de Unix , Tcl no analiza ninguna cadena a menos que se le indique explícitamente que lo haga, lo que hace que el uso interactivo sea más engorroso, pero el uso con scripts es más predecible (por ejemplo, la presencia de espacios en los nombres de archivos no causa dificultades).
El signo único de igualdad ( =
) no desempeña ningún papel especial en el lenguaje. El signo de doble igualdad ( ==
) es la prueba de igualdad que se utiliza en contextos de expresión como el expr
comando y en el primer argumento de if
. (Ambos comandos son parte de la biblioteca estándar; no tienen un lugar especial en la biblioteca y pueden reemplazarse si se desea).
La mayoría de los comandos Tcl, especialmente en la biblioteca estándar, son variados , y proc
(el constructor para procedimientos de comando programados) permite definir valores predeterminados para argumentos no especificados y un argumento general para permitir que el código procese números arbitrarios de argumentos. .
Tcl no tiene un tipo estático: cada variable puede contener números enteros, flotantes, cadenas, listas, nombres de comandos, diccionarios o cualquier otro valor; los valores se reinterpretan (sujetos a restricciones sintácticas) como otros tipos bajo demanda. Sin embargo, los valores son inmutables y las operaciones que parecen cambiarlos en realidad simplemente devuelven un nuevo valor.
Los comandos más importantes que hacen referencia a la ejecución de programas y operaciones de datos son:
set
escribe un nuevo valor en una variable (crea una variable si no existía). Si se usa solo con un argumento, devuelve el valor de la variable dada (debe existir en este caso).proc
define un nuevo comando, cuya ejecución da como resultado la ejecución de un script Tcl determinado, escrito como un conjunto de comandos. return
se puede utilizar para devolver inmediatamente el control a la persona que llama.Los comandos de control de ejecución habituales son:
if
ejecuta el cuerpo del script dado (segundo argumento), si se cumple la condición (primer argumento). Puede ir seguido de argumentos adicionales a partir de elseif
la condición y el cuerpo alternativos, o else
del bloque complementario.while
repite la ejecución del cuerpo del script dado, siempre y cuando la condición (primer argumento) permanezca satisfechaforeach
ejecuta el cuerpo dado donde a la variable de control se le asignan elementos de la lista uno por uno.for
acceso directo para inicializar la variable de control, la condición (como en while
) y la declaración adicional de "próxima iteración" (comando ejecutado después de ejecutar el cuerpo)Los comandos de bucle anteriores se pueden controlar adicionalmente mediante los siguientes comandos:
break
interrumpe la ejecución del cuerpo y regresa del comando de buclecontinue
interrumpe la ejecución del cuerpo, pero el control aún se devuelve al comando de bucle. For while
significa hacer un bucle nuevamente, for for
y foreach
continuar con la siguiente iteración.return
interrumpe la ejecución del cuerpo actual sin importar cuán profundo esté dentro del procedimiento, hasta alcanzar el límite del procedimiento, y devuelve el valor dado a la persona que llama.expr
pasa el argumento a un intérprete de expresiones independiente y devuelve el valor evaluado. Tenga en cuenta que el mismo intérprete se utiliza también para expresiones "condicionales" if
y comandos de bucle.list
crea una lista que comprende todos los argumentos, o una cadena vacía si no se especifica ningún argumento. El lindex
comando se puede utilizar en el resultado para volver a extraer los argumentos originales.array
manipula variables de matriz .dict
manipula el diccionario (desde 8.5), que son listas con un número par de elementos donde cada dos elementos se interpretan como un par clave/valor.regexp
compara una expresión regular con una cadena.regsub
Realiza sustituciones basadas en la coincidencia de patrones de expresiones regulares.uplevel
es un comando que permite ejecutar un script de comando en un ámbito distinto del ámbito más interno actual de la pila.upvar
crea un enlace a la variable en un marco de pila diferente.namespace
le permite crear, acceder y destruir contextos separados para comandos y variables.apply
aplica una función anónima (desde 8.5).coroutine
, yield
y yieldto
crear y producir valores a partir de corrutinas (desde 8.6).try
le permite capturar y procesar errores y excepciones.catch
le permite capturar retornos excepcionales.zlib
proporciona acceso a las funciones de compresión y suma de comprobación de la biblioteca Zlib (desde 8.6).uplevel
permite que un script de comando se ejecute en un ámbito distinto del ámbito más interno actual de la pila. Debido a que el script de comando puede llamar a procedimientos que usan el comando de nivel superior , esto tiene el efecto neto de transformar la pila de llamadas en un árbol de llamadas. [36]
Se implementó originalmente para permitir que los procedimientos Tcl vuelvan a implementar comandos integrados (como for , if o while ) y aún tengan la capacidad de manipular variables locales . Por ejemplo, el siguiente script Tcl es una reimplementación del comando for (omitiendo el manejo de excepciones ):
proc for { initCmd testExpr advancedCmd bodyScript } { nivel superior 1 $initCmd set testCmd [ lista expr $testExpr ] mientras {[nivel superior 1 $testCmd ]} { nivel superior 1 $bodyScript nivel superior 1 $advanceCmd } }
upvar
organiza una o más variables locales en el procedimiento actual para hacer referencia a variables en una llamada a procedimiento adjunta o a variables globales . El comando upvar simplifica la implementación de llamadas a procedimientos de llamada por nombre y también facilita la creación de nuevas construcciones de control como procedimientos Tcl. [37]
Un comando decr que funciona como el comando integrado incr
excepto que resta el valor de la variable en lugar de agregarlo:
proc decr { varName { decremento 1 }} { upvar 1 $varName var incr var [expr { -$decrement }] }
Tcl 8.6 agregó un sistema de objetos dinámicos incorporado, TclOO, en 2012. [29] Incluye características como:
oo :: clase crear fruta { método comer {} { pone "¡delicioso!" } } oo :: clase crear plátano { superclase constructor de frutas {} { mi variable pelado conjunto pelado 0 } método pelar {} { mi variable pelado conjunto pelado 1 pone "piel ahora fuera" } método comestible ? {} { mi variable pelado return $pelado } método eat {} { if { ! [ mi comestible ? ]} { mi cáscara } siguiente } } set b [ plátano nuevo ] $b comer → imprime "sin piel" y "¡delicioso!" fruta destruir $b comer → error "comando desconocido"
Tcl no tenía sintaxis orientada a objetos (OO) hasta 2012, [29] por lo que surgieron varios paquetes de extensión para permitir la programación orientada a objetos. Están muy extendidos en el código fuente Tcl existente. Las extensiones populares incluyen:
TclOO no solo se agregó para construir un fuerte sistema orientado a objetos, sino también para permitir que los paquetes de extensión creen abstracciones orientadas a objetos usándolo como base. Después del lanzamiento de TclOO, incr Tcl se actualizó para utilizar TclOO como base. [27]
Tcl Web Server es una implementación puramente Tcl de un servidor de protocolo HTTP. Se ejecuta como un script sobre un intérprete básico de Tcl.
Apache Rivet es un sistema de programación de código abierto para el servidor HTTP Apache que permite a los desarrolladores utilizar Tcl como lenguaje de programación para crear aplicaciones web dinámicas. Rivet es similar a PHP , ASP y JSP . Rivet fue desarrollado principalmente por Damon Courtney, David Welton, Massimo Manghi, Harald Oehlmann y Karl Lehenbauer . Rivet puede utilizar cualquiera de los miles de paquetes Tcl disponibles públicamente que ofrecen innumerables funciones, como interacción con bases de datos (Oracle, PostgreSQL, MySQL, SQLite, etc.) o interfaces para aplicaciones populares como la biblioteca de gráficos GD .
Tcl interactúa de forma nativa con el lenguaje C. [38] Esto se debe a que fue escrito originalmente para ser un marco para proporcionar una interfaz sintáctica para los comandos escritos en C, y todos los comandos en el lenguaje (incluidas las cosas que de otro modo podrían ser palabras clave , como if
o while
) se implementan de esta manera. . A cada función de implementación de comando se le pasa una matriz de valores que describen los argumentos (ya sustituidos) del comando, y es libre de interpretar esos valores como mejor le parezca.
Los simuladores de lógica digital suelen incluir una interfaz de secuencias de comandos Tcl para simular los lenguajes de hardware Verilog , VHDL y SystemVerilog .
Existen herramientas (por ejemplo, SWIG , Ffidl) para generar automáticamente el código necesario para conectar funciones C arbitrarias y el tiempo de ejecución de Tcl, y Critcl hace lo contrario, permitiendo incrustar código C arbitrario dentro de un script Tcl y compilarlo en tiempo de ejecución en una DLL .
El lenguaje Tcl siempre ha permitido paquetes de extensión, que proporcionan funcionalidad adicional, como una GUI, automatización de aplicaciones basada en terminal, acceso a bases de datos, etc. Las extensiones de uso común incluyen: