libmpdemux/demuxer.c

   1 /*
   2  * DEMUXER v2.5
   3  *
   4  * This file is part of MPlayer.
   5  *
   6  * MPlayer is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * MPlayer is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License along
  17  * with MPlayer; if not, write to the Free Software Foundation, Inc.,
  18  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  19  */
  20
  21 #include <stdio.h>
  22 #include <stdlib.h>
  23 #include <string.h>
  24 #include <assert.h>
  25 #include <unistd.h>
  26
  27 #include <sys/types.h>
  28 #include <sys/stat.h>
  29
  30 #include "config.h"
  31 #include "options.h"
  32 #include "talloc.h"
  33 #include "mp_msg.h"
  34 #include "m_config.h"
  35
  36 #include "libvo/fastmemcpy.h"
  37
  38 #include "stream/stream.h"
  39 #include "demuxer.h"
  40 #include "stheader.h"
  41 #include "mf.h"
  42
  43 #include "libaf/af_format.h"
  44 #include "libmpcodecs/dec_teletext.h"
  45
  46 #include "libavcodec/avcodec.h"
  47 #if MP_INPUT_BUFFER_PADDING_SIZE < FF_INPUT_BUFFER_PADDING_SIZE
  48 #error MP_INPUT_BUFFER_PADDING_SIZE is too small!
  49 #endif
  50
  51 static void clear_parser(sh_common_t *sh);
  52
  53 // Demuxer list
  54 extern const struct demuxer_desc demuxer_desc_edl;
  55 extern const demuxer_desc_t demuxer_desc_rawaudio;
  56 extern const demuxer_desc_t demuxer_desc_rawvideo;
  57 extern const demuxer_desc_t demuxer_desc_tv;
  58 extern const demuxer_desc_t demuxer_desc_mf;
  59 extern const demuxer_desc_t demuxer_desc_avi;
  60 extern const demuxer_desc_t demuxer_desc_y4m;
  61 extern const demuxer_desc_t demuxer_desc_asf;
  62 extern const demuxer_desc_t demuxer_desc_real;
  63 extern const demuxer_desc_t demuxer_desc_smjpeg;
  64 extern const demuxer_desc_t demuxer_desc_matroska;
  65 extern const demuxer_desc_t demuxer_desc_realaudio;
  66 extern const demuxer_desc_t demuxer_desc_vqf;
  67 extern const demuxer_desc_t demuxer_desc_mov;
  68 extern const demuxer_desc_t demuxer_desc_vivo;
  69 extern const demuxer_desc_t demuxer_desc_fli;
  70 extern const demuxer_desc_t demuxer_desc_film;
  71 extern const demuxer_desc_t demuxer_desc_roq;
  72 extern const demuxer_desc_t demuxer_desc_gif;
  73 extern const demuxer_desc_t demuxer_desc_ogg;
  74 extern const demuxer_desc_t demuxer_desc_avs;
  75 extern const demuxer_desc_t demuxer_desc_pva;
  76 extern const demuxer_desc_t demuxer_desc_nsv;
  77 extern const demuxer_desc_t demuxer_desc_mpeg_ts;
  78 extern const demuxer_desc_t demuxer_desc_lmlm4;
  79 extern const demuxer_desc_t demuxer_desc_mpeg_ps;
  80 extern const demuxer_desc_t demuxer_desc_mpeg_pes;
  81 extern const demuxer_desc_t demuxer_desc_mpeg_es;
  82 extern const demuxer_desc_t demuxer_desc_mpeg_gxf;
  83 extern const demuxer_desc_t demuxer_desc_mpeg4_es;
  84 extern const demuxer_desc_t demuxer_desc_h264_es;
  85 extern const demuxer_desc_t demuxer_desc_rawdv;
  86 extern const demuxer_desc_t demuxer_desc_mpc;
  87 extern const demuxer_desc_t demuxer_desc_audio;
  88 extern const demuxer_desc_t demuxer_desc_xmms;
  89 extern const demuxer_desc_t demuxer_desc_mpeg_ty;
  90 extern const demuxer_desc_t demuxer_desc_rtp;
  91 extern const demuxer_desc_t demuxer_desc_rtp_nemesi;
  92 extern const demuxer_desc_t demuxer_desc_lavf;
  93 extern const demuxer_desc_t demuxer_desc_lavf_preferred;
  94 extern const demuxer_desc_t demuxer_desc_aac;
  95 extern const demuxer_desc_t demuxer_desc_nut;
  96 extern const demuxer_desc_t demuxer_desc_mng;
  97
  98 /* Please do not add any new demuxers here. If you want to implement a new
  99  * demuxer, add it to libavformat, except for wrappers around external
 100  * libraries and demuxers requiring binary support. */
 101
 102 const demuxer_desc_t *const demuxer_list[] = {
 103     &demuxer_desc_edl,
 104     &demuxer_desc_rawaudio,
 105     &demuxer_desc_rawvideo,
 106 #ifdef CONFIG_TV
 107     &demuxer_desc_tv,
 108 #endif
 109     &demuxer_desc_mf,
 110     &demuxer_desc_lavf_preferred,
 111     &demuxer_desc_avi,
 112     &demuxer_desc_y4m,
 113     &demuxer_desc_asf,
 114     &demuxer_desc_nsv,
 115     &demuxer_desc_real,
 116     &demuxer_desc_smjpeg,
 117     &demuxer_desc_matroska,
 118     &demuxer_desc_realaudio,
 119     &demuxer_desc_vqf,
 120     &demuxer_desc_mov,
 121     &demuxer_desc_vivo,
 122     &demuxer_desc_fli,
 123     &demuxer_desc_film,
 124     &demuxer_desc_roq,
 125 #ifdef CONFIG_GIF
 126     &demuxer_desc_gif,
 127 #endif
 128 #ifdef CONFIG_OGGVORBIS
 129     &demuxer_desc_ogg,
 130 #endif
 131 #ifdef CONFIG_WIN32DLL
 132     &demuxer_desc_avs,
 133 #endif
 134     &demuxer_desc_pva,
 135     &demuxer_desc_mpeg_ts,
 136     &demuxer_desc_lmlm4,
 137     &demuxer_desc_mpeg_ps,
 138     &demuxer_desc_mpeg_pes,
 139     &demuxer_desc_mpeg_es,
 140     &demuxer_desc_mpeg_gxf,
 141     &demuxer_desc_mpeg4_es,
 142     &demuxer_desc_h264_es,
 143     &demuxer_desc_audio,
 144     &demuxer_desc_mpeg_ty,
 145 #ifdef CONFIG_LIVE555
 146     &demuxer_desc_rtp,
 147 #endif
 148 #ifdef CONFIG_LIBNEMESI
 149     &demuxer_desc_rtp_nemesi,
 150 #endif
 151     &demuxer_desc_lavf,
 152 #ifdef CONFIG_MUSEPACK
 153     &demuxer_desc_mpc,
 154 #endif
 155 #ifdef CONFIG_LIBDV095
 156     &demuxer_desc_rawdv,
 157 #endif
 158     &demuxer_desc_aac,
 159 #ifdef CONFIG_LIBNUT
 160     &demuxer_desc_nut,
 161 #endif
 162 #ifdef CONFIG_XMMS
 163     &demuxer_desc_xmms,
 164 #endif
 165 #ifdef CONFIG_MNG
 166     &demuxer_desc_mng,
 167 #endif
 168     /* Please do not add any new demuxers here. If you want to implement a new
 169      * demuxer, add it to libavformat, except for wrappers around external
 170      * libraries and demuxers requiring binary support. */
 171     NULL
 172 };
 173
 174 static struct demux_packet *create_packet(size_t len)
 175 {
 176     if (len > 1000000000) {
 177         mp_msg(MSGT_DEMUXER, MSGL_FATAL, "Attempt to allocate demux packet "
 178                "over 1 GB!\n");
 179         abort();
 180     }
 181     struct demux_packet *dp = malloc(sizeof(struct demux_packet));
 182     dp->len = len;
 183     dp->next = NULL;
 184     dp->pts = MP_NOPTS_VALUE;
 185     dp->duration = -1;
 186     dp->stream_pts = MP_NOPTS_VALUE;
 187     dp->pos = 0;
 188     dp->flags = 0;
 189     dp->refcount = 1;
 190     dp->master = NULL;
 191     dp->buffer = NULL;
 192     dp->avpacket = NULL;
 193     return dp;
 194 }
 195
 196 struct demux_packet *new_demux_packet(size_t len)
 197 {
 198     struct demux_packet *dp = create_packet(len);
 199     dp->buffer = malloc(len + MP_INPUT_BUFFER_PADDING_SIZE);
 200     if (!dp->buffer) {
 201         mp_msg(MSGT_DEMUXER, MSGL_FATAL, "Memory allocation failure!\n");
 202         abort();
 203     }
 204     memset(dp->buffer + len, 0, 8);
 205     return dp;
 206 }
 207
 208 // data must already have suitable padding
 209 struct demux_packet *new_demux_packet_fromdata(void *data, size_t len)
 210 {
 211     struct demux_packet *dp = create_packet(len);
 212     dp->buffer = data;
 213     return dp;
 214 }
 215
 216 void resize_demux_packet(struct demux_packet *dp, size_t len)
 217 {
 218     if (len > 1000000000) {
 219         mp_msg(MSGT_DEMUXER, MSGL_FATAL, "Attempt to realloc demux packet "
 220                "over 1 GB!\n");
 221         abort();
 222     }
 223     dp->buffer = realloc(dp->buffer, len + MP_INPUT_BUFFER_PADDING_SIZE);
 224     if (!dp->buffer) {
 225         mp_msg(MSGT_DEMUXER, MSGL_FATAL, "Memory allocation failure!\n");
 226         abort();
 227     }
 228     memset(dp->buffer + len, 0, 8);
 229     dp->len = len;
 230 }
 231
 232 struct demux_packet *clone_demux_packet(struct demux_packet *pack)
 233 {
 234     struct demux_packet *dp = malloc(sizeof(struct demux_packet));
 235     while (pack->master)
 236         pack = pack->master;  // find the master
 237     memcpy(dp, pack, sizeof(struct demux_packet));
 238     dp->next = NULL;
 239     dp->refcount = 0;
 240     dp->master = pack;
 241     pack->refcount++;
 242     return dp;
 243 }
 244
 245 void free_demux_packet(struct demux_packet *dp)
 246 {
 247     if (dp->master == NULL) {  //dp is a master packet
 248         dp->refcount--;
 249         if (dp->refcount == 0) {
 250             if (dp->avpacket)
 251                 talloc_free(dp->avpacket);
 252             else
 253                 free(dp->buffer);
 254             free(dp);
 255         }
 256         return;
 257     }
 258     // dp is a clone:
 259     free_demux_packet(dp->master);
 260     free(dp);
 261 }
 262
 263 static void free_demuxer_stream(struct demux_stream *ds)
 264 {
 265     ds_free_packs(ds);
 266     free(ds);
 267 }
 268
 269 static struct demux_stream *new_demuxer_stream(struct demuxer *demuxer, int id)
 270 {
 271     demux_stream_t *ds = malloc(sizeof(demux_stream_t));
 272     *ds = (demux_stream_t){
 273         .id = id,
 274         .demuxer = demuxer,
 275         .asf_seq = -1,
 276     };
 277     return ds;
 278 }
 279
 280
 281 /**
 282  * Get demuxer description structure for a given demuxer type
 283  *
 284  * @param file_format    type of the demuxer
 285  * @return               structure for the demuxer, NULL if not found
 286  */
 287 static const demuxer_desc_t *get_demuxer_desc_from_type(int file_format)
 288 {
 289     int i;
 290
 291     for (i = 0; demuxer_list[i]; i++)
 292         if (file_format == demuxer_list[i]->type)
 293             return demuxer_list[i];
 294
 295     return NULL;
 296 }
 297
 298
 299 demuxer_t *new_demuxer(struct MPOpts *opts, stream_t *stream, int type,
 300                        int a_id, int v_id, int s_id, char *filename)
 301 {
 302     struct demuxer *d = talloc_zero(NULL, struct demuxer);
 303     d->stream = stream;
 304     d->stream_pts = MP_NOPTS_VALUE;
 305     d->reference_clock = MP_NOPTS_VALUE;
 306     d->movi_start = stream->start_pos;
 307     d->movi_end = stream->end_pos;
 308     d->seekable = 1;
 309     d->synced = 0;
 310     d->filepos = -1;
 311     d->audio = new_demuxer_stream(d, a_id);
 312     d->video = new_demuxer_stream(d, v_id);
 313     d->sub = new_demuxer_stream(d, s_id);
 314     d->type = type;
 315     d->opts = opts;
 316     if (type)
 317         if (!(d->desc = get_demuxer_desc_from_type(type)))
 318             mp_msg(MSGT_DEMUXER, MSGL_ERR,
 319                    "BUG! Invalid demuxer type in new_demuxer(), "
 320                    "big troubles ahead.");
 321     if (filename) // Filename hack for avs_check_file
 322         d->filename = strdup(filename);
 323     stream_seek(stream, stream->start_pos);
 324     return d;
 325 }
 326
 327 const char *sh_sub_type2str(int type)
 328 {
 329     switch (type) {
 330     case 't': return "text";
 331     case 'm': return "movtext";
 332     case 'a': return "ass";
 333     case 'v': return "vobsub";
 334     case 'x': return "xsub";
 335     case 'b': return "dvb";
 336     case 'd': return "dvb-teletext";
 337     case 'p': return "hdmv pgs";
 338     }
 339     return "unknown";
 340 }
 341
 342 sh_sub_t *new_sh_sub_sid(demuxer_t *demuxer, int id, int sid)
 343 {
 344     if (id > MAX_S_STREAMS - 1 || id < 0) {
 345         mp_msg(MSGT_DEMUXER, MSGL_WARN,
 346                "Requested sub stream id overflow (%d > %d)\n", id,
 347                MAX_S_STREAMS);
 348         return NULL;
 349     }
 350     if (demuxer->s_streams[id])
 351         mp_msg(MSGT_DEMUXER, MSGL_WARN, "Sub stream %i redefined\n", id);
 352     else {
 353         struct sh_sub *sh = talloc_zero(demuxer, struct sh_sub);
 354         demuxer->s_streams[id] = sh;
 355         sh->sid = sid;
 356         sh->opts = demuxer->opts;
 357         mp_msg(MSGT_IDENTIFY, MSGL_INFO, "ID_SUBTITLE_ID=%d\n", sid);
 358     }
 359     return demuxer->s_streams[id];
 360 }
 361
 362 struct sh_sub *new_sh_sub_sid_lang(struct demuxer *demuxer, int id, int sid,
 363                                    const char *lang)
 364 {
 365     struct sh_sub *sh = new_sh_sub_sid(demuxer, id, sid);
 366     if (lang && lang[0] && strcmp(lang, "und")) {
 367         sh->lang = talloc_strdup(sh, lang);
 368         mp_msg(MSGT_IDENTIFY, MSGL_INFO, "ID_SID_%d_LANG=%s\n", sid, lang);
 369     }
 370     return sh;
 371 }
 372
 373 static void free_sh_sub(sh_sub_t *sh)
 374 {
 375     mp_msg(MSGT_DEMUXER, MSGL_DBG2, "DEMUXER: freeing sh_sub at %p\n", sh);
 376     free(sh->extradata);
 377     clear_parser((sh_common_t *)sh);
 378     talloc_free(sh);
 379 }
 380
 381 sh_audio_t *new_sh_audio_aid(demuxer_t *demuxer, int id, int aid)
 382 {
 383     if (id > MAX_A_STREAMS - 1 || id < 0) {
 384         mp_msg(MSGT_DEMUXER, MSGL_WARN,
 385                "Requested audio stream id overflow (%d > %d)\n", id,
 386                MAX_A_STREAMS);
 387         return NULL;
 388     }
 389     if (demuxer->a_streams[id]) {
 390         mp_tmsg(MSGT_DEMUXER, MSGL_WARN, "WARNING: Audio stream header %d redefined.\n", id);
 391     } else {
 392         mp_tmsg(MSGT_DEMUXER, MSGL_V, "==> Found audio stream: %d\n", id);
 393         struct sh_audio *sh = talloc_zero(demuxer, struct sh_audio);
 394         demuxer->a_streams[id] = sh;
 395         sh->aid = aid;
 396         sh->ds = demuxer->audio;
 397         // set some defaults
 398         sh->samplesize = 2;
 399         sh->sample_format = AF_FORMAT_S16_NE;
 400         sh->opts = demuxer->opts;
 401         mp_msg(MSGT_IDENTIFY, MSGL_INFO, "ID_AUDIO_ID=%d\n", aid);
 402     }
 403     return demuxer->a_streams[id];
 404 }
 405
 406 void free_sh_audio(demuxer_t *demuxer, int id)
 407 {
 408     sh_audio_t *sh = demuxer->a_streams[id];
 409     demuxer->a_streams[id] = NULL;
 410     mp_msg(MSGT_DEMUXER, MSGL_DBG2, "DEMUXER: freeing sh_audio at %p\n", sh);
 411     free(sh->wf);
 412     free(sh->codecdata);
 413     clear_parser((sh_common_t *)sh);
 414     talloc_free(sh);
 415 }
 416
 417 sh_video_t *new_sh_video_vid(demuxer_t *demuxer, int id, int vid)
 418 {
 419     if (id > MAX_V_STREAMS - 1 || id < 0) {
 420         mp_msg(MSGT_DEMUXER, MSGL_WARN,
 421                "Requested video stream id overflow (%d > %d)\n", id,
 422                MAX_V_STREAMS);
 423         return NULL;
 424     }
 425     if (demuxer->v_streams[id])
 426         mp_tmsg(MSGT_DEMUXER, MSGL_WARN, "WARNING: Video stream header %d redefined.\n", id);
 427     else {
 428         mp_tmsg(MSGT_DEMUXER, MSGL_V, "==> Found video stream: %d\n", id);
 429         struct sh_video *sh = talloc_zero(demuxer, struct sh_video);
 430         demuxer->v_streams[id] = sh;
 431         sh->vid = vid;
 432         sh->ds = demuxer->video;
 433         sh->opts = demuxer->opts;
 434         mp_msg(MSGT_IDENTIFY, MSGL_INFO, "ID_VIDEO_ID=%d\n", vid);
 435     }
 436     return demuxer->v_streams[id];
 437 }
 438
 439 void free_sh_video(sh_video_t *sh)
 440 {
 441     mp_msg(MSGT_DEMUXER, MSGL_DBG2, "DEMUXER: freeing sh_video at %p\n", sh);
 442     free(sh->bih);
 443     clear_parser((sh_common_t *)sh);
 444     talloc_free(sh);
 445 }
 446
 447 void free_demuxer(demuxer_t *demuxer)
 448 {
 449     int i;
 450     mp_msg(MSGT_DEMUXER, MSGL_DBG2, "DEMUXER: freeing %s demuxer at %p\n",
 451            demuxer->desc->shortdesc, demuxer);
 452     if (demuxer->desc->close)
 453         demuxer->desc->close(demuxer);
 454     // Very ugly hack to make it behave like old implementation
 455     if (demuxer->desc->type == DEMUXER_TYPE_DEMUXERS)
 456         goto skip_streamfree;
 457     // free streams:
 458     for (i = 0; i < MAX_A_STREAMS; i++)
 459         if (demuxer->a_streams[i])
 460             free_sh_audio(demuxer, i);
 461     for (i = 0; i < MAX_V_STREAMS; i++)
 462         if (demuxer->v_streams[i])
 463             free_sh_video(demuxer->v_streams[i]);
 464     for (i = 0; i < MAX_S_STREAMS; i++)
 465         if (demuxer->s_streams[i])
 466             free_sh_sub(demuxer->s_streams[i]);
 467     // free demuxers:
 468     free_demuxer_stream(demuxer->audio);
 469     free_demuxer_stream(demuxer->video);
 470     free_demuxer_stream(demuxer->sub);
 471  skip_streamfree:
 472     free(demuxer->filename);
 473     if (demuxer->teletext)
 474         teletext_control(demuxer->teletext, TV_VBI_CONTROL_STOP, NULL);
 475     talloc_free(demuxer);
 476 }
 477
 478
 479 void ds_add_packet(demux_stream_t *ds, demux_packet_t *dp)
 480 {
 481     // append packet to DS stream:
 482     ++ds->packs;
 483     ds->bytes += dp->len;
 484     if (ds->last) {
 485         // next packet in stream
 486         ds->last->next = dp;
 487         ds->last = dp;
 488     } else {
 489         // first packet in stream
 490         ds->first = ds->last = dp;
 491     }
 492     mp_dbg(MSGT_DEMUXER, MSGL_DBG2,
 493            "DEMUX: Append packet to %s, len=%d  pts=%5.3f  pos=%u  [packs: A=%d V=%d]\n",
 494            (ds == ds->demuxer->audio) ? "d_audio" : "d_video", dp->len,
 495            dp->pts, (unsigned int) dp->pos, ds->demuxer->audio->packs,
 496            ds->demuxer->video->packs);
 497 }
 498
 499 static void allocate_parser(AVCodecContext **avctx, AVCodecParserContext **parser, unsigned format)
 500 {
 501     enum CodecID codec_id = CODEC_ID_NONE;
 502
 503     switch (format) {
 504     case MKTAG('M', 'P', '4', 'L'):
 505         codec_id = CODEC_ID_AAC_LATM;
 506         break;
 507     case 0x2000:
 508     case 0x332D6361:
 509     case 0x332D4341:
 510     case 0x20736D:
 511     case MKTAG('s', 'a', 'c', '3'):
 512         codec_id = CODEC_ID_AC3;
 513         break;
 514     case MKTAG('d', 'n', 'e', 't'):
 515         // DNET/byte-swapped AC-3 - there is no parser for that yet
 516         //codec_id = CODEC_ID_DNET;
 517         break;
 518     case MKTAG('E', 'A', 'C', '3'):
 519         codec_id = CODEC_ID_EAC3;
 520         break;
 521     case 0x2001:
 522     case 0x86:
 523         codec_id = CODEC_ID_DTS;
 524         break;
 525     case MKTAG('f', 'L', 'a', 'C'):
 526         codec_id = CODEC_ID_FLAC;
 527         break;
 528     case MKTAG('M', 'L', 'P', ' '):
 529         codec_id = CODEC_ID_MLP;
 530         break;
 531     case 0x55:
 532     case 0x5500736d:
 533     case 0x55005354:
 534     case MKTAG('.', 'm', 'p', '3'):
 535     case MKTAG('M', 'P', '3', ' '):
 536     case MKTAG('L', 'A', 'M', 'E'):
 537         codec_id = CODEC_ID_MP3;
 538         break;
 539     case 0x50:
 540     case 0x5000736d:
 541     case MKTAG('.', 'm', 'p', '2'):
 542     case MKTAG('.', 'm', 'p', '1'):
 543         codec_id = CODEC_ID_MP2;
 544         break;
 545     case MKTAG('T', 'R', 'H', 'D'):
 546         codec_id = CODEC_ID_TRUEHD;
 547         break;
 548     }
 549     if (codec_id != CODEC_ID_NONE) {
 550         *avctx = avcodec_alloc_context3(NULL);
 551         if (!*avctx)
 552             return;
 553         *parser = av_parser_init(codec_id);
 554         if (!*parser)
 555             av_freep(avctx);
 556     }
 557 }
 558
 559 static void get_parser(sh_common_t *sh, AVCodecContext **avctx, AVCodecParserContext **parser)
 560 {
 561     *avctx  = NULL;
 562     *parser = NULL;
 563
 564     if (!sh || !sh->needs_parsing)
 565         return;
 566
 567     *avctx  = sh->avctx;
 568     *parser = sh->parser;
 569     if (*parser)
 570         return;
 571
 572     allocate_parser(avctx, parser, sh->format);
 573     sh->avctx  = *avctx;
 574     sh->parser = *parser;
 575 }
 576
 577 int ds_parse(demux_stream_t *ds, uint8_t **buffer, int *len, double pts, off_t pos)
 578 {
 579     AVCodecContext *avctx;
 580     AVCodecParserContext *parser;
 581     get_parser(ds->sh, &avctx, &parser);
 582     if (!parser)
 583         return *len;
 584     return av_parser_parse2(parser, avctx, buffer, len, *buffer, *len, pts, pts, pos);
 585 }
 586
 587 static void clear_parser(sh_common_t *sh)
 588 {
 589     av_parser_close(sh->parser);
 590     sh->parser = NULL;
 591     av_freep(&sh->avctx);
 592 }
 593
 594 void ds_clear_parser(demux_stream_t *ds)
 595 {
 596     if (!ds->sh)
 597         return;
 598     clear_parser(ds->sh);
 599 }
 600
 601 void ds_read_packet(demux_stream_t *ds, stream_t *stream, int len,
 602                     double pts, off_t pos, int flags)
 603 {
 604     demux_packet_t *dp = new_demux_packet(len);
 605     len = stream_read(stream, dp->buffer, len);
 606     resize_demux_packet(dp, len);
 607     dp->pts = pts;
 608     dp->pos = pos;
 609     dp->flags = flags;
 610     // append packet to DS stream:
 611     ds_add_packet(ds, dp);
 612 }
 613
 614 // return value:
 615 //     0 = EOF or no stream found or invalid type
 616 //     1 = successfully read a packet
 617
 618 int demux_fill_buffer(demuxer_t *demux, demux_stream_t *ds)
 619 {
 620     // Note: parameter 'ds' can be NULL!
 621     return demux->desc->fill_buffer(demux, ds);
 622 }
 623
 624 // return value:
 625 //     0 = EOF
 626 //     1 = successful
 627 int ds_fill_buffer(demux_stream_t *ds)
 628 {
 629     demuxer_t *demux = ds->demuxer;
 630     if (ds->current)
 631         free_demux_packet(ds->current);
 632     ds->current = NULL;
 633     mp_dbg(MSGT_DEMUXER, MSGL_DBG3, "ds_fill_buffer (%s) called\n",
 634            ds == demux->audio ? "d_audio" : ds == demux->video ? "d_video" :
 635            ds == demux->sub   ? "d_sub"   : "unknown");
 636     while (1) {
 637         if (ds->packs) {
 638             demux_packet_t *p = ds->first;
 639             // copy useful data:
 640             ds->buffer = p->buffer;
 641             ds->buffer_pos = 0;
 642             ds->buffer_size = p->len;
 643             ds->pos = p->pos;
 644             ds->dpos += p->len; // !!!
 645             ++ds->pack_no;
 646             if (p->pts != MP_NOPTS_VALUE) {
 647                 ds->pts = p->pts;
 648                 ds->pts_bytes = 0;
 649             }
 650             ds->pts_bytes += p->len;    // !!!
 651             if (p->stream_pts != MP_NOPTS_VALUE)
 652                 demux->stream_pts = p->stream_pts;
 653             ds->flags = p->flags;
 654             // unlink packet:
 655             ds->bytes -= p->len;
 656             ds->current = p;
 657             ds->first = p->next;
 658             if (!ds->first)
 659                 ds->last = NULL;
 660             --ds->packs;
 661             /* The code below can set ds->eof to 1 when another stream runs
 662              * out of buffer space. That makes sense because in that situation
 663              * the calling code should not count on being able to demux more
 664              * packets from this stream.
 665              * If however the situation improves and we're called again
 666              * despite the eof flag then it's better to clear it to avoid
 667              * weird behavior. */
 668             ds->eof = 0;
 669             return 1;
 670         }
 671
 672 #define MaybeNI _("Maybe you are playing a non-interleaved stream/file or the codec failed?\n" \
 673                 "For AVI files, try to force non-interleaved mode with the -ni option.\n")
 674
 675         if (demux->audio->packs >= MAX_PACKS
 676             || demux->audio->bytes >= MAX_PACK_BYTES) {
 677             mp_tmsg(MSGT_DEMUXER, MSGL_ERR, "\nToo many audio packets in the buffer: (%d in %d bytes).\n",
 678                    demux->audio->packs, demux->audio->bytes);
 679             mp_tmsg(MSGT_DEMUXER, MSGL_HINT, MaybeNI);
 680             break;
 681         }
 682         if (demux->video->packs >= MAX_PACKS
 683             || demux->video->bytes >= MAX_PACK_BYTES) {
 684             mp_tmsg(MSGT_DEMUXER, MSGL_ERR, "\nToo many video packets in the buffer: (%d in %d bytes).\n",
 685                    demux->video->packs, demux->video->bytes);
 686             mp_tmsg(MSGT_DEMUXER, MSGL_HINT, MaybeNI);
 687             break;
 688         }
 689         if (!demux_fill_buffer(demux, ds)) {
 690             mp_dbg(MSGT_DEMUXER, MSGL_DBG2,
 691                    "ds_fill_buffer()->demux_fill_buffer() failed\n");
 692             break; // EOF
 693         }
 694     }
 695     ds->buffer_pos = ds->buffer_size = 0;
 696     ds->buffer = NULL;
 697     mp_msg(MSGT_DEMUXER, MSGL_V,
 698            "ds_fill_buffer: EOF reached (stream: %s)  \n",
 699            ds == demux->audio ? "audio" : "video");
 700     ds->eof = 1;
 701     return 0;
 702 }
 703
 704 int demux_read_data(demux_stream_t *ds, unsigned char *mem, int len)
 705 {
 706     int x;
 707     int bytes = 0;
 708     while (len > 0) {
 709         x = ds->buffer_size - ds->buffer_pos;
 710         if (x == 0) {
 711             if (!ds_fill_buffer(ds))
 712                 return bytes;
 713         } else {
 714             if (x > len)
 715                 x = len;
 716             if (mem)
 717                 fast_memcpy(mem + bytes, &ds->buffer[ds->buffer_pos], x);
 718             bytes += x;
 719             len -= x;
 720             ds->buffer_pos += x;
 721         }
 722     }
 723     return bytes;
 724 }
 725
 726 /**
 727  * \brief read data until the given 3-byte pattern is encountered, up to maxlen
 728  * \param mem memory to read data into, may be NULL to discard data
 729  * \param maxlen maximum number of bytes to read
 730  * \param read number of bytes actually read
 731  * \param pattern pattern to search for (lowest 8 bits are ignored)
 732  * \return whether pattern was found
 733  */
 734 int demux_pattern_3(demux_stream_t *ds, unsigned char *mem, int maxlen,
 735                     int *read, uint32_t pattern)
 736 {
 737     register uint32_t head = 0xffffff00;
 738     register uint32_t pat = pattern & 0xffffff00;
 739     int total_len = 0;
 740     do {
 741         register unsigned char *ds_buf = &ds->buffer[ds->buffer_size];
 742         int len = ds->buffer_size - ds->buffer_pos;
 743         register long pos = -len;
 744         if (unlikely(pos >= 0)) { // buffer is empty
 745             ds_fill_buffer(ds);
 746             continue;
 747         }
 748         do {
 749             head |= ds_buf[pos];
 750             head <<= 8;
 751         } while (++pos && head != pat);
 752         len += pos;
 753         if (total_len + len > maxlen)
 754             len = maxlen - total_len;
 755         len = demux_read_data(ds, mem ? &mem[total_len] : NULL, len);
 756         total_len += len;
 757     } while ((head != pat || total_len < 3) && total_len < maxlen && !ds->eof);
 758     if (read)
 759         *read = total_len;
 760     return total_len >= 3 && head == pat;
 761 }
 762
 763 void ds_free_packs(demux_stream_t *ds)
 764 {
 765     demux_packet_t *dp = ds->first;
 766     while (dp) {
 767         demux_packet_t *dn = dp->next;
 768         free_demux_packet(dp);
 769         dp = dn;
 770     }
 771     if (ds->asf_packet) {
 772         // free unfinished .asf fragments:
 773         free(ds->asf_packet->buffer);
 774         free(ds->asf_packet);
 775         ds->asf_packet = NULL;
 776     }
 777     ds->first = ds->last = NULL;
 778     ds->packs = 0; // !!!!!
 779     ds->bytes = 0;
 780     if (ds->current)
 781         free_demux_packet(ds->current);
 782     ds->current = NULL;
 783     ds->buffer = NULL;
 784     ds->buffer_pos = ds->buffer_size;
 785     ds->pts = MP_NOPTS_VALUE;
 786     ds->pts_bytes = 0;
 787 }
 788
 789 int ds_get_packet(demux_stream_t *ds, unsigned char **start)
 790 {
 791     int len;
 792     if (ds->buffer_pos >= ds->buffer_size) {
 793         if (!ds_fill_buffer(ds)) {
 794             // EOF
 795             *start = NULL;
 796             return -1;
 797         }
 798     }
 799     len = ds->buffer_size - ds->buffer_pos;
 800     *start = &ds->buffer[ds->buffer_pos];
 801     ds->buffer_pos += len;
 802     return len;
 803 }
 804
 805 int ds_get_packet_pts(demux_stream_t *ds, unsigned char **start, double *pts)
 806 {
 807     int len;
 808     *pts = MP_NOPTS_VALUE;
 809     len = ds_get_packet(ds, start);
 810     if (len < 0)
 811         return len;
 812     // Return pts unless this read starts from the middle of a packet
 813     if (len == ds->buffer_pos)
 814         *pts = ds->current->pts;
 815     return len;
 816 }
 817
 818 int ds_get_packet_sub(demux_stream_t *ds, unsigned char **start)
 819 {
 820     int len;
 821     if (ds->buffer_pos >= ds->buffer_size) {
 822         *start = NULL;
 823         if (!ds->packs)
 824             return -1;  // no sub
 825         if (!ds_fill_buffer(ds))
 826             return -1;  // EOF
 827     }
 828     len = ds->buffer_size - ds->buffer_pos;
 829     *start = &ds->buffer[ds->buffer_pos];
 830     ds->buffer_pos += len;
 831     return len;
 832 }
 833
 834 struct demux_packet *ds_get_packet2(struct demux_stream *ds, bool repeat_last)
 835 {
 836     // This shouldn't get used together with partial reads
 837     assert(ds->buffer_pos == 0 || ds->buffer_pos >= ds->buffer_size);
 838     if (!repeat_last)
 839         ds_fill_buffer(ds);
 840     ds->buffer_pos = ds->buffer_size;
 841     return ds->current;
 842 }
 843
 844 double ds_get_next_pts(demux_stream_t *ds)
 845 {
 846     demuxer_t *demux = ds->demuxer;
 847     // if we have not read from the "current" packet, consider it
 848     // as the next, otherwise we never get the pts for the first packet.
 849     while (!ds->first && (!ds->current || ds->buffer_pos)) {
 850         if (demux->audio->packs >= MAX_PACKS
 851             || demux->audio->bytes >= MAX_PACK_BYTES) {
 852             mp_tmsg(MSGT_DEMUXER, MSGL_ERR, "\nToo many audio packets in the buffer: (%d in %d bytes).\n",
 853                    demux->audio->packs, demux->audio->bytes);
 854             mp_tmsg(MSGT_DEMUXER, MSGL_HINT, MaybeNI);
 855             return MP_NOPTS_VALUE;
 856         }
 857         if (demux->video->packs >= MAX_PACKS
 858             || demux->video->bytes >= MAX_PACK_BYTES) {
 859             mp_tmsg(MSGT_DEMUXER, MSGL_ERR, "\nToo many video packets in the buffer: (%d in %d bytes).\n",
 860                    demux->video->packs, demux->video->bytes);
 861             mp_tmsg(MSGT_DEMUXER, MSGL_HINT, MaybeNI);
 862             return MP_NOPTS_VALUE;
 863         }
 864         if (!demux_fill_buffer(demux, ds))
 865             return MP_NOPTS_VALUE;
 866     }
 867     // take pts from "current" if we never read from it.
 868     if (ds->current && !ds->buffer_pos)
 869         return ds->current->pts;
 870     return ds->first->pts;
 871 }
 872
 873 // ====================================================================
 874
 875 void demuxer_help(void)
 876 {
 877     int i;
 878
 879     mp_msg(MSGT_DEMUXER, MSGL_INFO, "Available demuxers:\n");
 880     mp_msg(MSGT_DEMUXER, MSGL_INFO, " demuxer:   info:  (comment)\n");
 881     mp_msg(MSGT_IDENTIFY, MSGL_INFO, "ID_DEMUXERS\n");
 882     for (i = 0; demuxer_list[i]; i++) {
 883         if (demuxer_list[i]->type >= DEMUXER_TYPE_END)  // internal type
 884             continue;
 885         if (demuxer_list[i]->comment && strlen(demuxer_list[i]->comment))
 886             mp_msg(MSGT_DEMUXER, MSGL_INFO, "%10s  %s (%s)\n",
 887                    demuxer_list[i]->name, demuxer_list[i]->info,
 888                    demuxer_list[i]->comment);
 889         else
 890             mp_msg(MSGT_DEMUXER, MSGL_INFO, "%10s  %s\n",
 891                    demuxer_list[i]->name, demuxer_list[i]->info);
 892     }
 893 }
 894
 895
 896 /**
 897  * Get demuxer type for a given demuxer name
 898  *
 899  * @param demuxer_name    string with demuxer name of demuxer number
 900  * @param force           will be set if demuxer should be forced.
 901  *                        May be NULL.
 902  * @return                DEMUXER_TYPE_xxx, -1 if error or not found
 903  */
 904 static int get_demuxer_type_from_name(char *demuxer_name, int *force)
 905 {
 906     if (!demuxer_name || !demuxer_name[0])
 907         return DEMUXER_TYPE_UNKNOWN;
 908     if (force)
 909         *force = demuxer_name[0] == '+';
 910     if (demuxer_name[0] == '+')
 911         demuxer_name = &demuxer_name[1];
 912     for (int i = 0; demuxer_list[i]; i++) {
 913         if (demuxer_list[i]->type >= DEMUXER_TYPE_END)
 914             // Can't select special demuxers from commandline
 915             continue;
 916         if (strcmp(demuxer_name, demuxer_list[i]->name) == 0)
 917             return demuxer_list[i]->type;
 918     }
 919
 920     return -1;
 921 }
 922
 923 static struct demuxer *open_given_type(struct MPOpts *opts,
 924                                        const struct demuxer_desc *desc,
 925                                        struct stream *stream, bool force,
 926                                        int audio_id, int video_id, int sub_id,
 927                                        char *filename,
 928                                        struct demuxer_params *params)
 929 {
 930     struct demuxer *demuxer;
 931     int fformat;
 932     demuxer = new_demuxer(opts, stream, desc->type, audio_id,
 933                           video_id, sub_id, filename);
 934     demuxer->params = params;
 935     if (desc->check_file)
 936         fformat = desc->check_file(demuxer);
 937     else
 938         fformat = desc->type;
 939     if (force)
 940         fformat = desc->type;
 941     if (fformat == 0)
 942         goto fail;
 943     if (fformat == desc->type) {
 944         if (demuxer->filetype)
 945             mp_tmsg(MSGT_DEMUXER, MSGL_INFO, "Detected file format: %s (%s)\n",
 946                     demuxer->filetype, desc->shortdesc);
 947         else
 948             mp_tmsg(MSGT_DEMUXER, MSGL_INFO, "Detected file format: %s\n",
 949                     desc->shortdesc);
 950         if (demuxer->desc->open) {
 951             struct demuxer *demux2 = demuxer->desc->open(demuxer);
 952             if (!demux2) {
 953                 mp_tmsg(MSGT_DEMUXER, MSGL_ERR, "Opening as detected format "
 954                         "\"%s\" failed.\n", desc->shortdesc);
 955                 goto fail;
 956             }
 957             /* At least demux_mov can return a demux_demuxers instance
 958              * from open() instead of the original fed in. */
 959             demuxer = demux2;
 960         }
 961         demuxer->file_format = fformat;
 962         return demuxer;
 963     } else {
 964         // demux_mov can return playlist instead of mov
 965         if (fformat == DEMUXER_TYPE_PLAYLIST)
 966             return demuxer; // handled in mplayer.c
 967         /* Internal MPEG PS demuxer check can return other MPEG subtypes
 968          * which don't have their own checks; recurse to try opening as
 969          * the returned type instead. */
 970         free_demuxer(demuxer);
 971         desc = get_demuxer_desc_from_type(fformat);
 972         if (!desc) {
 973             mp_msg(MSGT_DEMUXER, MSGL_ERR,
 974                    "BUG: recursion to nonexistent file format\n");
 975             return NULL;
 976         }
 977         return open_given_type(opts, desc, stream, false, audio_id,
 978                                video_id, sub_id, filename, params);
 979     }
 980  fail:
 981     free_demuxer(demuxer);
 982     return NULL;
 983 }
 984
 985 static struct demuxer *demux_open_stream(struct MPOpts *opts,
 986                                          struct stream *stream,
 987                                          int file_format, bool force,
 988                                          int audio_id, int video_id, int sub_id,
 989                                          char *filename,
 990                                          struct demuxer_params *params)
 991 {
 992     struct demuxer *demuxer = NULL;
 993     const struct demuxer_desc *desc;
 994
 995     // If somebody requested a demuxer check it
 996     if (file_format) {
 997         desc = get_demuxer_desc_from_type(file_format);
 998         if (!desc)
 999             // should only happen with obsolete -demuxer 99 numeric format
1000             return NULL;
1001         return open_given_type(opts, desc, stream, force, audio_id,
1002                                video_id, sub_id, filename, params);
1003     }
1004
1005     // Test demuxers with safe file checks
1006     for (int i = 0; (desc = demuxer_list[i]); i++) {
1007         if (desc->safe_check) {
1008             demuxer = open_given_type(opts, desc, stream, false, audio_id,
1009                                       video_id, sub_id, filename, params);
1010             if (demuxer)
1011                 return demuxer;
1012         }
1013     }
1014
1015     // Ok. We're over the stable detectable fileformats, the next ones are
1016     // a bit fuzzy. So by default (extension_parsing==1) try extension-based
1017     // detection first:
1018     if (filename && opts->extension_parsing == 1) {
1019         desc = get_demuxer_desc_from_type(demuxer_type_by_filename(filename));
1020         if (desc)
1021             demuxer = open_given_type(opts, desc, stream, false, audio_id,
1022                                       video_id, sub_id, filename, params);
1023         if (demuxer)
1024             return demuxer;
1025     }
1026
1027     // Finally try detection for demuxers with unsafe checks
1028     for (int i = 0; (desc = demuxer_list[i]); i++) {
1029         if (!desc->safe_check && desc->check_file) {
1030             demuxer = open_given_type(opts, desc, stream, false, audio_id,
1031                                       video_id, sub_id, filename, params);
1032             if (demuxer)
1033                 return demuxer;
1034         }
1035     }
1036
1037     return NULL;
1038 }
1039
1040 struct demuxer *demux_open(struct MPOpts *opts, stream_t *vs, int file_format,
1041                            int audio_id, int video_id, int sub_id,
1042                            char *filename)
1043 {
1044     return demux_open_withparams(opts, vs, file_format, audio_id, video_id,
1045                                  sub_id, filename, NULL);
1046 }
1047
1048 struct demuxer *demux_open_withparams(struct MPOpts *opts, stream_t *vs,
1049                 int file_format, int audio_id, int video_id, int dvdsub_id,
1050                 char *filename, struct demuxer_params *params)
1051 {
1052     stream_t *as = NULL, *ss = NULL;
1053     demuxer_t *vd, *ad = NULL, *sd = NULL;
1054     demuxer_t *res;
1055     int afmt = DEMUXER_TYPE_UNKNOWN, sfmt = DEMUXER_TYPE_UNKNOWN;
1056     int demuxer_type;
1057     int audio_demuxer_type = 0, sub_demuxer_type = 0;
1058     int demuxer_force = 0, audio_demuxer_force = 0, sub_demuxer_force = 0;
1059
1060     if ((demuxer_type =
1061          get_demuxer_type_from_name(opts->demuxer_name, &demuxer_force)) < 0) {
1062         mp_msg(MSGT_DEMUXER, MSGL_ERR, "-demuxer %s does not exist.\n",
1063                opts->demuxer_name);
1064         return NULL;
1065     }
1066     if ((audio_demuxer_type =
1067          get_demuxer_type_from_name(opts->audio_demuxer_name,
1068                                     &audio_demuxer_force)) < 0) {
1069         mp_msg(MSGT_DEMUXER, MSGL_ERR, "-audio-demuxer %s does not exist.\n",
1070                opts->audio_demuxer_name);
1071         if (opts->audio_stream)
1072             return NULL;
1073     }
1074     if ((sub_demuxer_type =
1075          get_demuxer_type_from_name(opts->sub_demuxer_name,
1076                                     &sub_demuxer_force)) < 0) {
1077         mp_msg(MSGT_DEMUXER, MSGL_ERR, "-sub-demuxer %s does not exist.\n",
1078                opts->sub_demuxer_name);
1079         if (opts->sub_stream)
1080             return NULL;
1081     }
1082
1083     if (opts->audio_stream) {
1084         as = open_stream(opts->audio_stream, 0, &afmt);
1085         if (!as) {
1086             mp_tmsg(MSGT_DEMUXER, MSGL_ERR, "Cannot open audio stream: %s\n",
1087                    opts->audio_stream);
1088             return NULL;
1089         }
1090         if (opts->audio_stream_cache) {
1091             if (!stream_enable_cache
1092                 (as, opts->audio_stream_cache * 1024,
1093                  opts->audio_stream_cache * 1024 *
1094                             (opts->stream_cache_min_percent / 100.0),
1095                  opts->audio_stream_cache * 1024 *
1096                             (opts->stream_cache_seek_min_percent / 100.0))) {
1097                 free_stream(as);
1098                 mp_msg(MSGT_DEMUXER, MSGL_ERR,
1099                        "Can't enable audio stream cache\n");
1100                 return NULL;
1101             }
1102         }
1103     }
1104     if (opts->sub_stream) {
1105         ss = open_stream(opts->sub_stream, 0, &sfmt);
1106         if (!ss) {
1107             mp_tmsg(MSGT_DEMUXER, MSGL_ERR, "Cannot open subtitle stream: %s\n",
1108                    opts->sub_stream);
1109             return NULL;
1110         }
1111     }
1112
1113     vd = demux_open_stream(opts, vs, demuxer_type ? demuxer_type : file_format,
1114                            demuxer_force, opts->audio_stream ? -2 : audio_id,
1115                            video_id, opts->sub_stream ? -2 : dvdsub_id,
1116                            filename, params);
1117     if (!vd) {
1118         if (as)
1119             free_stream(as);
1120         if (ss)
1121             free_stream(ss);
1122         return NULL;
1123     }
1124     if (as) {
1125         ad = demux_open_stream(opts, as,
1126                                audio_demuxer_type ? audio_demuxer_type : afmt,
1127                                audio_demuxer_force, audio_id, -2, -2,
1128                                opts->audio_stream, params);
1129         if (!ad) {
1130             mp_tmsg(MSGT_DEMUXER, MSGL_WARN, "Failed to open audio demuxer: %s\n",
1131                    opts->audio_stream);
1132             free_stream(as);
1133         } else if (ad->audio->sh
1134                    && ((sh_audio_t *) ad->audio->sh)->format == 0x55) // MP3
1135             opts->hr_mp3_seek = 1;    // Enable high res seeking
1136     }
1137     if (ss) {
1138         sd = demux_open_stream(opts, ss,
1139                                sub_demuxer_type ? sub_demuxer_type : sfmt,
1140                                sub_demuxer_force, -2, -2, dvdsub_id,
1141                                opts->sub_stream, params);
1142         if (!sd) {
1143             mp_tmsg(MSGT_DEMUXER, MSGL_WARN,
1144                    "Failed to open subtitle demuxer: %s\n", opts->sub_stream);
1145             free_stream(ss);
1146         }
1147     }
1148
1149     if (ad && sd)
1150         res = new_demuxers_demuxer(vd, ad, sd);
1151     else if (ad)
1152         res = new_demuxers_demuxer(vd, ad, vd);
1153     else if (sd)
1154         res = new_demuxers_demuxer(vd, vd, sd);
1155     else
1156         res = vd;
1157
1158     opts->correct_pts = opts->user_correct_pts;
1159     if (opts->correct_pts < 0)
1160         opts->correct_pts =
1161             demux_control(vd ? vd : res, DEMUXER_CTRL_CORRECT_PTS,
1162                           NULL) == DEMUXER_CTRL_OK;
1163     return res;
1164 }
1165
1166
1167 void demux_flush(demuxer_t *demuxer)
1168 {
1169     ds_free_packs(demuxer->video);
1170     ds_free_packs(demuxer->audio);
1171     ds_free_packs(demuxer->sub);
1172 }
1173
1174 int demux_seek(demuxer_t *demuxer, float rel_seek_secs, float audio_delay,
1175                int flags)
1176 {
1177     if (!demuxer->seekable) {
1178         if (demuxer->file_format == DEMUXER_TYPE_AVI)
1179             mp_tmsg(MSGT_SEEK, MSGL_WARN, "Cannot seek in raw AVI streams. (Index required, try with the -idx switch.)\n");
1180 #ifdef CONFIG_TV
1181         else if (demuxer->file_format == DEMUXER_TYPE_TV)
1182             mp_tmsg(MSGT_SEEK, MSGL_WARN, "TV input is not seekable! (Seeking will probably be for changing channels ;)\n");
1183 #endif
1184         else
1185             mp_tmsg(MSGT_SEEK, MSGL_WARN, "Cannot seek in this file.\n");
1186         return 0;
1187     }
1188     // clear demux buffers:
1189     demux_flush(demuxer);
1190     demuxer->video->eof = 0;
1191     demuxer->audio->eof = 0;
1192     demuxer->sub->eof = 0;
1193
1194     /* HACK: assume any demuxer used with these streams can cope with
1195      * the stream layer suddenly seeking to a different position under it
1196      * (nothing actually implements DEMUXER_CTRL_RESYNC now).
1197      */
1198     struct stream *stream = demuxer->stream;
1199     if (stream->type == STREAMTYPE_DVD || stream->type == STREAMTYPE_DVDNAV) {
1200         double pts;
1201
1202         if (flags & SEEK_ABSOLUTE)
1203             pts = 0.0f;
1204         else {
1205             if (demuxer->stream_pts == MP_NOPTS_VALUE)
1206                 goto dmx_seek;
1207             pts = demuxer->stream_pts;
1208         }
1209
1210         if (flags & SEEK_FACTOR) {
1211             double tmp = 0;
1212             if (stream_control(demuxer->stream, STREAM_CTRL_GET_TIME_LENGTH,
1213                                &tmp) == STREAM_UNSUPPORTED)
1214                 goto dmx_seek;
1215             pts += tmp * rel_seek_secs;
1216         } else
1217             pts += rel_seek_secs;
1218
1219         if (stream_control(demuxer->stream, STREAM_CTRL_SEEK_TO_TIME, &pts)
1220             != STREAM_UNSUPPORTED) {
1221             demux_control(demuxer, DEMUXER_CTRL_RESYNC, NULL);
1222             return 1;
1223         }
1224     }
1225
1226   dmx_seek:
1227     if (demuxer->desc->seek)
1228         demuxer->desc->seek(demuxer, rel_seek_secs, audio_delay, flags);
1229
1230     return 1;
1231 }
1232
1233 int demux_info_add(demuxer_t *demuxer, const char *opt, const char *param)
1234 {
1235     return demux_info_add_bstr(demuxer, bstr(opt), bstr(param));
1236 }
1237
1238 int demux_info_add_bstr(demuxer_t *demuxer, struct bstr opt, struct bstr param)
1239 {
1240     char **info = demuxer->info;
1241     int n = 0;
1242
1243
1244     for (n = 0; info && info[2 * n] != NULL; n++) {
1245         if (!bstrcasecmp(opt, bstr(info[2*n]))) {
1246             if (!bstrcmp(param, bstr(info[2*n + 1]))) {
1247                 mp_msg(MSGT_DEMUX, MSGL_V, "Demuxer info %.*s set to unchanged value %.*s\n",
1248                        BSTR_P(opt), BSTR_P(param));
1249                 return 0;
1250             }
1251             mp_tmsg(MSGT_DEMUX, MSGL_INFO, "Demuxer info %.*s changed to %.*s\n",
1252                     BSTR_P(opt), BSTR_P(param));
1253             talloc_free(info[2*n + 1]);
1254             info[2*n + 1] = talloc_strndup(demuxer->info, param.start, param.len);
1255             return 0;
1256         }
1257     }
1258
1259     info = demuxer->info = talloc_realloc(demuxer, info, char *, 2 * (n + 2));
1260     info[2*n]     = talloc_strndup(demuxer->info, opt.start,   opt.len);
1261     info[2*n + 1] = talloc_strndup(demuxer->info, param.start, param.len);
1262     memset(&info[2 * (n + 1)], 0, 2 * sizeof(char *));
1263
1264     return 1;
1265 }
1266
1267 int demux_info_print(demuxer_t *demuxer)
1268 {
1269     char **info = demuxer->info;
1270     int n;
1271
1272     if (!info)
1273         return 0;
1274
1275     mp_tmsg(MSGT_DEMUX, MSGL_INFO, "Clip info:\n");
1276     for (n = 0; info[2 * n] != NULL; n++) {
1277         mp_msg(MSGT_DEMUX, MSGL_INFO, " %s: %s\n", info[2 * n],
1278                info[2 * n + 1]);
1279         mp_msg(MSGT_IDENTIFY, MSGL_INFO, "ID_CLIP_INFO_NAME%d=%s\n", n,
1280                info[2 * n]);
1281         mp_msg(MSGT_IDENTIFY, MSGL_INFO, "ID_CLIP_INFO_VALUE%d=%s\n", n,
1282                info[2 * n + 1]);
1283     }
1284     mp_msg(MSGT_IDENTIFY, MSGL_INFO, "ID_CLIP_INFO_N=%d\n", n);
1285
1286     return 0;
1287 }
1288
1289 char *demux_info_get(demuxer_t *demuxer, const char *opt)
1290 {
1291     int i;
1292     char **info = demuxer->info;
1293
1294     for (i = 0; info && info[2 * i] != NULL; i++) {
1295         if (!strcasecmp(opt, info[2 * i]))
1296             return info[2 * i + 1];
1297     }
1298
1299     return NULL;
1300 }
1301
1302 int demux_control(demuxer_t *demuxer, int cmd, void *arg)
1303 {
1304
1305     if (demuxer->desc->control)
1306         return demuxer->desc->control(demuxer, cmd, arg);
1307
1308     return DEMUXER_CTRL_NOTIMPL;
1309 }
1310
1311 int demuxer_switch_audio(demuxer_t *demuxer, int index)
1312 {
1313     int res = demux_control(demuxer, DEMUXER_CTRL_SWITCH_AUDIO, &index);
1314     if (res == DEMUXER_CTRL_NOTIMPL) {
1315         struct sh_audio *sh_audio = demuxer->audio->sh;
1316         return sh_audio ? sh_audio->aid : -2;
1317     }
1318     if (demuxer->audio->id >= 0) {
1319         struct sh_audio *sh_audio = demuxer->a_streams[demuxer->audio->id];
1320         demuxer->audio->sh = sh_audio;
1321         index = sh_audio->aid; // internal MPEG demuxers don't set it right
1322     }
1323     else
1324         demuxer->audio->sh = NULL;
1325     return index;
1326 }
1327
1328 int demuxer_switch_video(demuxer_t *demuxer, int index)
1329 {
1330     int res = demux_control(demuxer, DEMUXER_CTRL_SWITCH_VIDEO, &index);
1331     if (res == DEMUXER_CTRL_NOTIMPL) {
1332         struct sh_video *sh_video = demuxer->video->sh;
1333         return sh_video ? sh_video->vid : -2;
1334     }
1335     if (demuxer->video->id >= 0) {
1336         struct sh_video *sh_video = demuxer->v_streams[demuxer->video->id];
1337         demuxer->video->sh = sh_video;
1338         index = sh_video->vid; // internal MPEG demuxers don't set it right
1339     } else
1340         demuxer->video->sh = NULL;
1341     return index;
1342 }
1343
1344 int demuxer_add_attachment(demuxer_t *demuxer, struct bstr name,
1345                            struct bstr type, struct bstr data)
1346 {
1347     if (!(demuxer->num_attachments % 32))
1348         demuxer->attachments = talloc_realloc(demuxer, demuxer->attachments,
1349                                               struct demux_attachment,
1350                                               demuxer->num_attachments + 32);
1351
1352     struct demux_attachment *att =
1353         demuxer->attachments + demuxer->num_attachments;
1354     att->name = talloc_strndup(demuxer->attachments, name.start, name.len);
1355     att->type = talloc_strndup(demuxer->attachments, type.start, type.len);
1356     att->data = talloc_size(demuxer->attachments, data.len);
1357     memcpy(att->data, data.start, data.len);
1358     att->data_size = data.len;
1359
1360     return demuxer->num_attachments++;
1361 }
1362
1363 int demuxer_add_chapter(demuxer_t *demuxer, struct bstr name,
1364                         uint64_t start, uint64_t end)
1365 {
1366     if (!(demuxer->num_chapters % 32))
1367         demuxer->chapters = talloc_realloc(demuxer, demuxer->chapters,
1368                                            struct demux_chapter,
1369                                            demuxer->num_chapters + 32);
1370
1371     demuxer->chapters[demuxer->num_chapters].start = start;
1372     demuxer->chapters[demuxer->num_chapters].end = end;
1373     demuxer->chapters[demuxer->num_chapters].name = name.len ?
1374         talloc_strndup(demuxer->chapters, name.start, name.len) :
1375         talloc_strdup(demuxer->chapters, mp_gtext("unknown"));
1376
1377     return demuxer->num_chapters++;
1378 }
1379
1380 /**
1381  * \brief demuxer_seek_chapter() seeks to a chapter in two possible ways:
1382  *        either using the demuxer->chapters structure set by the demuxer
1383  *        or asking help to the stream layer (e.g. dvd)
1384  * \param chapter - chapter number wished - 0-based
1385  * \param seek_pts set by the function to the pts to seek to (if demuxer->chapters is set)
1386  * \return -1 on error, current chapter if successful
1387  */
1388
1389 int demuxer_seek_chapter(demuxer_t *demuxer, int chapter, double *seek_pts)
1390 {
1391     int ris;
1392
1393     if (!demuxer->num_chapters || !demuxer->chapters) {
1394         demux_flush(demuxer);
1395
1396         ris = stream_control(demuxer->stream, STREAM_CTRL_SEEK_TO_CHAPTER,
1397                              &chapter);
1398         if (ris != STREAM_UNSUPPORTED)
1399             demux_control(demuxer, DEMUXER_CTRL_RESYNC, NULL);
1400
1401         // exit status may be ok, but main() doesn't have to seek itself
1402         // (because e.g. dvds depend on sectors, not on pts)
1403         *seek_pts = -1.0;
1404
1405         return ris != STREAM_UNSUPPORTED ? chapter : -1;
1406     } else {  // chapters structure is set in the demuxer
1407         if (chapter >= demuxer->num_chapters)
1408             return -1;
1409         if (chapter < 0)
1410             chapter = 0;
1411
1412         *seek_pts = demuxer->chapters[chapter].start / 1e9;
1413
1414         return chapter;
1415     }
1416 }
1417
1418 int demuxer_get_current_chapter(demuxer_t *demuxer, double time_now)
1419 {
1420     int chapter = -2;
1421     if (!demuxer->num_chapters || !demuxer->chapters) {
1422         if (stream_control(demuxer->stream, STREAM_CTRL_GET_CURRENT_CHAPTER,
1423                            &chapter) == STREAM_UNSUPPORTED)
1424             chapter = -2;
1425     } else {
1426         uint64_t now = time_now * 1e9 + 0.5;
1427         for (chapter = demuxer->num_chapters - 1; chapter >= 0; --chapter) {
1428             if (demuxer->chapters[chapter].start <= now)
1429                 break;
1430         }
1431     }
1432     return chapter;
1433 }
1434
1435 char *demuxer_chapter_name(demuxer_t *demuxer, int chapter)
1436 {
1437     if (demuxer->num_chapters && demuxer->chapters) {
1438         if (chapter >= 0 && chapter < demuxer->num_chapters
1439             && demuxer->chapters[chapter].name)
1440             return talloc_strdup(NULL, demuxer->chapters[chapter].name);
1441     }
1442     return NULL;
1443 }
1444
1445 float demuxer_chapter_time(demuxer_t *demuxer, int chapter, float *end)
1446 {
1447     if (demuxer->num_chapters && demuxer->chapters && chapter >= 0
1448         && chapter < demuxer->num_chapters) {
1449         if (end)
1450             *end = demuxer->chapters[chapter].end / 1e9;
1451         return demuxer->chapters[chapter].start / 1e9;
1452     }
1453     return -1.0;
1454 }
1455
1456 int demuxer_chapter_count(demuxer_t *demuxer)
1457 {
1458     if (!demuxer->num_chapters || !demuxer->chapters) {
1459         int num_chapters = 0;
1460         if (stream_control(demuxer->stream, STREAM_CTRL_GET_NUM_CHAPTERS,
1461                            &num_chapters) == STREAM_UNSUPPORTED)
1462             num_chapters = 0;
1463         return num_chapters;
1464     } else
1465         return demuxer->num_chapters;
1466 }
1467
1468 int demuxer_angles_count(demuxer_t *demuxer)
1469 {
1470     int ris, angles = -1;
1471
1472     ris = stream_control(demuxer->stream, STREAM_CTRL_GET_NUM_ANGLES, &angles);
1473     if (ris == STREAM_UNSUPPORTED)
1474         return -1;
1475     return angles;
1476 }
1477
1478 int demuxer_get_current_angle(demuxer_t *demuxer)
1479 {
1480     int ris, curr_angle = -1;
1481     ris = stream_control(demuxer->stream, STREAM_CTRL_GET_ANGLE, &curr_angle);
1482     if (ris == STREAM_UNSUPPORTED)
1483         return -1;
1484     return curr_angle;
1485 }
1486
1487
1488 int demuxer_set_angle(demuxer_t *demuxer, int angle)
1489 {
1490     int ris, angles = -1;
1491
1492     angles = demuxer_angles_count(demuxer);
1493     if ((angles < 1) || (angle > angles))
1494         return -1;
1495
1496     demux_flush(demuxer);
1497
1498     ris = stream_control(demuxer->stream, STREAM_CTRL_SET_ANGLE, &angle);
1499     if (ris == STREAM_UNSUPPORTED)
1500         return -1;
1501
1502     demux_control(demuxer, DEMUXER_CTRL_RESYNC, NULL);
1503
1504     return angle;
1505 }
1506
1507 int demuxer_audio_track_by_lang_and_default(struct demuxer *d, char **langt)
1508 {
1509     int n = 0;
1510     while (1) {
1511         char *lang = langt ? langt[n++] : NULL;
1512         int id = -1;
1513         for (int i = 0; i < MAX_A_STREAMS; i++) {
1514             struct sh_audio *sh = d->a_streams[i];
1515             if (sh && (!lang || sh->lang && !strcmp(lang, sh->lang))) {
1516                 if (sh->default_track)
1517                     return sh->aid;
1518                 if (id < 0)
1519                     id = sh->aid;
1520             }
1521         }
1522         if (id >= 0)
1523             return id;
1524         if (!lang)
1525             return -1;
1526     }
1527 }
1528
1529 int demuxer_sub_track_by_lang_and_default(struct demuxer *d, char **langt)
1530 {
1531     int n = 0;
1532     while (1) {
1533         char *lang = langt ? langt[n++] : NULL;
1534         int id = -1;
1535         for (int i = 0; i < MAX_S_STREAMS; i++) {
1536             struct sh_sub *sh = d->s_streams[i];
1537             if (sh && (!lang || sh->lang && !strcmp(lang, sh->lang))) {
1538                 if (sh->default_track)
1539                     return sh->sid;
1540                 if (id < 0)
1541                     id = sh->sid;
1542             }
1543         }
1544         if (!lang)
1545             return -1;
1546         if (id >= 0)
1547             return id;
1548     }
1549 }