MLA_Album					T_PTROBJ_LIBMTP
MLA_AlbumList					T_PTROBJ_LIBMTP
MLA_AllowedValues				T_PTROBJ_LIBMTP
MLA_DeviceStorage				T_PTROBJ_LIBMTP
MLA_Error					T_PTROBJ_LIBMTP
MLA_File					T_PTROBJ_LIBMTP
MLA_FileList					T_PTROBJ_LIBMTP
MLA_FileSampleData				T_PTROBJ_LIBMTP
MLA_Folder					T_PTROBJ_LIBMTP
MLA_FolderList					T_PTROBJ_LIBMTP
MLA_MTPDevice					T_PTROBJ_LIBMTP
MLA_MTPDeviceList				T_PTROBJ_LIBMTP
MLA_Playlist					T_PTROBJ_LIBMTP
MLA_PlaylistList				T_PTROBJ_LIBMTP
MLA_RawDevice					T_PTROBJ_LIBMTP
MLA_RawDeviceList				T_PTROBJ_LIBMTP
MLA_Track					T_PTROBJ_LIBMTP
MLA_TrackList					T_PTROBJ_LIBMTP

Utf8String					T_PV_UTF8
Utf8StringConst					T_PV_UTF8
Utf8String2Free					T_PV_UTF8_FREE

LIBMTP_datatype_t				T_IV
LIBMTP_error_number_t				T_IV
LIBMTP_filetype_t				T_IV
LIBMTP_property_t				T_IV
int8_t						T_IV
int16_t						T_IV
int32_t						T_IV
uint8_t						T_UV
uint16_t					T_UV
uint32_t					T_UV

uint8_t *					T_ARRAY
int8_t *					T_ARRAY
uint16_t *					T_ARRAY
int16_t *					T_ARRAY
uint32_t *					T_ARRAY
int32_t *					T_ARRAY
uint64_t *					T_ARRAY
int64_t *					T_ARRAY

int64_t						T_NV
uint64_t					T_NV

#############################################################################
INPUT
T_PTROBJ_LIBMTP
	if (SvROK($arg) && sv_derived_from($arg, \"${(my $ntt=$ntype)=~s/^MLA_/Media::LibMTP::API::/g;\$ntt}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = INT2PTR($type,tmp);
	}
	else
	    Perl_croak(aTHX_ \"%s: %s is not of type %s\",
			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
			\"$var\", \"${(my $ntt=$ntype)=~s/^MLA_/Media::LibMTP::API::/g;\$ntt}\")

T_PV_UTF8
	sv_utf8_upgrade((SV*)$arg);
	$var = ($type)SvPV_nolen($arg)


#############################################################################
OUTPUT
T_PTROBJ_LIBMTP
	sv_setref_pv($arg, \"${(my $ntt=$ntype)=~s/^MLA_/Media::LibMTP::API::/g;\$ntt}\", (void*)$var);

T_PV_UTF8_FREE
	if ($var) {
	  sv_setpv((SV*)$arg, $var);
	  SvUTF8_on((SV*)$arg);
	  Safefree($var);
	} else {
	  SvOK_off((SV*)$arg); /* Undef */
	}

T_PV_UTF8
	if ($var) {
	  sv_setpv((SV*)$arg, $var);
	  SvUTF8_on((SV*)$arg);
	} else {
	  SvOK_off((SV*)$arg); /* Undef */
	}