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