ext/XS-APItest/XSUB-redefined-macros.xs

   1 #include "EXTERN.h"
   2 #include "perl.h"
   3
   4 /* We have to be in a different .xs so that we can do this:  */
   5
   6 #undef XS_VERSION
   7 #define XS_VERSION " "
   8 #undef PERL_API_VERSION_STRING
   9 #define PERL_API_VERSION_STRING "1.0.16"
  10 #include "XSUB.h"
  11
  12 /* This can't be "MODULE = XS::APItest" as then we get duplicate bootstraps.  */
  13 MODULE = XS::APItest::XSUB1     PACKAGE = XS::APItest::XSUB
  14
  15 PROTOTYPES: DISABLE
  16
  17 EXPORT_XSUB_SYMBOLS: ENABLE
  18
  19 void
  20 XS_VERSION_empty(...)
  21     PPCODE:
  22         XS_VERSION_BOOTCHECK;
  23         XSRETURN_EMPTY;
  24
  25 void
  26 XS_APIVERSION_invalid(...)
  27     PPCODE:
  28         XS_APIVERSION_BOOTCHECK;
  29         XSRETURN_EMPTY;