/* * This file was generated automatically by ExtUtils::ParseXS version 2.17 from the * contents of Test.xs. Do not edit this file, edit Test.xs instead. * * ANY CHANGES MADE HERE WILL BE LOST! * */ #line 1 "Test.xs" #include "EXTERN.h" #include "perl.h" #include "XSUB.h" int add_one(int i) { return i + 1; } int add_two(int i) { return i + 1; } #ifndef PERL_UNUSED_VAR # define PERL_UNUSED_VAR(var) if (0) var = var #endif #line 28 "Test.c" XS(XS_Test_add_interface); /* prototype to pass -Wmissing-prototypes */ XS(XS_Test_add_interface) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif dXSFUNCTION(int); if (items != 1) Perl_croak(aTHX_ "Usage: %s(%s)", "Test::add_interface", "i"); PERL_UNUSED_VAR(cv); /* -W */ { int i = (int)SvIV(ST(0)); int RETVAL; dXSTARG; XSFUNCTION = XSINTERFACE_FUNC(int,cv,XSANY.any_dptr); RETVAL = XSFUNCTION(i); XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } #ifdef __cplusplus extern "C" #endif XS(boot_Test); /* prototype to pass -Wmissing-prototypes */ XS(boot_Test) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif char* file = __FILE__; PERL_UNUSED_VAR(cv); /* -W */ PERL_UNUSED_VAR(items); /* -W */ XS_VERSION_BOOTCHECK ; { CV * cv ; cv = newXS("Test::add_two", XS_Test_add_interface, file); XSINTERFACE_FUNC_SET(cv,add_two) ; cv = newXS("Test::add_one", XS_Test_add_interface, file); XSINTERFACE_FUNC_SET(cv,add_one) ; } XSRETURN_YES; }