TYPEMAP
const char *		T_PV
VPreprocXs *		O_CTHIS


OUTPUT
# The variable is stored into a pre-blessed $self->{_cthis}
O_CTHIS
    // SELF->{_cthis} = THIS
    if( sv_isobject(SELF) && (SvTYPE(SvRV(SELF)) == SVt_PVHV) ) {
	SV **svp = hv_fetch ((HV*)SvRV(SELF), \"_cthis\", 6, 1);
	sv_setiv(*svp, PTR2IV( $var ));
	XSRETURN_UNDEF;
    } else {
        warn( \"${Package}::$func_name() -- $var is not a blessed HV reference\" );
        XSRETURN_UNDEF;
    }

INPUT
O_CTHIS
    if( sv_isobject($arg) && (SvTYPE(SvRV( $arg )) == SVt_PVHV) ) {
        SV **svp = hv_fetch ((HV*)SvRV(( $arg )), \"_cthis\", 6, 0);
        $var = INT2PTR($type,SvIV( *svp ));
    } else {
        warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
        XSRETURN_UNDEF;
    }
