1 /*****************************************************************************
2 * ps.h: Program Stream demuxer helper
3 *****************************************************************************
4 * Copyright (C) 2004-2009 the VideoLAN team
7 * Authors: Laurent Aimar <fenrir@via.ecp.fr>
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.
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.
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 *****************************************************************************/
25 #include <vlc_demux.h>
26 #include <vlc_memory.h>
28 /* 256-0xC0 for normal stream, 256 for 0xbd stream, 256 for 0xfd stream, 8 for 0xa0 AOB stream */
29 #define PS_TK_COUNT (256+256+256+8 - 0xc0)
31 #define PS_ID_TO_TK( id ) ((id) <= 0xff ? (id) - 0xc0 : \
32 ((id)&0xff) + (((id)&0xff00) == 0xbd00 ? 256-0xC0 : 512-0xc0) )
34 static inline int ps_id_to_tk( unsigned i_id
)
38 else if( (i_id
& 0xff00) == 0xbd00 )
39 return 256-0xC0 + (i_id
& 0xff);
40 else if( (i_id
& 0xff00) == 0xfd00 )
41 return 512-0xc0 + (i_id
& 0xff);
43 return 768-0xc0 + (i_id
& 0x07);
45 #define PS_ID_TO_TK( id ) ps_id_to_tk( id )
48 typedef struct ps_psm_t ps_psm_t
;
49 static inline int ps_id_to_type( const ps_psm_t
*, int );
50 static inline const uint8_t *ps_id_to_lang( const ps_psm_t
*, int );
64 /* Init a set of track */
65 static inline void ps_track_init( ps_track_t tk
[PS_TK_COUNT
] )
68 for( i
= 0; i
< PS_TK_COUNT
; i
++ )
74 tk
[i
].i_first_pts
= -1;
75 tk
[i
].i_last_pts
= -1;
76 es_format_Init( &tk
[i
].fmt
, UNKNOWN_ES
, 0 );
80 /* From id fill i_skip and es_format_t */
81 static inline int ps_track_fill( ps_track_t
*tk
, ps_psm_t
*p_psm
, int i_id
)
85 if( ( i_id
&0xff00 ) == 0xbd00 )
87 if( ( i_id
&0xf8 ) == 0x88 || (i_id
&0xf8) == 0x98 )
89 es_format_Init( &tk
->fmt
, AUDIO_ES
, VLC_CODEC_DTS
);
92 else if( ( i_id
&0xf0 ) == 0x80
93 || (i_id
&0xf0) == 0xc0 ) /* AC-3, Can also be used for DD+/E-AC-3 */
95 es_format_Init( &tk
->fmt
, AUDIO_ES
, VLC_CODEC_A52
);
98 else if( (i_id
&0xf0) == 0xb0 )
100 es_format_Init( &tk
->fmt
, AUDIO_ES
, VLC_CODEC_MLP
);
101 /* FIXME / untested ... no known decoder (at least not in VLC/ffmpeg) */
103 else if( ( i_id
&0xe0 ) == 0x20 )
105 es_format_Init( &tk
->fmt
, SPU_ES
, VLC_CODEC_SPU
);
108 else if( ( i_id
&0xf0 ) == 0xa0 )
110 es_format_Init( &tk
->fmt
, AUDIO_ES
, VLC_CODEC_DVD_LPCM
);
113 else if( ( i_id
&0xff ) == 0x70 )
115 es_format_Init( &tk
->fmt
, SPU_ES
, VLC_CODEC_OGT
);
117 else if( ( i_id
&0xfc ) == 0x00 )
119 es_format_Init( &tk
->fmt
, SPU_ES
, VLC_CODEC_CVD
);
121 else if( ( i_id
&0xff ) == 0x10 )
123 es_format_Init( &tk
->fmt
, SPU_ES
, VLC_CODEC_TELETEXT
);
127 es_format_Init( &tk
->fmt
, UNKNOWN_ES
, 0 );
131 else if( (i_id
&0xff00) == 0xfd00 )
133 uint8_t i_sub_id
= i_id
& 0xff;
134 if( i_sub_id
>= 0x55 && i_sub_id
<= 0x5f )
136 es_format_Init( &tk
->fmt
, VIDEO_ES
, VLC_CODEC_VC1
);
140 es_format_Init( &tk
->fmt
, UNKNOWN_ES
, 0 );
144 else if( (i_id
&0xff00) == 0xa000 )
146 uint8_t i_sub_id
= i_id
& 0x07;
149 es_format_Init( &tk
->fmt
, AUDIO_ES
, VLC_CODEC_DVDA_LPCM
);
152 else if( i_sub_id
== 1 )
154 es_format_Init( &tk
->fmt
, AUDIO_ES
, VLC_CODEC_MLP
);
155 tk
->i_skip
= -1; /* It's a hack for variable skip value */
159 es_format_Init( &tk
->fmt
, UNKNOWN_ES
, 0 );
165 int i_type
= ps_id_to_type( p_psm
, i_id
);
167 es_format_Init( &tk
->fmt
, UNKNOWN_ES
, 0 );
169 if( (i_id
&0xf0) == 0xe0 && i_type
== 0x1b )
171 es_format_Init( &tk
->fmt
, VIDEO_ES
, VLC_CODEC_H264
);
173 else if( (i_id
&0xf0) == 0xe0 && i_type
== 0x10 )
175 es_format_Init( &tk
->fmt
, VIDEO_ES
, VLC_CODEC_MP4V
);
177 else if( (i_id
&0xf0) == 0xe0 && i_type
== 0x02 )
179 es_format_Init( &tk
->fmt
, VIDEO_ES
, VLC_CODEC_MPGV
);
181 else if( ( i_id
&0xe0 ) == 0xc0 && i_type
== 0x0f )
183 es_format_Init( &tk
->fmt
, AUDIO_ES
, VLC_CODEC_MP4A
);
185 else if( ( i_id
&0xe0 ) == 0xc0 && i_type
== 0x11 )
187 es_format_Init( &tk
->fmt
, AUDIO_ES
, VLC_CODEC_MP4A
);
189 else if( ( i_id
&0xe0 ) == 0xc0 && i_type
== 0x03 )
191 es_format_Init( &tk
->fmt
, AUDIO_ES
, VLC_CODEC_MPGA
);
194 if( tk
->fmt
.i_cat
== UNKNOWN_ES
&& ( i_id
&0xf0 ) == 0xe0 )
196 es_format_Init( &tk
->fmt
, VIDEO_ES
, VLC_CODEC_MPGV
);
198 else if( tk
->fmt
.i_cat
== UNKNOWN_ES
&& ( i_id
&0xe0 ) == 0xc0 )
200 es_format_Init( &tk
->fmt
, AUDIO_ES
, VLC_CODEC_MPGA
);
202 else if( tk
->fmt
.i_cat
== UNKNOWN_ES
) return VLC_EGENERIC
;
205 /* PES packets usually contain truncated frames */
206 tk
->fmt
.b_packetized
= false;
208 if( ps_id_to_lang( p_psm
, i_id
) )
210 tk
->fmt
.psz_language
= malloc( 4 );
211 if( tk
->fmt
.psz_language
)
213 memcpy( tk
->fmt
.psz_language
, ps_id_to_lang( p_psm
, i_id
), 3 );
214 tk
->fmt
.psz_language
[3] = 0;
221 /* return the id of a PES (should be valid) */
222 static inline int ps_pkt_id( block_t
*p_pkt
)
224 if( p_pkt
->p_buffer
[3] == 0xbd &&
225 p_pkt
->i_buffer
>= 9 &&
226 p_pkt
->i_buffer
>= 9 + (size_t)p_pkt
->p_buffer
[8] )
228 const unsigned i_start
= 9 + p_pkt
->p_buffer
[8];
229 const uint8_t i_sub_id
= p_pkt
->p_buffer
[i_start
];
231 if( (i_sub_id
& 0xfe) == 0xa0 &&
232 p_pkt
->i_buffer
>= i_start
+ 7 &&
233 ( p_pkt
->p_buffer
[i_start
+ 5] >= 0xc0 ||
234 p_pkt
->p_buffer
[i_start
+ 6] != 0x80 ) )
236 /* AOB LPCM/MLP extension
237 * XXX for MLP I think that the !=0x80 test is not good and
238 * will fail for some valid files */
239 return 0xa000 | (i_sub_id
& 0x01);
243 return 0xbd00 | i_sub_id
;
245 else if( p_pkt
->p_buffer
[3] == 0xfd &&
246 p_pkt
->i_buffer
>= 9 &&
247 (p_pkt
->p_buffer
[6]&0xC0) == 0x80 && /* mpeg2 */
248 (p_pkt
->p_buffer
[7]&0x01) == 0x01 ) /* extension_flag */
250 /* ISO 13818 amendment 2 and SMPTE RP 227 */
251 const uint8_t i_flags
= p_pkt
->p_buffer
[7];
252 unsigned int i_skip
= 9;
254 /* Find PES extension */
255 if( (i_flags
& 0x80 ) )
257 i_skip
+= 5; /* pts */
258 if( (i_flags
& 0x40) )
259 i_skip
+= 5; /* dts */
261 if( (i_flags
& 0x20 ) )
263 if( (i_flags
& 0x10 ) )
265 if( (i_flags
& 0x08 ) )
267 if( (i_flags
& 0x04 ) )
269 if( (i_flags
& 0x02 ) )
272 if( i_skip
< p_pkt
->i_buffer
&& (p_pkt
->p_buffer
[i_skip
]&0x01) )
274 const uint8_t i_flags2
= p_pkt
->p_buffer
[i_skip
];
276 /* Find PES extension 2 */
278 if( i_flags2
& 0x80 )
280 if( (i_flags2
& 0x40) && i_skip
< p_pkt
->i_buffer
)
281 i_skip
+= 1 + p_pkt
->p_buffer
[i_skip
];
282 if( i_flags2
& 0x20 )
284 if( i_flags2
& 0x10 )
287 if( i_skip
+ 1 < p_pkt
->i_buffer
)
289 const int i_extension_field_length
= p_pkt
->p_buffer
[i_skip
]&0x7f;
290 if( i_extension_field_length
>=1 )
292 int i_stream_id_extension_flag
= (p_pkt
->p_buffer
[i_skip
+1] >> 7)&0x1;
293 if( i_stream_id_extension_flag
== 0 )
294 return 0xfd00 | (p_pkt
->p_buffer
[i_skip
+1]&0x7f);
299 return p_pkt
->p_buffer
[3];
302 /* return the size of the next packet */
303 static inline int ps_pkt_size( const uint8_t *p
, int i_peek
)
305 if( unlikely(i_peek
< 4) )
309 else if( p
[3] == 0xb9 )
313 else if( p
[3] == 0xba )
315 if( i_peek
>= 14 && (p
[4] >> 6) == 0x01 )
317 return 14 + (p
[13]&0x07);
319 else if( i_peek
>= 12 && (p
[4] >> 4) == 0x02 )
325 else if( i_peek
>= 6 )
327 return 6 + ((p
[4]<<8) | p
[5] );
332 /* parse a PACK PES */
333 static inline int ps_pkt_parse_pack( block_t
*p_pkt
, int64_t *pi_scr
,
336 uint8_t *p
= p_pkt
->p_buffer
;
337 if( p_pkt
->i_buffer
>= 14 && (p
[4] >> 6) == 0x01 )
339 *pi_scr
=((((int64_t)p
[4]&0x38) << 27 )|
340 (((int64_t)p
[4]&0x03) << 28 )|
341 ((int64_t)p
[5] << 20 )|
342 (((int64_t)p
[6]&0xf8) << 12 )|
343 (((int64_t)p
[6]&0x03) << 13 )|
344 ((int64_t)p
[7] << 5 )|
345 ((int64_t)p
[8] >> 3 )) * 100 / 9;
347 *pi_mux_rate
= ( p
[10] << 14 )|( p
[11] << 6 )|( p
[12] >> 2);
349 else if( p_pkt
->i_buffer
>= 12 && (p
[4] >> 4) == 0x02 )
351 *pi_scr
=((((int64_t)p
[4]&0x0e) << 29 )|
352 ((int64_t)p
[5] << 22 )|
353 (((int64_t)p
[6]&0xfe) << 14 )|
354 ((int64_t)p
[7] << 7 )|
355 ((int64_t)p
[8] >> 1 )) * 100 / 9;
357 *pi_mux_rate
= ( ( p
[9]&0x7f )<< 15 )|( p
[10] << 7 )|( p
[11] >> 1);
366 /* Parse a SYSTEM PES */
367 static inline int ps_pkt_parse_system( block_t
*p_pkt
, ps_psm_t
*p_psm
,
368 ps_track_t tk
[PS_TK_COUNT
] )
370 uint8_t *p
= &p_pkt
->p_buffer
[6 + 3 + 1 + 1 + 1];
372 /* System header is not useable if it references private streams (0xBD)
373 * or 'all audio streams' (0xB8) or 'all video streams' (0xB9) */
374 while( p
< &p_pkt
->p_buffer
[p_pkt
->i_buffer
] )
378 /* fprintf( stderr, " SYSTEM_START_CODEEE: id=0x%x\n", p[0] ); */
379 if( p
[0] >= 0xBC || p
[0] == 0xB8 || p
[0] == 0xB9 ) p
+= 2;
384 int i_tk
= PS_ID_TO_TK( i_id
);
386 if( !tk
[i_tk
].b_seen
)
388 if( !ps_track_fill( &tk
[i_tk
], p_psm
, i_id
) )
390 tk
[i_tk
].b_seen
= true;
398 /* Parse a PES (and skip i_skip_extra in the payload) */
399 static inline int ps_pkt_parse_pes( block_t
*p_pes
, int i_skip_extra
)
402 unsigned int i_skip
= 0;
406 memcpy( header
, p_pes
->p_buffer
, __MIN( p_pes
->i_buffer
, 34 ) );
410 case 0xBC: /* Program stream map */
411 case 0xBE: /* Padding */
412 case 0xBF: /* Private stream 2 */
415 case 0xFF: /* Program stream directory */
416 case 0xF2: /* DSMCC stream */
417 case 0xF8: /* ITU-T H.222.1 type E stream */
422 if( ( header
[6]&0xC0 ) == 0x80 )
425 i_skip
= header
[8] + 9;
427 if( header
[7]&0x80 ) /* has pts */
429 i_pts
= ((mtime_t
)(header
[ 9]&0x0e ) << 29)|
430 (mtime_t
)(header
[10] << 22)|
431 ((mtime_t
)(header
[11]&0xfe) << 14)|
432 (mtime_t
)(header
[12] << 7)|
433 (mtime_t
)(header
[13] >> 1);
435 if( header
[7]&0x40 ) /* has dts */
437 i_dts
= ((mtime_t
)(header
[14]&0x0e ) << 29)|
438 (mtime_t
)(header
[15] << 22)|
439 ((mtime_t
)(header
[16]&0xfe) << 14)|
440 (mtime_t
)(header
[17] << 7)|
441 (mtime_t
)(header
[18] >> 1);
448 while( i_skip
< 23 && header
[i_skip
] == 0xff )
454 /* msg_Err( p_demux, "too much MPEG-1 stuffing" ); */
457 if( ( header
[i_skip
] & 0xC0 ) == 0x40 )
462 if( header
[i_skip
]&0x20 )
464 i_pts
= ((mtime_t
)(header
[i_skip
]&0x0e ) << 29)|
465 (mtime_t
)(header
[i_skip
+1] << 22)|
466 ((mtime_t
)(header
[i_skip
+2]&0xfe) << 14)|
467 (mtime_t
)(header
[i_skip
+3] << 7)|
468 (mtime_t
)(header
[i_skip
+4] >> 1);
470 if( header
[i_skip
]&0x10 ) /* has dts */
472 i_dts
= ((mtime_t
)(header
[i_skip
+5]&0x0e ) << 29)|
473 (mtime_t
)(header
[i_skip
+6] << 22)|
474 ((mtime_t
)(header
[i_skip
+7]&0xfe) << 14)|
475 (mtime_t
)(header
[i_skip
+8] << 7)|
476 (mtime_t
)(header
[i_skip
+9] >> 1);
491 if( i_skip_extra
>= 0 )
492 i_skip
+= i_skip_extra
;
493 else if( p_pes
->i_buffer
> i_skip
+ 3 &&
494 ( ps_pkt_id( p_pes
) == 0xa001 || ps_pkt_id( p_pes
) == 0xbda1 ) )
495 i_skip
+= 4 + p_pes
->p_buffer
[i_skip
+3];
497 if( p_pes
->i_buffer
<= i_skip
)
502 p_pes
->p_buffer
+= i_skip
;
503 p_pes
->i_buffer
-= i_skip
;
506 p_pes
->i_dts
= VLC_TS_0
+ 100 * i_dts
/ 9;
508 p_pes
->i_pts
= VLC_TS_0
+ 100 * i_pts
/ 9;
513 /* Program stream map handling */
514 typedef struct ps_es_t
520 uint8_t *p_descriptor
;
522 /* Language is iso639-2T */
535 static inline int ps_id_to_type( const ps_psm_t
*p_psm
, int i_id
)
538 for( i
= 0; p_psm
&& i
< p_psm
->i_es
; i
++ )
540 if( p_psm
->es
[i
]->i_id
== i_id
) return p_psm
->es
[i
]->i_type
;
545 static inline const uint8_t *ps_id_to_lang( const ps_psm_t
*p_psm
, int i_id
)
548 for( i
= 0; p_psm
&& i
< p_psm
->i_es
; i
++ )
550 if( p_psm
->es
[i
]->i_id
== i_id
) return p_psm
->es
[i
]->lang
;
555 static inline void ps_psm_init( ps_psm_t
*p_psm
)
557 p_psm
->i_version
= 0xFFFF;
562 static inline void ps_psm_destroy( ps_psm_t
*p_psm
)
564 while( p_psm
->i_es
-- )
566 free( p_psm
->es
[p_psm
->i_es
]->p_descriptor
);
567 free( p_psm
->es
[p_psm
->i_es
] );
575 static inline int ps_psm_fill( ps_psm_t
*p_psm
, block_t
*p_pkt
,
576 ps_track_t tk
[PS_TK_COUNT
], es_out_t
*out
)
578 int i_buffer
= p_pkt
->i_buffer
;
579 uint8_t *p_buffer
= p_pkt
->p_buffer
;
580 int i_length
, i_version
, i_info_length
, i_es_base
;
582 if( !p_psm
|| p_buffer
[3] != 0xbc ) return VLC_EGENERIC
;
584 i_length
= (uint16_t)(p_buffer
[4] << 8) + p_buffer
[5] + 6;
585 if( i_length
> i_buffer
) return VLC_EGENERIC
;
587 //i_current_next_indicator = (p_buffer[6] && 0x01);
588 i_version
= (p_buffer
[6] && 0xf8);
590 if( p_psm
->i_version
== i_version
) return VLC_EGENERIC
;
592 ps_psm_destroy( p_psm
);
594 i_info_length
= (uint16_t)(p_buffer
[8] << 8) + p_buffer
[9];
595 if( i_info_length
+ 10 > i_length
) return VLC_EGENERIC
;
597 /* Elementary stream map */
598 /* int i_esm_length = (uint16_t)(p_buffer[ 10 + i_info_length ] << 8) +
599 p_buffer[ 11 + i_info_length]; */
600 i_es_base
= 12 + i_info_length
;
602 while( i_es_base
+ 4 < i_length
)
606 es
.lang
[0] = es
.lang
[1] = es
.lang
[2] = 0;
608 es
.i_type
= p_buffer
[ i_es_base
];
609 es
.i_id
= p_buffer
[ i_es_base
+ 1 ];
610 i_info_length
= (uint16_t)(p_buffer
[ i_es_base
+ 2 ] << 8) +
611 p_buffer
[ i_es_base
+ 3 ];
613 if( i_es_base
+ 4 + i_info_length
> i_length
) break;
615 /* TODO Add support for VC-1 stream:
616 * stream_type=0xea, stream_id=0xfd AND registration
617 * descriptor 0x5 with format_identifier == 0x56432D31 (VC-1)
618 * (I need a sample that use PSM with VC-1) */
621 es
.i_descriptor
= i_info_length
;
622 if( i_info_length
> 0 )
626 es
.p_descriptor
= malloc( i_info_length
);
627 if( es
.p_descriptor
)
629 memcpy( es
.p_descriptor
, p_buffer
+ i_es_base
+ 4, i_info_length
);
631 while( i
<= es
.i_descriptor
- 2 )
633 /* Look for the ISO639 language descriptor */
634 if( es
.p_descriptor
[i
] != 0x0a )
636 i
+= es
.p_descriptor
[i
+1] + 2;
640 if( i
<= es
.i_descriptor
- 6 )
642 es
.lang
[0] = es
.p_descriptor
[i
+2];
643 es
.lang
[1] = es
.p_descriptor
[i
+3];
644 es
.lang
[2] = es
.p_descriptor
[i
+4];
651 tmp_es
= realloc_or_free( p_psm
->es
, sizeof(ps_es_t
*) * (p_psm
->i_es
+1) );
655 p_psm
->es
[p_psm
->i_es
] = malloc( sizeof(ps_es_t
) );
656 if( p_psm
->es
[p_psm
->i_es
] )
658 *p_psm
->es
[p_psm
->i_es
++] = es
;
659 i_es_base
+= 4 + i_info_length
;
666 p_psm
->i_version
= i_version
;
668 /* Check/Modify our existing tracks */
669 for( int i
= 0; i
< PS_TK_COUNT
; i
++ )
673 if( !tk
[i
].b_seen
|| !tk
[i
].es
) continue;
675 if( ps_track_fill( &tk_tmp
, p_psm
, tk
[i
].i_id
) != VLC_SUCCESS
)
678 if( tk_tmp
.fmt
.i_codec
== tk
[i
].fmt
.i_codec
)
680 es_format_Clean( &tk_tmp
.fmt
);
684 es_out_Del( out
, tk
[i
].es
);
685 es_format_Clean( &tk
[i
].fmt
);
689 tk
[i
].es
= es_out_Add( out
, &tk
[i
].fmt
);