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