[p5sagit/p5-mst-13.2.git] / typemap

Thread		T_XSCPTR

INPUT
T_XSCPTR
	STMT_START {
	    MAGIC *mg;
	    SV *sv = ($arg);

	    if (!sv_isobject(sv))
		croak(\"$var is not an object\");
	    sv = (SV*)SvRV(sv);
	    if (!SvRMAGICAL(sv) || !(mg = mg_find(sv, '~')))
		croak(\"XSUB ${func_name}: $var is a forged ${ntype} object\");
	    $var = ($type) SvPVX(mg->mg_obj);
	    DEBUG_L(PerlIO_printf(PerlIO_stderr(),
				  \"XSUB ${func_name}: %p\\n\", $var);)
	} STMT_END
T_IVREF
	if (SvROK($arg))
	    $var = ($type) SvIV((SV*)SvRV($arg));
	else
	    croak(\"$var is not a reference\")
Commit	Line	Data
8df6cea6	1	Thread T_XSCPTR
d9bb3666	2
d9bb3666	3	INPUT
8df6cea6	4	T_XSCPTR
683929b4	5	STMT_START {
	6	MAGIC *mg;
	7	SV *sv = ($arg);
	8
	9	if (!sv_isobject(sv))
	10	croak(\"$var is not an object\");
8df6cea6	11	sv = (SV*)SvRV(sv);
683929b4	12	if (!SvRMAGICAL(sv) \|\| !(mg = mg_find(sv, '~')))
8df6cea6	13	croak(\"XSUB ${func_name}: $var is a forged ${ntype} object\");
683929b4	14	$var = ($type) SvPVX(mg->mg_obj);
dd32f564	15	DEBUG_L(PerlIO_printf(PerlIO_stderr(),
683929b4	16	\"XSUB ${func_name}: %p\\n\", $var);)
683929b4	17	} STMT_END
734689b1	18	T_IVREF
	19	if (SvROK($arg))
	20	$var = ($type) SvIV((SV*)SvRV($arg));
	21	else
	22	croak(\"$var is not a reference\")
d9bb3666	23