Here is my xs: MODULE = Laff PACKAGE = Laff::Node PREFIX=Node
Laff::Node New(class,...) char* class CODE: { /* search node new */ int ltype,npts,i,type,config,token; char *name,buf[256]; xy_t pts[10000]; int iary[1000]; AV* av; node_p retp;
Here is the Laff.c near the approiate line : XS(XS_Laff__Node_New); /* prototype to pass -Wmissing-prototypes */ XS(XS_Laff__Node_New) { dXSARGS; if (items < 1) Perl_croak(aTHX_ "Usage: Laff::Node::New(class, ...)"); { char* class = (char *)SvPV_nolen(ST(0)); <<<<<<<<< line # 2457 Laff__Node RETVAL; #line 832 "Laff.xs" { /* search node new */ int ltype,npts,i,type,config,token;
Here is the error message:
Laff.c: In function `void XS_Laff__Node_New(PerlInterpreter*, CV*)': Laff.c:2457: syntax error before `(' token make: *** [Laff.o] Error 1
Using perl 5.8.0 on Linux and Solaris. Could it be the C++ mixed with the ... ??? The new can contain from 1 to 15 arguments.
___ _ ____ ___ __ __
/ _ )(_) / /_ __ / _ \___ _/ /_/ /____ ___
/ _ / / / / // / / ___/ _ `/ __/ __/ _ \/ _ \
/____/_/_/_/\_, / /_/ \_,_/\__/\__/\___/_//_/
/___/ Texas Instruments ASIC Circuit Design Methodology Group
Dallas, Texas, 214-480-4455, [EMAIL PROTECTED]