Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

28 lines (22 sloc) 0.522 kB
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;
}
Jump to Line
Something went wrong with that request. Please try again.