TYPEMAP

Node*	T_RC_OBJ

INPUT
T_RC_OBJ
	if (SvROK($arg)) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = ($type) tmp;
	}
	else
	    croak(\"$var is not a reference\")

OUTPUT
T_RC_OBJ
	$arg = node_2sv((Node*) $var);