Statistics
| Branch: | Revision:

ffmpeg / libavformat / mpegts.c @ 08f94e98

History | View | Annotate | Download (45.6 KB)

1
/*
2
 * MPEG2 transport stream (aka DVB) demuxer
3
 * Copyright (c) 2002-2003 Fabrice Bellard
4
 *
5
 * This file is part of FFmpeg.
6
 *
7
 * FFmpeg is free software; you can redistribute it and/or
8
 * modify it under the terms of the GNU Lesser General Public
9
 * License as published by the Free Software Foundation; either
10
 * version 2.1 of the License, or (at your option) any later version.
11
 *
12
 * FFmpeg is distributed in the hope that it will be useful,
13
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15
 * Lesser General Public License for more details.
16
 *
17
 * You should have received a copy of the GNU Lesser General Public
18
 * License along with FFmpeg; if not, write to the Free Software
19
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20
 */
21

    
22
//#define DEBUG
23
//#define DEBUG_SEEK
24

    
25
#include "libavutil/crc.h"
26
#include "libavutil/intreadwrite.h"
27
#include "libavcodec/bytestream.h"
28
#include "avformat.h"
29
#include "mpegts.h"
30
#include "internal.h"
31

    
32
/* 1.0 second at 24Mbit/s */
33
#define MAX_SCAN_PACKETS 32000
34

    
35
/* maximum size in which we look for synchronisation if
36
   synchronisation is lost */
37
#define MAX_RESYNC_SIZE 4096
38

    
39
#define MAX_PES_PAYLOAD 200*1024
40

    
41
typedef struct PESContext PESContext;
42

    
43
static PESContext* add_pes_stream(MpegTSContext *ts, int pid, int pcr_pid, int stream_type);
44

    
45
enum MpegTSFilterType {
46
    MPEGTS_PES,
47
    MPEGTS_SECTION,
48
};
49

    
50
typedef struct MpegTSFilter MpegTSFilter;
51

    
52
typedef int PESCallback(MpegTSFilter *f, const uint8_t *buf, int len, int is_start, int64_t pos);
53

    
54
typedef struct MpegTSPESFilter {
55
    PESCallback *pes_cb;
56
    void *opaque;
57
} MpegTSPESFilter;
58

    
59
typedef void SectionCallback(MpegTSFilter *f, const uint8_t *buf, int len);
60

    
61
typedef void SetServiceCallback(void *opaque, int ret);
62

    
63
typedef struct MpegTSSectionFilter {
64
    int section_index;
65
    int section_h_size;
66
    uint8_t *section_buf;
67
    unsigned int check_crc:1;
68
    unsigned int end_of_section_reached:1;
69
    SectionCallback *section_cb;
70
    void *opaque;
71
} MpegTSSectionFilter;
72

    
73
struct MpegTSFilter {
74
    int pid;
75
    int last_cc; /* last cc code (-1 if first packet) */
76
    enum MpegTSFilterType type;
77
    union {
78
        MpegTSPESFilter pes_filter;
79
        MpegTSSectionFilter section_filter;
80
    } u;
81
};
82

    
83
#define MAX_PIDS_PER_PROGRAM 64
84
struct Program {
85
    unsigned int id; //program id/service id
86
    unsigned int nb_pids;
87
    unsigned int pids[MAX_PIDS_PER_PROGRAM];
88
};
89

    
90
struct MpegTSContext {
91
    /* user data */
92
    AVFormatContext *stream;
93
    /** raw packet size, including FEC if present            */
94
    int raw_packet_size;
95

    
96
    int pos47;
97

    
98
    /** if true, all pids are analyzed to find streams       */
99
    int auto_guess;
100

    
101
    /** compute exact PCR for each transport stream packet   */
102
    int mpeg2ts_compute_pcr;
103

    
104
    int64_t cur_pcr;    /**< used to estimate the exact PCR  */
105
    int pcr_incr;       /**< used to estimate the exact PCR  */
106

    
107
    /* data needed to handle file based ts */
108
    /** stop parsing loop                                    */
109
    int stop_parse;
110
    /** packet containing Audio/Video data                   */
111
    AVPacket *pkt;
112
    /** to detect seek                                       */
113
    int64_t last_pos;
114

    
115
    /******************************************/
116
    /* private mpegts data */
117
    /* scan context */
118
    /** structure to keep track of Program->pids mapping     */
119
    unsigned int nb_prg;
120
    struct Program *prg;
121

    
122

    
123
    /** filters for various streams specified by PMT + for the PAT and PMT */
124
    MpegTSFilter *pids[NB_PID_MAX];
125
};
126

    
127
/* TS stream handling */
128

    
129
enum MpegTSState {
130
    MPEGTS_HEADER = 0,
131
    MPEGTS_PESHEADER_FILL,
132
    MPEGTS_PAYLOAD,
133
    MPEGTS_SKIP,
134
};
135

    
136
/* enough for PES header + length */
137
#define PES_START_SIZE 9
138
#define MAX_PES_HEADER_SIZE (9 + 255)
139

    
140
struct PESContext {
141
    int pid;
142
    int pcr_pid; /**< if -1 then all packets containing PCR are considered */
143
    int stream_type;
144
    MpegTSContext *ts;
145
    AVFormatContext *stream;
146
    AVStream *st;
147
    enum MpegTSState state;
148
    /* used to get the format */
149
    int data_index;
150
    int total_size;
151
    int pes_header_size;
152
    int64_t pts, dts;
153
    int64_t ts_packet_pos; /**< position of first TS packet of this PES packet */
154
    uint8_t header[MAX_PES_HEADER_SIZE];
155
    uint8_t *buffer;
156
};
157

    
158
extern AVInputFormat mpegts_demuxer;
159

    
160
static void clear_program(MpegTSContext *ts, unsigned int programid)
161
{
162
    int i;
163

    
164
    for(i=0; i<ts->nb_prg; i++)
165
        if(ts->prg[i].id == programid)
166
            ts->prg[i].nb_pids = 0;
167
}
168

    
169
static void clear_programs(MpegTSContext *ts)
170
{
171
    av_freep(&ts->prg);
172
    ts->nb_prg=0;
173
}
174

    
175
static void add_pat_entry(MpegTSContext *ts, unsigned int programid)
176
{
177
    struct Program *p;
178
    void *tmp = av_realloc(ts->prg, (ts->nb_prg+1)*sizeof(struct Program));
179
    if(!tmp)
180
        return;
181
    ts->prg = tmp;
182
    p = &ts->prg[ts->nb_prg];
183
    p->id = programid;
184
    p->nb_pids = 0;
185
    ts->nb_prg++;
186
}
187

    
188
static void add_pid_to_pmt(MpegTSContext *ts, unsigned int programid, unsigned int pid)
189
{
190
    int i;
191
    struct Program *p = NULL;
192
    for(i=0; i<ts->nb_prg; i++) {
193
        if(ts->prg[i].id == programid) {
194
            p = &ts->prg[i];
195
            break;
196
        }
197
    }
198
    if(!p)
199
        return;
200

    
201
    if(p->nb_pids >= MAX_PIDS_PER_PROGRAM)
202
        return;
203
    p->pids[p->nb_pids++] = pid;
204
}
205

    
206
/**
207
 * \brief discard_pid() decides if the pid is to be discarded according
208
 *                      to caller's programs selection
209
 * \param ts    : - TS context
210
 * \param pid   : - pid
211
 * \return 1 if the pid is only comprised in programs that have .discard=AVDISCARD_ALL
212
 *         0 otherwise
213
 */
