view release on metacpan or  search on metacpan

xs/DVBT-tuning.c  view on Meta::CPAN

		// set tuning
		RETVAL = dvb_scan_tune(dvb,
				/* For frontend tuning */
				frequency,
				inversion,
				bandwidth,
				code_rate_high,
				code_rate_low,
				modulation,
				transmission,
				guard_interval,
				hierarchy,
				timeout) ;

	OUTPUT:
        RETVAL


# /*---------------------------------------------------------------------------------------------------*/
# /* Get frontend signal stats */
SV *
dvb_signal_quality(DVB *dvb)

 INIT:
   HV * results;
	unsigned 		ber ;
	unsigned		snr ;
	unsigned		strength ;
	unsigned		uncorrected_blocks ;
	int ok ;

   results = (HV *)sv_2mortal((SV *)newHV());

 CODE:
 	/* get info */
   ok = dvb_signal_quality(dvb, &ber, &snr, &strength, &uncorrected_blocks) ;

 	/** Create Perl data **/
	HVS(results, ber, newSViv((int)ber)) ;
	HVS(results, snr, newSViv((int)snr)) ;
	HVS(results, strength, newSViv((int)strength)) ;
	HVS(results, uncorrected_blocks, newSViv((int)uncorrected_blocks)) ;
	HVS(results, ok, newSViv(ok)) ;

   RETVAL = newRV((SV *)results);
 OUTPUT:
   RETVAL

# /*---------------------------------------------------------------------------------------------------*/
# /* Round up frequency */
int
dvb_round_freq(int freqin)

 CODE:
   RETVAL = ROUND_FREQUENCY(freqin) ;
 OUTPUT:
   RETVAL

# /*---------------------------------------------------------------------------------------------------*/
# /* See if this adapter frontend is busy */
int
dvb_is_busy(DVB *dvb)

 CODE:
   RETVAL = dvb_frontend_is_busy(dvb) ;
 OUTPUT:
   RETVAL