在tcl中创建一个main方法

Question

我想通过从单个方法调用各种方法来集中执行，就像java中的主方法一样..在tcl中有办法做到这一点吗?

我到处寻找答案，但到目前为止还没有找到。另一种方法是在函数中设置标志，这样代码块只在标志具有特定值时执行，但这是一个繁琐的过程，因为我的程序中有很多过程。

非常感谢任何帮助。由于

例子(伪代码):

func1 () {...}
func2 () {...}
main method () {
  int a, b
  func1(a)
  func2(b)
}

Answer 1

Tcl可以看作是一种脚本语言。Tcl脚本的主体是主要的方法。因此，实际上并不需要主方法。从过程中调用过程是标准功能:

proc func1 {} {
    puts A
}
proc func2  {} {
    puts B
}
proc Main {} {
    func1
    func2
}
Main

达;

A
B

Main必须显式调用才能执行func1和func2。

将Main内容放入脚本体中会产生相同的结果

Answer 2

做类似main的事情的一种方法是使用lambda应用程序。如果您正在这样做，传递脚本参数通常会很有帮助。

# Usual stuff at the top of a script
pacakge require Tcl 8.5
package require pkgABC
package require pkgDEF
proc GHI {} { ... }
apply {{a b args} {
    # This part now works like main() in C or Java or ...
}} {*}$argv