214
static int discard_pid(MpegTSContext *ts, unsigned int pid)
215
{
216
    int i, j, k;
217
    int used = 0, discarded = 0;
218
    struct Program *p;
219
    for(i=0; i<ts->nb_prg; i++) {
220
        p = &ts->prg[i];
221
        for(j=0; j<p->nb_pids; j++) {
222
            if(p->pids[j] != pid)
223
                continue;
224
            //is program with id p->id set to be discarded?
225
            for(k=0; k<ts->stream->nb_programs; k++) {
226
                if(ts->stream->programs[k]->id == p->id) {
227
                    if(ts->stream->programs[k]->discard == AVDISCARD_ALL)
228
                        discarded++;
229
                    else
230
                        used++;
231
                }
232
            }
233
        }
234
    }
235

    
236
    return !used && discarded;
237
}
238

    
239
/**
240
 *  Assembles PES packets out of TS packets, and then calls the "section_cb"
241
 *  function when they are complete.
242
 */
243
static void write_section_data(AVFormatContext *s, MpegTSFilter *tss1,
244
                               const uint8_t *buf, int buf_size, int is_start)
245
{
246
    MpegTSSectionFilter *tss = &tss1->u.section_filter;
247
    int len;
248

    
249
    if (is_start) {
250
        memcpy(tss->section_buf, buf, buf_size);
251
        tss->section_index = buf_size;
252
        tss->section_h_size = -1;
253
        tss->end_of_section_reached = 0;
254
    } else {
255
        if (tss->end_of_section_reached)
256
            return;
257
        len = 4096 - tss->section_index;
258
        if (buf_size < len)
259
            len = buf_size;
260
        memcpy(tss->section_buf + tss->section_index, buf, len);
261
        tss->section_index += len;
262
    }
263

    
264
    /* compute section length if possible */
265
    if (tss->section_h_size == -1 && tss->section_index >= 3) {
266
        len = (AV_RB16(tss->section_buf + 1) & 0xfff) + 3;
267
        if (len > 4096)
268
            return;
269
        tss->section_h_size = len;
270
    }
271

    
272
    if (tss->section_h_size != -1 && tss->section_index >= tss->section_h_size) {
273
        tss->end_of_section_reached = 1;
274
        if (!tss->check_crc ||
275
            av_crc(av_crc_get_table(AV_CRC_32_IEEE), -1,
276
                   tss->section_buf, tss->section_h_size) == 0)
277
            tss->section_cb(tss1, tss->section_buf, tss->section_h_size);
278
    }
279
}
280

    
281
static MpegTSFilter *mpegts_open_section_filter(MpegTSContext *ts, unsigned int pid,
282
                                         SectionCallback *section_cb, void *opaque,
283
                                         int check_crc)
284

    
285
{
286
    MpegTSFilter *filter;
287
    MpegTSSectionFilter *sec;
288

    
289
    dprintf(ts->stream, "Filter: pid=0x%x\n", pid);
290

    
291
    if (pid >= NB_PID_MAX || ts->pids[pid])
292
        return NULL;
293
    filter = av_mallocz(sizeof(MpegTSFilter));
294
    if (!filter)
295
        return NULL;
296
    ts->pids[pid] = filter;
297
    filter->type = MPEGTS_SECTION;
298
    filter->pid = pid;
299
    filter->last_cc = -1;
300
    sec = &filter->u.section_filter;
301
    sec->section_cb = section_cb;
302
    sec->opaque = opaque;
303
    sec->section_buf = av_malloc(MAX_SECTION_SIZE);
304
    sec->check_crc = check_crc;
305
    if (!sec->section_buf) {
306
        av_free(filter);
307
        return NULL;
308
    }
309
    return filter;
310
}
311

    
312
static MpegTSFilter *mpegts_open_pes_filter(MpegTSContext *ts, unsigned int pid,
313
                                     PESCallback *pes_cb,
314
                                     void *opaque)
315
{
316
    MpegTSFilter *filter;
317
    MpegTSPESFilter *pes;
318

    
319
    if (pid >= NB_PID_MAX || ts->pids[pid])
320
        return NULL;
321
    filter = av_mallocz(sizeof(MpegTSFilter));
322
    if (!filter)
323
        return NULL;
324
    ts->pids[pid] = filter;
325
    filter->type = MPEGTS_PES;
326
    filter->pid = pid;
327
    filter->last_cc = -1;
328
    pes = &filter->u.pes_filter;
329
    pes->pes_cb = pes_cb;
330
    pes->opaque = opaque;
331
    return filter;
332
}
333

    
334
static void mpegts_close_filter(MpegTSContext *ts, MpegTSFilter *filter)
335
{
336
    int pid;
337

    
338
    pid = filter->pid;
339
    if (filter->type == MPEGTS_SECTION)
340
        av_freep(&filter->u.section_filter.section_buf);
341
    else if (filter->type == MPEGTS_PES) {
342
        PESContext *pes = filter->u.pes_filter.opaque;
343
        av_freep(&pes->buffer);
344
        /* referenced private data will be freed later in
345
         * av_close_input_stream */
346
        if (!((PESContext *)filter->u.pes_filter.opaque)->st) {
347
            av_freep(&filter->u.pes_filter.opaque);
348
        }
349
    }
350

    
351
    av_free(filter);
352
    ts->pids[pid] = NULL;
353
}
354

    
355
static int analyze(const uint8_t *buf, int size, int packet_size, int *index){
356
    int stat[packet_size];
357
    int i;
358
    int x=0;
359
    int best_score=0;
360

    
361
    memset(stat, 0, packet_size*sizeof(int));
362

    
363
    for(x=i=0; i<size-3; i++){
364
        if(buf[i] == 0x47 && !(buf[i+1] & 0x80) && (buf[i+3] & 0x30)){
365
            stat[x]++;
366
            if(stat[x] > best_score){
367
                best_score= stat[x];
368
                if(index) *index= x;
369
            }
370
        }
371

    
372
        x++;
373
        if(x == packet_size) x= 0;
374
    }
375

    
376
    return best_score;
377
}
378

    
379
/* autodetect fec presence. Must have at least 1024 bytes  */
380
static int get_packet_size(const uint8_t *buf, int size)
381
{
382
    int score, fec_score, dvhs_score;
383

    
384
    if (size < (TS_FEC_PACKET_SIZE * 5 + 1))
385
        return -1;
386

    
387
    score    = analyze(buf, size, TS_PACKET_SIZE, NULL);
388
    dvhs_score    = analyze(buf, size, TS_DVHS_PACKET_SIZE, NULL);
389
    fec_score= analyze(buf, size, TS_FEC_PACKET_SIZE, NULL);
390
//    av_log(NULL, AV_LOG_DEBUG, "score: %d, dvhs_score: %d, fec_score: %d \n", score, dvhs_score, fec_score);
391

    
392
    if     (score > fec_score && score > dvhs_score) return TS_PACKET_SIZE;
393
    else if(dvhs_score > score && dvhs_score > fec_score) return TS_DVHS_PACKET_SIZE;
394
    else if(score < fec_score && dvhs_score < fec_score) return TS_FEC_PACKET_SIZE;
395
    else                       return -1;
396
}
397

    
398
typedef struct SectionHeader {
399
    uint8_t tid;
400
    uint16_t id;
401
    uint8_t version;
402
    uint8_t sec_num;
403
    uint8_t last_sec_num;
404
} SectionHeader;
405

    
406
static inline int get8(const uint8_t **pp, const uint8_t *p_end)
407
{
408
    const uint8_t *p;
409
    int c;
410

    
411
    p = *pp;
412
    if (p >= p_end)
413
        return -1;
414
    c = *p++;
415
    *pp = p;
416
    return c;
417
}
418

    
419
static inline int get16(const uint8_t **pp, const uint8_t *p_end)
420
{
421
    const uint8_t *p;
422
    int c;
423

    
424
    p = *pp;
425
    if ((p + 1) >= p_end)
426
        return -1;
427
    c = AV_RB16(p);
428
    p += 2;
429
    *pp = p;
430
    return c;
431
}
432

    
433
/* read and allocate a DVB string preceeded by its length */
434
static char *getstr8(const uint8_t **pp, const uint8_t *p_end)
435
{
436
    int len;
437
    const uint8_t *p;
438
    char *str;
439

    
440
    p = *pp;
441
    len = get8(&p, p_end);
442
    if (len < 0)
443
        return NULL;
444
    if ((p + len) > p_end)
445
        return NULL;
446
    str = av_malloc(len + 1);
447
    if (!str)
448
        return NULL;
449
    memcpy(str, p, len);
450
    str[len] = '\0';
451
    p += len;
452
    *pp = p;
453
    return str;
454
}
455

    
456
static int parse_section_header(SectionHeader *h,
457
                                const uint8_t **pp, const uint8_t *p_end)
