[ViewVC] Diff of: cvs/Linux-DVB/DVB.xs

Comparing Linux-DVB/DVB.xs (file contents):
Revision 1.2 by root, Wed Sep 8 19:47:30 2004 UTC vs.
Revision 1.8 by root, Mon May 24 01:52:59 2010 UTC

…		…
7	#include <linux/dvb/frontend.h>	7	#include <linux/dvb/frontend.h>
8	#include <linux/dvb/dmx.h>	8	#include <linux/dvb/dmx.h>
9		9
10	#define CONST(name) { #name, name }	10	#define CONST(name) { #name, name }
11		11
		12	typedef int FE_fd;
		13
12	enum {	14	enum {
13	SCT_PAT = 0x00,	15	SCT_PAT = 0x00,
14	SCT_CAT = 0x01,	16	SCT_CAT = 0x01,
15	SCT_PMT = 0x02,	17	SCT_PMT = 0x02,
16	SCT_TSDT = 0x03,	18	SCT_TSDT = 0x03,
17	SCT_NIT = 0x40,//TODO	19	SCT_NIT = 0x40,//TODO
18	SCT_NIT_OTHER = 0x41,	20	SCT_NIT_OTHER = 0x41,
19	SCT_SDT = 0x42,	21	SCT_SDT = 0x42,
20	SCT_SDT_OTHER = 0x46,	22	SCT_SDT_OTHER = 0x46,
21	SCT_BAT = 0x4a,//TODO	23	SCT_BAT = 0x4a,//TODO
22	SCT_EIT_PRESENT = 0x4e,	24	SCT_EIT_PRESENT = 0x4e,
23	SCT_EIT_PRESENT_OTHER = 0x4f,	25	SCT_EIT_PRESENT_OTHER = 0x4f,
24	SCT_EIT_SCHEDULE0 = 0x50,	26	SCT_EIT_SCHEDULE0 = 0x50,
25	SCT_EIT_SCHEDULE15 = 0x5f,	27	SCT_EIT_SCHEDULE15 = 0x5f,
26	SCT_EIT_SCHEDULE_OTHER0 = 0x60,	28	SCT_EIT_SCHEDULE_OTHER0 = 0x60,
27	SCT_EIT_SCHEDULE_OTHER15 = 0x6f,	29	SCT_EIT_SCHEDULE_OTHER15 = 0x6f,
28	SCT_TDT = 0x70,	30	SCT_TDT = 0x70,
29	SCT_RST = 0x71,	31	SCT_RST = 0x71,
30	SCT_ST = 0x72,	32	SCT_ST = 0x72,
31	SCT_TOT = 0x73,	33	SCT_TOT = 0x73,
32	SCT_RNT = 0x74,	34	SCT_RNT = 0x74,
33	SCT_CST = 0x75,	35	SCT_CST = 0x75,
34	SCT_RCT = 0x76,	36	SCT_RCT = 0x76,
35	SCT_CIT = 0x77,	37	SCT_CIT = 0x77,
36	SCT_MPE = 0x78,	38	SCT_MPE = 0x78,
37	SCT_DIT = 0x7e,	39	SCT_DIT = 0x7e,
38	SCT_SIT = 0x7f,	40	SCT_SIT = 0x7f,
39	};	41	};
40		42
41	enum {	43	enum {
		44	DT_network_name = 0x40,
		45	DT_service_list = 0x41,
		46	DT_satellite_delivery_system = 0x43,
		47	DT_cable_delivery_system = 0x44,
42	DT_service = 0x48,	48	DT_service = 0x48,
43	DT_country_availability = 0x49,	49	DT_country_availability = 0x49,
44	DT_linkage = 0x4a,	50	DT_linkage = 0x4a,
45	DT_short_event = 0x4d,	51	DT_short_event = 0x4d,
46	DT_extended_event = 0x4e, //NYI	52	DT_extended_event = 0x4e, //NYI
47	DT_component = 0x50,	53	DT_component = 0x50,
48	DT_content = 0x54,	54	DT_content = 0x54,
		55	DT_terrestrial_delivery_system = 0x5A,
49	DT_private_data_specifier = 0x5f,	56	DT_private_data_specifier = 0x5f,
50	DT_short_smoothing_buffer = 0x61, //NYI	57	DT_short_smoothing_buffer = 0x61, //NYI
51	DT_scrambling_indicator = 0x65, //NYI	58	DT_scrambling_indicator = 0x65, //NYI
52	DT_PDC = 0x69,	59	DT_PDC = 0x69,
53	};	60	};
54		61
55	static const struct consts {	62	static const struct consts {
56	const char *name;	63	const char *name;
57	const long value;	64	const long value;
…		…
175	CONST (DMX_PES_VIDEO),	182	CONST (DMX_PES_VIDEO),
176	CONST (DMX_PES_TELETEXT),	183	CONST (DMX_PES_TELETEXT),
177	CONST (DMX_PES_SUBTITLE),	184	CONST (DMX_PES_SUBTITLE),
178	CONST (DMX_PES_PCR),	185	CONST (DMX_PES_PCR),
179		186
180	CONST (DMX_SCRAMBLING_EV),	187	//CONST (DMX_SCRAMBLING_EV),
181	CONST (DMX_FRONTEND_EV),	188	//CONST (DMX_FRONTEND_EV),
182		189
183	CONST (DMX_CHECK_CRC),	190	CONST (DMX_CHECK_CRC),
184	CONST (DMX_ONESHOT),	191	CONST (DMX_ONESHOT),
185	CONST (DMX_IMMEDIATE_START),	192	CONST (DMX_IMMEDIATE_START),
186	CONST (DMX_KERNEL_CLIENT),	193	CONST (DMX_KERNEL_CLIENT),
…		…
193	CONST (DMX_SOURCE_DVR0),	200	CONST (DMX_SOURCE_DVR0),
194	CONST (DMX_SOURCE_DVR1),	201	CONST (DMX_SOURCE_DVR1),
195	CONST (DMX_SOURCE_DVR2),	202	CONST (DMX_SOURCE_DVR2),
196	CONST (DMX_SOURCE_DVR3),	203	CONST (DMX_SOURCE_DVR3),
197		204
198	CONST (DMX_SCRAMBLING_OFF),	205	//CONST (DMX_SCRAMBLING_OFF),
199	CONST (DMX_SCRAMBLING_ON),	206	//CONST (DMX_SCRAMBLING_ON),
200		207
201	// constants defined by this file	208	// constants defined by this file
202	CONST (SCT_PAT),	209	CONST (SCT_PAT),
203	CONST (SCT_CAT),	210	CONST (SCT_CAT),
204	CONST (SCT_PMT),	211	CONST (SCT_PMT),
…		…
224	CONST (SCT_CIT),	231	CONST (SCT_CIT),
225	CONST (SCT_MPE),	232	CONST (SCT_MPE),
226	CONST (SCT_DIT),	233	CONST (SCT_DIT),
227	CONST (SCT_SIT),	234	CONST (SCT_SIT),
228		235
		236	CONST (DT_network_name),
		237	CONST (DT_service_list),
		238	CONST (DT_satellite_delivery_system),
		239	CONST (DT_cable_delivery_system),
229	CONST (DT_service),	240	CONST (DT_service),
230	CONST (DT_country_availability),	241	CONST (DT_country_availability),
231	CONST (DT_linkage),	242	CONST (DT_linkage),
232	CONST (DT_short_event),	243	CONST (DT_short_event),
233	CONST (DT_extended_event),	244	CONST (DT_extended_event),
234	CONST (DT_component),	245	CONST (DT_component),
235	CONST (DT_content),	246	CONST (DT_content),
		247	CONST (DT_terrestrial_delivery_system),
236	CONST (DT_private_data_specifier),	248	CONST (DT_private_data_specifier),
237	CONST (DT_short_smoothing_buffer),	249	CONST (DT_short_smoothing_buffer),
238	CONST (DT_scrambling_indicator),	250	CONST (DT_scrambling_indicator),
239	CONST (DT_PDC),	251	CONST (DT_PDC),
240	};	252	};
…		…
242	#define HVS_S(hv,struct,member) hv_store (hv, #member, sizeof (#member) - 1, newSVpv (struct.member, 0), 0)	254	#define HVS_S(hv,struct,member) hv_store (hv, #member, sizeof (#member) - 1, newSVpv (struct.member, 0), 0)
243	#define HVS_I(hv,struct,member) hv_store (hv, #member, sizeof (#member) - 1, newSViv (struct.member), 0)	255	#define HVS_I(hv,struct,member) hv_store (hv, #member, sizeof (#member) - 1, newSViv (struct.member), 0)
244	#define HVS(hv,name,sv) hv_store (hv, #name, sizeof (#name) - 1, (sv), 0)	256	#define HVS(hv,name,sv) hv_store (hv, #name, sizeof (#name) - 1, (sv), 0)
245		257
246	static void	258	static void
247	set_parameters (HV hv, struct dvb_frontend_parameters p, fe_type_t type)	259	get_parameters (HV hv, struct dvb_frontend_parameters p, fe_type_t type)
248	{	260	{
249	HVS_I (hv, (*p), frequency);	261	HVS_I (hv, (*p), frequency);
250	HVS_I (hv, (*p), inversion);	262	HVS_I (hv, (*p), inversion);
251		263
252	switch (type)	264	switch (type)
…		…
270	HVS_I (hv, (*p).u.ofdm, transmission_mode);	282	HVS_I (hv, (*p).u.ofdm, transmission_mode);
271	break;	283	break;
272	}	284	}
273	}	285	}
274		286
		287	#define HVF_I(hv,struct,member) \
		288	if (v = hv_fetch (hv, #member, sizeof (#member) - 1, 0)) \
		289	struct.member = SvIV (*v); \
		290	else \
		291	croak ("required hash key '%s' not specified", #member);
		292
		293	static void
		294	set_parameters (HV hv, struct dvb_frontend_parameters p, fe_type_t type)
		295	{
		296	SV **v;
		297
		298	HVF_I (hv, (*p), frequency);
		299	HVF_I (hv, (*p), inversion);
		300
		301	switch (type)
		302	{
		303	case FE_QPSK:
		304	HVF_I (hv, (*p).u.qpsk, symbol_rate);
		305	HVF_I (hv, (*p).u.qpsk, fec_inner);
		306	break;
		307
		308	case FE_QAM:
		309	HVF_I (hv, (*p).u.qam, symbol_rate);
		310	HVF_I (hv, (*p).u.qam, fec_inner);
		311	HVF_I (hv, (*p).u.qam, modulation);
		312	break;
		313
		314	case FE_OFDM:
		315	HVF_I (hv, (*p).u.ofdm, bandwidth);
		316	HVF_I (hv, (*p).u.ofdm, code_rate_HP);
		317	HVF_I (hv, (*p).u.ofdm, code_rate_LP);
		318	HVF_I (hv, (*p).u.ofdm, constellation);
		319	HVF_I (hv, (*p).u.ofdm, transmission_mode);
		320	break;
		321	}
		322	}
		323
275	typedef unsigned char u8;	324	typedef unsigned char u8;
276		325
277	static SV *dec_sv;	326	static SV *dec_sv;
278	static u8 *dec_data;	327	static u8 *dec_data;
279	static long dec_ofs, dec_len8;	328	static long dec_ofs, dec_len8;
…		…
287	{	336	{
288	if (dec_sv)	337	if (dec_sv)
289	SvREFCNT_dec (dec_sv);	338	SvREFCNT_dec (dec_sv);
290		339
291	dec_sv = newSVsv (data);	340	dec_sv = newSVsv (data);
292	dec_data = SvPVbyte (dec_sv, dec_len);	341	dec_data = (u8 *)SvPVbyte (dec_sv, dec_len);
293	dec_ofs = 0;	342	dec_ofs = 0;
294	dec_len8 = dec_len << 3;	343	dec_len8 = dec_len << 3;
295	}	344	}
296		345
297	static U32	346	static U32
…		…
325	}	374	}
326		375
327	return dec_field = r;	376	return dec_field = r;
328	}	377	}
329		378
		379	U32
		380	clamp (U32 len)
		381	{
		382	return len < 4096
		383	&& len <= dec_len8 - (dec_ofs >> 3) + 1 /* +1 to detect overflows */
		384	? len : 0;
		385	}
		386
		387	/* works on SvPOK strings ONLY */
		388	void
		389	safe_sv_chop (SV *sv, STRLEN count)
		390	{
		391	if ((U32)count >= (U32)SvCUR (sv))
		392	SvCUR_set (sv, 0);
		393	else
		394	sv_chop (sv, SvPVX (sv) + count);
		395	}
		396
		397	U32
		398	bcd_to_int (U32 bcd_number)
		399	{
		400	U32 result = 0;
		401	U32 multiplicator = 1;
		402
		403	while (bcd_number != 0)
		404	{
		405	result += (bcd_number & 0x0f) * multiplicator;
		406	bcd_number >>= 4;
		407	multiplicator *= 10;
		408	}
		409
		410	return result;
		411	}
		412
