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]

Reply via email to