458
{
459
    int val;
460

    
461
    val = get8(pp, p_end);
462
    if (val < 0)
463
        return -1;
464
    h->tid = val;
465
    *pp += 2;
466
    val = get16(pp, p_end);
467
    if (val < 0)
468
        return -1;
469
    h->id = val;
470
    val = get8(pp, p_end);
471
    if (val < 0)
472
        return -1;
473
    h->version = (val >> 1) & 0x1f;
474
    val = get8(pp, p_end);
475
    if (val < 0)
476
        return -1;
477
    h->sec_num = val;
478
    val = get8(pp, p_end);
479
    if (val < 0)
480
        return -1;
481
    h->last_sec_num = val;
482
    return 0;
483
}
484

    
485
typedef struct {
486
    uint32_t stream_type;
487
    enum CodecType codec_type;
488
    enum CodecID codec_id;
489
} StreamType;
490

    
491
static const StreamType ISO_types[] = {
492
    { 0x01, CODEC_TYPE_VIDEO, CODEC_ID_MPEG2VIDEO },
493
    { 0x02, CODEC_TYPE_VIDEO, CODEC_ID_MPEG2VIDEO },
494
    { 0x03, CODEC_TYPE_AUDIO,        CODEC_ID_MP3 },
495
    { 0x04, CODEC_TYPE_AUDIO,        CODEC_ID_MP3 },
496
    { 0x0f, CODEC_TYPE_AUDIO,        CODEC_ID_AAC },
497
    { 0x10, CODEC_TYPE_VIDEO,      CODEC_ID_MPEG4 },
498
    { 0x1b, CODEC_TYPE_VIDEO,       CODEC_ID_H264 },
499
    { 0xd1, CODEC_TYPE_VIDEO,      CODEC_ID_DIRAC },
500
    { 0xea, CODEC_TYPE_VIDEO,        CODEC_ID_VC1 },
501
    { 0 },
502
};
503

    
504
static const StreamType HDMV_types[] = {
505
    { 0x81, CODEC_TYPE_AUDIO, CODEC_ID_AC3 },
506
    { 0x82, CODEC_TYPE_AUDIO, CODEC_ID_DTS },
507
    { 0 },
508
};
509

    
510
/* ATSC ? */
511
static const StreamType MISC_types[] = {
512
    { 0x81, CODEC_TYPE_AUDIO,   CODEC_ID_AC3 },
513
    { 0x8a, CODEC_TYPE_AUDIO,   CODEC_ID_DTS },
514
    {0x100, CODEC_TYPE_SUBTITLE, CODEC_ID_DVB_SUBTITLE }, // demuxer internal
515
    { 0 },
516
};
517

    
518
static const StreamType REGD_types[] = {
519
    { MKTAG('d','r','a','c'), CODEC_TYPE_VIDEO, CODEC_ID_DIRAC },
520
    { MKTAG('A','C','-','3'), CODEC_TYPE_AUDIO,   CODEC_ID_AC3 },
521
    { 0 },
522
};
523

    
524
static void mpegts_find_stream_type(AVStream *st,
525
                                    uint32_t stream_type, const StreamType *types)
526
{
527
    for (; types->stream_type; types++) {
528
        if (stream_type == types->stream_type) {
529
            st->codec->codec_type = types->codec_type;
530
            st->codec->codec_id   = types->codec_id;
531
            return;
532
        }
533
    }
534
}
535

    
536
static AVStream *new_pes_av_stream(PESContext *pes, uint32_t code,
537
                                   uint32_t prog_reg_desc, uint32_t reg_desc)
