TYPEMAP
ConnectionID		T_IV
Str255			T_STR255
Str63			T_STR255
OSType			T_OSTYPE
FSSpec			T_FSSPEC
FSRef			T_FSREF
Handle			T_PTROBJ
Ptr			T_PTROBJ
RawPtr			T_IV
OSErr			T_IV
SInt8			T_IV
AEDesc			T_RECORDOBJ
AEKeyDesc		T_RECORDOBJ
AESubDesc		T_RECORDOBJ
AEStream		T_RECORDOBJ
MacOSRet		T_MACOSRET
HandleRet		T_HANDLERET
PtrRet			T_PTRRET
NumVersion		T_RECORDOBJ
Fixed			T_FIXED
Boolean			T_IV
time_t			T_NV
CFStringRef		T_CFSTRINGREF
INPUT
T_MACOSRET
	$var NOT IMPLEMENTED
T_HANDLERET
	$var NOT IMPLEMENTED
T_PTRRET
	$var NOT IMPLEMENTED
T_STR255
	MacPerl_CopyC2P(SvPV_nolen($arg), $var)
T_OSTYPE
	memcpy(&$var, SvPV_nolen($arg), sizeof($ntype));
	$var = ntohl($var);
T_RECORDREF
	if (SvROK($arg))
	    memcpy(&$var, SvPV_nolen((SV*)SvRV($arg)), sizeof($ntype));
	else
	    croak(\"$var is not a reference\")
T_RECORDOBJ
	if (sv_isa($arg, \"${ntype}\"))
	    memcpy(&$var, SvPV_nolen((SV*)SvRV($arg)), sizeof($ntype));
	else
	    croak(\"$var is not of type ${ntype}\")
T_FSSPEC
	if (GUSIPath2FSp((char *) SvPV_nolen($arg), &$var))
		croak(\"$var is not a valid file specification\");
	else
		0
T_FSREF
	if (GUSIPath2FS((char *) SvPV_nolen($arg), &$var))
		croak(\"$var is not a valid file specification\");
	else
		0
T_FIXED
	$var = X2Fix(SvNV($arg))
T_CFSTRINGREF
	$var = CFStringCreateWithCString(kCFAllocatorDefault, (char *) SvPV_nolen($arg), kCFStringEncodingISOLatin1);
OUTPUT
T_MACOSRET
	sv_setiv($arg, (IV)!(gMacPerl_OSErr = (short)($var)));
T_HANDLERET
	if ($var)
	    sv_setref_pv($arg, \"Handle\", (void*)$var);
	else
	    gMacPerl_OSErr = MemError();
T_PTRRET
	if ($var)
	    sv_setref_pv($arg, \"Ptr\", (void*)$var);
	else
	    gMacPerl_OSErr = MemError();
T_STR255
	sv_setpvn($arg, ((char *) $var) + 1, $var\[0\]);
T_OSTYPE
	{ OSType hos = htonl($var);
	  sv_setpvn($arg, (char *) &hos, 4);
	}
T_RECORDREF
	sv_setref_pvn($arg, \"${ntype}\", (void*)&$var, sizeof($ntype));
T_RECORDOBJ
	sv_setref_pvn($arg, \"${ntype}\", (void*)&$var, sizeof($ntype));
T_FSSPEC
	MP_GUSIFSp2FullPath(&$var, $arg);
T_FSREF
	MP_GUSIFS2FullPath(&$var, $arg);
T_FIXED
	sv_setnv($arg, Fix2X($var));
T_CFSTRINGREF
	$var NOT IMPLEMENTED