使用Swig将字符串列表从C函数发送到TCL进程

Question

我需要关于将字符串列表从C函数发送到TCL调用函数的指导。在swig和函数返回值的帮助下，我能够将C函数中的整型浮点值列表发送回TCL程序。但我无法将swig中的“test1”、“test2”等字符串列表连同返回值一起发送回TCL进程。任何关于这方面的指导/指针都会很好。

工作的代码是这样的

int addsub (int a, int b, int *result1, int *result2) {
  *result1 = a + b;
  *result2 = a - b;
  printf("\n The value is: %i, %i  \n",*result1, *result2);
  return 8;
}

Swig界面看起来像

%apply int *OUTPUT {int *result1, int *result2};

TCL呼叫就像

tclsh
% Addsub 10 5

8 15 5.

它以列表的形式给出结果输出

但当我尝试在字符串中执行类似操作时，TCL中的返回列表只返回字符串中的第一个字符

代码不起作用

int test_str (char *out1, char *out2) {
  char *str1, *str2;
  str1 = "Test1";
  str2 = "Test2";
  strcpy (out1,str1);
  strcpy (out2,str2);
  printf ("Out 1 is %s\n", out1);
  printf ("Out 2 is %s\n", out2);
  return 100;
}

Swig接口文件看起来像

%apply int *OUTPUT {char *out1, char *out2};

TCL通话就像

Tclsh

% Teststr

Out 1 is est2
Out 2 is Test2
100 101 84

它没有给出整个字符串。给出字符串中第一个字母的ASCII值。

或者如果我的C函数是这样的

int test_str (char *out1, char *out2) {
  char *str1,*str2;
  str1 ="Test1";
  str2 = "Test2";
  out1=str1;
  out2=str2;
  //strcpy (out1,str1);
  //strcpy (out2,str2);
  printf ("String 1 is %s\n", str1);
  printf ("String 2 is %s\n", str2);
  printf ("Out 1 is %s\n", out1);
  printf ("Out 2 is %s\n", out2);
  return 100;
}

Swig接口文件看起来像

%apply int *OUTPUT {char *out1, char *out2};

tclsh

% test_str

String 1 is Test1
String 2 is Test2
Out 1 is Test1
Out 2 is Test2
100 0 -127

有人能指出这里缺少什么吗。

Answer 1

这是一个非常棘手的案件。SWIG在处理用于输出的char*变量时有特殊问题；缺少的信息太多，它无法自动找出需要做的所有事情。（我认为默认情况下，它会将它们视为长度为1的字符数组，这并没有多大帮助。）

您需要指定一个argouttypemap（以及typemap中的助手）来解决此问题：

// Allocate a (short) working buffer for the string; this is the part that
// SWIG *cannot* guess for you.
%typemap(in, numinputs=0) char *OUTPUT (char temp[50]) {
    $1 = &temp;
}
// Actually how to do the mapping of strings from a local buffer into Tcl values
%typemap(tcl,argout) char * {
    $result = Tcl_NewStringObj($1, -1);
}

然后必须应用%apply，才能真正获得正确值的缓冲区分配。（请注意，使用这种方法正确地进行缓冲区管理是相当棘手的，而您正在使用的函数签名并不能很好地完成缓冲区管理。）

您的最后一个示例根本不起作用；您没有通过任何机制返回值（由于C字符串的工作方式；您只是在函数内部设置东西，而不是告诉调用者）。除非您执行strcpy，否则该字符串实际上不会被复制...