POE-Component-NomadJukebox

 view release on metacpan or  search on metacpan

NomadJukebox/Device.xs  view on Meta::CPAN

	return &PL_sv_undef;
}

/**************** Perl Stubs ****************/

MODULE = POE::Component::NomadJukebox::Device		PACKAGE = POE::Component::NomadJukebox::Device		

AV*
Discover ()
	PPCODE:
	HV*    devlist;
	SV*    devid;
//	SV*    type;
	int    n, i;

	devlist = newHV();

	if (NJB_Discover(njbs, 0, &n) == -1) {
		XSRETURN( 0 );
	}

NomadJukebox/Device.xs  view on Meta::CPAN

SV*
Open ( device )
	SV * device
	OUTPUT:
		RETVAL

void
TrackList ( device, extended )
	SV * device
	int extended
	PPCODE:
	njb_t*     njb;
	int        n, count=0;
	songid_t*  songtag;

	if (SvROK( device )) {
		device = SvRV( device );
	}

	njb = (njb_t*) SvIV( device );
	if ( !njb ) {

NomadJukebox/Device.xs  view on Meta::CPAN

	// turn it off
	if ( extended == 1 ) {
		NJB_Get_Extended_Tags(njb, 0);
	}
	XSRETURN(count);

void
PlayList ( device )
	SV * device
	PPCODE:
	njb_t*     njb;
//	njbid_t    njbid;
	int        n, count=0;
	playlist_t*  pl;

	if (SvROK( device )) {
		device = SvRV( device );
	}

	njb = (njb_t*) SvIV( device );

NomadJukebox/Device.xs  view on Meta::CPAN

			av_push(AV_tracklist,trackid);
			trackinfo = trackinfo->next;
		}
		hv_store (HV_playlist_info, "TRACKS", 6, newRV((SV*) AV_tracklist), 0); 
	}
	XSRETURN(count);

void
FileList ( device )
	SV * device
	PPCODE:
	njb_t*     njb;
	int        n, count=0;
	datafile_t*  datatag;

	if (SvROK( device )) {
		device = SvRV( device );
	}

	njb = (njb_t*) SvIV( device );
	if ( !njb ) {

NomadJukebox/Device.xs  view on Meta::CPAN

	OUTPUT:
		RETVAL

void
Close ( device )
	SV * device

AV*
DiskUsage ( device )
	SV*    device
	PPCODE:
	njb_t*     njb;
	HV*    info;
	u_int64_t   total=0, free=0;

	if (SvROK( device )) {
		device = SvRV( device );
	}

	njb = (njb_t*) SvIV( device );
	if ( !njb ) {