Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
28 lines (22 sloc) 522 Bytes
TYPEMAP
Epeg_Image * O_OBJECT
const char * T_PV
OUTPUT
# The perl object is blessed into 'CLASS' which should
# be a char * having the name of the package for the blessing.
O_OBJECT
sv_setref_pv( $arg, "Epeg_Image", (void*)$var );
#
# I have no idea what this does...
#
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;
}