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

ndlli

　　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.iyunv.com/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