git.maemo.org Git - pkg-perl/blob - deb-src/libextutils-parsexs-perl/libextutils-parsexs-perl-2.220200/t/XSUsage.xs

   1 #include "EXTERN.h"
   2 #include "perl.h"
   3 #include "XSUB.h"
   4
   5 int xsusage_one()       { return 1; }
   6 int xsusage_two()       { return 2; }
   7 int xsusage_three()     { return 3; }
   8 int xsusage_four()      { return 4; }
   9 int xsusage_five(int i) { return 5; }
  10 int xsusage_six(int i)  { return 6; }
  11
  12 MODULE = XSUsage         PACKAGE = XSUsage      PREFIX = xsusage_
  13
  14 PROTOTYPES: DISABLE
  15
  16 int
  17 xsusage_one()
  18
  19 int
  20 xsusage_two()
  21     ALIAS:
  22         two_x = 1
  23         FOO::two = 2
  24
  25 int
  26 interface_v_i()
  27     INTERFACE:
  28         xsusage_three
  29
  30 int
  31 xsusage_four(...)
  32
  33 int
  34 xsusage_five(int i, ...)
  35
  36 int
  37 xsusage_six(int i = 0)