# "perlobject.map"  Dean Roehrich, version 19960302<BR>
#<BR>
# TYPEMAPs<BR>
#<BR>
############################################################<BR>
OUTPUT<BR>
 
# The Perl object is blessed into 'CLASS', which should be a<BR>
# char* having the name of the package for the blessing.<BR>
T_X_PTR<BR>
	sv_setref_pv( $arg,${ntype}_Package, (void*)$var );<BR>
<p> 
############################################################<BR>
INPUT<BR>
 
T_X_PTR<BR>
	if(sv_derived_from($arg,${ntype}_Package)) { <BR>
		IV tmp_ = SvIV((SV*)SvRV($arg));<BR>
		$var = ($type)tmp_;<BR>
	}<BR>
	else<BR>	
		croak(\"$var is not of type %s\",${ntype}_Package);<BR>