1#include "EXTERN.h" 2#include "perl.h" 3#include "XSUB.h" 4 5/* Old perls (pre 5.8.9 or so) did not have PERL_UNUSED_ARG in XSUB.h. 6 * This is normally covered by ppport.h. */ 7#ifndef PERL_UNUSED_ARG 8# if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */ 9# include <note.h> 10# define PERL_UNUSED_ARG(x) NOTE(ARGUNUSED(x)) 11# else 12# define PERL_UNUSED_ARG(x) ((void)x) 13# endif 14#endif 15#ifndef PERL_UNUSED_VAR 16# define PERL_UNUSED_VAR(x) ((void)x) 17#endif 18 19int xsusage_one() { return 1; } 20int xsusage_two() { return 2; } 21int xsusage_three() { return 3; } 22int xsusage_four() { return 4; } 23int xsusage_five(int i) { PERL_UNUSED_ARG(i); return 5; } 24int xsusage_six(int i) { PERL_UNUSED_ARG(i); return 6; } 25 26MODULE = XSUsage PACKAGE = XSUsage PREFIX = xsusage_ 27 28PROTOTYPES: DISABLE 29 30int 31xsusage_one() 32 33int 34xsusage_two() 35 ALIAS: 36 two_x = 1 37 FOO::two = 2 38 INIT: 39 PERL_UNUSED_VAR(ix); 40 41int 42interface_v_i() 43 INTERFACE: 44 xsusage_three 45 46int 47xsusage_four(...) 48 49int 50xsusage_five(int i, ...) 51 52int 53xsusage_six(int i = 0) 54