tcl shorthand

最新推荐文章于 2021-03-01 07:20:51 发布

原创最新推荐文章于 2021-03-01 07:20:51 发布 · 250 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#tcl

tcl 专栏收录该内容

0 篇文章

订阅专栏

本文介绍Tcl编程语言的基础知识，包括Tcl语法概览、常用命令列表及示例代码。通过一个简单的脚本示例，展示了如何使用Tcl打印Tcl版本信息和调用过程并获取其所在行号。

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]"