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