Move remaining replacement to static import library
[vlc.git] / modules / demux / mkv / matroska_segment_parse.cpp
1 /*****************************************************************************
2  * mkv.cpp : matroska demuxer
3  *****************************************************************************
4  * Copyright (C) 2003-2004 the VideoLAN team
5  * $Id$
6  *
7  * Authors: Laurent Aimar <fenrir@via.ecp.fr>
8  *          Steve Lhomme <steve.lhomme@free.fr>
9  *
10  * This program is free software; you can redistribute it and/or modify
11  * it under the terms of the GNU General Public License as published by
12  * the Free Software Foundation; either version 2 of the License, or
13  * (at your option) any later version.
14  *
15  * This program is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18  * GNU General Public License for more details.
19  *
20  * You should have received a copy of the GNU General Public License
21  * along with this program; if not, write to the Free Software
22  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
23  *****************************************************************************/
24
25 #include "matroska_segment.hpp"
26
27 #include "chapters.hpp"
28
29 #include "demux.hpp"
30
31 /*****************************************************************************
32  * Some functions to manipulate memory
33  *****************************************************************************/
34 static inline char * ToUTF8( const UTFstring &u )
35 {
36     return strdup( u.GetUTF8().c_str() );
37 }
38
39 /*****************************************************************************
40  * ParseSeekHead:
41  *****************************************************************************/
42 void matroska_segment_c::ParseSeekHead( KaxSeekHead *seekhead )
43 {
44     EbmlParser  *ep;
45     EbmlElement *l;
46     bool b_seekable;
47
48     i_seekhead_count++;
49
50     stream_Control( sys.demuxer.s, STREAM_CAN_SEEK, &b_seekable );
51     if( !b_seekable )
52         return;
53
54     ep = new EbmlParser( &es, seekhead, &sys.demuxer );
55
56     while( ( l = ep->Get() ) != NULL )
57     {
58         if( MKV_IS_ID( l, KaxSeek ) )
59         {
60             EbmlId id = EbmlVoid::ClassInfos.GlobalId;
61             int64_t i_pos = -1;
62
63             msg_Dbg( &sys.demuxer, "|   |   + Seek" );
64             ep->Down();
65             while( ( l = ep->Get() ) != NULL )
66             {
67                 if( MKV_IS_ID( l, KaxSeekID ) )
68                 {
69                     KaxSeekID &sid = *(KaxSeekID*)l;
70                     sid.ReadData( es.I_O() );
71                     id = EbmlId( sid.GetBuffer(), sid.GetSize() );
72                 }
73                 else if( MKV_IS_ID( l, KaxSeekPosition ) )
74                 {
75                     KaxSeekPosition &spos = *(KaxSeekPosition*)l;
76                     spos.ReadData( es.I_O() );
77                     i_pos = (int64_t)segment->GetGlobalPosition( uint64( spos ) );
78                 }
79                 else
80                 {
81                     /* Many mkvmerge files hit this case. It seems to be a broken SeekHead */
82                     msg_Dbg( &sys.demuxer, "|   |   + Unknown (%s)", typeid(*l).name()  );
83                 }
84             }
85             ep->Up();
86
87             if( i_pos >= 0 )
88             {
89                 if( id == KaxCues::ClassInfos.GlobalId )
90                 {
91                     msg_Dbg( &sys.demuxer, "|   - cues at %"PRId64, i_pos );
92                     LoadSeekHeadItem( KaxCues::ClassInfos, i_pos );
93                 }
94                 else if( id == KaxInfo::ClassInfos.GlobalId )
95                 {
96                     msg_Dbg( &sys.demuxer, "|   - info at %"PRId64, i_pos );
97                     LoadSeekHeadItem( KaxInfo::ClassInfos, i_pos );
98                 }
99                 else if( id == KaxChapters::ClassInfos.GlobalId )
100                 {
101                     msg_Dbg( &sys.demuxer, "|   - chapters at %"PRId64, i_pos );
102                     LoadSeekHeadItem( KaxChapters::ClassInfos, i_pos );
103                 }
104                 else if( id == KaxTags::ClassInfos.GlobalId )
105                 {
106                     msg_Dbg( &sys.demuxer, "|   - tags at %"PRId64, i_pos );
107                     LoadSeekHeadItem( KaxTags::ClassInfos, i_pos );
108                 }
109                 else if( id == KaxSeekHead::ClassInfos.GlobalId )
110                 {
111                     msg_Dbg( &sys.demuxer, "|   - chained seekhead at %"PRId64, i_pos );
112                     LoadSeekHeadItem( KaxSeekHead::ClassInfos, i_pos );
113                 }
114                 else if( id == KaxTracks::ClassInfos.GlobalId )
115                 {
116                     msg_Dbg( &sys.demuxer, "|   - tracks at %"PRId64, i_pos );
117                     LoadSeekHeadItem( KaxTracks::ClassInfos, i_pos );
118                 }
119                 else if( id == KaxAttachments::ClassInfos.GlobalId )
120                 {
121                     msg_Dbg( &sys.demuxer, "|   - attachments at %"PRId64, i_pos );
122                     LoadSeekHeadItem( KaxAttachments::ClassInfos, i_pos );
123                 }
124                 else
125                     msg_Dbg( &sys.demuxer, "|   - unknown seekhead reference at %"PRId64, i_pos );
126             }
127         }
128         else
129             msg_Dbg( &sys.demuxer, "|   |   + ParseSeekHead Unknown (%s)", typeid(*l).name() );
130     }
131     delete ep;
132 }
133
134
135 /**
136  * Helper function to print the mkv parse tree
137  */
138 static void MkvTree( demux_t & demuxer, int i_level, const char *psz_format, ... )
139 {
140     va_list args;
141     if( i_level > 9 )
142     {
143         msg_Err( &demuxer, "too deep tree" );
144         return;
145     }
146     va_start( args, psz_format );
147     static const char psz_foo[] = "|   |   |   |   |   |   |   |   |   |";
148     char *psz_foo2 = (char*)malloc( i_level * 4 + 3 + strlen( psz_format ) );
149     strncpy( psz_foo2, psz_foo, 4 * i_level );
150     psz_foo2[ 4 * i_level ] = '+';
151     psz_foo2[ 4 * i_level + 1 ] = ' ';
152     strcpy( &psz_foo2[ 4 * i_level + 2 ], psz_format );
153     __msg_GenericVa( VLC_OBJECT(&demuxer),VLC_MSG_DBG, "mkv", psz_foo2, args );
154     free( psz_foo2 );
155     va_end( args );
156 }
157
158
159 /*****************************************************************************
160  * ParseTrackEntry:
161  *****************************************************************************/
162 void matroska_segment_c::ParseTrackEntry( KaxTrackEntry *m )
163 {
164     size_t i, j, k, n;
165     bool bSupported = true;
166
167     mkv_track_t *tk;
168
169     msg_Dbg( &sys.demuxer, "|   |   + Track Entry" );
170
171     tk = new mkv_track_t();
172
173     /* Init the track */
174     memset( tk, 0, sizeof( mkv_track_t ) );
175
176     es_format_Init( &tk->fmt, UNKNOWN_ES, 0 );
177     tk->fmt.psz_language = strdup("English");
178     tk->fmt.psz_description = NULL;
179
180     tk->b_default = true;
181     tk->b_enabled = true;
182     tk->b_silent = false;
183     tk->i_number = tracks.size() - 1;
184     tk->i_extra_data = 0;
185     tk->p_extra_data = NULL;
186     tk->psz_codec = NULL;
187     tk->b_dts_only = false;
188     tk->i_default_duration = 0;
189     tk->f_timecodescale = 1.0;
190
191     tk->b_inited = false;
192     tk->i_data_init = 0;
193     tk->p_data_init = NULL;
194
195     tk->psz_codec_name = NULL;
196     tk->psz_codec_settings = NULL;
197     tk->psz_codec_info_url = NULL;
198     tk->psz_codec_download_url = NULL;
199  
200     tk->i_compression_type = MATROSKA_COMPRESSION_NONE;
201     tk->p_compression_data = NULL;
202
203     for( i = 0; i < m->ListSize(); i++ )
204     {
205         EbmlElement *l = (*m)[i];
206
207         if( MKV_IS_ID( l, KaxTrackNumber ) )
208         {
209             KaxTrackNumber &tnum = *(KaxTrackNumber*)l;
210
211             tk->i_number = uint32( tnum );
212             msg_Dbg( &sys.demuxer, "|   |   |   + Track Number=%u", uint32( tnum ) );
213         }
214         else  if( MKV_IS_ID( l, KaxTrackUID ) )
215         {
216             KaxTrackUID &tuid = *(KaxTrackUID*)l;
217
218             msg_Dbg( &sys.demuxer, "|   |   |   + Track UID=%u",  uint32( tuid ) );
219         }
220         else  if( MKV_IS_ID( l, KaxTrackType ) )
221         {
222             const char *psz_type;
223             KaxTrackType &ttype = *(KaxTrackType*)l;
224
225             switch( uint8(ttype) )
226             {
227                 case track_audio:
228                     psz_type = "audio";
229                     tk->fmt.i_cat = AUDIO_ES;
230                     break;
231                 case track_video:
232                     psz_type = "video";
233                     tk->fmt.i_cat = VIDEO_ES;
234                     break;
235                 case track_subtitle:
236                     psz_type = "subtitle";
237                     tk->fmt.i_cat = SPU_ES;
238                     break;
239                 case track_buttons:
240                     psz_type = "buttons";
241                     tk->fmt.i_cat = SPU_ES;
242                     break;
243                 default:
244                     psz_type = "unknown";
245                     tk->fmt.i_cat = UNKNOWN_ES;
246                     break;
247             }
248
249             msg_Dbg( &sys.demuxer, "|   |   |   + Track Type=%s", psz_type );
250         }
251 //        else  if( EbmlId( *l ) == KaxTrackFlagEnabled::ClassInfos.GlobalId )
252 //        {
253 //            KaxTrackFlagEnabled &fenb = *(KaxTrackFlagEnabled*)l;
254
255 //            tk->b_enabled = uint32( fenb );
256 //            msg_Dbg( &sys.demuxer, "|   |   |   + Track Enabled=%u",
257 //                     uint32( fenb )  );
258 //        }
259         else  if( MKV_IS_ID( l, KaxTrackFlagDefault ) )
260         {
261             KaxTrackFlagDefault &fdef = *(KaxTrackFlagDefault*)l;
262
263             tk->b_default = uint32( fdef );
264             msg_Dbg( &sys.demuxer, "|   |   |   + Track Default=%u", uint32( fdef )  );
265         }
266         else  if( MKV_IS_ID( l, KaxTrackFlagLacing ) )
267         {
268             KaxTrackFlagLacing &lac = *(KaxTrackFlagLacing*)l;
269
270             msg_Dbg( &sys.demuxer, "|   |   |   + Track Lacing=%d", uint32( lac ) );
271         }
272         else  if( MKV_IS_ID( l, KaxTrackMinCache ) )
273         {
274             KaxTrackMinCache &cmin = *(KaxTrackMinCache*)l;
275
276             msg_Dbg( &sys.demuxer, "|   |   |   + Track MinCache=%d", uint32( cmin ) );
277         }
278         else  if( MKV_IS_ID( l, KaxTrackMaxCache ) )
279         {
280             KaxTrackMaxCache &cmax = *(KaxTrackMaxCache*)l;
281
282             msg_Dbg( &sys.demuxer, "|   |   |   + Track MaxCache=%d", uint32( cmax ) );
283         }
284         else  if( MKV_IS_ID( l, KaxTrackDefaultDuration ) )
285         {
286             KaxTrackDefaultDuration &defd = *(KaxTrackDefaultDuration*)l;
287
288             tk->i_default_duration = uint64(defd);
289             msg_Dbg( &sys.demuxer, "|   |   |   + Track Default Duration=%"PRId64, uint64(defd) );
290         }
291         else  if( MKV_IS_ID( l, KaxTrackTimecodeScale ) )
292         {
293             KaxTrackTimecodeScale &ttcs = *(KaxTrackTimecodeScale*)l;
294
295             tk->f_timecodescale = float( ttcs );
296             msg_Dbg( &sys.demuxer, "|   |   |   + Track TimeCodeScale=%f", tk->f_timecodescale );
297         }
298         else if( MKV_IS_ID( l, KaxTrackName ) )
299         {
300             KaxTrackName &tname = *(KaxTrackName*)l;
301
302             tk->fmt.psz_description = ToUTF8( UTFstring( tname ) );
303             msg_Dbg( &sys.demuxer, "|   |   |   + Track Name=%s", tk->fmt.psz_description );
304         }
305         else  if( MKV_IS_ID( l, KaxTrackLanguage ) )
306         {
307             KaxTrackLanguage &lang = *(KaxTrackLanguage*)l;
308
309             if ( tk->fmt.psz_language != NULL )
310                 free( tk->fmt.psz_language );
311             tk->fmt.psz_language = strdup( string( lang ).c_str() );
312             msg_Dbg( &sys.demuxer,
313                      "|   |   |   + Track Language=`%s'", tk->fmt.psz_language );
314         }
315         else  if( MKV_IS_ID( l, KaxCodecID ) )
316         {
317             KaxCodecID &codecid = *(KaxCodecID*)l;
318
319             tk->psz_codec = strdup( string( codecid ).c_str() );
320             msg_Dbg( &sys.demuxer, "|   |   |   + Track CodecId=%s", string( codecid ).c_str() );
321         }
322         else  if( MKV_IS_ID( l, KaxCodecPrivate ) )
323         {
324             KaxCodecPrivate &cpriv = *(KaxCodecPrivate*)l;
325
326             tk->i_extra_data = cpriv.GetSize();
327             if( tk->i_extra_data > 0 )
328             {
329                 tk->p_extra_data = (uint8_t*)malloc( tk->i_extra_data );
330                 memcpy( tk->p_extra_data, cpriv.GetBuffer(), tk->i_extra_data );
331             }
332             msg_Dbg( &sys.demuxer, "|   |   |   + Track CodecPrivate size=%"PRId64, cpriv.GetSize() );
333         }
334         else if( MKV_IS_ID( l, KaxCodecName ) )
335         {
336             KaxCodecName &cname = *(KaxCodecName*)l;
337
338             tk->psz_codec_name = ToUTF8( UTFstring( cname ) );
339             msg_Dbg( &sys.demuxer, "|   |   |   + Track Codec Name=%s", tk->psz_codec_name );
340         }
341         else if( MKV_IS_ID( l, KaxContentEncodings ) )
342         {
343             EbmlMaster *cencs = static_cast<EbmlMaster*>(l);
344             MkvTree( sys.demuxer, 3, "Content Encodings" );
345             if ( cencs->ListSize() > 1 )
346             {
347                 msg_Err( &sys.demuxer, "Multiple Compression method not supported" );
348                 bSupported = false;
349             }
350             for( j = 0; j < cencs->ListSize(); j++ )
351             {
352                 EbmlElement *l2 = (*cencs)[j];
353                 if( MKV_IS_ID( l2, KaxContentEncoding ) )
354                 {
355                     MkvTree( sys.demuxer, 4, "Content Encoding" );
356                     EbmlMaster *cenc = static_cast<EbmlMaster*>(l2);
357                     for( k = 0; k < cenc->ListSize(); k++ )
358                     {
359                         EbmlElement *l3 = (*cenc)[k];
360                         if( MKV_IS_ID( l3, KaxContentEncodingOrder ) )
361                         {
362                             KaxContentEncodingOrder &encord = *(KaxContentEncodingOrder*)l3;
363                             MkvTree( sys.demuxer, 5, "Order: %i", uint32( encord ) );
364                         }
365                         else if( MKV_IS_ID( l3, KaxContentEncodingScope ) )
366                         {
367                             KaxContentEncodingScope &encscope = *(KaxContentEncodingScope*)l3;
368                             MkvTree( sys.demuxer, 5, "Scope: %i", uint32( encscope ) );
369                         }
370                         else if( MKV_IS_ID( l3, KaxContentEncodingType ) )
371                         {
372                             KaxContentEncodingType &enctype = *(KaxContentEncodingType*)l3;
373                             MkvTree( sys.demuxer, 5, "Type: %i", uint32( enctype ) );
374                         }
375                         else if( MKV_IS_ID( l3, KaxContentCompression ) )
376                         {
377                             EbmlMaster *compr = static_cast<EbmlMaster*>(l3);
378                             MkvTree( sys.demuxer, 5, "Content Compression" );
379                             for( n = 0; n < compr->ListSize(); n++ )
380                             {
381                                 EbmlElement *l4 = (*compr)[n];
382                                 if( MKV_IS_ID( l4, KaxContentCompAlgo ) )
383                                 {
384                                     KaxContentCompAlgo &compalg = *(KaxContentCompAlgo*)l4;
385                                     MkvTree( sys.demuxer, 6, "Compression Algorithm: %i", uint32(compalg) );
386                                     tk->i_compression_type = uint32( compalg );
387                                     if ( ( tk->i_compression_type != MATROSKA_COMPRESSION_ZLIB ) &&
388                                          ( tk->i_compression_type != MATROSKA_COMPRESSION_HEADER ) )
389                                     {
390                                         msg_Err( &sys.demuxer, "Track Compression method %d not supported", tk->i_compression_type );
391                                         bSupported = false;
392                                     }
393                                 }
394                                 else if( MKV_IS_ID( l4, KaxContentCompSettings ) )
395                                 {
396                                     tk->p_compression_data = new KaxContentCompSettings( *(KaxContentCompSettings*)l4 );
397                                 }
398                                 else
399                                 {
400                                     MkvTree( sys.demuxer, 6, "Unknown (%s)", typeid(*l4).name() );
401                                 }
402                             }
403                         }
404                         else
405                         {
406                             MkvTree( sys.demuxer, 5, "Unknown (%s)", typeid(*l3).name() );
407                         }
408                     }
409                 }
410                 else
411                 {
412                     MkvTree( sys.demuxer, 4, "Unknown (%s)", typeid(*l2).name() );
413                 }
414             }
415         }
416 //        else if( EbmlId( *l ) == KaxCodecSettings::ClassInfos.GlobalId )
417 //        {
418 //            KaxCodecSettings &cset = *(KaxCodecSettings*)l;
419
420 //            tk->psz_codec_settings = ToUTF8( UTFstring( cset ) );
421 //            msg_Dbg( &sys.demuxer, "|   |   |   + Track Codec Settings=%s", tk->psz_codec_settings );
422 //        }
423 //        else if( EbmlId( *l ) == KaxCodecInfoURL::ClassInfos.GlobalId )
424 //        {
425 //            KaxCodecInfoURL &ciurl = *(KaxCodecInfoURL*)l;
426
427 //            tk->psz_codec_info_url = strdup( string( ciurl ).c_str() );
428 //            msg_Dbg( &sys.demuxer, "|   |   |   + Track Codec Info URL=%s", tk->psz_codec_info_url );
429 //        }
430 //        else if( EbmlId( *l ) == KaxCodecDownloadURL::ClassInfos.GlobalId )
431 //        {
432 //            KaxCodecDownloadURL &cdurl = *(KaxCodecDownloadURL*)l;
433
434 //            tk->psz_codec_download_url = strdup( string( cdurl ).c_str() );
435 //            msg_Dbg( &sys.demuxer, "|   |   |   + Track Codec Info URL=%s", tk->psz_codec_download_url );
436 //        }
437 //        else if( EbmlId( *l ) == KaxCodecDecodeAll::ClassInfos.GlobalId )
438 //        {
439 //            KaxCodecDecodeAll &cdall = *(KaxCodecDecodeAll*)l;
440
441 //            msg_Dbg( &sys.demuxer, "|   |   |   + Track Codec Decode All=%u <== UNUSED", uint8( cdall ) );
442 //        }
443 //        else if( EbmlId( *l ) == KaxTrackOverlay::ClassInfos.GlobalId )
444 //        {
445 //            KaxTrackOverlay &tovr = *(KaxTrackOverlay*)l;
446
447 //            msg_Dbg( &sys.demuxer, "|   |   |   + Track Overlay=%u <== UNUSED", uint32( tovr ) );
448 //        }
449         else  if( MKV_IS_ID( l, KaxTrackVideo ) )
450         {
451             EbmlMaster *tkv = static_cast<EbmlMaster*>(l);
452             unsigned int j;
453             unsigned int i_crop_right = 0, i_crop_left = 0, i_crop_top = 0, i_crop_bottom = 0;
454             unsigned int i_display_unit = 0, i_display_width = 0, i_display_height = 0;
455
456             msg_Dbg( &sys.demuxer, "|   |   |   + Track Video" );
457             tk->f_fps = 0.0;
458
459             tk->fmt.video.i_frame_rate_base = (unsigned int)(tk->i_default_duration / 1000);
460             tk->fmt.video.i_frame_rate = 1000000;
461  
462             for( j = 0; j < tkv->ListSize(); j++ )
463             {
464                 EbmlElement *l = (*tkv)[j];
465 //                if( EbmlId( *el4 ) == KaxVideoFlagInterlaced::ClassInfos.GlobalId )
466 //                {
467 //                    KaxVideoFlagInterlaced &fint = *(KaxVideoFlagInterlaced*)el4;
468
469 //                    msg_Dbg( &sys.demuxer, "|   |   |   |   + Track Video Interlaced=%u", uint8( fint ) );
470 //                }
471 //                else if( EbmlId( *el4 ) == KaxVideoStereoMode::ClassInfos.GlobalId )
472 //                {
473 //                    KaxVideoStereoMode &stereo = *(KaxVideoStereoMode*)el4;
474
475 //                    msg_Dbg( &sys.demuxer, "|   |   |   |   + Track Video Stereo Mode=%u", uint8( stereo ) );
476 //                }
477 //                else
478                 if( MKV_IS_ID( l, KaxVideoPixelWidth ) )
479                 {
480                     KaxVideoPixelWidth &vwidth = *(KaxVideoPixelWidth*)l;
481
482                     tk->fmt.video.i_width += uint16( vwidth );
483                     msg_Dbg( &sys.demuxer, "|   |   |   |   + width=%d", uint16( vwidth ) );
484                 }
485                 else if( MKV_IS_ID( l, KaxVideoPixelHeight ) )
486                 {
487                     KaxVideoPixelWidth &vheight = *(KaxVideoPixelWidth*)l;
488
489                     tk->fmt.video.i_height += uint16( vheight );
490                     msg_Dbg( &sys.demuxer, "|   |   |   |   + height=%d", uint16( vheight ) );
491                 }
492                 else if( MKV_IS_ID( l, KaxVideoDisplayWidth ) )
493                 {
494                     KaxVideoDisplayWidth &vwidth = *(KaxVideoDisplayWidth*)l;
495
496                     i_display_width = uint16( vwidth );
497                     msg_Dbg( &sys.demuxer, "|   |   |   |   + display width=%d", uint16( vwidth ) );
498                 }
499                 else if( MKV_IS_ID( l, KaxVideoDisplayHeight ) )
500                 {
501                     KaxVideoDisplayWidth &vheight = *(KaxVideoDisplayWidth*)l;
502
503                     i_display_height = uint16( vheight );
504                     msg_Dbg( &sys.demuxer, "|   |   |   |   + display height=%d", uint16( vheight ) );
505                 }
506                 else if( MKV_IS_ID( l, KaxVideoPixelCropBottom ) )
507                 {
508                     KaxVideoPixelCropBottom &cropval = *(KaxVideoPixelCropBottom*)l;
509
510                     i_crop_bottom = uint16( cropval );
511                     msg_Dbg( &sys.demuxer, "|   |   |   |   + crop pixel bottom=%d", uint16( cropval ) );
512                 }
513                 else if( MKV_IS_ID( l, KaxVideoPixelCropTop ) )
514                 {
515                     KaxVideoPixelCropTop &cropval = *(KaxVideoPixelCropTop*)l;
516
517                     i_crop_top = uint16( cropval );
518                     msg_Dbg( &sys.demuxer, "|   |   |   |   + crop pixel top=%d", uint16( cropval ) );
519                 }
520                 else if( MKV_IS_ID( l, KaxVideoPixelCropRight ) )
521                 {
522                     KaxVideoPixelCropRight &cropval = *(KaxVideoPixelCropRight*)l;
523
524                     i_crop_right = uint16( cropval );
525                     msg_Dbg( &sys.demuxer, "|   |   |   |   + crop pixel right=%d", uint16( cropval ) );
526                 }
527                 else if( MKV_IS_ID( l, KaxVideoPixelCropLeft ) )
528                 {
529                     KaxVideoPixelCropLeft &cropval = *(KaxVideoPixelCropLeft*)l;
530
531                     i_crop_left = uint16( cropval );
532                     msg_Dbg( &sys.demuxer, "|   |   |   |   + crop pixel left=%d", uint16( cropval ) );
533                 }
534                 else if( MKV_IS_ID( l, KaxVideoFrameRate ) )
535                 {
536                     KaxVideoFrameRate &vfps = *(KaxVideoFrameRate*)l;
537
538                     tk->f_fps = float( vfps );
539                     msg_Dbg( &sys.demuxer, "   |   |   |   + fps=%f", float( vfps ) );
540                 }
541                 else if( EbmlId( *l ) == KaxVideoDisplayUnit::ClassInfos.GlobalId )
542                 {
543                     KaxVideoDisplayUnit &vdmode = *(KaxVideoDisplayUnit*)l;
544
545                     i_display_unit = uint8( vdmode );
546                     msg_Dbg( &sys.demuxer, "|   |   |   |   + Track Video Display Unit=%s",
547                              uint8( vdmode ) == 0 ? "pixels" : ( uint8( vdmode ) == 1 ? "centimeters": "inches" ) );
548                 }
549 //                else if( EbmlId( *l ) == KaxVideoAspectRatio::ClassInfos.GlobalId )
550 //                {
551 //                    KaxVideoAspectRatio &ratio = *(KaxVideoAspectRatio*)l;
552
553 //                    msg_Dbg( &sys.demuxer, "   |   |   |   + Track Video Aspect Ratio Type=%u", uint8( ratio ) );
554 //                }
555 //                else if( EbmlId( *l ) == KaxVideoGamma::ClassInfos.GlobalId )
556 //                {
557 //                    KaxVideoGamma &gamma = *(KaxVideoGamma*)l;
558
559 //                    msg_Dbg( &sys.demuxer, "   |   |   |   + gamma=%f", float( gamma ) );
560 //                }
561                 else
562                 {
563                     msg_Dbg( &sys.demuxer, "|   |   |   |   + Unknown (%s)", typeid(*l).name() );
564                 }
565             }
566             if( i_display_height && i_display_width )
567                 tk->fmt.video.i_aspect = VOUT_ASPECT_FACTOR * i_display_width / i_display_height;
568             if( i_crop_left || i_crop_right || i_crop_top || i_crop_bottom )
569             {
570                 tk->fmt.video.i_visible_width = tk->fmt.video.i_width;
571                 tk->fmt.video.i_visible_height = tk->fmt.video.i_height;
572                 tk->fmt.video.i_x_offset = i_crop_left;
573                 tk->fmt.video.i_y_offset = i_crop_top;
574                 tk->fmt.video.i_visible_width -= i_crop_left + i_crop_right;
575                 tk->fmt.video.i_visible_height -= i_crop_top + i_crop_bottom;
576             }
577             /* FIXME: i_display_* allows you to not only set DAR, but also a zoom factor.
578                we do not support this atm */
579         }
580         else  if( MKV_IS_ID( l, KaxTrackAudio ) )
581         {
582             EbmlMaster *tka = static_cast<EbmlMaster*>(l);
583             unsigned int j;
584
585             msg_Dbg( &sys.demuxer, "|   |   |   + Track Audio" );
586
587             for( j = 0; j < tka->ListSize(); j++ )
588             {
589                 EbmlElement *l = (*tka)[j];
590
591                 if( MKV_IS_ID( l, KaxAudioSamplingFreq ) )
592                 {
593                     KaxAudioSamplingFreq &afreq = *(KaxAudioSamplingFreq*)l;
594
595                     tk->i_original_rate = tk->fmt.audio.i_rate = (int)float( afreq );
596                     msg_Dbg( &sys.demuxer, "|   |   |   |   + afreq=%d", tk->fmt.audio.i_rate );
597                 }
598                 else if( MKV_IS_ID( l, KaxAudioOutputSamplingFreq ) )
599                 {
600                     KaxAudioOutputSamplingFreq &afreq = *(KaxAudioOutputSamplingFreq*)l;
601
602                     tk->fmt.audio.i_rate = (int)float( afreq );
603                     msg_Dbg( &sys.demuxer, "|   |   |   |   + aoutfreq=%d", tk->fmt.audio.i_rate );
604                 }
605                 else if( MKV_IS_ID( l, KaxAudioChannels ) )
606                 {
607                     KaxAudioChannels &achan = *(KaxAudioChannels*)l;
608
609                     tk->fmt.audio.i_channels = uint8( achan );
610                     msg_Dbg( &sys.demuxer, "|   |   |   |   + achan=%u", uint8( achan ) );
611                 }
612                 else if( MKV_IS_ID( l, KaxAudioBitDepth ) )
613                 {
614                     KaxAudioBitDepth &abits = *(KaxAudioBitDepth*)l;
615
616                     tk->fmt.audio.i_bitspersample = uint8( abits );
617                     msg_Dbg( &sys.demuxer, "|   |   |   |   + abits=%u", uint8( abits ) );
618                 }
619                 else
620                 {
621                     msg_Dbg( &sys.demuxer, "|   |   |   |   + Unknown (%s)", typeid(*l).name() );
622                 }
623             }
624         }
625         else
626         {
627             msg_Dbg( &sys.demuxer, "|   |   |   + Unknown (%s)",
628                      typeid(*l).name() );
629         }
630     }
631
632     if ( bSupported )
633     {
634         tracks.push_back( tk );
635     }
636     else
637     {
638         msg_Err( &sys.demuxer, "Track Entry %d not supported", tk->i_number );
639         delete tk;
640     }
641 }
642
643 /*****************************************************************************
644  * ParseTracks:
645  *****************************************************************************/
646 void matroska_segment_c::ParseTracks( KaxTracks *tracks )
647 {
648     EbmlElement *el;
649     unsigned int i;
650     int i_upper_level = 0;
651
652     /* Master elements */
653     tracks->Read( es, tracks->Generic().Context, i_upper_level, el, true );
654
655     for( i = 0; i < tracks->ListSize(); i++ )
656     {
657         EbmlElement *l = (*tracks)[i];
658
659         if( MKV_IS_ID( l, KaxTrackEntry ) )
660         {
661             ParseTrackEntry( static_cast<KaxTrackEntry *>(l) );
662         }
663         else
664         {
665             msg_Dbg( &sys.demuxer, "|   |   + Unknown (%s)", typeid(*l).name() );
666         }
667     }
668 }
669
670 /*****************************************************************************
671  * ParseInfo:
672  *****************************************************************************/
673 void matroska_segment_c::ParseInfo( KaxInfo *info )
674 {
675     EbmlElement *el;
676     EbmlMaster  *m;
677     size_t i, j;
678     int i_upper_level = 0;
679
680     /* Master elements */
681     m = static_cast<EbmlMaster *>(info);
682     m->Read( es, info->Generic().Context, i_upper_level, el, true );
683
684     for( i = 0; i < m->ListSize(); i++ )
685     {
686         EbmlElement *l = (*m)[i];
687
688         if( MKV_IS_ID( l, KaxSegmentUID ) )
689         {
690             if ( p_segment_uid == NULL )
691                 p_segment_uid = new KaxSegmentUID(*static_cast<KaxSegmentUID*>(l));
692
693             msg_Dbg( &sys.demuxer, "|   |   + UID=%d", *(uint32*)p_segment_uid->GetBuffer() );
694         }
695         else if( MKV_IS_ID( l, KaxPrevUID ) )
696         {
697             if ( p_prev_segment_uid == NULL )
698                 p_prev_segment_uid = new KaxPrevUID(*static_cast<KaxPrevUID*>(l));
699
700             msg_Dbg( &sys.demuxer, "|   |   + PrevUID=%d", *(uint32*)p_prev_segment_uid->GetBuffer() );
701         }
702         else if( MKV_IS_ID( l, KaxNextUID ) )
703         {
704             if ( p_next_segment_uid == NULL )
705                 p_next_segment_uid = new KaxNextUID(*static_cast<KaxNextUID*>(l));
706
707             msg_Dbg( &sys.demuxer, "|   |   + NextUID=%d", *(uint32*)p_next_segment_uid->GetBuffer() );
708         }
709         else if( MKV_IS_ID( l, KaxTimecodeScale ) )
710         {
711             KaxTimecodeScale &tcs = *(KaxTimecodeScale*)l;
712
713             i_timescale = uint64(tcs);
714
715             msg_Dbg( &sys.demuxer, "|   |   + TimecodeScale=%"PRId64,
716                      i_timescale );
717         }
718         else if( MKV_IS_ID( l, KaxDuration ) )
719         {
720             KaxDuration &dur = *(KaxDuration*)l;
721
722             i_duration = mtime_t( double( dur ) );
723
724             msg_Dbg( &sys.demuxer, "|   |   + Duration=%"PRId64,
725                      i_duration );
726         }
727         else if( MKV_IS_ID( l, KaxMuxingApp ) )
728         {
729             KaxMuxingApp &mapp = *(KaxMuxingApp*)l;
730
731             psz_muxing_application = ToUTF8( UTFstring( mapp ) );
732
733             msg_Dbg( &sys.demuxer, "|   |   + Muxing Application=%s",
734                      psz_muxing_application );
735         }
736         else if( MKV_IS_ID( l, KaxWritingApp ) )
737         {
738             KaxWritingApp &wapp = *(KaxWritingApp*)l;
739
740             psz_writing_application = ToUTF8( UTFstring( wapp ) );
741
742             msg_Dbg( &sys.demuxer, "|   |   + Writing Application=%s",
743                      psz_writing_application );
744         }
745         else if( MKV_IS_ID( l, KaxSegmentFilename ) )
746         {
747             KaxSegmentFilename &sfn = *(KaxSegmentFilename*)l;
748
749             psz_segment_filename = ToUTF8( UTFstring( sfn ) );
750
751             msg_Dbg( &sys.demuxer, "|   |   + Segment Filename=%s",
752                      psz_segment_filename );
753         }
754         else if( MKV_IS_ID( l, KaxTitle ) )
755         {
756             KaxTitle &title = *(KaxTitle*)l;
757
758             psz_title = ToUTF8( UTFstring( title ) );
759
760             msg_Dbg( &sys.demuxer, "|   |   + Title=%s", psz_title );
761         }
762         else if( MKV_IS_ID( l, KaxSegmentFamily ) )
763         {
764             KaxSegmentFamily *uid = static_cast<KaxSegmentFamily*>(l);
765
766             families.push_back( new KaxSegmentFamily(*uid) );
767
768             msg_Dbg( &sys.demuxer, "|   |   + family=%d", *(uint32*)uid->GetBuffer() );
769         }
770         else if( MKV_IS_ID( l, KaxDateUTC ) )
771         {
772             KaxDateUTC &date = *(KaxDateUTC*)l;
773             time_t i_date;
774             struct tm tmres;
775             char   buffer[256];
776
777             i_date = date.GetEpochDate();
778             memset( buffer, 0, 256 );
779             if( gmtime_r( &i_date, &tmres ) &&
780                 asctime_r( &tmres, buffer ) )
781             {
782                 buffer[strlen( buffer)-1]= '\0';
783                 psz_date_utc = strdup( buffer );
784                 msg_Dbg( &sys.demuxer, "|   |   + Date=%s", psz_date_utc );
785             }
786         }
787         else if( MKV_IS_ID( l, KaxChapterTranslate ) )
788         {
789             KaxChapterTranslate *p_trans = static_cast<KaxChapterTranslate*>( l );
790             chapter_translation_c *p_translate = new chapter_translation_c();
791
792             p_trans->Read( es, p_trans->Generic().Context, i_upper_level, el, true );
793             for( j = 0; j < p_trans->ListSize(); j++ )
794             {
795                 EbmlElement *l = (*p_trans)[j];
796
797                 if( MKV_IS_ID( l, KaxChapterTranslateEditionUID ) )
798                 {
799                     p_translate->editions.push_back( uint64( *static_cast<KaxChapterTranslateEditionUID*>( l ) ) );
800                 }
801                 else if( MKV_IS_ID( l, KaxChapterTranslateCodec ) )
802                 {
803                     p_translate->codec_id = uint32( *static_cast<KaxChapterTranslateCodec*>( l ) );
804                 }
805                 else if( MKV_IS_ID( l, KaxChapterTranslateID ) )
806                 {
807                     p_translate->p_translated = new KaxChapterTranslateID( *static_cast<KaxChapterTranslateID*>( l ) );
808                 }
809             }
810
811             translations.push_back( p_translate );
812         }
813         else
814         {
815             msg_Dbg( &sys.demuxer, "|   |   + Unknown (%s)", typeid(*l).name() );
816         }
817     }
818
819     double f_dur = double(i_duration) * double(i_timescale) / 1000000.0;
820     i_duration = mtime_t(f_dur);
821 }
822
823
824 /*****************************************************************************
825  * ParseChapterAtom
826  *****************************************************************************/
827 void matroska_segment_c::ParseChapterAtom( int i_level, KaxChapterAtom *ca, chapter_item_c & chapters )
828 {
829     size_t i, j;
830
831     msg_Dbg( &sys.demuxer, "|   |   |   + ChapterAtom (level=%d)", i_level );
832     for( i = 0; i < ca->ListSize(); i++ )
833     {
834         EbmlElement *l = (*ca)[i];
835
836         if( MKV_IS_ID( l, KaxChapterUID ) )
837         {
838             chapters.i_uid = uint64_t(*(KaxChapterUID*)l);
839             msg_Dbg( &sys.demuxer, "|   |   |   |   + ChapterUID: %lld", chapters.i_uid );
840         }
841         else if( MKV_IS_ID( l, KaxChapterFlagHidden ) )
842         {
843             KaxChapterFlagHidden &flag =*(KaxChapterFlagHidden*)l;
844             chapters.b_display_seekpoint = uint8( flag ) == 0;
845
846             msg_Dbg( &sys.demuxer, "|   |   |   |   + ChapterFlagHidden: %s", chapters.b_display_seekpoint ? "no":"yes" );
847         }
848         else if( MKV_IS_ID( l, KaxChapterTimeStart ) )
849         {
850             KaxChapterTimeStart &start =*(KaxChapterTimeStart*)l;
851             chapters.i_start_time = uint64( start ) / INT64_C(1000);
852
853             msg_Dbg( &sys.demuxer, "|   |   |   |   + ChapterTimeStart: %lld", chapters.i_start_time );
854         }
855         else if( MKV_IS_ID( l, KaxChapterTimeEnd ) )
856         {
857             KaxChapterTimeEnd &end =*(KaxChapterTimeEnd*)l;
858             chapters.i_end_time = uint64( end ) / INT64_C(1000);
859
860             msg_Dbg( &sys.demuxer, "|   |   |   |   + ChapterTimeEnd: %lld", chapters.i_end_time );
861         }
862         else if( MKV_IS_ID( l, KaxChapterDisplay ) )
863         {
864             EbmlMaster *cd = static_cast<EbmlMaster *>(l);
865
866             msg_Dbg( &sys.demuxer, "|   |   |   |   + ChapterDisplay" );
867             for( j = 0; j < cd->ListSize(); j++ )
868             {
869                 EbmlElement *l= (*cd)[j];
870
871                 if( MKV_IS_ID( l, KaxChapterString ) )
872                 {
873                     int k;
874
875                     KaxChapterString &name =*(KaxChapterString*)l;
876                     for (k = 0; k < i_level; k++)
877                         chapters.psz_name += '+';
878                     chapters.psz_name += ' ';
879                     char *psz_tmp_utf8 = ToUTF8( UTFstring( name ) );
880                     chapters.psz_name += psz_tmp_utf8;
881                     chapters.b_user_display = true;
882
883                     msg_Dbg( &sys.demuxer, "|   |   |   |   |    + ChapterString '%s'", psz_tmp_utf8 );
884                     free( psz_tmp_utf8 );
885                 }
886                 else if( MKV_IS_ID( l, KaxChapterLanguage ) )
887                 {
888                     KaxChapterLanguage &lang =*(KaxChapterLanguage*)l;
889                     const char *psz = string( lang ).c_str();
890
891                     msg_Dbg( &sys.demuxer, "|   |   |   |   |    + ChapterLanguage '%s'", psz );
892                 }
893                 else if( MKV_IS_ID( l, KaxChapterCountry ) )
894                 {
895                     KaxChapterCountry &ct =*(KaxChapterCountry*)l;
896                     const char *psz = string( ct ).c_str();
897
898                     msg_Dbg( &sys.demuxer, "|   |   |   |   |    + ChapterCountry '%s'", psz );
899                 }
900             }
901         }
902         else if( MKV_IS_ID( l, KaxChapterProcess ) )
903         {
904             msg_Dbg( &sys.demuxer, "|   |   |   |   + ChapterProcess" );
905
906             KaxChapterProcess *cp = static_cast<KaxChapterProcess *>(l);
907             chapter_codec_cmds_c *p_ccodec = NULL;
908
909             for( j = 0; j < cp->ListSize(); j++ )
910             {
911                 EbmlElement *k= (*cp)[j];
912
913                 if( MKV_IS_ID( k, KaxChapterProcessCodecID ) )
914                 {
915                     KaxChapterProcessCodecID *p_codec_id = static_cast<KaxChapterProcessCodecID*>( k );
916                     if ( uint32(*p_codec_id) == 0 )
917                         p_ccodec = new matroska_script_codec_c( sys );
918                     else if ( uint32(*p_codec_id) == 1 )
919                         p_ccodec = new dvd_chapter_codec_c( sys );
920                     break;
921                 }
922             }
923
924             if ( p_ccodec != NULL )
925             {
926                 for( j = 0; j < cp->ListSize(); j++ )
927                 {
928                     EbmlElement *k= (*cp)[j];
929
930                     if( MKV_IS_ID( k, KaxChapterProcessPrivate ) )
931                     {
932                         KaxChapterProcessPrivate * p_private = static_cast<KaxChapterProcessPrivate*>( k );
933                         p_ccodec->SetPrivate( *p_private );
934                     }
935                     else if( MKV_IS_ID( k, KaxChapterProcessCommand ) )
936                     {
937                         p_ccodec->AddCommand( *static_cast<KaxChapterProcessCommand*>( k ) );
938                     }
939                 }
940                 chapters.codecs.push_back( p_ccodec );
941             }
942         }
943         else if( MKV_IS_ID( l, KaxChapterAtom ) )
944         {
945             chapter_item_c *new_sub_chapter = new chapter_item_c();
946             ParseChapterAtom( i_level+1, static_cast<KaxChapterAtom *>(l), *new_sub_chapter );
947             new_sub_chapter->psz_parent = &chapters;
948             chapters.sub_chapters.push_back( new_sub_chapter );
949         }
950     }
951 }
952
953 /*****************************************************************************
954  * ParseAttachments:
955  *****************************************************************************/
956 void matroska_segment_c::ParseAttachments( KaxAttachments *attachments )
957 {
958     EbmlElement *el;
959     int i_upper_level = 0;
960
961     attachments->Read( es, attachments->Generic().Context, i_upper_level, el, true );
962
963     KaxAttached *attachedFile = FindChild<KaxAttached>( *attachments );
964
965     while( attachedFile && ( attachedFile->GetSize() > 0 ) )
966     {
967         std::string psz_mime_type  = GetChild<KaxMimeType>( *attachedFile );
968         KaxFileName  &file_name    = GetChild<KaxFileName>( *attachedFile );
969         KaxFileData  &img_data     = GetChild<KaxFileData>( *attachedFile );
970
971         attachment_c *new_attachment = new attachment_c();
972
973         if( new_attachment )
974         {
975             new_attachment->psz_file_name  = ToUTF8( UTFstring( file_name ) );
976             new_attachment->psz_mime_type  = psz_mime_type;
977             new_attachment->i_size         = img_data.GetSize();
978             new_attachment->p_data         = malloc( img_data.GetSize() );
979
980             if( new_attachment->p_data )
981             {
982                 memcpy( new_attachment->p_data, img_data.GetBuffer(), img_data.GetSize() );
983                 sys.stored_attachments.push_back( new_attachment );
984             }
985             else
986             {
987                 delete new_attachment;
988             }
989         }
990
991         attachedFile = &GetNextChild<KaxAttached>( *attachments, *attachedFile );
992     }
993 }
994
995 /*****************************************************************************
996  * ParseChapters:
997  *****************************************************************************/
998 void matroska_segment_c::ParseChapters( KaxChapters *chapters )
999 {
1000     EbmlElement *el;
1001     size_t i;
1002     int i_upper_level = 0;
1003     mtime_t i_dur;
1004
1005     /* Master elements */
1006     chapters->Read( es, chapters->Generic().Context, i_upper_level, el, true );
1007
1008     for( i = 0; i < chapters->ListSize(); i++ )
1009     {
1010         EbmlElement *l = (*chapters)[i];
1011
1012         if( MKV_IS_ID( l, KaxEditionEntry ) )
1013         {
1014             chapter_edition_c *p_edition = new chapter_edition_c();
1015  
1016             EbmlMaster *E = static_cast<EbmlMaster *>(l );
1017             size_t j;
1018             msg_Dbg( &sys.demuxer, "|   |   + EditionEntry" );
1019             for( j = 0; j < E->ListSize(); j++ )
1020             {
1021                 EbmlElement *l = (*E)[j];
1022
1023                 if( MKV_IS_ID( l, KaxChapterAtom ) )
1024                 {
1025                     chapter_item_c *new_sub_chapter = new chapter_item_c();
1026                     ParseChapterAtom( 0, static_cast<KaxChapterAtom *>(l), *new_sub_chapter );
1027                     p_edition->sub_chapters.push_back( new_sub_chapter );
1028                 }
1029                 else if( MKV_IS_ID( l, KaxEditionUID ) )
1030                 {
1031                     p_edition->i_uid = uint64(*static_cast<KaxEditionUID *>( l ));
1032                 }
1033                 else if( MKV_IS_ID( l, KaxEditionFlagOrdered ) )
1034                 {
1035                     p_edition->b_ordered = config_GetInt( &sys.demuxer, "mkv-use-ordered-chapters" ) ? (uint8(*static_cast<KaxEditionFlagOrdered *>( l )) != 0) : 0;
1036                 }
1037                 else if( MKV_IS_ID( l, KaxEditionFlagDefault ) )
1038                 {
1039                     if (uint8(*static_cast<KaxEditionFlagDefault *>( l )) != 0)
1040                         i_default_edition = stored_editions.size();
1041                 }
1042                 else
1043                 {
1044                     msg_Dbg( &sys.demuxer, "|   |   |   + Unknown (%s)", typeid(*l).name() );
1045                 }
1046             }
1047             stored_editions.push_back( p_edition );
1048         }
1049         else
1050         {
1051             msg_Dbg( &sys.demuxer, "|   |   + Unknown (%s)", typeid(*l).name() );
1052         }
1053     }
1054
1055     for( i = 0; i < stored_editions.size(); i++ )
1056     {
1057         stored_editions[i]->RefreshChapters( );
1058     }
1059  
1060     if ( stored_editions.size() != 0 && stored_editions[i_default_edition]->b_ordered )
1061     {
1062         /* update the duration of the segment according to the sum of all sub chapters */
1063         i_dur = stored_editions[i_default_edition]->Duration() / INT64_C(1000);
1064         if (i_dur > 0)
1065             i_duration = i_dur;
1066     }
1067 }
1068
1069 void matroska_segment_c::ParseCluster( )
1070 {
1071     EbmlElement *el;
1072     EbmlMaster  *m;
1073     unsigned int i;
1074     int i_upper_level = 0;
1075
1076     /* Master elements */
1077     m = static_cast<EbmlMaster *>( cluster );
1078     m->Read( es, cluster->Generic().Context, i_upper_level, el, true );
1079
1080     for( i = 0; i < m->ListSize(); i++ )
1081     {
1082         EbmlElement *l = (*m)[i];
1083
1084         if( MKV_IS_ID( l, KaxClusterTimecode ) )
1085         {
1086             KaxClusterTimecode &ctc = *(KaxClusterTimecode*)l;
1087
1088             cluster->InitTimecode( uint64( ctc ), i_timescale );
1089             break;
1090         }
1091     }
1092
1093     i_start_time = cluster->GlobalTimecode() / 1000;
1094 }
1095
1096