Tcl syntax: http://www.tcl-lang.org/man/tcl8.6/TclCmd/Tcl.htm
tcl commands :http://www.tcl-lang.org/man/tcl8.6/TclCmd/contents.htm
#!/bin/env expect --
# puts stdout "strings" one line
puts "Tcl version: $tcl_version" ;# inline comment
## print line number
proc linum {} {
if {[llength [info commands dict]]} {
return [dict get [info frame -1] line]
} elseif {![string equal -nocase precompiled [lindex [info frame -1] 1]]} {
return [lindex [info frame -1] 3]
}
return Unknown
}
puts "call proc @line:[linum]"