538
{
539
    AVStream *st = av_new_stream(pes->stream, pes->pid);
540

    
541
    if (!st)
542
        return NULL;
543

    
544
    av_set_pts_info(st, 33, 1, 90000);
545
    st->priv_data = pes;
546
    st->codec->codec_type = CODEC_TYPE_DATA;
547
    st->codec->codec_id   = CODEC_ID_PROBE;
548
    st->need_parsing = AVSTREAM_PARSE_FULL;
549
    pes->st = st;
550

    
551
    dprintf(pes->stream, "stream_type=%x prog_reg_desc=%.4s reg_desc=%.4s\n",
552
            pes->stream_type, (char*)&prog_reg_desc, (char*)&reg_desc);
553

    
554
    if (pes->stream_type == 0x06) { // private data carrying pes data
555
        mpegts_find_stream_type(st, reg_desc, REGD_types);
556
    } else {
557
        mpegts_find_stream_type(st, pes->stream_type, ISO_types);
558
        if (prog_reg_desc == AV_RL32("HDMV") &&
559
            st->codec->codec_id == CODEC_ID_PROBE)
560
            mpegts_find_stream_type(st, pes->stream_type, HDMV_types);
561
        if (st->codec->codec_id == CODEC_ID_PROBE)
562
            mpegts_find_stream_type(st, pes->stream_type, MISC_types);
563
    }
564

    
565
    return st;
566
}
567

    
568
static void pmt_cb(MpegTSFilter *filter, const uint8_t *section, int section_len)
569
{
570
    MpegTSContext *ts = filter->u.section_filter.opaque;
571
    SectionHeader h1, *h = &h1;
572
    PESContext *pes;
573
    AVStream *st;
574
    const uint8_t *p, *p_end, *desc_list_end, *desc_end;
575
    int program_info_length, pcr_pid, pid, stream_type;
576
    int desc_list_len, desc_len, desc_tag;
577
    int comp_page = 0, anc_page = 0; /* initialize to kill warnings */
578
    char language[4] = {0}; /* initialize to kill warnings */
579
    uint32_t prog_reg_desc = 0; /* registration descriptor */
580
    uint32_t reg_desc = 0; /* registration descriptor */
581

    
582
#ifdef DEBUG
583
    dprintf(ts->stream, "PMT: len %i\n", section_len);
584
    av_hex_dump_log(ts->stream, AV_LOG_DEBUG, (uint8_t *)section, section_len);
585
#endif
586

    
587
    p_end = section + section_len - 4;
588
    p = section;
589
    if (parse_section_header(h, &p, p_end) < 0)
590
        return;
591

    
592
    dprintf(ts->stream, "sid=0x%x sec_num=%d/%d\n",
593
           h->id, h->sec_num, h->last_sec_num);
594

    
595
    if (h->tid != PMT_TID)
596
        return;
597

    
598
    clear_program(ts, h->id);
599
    pcr_pid = get16(&p, p_end) & 0x1fff;
600
    if (pcr_pid < 0)
601
        return;
602
    add_pid_to_pmt(ts, h->id, pcr_pid);
603

    
604
    dprintf(ts->stream, "pcr_pid=0x%x\n", pcr_pid);
605

    
606
    program_info_length = get16(&p, p_end) & 0xfff;
607
    if (program_info_length < 0)
608
        return;
609
    while(program_info_length >= 2) {
610
        uint8_t tag, len;
611
        tag = get8(&p, p_end);
612
        len = get8(&p, p_end);
613
        if(len > program_info_length - 2)
614
            //something else is broken, exit the program_descriptors_loop
615
            break;
616
        program_info_length -= len + 2;
617
        if(tag == 0x05 && len >= 4) { // registration descriptor
618
            prog_reg_desc = bytestream_get_le32(&p);
619
            len -= 4;
620
        }
621
        p += len;
622
    }
623
    p += program_info_length;
624
    if (p >= p_end)
625
        return;
626
    for(;;) {
627
        reg_desc = 0;
628
        language[0] = 0;
629
        st = 0;
630
        stream_type = get8(&p, p_end);
631
        if (stream_type < 0)
632
            break;
633
        pid = get16(&p, p_end) & 0x1fff;
634
        if (pid < 0)
635
            break;
636
        desc_list_len = get16(&p, p_end) & 0xfff;
637
        if (desc_list_len < 0)
638
            break;
639
        desc_list_end = p + desc_list_len;
640
        if (desc_list_end > p_end)
641
            break;
642
        for(;;) {
643
            desc_tag = get8(&p, desc_list_end);
644
            if (desc_tag < 0)
645
                break;
646
            if (stream_type == STREAM_TYPE_PRIVATE_DATA) {
647
                if((desc_tag == 0x6A) || (desc_tag == 0x7A)) {
648
                    /*assume DVB AC-3 Audio*/
649
                    stream_type = STREAM_TYPE_AUDIO_AC3;
650
                } else if(desc_tag == 0x7B) {
651
                    /* DVB DTS audio */
652
                    stream_type = STREAM_TYPE_AUDIO_DTS;
653
                }
654
            }
655
            desc_len = get8(&p, desc_list_end);
656
            if (desc_len < 0)
657
                break;
658
            desc_end = p + desc_len;
659
            if (desc_end > desc_list_end)
660
                break;
661

    
662
            dprintf(ts->stream, "tag: 0x%02x len=%d\n",
663
                   desc_tag, desc_len);
664

    
665
            switch(desc_tag) {
666
            case 0x59: /* subtitling descriptor */
667
                if (stream_type == STREAM_TYPE_PRIVATE_DATA)
668
                    stream_type = 0x100; // demuxer internal
669

    
670
                language[0] = get8(&p, desc_end);
671
                language[1] = get8(&p, desc_end);
672
                language[2] = get8(&p, desc_end);
673
                language[3] = 0;
674
                get8(&p, desc_end);
675
                comp_page = get16(&p, desc_end);
676
                anc_page = get16(&p, desc_end);
677

    
678
                break;
679
            case 0x0a: /* ISO 639 language descriptor */
680
                language[0] = get8(&p, desc_end);
681
                language[1] = get8(&p, desc_end);
682
                language[2] = get8(&p, desc_end);
683
                language[3] = 0;
684
                break;
685
            case 0x05: /* registration descriptor */
686
                reg_desc = bytestream_get_le32(&p);
687
                break;
688
            default:
689
                break;
690
            }
691
            p = desc_end;
692
        }
693
        p = desc_list_end;
694

    
695
        dprintf(ts->stream, "stream_type=%x pid=0x%x\n",
696
               stream_type, pid);
697

    
698
        /* now create ffmpeg stream */
699
        if (ts->pids[pid] && ts->pids[pid]->type == MPEGTS_PES) {
700
            pes= ts->pids[pid]->u.pes_filter.opaque;
701
            st= pes->st;
702
        } else {
703
            if (ts->pids[pid]) mpegts_close_filter(ts, ts->pids[pid]); //wrongly added sdt filter probably
704
            pes = add_pes_stream(ts, pid, pcr_pid, stream_type);
705
            if (pes)
706
                st = new_pes_av_stream(pes, 0, prog_reg_desc, reg_desc);
707
        }
708

    
709
        add_pid_to_pmt(ts, h->id, pid);
710

    
711
        if(st) {
712
            av_program_add_stream_index(ts->stream, h->id, st->index);
713

    
714
            if (language[0] != 0)
715
                av_metadata_set(&st->metadata, "language", language);
716

    
717
            if (stream_type == 0x100)
718
                st->codec->sub_id = (anc_page << 16) | comp_page;
719
        }
720
    }
721
    /* all parameters are there */
722
    ts->stop_parse++;
723
    mpegts_close_filter(ts, filter);
724
}
725

    
726
static void pat_cb(MpegTSFilter *filter, const uint8_t *section, int section_len)
727
{
728
    MpegTSContext *ts = filter->u.section_filter.opaque;
729
    SectionHeader h1, *h = &h1;
730
    const uint8_t *p, *p_end;
731
    int sid, pmt_pid;
732

    
733
#ifdef DEBUG
734
    dprintf(ts->stream, "PAT:\n");
735
    av_hex_dump_log(ts->stream, AV_LOG_DEBUG, (uint8_t *)section, section_len);
736
#endif
737
    p_end = section + section_len - 4;
738
    p = section;
739
    if (parse_section_header(h, &p, p_end) < 0)
740
        return;
741
    if (h->tid != PAT_TID)
742
        return;
743

    
744
    clear_programs(ts);
745
    for(;;) {
746
        sid = get16(&p, p_end);
747
        if (sid < 0)
748
            break;
749
        pmt_pid = get16(&p, p_end) & 0x1fff;
750
        if (pmt_pid < 0)
751
            break;
752

    
753
        dprintf(ts->stream, "sid=0x%x pid=0x%x\n", sid, pmt_pid);
754

    
755
        if (sid == 0x0000) {
756
            /* NIT info */
757
        } else {
758
            av_new_program(ts->stream, sid);
759
            ts->stop_parse--;
760
            mpegts_open_section_filter(ts, pmt_pid, pmt_cb, ts, 1);
761
            add_pat_entry(ts, sid);
762
            add_pid_to_pmt(ts, sid, 0); //add pat pid to program
763
            add_pid_to_pmt(ts, sid, pmt_pid);
764
        }
765
    }
766
    /* not found */
767
    ts->stop_parse++;
768

    
769
    mpegts_close_filter(ts, filter);
770
}
771

    
772
static void sdt_cb(MpegTSFilter *filter, const uint8_t *section, int section_len)
773
{
774
    MpegTSContext *ts = filter->u.section_filter.opaque;
775
    SectionHeader h1, *h = &h1;
776
    const uint8_t *p, *p_end, *desc_list_end, *desc_end;
777
    int onid, val, sid, desc_list_len, desc_tag, desc_len, service_type;
778
    char *name, *provider_name;
779

    
780
#ifdef DEBUG
781
    dprintf(ts->stream, "SDT:\n");
782
    av_hex_dump_log(ts->stream, AV_LOG_DEBUG, (uint8_t *)section, section_len);
783
#endif
784

    
785
    p_end = section + section_len - 4;
786
    p = section;
787
    if (parse_section_header(h, &p, p_end) < 0)
788
        return;
789
    if (h->tid != SDT_TID)
790
        return;
791
    onid = get16(&p, p_end);
792
    if (onid < 0)
793
        return;
794
    val = get8(&p, p_end);
795
    if (val < 0)
796
        return;
797
    for(;;) {
798
        sid = get16(&p, p_end);
799
        if (sid < 0)
800
            break;
801
        val = get8(&p, p_end);
802
        if (val < 0)
803
            break;
804
        desc_list_len = get16(&p, p_end) & 0xfff;
805
        if (desc_list_len < 0)
806
            break;
807
        desc_list_end = p + desc_list_len;
808
        if (desc_list_end > p_end)
809
            break;
810
        for(;;) {
811
            desc_tag = get8(&p, desc_list_end);
812
            if (desc_tag < 0)
813
                break;
814
            desc_len = get8(&p, desc_list_end);
815
            desc_end = p + desc_len;
816
            if (desc_end > desc_list_end)
817
                break;
818

    
819
            dprintf(ts->stream, "tag: 0x%02x len=%d\n",
820
                   desc_tag, desc_len);
821

    
822
            switch(desc_tag) {
823
            case 0x48:
824
                service_type = get8(&p, p_end);
825
                if (service_type < 0)
826
                    break;
827
                provider_name = getstr8(&p, p_end);
828
                if (!provider_name)
829
                    break;
830
                name = getstr8(&p, p_end);
831
                if (name) {
832
                    AVProgram *program = av_new_program(ts->stream, sid);
833
                    if(program) {
834
                        av_metadata_set(&program->metadata, "name", name);
835
                        av_metadata_set(&program->metadata, "provider_name", provider_name);
836
                    }
837
                }
838
                av_free(name);
839
                av_free(provider_name);
840
                break;
841
            default:
842
                break;
843
            }
844
            p = desc_end;
845
        }
846
        p = desc_list_end;
847
    }
848
}
849

    
850
static int64_t get_pts(const uint8_t *p)
851
{
852
    int64_t pts = (int64_t)((p[0] >> 1) & 0x07) << 30;
853
    pts |= (AV_RB16(p + 1) >> 1) << 15;
854
    pts |=  AV_RB16(p + 3) >> 1;
855
    return pts;
856
}
857

    
858
static void new_pes_packet(PESContext *pes, AVPacket *pkt)
859
{
860
    av_init_packet(pkt);
861

    
862
    pkt->destruct = av_destruct_packet;
863
    pkt->data = pes->buffer;
864
    pkt->size = pes->data_index;
865
    memset(pkt->data+pkt->size, 0, FF_INPUT_BUFFER_PADDING_SIZE);
866

    
867
    pkt->stream_index = pes->st->index;
868
    pkt->pts = pes->pts;
869
    pkt->dts = pes->dts;
870
    /* store position of first TS packet of this PES packet */
871
    pkt->pos = pes->ts_packet_pos;
872

    
873
    /* reset pts values */
874
    pes->pts = AV_NOPTS_VALUE;
875
    pes->dts = AV_NOPTS_VALUE;
876
    pes->buffer = NULL;
877
    pes->data_index = 0;
878
}
879

    
880
/* return non zero if a packet could be constructed */
881
static int mpegts_push_data(MpegTSFilter *filter,
882
                            const uint8_t *buf, int buf_size, int is_start,
883
                            int64_t pos)
