Perl + XS 用c/c++方便的编写perl扩展

整理一下网上的资料

1. h2xs -A wldemo  生成模板
Writing Wldemo/ppport.h
Writing Wldemo/lib/Wldemo.pm
Writing Wldemo/Wldemo.xs
Writing Wldemo/Makefile.PL
Writing Wldemo/README
Writing Wldemo/t/Wldemo.t
Writing Wldemo/Changes
Writing Wldemo/MANIFEST

cd Wldemo

修改Wldemo.xs文件 参考文档perlxs,perlguts,ppport.h

#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

#define CRCPOLY   0xEDB88320UL
#define CRCINIT   0xFFFFFFFF
unsigned long c_dCrcTable32[UCHAR_MAX + 1];

MODULE = Wldemo		PACKAGE = Wldemo		

void 
crc32_init(char *classname)
CODE:
    unsigned int i, j;
	unsigned long r;
	
	for (i = 0; i <= UCHAR_MAX; i++)
	{
	    r = i;
		for (j = 0; j < CHAR_BIT; j++)
		{
		    if (r & 1)
			{
			    r =