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