884
{
885
    PESContext *pes = filter->u.pes_filter.opaque;
886
    MpegTSContext *ts = pes->ts;
887
    const uint8_t *p;
888
    int len, code;
889

    
890
    if(!ts->pkt)
891
        return 0;
892

    
893
    if (is_start) {
894
        if (pes->state == MPEGTS_PAYLOAD && pes->data_index > 0) {
895
            new_pes_packet(pes, ts->pkt);
896
            ts->stop_parse = 1;
897
        }
898
        pes->state = MPEGTS_HEADER;
899
        pes->data_index = 0;
900
        pes->ts_packet_pos = pos;
901
    }
902
    p = buf;
903
    while (buf_size > 0) {
904
        switch(pes->state) {
905
        case MPEGTS_HEADER:
906
            len = PES_START_SIZE - pes->data_index;
907
            if (len > buf_size)
908
                len = buf_size;
909
            memcpy(pes->header + pes->data_index, p, len);
910
            pes->data_index += len;
911
            p += len;
912
            buf_size -= len;
913
            if (pes->data_index == PES_START_SIZE) {
914
                /* we got all the PES or section header. We can now
915
                   decide */
916
#if 0
917
                av_hex_dump_log(pes->stream, AV_LOG_DEBUG, pes->header, pes->data_index);
918
#endif
919
                if (pes->header[0] == 0x00 && pes->header[1] == 0x00 &&
920
                    pes->header[2] == 0x01) {
921
                    /* it must be an mpeg2 PES stream */
922
                    code = pes->header[3] | 0x100;
923
                    if (!pes->st || pes->st->discard == AVDISCARD_ALL ||
924
                        !((code >= 0x1c0 && code <= 0x1df) ||
925
                          (code >= 0x1e0 && code <= 0x1ef) ||
926
                          (code == 0x1bd) || (code == 0x1fd)))
927
                        goto skip;
928
                    pes->state = MPEGTS_PESHEADER_FILL;
929
                    pes->total_size = AV_RB16(pes->header + 4);
930
                    /* NOTE: a zero total size means the PES size is
931
                       unbounded */
932
                    pes->pes_header_size = pes->header[8] + 9;
933
                } else {
934
                    /* otherwise, it should be a table */
935
                    /* skip packet */
936
                skip:
937
                    pes->state = MPEGTS_SKIP;
938
                    continue;
939
                }
940
            }
941
            break;
942
            /**********************************************/
943
            /* PES packing parsing */
944
        case MPEGTS_PESHEADER_FILL:
945
            len = pes->pes_header_size - pes->data_index;
946
            if (len < 0)
947
                return -1;
948
            if (len > buf_size)
949
                len = buf_size;
950
            memcpy(pes->header + pes->data_index, p, len);
951
            pes->data_index += len;
952
            p += len;
953
            buf_size -= len;
954
            if (pes->data_index == pes->pes_header_size) {
955
                const uint8_t *r;
956
                unsigned int flags;
957

    
958
                flags = pes->header[7];
959
                r = pes->header + 9;
960
                pes->pts = AV_NOPTS_VALUE;
961
                pes->dts = AV_NOPTS_VALUE;
962
                if ((flags & 0xc0) == 0x80) {
963
                    pes->dts = pes->pts = get_pts(r);
964
                    r += 5;
965
                } else if ((flags & 0xc0) == 0xc0) {
966
                    pes->pts = get_pts(r);
967
                    r += 5;
968
                    pes->dts = get_pts(r);
969
                    r += 5;
970
                }
971

    
972
                if (pes->total_size > pes->data_index - 6)
973
                    pes->total_size -= pes->data_index - 6;
974
                else
975
                    pes->total_size = MAX_PES_PAYLOAD;
976
                /* allocate pes buffer */
977
                pes->buffer = av_malloc(pes->total_size+FF_INPUT_BUFFER_PADDING_SIZE);
978
                if (!pes->buffer)
979
                    return AVERROR(ENOMEM);
980

    
981
                /* we got the full header. We parse it and get the payload */
982
                pes->state = MPEGTS_PAYLOAD;
983
                pes->data_index = 0;
984
            }
985
            break;
986
        case MPEGTS_PAYLOAD:
987
            if (buf_size > 0) {
988
                if (pes->data_index+buf_size > pes->total_size) {
989
                    new_pes_packet(pes, ts->pkt);
990
                    pes->total_size = MAX_PES_PAYLOAD;
991
                    pes->buffer = av_malloc(pes->total_size+FF_INPUT_BUFFER_PADDING_SIZE);
992
                    if (!pes->buffer)
993
                        return AVERROR(ENOMEM);
994
                    ts->stop_parse = 1;
995
                }
996
                memcpy(pes->buffer+pes->data_index, p, buf_size);
997
                pes->data_index += buf_size;
998
            }
999
            buf_size = 0;
1000
            break;
1001
        case MPEGTS_SKIP:
1002
            buf_size = 0;
1003
            break;
1004
        }
1005
    }
1006

    
1007
    return 0;
1008
}
1009

    
1010
static PESContext *add_pes_stream(MpegTSContext *ts, int pid, int pcr_pid, int stream_type)
1011
{
1012
    MpegTSFilter *tss;
1013
    PESContext *pes;
1014

    
1015
    /* if no pid found, then add a pid context */
1016
    pes = av_mallocz(sizeof(PESContext));
1017
    if (!pes)
1018
        return 0;
1019
    pes->ts = ts;
1020
    pes->stream = ts->stream;
1021
    pes->pid = pid;
1022
    pes->pcr_pid = pcr_pid;
1023
    pes->stream_type = stream_type;
1024
    tss = mpegts_open_pes_filter(ts, pid, mpegts_push_data, pes);
1025
    if (!tss) {
1026
        av_free(pes);
1027
        return 0;
1028
    }
1029
    return pes;
1030
}
1031

    
1032
/* handle one TS packet */
1033
static int handle_packet(MpegTSContext *ts, const uint8_t *packet)
1034
{
1035
    AVFormatContext *s = ts->stream;
1036
    MpegTSFilter *tss;
1037
    int len, pid, cc, cc_ok, afc, is_start;
1038
    const uint8_t *p, *p_end;
1039
    int64_t pos;
1040

    
1041
    pid = AV_RB16(packet + 1) & 0x1fff;
1042
    if(pid && discard_pid(ts, pid))
1043
        return 0;
1044
    is_start = packet[1] & 0x40;
1045
    tss = ts->pids[pid];
1046
    if (ts->auto_guess && tss == NULL && is_start) {
1047
        add_pes_stream(ts, pid, -1, 0);
1048
        tss = ts->pids[pid];
1049
    }
1050
    if (!tss)
1051
        return 0;
1052

    
1053
    /* continuity check (currently not used) */
1054
    cc = (packet[3] & 0xf);
1055
    cc_ok = (tss->last_cc < 0) || ((((tss->last_cc + 1) & 0x0f) == cc));
1056
    tss->last_cc = cc;
1057

    
1058
    /* skip adaptation field */
1059
    afc = (packet[3] >> 4) & 3;
1060
    p = packet + 4;
1061
    if (afc == 0) /* reserved value */
1062
        return 0;
1063
    if (afc == 2) /* adaptation field only */
1064
        return 0;
1065
    if (afc == 3) {
1066
        /* skip adapation field */
1067
        p += p[0] + 1;
1068
    }
1069
    /* if past the end of packet, ignore */
1070
    p_end = packet + TS_PACKET_SIZE;
1071
    if (p >= p_end)
1072
        return 0;
1073

    
1074
    pos = url_ftell(ts->stream->pb);
1075
    ts->pos47= pos % ts->raw_packet_size;
1076

    
1077
    if (tss->type == MPEGTS_SECTION) {
1078
        if (is_start) {
1079
            /* pointer field present */
1080
            len = *p++;
1081
            if (p + len > p_end)
1082
                return 0;
1083
            if (len && cc_ok) {
1084
                /* write remaining section bytes */
1085
                write_section_data(s, tss,
1086
                                   p, len, 0);
1087
                /* check whether filter has been closed */
1088
                if (!ts->pids[pid])
1089
                    return 0;
1090
            }
1091
            p += len;
1092
            if (p < p_end) {
1093
                write_section_data(s, tss,
1094
                                   p, p_end - p, 1);
1095
            }
1096
        } else {
1097
            if (cc_ok) {
1098
                write_section_data(s, tss,
1099
                                   p, p_end - p, 0);
1100
            }
1101
        }
1102
    } else {
1103
        int ret;
1104
        // Note: The position here points actually behind the current packet.
1105
        if ((ret = tss->u.pes_filter.pes_cb(tss, p, p_end - p, is_start,
1106
                                            pos - ts->raw_packet_size)) < 0)
1107
            return ret;
1108
    }
1109

    
1110
    return 0;
1111
}
1112

    
1113
/* XXX: try to find a better synchro over several packets (use
1114
   get_packet_size() ?) */
