git.sesse.net Git - vlc/blob - modules/demux/ps.h

   1 /*****************************************************************************
   2  * ps.h: Program Stream demuxer helper
   3  *****************************************************************************
   4  * Copyright (C) 2004 the VideoLAN team
   5  * $Id$
   6  *
   7  * Authors: Laurent Aimar <fenrir@via.ecp.fr>
   8  *
   9  * This program is free software; you can redistribute it and/or modify
  10  * it under the terms of the GNU General Public License as published by
  11  * the Free Software Foundation; either version 2 of the License, or
  12  * (at your option) any later version.
  13  *
  14  * This program is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  * GNU General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU General Public License
  20  * along with this program; if not, write to the Free Software
  21  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
  22  *****************************************************************************/
  23
  24 #include <vlc_demux.h>
  25 #include <assert.h>
  26
  27 /* 256-0xC0 for normal stream, 256 for 0xbd stream, 256 for 0xfd stream, 8 for 0xa0 AOB stream */
  28 #define PS_TK_COUNT (256+256+256+8 - 0xc0)
  29 #if 0
  30 #define PS_ID_TO_TK( id ) ((id) <= 0xff ? (id) - 0xc0 : \
  31             ((id)&0xff) + (((id)&0xff00) == 0xbd00 ? 256-0xC0 : 512-0xc0) )
  32 #else
  33 static inline int ps_id_to_tk( unsigned i_id )
  34 {
  35     if( i_id <= 0xff )
  36         return i_id - 0xc0;
  37     else if( (i_id & 0xff00) == 0xbd00 )
  38         return 256-0xC0 + (i_id & 0xff);
  39     else if( (i_id & 0xff00) == 0xfd00 )
  40         return 512-0xc0 + (i_id & 0xff);
  41     else
  42         return 768-0xc0 + (i_id & 0x07);
  43 }
  44 #define PS_ID_TO_TK( id ) ps_id_to_tk( id )
  45 #endif
  46
  47 typedef struct ps_psm_t ps_psm_t;
  48 static inline int ps_id_to_type( const ps_psm_t *, int );
  49 static inline const uint8_t *ps_id_to_lang( const ps_psm_t *, int );
  50
  51 typedef struct
  52 {
  53     bool  b_seen;
  54     int         i_skip;
  55     int         i_id;
  56     es_out_id_t *es;
  57     es_format_t fmt;
  58     mtime_t     i_first_pts;
  59     mtime_t     i_last_pts;
  60
  61 } ps_track_t;
  62
  63 /* Init a set of track */
  64 static inline void ps_track_init( ps_track_t tk[PS_TK_COUNT] )
  65 {
  66     int i;
  67     for( i = 0; i < PS_TK_COUNT; i++ )
  68     {
  69         tk[i].b_seen = false;
  70         tk[i].i_skip = 0;
  71         tk[i].i_id   = 0;
  72         tk[i].es     = NULL;
  73         tk[i].i_first_pts = -1;
  74         tk[i].i_last_pts = -1;
  75         es_format_Init( &tk[i].fmt, UNKNOWN_ES, 0 );
  76     }
  77 }
  78
  79 /* From id fill i_skip and es_format_t */
  80 static inline int ps_track_fill( ps_track_t *tk, ps_psm_t *p_psm, int i_id )
  81 {
  82     tk->i_skip = 0;
  83     tk->i_id = i_id;
  84     if( ( i_id&0xff00 ) == 0xbd00 )
  85     {
  86         if( ( i_id&0xf8 ) == 0x88 || (i_id&0xf8) == 0x98 )
  87         {
  88             es_format_Init( &tk->fmt, AUDIO_ES, VLC_CODEC_DTS );
  89             tk->i_skip = 4;
  90         }
  91         else if( ( i_id&0xf0 ) == 0x80
  92                ||  (i_id&0xf0) == 0xc0 ) /* AC-3, Can also be used for DD+/E-AC-3 */
  93         {
  94             es_format_Init( &tk->fmt, AUDIO_ES, VLC_CODEC_A52 );
  95             tk->i_skip = 4;
  96         }
  97         else if( (i_id&0xf0) == 0xb0 )
  98         {
  99             es_format_Init( &tk->fmt, AUDIO_ES, VLC_CODEC_MLP );
 100             /* FIXME / untested ... no known decoder (at least not in VLC/ffmpeg) */
 101         }
 102         else if( ( i_id&0xe0 ) == 0x20 )
 103         {
 104             es_format_Init( &tk->fmt, SPU_ES, VLC_CODEC_SPU );
 105             tk->i_skip = 1;
 106         }
 107         else if( ( i_id&0xf0 ) == 0xa0 )
 108         {
 109             es_format_Init( &tk->fmt, AUDIO_ES, VLC_CODEC_DVD_LPCM );
 110             tk->i_skip = 1;
 111         }
 112         else if( ( i_id&0xff ) == 0x70 )
 113         {
 114             es_format_Init( &tk->fmt, SPU_ES, VLC_FOURCC('o','g','t',' ') );
 115         }
 116         else if( ( i_id&0xfc ) == 0x00 )
 117         {
 118             es_format_Init( &tk->fmt, SPU_ES, VLC_FOURCC('c','v','d',' ') );
 119         }
 120         else if( ( i_id&0xff ) == 0x10 )
 121         {
 122             es_format_Init( &tk->fmt, SPU_ES, VLC_CODEC_TELETEXT );
 123         }
 124         else
 125         {
 126             es_format_Init( &tk->fmt, UNKNOWN_ES, 0 );
 127             return VLC_EGENERIC;
 128         }
 129     }
 130     else if( (i_id&0xff00) == 0xfd00 )
 131     {
 132         uint8_t i_sub_id = i_id & 0xff;
 133         if( i_sub_id >= 0x55 && i_sub_id <= 0x5f )
 134         {
 135             es_format_Init( &tk->fmt, VIDEO_ES, VLC_CODEC_VC1 );
 136         }
 137         else
 138         {
 139             es_format_Init( &tk->fmt, UNKNOWN_ES, 0 );
 140             return VLC_EGENERIC;
 141         }
 142     }
 143     else if( (i_id&0xff00) == 0xa000 )
 144     {
 145         uint8_t i_sub_id = i_id & 0x07;
 146         if( i_sub_id == 0 )
 147         {
 148             es_format_Init( &tk->fmt, AUDIO_ES, VLC_CODEC_DVDA_LPCM );
 149             tk->i_skip = 1;
 150         }
 151         else if( i_sub_id == 1 )
 152         {
 153             es_format_Init( &tk->fmt, AUDIO_ES, VLC_CODEC_MLP );
 154             tk->i_skip = -1; /* It's a hack for variable skip value */
 155         }
 156         else
 157         {
 158             es_format_Init( &tk->fmt, UNKNOWN_ES, 0 );
 159             return VLC_EGENERIC;
 160         }
 161     }
 162     else
 163     {
 164         int i_type = ps_id_to_type( p_psm , i_id );
 165
 166         es_format_Init( &tk->fmt, UNKNOWN_ES, 0 );
 167
 168         if( (i_id&0xf0) == 0xe0 && i_type == 0x1b )
 169         {
 170             es_format_Init( &tk->fmt, VIDEO_ES, VLC_CODEC_H264 );
 171         }
 172         else if( (i_id&0xf0) == 0xe0 && i_type == 0x10 )
 173         {
 174             es_format_Init( &tk->fmt, VIDEO_ES, VLC_CODEC_MP4V );
 175         }
 176         else if( (i_id&0xf0) == 0xe0 && i_type == 0x02 )
 177         {
 178             es_format_Init( &tk->fmt, VIDEO_ES, VLC_CODEC_MPGV );
 179         }
 180         else if( ( i_id&0xe0 ) == 0xc0 && i_type == 0x0f )
 181         {
 182             es_format_Init( &tk->fmt, AUDIO_ES, VLC_CODEC_MP4A );
 183         }
 184         else if( ( i_id&0xe0 ) == 0xc0 && i_type == 0x11 )
 185         {
 186             es_format_Init( &tk->fmt, AUDIO_ES, VLC_CODEC_MP4A );
 187         }
 188         else if( ( i_id&0xe0 ) == 0xc0 && i_type == 0x03 )
 189         {
 190             es_format_Init( &tk->fmt, AUDIO_ES, VLC_CODEC_MPGA );
 191         }
 192
 193         if( tk->fmt.i_cat == UNKNOWN_ES && ( i_id&0xf0 ) == 0xe0 )
 194         {
 195             es_format_Init( &tk->fmt, VIDEO_ES, VLC_CODEC_MPGV );
 196         }
 197         else if( tk->fmt.i_cat == UNKNOWN_ES && ( i_id&0xe0 ) == 0xc0 )
 198         {
 199             es_format_Init( &tk->fmt, AUDIO_ES, VLC_CODEC_MPGA );
 200         }
 201         else if( tk->fmt.i_cat == UNKNOWN_ES ) return VLC_EGENERIC;
 202     }
 203
 204     /* PES packets usually contain truncated frames */
 205     tk->fmt.b_packetized = false;
 206
 207     if( ps_id_to_lang( p_psm, i_id ) )
 208     {
 209         tk->fmt.psz_language = malloc( 4 );
 210         if( tk->fmt.psz_language )
 211         {
 212             memcpy( tk->fmt.psz_language, ps_id_to_lang( p_psm , i_id ), 3 );
 213             tk->fmt.psz_language[3] = 0;
 214         }
 215     }
 216
 217     return VLC_SUCCESS;
 218 }
 219
 220 /* return the id of a PES (should be valid) */
 221 static inline int ps_pkt_id( block_t *p_pkt )
 222 {
 223     if( p_pkt->p_buffer[3] == 0xbd &&
 224         p_pkt->i_buffer >= 9 &&
 225         p_pkt->i_buffer >= 9 + (size_t)p_pkt->p_buffer[8] )
 226     {
 227         const unsigned i_start = 9 + p_pkt->p_buffer[8];
 228         const uint8_t i_sub_id = p_pkt->p_buffer[i_start];
 229
 230         if( (i_sub_id & 0xfe) == 0xa0 &&
 231             p_pkt->i_buffer >= i_start + 7 &&
 232             ( p_pkt->p_buffer[i_start + 5] >=  0xc0 ||
 233               p_pkt->p_buffer[i_start + 6] != 0x80 ) )
 234         {
 235             /* AOB LPCM/MLP extension
 236              * XXX for MLP I think that the !=0x80 test is not good and
 237              * will fail for some valid files */
 238             return 0xa000 | (i_sub_id & 0x01);
 239         }
 240
 241         /* VOB extension */
 242         return 0xbd00 | i_sub_id;
 243     }
 244     else if( p_pkt->p_buffer[3] == 0xfd &&
 245              p_pkt->i_buffer >= 9 &&
 246              (p_pkt->p_buffer[6]&0xC0) == 0x80 &&   /* mpeg2 */
 247              (p_pkt->p_buffer[7]&0x01) == 0x01 )    /* extension_flag */
 248     {
 249         /* ISO 13818 amendment 2 and SMPTE RP 227 */
 250         const uint8_t i_flags = p_pkt->p_buffer[7];
 251         unsigned int i_skip = 9;
 252
 253         /* Find PES extension */
 254         if( (i_flags & 0x80 ) )
 255         {
 256             i_skip += 5;        /* pts */
 257             if( (i_flags & 0x40) )
 258                 i_skip += 5;    /* dts */
 259         }
 260         if( (i_flags & 0x20 ) )
 261             i_skip += 6;
 262         if( (i_flags & 0x10 ) )
 263             i_skip += 3;
 264         if( (i_flags & 0x08 ) )
 265             i_skip += 1;
 266         if( (i_flags & 0x04 ) )
 267             i_skip += 1;
 268         if( (i_flags & 0x02 ) )
 269             i_skip += 2;
 270
 271         if( i_skip < p_pkt->i_buffer && (p_pkt->p_buffer[i_skip]&0x01) )
 272         {
 273             const uint8_t i_flags2 = p_pkt->p_buffer[i_skip];
 274
 275             /* Find PES extension 2 */
 276             i_skip += 1;
 277             if( i_flags2 & 0x80 )
 278                 i_skip += 16;
 279             if( (i_flags2 & 0x40) && i_skip < p_pkt->i_buffer )
 280                 i_skip += 1 + p_pkt->p_buffer[i_skip];
 281             if( i_flags2 & 0x20 )
 282                 i_skip += 2;
 283             if( i_flags2 & 0x10 )
 284                 i_skip += 2;
 285
 286             if( i_skip + 1 < p_pkt->i_buffer )
 287             {
 288                 const int i_extension_field_length = p_pkt->p_buffer[i_skip]&0x7f;
 289                 if( i_extension_field_length >=1 )
 290                 {
 291                     int i_stream_id_extension_flag = (p_pkt->p_buffer[i_skip+1] >> 7)&0x1;
 292                     if( i_stream_id_extension_flag == 0 )
 293                         return 0xfd00 | (p_pkt->p_buffer[i_skip+1]&0x7f);
 294                 }
 295             }
 296         }
 297     }
 298     return p_pkt->p_buffer[3];
 299 }
 300
 301 /* return the size of the next packet
 302  * You need to give him at least 14 bytes (and it need to start as a
 303  * valid packet) It does not handle less than 6 bytes */
 304 static inline int ps_pkt_size( const uint8_t *p, int i_peek )
 305 {
 306     assert( i_peek >= 6 );
 307     if( p[3] == 0xb9 && i_peek >= 4 )
 308     {
 309         return 4;
 310     }
 311     else if( p[3] == 0xba )
 312     {
 313         if( (p[4] >> 6) == 0x01 && i_peek >= 14 )
 314         {
 315             return 14 + (p[13]&0x07);
 316         }
 317         else if( (p[4] >> 4) == 0x02 && i_peek >= 12 )
 318         {
 319             return 12;
 320         }
 321         return -1;
 322     }
 323     else if( i_peek >= 6 )
 324     {
 325         return 6 + ((p[4]<<8) | p[5] );
 326     }
 327     return -1;
 328 }
 329
 330 /* parse a PACK PES */
 331 static inline int ps_pkt_parse_pack( block_t *p_pkt, int64_t *pi_scr,
 332                                      int *pi_mux_rate )
 333 {
 334     uint8_t *p = p_pkt->p_buffer;
 335     if( p_pkt->i_buffer >= 14 && (p[4] >> 6) == 0x01 )
 336     {
 337         *pi_scr =((((int64_t)p[4]&0x38) << 27 )|
 338                   (((int64_t)p[4]&0x03) << 28 )|
 339                    ((int64_t)p[5] << 20 )|
 340                   (((int64_t)p[6]&0xf8) << 12 )|
 341                   (((int64_t)p[6]&0x03) << 13 )|
 342                    ((int64_t)p[7] << 5 )|
 343                    ((int64_t)p[8] >> 3 )) * 100 / 9;
 344
 345         *pi_mux_rate = ( p[10] << 14 )|( p[11] << 6 )|( p[12] >> 2);
 346     }
 347     else if( p_pkt->i_buffer >= 12 && (p[4] >> 4) == 0x02 )
 348     {
 349         *pi_scr =((((int64_t)p[4]&0x0e) << 29 )|
 350                    ((int64_t)p[5] << 22 )|
 351                   (((int64_t)p[6]&0xfe) << 14 )|
 352                    ((int64_t)p[7] <<  7 )|
 353                    ((int64_t)p[8] >> 1 )) * 100 / 9;
 354
 355         *pi_mux_rate = ( ( p[9]&0x7f )<< 15 )|( p[10] << 7 )|( p[11] >> 1);
 356     }
 357     else
 358     {
 359         return VLC_EGENERIC;
 360     }
 361     return VLC_SUCCESS;
 362 }
 363
 364 /* Parse a SYSTEM PES */
 365 static inline int ps_pkt_parse_system( block_t *p_pkt, ps_psm_t *p_psm,
 366                                        ps_track_t tk[PS_TK_COUNT] )
 367 {
 368     uint8_t *p = &p_pkt->p_buffer[6 + 3 + 1 + 1 + 1];
 369
 370     /* System header is not useable if it references private streams (0xBD)
 371      * or 'all audio streams' (0xB8) or 'all video streams' (0xB9) */
 372     while( p < &p_pkt->p_buffer[p_pkt->i_buffer] )
 373     {
 374         int i_id = p[0];
 375
 376         /* fprintf( stderr, "   SYSTEM_START_CODEEE: id=0x%x\n", p[0] ); */
 377         if( p[0] >= 0xBC || p[0] == 0xB8 || p[0] == 0xB9 ) p += 2;
 378         p++;
 379
 380         if( i_id >= 0xc0 )
 381         {
 382             int i_tk = PS_ID_TO_TK( i_id );
 383
 384             if( !tk[i_tk].b_seen )
 385             {
 386                 if( !ps_track_fill( &tk[i_tk], p_psm, i_id ) )
 387                 {
 388                     tk[i_tk].b_seen = true;
 389                 }
 390             }
 391         }
 392     }
 393     return VLC_SUCCESS;
 394 }
 395
 396 /* Parse a PES (and skip i_skip_extra in the payload) */
 397 static inline int ps_pkt_parse_pes( block_t *p_pes, int i_skip_extra )
 398 {
 399     uint8_t header[34];
 400     unsigned int i_skip  = 0;
 401
 402     memcpy( header, p_pes->p_buffer, __MIN( p_pes->i_buffer, 34 ) );
 403
 404     switch( header[3] )
 405     {
 406         case 0xBC:  /* Program stream map */
 407         case 0xBE:  /* Padding */
 408         case 0xBF:  /* Private stream 2 */
 409         case 0xB0:  /* ECM */
 410         case 0xB1:  /* EMM */
 411         case 0xFF:  /* Program stream directory */
 412         case 0xF2:  /* DSMCC stream */
 413         case 0xF8:  /* ITU-T H.222.1 type E stream */
 414             i_skip = 6;
 415             break;
 416
 417         default:
 418             if( ( header[6]&0xC0 ) == 0x80 )
 419             {
 420                 /* mpeg2 PES */
 421                 i_skip = header[8] + 9;
 422
 423                 if( header[7]&0x80 )    /* has pts */
 424                 {
 425                     p_pes->i_pts = ((mtime_t)(header[ 9]&0x0e ) << 29)|
 426                                     (mtime_t)(header[10] << 22)|
 427                                    ((mtime_t)(header[11]&0xfe) << 14)|
 428                                     (mtime_t)(header[12] << 7)|
 429                                     (mtime_t)(header[13] >> 1);
 430
 431                     if( header[7]&0x40 )    /* has dts */
 432                     {
 433                          p_pes->i_dts = ((mtime_t)(header[14]&0x0e ) << 29)|
 434                                          (mtime_t)(header[15] << 22)|
 435                                         ((mtime_t)(header[16]&0xfe) << 14)|
 436                                          (mtime_t)(header[17] << 7)|
 437                                          (mtime_t)(header[18] >> 1);
 438                     }
 439                 }
 440             }
 441             else
 442             {
 443                 i_skip = 6;
 444                 while( i_skip < 23 && header[i_skip] == 0xff )
 445                 {
 446                     i_skip++;
 447                 }
 448                 if( i_skip == 23 )
 449                 {
 450                     /* msg_Err( p_demux, "too much MPEG-1 stuffing" ); */
 451                     return VLC_EGENERIC;
 452                 }
 453                 if( ( header[i_skip] & 0xC0 ) == 0x40 )
 454                 {
 455                     i_skip += 2;
 456                 }
 457
 458                 if(  header[i_skip]&0x20 )
 459                 {
 460                      p_pes->i_pts = ((mtime_t)(header[i_skip]&0x0e ) << 29)|
 461                                      (mtime_t)(header[i_skip+1] << 22)|
 462                                     ((mtime_t)(header[i_skip+2]&0xfe) << 14)|
 463                                      (mtime_t)(header[i_skip+3] << 7)|
 464                                      (mtime_t)(header[i_skip+4] >> 1);
 465
 466                     if( header[i_skip]&0x10 )    /* has dts */
 467                     {
 468                          p_pes->i_dts = ((mtime_t)(header[i_skip+5]&0x0e ) << 29)|
 469                                          (mtime_t)(header[i_skip+6] << 22)|
 470                                         ((mtime_t)(header[i_skip+7]&0xfe) << 14)|
 471                                          (mtime_t)(header[i_skip+8] << 7)|
 472                                          (mtime_t)(header[i_skip+9] >> 1);
 473                          i_skip += 10;
 474                     }
 475                     else
 476                     {
 477                         i_skip += 5;
 478                     }
 479                 }
 480                 else
 481                 {
 482                     i_skip += 1;
 483                 }
 484             }
 485     }
 486
 487     if( i_skip_extra >= 0 )
 488         i_skip += i_skip_extra;
 489     else if( p_pes->i_buffer > i_skip + 3 &&
 490              ( ps_pkt_id( p_pes ) == 0xa001 || ps_pkt_id( p_pes ) == 0xbda1 ) )
 491         i_skip += 4 + p_pes->p_buffer[i_skip+3];
 492
 493     if( p_pes->i_buffer <= i_skip )
 494     {
 495         return VLC_EGENERIC;
 496     }
 497
 498     p_pes->p_buffer += i_skip;
 499     p_pes->i_buffer -= i_skip;
 500
 501     p_pes->i_dts = 100 * p_pes->i_dts / 9;
 502     p_pes->i_pts = 100 * p_pes->i_pts / 9;
 503
 504     return VLC_SUCCESS;
 505 }
 506
 507 /* Program stream map handling */
 508 typedef struct ps_es_t
 509 {
 510     int i_type;
 511     int i_id;
 512
 513     int i_descriptor;
 514     uint8_t *p_descriptor;
 515
 516     /* Language is iso639-2T */
 517     uint8_t lang[3];
 518
 519 } ps_es_t;
 520
 521 struct ps_psm_t
 522 {
 523     int i_version;
 524
 525     int     i_es;
 526     ps_es_t **es;
 527 };
 528
 529 static inline int ps_id_to_type( const ps_psm_t *p_psm, int i_id )
 530 {
 531     int i;
 532     for( i = 0; p_psm && i < p_psm->i_es; i++ )
 533     {
 534         if( p_psm->es[i]->i_id == i_id ) return p_psm->es[i]->i_type;
 535     }
 536     return 0;
 537 }
 538
 539 static inline const uint8_t *ps_id_to_lang( const ps_psm_t *p_psm, int i_id )
 540 {
 541     int i;
 542     for( i = 0; p_psm && i < p_psm->i_es; i++ )
 543     {
 544         if( p_psm->es[i]->i_id == i_id ) return p_psm->es[i]->lang;
 545     }
 546     return 0;
 547 }
 548
 549 static inline void ps_psm_init( ps_psm_t *p_psm )
 550 {
 551     p_psm->i_version = 0xFFFF;
 552     p_psm->i_es = 0;
 553     p_psm->es = 0;
 554 }
 555
 556 static inline void ps_psm_destroy( ps_psm_t *p_psm )
 557 {
 558     while( p_psm->i_es-- )
 559     {
 560         free( p_psm->es[p_psm->i_es]->p_descriptor );
 561         free( p_psm->es[p_psm->i_es] );
 562     }
 563     free( p_psm->es );
 564
 565     p_psm->es = 0;
 566     p_psm->i_es = 0;
 567 }
 568
 569 static inline int ps_psm_fill( ps_psm_t *p_psm, block_t *p_pkt,
 570                                ps_track_t tk[PS_TK_COUNT], es_out_t *out )
 571 {
 572     int i_buffer = p_pkt->i_buffer;
 573     uint8_t *p_buffer = p_pkt->p_buffer;
 574     int i_length, i_version, i_info_length, i_esm_length, i_es_base;
 575
 576     if( !p_psm || p_buffer[3] != 0xbc ) return VLC_EGENERIC;
 577
 578     i_length = (uint16_t)(p_buffer[4] << 8) + p_buffer[5] + 6;
 579     if( i_length > i_buffer ) return VLC_EGENERIC;
 580
 581     //i_current_next_indicator = (p_buffer[6] && 0x01);
 582     i_version = (p_buffer[6] && 0xf8);
 583
 584     if( p_psm->i_version == i_version ) return VLC_EGENERIC;
 585
 586     ps_psm_destroy( p_psm );
 587
 588     i_info_length = (uint16_t)(p_buffer[8] << 8) + p_buffer[9];
 589     if( i_info_length + 10 > i_length ) return VLC_EGENERIC;
 590
 591     /* Elementary stream map */
 592     i_esm_length = (uint16_t)(p_buffer[ 10 + i_info_length ] << 8) +
 593         p_buffer[ 11 + i_info_length];
 594     i_es_base = 12 + i_info_length;
 595
 596     while( i_es_base + 4 < i_length )
 597     {
 598         ps_es_t **tmp_es;
 599         ps_es_t es;
 600         es.lang[0] = es.lang[1] = es.lang[2] = 0;
 601
 602         es.i_type = p_buffer[ i_es_base  ];
 603         es.i_id = p_buffer[ i_es_base + 1 ];
 604         i_info_length = (uint16_t)(p_buffer[ i_es_base + 2 ] << 8) +
 605             p_buffer[ i_es_base + 3 ];
 606
 607         if( i_es_base + 4 + i_info_length > i_length ) break;
 608
 609         /* TODO Add support for VC-1 stream:
 610          *      stream_type=0xea, stream_id=0xfd AND registration
 611          *      descriptor 0x5 with format_identifier == 0x56432D31 (VC-1)
 612          *      (I need a sample that use PSM with VC-1) */
 613
 614         es.p_descriptor = 0;
 615         es.i_descriptor = i_info_length;
 616         if( i_info_length > 0 )
 617         {
 618             int i = 0;
 619
 620             es.p_descriptor = malloc( i_info_length );
 621             if( es.p_descriptor )
 622             {
 623                 memcpy( es.p_descriptor, p_buffer + i_es_base + 4, i_info_length);
 624
 625                 while( i <= es.i_descriptor - 2 )
 626                 {
 627                     /* Look for the ISO639 language descriptor */
 628                     if( es.p_descriptor[i] != 0x0a )
 629                     {
 630                         i += es.p_descriptor[i+1] + 2;
 631                         continue;
 632                     }
 633
 634                     if( i <= es.i_descriptor - 6 )
 635                     {
 636                         es.lang[0] = es.p_descriptor[i+2];
 637                         es.lang[1] = es.p_descriptor[i+3];
 638                         es.lang[2] = es.p_descriptor[i+4];
 639                     }
 640                     break;
 641                 }
 642             }
 643         }
 644
 645         tmp_es = realloc( p_psm->es, sizeof(ps_es_t *) * (p_psm->i_es+1) );
 646         if( tmp_es )
 647         {
 648             p_psm->es = tmp_es;
 649             p_psm->es[p_psm->i_es] = malloc( sizeof(ps_es_t) );
 650             if( p_psm->es[p_psm->i_es] )
 651             {
 652                 *p_psm->es[p_psm->i_es++] = es;
 653                 i_es_base += 4 + i_info_length;
 654             }
 655         }
 656     }
 657
 658     /* TODO: CRC */
 659
 660     p_psm->i_version = i_version;
 661
 662     /* Check/Modify our existing tracks */
 663     for( int i = 0; i < PS_TK_COUNT; i++ )
 664     {
 665         ps_track_t tk_tmp;
 666
 667         if( !tk[i].b_seen || !tk[i].es ) continue;
 668
 669         if( ps_track_fill( &tk_tmp, p_psm, tk[i].i_id ) != VLC_SUCCESS )
 670             continue;
 671
 672         if( tk_tmp.fmt.i_codec == tk[i].fmt.i_codec ) continue;
 673
 674         es_out_Del( out, tk[i].es );
 675         tk[i] = tk_tmp;
 676         tk[i].b_seen = true;
 677         tk[i].es = es_out_Add( out, &tk[i].fmt );
 678     }
 679
 680     return VLC_SUCCESS;
 681 }