Tcl Tutorial Lesson 28

State of the interpreter - info

There are a number of subcommands to the info command that provide information about the current state of the interpreter. These commands provide access to information like the current version and patchlevel, what script is currently being executed, how many commands have been executed, or how far down in the call tree the current proc is executing. The info tclversion and info patchlevel can be used to find out if the revision level of the interpreter running your code has the support for features you are using. If you know that certain features are not available in certain revisions of the interpreter, you can define your own procs to handle this, or just exit the program with an error message.

The info cmdcount and info level can be used while optimizing a Tcl script to find out how many levels and commands were necessary to accomplish a function.

Note that the pid command is not part of the info command, but a command in its own right.

Subcommands that return information about the current state of the interpreter

(Note: There are several other subcommands that can be useful at times - see the man page on info)

info cmdcount
Returns the total number of commands that have been executed by this interpreter.
info level ?number?
Returns the stack level at which the compiler is currently evaluating code. 0 is the top level, 1 is a proc called from top, 2 is a proc called from a proc, etc. If number is a positive value, info level returns a the name and arguments of the proc at that level on the stack. number is that same value that info level would return if it were called in the proc being referenced. If number number is a negative value, it refers to the current level plus number. Thus, info level returns a the name and arguments of the proc at that level on the stack.
info patchlevel
Returns the value of the global variable tcl_patchlevel. This is a three-levels version number identifying the Tcl version, like: "8.6.6"
info script
Returns the name of the file currently being evaluated, if one is being evaluated. If there is no file being evaluated, returns an empty string. This can be used for instance to determine the directory holding other scripts or files of interest (they often live in the same directory or in a related directory), without having to hardcode the paths.
info tclversion
Returns the value of the global variable tcl_version. This is the revision number of this interpreter, like: "8.6".
pid
Returns the process id of the current process.

Example

puts "Number of commands that have been executed: [info cmdcount]"
puts "Now THIS many commands have been executed: [info cmdcount]"

puts "\nThis interpreter is revision level: [info tclversion]"
puts "This interpreter is at patch level: [info patchlevel]"

puts "The process id for this program is [pid]"

proc factorial {val} {
    puts "Current level: [info level] - val: $val"
    set lvl [info level]
    if {$lvl == $val} {
        return $val
    }
    return [expr {($val-$lvl) * [factorial $val]}]
}

set count1 [info cmdcount]
set fact [factorial 3]
set count2 [info cmdcount]
puts "The factorial of 3 is $fact"
puts "Before calling the factorial proc, $count1 commands run"
puts "After calling the factorial proc, $count2 commands run"
puts "It took [expr $count2-$count1] commands for the factorial"

  Resulting output
This is how many commands have been executed: 147
Now  *THIS* many commands have been executed: 150

This interpreter is revision level: 8.6
This interpreter is at patch level: 8.6.6
The process id for this program is 10816
Current level: 1 - val: 3
Current level: 2 - val: 3
Current level: 3 - val: 3
The factorial of 3 is 6
Before calling the factorial proc, 162 commands run
After calling the factorial proc, 189 commands run
It took 27 commands for the factorial

The info script command is useful to construct the names of related script files:

#
# Use [info script] to determine where the other files of interest
# reside
#
set sysdir [file dirname [info script]]
source [file join $sysdir "utils.tcl"]