1115
static int mpegts_resync(ByteIOContext *pb)
1116
{
1117
    int c, i;
1118

    
1119
    for(i = 0;i < MAX_RESYNC_SIZE; i++) {
1120
        c = url_fgetc(pb);
1121
        if (c < 0)
1122
            return -1;
1123
        if (c == 0x47) {
1124
            url_fseek(pb, -1, SEEK_CUR);
1125
            return 0;
1126
        }
1127
    }
1128
    /* no sync found */
1129
    return -1;
1130
}
1131

    
1132
/* return -1 if error or EOF. Return 0 if OK. */
1133
static int read_packet(ByteIOContext *pb, uint8_t *buf, int raw_packet_size)
1134
{
1135
    int skip, len;
1136

    
1137
    for(;;) {
1138
        len = get_buffer(pb, buf, TS_PACKET_SIZE);
1139
        if (len != TS_PACKET_SIZE)
1140
            return AVERROR(EIO);
1141
        /* check paquet sync byte */
1142
        if (buf[0] != 0x47) {
1143
            /* find a new packet start */
1144
            url_fseek(pb, -TS_PACKET_SIZE, SEEK_CUR);
1145
            if (mpegts_resync(pb) < 0)
1146
                return AVERROR_INVALIDDATA;
1147
            else
1148
                continue;
1149
        } else {
1150
            skip = raw_packet_size - TS_PACKET_SIZE;
1151
            if (skip > 0)
1152
                url_fskip(pb, skip);
1153
            break;
1154
        }
1155
    }
1156
    return 0;
1157
}
1158

    
1159
static int handle_packets(MpegTSContext *ts, int nb_packets)
1160
{
1161
    AVFormatContext *s = ts->stream;
1162
    ByteIOContext *pb = s->pb;
1163
    uint8_t packet[TS_PACKET_SIZE];
1164
    int packet_num, ret;
1165

    
1166
    ts->stop_parse = 0;
1167
    packet_num = 0;
1168
    for(;;) {
1169
        if (ts->stop_parse>0)
1170
            break;
1171
        packet_num++;
1172
        if (nb_packets != 0 && packet_num >= nb_packets)
1173
            break;
1174
        ret = read_packet(pb, packet, ts->raw_packet_size);
1175
        if (ret != 0)
1176
            return ret;
1177
        ret = handle_packet(ts, packet);
1178
        if (ret != 0)
1179
            return ret;
1180
    }
1181
    return 0;
1182
}
1183

    
1184
static int mpegts_probe(AVProbeData *p)
1185
{
1186
#if 1
1187
    const int size= p->buf_size;
1188
    int score, fec_score, dvhs_score;
1189
    int check_count= size / TS_FEC_PACKET_SIZE;
1190
#define CHECK_COUNT 10
1191

    
1192
    if (check_count < CHECK_COUNT)
1193
        return -1;
1194

    
1195
    score     = analyze(p->buf, TS_PACKET_SIZE     *check_count, TS_PACKET_SIZE     , NULL)*CHECK_COUNT/check_count;
1196
    dvhs_score= analyze(p->buf, TS_DVHS_PACKET_SIZE*check_count, TS_DVHS_PACKET_SIZE, NULL)*CHECK_COUNT/check_count;
1197
    fec_score = analyze(p->buf, TS_FEC_PACKET_SIZE *check_count, TS_FEC_PACKET_SIZE , NULL)*CHECK_COUNT/check_count;
1198
//    av_log(NULL, AV_LOG_DEBUG, "score: %d, dvhs_score: %d, fec_score: %d \n", score, dvhs_score, fec_score);
1199

    
1200
// we need a clear definition for the returned score otherwise things will become messy sooner or later
1201
    if     (score > fec_score && score > dvhs_score && score > 6) return AVPROBE_SCORE_MAX + score     - CHECK_COUNT;
1202
    else if(dvhs_score > score && dvhs_score > fec_score && dvhs_score > 6) return AVPROBE_SCORE_MAX + dvhs_score  - CHECK_COUNT;
1203
    else if(                 fec_score > 6) return AVPROBE_SCORE_MAX + fec_score - CHECK_COUNT;
1204
    else                                    return -1;
1205
#else
1206
    /* only use the extension for safer guess */
1207
    if (match_ext(p->filename, "ts"))
1208
        return AVPROBE_SCORE_MAX;
1209
    else
1210
        return 0;
1211
#endif
1212
}
1213

    
1214
/* return the 90kHz PCR and the extension for the 27MHz PCR. return
1215
   (-1) if not available */
1216
static int parse_pcr(int64_t *ppcr_high, int *ppcr_low,
1217
                     const uint8_t *packet)
