This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Document in perldelta Karl's work I just merged
[perl5.git] / cpan / ExtUtils-ParseXS / 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)