X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FDevel%2FPPPort%2FPPPort.xs;h=2586824ebb0b2567f9a1754f93294f2765df312d;hb=1d088ed8a1eb69310feb11b29d0e7602666238b4;hp=99f225587b59fefaea4dc4c9fe84a38b88a51f84;hpb=20d7225961318f2b7028b6ce66a378dd14d15ef1;p=p5sagit%2Fp5-mst-13.2.git diff --git a/ext/Devel/PPPort/PPPort.xs b/ext/Devel/PPPort/PPPort.xs index 99f2255..2586824 100644 --- a/ext/Devel/PPPort/PPPort.xs +++ b/ext/Devel/PPPort/PPPort.xs @@ -1,169 +1,3 @@ - -#include "EXTERN.h" -#include "perl.h" -#include "XSUB.h" - -#define NEED_newCONSTSUB -#include "ppport.h" - -/* Global Data */ - -#define MY_CXT_KEY "Devel::PPPort::_guts" XS_VERSION - -typedef struct { - /* Put Global Data in here */ - int dummy; -} my_cxt_t; - -START_MY_CXT - -void test1(void) -{ - newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_1", newSViv(1)); -} - -extern void test2(void); -extern void test3(void); - -MODULE = Devel::PPPort PACKAGE = Devel::PPPort - -BOOT: -{ - MY_CXT_INIT; - /* If any of the fields in the my_cxt_t struct need - to be initialised, do it here. - */ - MY_CXT.dummy = 42 ; -} - -void -test1() - -void -test2() - -void -test3() - -int -test4() - CODE: - { - SV * sv = newSViv(1); - newRV_inc(sv); - RETVAL = (SvREFCNT(sv) == 2); - } - OUTPUT: - RETVAL - -int -test5() - CODE: - { - SV * sv = newSViv(2); - newRV_noinc(sv); - RETVAL = (SvREFCNT(sv) == 1); - } - OUTPUT: - RETVAL - -SV * -test6() - CODE: - { - RETVAL = (newSVsv(&PL_sv_undef)); - } - OUTPUT: - RETVAL - -SV * -test7() - CODE: - { - RETVAL = (newSVsv(&PL_sv_yes)); - } - OUTPUT: - RETVAL - -SV * -test8() - CODE: - { - RETVAL = (newSVsv(&PL_sv_no)); - } - OUTPUT: - RETVAL - -int -test9(string) - char * string; - CODE: - { - PL_na = strlen(string); - RETVAL = PL_na; - } - OUTPUT: - RETVAL - - -SV* -test10(value) - int value - CODE: - { - RETVAL = (newSVsv(boolSV(value))); - } - OUTPUT: - RETVAL - - -SV* -test11(string, len) - char * string - int len - CODE: - { - RETVAL = newSVpvn(string, len); - } - OUTPUT: - RETVAL - -SV* -test12() - CODE: - { - RETVAL = newSVsv(DEFSV); - } - OUTPUT: - RETVAL - -int -test13() - CODE: - { - RETVAL = SvTRUE(ERRSV); - } - OUTPUT: - RETVAL - -int -test14() - CODE: - { - dMY_CXT; - RETVAL = (MY_CXT.dummy == 42); - ++ MY_CXT.dummy ; - } - OUTPUT: - RETVAL - -int -test15() - CODE: - { - dMY_CXT; - RETVAL = (MY_CXT.dummy == 43); - } - OUTPUT: - RETVAL - +This is just a dummy file to let Configure know that Devel::PPPort +is an XS module. The real XS code is autogenerated from PPPort_xs.PL +when this module is built and will go to RealPPPort.xs.