1218
{
1219
    int afc, len, flags;
1220
    const uint8_t *p;
1221
    unsigned int v;
1222

    
1223
    afc = (packet[3] >> 4) & 3;
1224
    if (afc <= 1)
1225
        return -1;
1226
    p = packet + 4;
1227
    len = p[0];
1228
    p++;
1229
    if (len == 0)
1230
        return -1;
1231
    flags = *p++;
1232
    len--;
1233
    if (!(flags & 0x10))
1234
        return -1;
1235
    if (len < 6)
1236
        return -1;
1237
    v = AV_RB32(p);
1238
    *ppcr_high = ((int64_t)v << 1) | (p[4] >> 7);
1239
    *ppcr_low = ((p[4] & 1) << 8) | p[5];
1240
    return 0;
1241
}
1242

    
1243
static int mpegts_read_header(AVFormatContext *s,
1244
                              AVFormatParameters *ap)
1245
{
1246
    MpegTSContext *ts = s->priv_data;
1247
    ByteIOContext *pb = s->pb;
1248
    uint8_t buf[5*1024];
1249
    int len;
1250
    int64_t pos;
1251

    
1252
    if (ap) {
1253
        ts->mpeg2ts_compute_pcr = ap->mpeg2ts_compute_pcr;
1254
        if(ap->mpeg2ts_raw){
1255
            av_log(s, AV_LOG_ERROR, "use mpegtsraw_demuxer!\n");
1256
            return -1;
1257
        }
1258
    }
1259

    
1260
    /* read the first 1024 bytes to get packet size */
1261
    pos = url_ftell(pb);
1262
    len = get_buffer(pb, buf, sizeof(buf));
1263
    if (len != sizeof(buf))
1264
        goto fail;
1265
    ts->raw_packet_size = get_packet_size(buf, sizeof(buf));
1266
    if (ts->raw_packet_size <= 0)
1267
        goto fail;
1268
    ts->stream = s;
1269
    ts->auto_guess = 0;
1270

    
1271
    if (s->iformat == &mpegts_demuxer) {
1272
        /* normal demux */
1273

    
1274
        /* first do a scaning to get all the services */
1275
        url_fseek(pb, pos, SEEK_SET);
1276

    
1277
        mpegts_open_section_filter(ts, SDT_PID, sdt_cb, ts, 1);
1278

    
1279
        mpegts_open_section_filter(ts, PAT_PID, pat_cb, ts, 1);
1280

    
1281
        handle_packets(ts, s->probesize);
1282
        /* if could not find service, enable auto_guess */
1283

    
1284
        ts->auto_guess = 1;
1285

    
1286
        dprintf(ts->stream, "tuning done\n");
1287

    
1288
        s->ctx_flags |= AVFMTCTX_NOHEADER;
1289
    } else {
1290
        AVStream *st;
1291
        int pcr_pid, pid, nb_packets, nb_pcrs, ret, pcr_l;
1292
        int64_t pcrs[2], pcr_h;
1293
        int packet_count[2];
1294
        uint8_t packet[TS_PACKET_SIZE];
1295

    
1296
        /* only read packets */
1297

    
1298
        st = av_new_stream(s, 0);
1299
        if (!st)
1300
            goto fail;
1301
        av_set_pts_info(st, 60, 1, 27000000);
1302
        st->codec->codec_type = CODEC_TYPE_DATA;
1303
        st->codec->codec_id = CODEC_ID_MPEG2TS;
1304

    
1305
        /* we iterate until we find two PCRs to estimate the bitrate */
1306
        pcr_pid = -1;
1307
        nb_pcrs = 0;
1308
        nb_packets = 0;
1309
        for(;;) {
1310
            ret = read_packet(s->pb, packet, ts->raw_packet_size);
1311
            if (ret < 0)
1312
                return -1;
1313
            pid = AV_RB16(packet + 1) & 0x1fff;
1314
            if ((pcr_pid == -1 || pcr_pid == pid) &&
1315
                parse_pcr(&pcr_h, &pcr_l, packet) == 0) {
1316
                pcr_pid = pid;
1317
                packet_count[nb_pcrs] = nb_packets;
1318
                pcrs[nb_pcrs] = pcr_h * 300 + pcr_l;
1319
                nb_pcrs++;
1320
                if (nb_pcrs >= 2)
1321
                    break;
1322
            }
1323
            nb_packets++;
1324
        }
1325

    
1326
        /* NOTE1: the bitrate is computed without the FEC */
1327
        /* NOTE2: it is only the bitrate of the start of the stream */
1328
        ts->pcr_incr = (pcrs[1] - pcrs[0]) / (packet_count[1] - packet_count[0]);
1329
        ts->cur_pcr = pcrs[0] - ts->pcr_incr * packet_count[0];
1330
        s->bit_rate = (TS_PACKET_SIZE * 8) * 27e6 / ts->pcr_incr;
1331
        st->codec->bit_rate = s->bit_rate;
1332
        st->start_time = ts->cur_pcr;
1333
#if 0
1334
        av_log(ts->stream, AV_LOG_DEBUG, "start=%0.3f pcr=%0.3f incr=%d\n",
1335
               st->start_time / 1000000.0, pcrs[0] / 27e6, ts->pcr_incr);
1336
#endif
1337
    }
1338

    
1339
    url_fseek(pb, pos, SEEK_SET);
1340
    return 0;
1341
 fail:
1342
    return -1;
1343
}
1344

    
1345
#define MAX_PACKET_READAHEAD ((128 * 1024) / 188)
1346

    
1347
static int mpegts_raw_read_packet(AVFormatContext *s,
1348
                                  AVPacket *pkt)
1349
{
1350
    MpegTSContext *ts = s->priv_data;
1351
    int ret, i;
1352
    int64_t pcr_h, next_pcr_h, pos;
1353
    int pcr_l, next_pcr_l;
1354
    uint8_t pcr_buf[12];
1355

    
1356
    if (av_new_packet(pkt, TS_PACKET_SIZE) < 0)
1357
        return AVERROR(ENOMEM);
1358
    pkt->pos= url_ftell(s->pb);
1359
    ret = read_packet(s->pb, pkt->data, ts->raw_packet_size);
1360
    if (ret < 0) {
1361
        av_free_packet(pkt);
1362
        return ret;
1363
    }
1364
    if (ts->mpeg2ts_compute_pcr) {
1365
        /* compute exact PCR for each packet */
1366
        if (parse_pcr(&pcr_h, &pcr_l, pkt->data) == 0) {
1367
            /* we read the next PCR (XXX: optimize it by using a bigger buffer */
1368
            pos = url_ftell(s->pb);
1369
            for(i = 0; i < MAX_PACKET_READAHEAD; i++) {
1370
                url_fseek(s->pb, pos + i * ts->raw_packet_size, SEEK_SET);
1371
                get_buffer(s->pb, pcr_buf, 12);
1372
                if (parse_pcr(&next_pcr_h, &next_pcr_l, pcr_buf) == 0) {
1373
                    /* XXX: not precise enough */
1374
                    ts->pcr_incr = ((next_pcr_h - pcr_h) * 300 + (next_pcr_l - pcr_l)) /
1375
                        (i + 1);
1376
                    break;
1377
                }
1378
            }
1379
            url_fseek(s->pb, pos, SEEK_SET);
1380
            /* no next PCR found: we use previous increment */
1381
            ts->cur_pcr = pcr_h * 300 + pcr_l;
1382
        }
1383
        pkt->pts = ts->cur_pcr;
1384
        pkt->duration = ts->pcr_incr;
1385
        ts->cur_pcr += ts->pcr_incr;
1386
    }
1387
    pkt->stream_index = 0;
1388
    return 0;
1389
}
1390

    
1391
static int mpegts_read_packet(AVFormatContext *s,
1392
                              AVPacket *pkt)
