Trayectoria completa de la secuencia de comandos TCL actual

Question

¿Existe la posibilidad de obtener la ruta completa de la secuencia de comandos TCL actualmente en ejecución?

En PHP sería: __FILE__

Answer 1

¿Quieres $argv0

Answer 2

segundos después de haber publicado mi pregunta ... lindex $argv 0 es un buen punto de partida ;-)

Answer 3

Dependiendo de lo que significa "actualmente ejecutando script TCL", en realidad podría buscar info script, o posiblemente incluso info nameofexecutable o algo más esotérico.

Answer 4

Puede usar [file normalize] para obtener el nombre completamente normalizado, también.

file normalize $argv0 
file normalize [info nameofexecutable] 

Answer 5

La forma correcta para recuperar el nombre del archivo que el estado de cuenta actual reside en, es la siguiente (un verdadero equivalente a PHP/C++ 's __FILE__):

set thisFile [ dict get [ info frame 0 ] file ] 

psuedocode (cómo funciona) :

1. set thisFile <value>: establece thisFile variable para value
2. dict get <dict> file : Devuelve el valor de archivo de un dict
3. info frame <#>: devuelve un diccionario con información sobre el marco en el nivel de pila especificada (#), y 0 devolverá el marco de pila más reciente AVISO: Consulte final del post para más información en el marco de información.

En este caso, el valor file regresar de info frame es ya normalizada, por lo file normalize <path> No es necesario.

La diferencia entre info script y info frame es principalmente para usar con los paquetes de Tcl. Si se usó info script en un archivo Tcl que se proporcionó durante un paquete requerido (require package <name>), entonces info script devolvería la ruta al script Tcl que se está ejecutando actualmente y no proporcionaría el nombre real del archivo Tcl que contenía el comando info script; Sin embargo, el ejemplo info frame proporcionado aquí devolverá correctamente el nombre de archivo del archivo que contiene el comando.

Si desea que se evalúa el nombre del script que se está, entonces:

set sourcedScript [ info script ] 

Si desea que el nombre de la secuencia de comandos (o intérprete) que se invoca inicialmente, entonces:

set scriptAtInvocation $::argv0 

Si desea que el nombre del archivo ejecutable que se invoca inicialmente, entonces:

set exeAtInvocation [ info nameofexecutable ] 

ACTUALIZACIÓN - Detalles acerca de: info frame

Esto es lo que parece un stacktrace en Tcl. El frame_index es el que nos muestra cómo se ve info frame $frame_index para los valores de 0 hasta [ info frame ].

Llamar a info frame [ info frame ] es funcionalmente equivalente a info frame 0, pero usar 0 es, por supuesto, más rápido.

Sólo hay realidad 1 a [ info frame ] marcos de pila, y se comporta como 0[ info frame ]. En este ejemplo se puede ver que 0 y 5 (que es [ info frame ]) son los mismos:

frame_index: 0 | type = source | proc = ::stacktrace | line = 26 | level = 0 | file = /tcltest/stacktrace.tcl | cmd = info frame $frame_counter 
frame_index: 1 | type = source | line = 6 | level = 4 | file = /tcltest/main.tcl | cmd = a 
frame_index: 2 | type = source | proc = ::a | line = 2 | level = 3 | file = /tcltest/a.tcl | cmd = b 
frame_index: 3 | type = source | proc = ::b | line = 2 | level = 2 | file = /tcltest/b.tcl | cmd = c 
frame_index: 4 | type = source | proc = ::c | line = 5 | level = 1 | file = /tcltest/c.tcl | cmd = stacktrace 
frame_index: 5 | type = source | proc = ::stacktrace | line = 26 | level = 0 | file = /tcltest/stacktrace.tcl | cmd = info frame $frame_counter 

Ver: https://github.com/Xilinx/XilinxTclStore/blob/master/tclapp/xilinx/profiler/app.tcl#L273