如何使用 SWIG 创建带有可选参数的 TCL 函数？

Question

我有一个简单的 c/c++ 应用程序，它有一个可选的 TCL 解释器以及使用 SWIG 生成的函数包装器。对于某些函数，所有参数都是可选的。这通常是如何处理的？我想支持这样的 TCL 命令，其中任何参数都是可选的，但 C 函数采用固定参数：

 //TCL command
 get_list [options] filename
   -opt1
   -opt2
   -opt3 arg1 
   -opt4 arg2
   filename

//C function
static signed get_list(bool         opt1,
                       bool         opt2,
                       char       * arg1,
                       objectType * arg2,
                       char       * fileName)

目前我有这样的东西：

static pList * get_list(char    * arg1=NULL,
                        char    * arg2=NULL, 
                        char    * arg3=NULL,  
                        tObject * arg4=NULL)

这有很多问题，例如强制对象指针始终是最后一个参数。 SWIG 文档详细讨论了带有变量参数的 C 函数，使用“...”，但我认为这不是我需要的。我希望修复 C 函数参数。

Answer 1

最简单的方法是在外部包装一个 Tcl 过程，如下所示：

rename get_list original.get_list
proc get_list args {
    if {[llength $args] == 0 || [llength $args] % 2 == 0} {
        error "wrong # args: ...";   # Do a proper error message here!
    }
    # Handle the required argument
    set filename [lindex $args end]
    # Initialize the defaults
    array set opts {
        -opt1 false
        -opt2 false
        -opt3 ""
        -opt4 ""
    }
    # Merge in the supplied options
    foreach {opt val} [lrange $args 0 end-1] {
        if {![info exist opts($opt)]} {
            error "unrecognized option \"$opt\""
        }
        set opts($opt) $value
    }
    # Hand off to C level...
    original.get_list $opts(-opt1) $opts(-opt2) $opts(-opt3) $opts(-opt4) $filename
}

如果您有 Tcl 8.6，则最后的切换最好使用 tailcall 完成，以便从 Tcl 堆栈中删除重写代码。但这并不重要，因为 SWIGged 代码很少解析 Tcl 命令和变量的名称。