1393
{
1394
    MpegTSContext *ts = s->priv_data;
1395
    int ret, i;
1396

    
1397
    if (url_ftell(s->pb) != ts->last_pos) {
1398
        /* seek detected, flush pes buffer */
1399
        for (i = 0; i < NB_PID_MAX; i++) {
1400
            if (ts->pids[i] && ts->pids[i]->type == MPEGTS_PES) {
1401
                PESContext *pes = ts->pids[i]->u.pes_filter.opaque;
1402
                av_freep(&pes->buffer);
1403
                pes->data_index = 0;
1404
                pes->state = MPEGTS_SKIP; /* skip until pes header */
1405
            }
1406
        }
1407
    }
1408

    
1409
    ts->pkt = pkt;
1410
    ret = handle_packets(ts, 0);
1411
    if (ret < 0) {
1412
        /* flush pes data left */
1413
        for (i = 0; i < NB_PID_MAX; i++) {
1414
            if (ts->pids[i] && ts->pids[i]->type == MPEGTS_PES) {
1415
                PESContext *pes = ts->pids[i]->u.pes_filter.opaque;
1416
                if (pes->state == MPEGTS_PAYLOAD && pes->data_index > 0) {
1417
                    new_pes_packet(pes, pkt);
1418
                    ret = 0;
1419
                    break;
1420
                }
1421
            }
1422
        }
1423
    }
1424

    
1425
    ts->last_pos = url_ftell(s->pb);
1426

    
1427
    return ret;
1428
}
1429

    
1430
static int mpegts_read_close(AVFormatContext *s)
1431
{
1432
    MpegTSContext *ts = s->priv_data;
1433
    int i;
1434

    
1435
    clear_programs(ts);
1436

    
1437
    for(i=0;i<NB_PID_MAX;i++)
1438
        if (ts->pids[i]) mpegts_close_filter(ts, ts->pids[i]);
1439

    
1440
    return 0;
1441
}
1442

    
1443
static int64_t mpegts_get_pcr(AVFormatContext *s, int stream_index,
1444
                              int64_t *ppos, int64_t pos_limit)
1445
{
1446
    MpegTSContext *ts = s->priv_data;
1447
    int64_t pos, timestamp;
1448
    uint8_t buf[TS_PACKET_SIZE];
1449
    int pcr_l, pcr_pid = ((PESContext*)s->streams[stream_index]->priv_data)->pcr_pid;
1450
    const int find_next= 1;
1451
    pos = ((*ppos  + ts->raw_packet_size - 1 - ts->pos47) / ts->raw_packet_size) * ts->raw_packet_size + ts->pos47;
1452
    if (find_next) {
1453
        for(;;) {
1454
            url_fseek(s->pb, pos, SEEK_SET);
1455
            if (get_buffer(s->pb, buf, TS_PACKET_SIZE) != TS_PACKET_SIZE)
1456
                return AV_NOPTS_VALUE;
1457
            if ((pcr_pid < 0 || (AV_RB16(buf + 1) & 0x1fff) == pcr_pid) &&
1458
                parse_pcr(&timestamp, &pcr_l, buf) == 0) {
1459
                break;
1460
            }
1461
            pos += ts->raw_packet_size;
1462
        }
1463
    } else {
1464
        for(;;) {
1465
            pos -= ts->raw_packet_size;
1466
            if (pos < 0)
1467
                return AV_NOPTS_VALUE;
1468
            url_fseek(s->pb, pos, SEEK_SET);
1469
            if (get_buffer(s->pb, buf, TS_PACKET_SIZE) != TS_PACKET_SIZE)
1470
                return AV_NOPTS_VALUE;
1471
            if ((pcr_pid < 0 || (AV_RB16(buf + 1) & 0x1fff) == pcr_pid) &&
1472
                parse_pcr(&timestamp, &pcr_l, buf) == 0) {
1473
                break;
1474
            }
1475
        }
1476
    }
1477
    *ppos = pos;
1478

    
1479
    return timestamp;
1480
}
1481

    
1482
static int read_seek(AVFormatContext *s, int stream_index, int64_t target_ts, int flags){
1483
    MpegTSContext *ts = s->priv_data;
1484
    uint8_t buf[TS_PACKET_SIZE];
1485
    int64_t pos;
1486

    
1487
    if(av_seek_frame_binary(s, stream_index, target_ts, flags) < 0)
1488
        return -1;
1489

    
1490
    pos= url_ftell(s->pb);
1491

    
1492
    for(;;) {
1493
        url_fseek(s->pb, pos, SEEK_SET);
1494
        if (get_buffer(s->pb, buf, TS_PACKET_SIZE) != TS_PACKET_SIZE)
1495
            return -1;
1496
//        pid = AV_RB16(buf + 1) & 0x1fff;
1497
        if(buf[1] & 0x40) break;
1498
        pos += ts->raw_packet_size;
1499
    }
1500
    url_fseek(s->pb, pos, SEEK_SET);
1501

    
1502
    return 0;
1503
}
1504

    
1505
/**************************************************************/
1506
/* parsing functions - called from other demuxers such as RTP */
1507

    
1508
MpegTSContext *mpegts_parse_open(AVFormatContext *s)
1509
{
1510
    MpegTSContext *ts;
1511

    
1512
    ts = av_mallocz(sizeof(MpegTSContext));
1513
    if (!ts)
1514
        return NULL;
1515
    /* no stream case, currently used by RTP */
1516
    ts->raw_packet_size = TS_PACKET_SIZE;
1517
    ts->stream = s;
1518
    ts->auto_guess = 1;
1519
    return ts;
1520
}
1521

    
1522
/* return the consumed length if a packet was output, or -1 if no
1523
   packet is output */
1524
int mpegts_parse_packet(MpegTSContext *ts, AVPacket *pkt,
1525
                        const uint8_t *buf, int len)
1526
{
1527
    int len1;
1528

    
1529
    len1 = len;
1530
    ts->pkt = pkt;
1531
    ts->stop_parse = 0;
1532
    for(;;) {
1533
        if (ts->stop_parse>0)
1534
            break;
1535
        if (len < TS_PACKET_SIZE)
1536
            return -1;
1537
        if (buf[0] != 0x47) {
1538
            buf++;
1539
            len--;
1540
        } else {
1541
            handle_packet(ts, buf);
1542
            buf += TS_PACKET_SIZE;
1543
            len -= TS_PACKET_SIZE;
1544
        }
1545
    }
1546
    return len1 - len;
1547
}
1548

    
1549
void mpegts_parse_close(MpegTSContext *ts)
1550
{
1551
    int i;
1552

    
1553
    for(i=0;i<NB_PID_MAX;i++)
1554
        av_free(ts->pids[i]);
1555
    av_free(ts);
1556
}
1557

    
1558
AVInputFormat mpegts_demuxer = {
1559
    "mpegts",
1560
    NULL_IF_CONFIG_SMALL("MPEG-2 transport stream format"),
1561
    sizeof(MpegTSContext),
1562
    mpegts_probe,
1563
    mpegts_read_header,
1564
    mpegts_read_packet,
1565
    mpegts_read_close,
1566
    read_seek,
1567
    mpegts_get_pcr,
1568
    .flags = AVFMT_SHOW_IDS|AVFMT_TS_DISCONT,
1569
};
1570

    
1571
AVInputFormat mpegtsraw_demuxer = {
1572
    "mpegtsraw",
1573
    NULL_IF_CONFIG_SMALL("MPEG-2 raw transport stream format"),
1574
    sizeof(MpegTSContext),
1575
    NULL,
1576
    mpegts_read_header,
1577
    mpegts_raw_read_packet,
1578
    mpegts_read_close,
1579
    read_seek,
1580
    mpegts_get_pcr,
1581
    .flags = AVFMT_SHOW_IDS|AVFMT_TS_DISCONT,
1582
};