Visual studio 2008下用SWIG包裹C/C++代码给Perl调用（Windows XP）

SWIG, Simplified Wrapper and Interface Generator, 简单来说是C/C++语言与其他语言的粘合剂 。

官方站点:

http://www.swig.org/

http://www.swig.org/translations/chinese/tutorial.html

介绍在Visual Studio 2008 下面如何用Swig制作DLL给Perl用(最后测试出现错误)。

假如你有一个 example.c 的文件（官方站点上的例子）：

double Foo = 3.0;

int gcd(int x, int y) {
int g;
g = y;
while (x > 0) {
g = x;
x = y % x;
y = g;
}
return g;
}

想把这个文件给Perl用。

首先用Visual Studio 2008 建一个C++的win32 project工程，点击next后选择

Application type: DLL（选择该项）

Additional options: Empty project（选择该项）

然后finish.

把 example.c 的文件加入工程中source files。

然后写一个接口文件 example.i ：

%module example
%{
extern int  gcd(int x, int y);
extern double Foo;
%}
extern int  gcd(int x, int y);
extern double Foo;

把这个example.i文件加入工程中。

注意%{ 和 %}之间的文字将原封不动的写入SWIG生成的wrap文件（example_wrap.c)，相当于在wrap文件的函数声明。

然后在系统中设置三个环境变量，主要是为了设置编译环境方便。

如果Perl装在C盘。

PERL5_INCLUDE=C:\Perl\lib\CORE      Perl的include文件夹
PERL5_LIB=C:\Perl\lib\CORE\perl514.lib      Perl的静态库文件，可能根据版本不同而不同，我装的是5.14。

SWIG=E:\software\swigwin-2.0.8\swigwin-2.0.8\swig.exe      swig.exe 的路径( 下载SWIG： http://www.swig.org/download.html )。

环境变量设置完后需要重新启动 Visual Studio 2008 才有效。

右击example.i，点击Properties中Custom Build Step

设置Command line:

echo In order to function correctly, please ensure the following environment variables are correctly set:
echo PERL5_INCLUDE: %PERL5_INCLUDE%
echo PERL5_LIB: %PERL5_LIB%
echo on
$(SWIG) -perl5 $(InputPath)

和dos命令一样，最后一句相当于

F:\Software\swigwin-2.0.8\swig.exe -perl5 example.i

Outputs设置成$(InputName)_wrap.c 相当于example_wrap.c

然后选择整个工程的Properties的Configuration Properties

设置C/C++中General的Additional Include Directories： $(PERL5_INCLUDE)

设置Linker中Input的Additional Dependencies： $(PERL5_LIB)

然后编译。第一次编译后会生成example.pm，example_wrap.c。把example_wrap.c加入工程，再编译一次就ok了。把DLL拷贝到example.pm的目录里面，用 runme.pl 测试。

#
# Perl5 script for testing simple example

use example;

# Call our gcd() function

$x = 42;
$y = 105;
$g = example::gcd($x,$y);
print "The gcd of $x and $y is $g\n";

# Manipulate the Foo global variable

# Output its current value
print "Foo = $example::Foo\n";

# Change its value
$example::Foo = 3.1415926;

# See if the change took effect
print "Foo = $example::Foo\n";

测试结果：

The gcd of 42 and 105 is 21
Foo = 3
Foo = 3.1415926

-----------------------------------------------------------------

最后测试的时候出现以下错误：

F:\>perl runme.pl
Can't locate loadable object for module example in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at example.pm line 11
Compilation failed in require at runme.pl line 4.
BEGIN failed--compilation aborted at runme.pl line 4.

REF:

http://www.swig.org/Doc1.3/Windows.html

http://topic.csdn.net/u/20090303/21/72a4fa1d-9146-4fc2-8555-8db2304d02df.html

http://blogs.msdn.com/b/texblog/archive/2007/04/05/linking-native-c-into-c-applications.aspx

http://blog.sina.com.cn/s/blog_48e3f9cd0100850k.html