From 47e6e7c84f008a53061e661f31ae96629bc694ef Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Sun, 26 Oct 2014 12:33:50 +0400 Subject: Debian 3.9.10 --- src/perl/PMDA/typemap | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 src/perl/PMDA/typemap (limited to 'src/perl/PMDA/typemap') diff --git a/src/perl/PMDA/typemap b/src/perl/PMDA/typemap new file mode 100644 index 0000000..5846f97 --- /dev/null +++ b/src/perl/PMDA/typemap @@ -0,0 +1,27 @@ +###################################################################### +# INPUT/OUTPUT maps +# O_OBJECT -> links an opaque C object to a blessed Perl object. +# +TYPEMAP +pmdaInterface * O_OBJECT +pmdaInstid * T_PTROBJ + +###################################################################### +OUTPUT + +O_OBJECT + sv_setref_pv( $arg, CLASS, (void*)$var ); + + +###################################################################### +INPUT + +O_OBJECT + if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG)) + $var = ($type)SvIV((SV *)SvRV($arg)); + else { + warn(\"${Package}::$func_name() -- $var is not a blessed SV reference\"); + XSRETURN_UNDEF; + } + +###################################################################### -- cgit v1.2.3