DVB: privatize scan_t
[vlc.git] / modules / access / dvb / access.c
1 /*****************************************************************************
2  * access.c: DVB card input v4l2 only
3  *****************************************************************************
4  * Copyright (C) 1998-2010 the VideoLAN team
5  *
6  * Authors: Johan Bilien <jobi@via.ecp.fr>
7  *          Jean-Paul Saman <jpsaman _at_ videolan _dot_ org>
8  *          Christophe Massiot <massiot@via.ecp.fr>
9  *          Laurent Aimar <fenrir@via.ecp.fr>
10  *          David Kaplan <david@2of1.org>
11  *
12  * This program is free software; you can redistribute it and/or modify
13  * it under the terms of the GNU General Public License as published by
14  * the Free Software Foundation; either version 2 of the License, or
15  * (at your option) any later version.
16  *
17  * This program is distributed in the hope that it will be useful,
18  * but WITHOUT ANY WARRANTY; without even the implied warranty of
19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
20  * GNU General Public License for more details.
21  *
22  * You should have received a copy of the GNU General Public License along
23  * with this program; if not, write to the Free Software Foundation, Inc.,
24  * 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
25  *****************************************************************************/
26
27
28 /*****************************************************************************
29  * Preamble
30  *****************************************************************************/
31 #ifdef HAVE_CONFIG_H
32 # include "config.h"
33 #endif
34
35 #include <vlc_common.h>
36 #include <vlc_plugin.h>
37 #include <vlc_access.h>
38 #include <vlc_input.h>
39
40 #include <sys/types.h>
41 #include <poll.h>
42
43 #include <errno.h>
44
45 /* Include dvbpsi headers */
46 # include <dvbpsi/dvbpsi.h>
47 # include <dvbpsi/descriptor.h>
48 # include <dvbpsi/pat.h>
49 # include <dvbpsi/pmt.h>
50 # include <dvbpsi/dr.h>
51 # include <dvbpsi/psi.h>
52 # include <dvbpsi/demux.h>
53 # include <dvbpsi/sdt.h>
54
55 #include "dvb.h"
56 #include "scan.h"
57
58 /*****************************************************************************
59  * Module descriptor
60  *****************************************************************************/
61 static int  Open( vlc_object_t *p_this );
62 static void Close( vlc_object_t *p_this );
63
64 #define CACHING_TEXT N_("Caching value in ms")
65 #define CACHING_LONGTEXT N_( \
66     "Caching value for DVB streams. This " \
67     "value should be set in milliseconds." )
68
69 #define ADAPTER_TEXT N_("Adapter card to tune")
70 #define ADAPTER_LONGTEXT N_("Adapter cards have a device file in directory named /dev/dvb/adapter[n] with n>=0.")
71
72 #define DEVICE_TEXT N_("Device number to use on adapter")
73 #define DEVICE_LONGTEXT ""
74
75 #define FREQ_TEXT N_("Transponder/multiplex frequency")
76 #define FREQ_LONGTEXT N_("In kHz for DVB-S or Hz for DVB-C/T")
77
78 #define INVERSION_TEXT N_("Inversion mode")
79 #define INVERSION_LONGTEXT N_("Inversion mode [0=off, 1=on, 2=auto]")
80
81 #define PROBE_TEXT N_("Probe DVB card for capabilities")
82 #define PROBE_LONGTEXT N_("Some DVB cards do not like to be probed for their capabilities, you can disable this feature if you experience some trouble.")
83
84 #define BUDGET_TEXT N_("Budget mode")
85 #define BUDGET_LONGTEXT N_("This allows you to stream an entire transponder with a \"budget\" card.")
86
87 /* Satellite */
88 #define SATELLITE_TEXT N_("Satellite scanning config")
89 #define SATELLITE_LONGTEXT N_("filename of config file in share/dvb/dvb-s")
90
91 #define SATNO_TEXT N_("Satellite number in the Diseqc system")
92 #define SATNO_LONGTEXT N_("[0=no diseqc, 1-4=satellite number].")
93
94 #define VOLTAGE_TEXT N_("LNB voltage (V)")
95 #define VOLTAGE_LONGTEXT ""
96 static const int voltages[] = { 0, 13, 18 };
97 static const char *const voltages_text[] = { N_("off"), N_("13 V"), N_("18 V") };
98
99 #define HIGH_VOLTAGE_TEXT N_("High LNB voltage")
100 #define HIGH_VOLTAGE_LONGTEXT N_("Enable high voltage if your cables are " \
101     "particularly long. This is not supported by all frontends.")
102
103 #define TONE_TEXT N_("22 kHz tone")
104 #define TONE_LONGTEXT N_("[0=off, 1=on, -1=auto].")
105
106 #define FEC_TEXT N_("Transponder FEC")
107 #define FEC_LONGTEXT N_("FEC=Forward Error Correction mode [9=auto].")
108
109 #define SRATE_TEXT N_("Transponder symbol rate in kHz")
110 #define SRATE_LONGTEXT ""
111
112 #define LNB_LOF1_TEXT N_("Antenna lnb_lof1 (kHz)")
113 #define LNB_LOF1_LONGTEXT ""
114
115 #define LNB_LOF2_TEXT N_("Antenna lnb_lof2 (kHz)")
116 #define LNB_LOF2_LONGTEXT ""
117
118 #define LNB_SLOF_TEXT N_("Antenna lnb_slof (kHz)")
119 #define LNB_SLOF_LONGTEXT ""
120
121 /* Cable */
122 #define MODULATION_TEXT N_("Modulation type")
123 #define MODULATION_LONGTEXT ""
124 static const int modulations[] = {
125     -1, 0, 8, 16, 32, 64, 128, 256 };
126 static const char *const modulations_text[] = {
127     N_("QPSK"), N_("Auto (QAM)"), N_("VSB 8"), N_("QAM 16"), N_("QAM 32"),
128     N_("QAM 64"), N_("QAM 128"), N_("QAM 256") };
129
130 /* Terrestrial */
131 #define CODE_RATE_HP_TEXT N_("Terrestrial high priority stream code rate (FEC)")
132 #define CODE_RATE_HP_LONGTEXT ""
133
134 #define CODE_RATE_LP_TEXT N_("Terrestrial low priority stream code rate (FEC)")
135 #define CODE_RATE_LP_LONGTEXT ""
136
137 #define BANDWIDTH_TEXT N_("Terrestrial bandwidth")
138 #define BANDWIDTH_LONGTEXT N_("Terrestrial bandwidth [0=auto,6,7,8 in MHz]")
139
140 #define GUARD_TEXT N_("Terrestrial guard interval")
141 #define GUARD_LONGTEXT ""
142
143 #define TRANSMISSION_TEXT N_("Terrestrial transmission mode")
144 #define TRANSMISSION_LONGTEXT ""
145
146 #define HIERARCHY_TEXT N_("Terrestrial hierarchy mode")
147 #define HIERARCHY_LONGTEXT ""
148
149 #define HOST_TEXT N_( "HTTP Host address" )
150 #define HOST_LONGTEXT N_( \
151     "To enable the internal HTTP server, set its address and port here." )
152
153 #define USER_TEXT N_( "HTTP user name" )
154 #define USER_LONGTEXT N_( \
155     "User name the administrator will use to log into " \
156     "the internal HTTP server." )
157
158 #define PASSWORD_TEXT N_( "HTTP password" )
159 #define PASSWORD_LONGTEXT N_( \
160     "Password the administrator will use to log into " \
161     "the internal HTTP server." )
162
163 #define ACL_TEXT N_( "HTTP ACL" )
164 #define ACL_LONGTEXT N_( \
165     "Access control list (equivalent to .hosts) file path, " \
166     "which will limit the range of IPs entitled to log into the internal " \
167     "HTTP server." )
168
169 #define CERT_TEXT N_( "Certificate file" )
170 #define CERT_LONGTEXT N_( "HTTP interface x509 PEM certificate file " \
171                           "(enables SSL)" )
172
173 #define KEY_TEXT N_( "Private key file" )
174 #define KEY_LONGTEXT N_( "HTTP interface x509 PEM private key file" )
175
176 #define CA_TEXT N_( "Root CA file" )
177 #define CA_LONGTEXT N_( "HTTP interface x509 PEM trusted root CA " \
178                         "certificates file" )
179
180 #define CRL_TEXT N_( "CRL file" )
181 #define CRL_LONGTEXT N_( "HTTP interface Certificates Revocation List file" )
182
183 vlc_module_begin ()
184     set_shortname( N_("DVB") )
185     set_description( N_("DVB input with v4l2 support") )
186     set_category( CAT_INPUT )
187     set_subcategory( SUBCAT_INPUT_ACCESS )
188
189     add_integer( "dvb-caching", DEFAULT_PTS_DELAY / 1000, CACHING_TEXT,
190                  CACHING_LONGTEXT, true )
191         change_safe()
192     add_integer( "dvb-adapter", 0, ADAPTER_TEXT, ADAPTER_LONGTEXT,
193                  false )
194     add_integer( "dvb-device", 0, DEVICE_TEXT, DEVICE_LONGTEXT,
195                  true )
196     add_integer( "dvb-frequency", 0, FREQ_TEXT, FREQ_LONGTEXT,
197                  false )
198         change_safe()
199     add_integer( "dvb-inversion", 2, INVERSION_TEXT, INVERSION_LONGTEXT,
200                  true )
201     add_bool( "dvb-probe", true, PROBE_TEXT, PROBE_LONGTEXT, true )
202     add_bool( "dvb-budget-mode", false, BUDGET_TEXT, BUDGET_LONGTEXT,
203               true )
204     /* DVB-S (satellite) */
205     add_string( "dvb-satellite", NULL, SATELLITE_TEXT, SATELLITE_LONGTEXT,
206                 true )
207     add_integer( "dvb-satno", 0, SATNO_TEXT, SATNO_LONGTEXT,
208                  true )
209     add_integer( "dvb-voltage", 13, VOLTAGE_TEXT, VOLTAGE_LONGTEXT,
210                  true )
211         change_integer_list( voltages, voltages_text )
212     add_bool( "dvb-high-voltage", false, HIGH_VOLTAGE_TEXT,
213               HIGH_VOLTAGE_LONGTEXT, true )
214     add_integer( "dvb-tone", -1, TONE_TEXT, TONE_LONGTEXT,
215                  true )
216     add_integer( "dvb-fec", 9, FEC_TEXT, FEC_LONGTEXT, true )
217     add_integer( "dvb-srate", 27500000, SRATE_TEXT, SRATE_LONGTEXT,
218                  false )
219     add_integer( "dvb-lnb-lof1", 0, LNB_LOF1_TEXT,
220                  LNB_LOF1_LONGTEXT, true )
221     add_integer( "dvb-lnb-lof2", 0, LNB_LOF2_TEXT,
222                  LNB_LOF2_LONGTEXT, true )
223     add_integer( "dvb-lnb-slof", 0, LNB_SLOF_TEXT,
224                  LNB_SLOF_LONGTEXT, true )
225     /* DVB-C (cable) */
226     add_integer( "dvb-modulation", 0, MODULATION_TEXT,
227                  MODULATION_LONGTEXT, true )
228         change_integer_list( modulations, modulations_text )
229     /* DVB-T (terrestrial) */
230     add_integer( "dvb-code-rate-hp", 9, CODE_RATE_HP_TEXT,
231                  CODE_RATE_HP_LONGTEXT, true )
232     add_integer( "dvb-code-rate-lp", 9, CODE_RATE_LP_TEXT,
233                  CODE_RATE_LP_LONGTEXT, true )
234     add_integer( "dvb-bandwidth", 0, BANDWIDTH_TEXT, BANDWIDTH_LONGTEXT,
235                  true )
236         change_safe()
237     add_integer( "dvb-guard", 0, GUARD_TEXT, GUARD_LONGTEXT, true )
238     add_integer( "dvb-transmission", 0, TRANSMISSION_TEXT,
239                  TRANSMISSION_LONGTEXT, true )
240     add_integer( "dvb-hierarchy", 0, HIERARCHY_TEXT, HIERARCHY_LONGTEXT,
241                  true )
242 #ifdef ENABLE_HTTPD
243     /* MMI HTTP interface */
244     set_section( N_("HTTP server" ), 0 )
245     add_string( "dvb-http-host", NULL, HOST_TEXT, HOST_LONGTEXT,
246                 true )
247     add_string( "dvb-http-user", NULL, USER_TEXT, USER_LONGTEXT,
248                 true )
249     add_password( "dvb-http-password", NULL, PASSWORD_TEXT,
250                   PASSWORD_LONGTEXT, true )
251     add_string( "dvb-http-acl", NULL, ACL_TEXT, ACL_LONGTEXT,
252                 true )
253     add_loadfile( "dvb-http-intf-cert", NULL, CERT_TEXT, CERT_LONGTEXT,
254                 true )
255     add_loadfile( "dvb-http-intf-key",  NULL, KEY_TEXT,  KEY_LONGTEXT,
256                 true )
257     add_loadfile( "dvb-http-intf-ca",   NULL, CA_TEXT,   CA_LONGTEXT,
258                 true )
259     add_loadfile( "dvb-http-intf-crl",  NULL, CRL_TEXT,  CRL_LONGTEXT,
260                 true )
261 #endif
262
263     set_capability( "access", 0 )
264     add_shortcut( "dvb",                        /* Generic name */
265                   "dvb-s", "qpsk", "satellite", /* Satellite */
266                   "dvb-c", "cable",             /* Cable */
267                   "dvb-t", "terrestrial",       /* Terrestrial */
268                   "atsc" )                      /* Atsc */
269     add_shortcut( "usdigital" )
270
271     set_callbacks( Open, Close )
272
273 vlc_module_end ()
274
275
276 /*****************************************************************************
277  * Local prototypes
278  *****************************************************************************/
279 static block_t *Block( access_t * );
280 static int Control( access_t *, int, va_list );
281
282 static block_t *BlockScan( access_t * );
283
284 #define DVB_READ_ONCE 20
285 #define DVB_READ_ONCE_START 2
286 #define DVB_READ_ONCE_SCAN 1
287 #define TS_PACKET_SIZE 188
288
289 #define DVB_SCAN_MAX_SIGNAL_TIME (1000*1000)
290 #define DVB_SCAN_MAX_LOCK_TIME (5000*1000)
291 #define DVB_SCAN_MAX_PROBE_TIME (45000*1000)
292
293 static void FilterUnset( access_t *, int i_max );
294 static void FilterUnsetPID( access_t *, int i_pid );
295 static void FilterSet( access_t *, int i_pid, int i_type );
296
297 static void VarInit( access_t * );
298 static int  ParseMRL( access_t * );
299
300 /*****************************************************************************
301  * Open: open the frontend device
302  *****************************************************************************/
303 static int Open( vlc_object_t *p_this )
304 {
305     access_t     *p_access = (access_t*)p_this;
306     access_sys_t *p_sys;
307
308     /* Only if selected */
309     if( *p_access->psz_access == '\0' )
310         return VLC_EGENERIC;
311
312     /* Set up access */
313     p_access->pf_read = NULL;
314     p_access->pf_block = Block;
315     p_access->pf_control = Control;
316     p_access->pf_seek = NULL;
317
318     access_InitFields( p_access );
319
320     p_access->p_sys = p_sys = calloc( 1, sizeof( access_sys_t ) );
321     if( !p_sys )
322         return VLC_ENOMEM;
323
324     /* Create all variables */
325     VarInit( p_access );
326
327     /* Parse the command line */
328     if( ParseMRL( p_access ) )
329     {
330         free( p_sys );
331         return VLC_EGENERIC;
332     }
333
334     /* Getting frontend info */
335     if( FrontendOpen( p_access) )
336     {
337         free( p_sys );
338         return VLC_EGENERIC;
339     }
340
341     /* */
342     bool b_scan_mode = var_GetInteger( p_access, "dvb-frequency" ) == 0;
343     if( b_scan_mode )
344     {
345         msg_Dbg( p_access, "DVB scan mode selected" );
346         p_access->pf_block = BlockScan;
347     }
348     else
349     {
350         /* Setting frontend parameters for tuning the hardware */
351         msg_Dbg( p_access, "trying to tune the frontend...");
352         if( FrontendSet( p_access ) < 0 )
353         {
354             FrontendClose( p_access );
355             free( p_sys );
356             return VLC_EGENERIC;
357         }
358     }
359
360     /* Opening DVR device */
361     if( DVROpen( p_access ) < 0 )
362     {
363         FrontendClose( p_access );
364         free( p_sys );
365         return VLC_EGENERIC;
366     }
367
368     if( b_scan_mode )
369     {
370         scan_parameter_t parameter;
371         scan_t *p_scan;
372
373         msg_Dbg( p_access, "setting filter on PAT/NIT/SDT (DVB only)" );
374         FilterSet( p_access, 0x00, OTHER_TYPE );    // PAT
375         FilterSet( p_access, 0x10, OTHER_TYPE );    // NIT
376         FilterSet( p_access, 0x11, OTHER_TYPE );    // SDT
377
378         if( FrontendGetScanParameter( p_access, &parameter ) ||
379             (p_scan = scan_New( VLC_OBJECT(p_access), &parameter )) == NULL )
380         {
381             Close( VLC_OBJECT(p_access) );
382             return VLC_EGENERIC;
383         }
384         p_sys->scan = p_scan;
385         p_sys->i_read_once = DVB_READ_ONCE_SCAN;
386     }
387     else
388     {
389         p_sys->b_budget_mode = var_GetBool( p_access, "dvb-budget-mode" );
390         if( p_sys->b_budget_mode )
391         {
392             msg_Dbg( p_access, "setting filter on all PIDs" );
393             FilterSet( p_access, 0x2000, OTHER_TYPE );
394             p_sys->i_read_once = DVB_READ_ONCE;
395         }
396         else
397         {
398             msg_Dbg( p_access, "setting filter on PAT" );
399             FilterSet( p_access, 0x0, OTHER_TYPE );
400             p_sys->i_read_once = DVB_READ_ONCE_START;
401         }
402
403         CAMOpen( p_access );
404
405 #ifdef ENABLE_HTTPD
406         HTTPOpen( p_access );
407 #endif
408     }
409
410     free( p_access->psz_demux );
411     p_access->psz_demux = strdup( p_sys->scan ? "m3u8" : "ts" );
412     return VLC_SUCCESS;
413 }
414
415 /*****************************************************************************
416  * Close : Close the device
417  *****************************************************************************/
418 static void Close( vlc_object_t *p_this )
419 {
420     access_t     *p_access = (access_t*)p_this;
421     access_sys_t *p_sys = p_access->p_sys;
422
423     FilterUnset( p_access, p_sys->b_budget_mode && !p_sys->scan ? 1 : MAX_DEMUX );
424
425     DVRClose( p_access );
426     FrontendClose( p_access );
427     if( p_sys->scan != NULL )
428         scan_Destroy( p_sys->scan );
429     else
430     {
431         CAMClose( p_access );
432 #ifdef ENABLE_HTTPD
433         HTTPClose( p_access );
434 #endif
435     }
436
437     free( p_sys );
438 }
439
440 /*****************************************************************************
441  * Block:
442  *****************************************************************************/
443 static block_t *Block( access_t *p_access )
444 {
445     access_sys_t *p_sys = p_access->p_sys;
446     block_t *p_block;
447
448     for ( ; ; )
449     {
450         struct pollfd ufds[2];
451         int i_ret;
452
453         /* Initialize file descriptor sets */
454         memset (ufds, 0, sizeof (ufds));
455         ufds[0].fd = p_sys->i_handle;
456         ufds[0].events = POLLIN;
457         ufds[1].fd = p_sys->i_frontend_handle;
458         ufds[1].events = POLLPRI;
459
460         /* We'll wait 0.5 second if nothing happens */
461         /* Find if some data is available */
462         i_ret = poll( ufds, 2, 500 );
463
464         if ( !vlc_object_alive (p_access) )
465             return NULL;
466
467         if ( i_ret < 0 )
468         {
469             if( errno == EINTR )
470                 continue;
471
472             msg_Err( p_access, "poll error: %m" );
473             return NULL;
474         }
475
476         if ( p_sys->i_ca_handle && mdate() > p_sys->i_ca_next_event )
477         {
478             CAMPoll( p_access );
479             p_sys->i_ca_next_event = mdate() + p_sys->i_ca_timeout;
480         }
481
482         if ( ufds[1].revents )
483         {
484             FrontendPoll( p_access );
485         }
486
487 #ifdef ENABLE_HTTPD
488         if ( p_sys->i_httpd_timeout && mdate() > p_sys->i_httpd_timeout )
489         {
490             vlc_mutex_lock( &p_sys->httpd_mutex );
491             if ( p_sys->b_request_frontend_info )
492             {
493                 msg_Warn( p_access, "frontend timeout for HTTP interface" );
494                 p_sys->b_request_frontend_info = false;
495                 p_sys->psz_frontend_info = strdup( "Timeout getting info\n" );
496             }
497             if ( p_sys->b_request_mmi_info )
498             {
499                 msg_Warn( p_access, "MMI timeout for HTTP interface" );
500                 p_sys->b_request_mmi_info = false;
501                 p_sys->psz_mmi_info = strdup( "Timeout getting info\n" );
502             }
503             vlc_cond_signal( &p_sys->httpd_cond );
504             vlc_mutex_unlock( &p_sys->httpd_mutex );
505         }
506
507         if ( p_sys->b_request_frontend_info )
508         {
509             FrontendStatus( p_access );
510         }
511
512         if ( p_sys->b_request_mmi_info )
513         {
514             CAMStatus( p_access );
515         }
516 #endif
517
518         if ( p_sys->i_frontend_timeout && mdate() > p_sys->i_frontend_timeout )
519         {
520             msg_Warn( p_access, "no lock, tuning again" );
521             FrontendSet( p_access );
522         }
523
524         if ( ufds[0].revents )
525         {
526             p_block = block_New( p_access,
527                                  p_sys->i_read_once * TS_PACKET_SIZE );
528             if( ( i_ret = read( p_sys->i_handle, p_block->p_buffer,
529                                 p_sys->i_read_once * TS_PACKET_SIZE ) ) <= 0 )
530             {
531                 msg_Warn( p_access, "read failed (%m)" );
532                 block_Release( p_block );
533                 continue;
534             }
535             p_block->i_buffer = i_ret;
536             break;
537         }
538     }
539
540     if( p_sys->i_read_once < DVB_READ_ONCE )
541         p_sys->i_read_once++;
542
543     /* Update moderatly the signal properties */
544     if( (p_sys->i_stat_counter++ % 100) == 0 )
545         p_access->info.i_update |= INPUT_UPDATE_SIGNAL;
546
547     return p_block;
548 }
549
550 /*****************************************************************************
551  * BlockScan:
552  *****************************************************************************/
553 static block_t *BlockScan( access_t *p_access )
554 {
555     access_sys_t *p_sys = p_access->p_sys;
556     scan_t *p_scan = p_sys->scan;
557     scan_configuration_t cfg;
558     scan_session_t session;
559
560     /* */
561     if( scan_Next( p_scan, &cfg ) )
562     {
563         const bool b_first_eof = !p_access->info.b_eof;
564
565         if( b_first_eof )
566             msg_Warn( p_access, "Scanning finished" );
567
568         /* */
569         p_access->info.b_eof = true;
570         return b_first_eof ? scan_GetM3U( p_scan ) : NULL;
571     }
572
573     /* */
574
575     if( scan_session_Init( VLC_OBJECT(p_access), &session, &cfg ) )
576         return NULL;
577
578     /* */
579     msg_Dbg( p_access, "Scanning frequency %d", cfg.i_frequency );
580     var_SetInteger( p_access, "dvb-frequency", cfg.i_frequency );
581     msg_Dbg( p_access, " bandwidth %d", cfg.i_bandwidth );
582     var_SetInteger( p_access, "dvb-bandwidth", cfg.i_bandwidth );
583     if ( cfg.i_fec )
584     {
585         msg_Dbg( p_access, " FEC %d", cfg.i_fec );
586         var_SetInteger( p_access, "dvb-fec", cfg.i_fec );
587     }
588     if ( cfg.c_polarization )
589         var_SetInteger( p_access, "dvb-voltage", cfg.c_polarization == 'H' ? 18 : 13 );
590
591     /* Setting frontend parameters for tuning the hardware */
592     if( FrontendSet( p_access ) < 0 )
593     {
594         msg_Err( p_access, "Failed to tune the frontend" );
595         p_access->info.b_eof = true;
596         return NULL;
597     }
598
599     /* */
600     int64_t i_scan_start = mdate();
601
602     bool b_has_dvb_signal = false;
603     bool b_has_lock = false;
604     int i_best_snr = -1;
605
606     for ( ; ; )
607     {
608         struct pollfd ufds[2];
609         int i_ret;
610
611         /* Initialize file descriptor sets */
612         memset (ufds, 0, sizeof (ufds));
613         ufds[0].fd = p_sys->i_handle;
614         ufds[0].events = POLLIN;
615         ufds[1].fd = p_sys->i_frontend_handle;
616         ufds[1].events = POLLPRI;
617
618         /* We'll wait 0.1 second if nothing happens */
619         /* Find if some data is available */
620         i_ret = poll( ufds, 2, 100 );
621
622         if( !vlc_object_alive (p_access) || scan_IsCancelled( p_scan ) )
623             break;
624
625         if( i_ret <= 0 )
626         {
627             const mtime_t i_scan_time = mdate() - i_scan_start;
628             frontend_status_t status;
629
630             FrontendGetStatus( p_access, &status );
631
632             b_has_dvb_signal |= status.b_has_carrier;
633             b_has_lock |= status.b_has_lock;
634
635             if( ( !b_has_dvb_signal && i_scan_time > DVB_SCAN_MAX_SIGNAL_TIME ) ||
636                 ( !b_has_lock && i_scan_time > DVB_SCAN_MAX_LOCK_TIME ) ||
637                 ( i_scan_time > DVB_SCAN_MAX_PROBE_TIME ) )
638             {
639                 msg_Dbg( p_access, "timed out scanning current frequency (s=%d l=%d)", b_has_dvb_signal, b_has_lock );
640                 break;
641             }
642         }
643
644         if( i_ret < 0 )
645         {
646             if( errno == EINTR )
647                 continue;
648
649             msg_Err( p_access, "poll error: %m" );
650             scan_session_Clean( p_scan, &session );
651
652             p_access->info.b_eof = true;
653             return NULL;
654         }
655
656         if( ufds[1].revents )
657         {
658             frontend_statistic_t stat;
659
660             FrontendPoll( p_access );
661
662             if( !FrontendGetStatistic( p_access, &stat ) )
663             {
664                 if( stat.i_snr > i_best_snr )
665                     i_best_snr = stat.i_snr;
666             }
667         }
668
669         if ( p_sys->i_frontend_timeout && mdate() > p_sys->i_frontend_timeout )
670         {
671             msg_Warn( p_access, "no lock, tuning again" );
672             FrontendSet( p_access );
673         }
674
675         if ( ufds[0].revents )
676         {
677             const int i_read_once = 1;
678             block_t *p_block = block_New( p_access, i_read_once * TS_PACKET_SIZE );
679
680             if( ( i_ret = read( p_sys->i_handle, p_block->p_buffer,
681                                 i_read_once * TS_PACKET_SIZE ) ) <= 0 )
682             {
683                 msg_Warn( p_access, "read failed (%m)" );
684                 block_Release( p_block );
685                 continue;
686             }
687             p_block->i_buffer = i_ret;
688
689             /* */
690             if( scan_session_Push( &session, p_block ) )
691             {
692                 msg_Dbg( p_access, "finished scanning current frequency" );
693                 break;
694             }
695         }
696     }
697
698     /* */
699     if( i_best_snr > 0 )
700         scan_service_SetSNR( &session, i_best_snr );
701
702     scan_session_Clean( p_scan, &session );
703     return NULL;
704 }
705
706 /*****************************************************************************
707  * Control:
708  *****************************************************************************/
709 static int Control( access_t *p_access, int i_query, va_list args )
710 {
711     access_sys_t *p_sys = p_access->p_sys;
712     bool         *pb_bool, b_bool;
713     int          i_int;
714     int64_t      *pi_64;
715     double       *pf1, *pf2;
716     dvbpsi_pmt_t *p_pmt;
717     frontend_statistic_t stat;
718
719     switch( i_query )
720     {
721         /* */
722         case ACCESS_CAN_SEEK:
723         case ACCESS_CAN_FASTSEEK:
724         case ACCESS_CAN_PAUSE:
725         case ACCESS_CAN_CONTROL_PACE:
726             pb_bool = (bool*)va_arg( args, bool* );
727             *pb_bool = false;
728             break;
729         /* */
730         case ACCESS_GET_PTS_DELAY:
731             pi_64 = (int64_t*)va_arg( args, int64_t * );
732             *pi_64 = var_GetInteger( p_access, "dvb-caching" ) * 1000;
733             break;
734
735         /* */
736         case ACCESS_SET_PAUSE_STATE:
737         case ACCESS_GET_TITLE_INFO:
738         case ACCESS_SET_TITLE:
739         case ACCESS_SET_SEEKPOINT:
740         case ACCESS_GET_CONTENT_TYPE:
741             return VLC_EGENERIC;
742
743         case ACCESS_GET_SIGNAL:
744             pf1 = (double*)va_arg( args, double * );
745             pf2 = (double*)va_arg( args, double * );
746
747             *pf1 = *pf2 = 0;
748             if( !FrontendGetStatistic( p_access, &stat ) )
749             {
750                 *pf1 = (double)stat.i_snr / 65535.0;
751                 *pf2 = (double)stat.i_signal_strenth / 65535.0;
752             }
753             return VLC_SUCCESS;
754
755         case ACCESS_SET_PRIVATE_ID_STATE:
756             if( p_sys->scan )
757                 return VLC_EGENERIC;
758
759             i_int  = (int)va_arg( args, int );               /* Private data (pid for now)*/
760             b_bool = (bool)va_arg( args, int ); /* b_selected */
761             if( !p_sys->b_budget_mode )
762             {
763                 /* FIXME we may want to give the real type (me ?, I don't ;) */
764                 if( b_bool )
765                     FilterSet( p_access, i_int, OTHER_TYPE );
766                 else
767                     FilterUnsetPID( p_access, i_int );
768             }
769             break;
770
771         case ACCESS_SET_PRIVATE_ID_CA:
772             if( p_sys->scan )
773                 return VLC_EGENERIC;
774
775             p_pmt = (dvbpsi_pmt_t *)va_arg( args, dvbpsi_pmt_t * );
776
777             CAMSet( p_access, p_pmt );
778             break;
779
780         default:
781             msg_Warn( p_access, "unimplemented query in control" );
782             return VLC_EGENERIC;
783
784     }
785     return VLC_SUCCESS;
786 }
787
788 /*****************************************************************************
789  * FilterSet/FilterUnset:
790  *****************************************************************************/
791 static void FilterSet( access_t *p_access, int i_pid, int i_type )
792 {
793     access_sys_t *p_sys = p_access->p_sys;
794     int i;
795
796     /* Find first free slot */
797     for( i = 0; i < MAX_DEMUX; i++ )
798     {
799         if( !p_sys->p_demux_handles[i].i_type )
800             break;
801
802         if( p_sys->p_demux_handles[i].i_pid == i_pid )
803             return; /* Already set */
804     }
805
806     if( i >= MAX_DEMUX )
807     {
808         msg_Err( p_access, "no free p_demux_handles !" );
809         return;
810     }
811
812     if( DMXSetFilter( p_access, i_pid,
813                            &p_sys->p_demux_handles[i].i_handle, i_type ) )
814     {
815         msg_Err( p_access, "DMXSetFilter failed" );
816         return;
817     }
818     p_sys->p_demux_handles[i].i_type = i_type;
819     p_sys->p_demux_handles[i].i_pid = i_pid;
820
821     if( p_sys->i_read_once < DVB_READ_ONCE )
822         p_sys->i_read_once++;
823 }
824
825 static void FilterUnset( access_t *p_access, int i_max )
826 {
827     access_sys_t *p_sys = p_access->p_sys;
828     int i;
829
830     for( i = 0; i < i_max; i++ )
831     {
832         if( p_sys->p_demux_handles[i].i_type )
833         {
834             DMXUnsetFilter( p_access, p_sys->p_demux_handles[i].i_handle );
835             p_sys->p_demux_handles[i].i_type = 0;
836         }
837     }
838 }
839
840 static void FilterUnsetPID( access_t *p_access, int i_pid )
841 {
842     access_sys_t *p_sys = p_access->p_sys;
843     int i;
844
845     for( i = 0; i < MAX_DEMUX; i++ )
846     {
847         if( p_sys->p_demux_handles[i].i_type &&
848             p_sys->p_demux_handles[i].i_pid == i_pid )
849         {
850             DMXUnsetFilter( p_access, p_sys->p_demux_handles[i].i_handle );
851             p_sys->p_demux_handles[i].i_type = 0;
852         }
853     }
854 }
855
856 /*****************************************************************************
857  * VarInit/ParseMRL:
858  *****************************************************************************/
859 static void VarInit( access_t *p_access )
860 {
861     /* */
862     var_Create( p_access, "dvb-caching", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
863
864     /* */
865     var_Create( p_access, "dvb-adapter", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
866     var_Create( p_access, "dvb-device", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
867     var_Create( p_access, "dvb-frequency", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
868     var_Create( p_access, "dvb-inversion", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
869     var_Create( p_access, "dvb-probe", VLC_VAR_BOOL | VLC_VAR_DOINHERIT );
870     var_Create( p_access, "dvb-budget-mode", VLC_VAR_BOOL | VLC_VAR_DOINHERIT );
871
872     /* */
873     var_Create( p_access, "dvb-satellite", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
874     var_Create( p_access, "dvb-satno", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
875     var_Create( p_access, "dvb-voltage", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
876     var_Create( p_access, "dvb-high-voltage", VLC_VAR_BOOL | VLC_VAR_DOINHERIT );
877     var_Create( p_access, "dvb-tone", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
878     var_Create( p_access, "dvb-fec", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
879     var_Create( p_access, "dvb-srate", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
880     var_Create( p_access, "dvb-lnb-lof1", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
881     var_Create( p_access, "dvb-lnb-lof2", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
882     var_Create( p_access, "dvb-lnb-slof", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
883
884     /* */
885     var_Create( p_access, "dvb-modulation", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
886
887     /* */
888     var_Create( p_access, "dvb-code-rate-hp", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
889     var_Create( p_access, "dvb-code-rate-lp", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
890     var_Create( p_access, "dvb-bandwidth", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
891     var_Create( p_access, "dvb-transmission", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
892     var_Create( p_access, "dvb-guard", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
893     var_Create( p_access, "dvb-hierarchy", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
894
895 #ifdef ENABLE_HTTPD
896     var_Create( p_access, "dvb-http-host", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
897     var_Create( p_access, "dvb-http-user", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
898     var_Create( p_access, "dvb-http-password", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
899     var_Create( p_access, "dvb-http-acl", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
900     var_Create( p_access, "dvb-http-intf-cert", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
901     var_Create( p_access, "dvb-http-intf-key", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
902     var_Create( p_access, "dvb-http-intf-ca", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
903     var_Create( p_access, "dvb-http-intf-crl", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
904 #endif
905 }
906
907 /* */
908 static int ParseMRL( access_t *p_access )
909 {
910     char *psz_dup = strdup( p_access->psz_location );
911     char *psz_parser = psz_dup;
912     vlc_value_t         val;
913
914 #define GET_OPTION_INT( option )                                            \
915     if ( !strncmp( psz_parser, option "=", strlen(option "=") ) )           \
916     {                                                                       \
917         val.i_int = strtol( psz_parser + strlen(option "="), &psz_parser,   \
918                             0 );                                            \
919         var_Set( p_access, "dvb-" option, val );                            \
920     }
921
922 #define GET_OPTION_BOOL( option )                                           \
923     if ( !strncmp( psz_parser, option "=", strlen(option "=") ) )           \
924     {                                                                       \
925         val.b_bool = strtol( psz_parser + strlen(option "="), &psz_parser,  \
926                              0 );                                           \
927         var_Set( p_access, "dvb-" option, val );                            \
928     }
929
930 #define GET_OPTION_STRING( option )                                         \
931     if ( !strncmp( psz_parser, option "=", strlen( option "=" ) ) )         \
932     {                                                                       \
933         psz_parser += strlen( option "=" );                                 \
934         val.psz_string = psz_parser;                                        \
935         char *p_save;                                                       \
936         char *tok = strtok_r(val.psz_string, ":", &p_save);                 \
937         val.psz_string[tok - val.psz_string - 1] = 0;                       \
938         var_Set( p_access, "dvb-" option, val );                            \
939         psz_parser += strlen( val.psz_string );                             \
940     }
941
942     while( *psz_parser )
943     {
944         GET_OPTION_INT("adapter")
945         else GET_OPTION_INT("device")
946         else GET_OPTION_INT("frequency")
947         else GET_OPTION_INT("inversion")
948         else GET_OPTION_BOOL("probe")
949         else GET_OPTION_BOOL("budget-mode")
950
951         else GET_OPTION_STRING("satellite")
952         else GET_OPTION_INT("voltage")
953         else GET_OPTION_BOOL("high-voltage")
954         else GET_OPTION_INT("tone")
955         else GET_OPTION_INT("satno")
956         else GET_OPTION_INT("fec")
957         else GET_OPTION_INT("srate")
958         else GET_OPTION_INT("lnb-lof1")
959         else GET_OPTION_INT("lnb-lof2")
960         else GET_OPTION_INT("lnb-slof")
961
962         else GET_OPTION_INT("modulation")
963
964         else GET_OPTION_INT("code-rate-hp")
965         else GET_OPTION_INT("code-rate-lp")
966         else GET_OPTION_INT("bandwidth")
967         else GET_OPTION_INT("transmission")
968         else GET_OPTION_INT("guard")
969         else GET_OPTION_INT("hierarchy")
970
971         /* Redundant with voltage but much easier to use */
972         else if( !strncmp( psz_parser, "polarization=",
973                            strlen( "polarization=" ) ) )
974         {
975             psz_parser += strlen( "polarization=" );
976             if ( *psz_parser == 'V' || *psz_parser == 'v' )
977                 val.i_int = 13;
978             else if ( *psz_parser == 'H' || *psz_parser == 'h' )
979                 val.i_int = 18;
980             else
981             {
982                 msg_Err( p_access, "illegal polarization %c", *psz_parser );
983                 free( psz_dup );
984                 return VLC_EGENERIC;
985             }
986             var_Set( p_access, "dvb-voltage", val );
987         }
988         else
989         {
990             msg_Err( p_access, "unknown option (%s)", psz_parser );
991             free( psz_dup );
992             return VLC_EGENERIC;
993         }
994
995         if ( *psz_parser )
996             psz_parser++;
997     }
998 #undef GET_OPTION_INT
999 #undef GET_OPTION_BOOL
1000 #undef GET_OPTION_STRING
1001
1002     free( psz_dup );
1003     return VLC_SUCCESS;
1004 }
1005