c - 如何使用 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 命令和变量的名称。