330	static SV *	413	static SV *
331	text2sv (u8 *data, U32 len)	414	text2sv (u8 *data, U32 len)
332	{	415	{
333	dSP;	416	dSP;
334	SV *sv = newSVpvn (data, len);	417	SV sv = newSVpvn ((char )data, clamp (len));
335		418
336	PUSHMARK (SP);	419	PUSHMARK (SP);
337	XPUSHs (sv);	420	XPUSHs (sv);
338	PUTBACK;	421	PUTBACK;
339	call_pv ("Linux::DVB::Decode::text", G_VOID);	422	call_pv ("Linux::DVB::Decode::text", G_VOID);
340		423
341	return sv;	424	return sv;
342	}	425	}
343		426
344	#define DEC_I(hv, bits, name) HVS (hv, name, newSViv (decode_field (bits)))	427	#define DEC_I(hv, bits, name) HVS (hv, name, newSViv (decode_field (bits)))
345	#define DEC_T(hv, bytes, name) HVS (hv, name, text2sv (dec_data + (dec_ofs >> 3), (bytes))), dec_ofs += (bytes) << 3	428	#define DEC_T(hv, bytes, name) HVS (hv, name, text2sv (dec_data + (dec_ofs >> 3), clamp (bytes))), dec_ofs += clamp (bytes) << 3
346	#define DEC_S(hv, bytes, name) HVS (hv, name, newSVpvn (dec_data + (dec_ofs >> 3), (bytes))), dec_ofs += (bytes) << 3	429	#define DEC_S(hv, bytes, name) HVS (hv, name, newSVpvn ((char *)dec_data + (dec_ofs >> 3), clamp (bytes))), dec_ofs += clamp (bytes) << 3
347		430
348	static AV *	431	static AV *
349	decode_descriptors (long end)	432	decode_descriptors (long end)
350	{	433	{
351	AV *av = newAV ();	434	AV *av = newAV ();
…		…
367	if (end > dec_len8)	450	if (end > dec_len8)
368	return av;	451	return av;
369		452
370	switch (type)	453	switch (type)
371	{	454	{
		455	case DT_network_name:
		456	DEC_T (hv, (end - dec_ofs) >> 3, network_name);
		457	break;
		458
		459	case DT_service_list:
		460	{
		461	AV *services = newAV ();
		462	HVS (hv, services, newRV_noinc ((SV *)services));
		463
		464	while (dec_ofs < end)
		465	{
		466	HV *sv = newHV ();
		467	av_push (services, newRV_noinc ((SV *)sv));
		468
		469	DEC_I (sv, 16, service_id);
		470	DEC_I (sv, 8, service_type);
		471
		472	}
		473	}
		474
		475	break;
		476
		477	case DT_satellite_delivery_system:
		478	HVS (hv, frequency, newSVuv (bcd_to_int (decode_field (32))));
		479	HVS (hv, orbital_position, newSVnv (bcd_to_int (decode_field (32)) / 10));
		480	DEC_I (hv, 1, west_east_flag);
		481	DEC_I (hv, 2, polarization);
		482	DEC_I (hv, 5, modulation);
		483	HVS (hv, symbol_rate, newSVuv (bcd_to_int (decode_field (28))));
		484	DEC_I (hv, 4, fec_inner);
		485	break;
		486
		487	case DT_cable_delivery_system:
		488	{
		489	I16 qam_modulation = -1;
		490
		491	HVS (hv, frequency, newSVuv (bcd_to_int (decode_field (32))));
		492	decode_field (12); // reserved
		493	DEC_I (hv, 4, fec_outer);
		494
		495	DEC_I (hv, 8, modulation);
		496
		497	if (dec_field >= 1 && dec_field <= 5)
		498	qam_modulation = 1 << dec_field + 3;
		499
		500	HVS (hv, modulation_qam, newSViv (qam_modulation));
		501
		502	HVS (hv, symbol_rate, newSVuv (bcd_to_int (decode_field (28))));
		503	DEC_I (hv, 4, fec_inner);
		504
		505	break;
		506	}
		507
372	case DT_service:	508	case DT_service:
373	DEC_I (hv, 8, service_type);	509	DEC_I (hv, 8, service_type);
374	len2 = decode_field (8); DEC_T (hv, len2, service_provider_name);	510	len2 = decode_field (8); DEC_T (hv, len2, service_provider_name);
375	len2 = decode_field (8); DEC_T (hv, len2, service_name);	511	len2 = decode_field (8); DEC_T (hv, len2, service_name);
376	break;	512	break;
…		…
448		584
449	len2 = decode_field (8); DEC_T (hv, len2, text);	585	len2 = decode_field (8); DEC_T (hv, len2, text);
450	break;	586	break;
451		587
452	case DT_content:	588	case DT_content:
453	DEC_S (hv, len, content);	589	av2 = newAV ();
		590	HVS (hv, items, newRV_noinc ((SV *)av2));
		591
		592	while (dec_ofs < end)
		593	{
		594	HV *ev = newHV ();
		595
		596	DEC_I (ev, 4, content_nibble_level_1);
		597	DEC_I (ev, 4, content_nibble_level_2);
		598	DEC_I (ev, 4, user_nibble_1);
		599	DEC_I (ev, 4, user_nibble_2);
		600
		601	av_push (av2, newRV_noinc ((SV *)ev));
		602	}
		603
454	break;	604	break;
		605
		606	case DT_terrestrial_delivery_system:
		607	{
		608	I8 bandwidth_mhz = -1;
		609
		610	HVS (hv, centre_frequency, newSVuv (decode_field (32) * 10));
		611
		612	DEC_I (hv, 3, bandwidth);
		613
		614	if (dec_field <= 3)
		615	bandwidth_mhz = 8 - dec_field;
		616
		617	HVS (hv, bandwidth_mhz, newSViv (bandwidth_mhz));
		618
		619	DEC_I (hv, 1, priority);
		620	DEC_I (hv, 1, time_slicing_indicator);
		621	DEC_I (hv, 1, mpe_fec_indicator);
		622	decode_field (2); // reserved
		623	DEC_I (hv, 2, constellation);
		624	DEC_I (hv, 3, hierarchy_information);
		625	DEC_I (hv, 3, code_rate_hp_stream);
		626	DEC_I (hv, 3, code_rate_lp_stream);
		627	DEC_I (hv, 2, guard_interval);
		628	DEC_I (hv, 2, transmission_mode);
		629	DEC_I (hv, 1, other_frequency_use);
		630	decode_field (32);
		631	}
		632	break;
455		633
456	case DT_private_data_specifier:	634	case DT_private_data_specifier:
457	DEC_I (hv, 32, private_data_specifier);	635	DEC_I (hv, 32, private_data_specifier);
458	break;	636	break;
459		637
460	default:	638	default:
461	fprintf (stderr, "UNKXXX %x\n", type);//D	639	//fprintf (stderr, "UNKXXX %x\n", type);//D
		640
462	case 0:	641	case 0:
463	case 0x80:	642	case 0x80:
464	case 0x81:	643	case 0x81:
465	case 0x82:	644	case 0x82:
466	case 0x83:	645	case 0x83:
…		…
496	}	675	}
497		676
498	MODULE = Linux::DVB PACKAGE = Linux::DVB::Frontend	677	MODULE = Linux::DVB PACKAGE = Linux::DVB::Frontend
499		678
500	SV *	679	SV *
501	_frontend_info (int fd)	680	frontend_info (FE_fd fd)
502	CODE:	681	CODE:
503	struct dvb_frontend_info fi;	682	struct dvb_frontend_info fi;
504	HV *hv;	683	HV *hv;
505		684
506	if (ioctl (fd, FE_GET_INFO, &fi) < 0)	685	if (ioctl (fd, FE_GET_INFO, &fi) < 0)
…		…
523	RETVAL = (SV )newRV_noinc ((SV )hv);	702	RETVAL = (SV )newRV_noinc ((SV )hv);
524	OUTPUT:	703	OUTPUT:
525	RETVAL	704	RETVAL
526		705
527	long	706	long
528	_read_status (int fd)	707	read_status (FE_fd fd)
529	CODE:	708	CODE:
530	fe_status_t st;	709	fe_status_t st;
531		710
532	if (ioctl (fd, FE_READ_STATUS, &st) < 0)	711	if (ioctl (fd, FE_READ_STATUS, &st) < 0)
533	XSRETURN_UNDEF;	712	XSRETURN_UNDEF;
…		…
535	RETVAL = st;	714	RETVAL = st;
536	OUTPUT:	715	OUTPUT:
537	RETVAL	716	RETVAL
538		717
539	U32	718	U32
540	_read_ber (int fd)	719	read_ber (FE_fd fd)
541	CODE:	720	CODE:
542	uint32_t ber;	721	uint32_t ber;
543	if (ioctl (fd, FE_READ_BER, &ber) < 0)	722	if (ioctl (fd, FE_READ_BER, &ber) < 0)
544	XSRETURN_UNDEF;	723	XSRETURN_UNDEF;
545		724
546	RETVAL = ber;	725	RETVAL = ber;
547	OUTPUT:	726	OUTPUT:
548	RETVAL	727	RETVAL
549		728
550	U32	729	U32
551	_read_snr (int fd)	730	read_snr (FE_fd fd)
552	CODE:	731	CODE:
553	uint32_t ber;	732	uint32_t ber;
554	if (ioctl (fd, FE_READ_SNR, &ber) < 0)	733	if (ioctl (fd, FE_READ_SNR, &ber) < 0)
555	XSRETURN_UNDEF;	734	XSRETURN_UNDEF;
556		735
…		…
558	OUTPUT:	737	OUTPUT:
559	RETVAL	738	RETVAL
560		739
561		740
562	I16	741	I16
563	_signal_strength (int fd)	742	signal_strength (FE_fd fd)
564	CODE:	743	CODE:
565	int16_t st;	744	int16_t st;
566	if (ioctl (fd, FE_READ_SIGNAL_STRENGTH, &st) < 0)	745	if (ioctl (fd, FE_READ_SIGNAL_STRENGTH, &st) < 0)
567	XSRETURN_UNDEF;	746	XSRETURN_UNDEF;
568		747
…		…
570	OUTPUT:	749	OUTPUT:
571	RETVAL	750	RETVAL
572		751
573		752
574	U32	753	U32
575	_uncorrected_blocks (int fd)	754	uncorrected_blocks (FE_fd fd)
576	CODE:	755	CODE:
577	uint32_t ubl;	756	uint32_t ubl;
578	if (ioctl (fd, FE_READ_UNCORRECTED_BLOCKS, &ubl) < 0)	757	if (ioctl (fd, FE_READ_UNCORRECTED_BLOCKS, &ubl) < 0)
579	XSRETURN_UNDEF;	758	XSRETURN_UNDEF;
580		759
581	RETVAL = ubl;	760	RETVAL = ubl;
582	OUTPUT:	761	OUTPUT:
583	RETVAL	762	RETVAL
584		763
		764	int
		765	_set (int fd, SV *parameters, int type)
		766	CODE:
		767	struct dvb_frontend_parameters p;
		768
		769	if (!SvROK (parameters) \|\| SvTYPE (SvRV (parameters)) != SVt_PVHV)
		770	croak ("Linux::DVB::Frontend::set requires a hash as argument");
		771
		772	set_parameters ((HV *)SvRV (parameters), &p, type);
		773
		774	if (ioctl (fd, FE_SET_FRONTEND, &p) < 0)
		775	XSRETURN_UNDEF;
		776
		777	RETVAL = 1;
		778	OUTPUT:
		779	RETVAL
		780
585	SV *	781	SV *
586	_get (int fd, int type)	782	_get (int fd, int type)
587	CODE:	783	CODE:
588	struct dvb_frontend_parameters p;	784	struct dvb_frontend_parameters p;
589	HV *hv;	785	HV *hv;
590		786
591	if (ioctl (fd, FE_GET_FRONTEND, &p) < 0)	787	if (ioctl (fd, FE_GET_FRONTEND, &p) < 0)
592	XSRETURN_UNDEF;	788	XSRETURN_UNDEF;
593		789
594	hv = newHV ();	790	hv = newHV ();
595	set_parameters (hv, &p, type);	791	get_parameters (hv, &p, type);
596	RETVAL = (SV )newRV_noinc ((SV )hv);	792	RETVAL = (SV )newRV_noinc ((SV )hv);
597	OUTPUT:	793	OUTPUT:
598	RETVAL	794	RETVAL
599		795
600	SV *	796	SV *
…		…
606	if (ioctl (fd, FE_GET_EVENT, &e) < 0)	802	if (ioctl (fd, FE_GET_EVENT, &e) < 0)
607	XSRETURN_UNDEF;	803	XSRETURN_UNDEF;
608		804
609	hv = newHV ();	805	hv = newHV ();
610	HVS_I (hv, e, status);	806	HVS_I (hv, e, status);
611	set_parameters (hv, &e.parameters, type);	807	get_parameters (hv, &e.parameters, type);
612	RETVAL = (SV )newRV_noinc ((SV )hv);	808	RETVAL = (SV )newRV_noinc ((SV )hv);
		809	OUTPUT:
		810	RETVAL
		811
		812	int
		813	diseqc_reset_overload (FE_fd fd)
		814	CODE:
		815	RETVAL = !!ioctl (fd, FE_DISEQC_RESET_OVERLOAD);
		816	OUTPUT:
		817	RETVAL
		818
		819	int
		820	diseqc_voltage (FE_fd fd, int volts)
		821	CODE:
		822	RETVAL = !!ioctl (fd, FE_SET_VOLTAGE, volts == 18
		823	? SEC_VOLTAGE_18
		824	: SEC_VOLTAGE_13);
		825	OUTPUT:
		826	RETVAL
		827
		828	int
		829	diseqc_tone (FE_fd fd, int on)
		830	CODE:
		831	RETVAL = !!ioctl (fd, FE_SET_TONE, on ? SEC_TONE_ON : SEC_TONE_OFF);
		832	OUTPUT:
		833	RETVAL
		834
		835	int
		836	diseqc_send_burst (FE_fd fd, int type)
		837	CODE:
		838	RETVAL = !!ioctl (fd, FE_DISEQC_SEND_BURST, type ? SEC_MINI_B : SEC_MINI_A);
		839	OUTPUT:
		840	RETVAL
		841
		842	int
		843	diseqc_cmd (FE_fd fd, SV *command_)
		844	CODE:
		845	{
		846	STRLEN len;
		847	char *command = SvPVbyte (command_, len);
		848	struct dvb_diseqc_master_cmd cmd;
		849
		850	memcpy (cmd.msg, command, len);
		851	cmd.msg_len = len;
		852	RETVAL = !!ioctl (fd, FE_DISEQC_SEND_MASTER_CMD, &cmd);
		853	}
		854	OUTPUT:
		855	RETVAL
		856
		857	SV *
		858	diseqc_reply (FE_fd fd, int timeout_ms)
		859	CODE:
		860	{
		861	struct dvb_diseqc_slave_reply rep;
		862	rep.timeout = timeout_ms;
		863
		864	if (!!ioctl (fd, FE_DISEQC_RECV_SLAVE_REPLY, &rep))
		865	RETVAL = newSVpvn ((char *)rep.msg, rep.msg_len);
		866	else
		867	RETVAL = &PL_sv_undef;
		868	}
613	OUTPUT:	869	OUTPUT:
614	RETVAL	870	RETVAL
615		871
616	MODULE = Linux::DVB PACKAGE = Linux::DVB::Demux	872	MODULE = Linux::DVB PACKAGE = Linux::DVB::Demux
617		873
…		…
677	RETVAL	933	RETVAL
678		934
679	MODULE = Linux::DVB PACKAGE = Linux::DVB::Decode PREFIX = decode_	935	MODULE = Linux::DVB PACKAGE = Linux::DVB::Decode PREFIX = decode_
680		936
681	void	937	void
682	set (SV *data)	938	decode_set (SV *data)
683	CODE:	939	CODE:
684		940
685	int	941	int
686	len ()	942	decode_len ()
687	CODE:	943	CODE:
688	RETVAL = (dec_ofs + 7) >> 3;	944	RETVAL = (dec_ofs + 7) >> 3;
689	OUTPUT:	945	OUTPUT:
690	RETVAL	946	RETVAL
691		947
692	U32	948	U32
693	field (int bits)	949	decode_field (int bits)
694		950
695	SV *	951	SV *
696	si (SV *stream)	952	decode_si (SV *stream)
697	CODE:	953	CODE:
698	HV *hv = newHV ();	954	HV *hv = newHV ();
699		955
		956	int syntax_indicator;
700	U8 table_id;	957	U8 table_id;
701	U16 length;	958	U16 length;
702	long end;	959	long end;
703		960
704	decode_set (stream);	961	decode_set (stream);
…		…
706	do {	963	do {
707	DEC_I (hv, 8, table_id);	964	DEC_I (hv, 8, table_id);
708	table_id = dec_field;	965	table_id = dec_field;
709	} while (table_id == 0xff);	966	} while (table_id == 0xff);
710		967
711	DEC_I (hv, 1, section_syntax_indicator);	968	syntax_indicator = decode_field (1);
		969	HVS (hv, section_syntax_indicator, newSViv (syntax_indicator));
		970
712	decode_field (1);	971	decode_field (1);
713	decode_field (2);	972	decode_field (2);
714		973
715	length = decode_field (12);	974	length = decode_field (12);
716	end = dec_ofs + (length << 3);	975	end = dec_ofs + (length << 3);
717		976
		977	if (syntax_indicator)
		978	{
718	switch (table_id)	979	switch (table_id)
719	{	980	{
		981	case SCT_NIT:
		982	case SCT_NIT_OTHER:
		983	{
		984	U16 descriptor_end_offset;
		985
		986	DEC_I (hv, 16, network_id);
		987	decode_field (2); // reserved
		988	DEC_I (hv, 5, version_number);
		989	DEC_I (hv, 1, current_next_indicator);
		990	DEC_I (hv, 8, section_number);
		991	DEC_I (hv, 8, last_section_number);
		992	decode_field (4); // reserved
		993
		994	AV *desc;
		995	descriptor_end_offset = dec_ofs + (decode_field (12) << 3);
		996	desc = decode_descriptors (descriptor_end_offset);
		997	HVS (hv,network_descriptors, newRV_noinc ((SV *)desc));
		998
		999	decode_field (4); //reserved
		1000	decode_field (12); // Skip length, we read until the end
		1001
		1002	AV *events = newAV ();
		1003	HVS (hv, events, newRV_noinc ((SV *)events));
		1004	while (end - dec_ofs > 32)
		1005	{
		1006	long dll;
		1007	HV *ev = newHV ();
		1008	av_push (events, newRV_noinc ((SV *)ev));
		1009
		1010	DEC_I (ev, 16, transport_stream_id);
		1011	DEC_I (ev, 16, original_network_id);
		1012	decode_field (4);
		1013
		1014	dll = dec_ofs + (decode_field (12) << 3);
		1015	desc = decode_descriptors (dll);
		1016	HVS (ev, descriptors, newRV_noinc ((SV *)desc));
		1017	}
		1018
		1019	decode_field (32); // skip CRC
		1020	}
		1021
		1022	break;
		1023
720	case SCT_EIT_PRESENT:	1024	case SCT_EIT_PRESENT:
721	case SCT_EIT_PRESENT_OTHER:	1025	case SCT_EIT_PRESENT_OTHER:
722	case SCT_EIT_SCHEDULE0...SCT_EIT_SCHEDULE15: //GCC	1026	case SCT_EIT_SCHEDULE0...SCT_EIT_SCHEDULE15: //GCC
723	case SCT_EIT_SCHEDULE_OTHER0...SCT_EIT_SCHEDULE_OTHER15: //GCC	1027	case SCT_EIT_SCHEDULE_OTHER0...SCT_EIT_SCHEDULE_OTHER15: //GCC
724	DEC_I (hv, 16, service_id);
725	decode_field (2);
726	DEC_I (hv, 5, version_number);
727	DEC_I (hv, 1, current_next_indicator);
728	DEC_I (hv, 8, section_number);
729	DEC_I (hv, 8, last_section_number);
730	DEC_I (hv, 16, transport_stream_id);
731	DEC_I (hv, 16, original_network_id);
732	DEC_I (hv, 8, segment_last_section_number);
733	DEC_I (hv, 8, last_table_id);
734
735	AV *events = newAV ();
736	HVS (hv, events, newRV_noinc ((SV *)events));
737
738	while (end - dec_ofs > 32)
739	{
740	long dll;
741	AV *desc;
742	HV *ev = newHV ();
743	av_push (events, newRV_noinc ((SV *)ev));
744
745	DEC_I (ev, 16, event_id);
746	DEC_I (ev, 16, start_time_mjd);
747	DEC_I (ev, 24, start_time_hms);
748	DEC_I (ev, 24, duration);
749	DEC_I (ev, 3, running_status);
750	DEC_I (ev, 1, free_CA_mode);
751
752	dll = dec_ofs + (decode_field (12) << 3);
753
754	desc = decode_descriptors (dll);
755	HVS (ev, descriptors, newRV_noinc ((SV *)desc));
756	}
757
758	decode_field (32); // skip CRC
759
760	break;
761
762	case SCT_SDT:
763	case SCT_SDT_OTHER:
764	DEC_I (hv, 16, transport_stream_id);
765	decode_field (2);
766	DEC_I (hv, 5, version_number);
767	DEC_I (hv, 1, current_next_indicator);
768	DEC_I (hv, 8, section_number);
769	DEC_I (hv, 8, last_section_number);
770	DEC_I (hv, 16, original_network_id);
771	decode_field (8);
772
773	AV *services = newAV ();
774	HVS (hv, services, newRV_noinc ((SV *)services));
775
776	while (end - dec_ofs > 32)
777	{
778	HV *ev = newHV ();
779	U32 dll;
780	AV *desc;
781	av_push (services, newRV_noinc ((SV *)ev));
782
783	DEC_I (ev, 16, service_id);
784	decode_field (6);
785	DEC_I (ev, 1, EIT_schedule_flags);
786	DEC_I (ev, 1, EIT_present_following_flag);
787	DEC_I (ev, 3, running_status);
788	DEC_I (ev, 1, free_CA_mode);
789
790	dll = dec_ofs + (decode_field (12) << 3);
791		1028	{
		1029	DEC_I (hv, 16, service_id);
		1030	decode_field (2);
		1031	DEC_I (hv, 5, version_number);
		1032	DEC_I (hv, 1, current_next_indicator);
		1033	DEC_I (hv, 8, section_number);
		1034	DEC_I (hv, 8, last_section_number);
		1035	DEC_I (hv, 16, transport_stream_id);
		1036	DEC_I (hv, 16, original_network_id);
		1037	DEC_I (hv, 8, segment_last_section_number);
		1038	DEC_I (hv, 8, last_table_id);
		1039
		1040	AV *events = newAV ();
		1041	HVS (hv, events, newRV_noinc ((SV *)events));
		1042
		1043	while (end - dec_ofs > 32)
		1044	{
		1045	long dll;
		1046	AV *desc;
		1047	HV *ev = newHV ();
		1048	av_push (events, newRV_noinc ((SV *)ev));
		1049
		1050	DEC_I (ev, 16, event_id);
		1051	DEC_I (ev, 16, start_time_mjd);
		1052	DEC_I (ev, 24, start_time_hms);
		1053	DEC_I (ev, 24, duration);
		1054	DEC_I (ev, 3, running_status);
		1055	DEC_I (ev, 1, free_CA_mode);
		1056
		1057	dll = dec_ofs + (decode_field (12) << 3);
		1058
		1059	desc = decode_descriptors (dll);
		1060	HVS (ev, descriptors, newRV_noinc ((SV *)desc));
		1061	}
		1062
		1063	decode_field (32); // skip CRC
		1064	}
		1065
		1066	break;
		1067
		1068	case SCT_SDT:
		1069	case SCT_SDT_OTHER:
		1070	DEC_I (hv, 16, transport_stream_id);
		1071	decode_field (2);
		1072	DEC_I (hv, 5, version_number);
		1073	DEC_I (hv, 1, current_next_indicator);
		1074	DEC_I (hv, 8, section_number);
		1075	DEC_I (hv, 8, last_section_number);
		1076	DEC_I (hv, 16, original_network_id);
		1077	decode_field (8);
		1078
		1079	AV *services = newAV ();
		1080	HVS (hv, services, newRV_noinc ((SV *)services));
		1081
		1082	while (end - dec_ofs > 32)
		1083	{
		1084	HV *ev = newHV ();
		1085	U32 dll;
		1086	AV *desc;
		1087	av_push (services, newRV_noinc ((SV *)ev));
		1088
		1089	DEC_I (ev, 16, service_id);
		1090	decode_field (6);
		1091	DEC_I (ev, 1, EIT_schedule_flags);
		1092	DEC_I (ev, 1, EIT_present_following_flag);
		1093	DEC_I (ev, 3, running_status);
		1094	DEC_I (ev, 1, free_CA_mode);
		1095
		1096	dll = dec_ofs + (decode_field (12) << 3);
		1097
792	desc = decode_descriptors (dll);	1098	desc = decode_descriptors (dll);
793	HVS (ev, descriptors, newRV_noinc ((SV *)desc));	1099	HVS (ev, descriptors, newRV_noinc ((SV *)desc));
794	}	1100	}
795		1101
796	decode_field (32); // skip CRC	1102	decode_field (32); // skip CRC
797	break;	1103	break;
798		1104
799	default:	1105	default:
800	DEC_S (hv, length, raw_data);	1106	DEC_S (hv, length, raw_data);
801	break;	1107	break;
		1108	}
		1109
		1110	if (decode_overflow)
		1111	{
		1112	SvREFCNT_dec (hv);
		1113	safe_sv_chop (stream, (end + 7) >> 3);
		1114	XSRETURN_UNDEF;
		1115	}
		1116
		1117	safe_sv_chop (stream, (dec_ofs + 7) >> 3);
802	}	1118	}
803		1119	else
804	if (decode_overflow)
805	{	1120	{
806	SvREFCNT_dec (hv);	1121	SvREFCNT_dec (hv);
		1122	safe_sv_chop (stream, (end + 7) >> 3);
807	XSRETURN_UNDEF;	1123	XSRETURN_UNDEF;
808	}	1124	}
809		1125
810	sv_chop (stream, SvPVX (stream) + ((dec_ofs + 7) >> 3));
811
812	RETVAL = (SV )newRV_noinc ((SV )hv);	1126	RETVAL = (SV )newRV_noinc ((SV )hv);
813	OUTPUT:	1127	OUTPUT:
814	RETVAL	1128	RETVAL
815		1129

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing Linux-DVB/DVB.xs (file contents): Revision 1.2 by root, Wed Sep 8 19:47:30 2004 UTC vs. Revision 1.8 by root, Mon May 24 01:52:59 2010 UTC

Diff Legend

Comparing Linux-DVB/DVB.xs (file contents):
Revision 1.2 by root, Wed Sep 8 19:47:30 2004 UTC vs.
Revision 1.8 by root, Mon May 24 01:52:59 2010 UTC