git.sesse.net Git - vlc/blob - modules/access/dtv/linux.c

   1 /**
   2  * @file linux.c
   3  * @brief Linux DVB API version 5
   4  */
   5 /*****************************************************************************
   6  * Copyright © 2011 Rémi Denis-Courmont
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Lesser General Public License
  10  * as published by the Free Software Foundation; either version 2.1
  11  * of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16  * GNU General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with this library; if not, write to the Free Software
  20  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
  21  ****************************************************************************/
  22
  23 #ifdef HAVE_CONFIG_H
  24 # include <config.h>
  25 #endif
  26
  27 #include <vlc_common.h>
  28
  29 #include <errno.h>
  30 #include <assert.h>
  31 #include <fcntl.h>
  32 #include <poll.h>
  33 #include <unistd.h>
  34 #include <sys/ioctl.h>
  35 #include <linux/dvb/version.h>
  36 #include <linux/dvb/frontend.h>
  37 #include <linux/dvb/dmx.h>
  38
  39 #include "dtv/dtv.h"
  40 #ifdef HAVE_DVBPSI
  41 # include "dtv/en50221.h"
  42 #endif
  43
  44 #ifndef O_SEARCH
  45 # define O_SEARCH O_RDONLY
  46 #endif
  47
  48 #define DVBv5(minor) \
  49         (DVB_API_VERSION > 5 \
  50      || (DVB_API_VERSION == 5 && DVB_API_VERSION_MINOR >= (minor)))
  51 #if !DVBv5(0)
  52 # error Linux DVB kernel headers version 2.6.28 or later required.
  53 #endif
  54
  55 /** Opens the device directory for the specified DVB adapter */
  56 static int dvb_open_adapter (uint8_t adapter)
  57 {
  58     char dir[20];
  59
  60     snprintf (dir, sizeof (dir), "/dev/dvb/adapter%"PRIu8, adapter);
  61     return open (dir, O_SEARCH|O_DIRECTORY|O_CLOEXEC);
  62 }
  63
  64 /** Opens the DVB device node of the specified type */
  65 static int dvb_open_node (int dir, const char *type, unsigned dev, int flags)
  66 {
  67     int fd;
  68     char path[strlen (type) + 4];
  69
  70     snprintf (path, sizeof (path), "%s%"PRIu8, type, dev);
  71     fd = openat (dir, path, flags|O_CLOEXEC);
  72     if (fd != -1)
  73         fcntl (fd, F_SETFL, fcntl (fd, F_GETFL) | O_NONBLOCK);
  74     return fd;
  75 }
  76
  77 typedef struct
  78 {
  79     int vlc;
  80     int linux_;
  81 } dvb_int_map_t;
  82
  83 static int icmp (const void *a, const void *b)
  84 {
  85     int key = (intptr_t)a;
  86     const dvb_int_map_t *entry = b;
  87     return key - entry->vlc;
  88 }
  89
  90 /** Maps a VLC config integer to a Linux DVB enum value */
  91 static int dvb_parse_int (int i, const dvb_int_map_t *map, size_t n, int def)
  92 {
  93     const void *k = (const void *)(intptr_t)i;
  94     const dvb_int_map_t *p = bsearch (k, map, n, sizeof (*map), icmp);
  95     return (p != NULL) ? p->linux_ : def;
  96 }
  97
  98 typedef const struct
  99 {
 100     char vlc[8];
 101     int linux_;
 102 } dvb_str_map_t;
 103
 104 static int scmp (const void *a, const void *b)
 105 {
 106     const char *key = a;
 107     dvb_str_map_t *entry = b;
 108     return strcmp (key, entry->vlc);
 109 }
 110
 111 /** Maps a VLC config string to a Linux DVB enum value */
 112 static int dvb_parse_str (const char *str, const dvb_str_map_t *map, size_t n,
 113                           int def)
 114 {
 115     if (str != NULL)
 116     {
 117         const dvb_str_map_t *p = bsearch (str, map, n, sizeof (*map), scmp);
 118         if (p != NULL)
 119             def = p->linux_;
 120     }
 121     return def;
 122 }
 123
 124 /*** Modulations ***/
 125 static int dvb_parse_modulation (const char *str, int def)
 126 {
 127     static const dvb_str_map_t mods[] =
 128     {
 129         { "128QAM",  QAM_128  },
 130         { "16APSK", APSK_16   },
 131         { "16QAM",   QAM_16   },
 132         { "16VSB",   VSB_16   },
 133         { "256QAM",  QAM_256  },
 134         { "32APSK", APSK_32   },
 135         { "32QAM",   QAM_32   },
 136         { "64QAM",   QAM_64   },
 137         { "8PSK",    PSK_8    },
 138         { "8VSB",    VSB_8    },
 139         { "DQPSK", DQPSK      },
 140         { "QAM",     QAM_AUTO },
 141         { "QPSK",   QPSK      },
 142     };
 143     return dvb_parse_str (str, mods, sizeof (mods) / sizeof (*mods), def);
 144 }
 145
 146 static int dvb_parse_fec (uint32_t fec)
 147 {
 148     static const dvb_int_map_t rates[] =
 149     {
 150         { 0,             FEC_NONE },
 151         { VLC_FEC(1,2),  FEC_1_2  },
 152         // TODO: 1/3
 153         // TODO: 1/4
 154         { VLC_FEC(2,3),  FEC_2_3  },
 155         { VLC_FEC(3,4),  FEC_3_4  },
 156         { VLC_FEC(3,5),  FEC_3_5  },
 157         { VLC_FEC(4,5),  FEC_4_5  },
 158         { VLC_FEC(5,6),  FEC_5_6  },
 159         { VLC_FEC(6,7),  FEC_6_7  },
 160         { VLC_FEC(7,8),  FEC_7_8  },
 161         { VLC_FEC(8,9),  FEC_8_9  },
 162         { VLC_FEC(9,10), FEC_9_10 },
 163         { VLC_FEC_AUTO,  FEC_AUTO },
 164     };
 165     return dvb_parse_int (fec, rates, sizeof (rates) / sizeof (*rates),
 166                           FEC_AUTO);
 167 }
 168
 169
 170 struct dvb_device
 171 {
 172     vlc_object_t *obj;
 173     int dir;
 174     int demux;
 175     int frontend;
 176 #ifndef USE_DMX
 177 # define MAX_PIDS 256
 178     struct
 179     {
 180         int fd;
 181         uint16_t pid;
 182     } pids[MAX_PIDS];
 183 #endif
 184 #ifdef HAVE_DVBPSI
 185     cam_t *cam;
 186 #endif
 187     struct dvb_frontend_info info;
 188     bool budget;
 189     //size_t buffer_size;
 190 };
 191
 192 /**
 193  * Opens the DVB tuner
 194  */
 195 dvb_device_t *dvb_open (vlc_object_t *obj)
 196 {
 197     dvb_device_t *d = malloc (sizeof (*d));
 198     if (unlikely(d == NULL))
 199         return NULL;
 200
 201     d->obj = obj;
 202
 203     uint8_t adapter = var_InheritInteger (obj, "dvb-adapter");
 204
 205     d->dir = dvb_open_adapter (adapter);
 206     if (d->dir == -1)
 207     {
 208         msg_Err (obj, "cannot access adapter %"PRIu8": %m", adapter);
 209         free (d);
 210         return NULL;
 211     }
 212     d->frontend = -1;
 213 #ifdef HAVE_DVBPSI
 214     d->cam = NULL;
 215 #endif
 216     d->budget = var_InheritBool (obj, "dvb-budget-mode");
 217
 218 #ifndef USE_DMX
 219     if (d->budget)
 220 #endif
 221     {
 222        d->demux = dvb_open_node (d->dir, "demux", 0, O_RDONLY);
 223        if (d->demux == -1)
 224        {
 225            msg_Err (obj, "cannot access demultiplexer: %m");
 226            close (d->dir);
 227            free (d);
 228            return NULL;
 229        }
 230
 231        if (ioctl (d->demux, DMX_SET_BUFFER_SIZE, 1 << 20) < 0)
 232            msg_Warn (obj, "cannot expand demultiplexing buffer: %m");
 233
 234        /* We need to filter at least one PID. The tap for TS demultiplexing
 235         * cannot be configured otherwise. So add the PAT. */
 236         struct dmx_pes_filter_params param;
 237
 238         param.pid = d->budget ? 0x2000 : 0x000;
 239         param.input = DMX_IN_FRONTEND;
 240         param.output = DMX_OUT_TSDEMUX_TAP;
 241         param.pes_type = DMX_PES_OTHER;
 242         param.flags = DMX_IMMEDIATE_START;
 243         if (ioctl (d->demux, DMX_SET_PES_FILTER, &param) < 0)
 244         {
 245             msg_Err (obj, "cannot setup TS demultiplexer: %m");
 246             goto error;
 247         }
 248 #ifndef USE_DMX
 249     }
 250     else
 251     {
 252         for (size_t i = 0; i < MAX_PIDS; i++)
 253             d->pids[i].pid = d->pids[i].fd = -1;
 254         d->demux = dvb_open_node (d->dir, "dvr", 0, O_RDONLY);
 255         if (d->demux == -1)
 256         {
 257             msg_Err (obj, "cannot access DVR: %m");
 258             close (d->dir);
 259             free (d);
 260             return NULL;
 261         }
 262 #endif
 263     }
 264
 265 #ifdef HAVE_DVBPSI
 266     int ca = dvb_open_node (d->dir, "ca", 0, O_RDWR);
 267     if (ca != -1)
 268     {
 269         d->cam = en50221_Init (obj, ca);
 270         if (d->cam == NULL)
 271             close (ca);
 272     }
 273     else
 274         msg_Dbg (obj, "conditional access module not available (%m)");
 275 #endif
 276     return d;
 277
 278 error:
 279     dvb_close (d);
 280     return NULL;
 281 }
 282
 283 void dvb_close (dvb_device_t *d)
 284 {
 285 #ifndef USE_DMX
 286     if (!d->budget)
 287     {
 288         for (size_t i = 0; i < MAX_PIDS; i++)
 289             if (d->pids[i].fd != -1)
 290                 close (d->pids[i].fd);
 291     }
 292 #endif
 293 #ifdef HAVE_DVBPSI
 294     if (d->cam != NULL)
 295         en50221_End (d->cam);
 296 #endif
 297     if (d->frontend != -1)
 298         close (d->frontend);
 299     close (d->demux);
 300     close (d->dir);
 301     free (d);
 302 }
 303
 304 /**
 305  * Reads TS data from the tuner.
 306  * @return number of bytes read, 0 on EOF, -1 if no data (yet).
 307  */
 308 ssize_t dvb_read (dvb_device_t *d, void *buf, size_t len)
 309 {
 310     struct pollfd ufd[2];
 311     int n;
 312
 313 #ifdef HAVE_DVBPSI
 314     if (d->cam != NULL)
 315         en50221_Poll (d->cam);
 316 #endif
 317
 318     ufd[0].fd = d->demux;
 319     ufd[0].events = POLLIN;
 320     if (d->frontend != -1)
 321     {
 322         ufd[1].fd = d->frontend;
 323         ufd[1].events = POLLIN;
 324         n = 2;
 325     }
 326     else
 327         n = 1;
 328
 329     if (poll (ufd, n, 500 /* FIXME */) < 0)
 330         return -1;
 331
 332     if (d->frontend != -1 && ufd[1].revents)
 333     {
 334         struct dvb_frontend_event ev;
 335
 336         if (ioctl (d->frontend, FE_GET_EVENT, &ev) < 0)
 337         {
 338             if (errno == EOVERFLOW)
 339             {
 340                 msg_Err (d->obj, "cannot dequeue events fast enough!");
 341                 return -1;
 342             }
 343             msg_Err (d->obj, "cannot dequeue frontend event: %m");
 344             return 0;
 345         }
 346
 347         msg_Dbg (d->obj, "frontend status: 0x%02X", (unsigned)ev.status);
 348     }
 349
 350     if (ufd[0].revents)
 351     {
 352         ssize_t val = read (d->demux, buf, len);
 353         if (val == -1 && (errno != EAGAIN && errno != EINTR))
 354         {
 355             if (errno == EOVERFLOW)
 356             {
 357                 msg_Err (d->obj, "cannot demux data fast enough!");
 358                 return -1;
 359             }
 360             msg_Err (d->obj, "cannot demux: %m");
 361             return 0;
 362         }
 363         return val;
 364     }
 365
 366     return -1;
 367 }
 368
 369 int dvb_add_pid (dvb_device_t *d, uint16_t pid)
 370 {
 371     if (d->budget)
 372         return 0;
 373 #ifdef USE_DMX
 374     if (pid == 0 || ioctl (d->demux, DMX_ADD_PID, &pid) >= 0)
 375         return 0;
 376 #else
 377     for (size_t i = 0; i < MAX_PIDS; i++)
 378     {
 379         if (d->pids[i].pid == pid)
 380             return 0;
 381         if (d->pids[i].fd != -1)
 382             continue;
 383
 384         int fd = dvb_open_node (d->dir, "demux", 0, O_RDONLY);
 385         if (fd == -1)
 386             goto error;
 387
 388        /* We need to filter at least one PID. The tap for TS demultiplexing
 389         * cannot be configured otherwise. So add the PAT. */
 390         struct dmx_pes_filter_params param;
 391
 392         param.pid = pid;
 393         param.input = DMX_IN_FRONTEND;
 394         param.output = DMX_OUT_TS_TAP;
 395         param.pes_type = DMX_PES_OTHER;
 396         param.flags = DMX_IMMEDIATE_START;
 397         if (ioctl (fd, DMX_SET_PES_FILTER, &param) < 0)
 398         {
 399             close (fd);
 400             goto error;
 401         }
 402         d->pids[i].fd = fd;
 403         d->pids[i].pid = pid;
 404         return 0;
 405     }
 406     errno = EMFILE;
 407 error:
 408 #endif
 409     msg_Err (d->obj, "cannot add PID 0x%04"PRIu16": %m", pid);
 410     return -1;
 411 }
 412
 413 void dvb_remove_pid (dvb_device_t *d, uint16_t pid)
 414 {
 415     if (d->budget)
 416         return;
 417 #ifdef USE_DMX
 418     if (pid != 0)
 419         ioctl (d->demux, DMX_REMOVE_PID, &pid);
 420 #else
 421     for (size_t i = 0; i < MAX_PIDS; i++)
 422     {
 423         if (d->pids[i].pid == pid)
 424         {
 425             close (d->pids[i].fd);
 426             d->pids[i].pid = d->pids[i].fd = -1;
 427             return;
 428         }
 429     }
 430 #endif
 431 }
 432
 433 /** Finds a frontend of the correct type */
 434 static int dvb_find_frontend (dvb_device_t *d, fe_type_t type, fe_caps_t caps)
 435 {
 436     if (d->frontend != -1)
 437     {
 438         if (d->info.type == type || (d->info.caps & caps) == caps)
 439             return 0; /* already got an adequate frontend */
 440
 441         close (d->frontend);
 442         d->frontend = -1;
 443     }
 444
 445     for (unsigned n = 0; n < 256; n++)
 446     {
 447         int fd = dvb_open_node (d->dir, "frontend", n, O_RDWR);
 448         if (fd == -1)
 449         {
 450             if (errno == ENOENT)
 451                 break; /* all frontends already enumerated */
 452             msg_Err (d->obj, "cannot access frontend %u; %m", n);
 453             continue;
 454         }
 455
 456         if (ioctl (fd, FE_GET_INFO, &d->info) < 0)
 457         {
 458             msg_Err (d->obj, "cannot get frontend %u info: %m", n);
 459             goto skip;
 460         }
 461
 462         msg_Dbg (d->obj, "probing frontend %u: %s", n, d->info.name);
 463         msg_Dbg (d->obj, " type %u, capabilities 0x%08X", d->info.type,
 464                  d->info.caps);
 465         msg_Dbg (d->obj, " frequencies %10"PRIu32" to %10"PRIu32,
 466                  d->info.frequency_min, d->info.frequency_max);
 467         msg_Dbg (d->obj, " (%"PRIu32" tolerance, %"PRIu32" per step)",
 468                  d->info.frequency_tolerance, d->info.frequency_stepsize);
 469         msg_Dbg (d->obj, " bauds rates %10"PRIu32" to %10"PRIu32,
 470                  d->info.symbol_rate_min, d->info.symbol_rate_max);
 471         msg_Dbg (d->obj, " (%"PRIu32" tolerance)",
 472                  d->info.symbol_rate_tolerance);
 473
 474         if (d->info.type != type || (d->info.caps & caps) != caps)
 475         {
 476             msg_Dbg (d->obj, "skipping frontend %u: wrong type", n);
 477             goto skip;
 478         }
 479
 480         msg_Dbg (d->obj, "selected frontend %u", n);
 481         d->frontend = fd;
 482         return 0;
 483
 484     skip:
 485         close (fd);
 486     }
 487
 488     msg_Err (d->obj, "no suitable frontend found");
 489     return -1;
 490 }
 491
 492 const delsys_t *dvb_guess_system (dvb_device_t *d)
 493 {
 494     if (d->frontend == -1)
 495     {
 496         d->frontend = dvb_open_node (d->dir, "frontend", 0, O_RDWR);
 497         if (d->frontend == -1)
 498         {
 499             msg_Err (d->obj, "cannot access frontend %u; %m", 0);
 500             return NULL;
 501         }
 502
 503         if (ioctl (d->frontend, FE_GET_INFO, &d->info) < 0)
 504         {
 505             msg_Err (d->obj, "cannot get frontend %u info: %m", 0);
 506             close (d->frontend);
 507             d->frontend = -1;
 508             return NULL;
 509         }
 510     }
 511
 512     //bool v2 = d->info.caps & FE_CAN_2G_MODULATION;
 513     switch (d->info.type)
 514     {
 515         case FE_QPSK: return /*v2 ? &dvbs2 :*/ &dvbs;
 516         case FE_QAM:  return &dvbc;
 517         case FE_OFDM: return /*v2 ? &dvbt2 :*/ &dvbt;
 518         case FE_ATSC: return &atsc;
 519     }
 520     return NULL;
 521 }
 522
 523 float dvb_get_signal_strength (dvb_device_t *d)
 524 {
 525     uint16_t strength;
 526
 527     if (ioctl (d->frontend, FE_READ_SIGNAL_STRENGTH, &strength) < 0)
 528         return 0.;
 529     return strength / 65535.;
 530 }
 531
 532 float dvb_get_snr (dvb_device_t *d)
 533 {
 534     uint16_t snr;
 535
 536     if (ioctl (d->frontend, FE_READ_SNR, &snr) < 0)
 537         return 0.;
 538     return snr / 65535.;
 539 }
 540
 541 #ifdef HAVE_DVBPSI
 542 void dvb_set_ca_pmt (dvb_device_t *d, struct dvbpsi_pmt_s *pmt)
 543 {
 544     if (d->cam != NULL)
 545         en50221_SetCAPMT (d->cam, pmt);
 546 }
 547 #endif
 548
 549 static int dvb_vset_props (dvb_device_t *d, size_t n, va_list ap)
 550 {
 551     struct dtv_property buf[n], *prop = buf;
 552     struct dtv_properties props = { .num = n, .props = buf };
 553
 554     memset (prop, 0, sizeof (prop));
 555
 556     while (n > 0)
 557     {
 558         prop->cmd = va_arg (ap, uint32_t);
 559         prop->u.data = va_arg (ap, uint32_t);
 560         msg_Dbg (d->obj, "setting property %"PRIu32" to %"PRIu32,
 561                  prop->cmd, prop->u.data);
 562         prop++;
 563         n--;
 564     }
 565
 566     if (ioctl (d->frontend, FE_SET_PROPERTY, &props) < 0)
 567     {
 568         msg_Err (d->obj, "cannot set frontend tuning parameters: %m");
 569         return -1;
 570     }
 571     return 0;
 572 }
 573
 574 static int dvb_set_props (dvb_device_t *d, size_t n, ...)
 575 {
 576     va_list ap;
 577     int ret;
 578
 579     va_start (ap, n);
 580     ret = dvb_vset_props (d, n, ap);
 581     va_end (ap);
 582     return ret;
 583 }
 584
 585 static int dvb_set_prop (dvb_device_t *d, uint32_t prop, uint32_t val)
 586 {
 587     return dvb_set_props (d, 1, prop, val);
 588 }
 589
 590 int dvb_set_inversion (dvb_device_t *d, int v)
 591 {
 592     switch (v)
 593     {
 594         case 0:  v = INVERSION_OFF;  break;
 595         case 1:  v = INVERSION_ON;   break;
 596         default: v = INVERSION_AUTO; break;
 597     }
 598     return dvb_set_prop (d, DTV_INVERSION, v);
 599 }
 600
 601 int dvb_tune (dvb_device_t *d)
 602 {
 603     return dvb_set_prop (d, DTV_TUNE, 0 /* dummy */);
 604 }
 605
 606
 607 /*** DVB-C ***/
 608 int dvb_set_dvbc (dvb_device_t *d, uint32_t freq, const char *modstr,
 609                   uint32_t srate, uint32_t fec)
 610 {
 611     unsigned mod = dvb_parse_modulation (modstr, QAM_AUTO);
 612     fec = dvb_parse_fec (fec);
 613
 614     if (dvb_find_frontend (d, FE_QAM, FE_IS_STUPID))
 615         return -1;
 616     return dvb_set_props (d, 6, DTV_CLEAR, 0,
 617                           DTV_DELIVERY_SYSTEM, SYS_DVBC_ANNEX_AC,
 618                           DTV_FREQUENCY, freq * 1000, DTV_MODULATION, mod,
 619                           DTV_SYMBOL_RATE, srate, DTV_INNER_FEC, fec);
 620 }
 621
 622
 623 /*** DVB-S ***/
 624 static unsigned dvb_parse_polarization (char pol)
 625 {
 626     static const dvb_int_map_t tab[5] = {
 627         { 0,   SEC_VOLTAGE_OFF },
 628         { 'H', SEC_VOLTAGE_18  },
 629         { 'L', SEC_VOLTAGE_18  },
 630         { 'R', SEC_VOLTAGE_13  },
 631         { 'V', SEC_VOLTAGE_13  },
 632     };
 633     return dvb_parse_int (pol, tab, 5, SEC_VOLTAGE_OFF);
 634 }
 635
 636 int dvb_set_sec (dvb_device_t *d, uint32_t freq, char pol,
 637                  uint32_t lowf, uint32_t highf, uint32_t switchf)
 638 {
 639     /* Always try to configure high voltage, but only warn on enable failure */
 640     int val = var_InheritBool (d->obj, "dvb-high-voltage");
 641     if (ioctl (d->frontend, FE_ENABLE_HIGH_LNB_VOLTAGE, &val) < 0 && val)
 642         msg_Err (d->obj, "cannot enable high LNB voltage: %m");
 643
 644     /* Windows BDA exposes a higher-level API covering LNB oscillators.
 645      * So lets pretend this is platform-specific stuff and do it here. */
 646     if (!lowf)
 647     {   /* Default oscillator frequencies */
 648         static const struct
 649         {
 650              uint16_t min, max, low, high;
 651         } tab[] =
 652         {    /*  min    max    low   high */
 653              { 10700, 13250,  9750, 10600 }, /* Ku band */
 654              {  4500,  4800,  5950,     0 }, /* C band (high) */
 655              {  3400,  4200,  5150,     0 }, /* C band (low) */
 656              {  2500,  2700,  3650,     0 }, /* S band */
 657              {   950,  2150,     0,     0 }, /* adjusted IF (L band) */
 658         };
 659         uint_fast16_t mhz = freq / 1000;
 660
 661         for (size_t i = 0; i < sizeof (tab) / sizeof (tab[0]); i++)
 662              if (mhz >= tab[i].min && mhz <= tab[i].max)
 663              {
 664                  lowf = tab[i].low * 1000;
 665                  highf = tab[i].high * 1000;
 666                  goto known;
 667              }
 668
 669         msg_Err (d->obj, "no known band for frequency %u kHz", freq);
 670 known:
 671         msg_Dbg (d->obj, "selected LNB low: %u kHz, LNB high: %u kHz",
 672                  lowf, highf);
 673     }
 674
 675     /* Use high oscillator frequency? */
 676     bool high = highf != 0 && freq > switchf;
 677
 678     freq -= high ? highf : lowf;
 679     if ((int32_t)freq < 0)
 680         freq *= -1;
 681     assert (freq < 0x7fffffff);
 682
 683     int tone;
 684     switch (var_InheritInteger (d->obj, "dvb-tone"))
 685     {
 686         case 0:  tone = SEC_TONE_OFF; break;
 687         case 1:  tone = SEC_TONE_ON;  break;
 688         default: tone = high ? SEC_TONE_ON : SEC_TONE_OFF;
 689     }
 690
 691     /*** LNB selection / DiSEqC ***/
 692     unsigned voltage = dvb_parse_polarization (pol);
 693     if (dvb_set_props (d, 2, DTV_TONE, SEC_TONE_OFF, DTV_VOLTAGE, voltage))
 694         return -1;
 695
 696     unsigned satno = var_InheritInteger (d->obj, "dvb-satno");
 697     if (satno > 0)
 698     {
 699         /* DiSEqC 1.0 */
 700 #undef msleep /* we know what we are doing! */
 701         struct dvb_diseqc_master_cmd cmd;
 702
 703         satno = (satno - 1) & 3;
 704         cmd.msg[0] = 0xE0; /* framing: master, no reply, 1st TX */
 705         cmd.msg[1] = 0x10; /* address: all LNB/switch */
 706         cmd.msg[2] = 0x38; /* command: Write Port Group 0 */
 707         cmd.msg[3] = 0xF0  /* data[0]: clear all bits */
 708                    | (satno << 2) /* LNB (A, B, C or D) */
 709                    | ((voltage == SEC_VOLTAGE_18) << 1) /* polarization */
 710                    | (tone == SEC_TONE_ON); /* option */
 711         cmd.msg[4] = cmd.msg[5] = 0; /* unused */
 712         msleep (15000); /* wait 15 ms before DiSEqC command */
 713         if (ioctl (d->frontend, FE_DISEQC_SEND_MASTER_CMD, &cmd) < 0)
 714         {
 715             msg_Err (d->obj, "cannot send DiSEqC command: %m");
 716             return -1;
 717         }
 718         msleep (54000 + 15000);
 719
 720         /* Mini-DiSEqC */
 721         satno &= 1;
 722         if (ioctl (d->frontend, FE_DISEQC_SEND_BURST,
 723                    satno ? SEC_MINI_B : SEC_MINI_A) < 0)
 724         {
 725             msg_Err (d->obj, "cannot send Mini-DiSEqC tone burst: %m");
 726             return -1;
 727         }
 728         msleep (15000);
 729     }
 730
 731     /* Continuous tone (to select high oscillator frequency) */
 732     return dvb_set_props (d, 2, DTV_FREQUENCY, freq, DTV_TONE, tone);
 733 }
 734
 735 int dvb_set_dvbs (dvb_device_t *d, uint32_t freq, uint32_t srate, uint32_t fec)
 736 {
 737     fec = dvb_parse_fec (fec);
 738
 739     if (dvb_find_frontend (d, FE_QPSK, FE_IS_STUPID))
 740         return -1;
 741     return dvb_set_props (d, 5, DTV_CLEAR, 0, DTV_DELIVERY_SYSTEM, SYS_DVBS,
 742                           DTV_FREQUENCY, freq, DTV_SYMBOL_RATE, srate,
 743                           DTV_INNER_FEC, fec);
 744 }
 745
 746 int dvb_set_dvbs2 (dvb_device_t *d, uint32_t freq, const char *modstr,
 747                    uint32_t srate, uint32_t fec, int pilot, int rolloff)
 748 {
 749     unsigned mod = dvb_parse_modulation (modstr, QPSK);
 750     fec = dvb_parse_fec (fec);
 751
 752     switch (pilot)
 753     {
 754         case 0:  pilot = PILOT_OFF;  break;
 755         case 1:  pilot = PILOT_ON;   break;
 756         default: pilot = PILOT_AUTO; break;
 757     }
 758
 759     switch (rolloff)
 760     {
 761         case 20: rolloff = ROLLOFF_20;  break;
 762         case 25: rolloff = ROLLOFF_25;  break;
 763         case 35: rolloff = ROLLOFF_35;  break;
 764         default: rolloff = PILOT_AUTO; break;
 765     }
 766
 767     if (dvb_find_frontend (d, FE_QPSK, FE_CAN_2G_MODULATION))
 768         return -1;
 769     return dvb_set_props (d, 8, DTV_CLEAR, 0, DTV_DELIVERY_SYSTEM, SYS_DVBS2,
 770                           DTV_FREQUENCY, freq, DTV_MODULATION, mod,
 771                           DTV_SYMBOL_RATE, srate, DTV_INNER_FEC, fec,
 772                           DTV_PILOT, pilot, DTV_ROLLOFF, rolloff);
 773 }
 774
 775
 776 /*** DVB-T ***/
 777 static int dvb_parse_transmit_mode (int i)
 778 {
 779     static const dvb_int_map_t tab[] = {
 780         { -1, TRANSMISSION_MODE_AUTO },
 781 #if DVBv5(3)
 782         {  1, TRANSMISSION_MODE_1K   },
 783 #endif
 784         {  2, TRANSMISSION_MODE_2K   },
 785 #if DVBv5(1)
 786         {  4, TRANSMISSION_MODE_4K   },
 787 #endif
 788         {  8, TRANSMISSION_MODE_8K   },
 789 #if DVBv5(3)
 790         { 16, TRANSMISSION_MODE_16K  },
 791         { 32, TRANSMISSION_MODE_32K  },
 792 #endif
 793     };
 794     return dvb_parse_int (i, tab, sizeof (tab) / sizeof (*tab),
 795                           TRANSMISSION_MODE_AUTO);
 796 }
 797
 798 static int dvb_parse_guard (uint32_t guard)
 799 {
 800     static const dvb_int_map_t tab[] = {
 801         { VLC_GUARD(1,4),    GUARD_INTERVAL_1_4 },
 802         { VLC_GUARD(1,8),    GUARD_INTERVAL_1_8 },
 803         { VLC_GUARD(1,16),   GUARD_INTERVAL_1_16 },
 804         { VLC_GUARD(1,32),   GUARD_INTERVAL_1_32 },
 805 #if DVBv5(3)
 806         { VLC_GUARD(1,128),  GUARD_INTERVAL_1_128 },
 807         { VLC_GUARD(19,128), GUARD_INTERVAL_19_128 },
 808         { VLC_GUARD(19,256), GUARD_INTERVAL_19_256 },
 809 #endif
 810         { VLC_GUARD_AUTO,    GUARD_INTERVAL_AUTO },
 811     };
 812     return dvb_parse_int (guard, tab, sizeof (tab) / sizeof (*tab),
 813                           GUARD_INTERVAL_AUTO);
 814 }
 815
 816 static int dvb_parse_hierarchy (int i)
 817 {
 818     static const dvb_int_map_t tab[] = {
 819         { HIERARCHY_AUTO, -1 },
 820         { HIERARCHY_NONE,  0 },
 821         { HIERARCHY_1,     1 },
 822         { HIERARCHY_2,     2 },
 823         { HIERARCHY_4,     4 },
 824     };
 825     return dvb_parse_int (i, tab, sizeof (tab) / sizeof (*tab),
 826                           HIERARCHY_AUTO);
 827 }
 828
 829 int dvb_set_dvbt (dvb_device_t *d, uint32_t freq, const char *modstr,
 830                   uint32_t fec_hp, uint32_t fec_lp, uint32_t bandwidth,
 831                   int transmit_mode, uint32_t guard, int hierarchy)
 832 {
 833     uint32_t mod = dvb_parse_modulation (modstr, QAM_AUTO);
 834     fec_hp = dvb_parse_fec (fec_hp);
 835     fec_lp = dvb_parse_fec (fec_lp);
 836     bandwidth *= 1000000;
 837     transmit_mode = dvb_parse_transmit_mode (transmit_mode);
 838     guard = dvb_parse_guard (guard);
 839     hierarchy = dvb_parse_hierarchy (hierarchy);
 840
 841     if (dvb_find_frontend (d, FE_OFDM, FE_IS_STUPID))
 842         return -1;
 843     return dvb_set_props (d, 10, DTV_CLEAR, 0, DTV_DELIVERY_SYSTEM, SYS_DVBT,
 844                           DTV_FREQUENCY, freq * 1000, DTV_MODULATION, mod,
 845                           DTV_CODE_RATE_HP, fec_hp, DTV_CODE_RATE_LP, fec_lp,
 846                           DTV_BANDWIDTH_HZ, bandwidth,
 847                           DTV_TRANSMISSION_MODE, transmit_mode,
 848                           DTV_GUARD_INTERVAL, guard,
 849                           DTV_HIERARCHY, hierarchy);
 850 }
 851
 852 int dvb_set_dvbt2 (dvb_device_t *d, uint32_t freq, const char *modstr,
 853                    uint32_t fec, uint32_t bandwidth,
 854                    int transmit_mode, uint32_t guard)
 855 {
 856 #if DVBv5(3)
 857     uint32_t mod = dvb_parse_modulation (modstr, QAM_AUTO);
 858     fec = dvb_parse_fec (fec);
 859     bandwidth *= 1000000;
 860     transmit_mode = dvb_parse_transmit_mode (transmit_mode);
 861     guard = dvb_parse_guard (guard);
 862
 863     if (dvb_find_frontend (d, FE_OFDM, FE_CAN_2G_MODULATION))
 864         return -1;
 865     return dvb_set_props (d, 8, DTV_CLEAR, 0, DTV_DELIVERY_SYSTEM, SYS_DVBT2,
 866                           DTV_FREQUENCY, freq * 1000, DTV_MODULATION, mod,
 867                           DTV_INNER_FEC, fec, DTV_BANDWIDTH_HZ, bandwidth,
 868                           DTV_TRANSMISSION_MODE, transmit_mode,
 869                           DTV_GUARD_INTERVAL, guard);
 870 #else
 871 # warning DVB-T2 needs Linux DVB version 5.3 or later.
 872     msg_Err (d->obj, "DVB-T2 support not compiled-in");
 873     (void) freq; (void) modstr; (void) fec; (void) bandwidth;
 874     (void) transmit_mode; (void) guard;
 875     return -1;
 876 #endif
 877 }
 878
 879
 880 /*** ATSC ***/
 881 int dvb_set_atsc (dvb_device_t *d, uint32_t freq, const char *modstr)
 882 {
 883     unsigned mod = dvb_parse_modulation (modstr, VSB_8);
 884
 885     if (dvb_find_frontend (d, FE_ATSC, FE_IS_STUPID))
 886         return -1;
 887     return dvb_set_props (d, 4, DTV_CLEAR, 0, DTV_DELIVERY_SYSTEM, SYS_ATSC,
 888                           DTV_FREQUENCY, freq * 1000, DTV_MODULATION, mod);
 889 }
 890
 891 int dvb_set_cqam (dvb_device_t *d, uint32_t freq, const char *modstr)
 892 {
 893     unsigned mod = dvb_parse_modulation (modstr, QAM_AUTO);
 894
 895     if (dvb_find_frontend (d, FE_QAM, FE_IS_STUPID))
 896         return -1;
 897     return dvb_set_props (d, 4, DTV_CLEAR, 0,
 898                           DTV_DELIVERY_SYSTEM, SYS_DVBC_ANNEX_B,
 899                           DTV_FREQUENCY, freq * 1000, DTV_MODULATION, mod);
 900 }