libavformat/mpegts.c

   1 /*
   2  * MPEG2 transport stream (aka DVB) demux
   3  * Copyright (c) 2002-2003 Fabrice Bellard.
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  18  */
  19 #include "avformat.h"
  20
  21 #include "mpegts.h"
  22
  23 //#define DEBUG_SI
  24 //#define DEBUG_SEEK
  25
  26 /* 1.0 second at 24Mbit/s */
  27 #define MAX_SCAN_PACKETS 32000
  28
  29 /* maximum size in which we look for synchronisation if
  30    synchronisation is lost */
  31 #define MAX_RESYNC_SIZE 4096
  32
  33 typedef struct PESContext PESContext;
  34
  35 static PESContext* add_pes_stream(MpegTSContext *ts, int pid, int stream_type);
  36 static AVStream* new_pes_av_stream(PESContext *pes, uint32_t code);
  37
  38 enum MpegTSFilterType {
  39     MPEGTS_PES,
  40     MPEGTS_SECTION,
  41 };
  42
  43 typedef void PESCallback(void *opaque, const uint8_t *buf, int len, int is_start);
  44
  45 typedef struct MpegTSPESFilter {
  46     PESCallback *pes_cb;
  47     void *opaque;
  48 } MpegTSPESFilter;
  49
  50 typedef void SectionCallback(void *opaque, const uint8_t *buf, int len);
  51
  52 typedef void SetServiceCallback(void *opaque, int ret);
  53
  54 typedef struct MpegTSSectionFilter {
  55     int section_index;
  56     int section_h_size;
  57     uint8_t *section_buf;
  58     int check_crc:1;
  59     int end_of_section_reached:1;
  60     SectionCallback *section_cb;
  61     void *opaque;
  62 } MpegTSSectionFilter;
  63
  64 typedef struct MpegTSFilter {
  65     int pid;
  66     int last_cc; /* last cc code (-1 if first packet) */
  67     enum MpegTSFilterType type;
  68     union {
  69         MpegTSPESFilter pes_filter;
  70         MpegTSSectionFilter section_filter;
  71     } u;
  72 } MpegTSFilter;
  73
  74 typedef struct MpegTSService {
  75     int running:1;
  76     int sid;
  77     char *provider_name;
  78     char *name;
  79 } MpegTSService;
  80
  81 struct MpegTSContext {
  82     /* user data */
  83     AVFormatContext *stream;
  84     int raw_packet_size; /* raw packet size, including FEC if present */
  85     int auto_guess; /* if true, all pids are analized to find streams */
  86     int set_service_ret;
  87
  88     int mpeg2ts_raw;  /* force raw MPEG2 transport stream output, if possible */
  89     int mpeg2ts_compute_pcr; /* compute exact PCR for each transport stream packet */
  90
  91     /* used to estimate the exact PCR */
  92     int64_t cur_pcr;
  93     int pcr_incr;
  94     int pcr_pid;
  95
  96     /* data needed to handle file based ts */
  97     int stop_parse; /* stop parsing loop */
  98     AVPacket *pkt; /* packet containing av data */
  99
 100     /******************************************/
 101     /* private mpegts data */
 102     /* scan context */
 103     MpegTSFilter *sdt_filter;
 104     int nb_services;
 105     MpegTSService **services;
 106
 107     /* set service context (XXX: allocated it ?) */
 108     SetServiceCallback *set_service_cb;
 109     void *set_service_opaque;
 110     MpegTSFilter *pat_filter;
 111     MpegTSFilter *pmt_filter;
 112     int req_sid;
 113
 114     MpegTSFilter *pids[NB_PID_MAX];
 115 };
 116
 117 static void write_section_data(AVFormatContext *s, MpegTSFilter *tss1,
 118                                const uint8_t *buf, int buf_size, int is_start)
 119 {
 120     MpegTSSectionFilter *tss = &tss1->u.section_filter;
 121     int len;
 122
 123     if (is_start) {
 124         memcpy(tss->section_buf, buf, buf_size);
 125         tss->section_index = buf_size;
 126         tss->section_h_size = -1;
 127         tss->end_of_section_reached = 0;
 128     } else {
 129         if (tss->end_of_section_reached)
 130             return;
 131         len = 4096 - tss->section_index;
 132         if (buf_size < len)
 133             len = buf_size;
 134         memcpy(tss->section_buf + tss->section_index, buf, len);
 135         tss->section_index += len;
 136     }
 137
 138     /* compute section length if possible */
 139     if (tss->section_h_size == -1 && tss->section_index >= 3) {
 140         len = (((tss->section_buf[1] & 0xf) << 8) | tss->section_buf[2]) + 3;
 141         if (len > 4096)
 142             return;
 143         tss->section_h_size = len;
 144     }
 145
 146     if (tss->section_h_size != -1 && tss->section_index >= tss->section_h_size) {
 147         tss->end_of_section_reached = 1;
 148         if (!tss->check_crc ||
 149             mpegts_crc32(tss->section_buf, tss->section_h_size) == 0)
 150             tss->section_cb(tss->opaque, tss->section_buf, tss->section_h_size);
 151     }
 152 }
 153
 154 MpegTSFilter *mpegts_open_section_filter(MpegTSContext *ts, unsigned int pid,
 155                                          SectionCallback *section_cb, void *opaque,
 156                                          int check_crc)
 157
 158 {
 159     MpegTSFilter *filter;
 160     MpegTSSectionFilter *sec;
 161
 162 #ifdef DEBUG_SI
 163     printf("Filter: pid=0x%x\n", pid);
 164 #endif
 165     if (pid >= NB_PID_MAX || ts->pids[pid])
 166         return NULL;
 167     filter = av_mallocz(sizeof(MpegTSFilter));
 168     if (!filter)
 169         return NULL;
 170     ts->pids[pid] = filter;
 171     filter->type = MPEGTS_SECTION;
 172     filter->pid = pid;
 173     filter->last_cc = -1;
 174     sec = &filter->u.section_filter;
 175     sec->section_cb = section_cb;
 176     sec->opaque = opaque;
 177     sec->section_buf = av_malloc(MAX_SECTION_SIZE);
 178     sec->check_crc = check_crc;
 179     if (!sec->section_buf) {
 180         av_free(filter);
 181         return NULL;
 182     }
 183     return filter;
 184 }
 185
 186 MpegTSFilter *mpegts_open_pes_filter(MpegTSContext *ts, unsigned int pid,
 187                                      PESCallback *pes_cb,
 188                                      void *opaque)
 189 {
 190     MpegTSFilter *filter;
 191     MpegTSPESFilter *pes;
 192
 193     if (pid >= NB_PID_MAX || ts->pids[pid])
 194         return NULL;
 195     filter = av_mallocz(sizeof(MpegTSFilter));
 196     if (!filter)
 197         return NULL;
 198     ts->pids[pid] = filter;
 199     filter->type = MPEGTS_PES;
 200     filter->pid = pid;
 201     filter->last_cc = -1;
 202     pes = &filter->u.pes_filter;
 203     pes->pes_cb = pes_cb;
 204     pes->opaque = opaque;
 205     return filter;
 206 }
 207
 208 void mpegts_close_filter(MpegTSContext *ts, MpegTSFilter *filter)
 209 {
 210     int pid;
 211
 212     pid = filter->pid;
 213     if (filter->type == MPEGTS_SECTION)
 214         av_freep(&filter->u.section_filter.section_buf);
 215     else if (filter->type == MPEGTS_PES)
 216         av_freep(&filter->u.pes_filter.opaque);
 217
 218     av_free(filter);
 219     ts->pids[pid] = NULL;
 220 }
 221
 222 static int analyze(const uint8_t *buf, int size, int packet_size, int *index){
 223     int stat[packet_size];
 224     int i;
 225     int x=0;
 226     int best_score=0;
 227
 228     memset(stat, 0, packet_size*sizeof(int));
 229
 230     for(x=i=0; i<size; i++){
 231         if(buf[i] == 0x47){
 232             stat[x]++;
 233             if(stat[x] > best_score){
 234                 best_score= stat[x];
 235                 if(index) *index= x;
 236             }
 237         }
 238
 239         x++;
 240         if(x == packet_size) x= 0;
 241     }
 242
 243     return best_score;
 244 }
 245
 246 /* autodetect fec presence. Must have at least 1024 bytes  */
 247 static int get_packet_size(const uint8_t *buf, int size)
 248 {
 249     int score, fec_score;
 250
 251     if (size < (TS_FEC_PACKET_SIZE * 5 + 1))
 252         return -1;
 253
 254     score    = analyze(buf, size, TS_PACKET_SIZE, NULL);
 255     fec_score= analyze(buf, size, TS_FEC_PACKET_SIZE, NULL);
 256 //    av_log(NULL, AV_LOG_DEBUG, "score: %d, fec_score: %d \n", score, fec_score);
 257
 258     if     (score > fec_score) return TS_PACKET_SIZE;
 259     else if(score < fec_score) return TS_FEC_PACKET_SIZE;
 260     else                       return -1;
 261 }
 262
 263 typedef struct SectionHeader {
 264     uint8_t tid;
 265     uint16_t id;
 266     uint8_t version;
 267     uint8_t sec_num;
 268     uint8_t last_sec_num;
 269 } SectionHeader;
 270
 271 static inline int get8(const uint8_t **pp, const uint8_t *p_end)
 272 {
 273     const uint8_t *p;
 274     int c;
 275
 276     p = *pp;
 277     if (p >= p_end)
 278         return -1;
 279     c = *p++;
 280     *pp = p;
 281     return c;
 282 }
 283
 284 static inline int get16(const uint8_t **pp, const uint8_t *p_end)
 285 {
 286     const uint8_t *p;
 287     int c;
 288
 289     p = *pp;
 290     if ((p + 1) >= p_end)
 291         return -1;
 292     c = (p[0] << 8) | p[1];
 293     p += 2;
 294     *pp = p;
 295     return c;
 296 }
 297
 298 /* read and allocate a DVB string preceeded by its length */
 299 static char *getstr8(const uint8_t **pp, const uint8_t *p_end)
 300 {
 301     int len;
 302     const uint8_t *p;
 303     char *str;
 304
 305     p = *pp;
 306     len = get8(&p, p_end);
 307     if (len < 0)
 308         return NULL;
 309     if ((p + len) > p_end)
 310         return NULL;
 311     str = av_malloc(len + 1);
 312     if (!str)
 313         return NULL;
 314     memcpy(str, p, len);
 315     str[len] = '\0';
 316     p += len;
 317     *pp = p;
 318     return str;
 319 }
 320
 321 static int parse_section_header(SectionHeader *h,
 322                                 const uint8_t **pp, const uint8_t *p_end)
 323 {
 324     int val;
 325
 326     val = get8(pp, p_end);
 327     if (val < 0)
 328         return -1;
 329     h->tid = val;
 330     *pp += 2;
 331     val = get16(pp, p_end);
 332     if (val < 0)
 333         return -1;
 334     h->id = val;
 335     val = get8(pp, p_end);
 336     if (val < 0)
 337         return -1;
 338     h->version = (val >> 1) & 0x1f;
 339     val = get8(pp, p_end);
 340     if (val < 0)
 341         return -1;
 342     h->sec_num = val;
 343     val = get8(pp, p_end);
 344     if (val < 0)
 345         return -1;
 346     h->last_sec_num = val;
 347     return 0;
 348 }
 349
 350 static MpegTSService *new_service(MpegTSContext *ts, int sid,
 351                                   char *provider_name, char *name)
 352 {
 353     MpegTSService *service;
 354
 355 #ifdef DEBUG_SI
 356     printf("new_service: sid=0x%04x provider='%s' name='%s'\n",
 357            sid, provider_name, name);
 358 #endif
 359
 360     service = av_mallocz(sizeof(MpegTSService));
 361     if (!service)
 362         return NULL;
 363     service->sid = sid;
 364     service->provider_name = provider_name;
 365     service->name = name;
 366     dynarray_add(&ts->services, &ts->nb_services, service);
 367     return service;
 368 }
 369
 370 static void pmt_cb(void *opaque, const uint8_t *section, int section_len)
 371 {
 372     MpegTSContext *ts = opaque;
 373     SectionHeader h1, *h = &h1;
 374     PESContext *pes;
 375     AVStream *st;
 376     const uint8_t *p, *p_end, *desc_list_end, *desc_end;
 377     int program_info_length, pcr_pid, pid, stream_type;
 378     int desc_list_len, desc_len, desc_tag;
 379     int comp_page = 0, anc_page = 0; /* initialize to kill warnings */
 380     char language[4];
 381
 382 #ifdef DEBUG_SI
 383     printf("PMT:\n");
 384     av_hex_dump(stdout, (uint8_t *)section, section_len);
 385 #endif
 386     p_end = section + section_len - 4;
 387     p = section;
 388     if (parse_section_header(h, &p, p_end) < 0)
 389         return;
 390 #ifdef DEBUG_SI
 391     printf("sid=0x%x sec_num=%d/%d\n", h->id, h->sec_num, h->last_sec_num);
 392 #endif
 393     if (h->tid != PMT_TID || (ts->req_sid >= 0 && h->id != ts->req_sid) )
 394         return;
 395
 396     pcr_pid = get16(&p, p_end) & 0x1fff;
 397     if (pcr_pid < 0)
 398         return;
 399     ts->pcr_pid = pcr_pid;
 400 #ifdef DEBUG_SI
 401     printf("pcr_pid=0x%x\n", pcr_pid);
 402 #endif
 403     program_info_length = get16(&p, p_end) & 0xfff;
 404     if (program_info_length < 0)
 405         return;
 406     p += program_info_length;
 407     if (p >= p_end)
 408         return;
 409     for(;;) {
 410         language[0] = 0;
 411         st = 0;
 412         stream_type = get8(&p, p_end);
 413         if (stream_type < 0)
 414             break;
 415         pid = get16(&p, p_end) & 0x1fff;
 416         if (pid < 0)
 417             break;
 418         desc_list_len = get16(&p, p_end) & 0xfff;
 419         if (desc_list_len < 0)
 420             break;
 421         desc_list_end = p + desc_list_len;
 422         if (desc_list_end > p_end)
 423             break;
 424         for(;;) {
 425             desc_tag = get8(&p, desc_list_end);
 426             if (desc_tag < 0)
 427                 break;
 428             desc_len = get8(&p, desc_list_end);
 429             desc_end = p + desc_len;
 430             if (desc_end > desc_list_end)
 431                 break;
 432 #ifdef DEBUG_SI
 433             printf("tag: 0x%02x len=%d\n", desc_tag, desc_len);
 434 #endif
 435             switch(desc_tag) {
 436             case DVB_SUBT_DESCID:
 437                 if (stream_type == STREAM_TYPE_PRIVATE_DATA)
 438                     stream_type = STREAM_TYPE_SUBTITLE_DVB;
 439
 440                 language[0] = get8(&p, desc_end);
 441                 language[1] = get8(&p, desc_end);
 442                 language[2] = get8(&p, desc_end);
 443                 language[3] = 0;
 444                 get8(&p, desc_end);
 445                 comp_page = get16(&p, desc_end);
 446                 anc_page = get16(&p, desc_end);
 447
 448                 break;
 449             case 0x0a: /* ISO 639 language descriptor */
 450                 language[0] = get8(&p, desc_end);
 451                 language[1] = get8(&p, desc_end);
 452                 language[2] = get8(&p, desc_end);
 453                 language[3] = 0;
 454                 break;
 455             default:
 456                 break;
 457             }
 458             p = desc_end;
 459         }
 460         p = desc_list_end;
 461
 462 #ifdef DEBUG_SI
 463         printf("stream_type=%d pid=0x%x\n", stream_type, pid);
 464 #endif
 465
 466         /* now create ffmpeg stream */
 467         switch(stream_type) {
 468         case STREAM_TYPE_AUDIO_MPEG1:
 469         case STREAM_TYPE_AUDIO_MPEG2:
 470         case STREAM_TYPE_VIDEO_MPEG1:
 471         case STREAM_TYPE_VIDEO_MPEG2:
 472         case STREAM_TYPE_VIDEO_MPEG4:
 473         case STREAM_TYPE_VIDEO_H264:
 474         case STREAM_TYPE_AUDIO_AAC:
 475         case STREAM_TYPE_AUDIO_AC3:
 476         case STREAM_TYPE_AUDIO_DTS:
 477         case STREAM_TYPE_SUBTITLE_DVB:
 478             pes = add_pes_stream(ts, pid, stream_type);
 479             if (pes)
 480                 st = new_pes_av_stream(pes, 0);
 481             break;
 482         default:
 483             /* we ignore the other streams */
 484             break;
 485         }
 486
 487         if (st) {
 488             if (language[0] != 0) {
 489                 st->language[0] = language[0];
 490                 st->language[1] = language[1];
 491                 st->language[2] = language[2];
 492                 st->language[3] = language[3];
 493             }
 494
 495             if (stream_type == STREAM_TYPE_SUBTITLE_DVB) {
 496                 st->codec->sub_id = (anc_page << 16) | comp_page;
 497             }
 498         }
 499     }
 500     /* all parameters are there */
 501     ts->set_service_cb(ts->set_service_opaque, 0);
 502     mpegts_close_filter(ts, ts->pmt_filter);
 503     ts->pmt_filter = NULL;
 504 }
 505
 506 static void pat_cb(void *opaque, const uint8_t *section, int section_len)
 507 {
 508     MpegTSContext *ts = opaque;
 509     SectionHeader h1, *h = &h1;
 510     const uint8_t *p, *p_end;
 511     int sid, pmt_pid;
 512
 513 #ifdef DEBUG_SI
 514     printf("PAT:\n");
 515     av_hex_dump(stdout, (uint8_t *)section, section_len);
 516 #endif
 517     p_end = section + section_len - 4;
 518     p = section;
 519     if (parse_section_header(h, &p, p_end) < 0)
 520         return;
 521     if (h->tid != PAT_TID)
 522         return;
 523
 524     for(;;) {
 525         sid = get16(&p, p_end);
 526         if (sid < 0)
 527             break;
 528         pmt_pid = get16(&p, p_end) & 0x1fff;
 529         if (pmt_pid < 0)
 530             break;
 531 #ifdef DEBUG_SI
 532         printf("sid=0x%x pid=0x%x\n", sid, pmt_pid);
 533 #endif
 534         if (sid == 0x0000) {
 535             /* NIT info */
 536         } else {
 537             if (ts->req_sid == sid) {
 538                 ts->pmt_filter = mpegts_open_section_filter(ts, pmt_pid,
 539                                                             pmt_cb, ts, 1);
 540                 goto found;
 541             }
 542         }
 543     }
 544     /* not found */
 545     ts->set_service_cb(ts->set_service_opaque, -1);
 546
 547  found:
 548     mpegts_close_filter(ts, ts->pat_filter);
 549     ts->pat_filter = NULL;
 550 }
 551
 552 /* add all services found in the PAT */
 553 static void pat_scan_cb(void *opaque, const uint8_t *section, int section_len)
 554 {
 555     MpegTSContext *ts = opaque;
 556     SectionHeader h1, *h = &h1;
 557     const uint8_t *p, *p_end;
 558     int sid, pmt_pid;
 559     char *provider_name, *name;
 560     char buf[256];
 561
 562 #ifdef DEBUG_SI
 563     printf("PAT:\n");
 564     av_hex_dump(stdout, (uint8_t *)section, section_len);
 565 #endif
 566     p_end = section + section_len - 4;
 567     p = section;
 568     if (parse_section_header(h, &p, p_end) < 0)
 569         return;
 570     if (h->tid != PAT_TID)
 571         return;
 572
 573     for(;;) {
 574         sid = get16(&p, p_end);
 575         if (sid < 0)
 576             break;
 577         pmt_pid = get16(&p, p_end) & 0x1fff;
 578         if (pmt_pid < 0)
 579             break;
 580 #ifdef DEBUG_SI
 581         printf("sid=0x%x pid=0x%x\n", sid, pmt_pid);
 582 #endif
 583         if (sid == 0x0000) {
 584             /* NIT info */
 585         } else {
 586             /* add the service with a dummy name */
 587             snprintf(buf, sizeof(buf), "Service %x\n", sid);
 588             name = av_strdup(buf);
 589             provider_name = av_strdup("");
 590             if (name && provider_name) {
 591                 new_service(ts, sid, provider_name, name);
 592             } else {
 593                 av_freep(&name);
 594                 av_freep(&provider_name);
 595             }
 596         }
 597     }
 598     ts->stop_parse = 1;
 599
 600     /* remove filter */
 601     mpegts_close_filter(ts, ts->pat_filter);
 602     ts->pat_filter = NULL;
 603 }
 604
 605 void mpegts_set_service(MpegTSContext *ts, int sid,
 606                         SetServiceCallback *set_service_cb, void *opaque)
 607 {
 608     ts->set_service_cb = set_service_cb;
 609     ts->set_service_opaque = opaque;
 610     ts->req_sid = sid;
 611     ts->pat_filter = mpegts_open_section_filter(ts, PAT_PID,
 612                                                 pat_cb, ts, 1);
 613 }
 614
 615 static void sdt_cb(void *opaque, const uint8_t *section, int section_len)
 616 {
 617     MpegTSContext *ts = opaque;
 618     SectionHeader h1, *h = &h1;
 619     const uint8_t *p, *p_end, *desc_list_end, *desc_end;
 620     int onid, val, sid, desc_list_len, desc_tag, desc_len, service_type;
 621     char *name, *provider_name;
 622
 623 #ifdef DEBUG_SI
 624     printf("SDT:\n");
 625     av_hex_dump(stdout, (uint8_t *)section, section_len);
 626 #endif
 627
 628     p_end = section + section_len - 4;
 629     p = section;
 630     if (parse_section_header(h, &p, p_end) < 0)
 631         return;
 632     if (h->tid != SDT_TID)
 633         return;
 634     onid = get16(&p, p_end);
 635     if (onid < 0)
 636         return;
 637     val = get8(&p, p_end);
 638     if (val < 0)
 639         return;
 640     for(;;) {
 641         sid = get16(&p, p_end);
 642         if (sid < 0)
 643             break;
 644         val = get8(&p, p_end);
 645         if (val < 0)
 646             break;
 647         desc_list_len = get16(&p, p_end) & 0xfff;
 648         if (desc_list_len < 0)
 649             break;
 650         desc_list_end = p + desc_list_len;
 651         if (desc_list_end > p_end)
 652             break;
 653         for(;;) {
 654             desc_tag = get8(&p, desc_list_end);
 655             if (desc_tag < 0)
 656                 break;
 657             desc_len = get8(&p, desc_list_end);
 658             desc_end = p + desc_len;
 659             if (desc_end > desc_list_end)
 660                 break;
 661 #ifdef DEBUG_SI
 662             printf("tag: 0x%02x len=%d\n", desc_tag, desc_len);
 663 #endif
 664             switch(desc_tag) {
 665             case 0x48:
 666                 service_type = get8(&p, p_end);
 667                 if (service_type < 0)
 668                     break;
 669                 provider_name = getstr8(&p, p_end);
 670                 if (!provider_name)
 671                     break;
 672                 name = getstr8(&p, p_end);
 673                 if (!name)
 674                     break;
 675                 new_service(ts, sid, provider_name, name);
 676                 break;
 677             default:
 678                 break;
 679             }
 680             p = desc_end;
 681         }
 682         p = desc_list_end;
 683     }
 684     ts->stop_parse = 1;
 685
 686     /* remove filter */
 687     mpegts_close_filter(ts, ts->sdt_filter);
 688     ts->sdt_filter = NULL;
 689 }
 690
 691 /* scan services in a transport stream by looking at the SDT */
 692 void mpegts_scan_sdt(MpegTSContext *ts)
 693 {
 694     ts->sdt_filter = mpegts_open_section_filter(ts, SDT_PID,
 695                                                 sdt_cb, ts, 1);
 696 }
 697
 698 /* scan services in a transport stream by looking at the PAT (better
 699    than nothing !) */
 700 void mpegts_scan_pat(MpegTSContext *ts)
 701 {
 702     ts->pat_filter = mpegts_open_section_filter(ts, PAT_PID,
 703                                                 pat_scan_cb, ts, 1);
 704 }
 705
 706 /* TS stream handling */
 707
 708 enum MpegTSState {
 709     MPEGTS_HEADER = 0,
 710     MPEGTS_PESHEADER_FILL,
 711     MPEGTS_PAYLOAD,
 712     MPEGTS_SKIP,
 713 };
 714
 715 /* enough for PES header + length */
 716 #define PES_START_SIZE 9
 717 #define MAX_PES_HEADER_SIZE (9 + 255)
 718
 719 struct PESContext {
 720     int pid;
 721     int stream_type;
 722     MpegTSContext *ts;
 723     AVFormatContext *stream;
 724     AVStream *st;
 725     enum MpegTSState state;
 726     /* used to get the format */
 727     int data_index;
 728     int total_size;
 729     int pes_header_size;
 730     int64_t pts, dts;
 731     uint8_t header[MAX_PES_HEADER_SIZE];
 732 };
 733
 734 static int64_t get_pts(const uint8_t *p)
 735 {
 736     int64_t pts;
 737     int val;
 738
 739     pts = (int64_t)((p[0] >> 1) & 0x07) << 30;
 740     val = (p[1] << 8) | p[2];
 741     pts |= (int64_t)(val >> 1) << 15;
 742     val = (p[3] << 8) | p[4];
 743     pts |= (int64_t)(val >> 1);
 744     return pts;
 745 }
 746
 747 /* return non zero if a packet could be constructed */
 748 static void mpegts_push_data(void *opaque,
 749                              const uint8_t *buf, int buf_size, int is_start)
 750 {
 751     PESContext *pes = opaque;
 752     MpegTSContext *ts = pes->ts;
 753     const uint8_t *p;
 754     int len, code;
 755
 756     if (is_start) {
 757         pes->state = MPEGTS_HEADER;
 758         pes->data_index = 0;
 759     }
 760     p = buf;
 761     while (buf_size > 0) {
 762         switch(pes->state) {
 763         case MPEGTS_HEADER:
 764             len = PES_START_SIZE - pes->data_index;
 765             if (len > buf_size)
 766                 len = buf_size;
 767             memcpy(pes->header + pes->data_index, p, len);
 768             pes->data_index += len;
 769             p += len;
 770             buf_size -= len;
 771             if (pes->data_index == PES_START_SIZE) {
 772                 /* we got all the PES or section header. We can now
 773                    decide */
 774 #if 0
 775                 av_hex_dump(pes->header, pes->data_index);
 776 #endif
 777                 if (pes->header[0] == 0x00 && pes->header[1] == 0x00 &&
 778                     pes->header[2] == 0x01) {
 779                     /* it must be an mpeg2 PES stream */
 780                     code = pes->header[3] | 0x100;
 781                     if (!((code >= 0x1c0 && code <= 0x1df) ||
 782                           (code >= 0x1e0 && code <= 0x1ef) ||
 783                           (code == 0x1bd)))
 784                         goto skip;
 785                     if (!pes->st) {
 786                         /* allocate stream */
 787                         new_pes_av_stream(pes, code);
 788                     }
 789                     pes->state = MPEGTS_PESHEADER_FILL;
 790                     pes->total_size = (pes->header[4] << 8) | pes->header[5];
 791                     /* NOTE: a zero total size means the PES size is
 792                        unbounded */
 793                     if (pes->total_size)
 794                         pes->total_size += 6;
 795                     pes->pes_header_size = pes->header[8] + 9;
 796                 } else {
 797                     /* otherwise, it should be a table */
 798                     /* skip packet */
 799                 skip:
 800                     pes->state = MPEGTS_SKIP;
 801                     continue;
 802                 }
 803             }
 804             break;
 805             /**********************************************/
 806             /* PES packing parsing */
 807         case MPEGTS_PESHEADER_FILL:
 808             len = pes->pes_header_size - pes->data_index;
 809             if (len > buf_size)
 810                 len = buf_size;
 811             memcpy(pes->header + pes->data_index, p, len);
 812             pes->data_index += len;
 813             p += len;
 814             buf_size -= len;
 815             if (pes->data_index == pes->pes_header_size) {
 816                 const uint8_t *r;
 817                 unsigned int flags;
 818
 819                 flags = pes->header[7];
 820                 r = pes->header + 9;
 821                 pes->pts = AV_NOPTS_VALUE;
 822                 pes->dts = AV_NOPTS_VALUE;
 823                 if ((flags & 0xc0) == 0x80) {
 824                     pes->pts = get_pts(r);
 825                     r += 5;
 826                 } else if ((flags & 0xc0) == 0xc0) {
 827                     pes->pts = get_pts(r);
 828                     r += 5;
 829                     pes->dts = get_pts(r);
 830                     r += 5;
 831                 }
 832                 /* we got the full header. We parse it and get the payload */
 833                 pes->state = MPEGTS_PAYLOAD;
 834             }
 835             break;
 836         case MPEGTS_PAYLOAD:
 837             if (pes->total_size) {
 838                 len = pes->total_size - pes->data_index;
 839                 if (len > buf_size)
 840                     len = buf_size;
 841             } else {
 842                 len = buf_size;
 843             }
 844             if (len > 0) {
 845                 AVPacket *pkt = ts->pkt;
 846                 if (pes->st && av_new_packet(pkt, len) == 0) {
 847                     memcpy(pkt->data, p, len);
 848                     pkt->stream_index = pes->st->index;
 849                     pkt->pts = pes->pts;
 850                     pkt->dts = pes->dts;
 851                     /* reset pts values */
 852                     pes->pts = AV_NOPTS_VALUE;
 853                     pes->dts = AV_NOPTS_VALUE;
 854                     ts->stop_parse = 1;
 855                     return;
 856                 }
 857             }
 858             buf_size = 0;
 859             break;
 860         case MPEGTS_SKIP:
 861             buf_size = 0;
 862             break;
 863         }
 864     }
 865 }
 866
 867 static AVStream* new_pes_av_stream(PESContext *pes, uint32_t code)
 868 {
 869     AVStream *st;
 870     int codec_type, codec_id;
 871
 872     switch(pes->stream_type){
 873     case STREAM_TYPE_AUDIO_MPEG1:
 874     case STREAM_TYPE_AUDIO_MPEG2:
 875         codec_type = CODEC_TYPE_AUDIO;
 876         codec_id = CODEC_ID_MP3;
 877         break;
 878     case STREAM_TYPE_VIDEO_MPEG1:
 879     case STREAM_TYPE_VIDEO_MPEG2:
 880         codec_type = CODEC_TYPE_VIDEO;
 881         codec_id = CODEC_ID_MPEG2VIDEO;
 882         break;
 883     case STREAM_TYPE_VIDEO_MPEG4:
 884         codec_type = CODEC_TYPE_VIDEO;
 885         codec_id = CODEC_ID_MPEG4;
 886         break;
 887     case STREAM_TYPE_VIDEO_H264:
 888         codec_type = CODEC_TYPE_VIDEO;
 889         codec_id = CODEC_ID_H264;
 890         break;
 891     case STREAM_TYPE_AUDIO_AAC:
 892         codec_type = CODEC_TYPE_AUDIO;
 893         codec_id = CODEC_ID_AAC;
 894         break;
 895     case STREAM_TYPE_AUDIO_AC3:
 896         codec_type = CODEC_TYPE_AUDIO;
 897         codec_id = CODEC_ID_AC3;
 898         break;
 899     case STREAM_TYPE_AUDIO_DTS:
 900         codec_type = CODEC_TYPE_AUDIO;
 901         codec_id = CODEC_ID_DTS;
 902         break;
 903     case STREAM_TYPE_SUBTITLE_DVB:
 904         codec_type = CODEC_TYPE_SUBTITLE;
 905         codec_id = CODEC_ID_DVB_SUBTITLE;
 906         break;
 907     default:
 908         if (code >= 0x1c0 && code <= 0x1df) {
 909             codec_type = CODEC_TYPE_AUDIO;
 910             codec_id = CODEC_ID_MP2;
 911         } else if (code == 0x1bd) {
 912             codec_type = CODEC_TYPE_AUDIO;
 913             codec_id = CODEC_ID_AC3;
 914         } else {
 915             codec_type = CODEC_TYPE_VIDEO;
 916             codec_id = CODEC_ID_MPEG1VIDEO;
 917         }
 918         break;
 919     }
 920     st = av_new_stream(pes->stream, pes->pid);
 921     if (st) {
 922         av_set_pts_info(st, 33, 1, 90000);
 923         st->priv_data = pes;
 924         st->codec->codec_type = codec_type;
 925         st->codec->codec_id = codec_id;
 926         st->need_parsing = 1;
 927         pes->st = st;
 928     }
 929     return st;
 930 }
 931
 932
 933 static PESContext *add_pes_stream(MpegTSContext *ts, int pid, int stream_type)
 934 {
 935     MpegTSFilter *tss;
 936     PESContext *pes;
 937
 938     /* if no pid found, then add a pid context */
 939     pes = av_mallocz(sizeof(PESContext));
 940     if (!pes)
 941         return 0;
 942     pes->ts = ts;
 943     pes->stream = ts->stream;
 944     pes->pid = pid;
 945     pes->stream_type = stream_type;
 946     tss = mpegts_open_pes_filter(ts, pid, mpegts_push_data, pes);
 947     if (!tss) {
 948         av_free(pes);
 949         return 0;
 950     }
 951     return pes;
 952 }
 953
 954 /* handle one TS packet */
 955 static void handle_packet(MpegTSContext *ts, const uint8_t *packet)
 956 {
 957     AVFormatContext *s = ts->stream;
 958     MpegTSFilter *tss;
 959     int len, pid, cc, cc_ok, afc, is_start;
 960     const uint8_t *p, *p_end;
 961
 962     pid = ((packet[1] & 0x1f) << 8) | packet[2];
 963     is_start = packet[1] & 0x40;
 964     tss = ts->pids[pid];
 965     if (ts->auto_guess && tss == NULL && is_start) {
 966         add_pes_stream(ts, pid, 0);
 967         tss = ts->pids[pid];
 968     }
 969     if (!tss)
 970         return;
 971
 972     /* continuity check (currently not used) */
 973     cc = (packet[3] & 0xf);
 974     cc_ok = (tss->last_cc < 0) || ((((tss->last_cc + 1) & 0x0f) == cc));
 975     tss->last_cc = cc;
 976
 977     /* skip adaptation field */
 978     afc = (packet[3] >> 4) & 3;
 979     p = packet + 4;
 980     if (afc == 0) /* reserved value */
 981         return;
 982     if (afc == 2) /* adaptation field only */
 983         return;
 984     if (afc == 3) {
 985         /* skip adapation field */
 986         p += p[0] + 1;
 987     }
 988     /* if past the end of packet, ignore */
 989     p_end = packet + TS_PACKET_SIZE;
 990     if (p >= p_end)
 991         return;
 992
 993     if (tss->type == MPEGTS_SECTION) {
 994         if (is_start) {
 995             /* pointer field present */
 996             len = *p++;
 997             if (p + len > p_end)
 998                 return;
 999             if (len && cc_ok) {
1000                 /* write remaining section bytes */
1001                 write_section_data(s, tss,
1002                                    p, len, 0);
1003                 /* check whether filter has been closed */
1004                 if (!ts->pids[pid])
1005                     return;
1006             }
1007             p += len;
1008             if (p < p_end) {
1009                 write_section_data(s, tss,
1010                                    p, p_end - p, 1);
1011             }
1012         } else {
1013             if (cc_ok) {
1014                 write_section_data(s, tss,
1015                                    p, p_end - p, 0);
1016             }
1017         }
1018     } else {
1019         tss->u.pes_filter.pes_cb(tss->u.pes_filter.opaque,
1020                                  p, p_end - p, is_start);
1021     }
1022 }
1023
1024 /* XXX: try to find a better synchro over several packets (use
1025    get_packet_size() ?) */
1026 static int mpegts_resync(ByteIOContext *pb)
1027 {
1028     int c, i;
1029
1030     for(i = 0;i < MAX_RESYNC_SIZE; i++) {
1031         c = url_fgetc(pb);
1032         if (c < 0)
1033             return -1;
1034         if (c == 0x47) {
1035             url_fseek(pb, -1, SEEK_CUR);
1036             return 0;
1037         }
1038     }
1039     /* no sync found */
1040     return -1;
1041 }
1042
1043 /* return -1 if error or EOF. Return 0 if OK. */
1044 static int read_packet(ByteIOContext *pb, uint8_t *buf, int raw_packet_size)
1045 {
1046     int skip, len;
1047
1048     for(;;) {
1049         len = get_buffer(pb, buf, TS_PACKET_SIZE);
1050         if (len != TS_PACKET_SIZE)
1051             return AVERROR_IO;
1052         /* check paquet sync byte */
1053         if (buf[0] != 0x47) {
1054             /* find a new packet start */
1055             url_fseek(pb, -TS_PACKET_SIZE, SEEK_CUR);
1056             if (mpegts_resync(pb) < 0)
1057                 return AVERROR_INVALIDDATA;
1058             else
1059                 continue;
1060         } else {
1061             skip = raw_packet_size - TS_PACKET_SIZE;
1062             if (skip > 0)
1063                 url_fskip(pb, skip);
1064             break;
1065         }
1066     }
1067     return 0;
1068 }
1069
1070 static int handle_packets(MpegTSContext *ts, int nb_packets)
1071 {
1072     AVFormatContext *s = ts->stream;
1073     ByteIOContext *pb = &s->pb;
1074     uint8_t packet[TS_PACKET_SIZE];
1075     int packet_num, ret;
1076
1077     ts->stop_parse = 0;
1078     packet_num = 0;
1079     for(;;) {
1080         if (ts->stop_parse)
1081             break;
1082         packet_num++;
1083         if (nb_packets != 0 && packet_num >= nb_packets)
1084             break;
1085         ret = read_packet(pb, packet, ts->raw_packet_size);
1086         if (ret != 0)
1087             return ret;
1088         handle_packet(ts, packet);
1089     }
1090     return 0;
1091 }
1092
1093 static int mpegts_probe(AVProbeData *p)
1094 {
1095 #if 1
1096     const int size= p->buf_size;
1097     int score, fec_score;
1098 #define CHECK_COUNT 10
1099
1100     if (size < (TS_FEC_PACKET_SIZE * CHECK_COUNT))
1101         return -1;
1102
1103     score    = analyze(p->buf, TS_PACKET_SIZE    *CHECK_COUNT, TS_PACKET_SIZE, NULL);
1104     fec_score= analyze(p->buf, TS_FEC_PACKET_SIZE*CHECK_COUNT, TS_FEC_PACKET_SIZE, NULL);
1105 //    av_log(NULL, AV_LOG_DEBUG, "score: %d, fec_score: %d \n", score, fec_score);
1106
1107 // we need a clear definition for the returned score otherwise things will become messy sooner or later
1108     if     (score > fec_score && score > 6) return AVPROBE_SCORE_MAX + score     - CHECK_COUNT;
1109     else if(                 fec_score > 6) return AVPROBE_SCORE_MAX + fec_score - CHECK_COUNT;
1110     else                                    return -1;
1111 #else
1112     /* only use the extension for safer guess */
1113     if (match_ext(p->filename, "ts"))
1114         return AVPROBE_SCORE_MAX;
1115     else
1116         return 0;
1117 #endif
1118 }
1119
1120 void set_service_cb(void *opaque, int ret)
1121 {
1122     MpegTSContext *ts = opaque;
1123     ts->set_service_ret = ret;
1124     ts->stop_parse = 1;
1125 }
1126
1127 /* return the 90 kHz PCR and the extension for the 27 MHz PCR. return
1128    (-1) if not available */
1129 static int parse_pcr(int64_t *ppcr_high, int *ppcr_low,
1130                      const uint8_t *packet)
1131 {
1132     int afc, len, flags;
1133     const uint8_t *p;
1134     unsigned int v;
1135
1136     afc = (packet[3] >> 4) & 3;
1137     if (afc <= 1)
1138         return -1;
1139     p = packet + 4;
1140     len = p[0];
1141     p++;
1142     if (len == 0)
1143         return -1;
1144     flags = *p++;
1145     len--;
1146     if (!(flags & 0x10))
1147         return -1;
1148     if (len < 6)
1149         return -1;
1150     v = (p[0] << 24) | (p[1] << 16) | (p[2] << 8) | p[3];
1151     *ppcr_high = ((int64_t)v << 1) | (p[4] >> 7);
1152     *ppcr_low = ((p[4] & 1) << 8) | p[5];
1153     return 0;
1154 }
1155
1156 static int mpegts_read_header(AVFormatContext *s,
1157                               AVFormatParameters *ap)
1158 {
1159     MpegTSContext *ts = s->priv_data;
1160     ByteIOContext *pb = &s->pb;
1161     uint8_t buf[1024];
1162     int len, sid, i;
1163     int64_t pos;
1164     MpegTSService *service;
1165
1166     if (ap) {
1167         ts->mpeg2ts_raw = ap->mpeg2ts_raw;
1168         ts->mpeg2ts_compute_pcr = ap->mpeg2ts_compute_pcr;
1169     }
1170
1171     /* read the first 1024 bytes to get packet size */
1172     pos = url_ftell(pb);
1173     len = get_buffer(pb, buf, sizeof(buf));
1174     if (len != sizeof(buf))
1175         goto fail;
1176     ts->raw_packet_size = get_packet_size(buf, sizeof(buf));
1177     if (ts->raw_packet_size <= 0)
1178         goto fail;
1179     ts->stream = s;
1180     ts->auto_guess = 0;
1181
1182     if (!ts->mpeg2ts_raw) {
1183         /* normal demux */
1184
1185         if (!ts->auto_guess) {
1186             ts->set_service_ret = -1;
1187
1188             /* first do a scaning to get all the services */
1189             url_fseek(pb, pos, SEEK_SET);
1190             mpegts_scan_sdt(ts);
1191
1192             handle_packets(ts, MAX_SCAN_PACKETS);
1193
1194             if (ts->nb_services <= 0) {
1195                 /* no SDT found, we try to look at the PAT */
1196
1197                 /* First remove the SDT filters from each PID */
1198                 int i;
1199                 for (i=0; i < NB_PID_MAX; i++) {
1200                     if (ts->pids[i])
1201                         mpegts_close_filter(ts, ts->pids[i]);
1202                 }
1203                 url_fseek(pb, pos, SEEK_SET);
1204                 mpegts_scan_pat(ts);
1205
1206                 handle_packets(ts, MAX_SCAN_PACKETS);
1207             }
1208
1209             if (ts->nb_services <= 0) {
1210                 /* raw transport stream */
1211                 ts->auto_guess = 1;
1212                 s->ctx_flags |= AVFMTCTX_NOHEADER;
1213                 goto do_pcr;
1214             }
1215
1216             /* tune to first service found */
1217             for(i=0; i<ts->nb_services && ts->set_service_ret; i++){
1218                 service = ts->services[i];
1219                 sid = service->sid;
1220 #ifdef DEBUG_SI
1221                 printf("tuning to '%s'\n", service->name);
1222 #endif
1223
1224                 /* now find the info for the first service if we found any,
1225                 otherwise try to filter all PATs */
1226
1227                 url_fseek(pb, pos, SEEK_SET);
1228                 mpegts_set_service(ts, sid, set_service_cb, ts);
1229
1230                 handle_packets(ts, MAX_SCAN_PACKETS);
1231             }
1232             /* if could not find service, exit */
1233
1234             if (ts->set_service_ret != 0)
1235                 return -1;
1236
1237 #ifdef DEBUG_SI
1238             printf("tuning done\n");
1239 #endif
1240         }
1241         s->ctx_flags |= AVFMTCTX_NOHEADER;
1242     } else {
1243         AVStream *st;
1244         int pcr_pid, pid, nb_packets, nb_pcrs, ret, pcr_l;
1245         int64_t pcrs[2], pcr_h;
1246         int packet_count[2];
1247         uint8_t packet[TS_PACKET_SIZE];
1248
1249         /* only read packets */
1250
1251     do_pcr:
1252         st = av_new_stream(s, 0);
1253         if (!st)
1254             goto fail;
1255         av_set_pts_info(st, 60, 1, 27000000);
1256         st->codec->codec_type = CODEC_TYPE_DATA;
1257         st->codec->codec_id = CODEC_ID_MPEG2TS;
1258
1259         /* we iterate until we find two PCRs to estimate the bitrate */
1260         pcr_pid = -1;
1261         nb_pcrs = 0;
1262         nb_packets = 0;
1263         for(;;) {
1264             ret = read_packet(&s->pb, packet, ts->raw_packet_size);
1265             if (ret < 0)
1266                 return -1;
1267             pid = ((packet[1] & 0x1f) << 8) | packet[2];
1268             if ((pcr_pid == -1 || pcr_pid == pid) &&
1269                 parse_pcr(&pcr_h, &pcr_l, packet) == 0) {
1270                 pcr_pid = pid;
1271                 packet_count[nb_pcrs] = nb_packets;
1272                 pcrs[nb_pcrs] = pcr_h * 300 + pcr_l;
1273                 nb_pcrs++;
1274                 if (nb_pcrs >= 2)
1275                     break;
1276             }
1277             nb_packets++;
1278         }
1279         ts->pcr_pid = pcr_pid;
1280
1281         /* NOTE1: the bitrate is computed without the FEC */
1282         /* NOTE2: it is only the bitrate of the start of the stream */
1283         ts->pcr_incr = (pcrs[1] - pcrs[0]) / (packet_count[1] - packet_count[0]);
1284         ts->cur_pcr = pcrs[0] - ts->pcr_incr * packet_count[0];
1285         s->bit_rate = (TS_PACKET_SIZE * 8) * 27e6 / ts->pcr_incr;
1286         st->codec->bit_rate = s->bit_rate;
1287         st->start_time = ts->cur_pcr;
1288 #if 0
1289         printf("start=%0.3f pcr=%0.3f incr=%d\n",
1290                st->start_time / 1000000.0, pcrs[0] / 27e6, ts->pcr_incr);
1291 #endif
1292     }
1293
1294     url_fseek(pb, pos, SEEK_SET);
1295     return 0;
1296  fail:
1297     return -1;
1298 }
1299
1300 #define MAX_PACKET_READAHEAD ((128 * 1024) / 188)
1301
1302 static int mpegts_raw_read_packet(AVFormatContext *s,
1303                                   AVPacket *pkt)
1304 {
1305     MpegTSContext *ts = s->priv_data;
1306     int ret, i;
1307     int64_t pcr_h, next_pcr_h, pos;
1308     int pcr_l, next_pcr_l;
1309     uint8_t pcr_buf[12];
1310
1311     if (av_new_packet(pkt, TS_PACKET_SIZE) < 0)
1312         return -ENOMEM;
1313     pkt->pos= url_ftell(&s->pb);
1314     ret = read_packet(&s->pb, pkt->data, ts->raw_packet_size);
1315     if (ret < 0) {
1316         av_free_packet(pkt);
1317         return ret;
1318     }
1319     if (ts->mpeg2ts_compute_pcr) {
1320         /* compute exact PCR for each packet */
1321         if (parse_pcr(&pcr_h, &pcr_l, pkt->data) == 0) {
1322             /* we read the next PCR (XXX: optimize it by using a bigger buffer */
1323             pos = url_ftell(&s->pb);
1324             for(i = 0; i < MAX_PACKET_READAHEAD; i++) {
1325                 url_fseek(&s->pb, pos + i * ts->raw_packet_size, SEEK_SET);
1326                 get_buffer(&s->pb, pcr_buf, 12);
1327                 if (parse_pcr(&next_pcr_h, &next_pcr_l, pcr_buf) == 0) {
1328                     /* XXX: not precise enough */
1329                     ts->pcr_incr = ((next_pcr_h - pcr_h) * 300 + (next_pcr_l - pcr_l)) /
1330                         (i + 1);
1331                     break;
1332                 }
1333             }
1334             url_fseek(&s->pb, pos, SEEK_SET);
1335             /* no next PCR found: we use previous increment */
1336             ts->cur_pcr = pcr_h * 300 + pcr_l;
1337         }
1338         pkt->pts = ts->cur_pcr;
1339         pkt->duration = ts->pcr_incr;
1340         ts->cur_pcr += ts->pcr_incr;
1341     }
1342     pkt->stream_index = 0;
1343     return 0;
1344 }
1345
1346 static int mpegts_read_packet(AVFormatContext *s,
1347                               AVPacket *pkt)
1348 {
1349     MpegTSContext *ts = s->priv_data;
1350
1351     if (!ts->mpeg2ts_raw) {
1352         ts->pkt = pkt;
1353         return handle_packets(ts, 0);
1354     } else {
1355         return mpegts_raw_read_packet(s, pkt);
1356     }
1357 }
1358
1359 static int mpegts_read_close(AVFormatContext *s)
1360 {
1361     MpegTSContext *ts = s->priv_data;
1362     int i;
1363     for(i=0;i<NB_PID_MAX;i++)
1364         if (ts->pids[i]) mpegts_close_filter(ts, ts->pids[i]);
1365     return 0;
1366 }
1367
1368 static int64_t mpegts_get_pcr(AVFormatContext *s, int stream_index,
1369                               int64_t *ppos, int64_t pos_limit)
1370 {
1371     MpegTSContext *ts = s->priv_data;
1372     int64_t pos, timestamp;
1373     uint8_t buf[TS_PACKET_SIZE];
1374     int pcr_l, pid;
1375     const int find_next= 1;
1376     pos = ((*ppos  + ts->raw_packet_size - 1) / ts->raw_packet_size) * ts->raw_packet_size;
1377     if (find_next) {
1378         for(;;) {
1379             url_fseek(&s->pb, pos, SEEK_SET);
1380             if (get_buffer(&s->pb, buf, TS_PACKET_SIZE) != TS_PACKET_SIZE)
1381                 return AV_NOPTS_VALUE;
1382             pid = ((buf[1] & 0x1f) << 8) | buf[2];
1383             if (pid == ts->pcr_pid &&
1384                 parse_pcr(&timestamp, &pcr_l, buf) == 0) {
1385                 break;
1386             }
1387             pos += ts->raw_packet_size;
1388         }
1389     } else {
1390         for(;;) {
1391             pos -= ts->raw_packet_size;
1392             if (pos < 0)
1393                 return AV_NOPTS_VALUE;
1394             url_fseek(&s->pb, pos, SEEK_SET);
1395             if (get_buffer(&s->pb, buf, TS_PACKET_SIZE) != TS_PACKET_SIZE)
1396                 return AV_NOPTS_VALUE;
1397             pid = ((buf[1] & 0x1f) << 8) | buf[2];
1398             if (pid == ts->pcr_pid &&
1399                 parse_pcr(&timestamp, &pcr_l, buf) == 0) {
1400                 break;
1401             }
1402         }
1403     }
1404     *ppos = pos;
1405
1406     return timestamp;
1407 }
1408
1409 static int read_seek(AVFormatContext *s, int stream_index, int64_t target_ts, int flags){
1410     MpegTSContext *ts = s->priv_data;
1411     uint8_t buf[TS_PACKET_SIZE];
1412     int64_t pos;
1413
1414     if(av_seek_frame_binary(s, stream_index, target_ts, flags) < 0)
1415         return -1;
1416
1417     pos= url_ftell(&s->pb);
1418
1419     for(;;) {
1420         url_fseek(&s->pb, pos, SEEK_SET);
1421         if (get_buffer(&s->pb, buf, TS_PACKET_SIZE) != TS_PACKET_SIZE)
1422             return -1;
1423 //        pid = ((buf[1] & 0x1f) << 8) | buf[2];
1424         if(buf[1] & 0x40) break;
1425         pos += ts->raw_packet_size;
1426     }
1427     url_fseek(&s->pb, pos, SEEK_SET);
1428
1429     return 0;
1430 }
1431
1432 /**************************************************************/
1433 /* parsing functions - called from other demuxers such as RTP */
1434
1435 MpegTSContext *mpegts_parse_open(AVFormatContext *s)
1436 {
1437     MpegTSContext *ts;
1438
1439     ts = av_mallocz(sizeof(MpegTSContext));
1440     if (!ts)
1441         return NULL;
1442     /* no stream case, currently used by RTP */
1443     ts->raw_packet_size = TS_PACKET_SIZE;
1444     ts->stream = s;
1445     ts->auto_guess = 1;
1446     return ts;
1447 }
1448
1449 /* return the consumed length if a packet was output, or -1 if no
1450    packet is output */
1451 int mpegts_parse_packet(MpegTSContext *ts, AVPacket *pkt,
1452                         const uint8_t *buf, int len)
1453 {
1454     int len1;
1455
1456     len1 = len;
1457     ts->pkt = pkt;
1458     ts->stop_parse = 0;
1459     for(;;) {
1460         if (ts->stop_parse)
1461             break;
1462         if (len < TS_PACKET_SIZE)
1463             return -1;
1464         if (buf[0] != 0x47) {
1465             buf++;
1466             len--;
1467         } else {
1468             handle_packet(ts, buf);
1469             buf += TS_PACKET_SIZE;
1470             len -= TS_PACKET_SIZE;
1471         }
1472     }
1473     return len1 - len;
1474 }
1475
1476 void mpegts_parse_close(MpegTSContext *ts)
1477 {
1478     int i;
1479
1480     for(i=0;i<NB_PID_MAX;i++)
1481         av_free(ts->pids[i]);
1482     av_free(ts);
1483 }
1484
1485 AVInputFormat mpegts_demux = {
1486     "mpegts",
1487     "MPEG2 transport stream format",
1488     sizeof(MpegTSContext),
1489     mpegts_probe,
1490     mpegts_read_header,
1491     mpegts_read_packet,
1492     mpegts_read_close,
1493     read_seek,
1494     mpegts_get_pcr,
1495     .flags = AVFMT_SHOW_IDS,
1496 };
1497
1498 int mpegts_init(void)
1499 {
1500     av_register_input_format(&mpegts_demux);
1501 #ifdef CONFIG_MUXERS
1502     av_register_output_format(&mpegts_mux);
1503 #endif
1504     return 0;
1505 }