RepoMirrors/mpv
1
0
Fork 0
mirror of https://github.com/mpv-player/mpv synced 2024-12-17 12:25:03 +00:00
Code Issues Releases Wiki Activity
511eccaa78
mpv/libmpdemux/demux_mov.c
reimar 511eccaa78 Check that index is still within bounds of samples array. 
Previous check is not enough and the code is not performance critical
so do it the easy way.


git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@25922 b3059339-0415-0410-9bf9-f77b7e298cf2
2008-01-29 22:14:00 +00:00

2325 lines
79 KiB
C
Raw Blame History

// QuickTime MOV file parser by A'rpi
// additional work by Atmos
// based on TOOLS/movinfo.c by A'rpi & Al3x
// compressed header support from moov.c of the openquicktime lib.
// References: http://openquicktime.sf.net/, http://www.heroinewarrior.com/
// http://www.geocities.com/SiliconValley/Lakes/2160/fformats/files/mov.pdf
// (above url no longer works, file mirrored somewhere? ::atmos)
// The QuickTime File Format PDF from Apple:
// http://developer.apple.com/techpubs/quicktime/qtdevdocs/PDF/QTFileFormat.pdf
// (Complete list of documentation at http://developer.apple.com/quicktime/)
// MP4-Lib sources from http://mpeg4ip.sf.net/ might be useful for .mp4
// as well as .mov specific stuff.
// All sort of Stuff about MPEG4:
// http://www.cmlab.csie.ntu.edu.tw/~pkhsiao/thesis.html
// I really recommend N4270-1.doc and N4270-2.doc which are exact specs
// of the MP4-File Format and the MPEG4 Specific extensions. ::atmos
// TSGS#15(02)0088
// http://www.3gpp.org/ftp/tsg_sa/TSG_SA/TSGS_15/Docs/pdf/SP-020088.pdf
// http://www.3gpp2.org/Public_html/specs/C.S0050-0_v1.0_121503.pdf
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <inttypes.h>
#include "config.h"
#ifdef MACOSX
#include <QuickTime/QuickTime.h>
#include <QuickTime/ImageCompression.h>
#include <QuickTime/ImageCodec.h>
#else
#include "loader/qtx/qtxsdk/components.h"
#endif
#include "mp_msg.h"
#include "help_mp.h"
#include "stream/stream.h"
#include "demuxer.h"
#include "stheader.h"
#include "libmpcodecs/img_format.h"
#include "libvo/sub.h"
#include "qtpalette.h"
#include "parse_mp4.h" // .MP4 specific stuff
#ifdef HAVE_ZLIB
#include <zlib.h>
#endif
#ifndef _FCNTL_H
#include <fcntl.h>
#endif
#define BE_16(x) (((unsigned char *)(x))[0] << 8 | \
((unsigned char *)(x))[1])
#define BE_32(x) (((unsigned char *)(x))[0] << 24 | \
((unsigned char *)(x))[1] << 16 | \
((unsigned char *)(x))[2] << 8 | \
((unsigned char *)(x))[3])
#define char2short(x,y) BE_16(&(x)[(y)])
#define char2int(x,y) BE_32(&(x)[(y)])
typedef struct {
unsigned int pts; // duration
unsigned int size;
off_t pos;
} mov_sample_t;
typedef struct {
unsigned int sample; // number of the first sample in the chunk
unsigned int size; // number of samples in the chunk
int desc; // for multiple codecs mode - not used
off_t pos;
} mov_chunk_t;
typedef struct {
unsigned int first;
unsigned int spc;
unsigned int sdid;
} mov_chunkmap_t;
typedef struct {
unsigned int num;
unsigned int dur;
} mov_durmap_t;
typedef struct {
unsigned int dur;
unsigned int pos;
int speed;
//
int frames;
int start_sample;
int start_frame;
int pts_offset;
} mov_editlist_t;
#define MOV_TRAK_UNKNOWN 0
#define MOV_TRAK_VIDEO 1
#define MOV_TRAK_AUDIO 2
#define MOV_TRAK_FLASH 3
#define MOV_TRAK_GENERIC 4
#define MOV_TRAK_CODE 5
typedef struct {
int id;
int type;
off_t pos;
//
unsigned int media_handler;
unsigned int data_handler;
//
int timescale;
unsigned int length;
int samplesize; // 0 = variable
int duration; // 0 = variable
int width,height; // for video
unsigned int fourcc;
unsigned int nchannels;
unsigned int samplebytes;
//
int tkdata_len; // track data
unsigned char* tkdata;
int stdata_len; // stream data
unsigned char* stdata;
//
unsigned char* stream_header;
int stream_header_len; // if >0, this header should be sent before the 1st frame
//
int samples_size;
mov_sample_t* samples;
int chunks_size;
mov_chunk_t* chunks;
int chunkmap_size;
mov_chunkmap_t* chunkmap;
int durmap_size;
mov_durmap_t* durmap;
int keyframes_size;
unsigned int* keyframes;
int editlist_size;
mov_editlist_t* editlist;
int editlist_pos;
//
void* desc; // image/sound/etc description (pointer to ImageDescription etc)
} mov_track_t;
void mov_build_index(mov_track_t* trak,int timescale){
int i,j,s;
int last=trak->chunks_size;
unsigned int pts=0;
#if 0
if (trak->chunks_size <= 0)
{
mp_msg(MSGT_DEMUX, MSGL_WARN, "No chunk offset table, trying to build one!\n");
trak->chunks_size = trak->samples_size; /* XXX: FIXME ! */
// audit: this code will be vulnerable if it is reenabled (currently #if 0)
trak->chunks = realloc(trak->chunks, sizeof(mov_chunk_t)*trak->chunks_size);
for (i=0; i < trak->chunks_size; i++)
trak->chunks[i].pos = -1;
}
#endif
mp_msg(MSGT_DEMUX, MSGL_V, "MOV track #%d: %d chunks, %d samples\n",trak->id,trak->chunks_size,trak->samples_size);
mp_msg(MSGT_DEMUX, MSGL_V, "pts=%d scale=%d time=%5.3f\n",trak->length,trak->timescale,(float)trak->length/(float)trak->timescale);
// process chunkmap:
i=trak->chunkmap_size;
while(i>0){
--i;
j=FFMAX(trak->chunkmap[i].first, 0);
for(;j<last;j++){
trak->chunks[j].desc=trak->chunkmap[i].sdid;
trak->chunks[j].size=trak->chunkmap[i].spc;
}
last=FFMIN(trak->chunkmap[i].first, trak->chunks_size);
}
#if 0
for (i=0; i < trak->chunks_size; i++)
{
/* fixup position */
if (trak->chunks[i].pos == -1)
if (i > 0)
trak->chunks[i].pos = trak->chunks[i-1].pos + trak->chunks[i-1].size;
else
trak->chunks[i].pos = 0; /* FIXME: set initial pos */
#endif
// calc pts of chunks:
s=0;
for(j=0;j<trak->chunks_size;j++){
trak->chunks[j].sample=s;
s+=trak->chunks[j].size;
}
i = 0;
for (j = 0; j < trak->durmap_size; j++)
i += trak->durmap[j].num;
if (i != s) {
mp_msg(MSGT_DEMUX, MSGL_WARN,
"MOV: durmap and chunkmap sample count differ (%i vs %i)\n", i, s);
if (i > s) s = i;
}
// workaround for fixed-size video frames (dv and uncompressed)
if(!trak->samples_size && trak->type!=MOV_TRAK_AUDIO){
trak->samples_size=s;
trak->samples=calloc(s, sizeof(mov_sample_t));
for(i=0;i<s;i++)
trak->samples[i].size=trak->samplesize;
trak->samplesize=0;
}
if(!trak->samples_size){
// constant sampesize
if(trak->durmap_size==1 || (trak->durmap_size==2 && trak->durmap[1].num==1)){
trak->duration=trak->durmap[0].dur;
} else mp_msg(MSGT_DEMUX, MSGL_ERR, "*** constant samplesize & variable duration not yet supported! ***\nContact the author if you have such sample file!\n");
return;
}
if (trak->samples_size < s) {
mp_msg(MSGT_DEMUX, MSGL_WARN,
"MOV: durmap or chunkmap bigger than sample count (%i vs %i)\n",
s, trak->samples_size);
trak->samples_size = s;
trak->samples = realloc_struct(trak->samples, s, sizeof(mov_sample_t));
}
// calc pts:
s=0;
for(j=0;j<trak->durmap_size;j++){
for(i=0;i<trak->durmap[j].num;i++){
if (s >= trak->samples_size)
break;
trak->samples[s].pts=pts;
++s;
pts+=trak->durmap[j].dur;
}
}
// calc sample offsets
s=0;
for(j=0;j<trak->chunks_size;j++){
off_t pos=trak->chunks[j].pos;
for(i=0;i<trak->chunks[j].size;i++){
if (s >= trak->samples_size)
break;
trak->samples[s].pos=pos;
mp_msg(MSGT_DEMUX, MSGL_DBG3, "Sample %5d: pts=%8d off=0x%08X size=%d\n",s,
trak->samples[s].pts,
(int)trak->samples[s].pos,
trak->samples[s].size);
pos+=trak->samples[s].size;
++s;
}
}
// precalc editlist entries
if(trak->editlist_size>0){
int frame=0;
int e_pts=0;
for(i=0;i<trak->editlist_size;i++){
mov_editlist_t* el=&trak->editlist[i];
int sample=0;
int pts=el->pos;
el->start_frame=frame;
if(pts<0){
// skip!
el->frames=0; continue;
}
// find start sample
for(;sample<trak->samples_size;sample++){
if(pts<=trak->samples[sample].pts) break;
}
el->start_sample=sample;
el->pts_offset=((long long)e_pts*(long long)trak->timescale)/(long long)timescale-trak->samples[sample].pts;
pts+=((long long)el->dur*(long long)trak->timescale)/(long long)timescale;
e_pts+=el->dur;
// find end sample
for(;sample<trak->samples_size;sample++){
if(pts<trak->samples[sample].pts) break;
}
el->frames=sample-el->start_sample;
frame+=el->frames;
mp_msg(MSGT_DEMUX,MSGL_V,"EL#%d: pts=%d 1st_sample=%d frames=%d (%5.3fs) pts_offs=%d\n",i,
el->pos,el->start_sample, el->frames,
(float)(el->dur)/(float)timescale, el->pts_offset);
}
}
}
#define MOV_MAX_TRACKS 256
#define MOV_MAX_SUBLEN 1024
typedef struct {
off_t moov_start;
off_t moov_end;
off_t mdat_start;
off_t mdat_end;
int track_db;
mov_track_t* tracks[MOV_MAX_TRACKS];
int timescale; // movie timescale
int duration; // movie duration (in movie timescale units)
subtitle subs;
char subtext[MOV_MAX_SUBLEN + 1];
int current_sub;
} mov_priv_t;
#define MOV_FOURCC(a,b,c,d) ((a<<24)|(b<<16)|(c<<8)|(d))
static int mov_check_file(demuxer_t* demuxer){
int flags=0;
int no=0;
mov_priv_t* priv=malloc(sizeof(mov_priv_t));
mp_msg(MSGT_DEMUX,MSGL_V,"Checking for MOV\n");
memset(priv,0,sizeof(mov_priv_t));
priv->current_sub = -1;
while(1){
int i;
int skipped=8;
off_t len=stream_read_dword(demuxer->stream);
unsigned int id=stream_read_dword(demuxer->stream);
if(stream_eof(demuxer->stream)) break; // EOF
if (len == 1) /* real size is 64bits - cjb */
{
#ifndef _LARGEFILE_SOURCE
if (stream_read_dword(demuxer->stream) != 0)
mp_msg(MSGT_DEMUX, MSGL_WARN, "64bit file, but you've compiled MPlayer without LARGEFILE support!\n");
len = stream_read_dword(demuxer->stream);
#else
len = stream_read_qword(demuxer->stream);
#endif
skipped += 8;
}
#if 0
else if (len == 0) /* deleted chunk */
{
/* XXX: CJB! is this right? - alex */
goto skip_chunk;
}
#endif
else if(len<8) break; // invalid chunk
switch(id){
case MOV_FOURCC('f','t','y','p'): {
unsigned int tmp;
// File Type Box (ftyp):
// char[4] major_brand (eg. 'isom')
// int minor_version (eg. 0x00000000)
// char[4] compatible_brands[] (eg. 'mp41')
// compatible_brands list spans to the end of box
#if 1
tmp = stream_read_dword(demuxer->stream);
switch(tmp) {
case MOV_FOURCC('i','s','o','m'):
mp_msg(MSGT_DEMUX,MSGL_V,"ISO: File Type Major Brand: ISO Base Media\n");
break;
case MOV_FOURCC('m','p','4','1'):
mp_msg(MSGT_DEMUX,MSGL_INFO,"ISO: File Type Major Brand: ISO/IEC 14496-1 (MPEG-4 system) v1\n");
break;
case MOV_FOURCC('m','p','4','2'):
mp_msg(MSGT_DEMUX,MSGL_INFO,"ISO: File Type Major Brand: ISO/IEC 14496-1 (MPEG-4 system) v2\n");
break;
case MOV_FOURCC('M','4','A',' '):
mp_msg(MSGT_DEMUX,MSGL_INFO,"ISO: File Type Major Brand: Apple iTunes AAC-LC Audio\n");
break;
case MOV_FOURCC('M','4','P',' '):
mp_msg(MSGT_DEMUX,MSGL_INFO,"ISO: File Type Major Brand: Apple iTunes AAC-LC Protected Audio\n");
break;
case MOV_FOURCC('q','t',' ',' '):
mp_msg(MSGT_DEMUX,MSGL_INFO,"ISO: File Type Major Brand: Original QuickTime\n");
break;
case MOV_FOURCC('3','g','p','1'):
mp_msg(MSGT_DEMUX,MSGL_INFO,"ISO: File Type Major Brand: 3GPP Profile 1\n");
break;
case MOV_FOURCC('3','g','p','2'):
case MOV_FOURCC('3','g','2','a'):
mp_msg(MSGT_DEMUX,MSGL_INFO,"ISO: File Type Major Brand: 3GPP Profile 2\n");
break;
case MOV_FOURCC('3','g','p','3'):
mp_msg(MSGT_DEMUX,MSGL_INFO,"ISO: File Type Major Brand: 3GPP Profile 3\n");
break;
case MOV_FOURCC('3','g','p','4'):
mp_msg(MSGT_DEMUX,MSGL_INFO,"ISO: File Type Major Brand: 3GPP Profile 4\n");
break;
case MOV_FOURCC('3','g','p','5'):
mp_msg(MSGT_DEMUX,MSGL_INFO,"ISO: File Type Major Brand: 3GPP Profile 5\n");
break;
case MOV_FOURCC('m','m','p','4'):
mp_msg(MSGT_DEMUX,MSGL_INFO,"ISO: File Type Major Brand: Mobile ISO/IEC 14496-1 (MPEG-4 system)\n");
break;
default:
tmp = be2me_32(tmp);
mp_msg(MSGT_DEMUX,MSGL_WARN,"ISO: Unknown File Type Major Brand: %.4s\n",(char *)&tmp);
}
mp_msg(MSGT_DEMUX,MSGL_V,"ISO: File Type Minor Version: %d\n",
stream_read_dword(demuxer->stream));
skipped += 8;
// List all compatible brands
for(i = 0; i < ((len-16)/4); i++) {
tmp = be2me_32(stream_read_dword(demuxer->stream));
mp_msg(MSGT_DEMUX,MSGL_V,"ISO: File Type Compatible Brand #%d: %.4s\n",i,(char *)&tmp);
skipped += 4;
}
#endif
} break;
case MOV_FOURCC('m','o','o','v'):
// case MOV_FOURCC('c','m','o','v'):
mp_msg(MSGT_DEMUX,MSGL_V,"MOV: Movie header found!\n");
priv->moov_start=(off_t)stream_tell(demuxer->stream);
priv->moov_end=(off_t)priv->moov_start+len-skipped;
mp_msg(MSGT_DEMUX,MSGL_DBG2,"MOV: Movie header: start: %"PRIx64" end: %"PRIx64"\n",
(int64_t)priv->moov_start, (int64_t)priv->moov_end);
skipped+=8;
i = stream_read_dword(demuxer->stream)-8;
if(stream_read_dword(demuxer->stream)==MOV_FOURCC('r','m','r','a')){
skipped+=i;
mp_msg(MSGT_DEMUX,MSGL_INFO,"MOV: Reference Media file!!!\n");
//set demuxer type to playlist ...
demuxer->type=DEMUXER_TYPE_PLAYLIST;
while(i>0){
int len=stream_read_dword(demuxer->stream)-8;
int fcc=stream_read_dword(demuxer->stream);
if(len<0) break; // EOF!?
i-=8;
// printf("i=%d len=%d\n",i,len);
switch(fcc){
case MOV_FOURCC('r','m','d','a'):
continue;
case MOV_FOURCC('r','d','r','f'): {
int tmp=stream_read_dword(demuxer->stream);
int type=stream_read_dword_le(demuxer->stream);
int slen=stream_read_dword(demuxer->stream);
//char* s=malloc(slen+1);
//stream_read(demuxer->stream,s,slen);
//FIXME: also store type & data_rate ?
ds_read_packet(demuxer->video,
demuxer->stream,
slen,
0,
stream_tell(demuxer->stream),
0 // no flags
);
flags|=4;
mp_msg(MSGT_DEMUX,MSGL_V,"Added reference to playlist\n");
//s[slen]=0;
//mp_msg(MSGT_DEMUX,MSGL_INFO,"REF: [%.4s] %s\n",&type,s);
len-=12+slen;i-=12+slen; break;
}
case MOV_FOURCC('r','m','d','r'): {
int flags=stream_read_dword(demuxer->stream);
int rate=stream_read_dword(demuxer->stream);
mp_msg(MSGT_DEMUX,MSGL_V," min. data rate: %d bits/sec\n",rate);
len-=8; i-=8; break;
}
case MOV_FOURCC('r','m','q','u'): {
int q=stream_read_dword(demuxer->stream);
mp_msg(MSGT_DEMUX,MSGL_V," quality index: %d\n",q);
len-=4; i-=4; break;
}
}
i-=len;stream_skip(demuxer->stream,len);
}
}
flags|=1;
break;
case MOV_FOURCC('w','i','d','e'):
mp_msg(MSGT_DEMUX,MSGL_V,"MOV: 'WIDE' chunk found!\n");
if(flags&2) break;
case MOV_FOURCC('m','d','a','t'):
mp_msg(MSGT_DEMUX,MSGL_V,"MOV: Movie DATA found!\n");
priv->mdat_start=stream_tell(demuxer->stream);
priv->mdat_end=priv->mdat_start+len-skipped;
mp_msg(MSGT_DEMUX,MSGL_DBG2,"MOV: Movie data: start: %"PRIx64" end: %"PRIx64"\n",
(int64_t)priv->mdat_start, (int64_t)priv->mdat_end);
flags|=2;
if(flags==3){
// if we're over the headers, then we can stop parsing here!
demuxer->priv=priv;
return DEMUXER_TYPE_MOV;
}
break;
case MOV_FOURCC('f','r','e','e'):
case MOV_FOURCC('s','k','i','p'):
case MOV_FOURCC('j','u','n','k'):
mp_msg(MSGT_DEMUX,MSGL_DBG2,"MOV: free space (len: %"PRId64")\n", (int64_t)len);
/* unused, if you edit a mov, you can use space provided by free atoms (redefining it) */
break;
case MOV_FOURCC('p','n','o','t'):
case MOV_FOURCC('P','I','C','T'):
/* dunno what, but we shoudl ignore it */
break;
default:
if(no==0){ free(priv); return 0;} // first chunk is bad!
id = be2me_32(id);
mp_msg(MSGT_DEMUX,MSGL_V,"MOV: unknown chunk: %.4s %d\n",(char *)&id,(int)len);
}
//skip_chunk:
if(!stream_skip(demuxer->stream,len-skipped)) break;
++no;
}
if(flags==3){
demuxer->priv=priv;
return DEMUXER_TYPE_MOV;
}
free(priv);
if ((flags==5) || (flags==7)) // reference & header sent
return DEMUXER_TYPE_PLAYLIST;
if(flags==1)
mp_msg(MSGT_DEMUX,MSGL_WARN,"MOV: missing data (mdat) chunk! Maybe broken file...\n");
else if(flags==2)
mp_msg(MSGT_DEMUX,MSGL_WARN,"MOV: missing header (moov/cmov) chunk! Maybe broken file...\n");
return 0;
}
static void demux_close_mov(demuxer_t *demuxer) {
mov_priv_t* priv = demuxer->priv;
int i;
if (!priv)
return;
for (i = 0; i < MOV_MAX_TRACKS; i++) {
mov_track_t *track = priv->tracks[i];
if (track) {
free(track->tkdata);
free(track->stdata);
free(track->stream_header);
free(track->samples);
free(track->chunks);
free(track->chunkmap);
free(track->durmap);
free(track->keyframes);
free(track->editlist);
free(track->desc);
free(track);
}
}
free(priv);
}
unsigned int store_ughvlc(unsigned char *s, unsigned int v){
unsigned int n = 0;
while(v >= 0xff) {
*s++ = 0xff;
v -= 0xff;
n++;
}
*s = v;
n++;
return n;
}
static void init_vobsub(sh_sub_t *sh, mov_track_t *trak) {
sh->type = 'v';
if (trak->stdata_len < 106)
return;
sh->extradata_len = 16*4;
sh->extradata = malloc(sh->extradata_len);
memcpy(sh->extradata, trak->stdata + 42, sh->extradata_len);
}
static int lschunks_intrak(demuxer_t* demuxer, int level, unsigned int id,
off_t pos, off_t len, mov_track_t* trak);
static int gen_sh_audio(sh_audio_t* sh, mov_track_t* trak, int timescale) {
#if 0
struct {
int16_t version; // 0 or 1 (version 1 is qt3.0+)
int16_t revision; // 0
int32_t vendor_id; // 0
int16_t channels; // 1 or 2 (Mono/Stereo)
int16_t samplesize; // 8 or 16 (8Bit/16Bit)
int16_t compression_id; // if version 0 then 0
// if version 1 and vbr then -2 else 0
int16_t packet_size; // 0
uint16_t sample_rate; // samplerate (Hz)
// qt3.0+ (version == 1)
uint32_t samples_per_packet; // 0 or num uncompressed samples in a packet
// if 0 below three values are also 0
uint32_t bytes_per_packet; // 0 or num compressed bytes for one channel
uint32_t bytes_per_frame; // 0 or num compressed bytes for all channels
// (channels * bytes_per_packet)
uint32_t bytes_per_sample; // 0 or size of uncompressed sample
// if samples_per_packet and bytes_per_packet are constant (CBR)
// then bytes_per_frame and bytes_per_sample must be 0 (else is VBR)
// ---
// optional additional atom-based fields
// ([int32_t size,int32_t type,some data ],repeat)
} my_stdata;
#endif
int version, adjust;
int is_vorbis = 0;
sh->format=trak->fourcc;
// crude audio delay from editlist0 hack ::atm
if(trak->editlist_size>=1) {
if(trak->editlist[0].pos == -1) {
sh->stream_delay = (float)trak->editlist[0].dur/(float)timescale;
mp_msg(MSGT_DEMUX,MSGL_V,"MOV: Initial Audio-Delay: %.3f sec\n", sh->stream_delay);
}
}
switch( sh->format ) {
case 0x726D6173: /* samr */
/* amr narrowband */
trak->samplebytes=sh->samplesize=1;
trak->nchannels=sh->channels=1;
sh->samplerate=8000;
break;
case 0x62776173: /* sawb */
/* amr wideband */
trak->samplebytes=sh->samplesize=1;
trak->nchannels=sh->channels=1;
sh->samplerate=16000;
break;
default:
// assumptions for below table: short is 16bit, int is 32bit, intfp is 16bit
// XXX: 32bit fixed point numbers (intfp) are only 2 Byte!
// short values are usually one byte leftpadded by zero
// int values are usually two byte leftpadded by zero
// stdata[]:
// 8 short version
// 10 short revision
// 12 int vendor_id
// 16 short channels
// 18 short samplesize
// 20 short compression_id
// 22 short packet_size (==0)
// 24 intfp sample_rate
// (26 short) unknown (==0)
// ---- qt3.0+ (version>=1)
// 28 int samples_per_packet
// 32 int bytes_per_packet
// 36 int bytes_per_frame
// 40 int bytes_per_sample
// there may be additional atoms following at 28 (version 0)
// or 44 (version 1), eg. esds atom of .MP4 files
// esds atom:
// 28 int atom size (bytes of int size, int type and data)
// 32 char[4] atom type (fourc charater code -> esds)
// 36 char[] atom data (len=size-8)
// TODO: fix parsing for files using version 2.
version=char2short(trak->stdata,8);
if (version > 1)
mp_msg(MSGT_DEMUX, MSGL_WARN, "MOV: version %d sound atom may not parse correctly!\n", version);
trak->samplebytes=sh->samplesize=char2short(trak->stdata,18)/8;
/* I can't find documentation, but so far this is the case. -Corey */
switch (char2short(trak->stdata,16)) {
case 1:
trak->nchannels = 1; break;
case 2:
trak->nchannels = 2; break;
case 3:
trak->nchannels = 6; break;
default:
mp_msg(MSGT_DEMUX, MSGL_WARN,
"MOV: unable to determine audio channels, assuming 2 (got %d)\n",
char2short(trak->stdata,16));
trak->nchannels = 2;
}
sh->channels = trak->nchannels;
/*printf("MOV: timescale: %d samplerate: %d durmap: %d (%d) -> %d (%d)\n",
trak->timescale, char2short(trak->stdata,24), trak->durmap[0].dur,
trak->durmap[0].num, trak->timescale/trak->durmap[0].dur,
char2short(trak->stdata,24)/trak->durmap[0].dur);*/
sh->samplerate=char2short(trak->stdata,24);
if((sh->samplerate < 7000) && trak->durmap && trak->durmap[0].dur > 1) {
switch(char2short(trak->stdata,24)/trak->durmap[0].dur) {
// TODO: add more cases.
case 31:
sh->samplerate = 32000; break;
case 43:
sh->samplerate = 44100; break;
case 47:
sh->samplerate = 48000; break;
default:
mp_msg(MSGT_DEMUX, MSGL_WARN,
"MOV: unable to determine audio samplerate, "
"assuming 44.1kHz (got %d)\n",
char2short(trak->stdata,24)/trak->durmap[0].dur);
sh->samplerate = 44100;
}
}
}
mp_msg(MSGT_DEMUX, MSGL_V, "Audio bits: %d chans: %d rate: %d\n",
sh->samplesize*8,sh->channels,sh->samplerate);
if(trak->stdata_len >= 44 && trak->stdata[9]>=1){
mp_msg(MSGT_DEMUX,MSGL_V,"Audio header: samp/pack=%d bytes/pack=%d bytes/frame=%d bytes/samp=%d \n",
char2int(trak->stdata,28),
char2int(trak->stdata,32),
char2int(trak->stdata,36),
char2int(trak->stdata,40));
if(trak->stdata_len>=44+8){
int len=char2int(trak->stdata,44);
int fcc=char2int(trak->stdata,48);
// we have extra audio headers!!!
mp_msg(MSGT_DEMUX,MSGL_V,"Audio extra header: len=%d fcc=0x%X\n",len,fcc);
if((len >= 4) &&
(char2int(trak->stdata,52) >= 12) &&
(char2int(trak->stdata,52+4) == MOV_FOURCC('f','r','m','a'))) {
switch(char2int(trak->stdata,52+8)) {
case MOV_FOURCC('a','l','a','c'):
if (len >= 36 + char2int(trak->stdata,52)) {
sh->codecdata_len = char2int(trak->stdata,52+char2int(trak->stdata,52));
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Found alac atom (%d)!\n", sh->codecdata_len);
sh->codecdata = malloc(sh->codecdata_len);
memcpy(sh->codecdata, &trak->stdata[52+char2int(trak->stdata,52)], sh->codecdata_len);
}
break;
case MOV_FOURCC('i','n','2','4'):
case MOV_FOURCC('i','n','3','2'):
case MOV_FOURCC('f','l','3','2'):
case MOV_FOURCC('f','l','6','4'):
if ((len >= 22) &&
(char2int(trak->stdata,52+16)==MOV_FOURCC('e','n','d','a')) &&
(char2short(trak->stdata,52+20))) {
sh->format=char2int(trak->stdata,52+8);
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Found little endian PCM data, reversed fourcc:%04x\n", sh->format);
}
break;
default:
if (len > 8 && len + 44 <= trak->stdata_len) {
sh->codecdata_len = len-8;
sh->codecdata = malloc(sh->codecdata_len);
memcpy(sh->codecdata, trak->stdata+44+8, sh->codecdata_len);
}
}
} else {
if (len > 8 && len + 44 <= trak->stdata_len) {
sh->codecdata_len = len-8;
sh->codecdata = malloc(sh->codecdata_len);
memcpy(sh->codecdata, trak->stdata+44+8, sh->codecdata_len);
}
}
}
}
switch (version) {
case 0:
adjust = 0; break;
case 1:
adjust = 48; break;
case 2:
adjust = 68; break;
default:
mp_msg(MSGT_DEMUX, MSGL_WARN, "MOV: unknown sound atom version (%d); may not work!\n", version);
adjust = 68;
}
if (trak->stdata_len >= 36 + adjust) {
int atom_len = char2int(trak->stdata,28+adjust);
switch(char2int(trak->stdata,32+adjust)) { // atom type
case MOV_FOURCC('e','s','d','s'): {
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Found MPEG4 audio Elementary Stream Descriptor atom (%d)!\n", atom_len);
if(atom_len > 8) {
esds_t esds;
if(!mp4_parse_esds(&trak->stdata[36+adjust], atom_len-8, &esds)) {
/* 0xdd is a "user private" id, not an official allocated id (see http://www.mp4ra.org/object.html),
so perform some extra checks to be sure that this is really vorbis audio */
if(esds.objectTypeId==0xdd && esds.streamType==0x15 && sh->format==0x6134706D && esds.decoderConfigLen > 8)
{
//vorbis audio
unsigned char *buf[3];
unsigned short sizes[3];
int offset, len, k;
unsigned char *ptr = esds.decoderConfig;
if(ptr[0] != 0 || ptr[1] != 30) goto quit_vorbis_block; //wrong extradata layout
offset = len = 0;
for(k = 0; k < 3; k++)
{
sizes[k] = (ptr[offset]<<8) | ptr[offset+1];
len += sizes[k];
offset += 2;
if(offset + sizes[k] > esds.decoderConfigLen)
{
mp_msg(MSGT_DEMUX, MSGL_FATAL, "MOV: ERROR!, not enough vorbis extradata to read: offset = %d, k=%d, size=%d, len: %d\n", offset, k, sizes[k], esds.decoderConfigLen);
goto quit_vorbis_block;
}
buf[k] = malloc(sizes[k]);
if(!buf[k]) goto quit_vorbis_block;
memcpy(buf[k], &ptr[offset], sizes[k]);
offset += sizes[k];
}
sh->codecdata_len = len + len/255 + 64;
sh->codecdata = malloc(sh->codecdata_len);
ptr = sh->codecdata;
ptr[0] = 2;
offset = 1;
offset += store_ughvlc(&ptr[offset], sizes[0]);
offset += store_ughvlc(&ptr[offset], sizes[1]);
for(k = 0; k < 3; k++)
{
memcpy(&ptr[offset], buf[k], sizes[k]);
offset += sizes[k];
}
sh->codecdata_len = offset;
sh->codecdata = realloc(sh->codecdata, offset);
mp_msg(MSGT_DEMUX,MSGL_V, "demux_mov, vorbis extradata size: %d\n", offset);
is_vorbis = 1;
quit_vorbis_block:
sh->format = mmioFOURCC('v', 'r', 'b', 's');
}
sh->i_bps = esds.avgBitrate/8;
// printf("######## audio format = %d ########\n",esds.objectTypeId);
if(esds.objectTypeId==MP4OTI_MPEG1Audio || esds.objectTypeId==MP4OTI_MPEG2AudioPart3)
sh->format=0x55; // .mp3
if(esds.objectTypeId==MP4OTI_13kVoice) { // 13K Voice, defined by 3GPP2
sh->format=mmioFOURCC('Q', 'c', 'l', 'p');
trak->nchannels=sh->channels=1;
trak->samplebytes=sh->samplesize=1;
}
// dump away the codec specific configuration for the AAC decoder
if(esds.decoderConfigLen){
if( (esds.decoderConfig[0]>>3) == 29 )
sh->format = 0x1d61346d; // request multi-channel mp3 decoder
if(!is_vorbis)
{
sh->codecdata_len = esds.decoderConfigLen;
sh->codecdata = malloc(sh->codecdata_len);
memcpy(sh->codecdata, esds.decoderConfig, sh->codecdata_len);
}
}
}
mp4_free_esds(&esds); // freeup esds mem
#if 0
{ FILE* f=fopen("esds.dat","wb");
fwrite(&trak->stdata[36],atom_len-8,1,f);
fclose(f); }
#endif
}
} break;
case MOV_FOURCC('a','l','a','c'): {
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Found alac atom (%d)!\n", atom_len);
if(atom_len > 8) {
// copy all the atom (not only payload) for lavc alac decoder
sh->codecdata_len = atom_len;
sh->codecdata = malloc(sh->codecdata_len);
memcpy(sh->codecdata, &trak->stdata[28], sh->codecdata_len);
}
} break;
case MOV_FOURCC('d','a','m','r'):
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Found AMR audio atom %c%c%c%c (%d)!\n", trak->stdata[32+adjust],trak->stdata[33+adjust],trak->stdata[34+adjust],trak->stdata[35+adjust], atom_len);
if (atom_len>14) {
mp_msg(MSGT_DEMUX, MSGL_V, "mov: vendor: %c%c%c%c Version: %d\n",trak->stdata[36+adjust],trak->stdata[37+adjust],trak->stdata[38+adjust], trak->stdata[39+adjust],trak->stdata[40+adjust]);
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Modes set: %02x%02x\n",trak->stdata[41+adjust],trak->stdata[42+adjust]);
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Mode change period: %d Frames per sample: %d\n",trak->stdata[43+adjust],trak->stdata[44+adjust]);
}
break;
default:
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Found unknown audio atom %c%c%c%c (%d)!\n",
trak->stdata[32+adjust],trak->stdata[33+adjust],trak->stdata[34+adjust],trak->stdata[35+adjust],
atom_len);
}
}
mp_msg(MSGT_DEMUX, MSGL_V, "Fourcc: %.4s\n",(char *)&trak->fourcc);
#if 0
{ FILE* f=fopen("stdata.dat","wb");
fwrite(trak->stdata,trak->stdata_len,1,f);
fclose(f); }
{ FILE* f=fopen("tkdata.dat","wb");
fwrite(trak->tkdata,trak->tkdata_len,1,f);
fclose(f); }
#endif
// Emulate WAVEFORMATEX struct:
sh->wf=malloc(sizeof(WAVEFORMATEX) + (is_vorbis ? sh->codecdata_len : 0));
memset(sh->wf,0,sizeof(WAVEFORMATEX));
sh->wf->nChannels=sh->channels;
sh->wf->wBitsPerSample=(trak->stdata[18]<<8)+trak->stdata[19];
// sh->wf->nSamplesPerSec=trak->timescale;
sh->wf->nSamplesPerSec=sh->samplerate;
if(trak->stdata_len >= 44 && trak->stdata[9]>=1 && char2int(trak->stdata,28)>0){
//Audio header: samp/pack=4096 bytes/pack=743 bytes/frame=1486 bytes/samp=2
sh->wf->nAvgBytesPerSec=(sh->wf->nChannels*sh->wf->nSamplesPerSec*
char2int(trak->stdata,32)+char2int(trak->stdata,28)/2)
/char2int(trak->stdata,28);
sh->wf->nBlockAlign=char2int(trak->stdata,36);
} else {
sh->wf->nAvgBytesPerSec=sh->wf->nChannels*sh->wf->wBitsPerSample*sh->wf->nSamplesPerSec/8;
// workaround for ms11 ima4
if (sh->format == 0x1100736d && trak->stdata_len >= 36)
sh->wf->nBlockAlign=char2int(trak->stdata,36);
}
if(is_vorbis && sh->codecdata_len)
{
memcpy(sh->wf+1, sh->codecdata, sh->codecdata_len);
sh->wf->cbSize = sh->codecdata_len;
}
// Selection:
// if(demuxer->audio->id==-1 || demuxer->audio->id==priv->track_db){
// // (auto)selected audio track:
// demuxer->audio->id=priv->track_db;
// demuxer->audio->sh=sh; sh->ds=demuxer->audio;
// }
return 1;
}
static int gen_sh_video(sh_video_t* sh, mov_track_t* trak, int timescale) {
int depth, i, entry;
int flag, start, count_flag, end, palette_count, gray;
int hdr_ptr = 76; // the byte just after depth
unsigned char *palette_map;
depth = trak->stdata[75] | (trak->stdata[74] << 8);
if (trak->fourcc == mmioFOURCC('r', 'a', 'w', ' ')) {
sh->format = IMGFMT_RGB | depth;
} else
sh->format=trak->fourcc;
// crude video delay from editlist0 hack ::atm
if(trak->editlist_size>=1) {
if(trak->editlist[0].pos == -1) {
sh->stream_delay = (float)trak->editlist[0].dur/(float)timescale;
mp_msg(MSGT_DEMUX,MSGL_V,"MOV: Initial Video-Delay: %.3f sec\n", sh->stream_delay);
}
}
if (trak->stdata_len < 78) {
mp_msg(MSGT_DEMUXER, MSGL_WARN,
"MOV: Invalid (%d bytes instead of >= 78) video trak desc\n",
trak->stdata_len);
return 0;
}
// stdata[]:
// 8 short version
// 10 short revision
// 12 int vendor_id
// 16 int temporal_quality
// 20 int spatial_quality
// 24 short width
// 26 short height
// 28 int h_dpi
// 32 int v_dpi
// 36 int 0
// 40 short frames_per_sample
// 42 char[4] compressor_name
// 74 short depth
// 76 short color_table_id
// additional atoms may follow,
// eg esds atom from .MP4 files
// 78 int atom size
// 82 char[4] atom type
// 86 ... atom data
{ ImageDescription* id=malloc(8+trak->stdata_len); // safe
trak->desc=id;
id->idSize=8+trak->stdata_len;
// id->cType=bswap_32(trak->fourcc);
id->cType=le2me_32(trak->fourcc);
id->version=char2short(trak->stdata,8);
id->revisionLevel=char2short(trak->stdata,10);
id->vendor=char2int(trak->stdata,12);
id->temporalQuality=char2int(trak->stdata,16);
id->spatialQuality=char2int(trak->stdata,20);
id->width=char2short(trak->stdata,24);
id->height=char2short(trak->stdata,26);
id->hRes=char2int(trak->stdata,28);
id->vRes=char2int(trak->stdata,32);
id->dataSize=char2int(trak->stdata,36);
id->frameCount=char2short(trak->stdata,40);
memcpy(&id->name,trak->stdata+42,32);
id->depth=char2short(trak->stdata,74);
id->clutID=char2short(trak->stdata,76);
if(trak->stdata_len>78) memcpy(((char*)&id->clutID)+2,trak->stdata+78,trak->stdata_len-78);
sh->ImageDesc=id;
#if 0
{ FILE *f=fopen("ImageDescription","wb");
fwrite(id,id->idSize,1,f);
fclose(f);
}
#endif
}
if(trak->stdata_len >= 86) { // extra atoms found
int pos=78;
int atom_len;
while(pos+8<=trak->stdata_len &&
(pos+(atom_len=char2int(trak->stdata,pos)))<=trak->stdata_len){
switch(char2int(trak->stdata,pos+4)) { // switch atom type
case MOV_FOURCC('g','a','m','a'):
// intfp with gamma value at which movie was captured
// can be used to gamma correct movie display
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Found unsupported Gamma-Correction movie atom (%d)!\n",
atom_len);
break;
case MOV_FOURCC('f','i','e','l'):
// 2 char-values (8bit int) that specify field handling
// see the Apple's QuickTime Fileformat PDF for more info
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Found unsupported Field-Handling movie atom (%d)!\n",
atom_len);
break;
case MOV_FOURCC('m','j','q','t'):
// Motion-JPEG default quantization table
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Found unsupported MJPEG-Quantization movie atom (%d)!\n",
atom_len);
break;
case MOV_FOURCC('m','j','h','t'):
// Motion-JPEG default huffman table
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Found unsupported MJPEG-Huffman movie atom (%d)!\n",
atom_len);
break;
case MOV_FOURCC('e','s','d','s'):
// MPEG4 Elementary Stream Descriptor header
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Found MPEG4 movie Elementary Stream Descriptor atom (%d)!\n", atom_len);
// add code here to save esds header of length atom_len-8
// beginning at stdata[86] to some variable to pass it
// on to the decoder ::atmos
if(atom_len > 8) {
esds_t esds;
if(!mp4_parse_esds(trak->stdata+pos+8, atom_len-8, &esds)) {
if(esds.objectTypeId==MP4OTI_MPEG2VisualSimple || esds.objectTypeId==MP4OTI_MPEG2VisualMain ||
esds.objectTypeId==MP4OTI_MPEG2VisualSNR || esds.objectTypeId==MP4OTI_MPEG2VisualSpatial ||
esds.objectTypeId==MP4OTI_MPEG2VisualHigh || esds.objectTypeId==MP4OTI_MPEG2Visual422)
sh->format=mmioFOURCC('m', 'p', 'g', '2');
else if(esds.objectTypeId==MP4OTI_MPEG1Visual)
sh->format=mmioFOURCC('m', 'p', 'g', '1');
// dump away the codec specific configuration for the AAC decoder
trak->stream_header_len = esds.decoderConfigLen;
trak->stream_header = malloc(trak->stream_header_len);
memcpy(trak->stream_header, esds.decoderConfig, trak->stream_header_len);
}
mp4_free_esds(&esds); // freeup esds mem
}
break;
case MOV_FOURCC('a','v','c','C'):
// AVC decoder configuration record
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: AVC decoder configuration record atom (%d)!\n", atom_len);
if(atom_len > 8) {
int i, poffs, cnt;
// Parse some parts of avcC, just for fun :)
// real parsing is done by avc1 decoder
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: avcC version: %d\n", *(trak->stdata+pos+8));
if (*(trak->stdata+pos+8) != 1)
mp_msg(MSGT_DEMUX, MSGL_ERR, "MOV: unknown avcC version (%d). Expexct problems.\n", *(trak->stdata+pos+9));
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: avcC profile: %d\n", *(trak->stdata+pos+9));
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: avcC profile compatibility: %d\n", *(trak->stdata+pos+10));
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: avcC level: %d\n", *(trak->stdata+pos+11));
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: avcC nal length size: %d\n", ((*(trak->stdata+pos+12))&0x03)+1);
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: avcC number of sequence param sets: %d\n", cnt = (*(trak->stdata+pos+13) & 0x1f));
poffs = pos + 14;
for (i = 0; i < cnt; i++) {
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: avcC sps %d have length %d\n", i, BE_16(trak->stdata+poffs));
poffs += BE_16(trak->stdata+poffs) + 2;
}
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: avcC number of picture param sets: %d\n", *(trak->stdata+poffs));
poffs++;
for (i = 0; i < cnt; i++) {
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: avcC pps %d have length %d\n", i, BE_16(trak->stdata+poffs));
poffs += BE_16(trak->stdata+poffs) + 2;
}
// Copy avcC for the AVC decoder
// This data will be put in extradata below, where BITMAPINFOHEADER is created
trak->stream_header_len = atom_len-8;
trak->stream_header = malloc(trak->stream_header_len);
memcpy(trak->stream_header, trak->stdata+pos+8, trak->stream_header_len);
}
break;
case MOV_FOURCC('d','2','6','3'):
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Found H.263 decoder atom %c%c%c%c (%d)!\n", trak->stdata[pos+4],trak->stdata[pos+5],trak->stdata[pos+6],trak->stdata[pos+7],atom_len);
if (atom_len>10)
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Vendor: %c%c%c%c H.263 level: %d H.263 profile: %d \n", trak->stdata[pos+8],trak->stdata[pos+9],trak->stdata[pos+10],trak->stdata[pos+11],trak->stdata[pos+12],trak->stdata[pos+13]);
break;
case 0:
break;
default:
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: Found unknown movie atom %c%c%c%c (%d)!\n",
trak->stdata[pos+4],trak->stdata[pos+5],trak->stdata[pos+6],trak->stdata[pos+7],
atom_len);
}
if(atom_len<8) break;
pos+=atom_len;
// printf("pos=%d max=%d\n",pos,trak->stdata_len);
}
}
sh->fps=trak->timescale/
((trak->durmap_size>=1)?(float)trak->durmap[0].dur:1);
sh->frametime=1.0f/sh->fps;
sh->disp_w=trak->stdata[25]|(trak->stdata[24]<<8);
sh->disp_h=trak->stdata[27]|(trak->stdata[26]<<8);
// if image size is zero, fallback to display size
if(!sh->disp_w && !sh->disp_h) {
sh->disp_w=trak->tkdata[77]|(trak->tkdata[76]<<8);
sh->disp_h=trak->tkdata[81]|(trak->tkdata[80]<<8);
} else if(sh->disp_w!=(trak->tkdata[77]|(trak->tkdata[76]<<8))){
// codec and display width differ... use display one for aspect
sh->aspect=trak->tkdata[77]|(trak->tkdata[76]<<8);
sh->aspect/=trak->tkdata[81]|(trak->tkdata[80]<<8);
}
if(depth>32+8) mp_msg(MSGT_DEMUX, MSGL_INFO,"*** depth = 0x%X\n",depth);
// palettized?
gray = 0;
if (depth > 32) { depth&=31; gray = 1; } // depth > 32 means grayscale
if ((depth == 2) || (depth == 4) || (depth == 8))
palette_count = (1 << depth);
else
palette_count = 0;
// emulate BITMAPINFOHEADER:
if (palette_count)
{
sh->bih=malloc(sizeof(BITMAPINFOHEADER) + palette_count * 4);
memset(sh->bih,0,sizeof(BITMAPINFOHEADER) + palette_count * 4);
sh->bih->biSize=40 + palette_count * 4;
// fetch the relevant fields
flag = BE_16(&trak->stdata[hdr_ptr]);
hdr_ptr += 2;
start = BE_32(&trak->stdata[hdr_ptr]);
hdr_ptr += 4;
count_flag = BE_16(&trak->stdata[hdr_ptr]);
hdr_ptr += 2;
end = BE_16(&trak->stdata[hdr_ptr]);
hdr_ptr += 2;
palette_map = (unsigned char *)sh->bih + 40;
mp_msg(MSGT_DEMUX, MSGL_V, "Allocated %d entries for palette\n",
palette_count);
mp_msg(MSGT_DEMUX, MSGL_DBG2, "QT palette: start: %x, end: %x, count flag: %d, flags: %x\n",
start, end, count_flag, flag);
/* XXX: problems with sample (statunit6.mov) with flag&0x4 set! - alex*/
// load default palette
if (flag & 0x08)
{
if (gray)
{
mp_msg(MSGT_DEMUX, MSGL_V, "Using default QT grayscale palette\n");
if (palette_count == 16)
memcpy(palette_map, qt_default_grayscale_palette_16, 16 * 4);
else if (palette_count == 256) {
memcpy(palette_map, qt_default_grayscale_palette_256, 256 * 4);
if (trak->fourcc == mmioFOURCC('c','v','i','d')) {
int i;
// Hack for grayscale CVID, negative palette
// If you have samples where this is not required contact me (rxt)
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: greyscale cvid with default palette,"
" enabling negative palette hack.\n");
for (i = 0; i < 256 * 4; i++)
palette_map[i] = palette_map[i] ^ 0xff;
}
}
}
else
{
mp_msg(MSGT_DEMUX, MSGL_V, "Using default QT colour palette\n");
if (palette_count == 4)
memcpy(palette_map, qt_default_palette_4, 4 * 4);
else if (palette_count == 16)
memcpy(palette_map, qt_default_palette_16, 16 * 4);
else if (palette_count == 256)
memcpy(palette_map, qt_default_palette_256, 256 * 4);
}
}
// load palette from file
else
{
mp_msg(MSGT_DEMUX, MSGL_V, "Loading palette from file\n");
for (i = start; i <= end; i++)
{
entry = BE_16(&trak->stdata[hdr_ptr]);
hdr_ptr += 2;
// apparently, if count_flag is set, entry is same as i
if (count_flag & 0x8000)
entry = i;
// only care about top 8 bits of 16-bit R, G, or B value
if (entry <= palette_count && entry >= 0)
{
palette_map[entry * 4 + 2] = trak->stdata[hdr_ptr + 0];
palette_map[entry * 4 + 1] = trak->stdata[hdr_ptr + 2];
palette_map[entry * 4 + 0] = trak->stdata[hdr_ptr + 4];
mp_dbg(MSGT_DEMUX, MSGL_DBG2, "QT palette: added entry: %d of %d (colors: R:%x G:%x B:%x)\n",
entry, palette_count,
palette_map[entry * 4 + 2],
palette_map[entry * 4 + 1],
palette_map[entry * 4 + 0]);
}
else
mp_msg(MSGT_DEMUX, MSGL_V, "QT palette: skipped entry (out of count): %d of %d\n",
entry, palette_count);
hdr_ptr += 6;
}
}
}
else
{
if (trak->fourcc == mmioFOURCC('a','v','c','1')) {
if (trak->stream_header_len > 0xffffffff - sizeof(BITMAPINFOHEADER)) {
mp_msg(MSGT_DEMUXER, MSGL_ERR, "Invalid extradata size %d, skipping\n",trak->stream_header_len);
trak->stream_header_len = 0;
}
sh->bih=malloc(sizeof(BITMAPINFOHEADER) + trak->stream_header_len);
memset(sh->bih,0,sizeof(BITMAPINFOHEADER) + trak->stream_header_len);
sh->bih->biSize=40 + trak->stream_header_len;
memcpy(((unsigned char *)sh->bih)+40, trak->stream_header, trak->stream_header_len);
free (trak->stream_header);
trak->stream_header_len = 0;
trak->stream_header = NULL;
} else {
sh->bih=malloc(sizeof(BITMAPINFOHEADER));
memset(sh->bih,0,sizeof(BITMAPINFOHEADER));
sh->bih->biSize=40;
}
}
sh->bih->biWidth=sh->disp_w;
sh->bih->biHeight=sh->disp_h;
sh->bih->biPlanes=0;
sh->bih->biBitCount=depth;
sh->bih->biCompression=trak->fourcc;
sh->bih->biSizeImage=sh->bih->biWidth*sh->bih->biHeight;
mp_msg(MSGT_DEMUX, MSGL_V, "Image size: %d x %d (%d bpp)\n",sh->disp_w,sh->disp_h,sh->bih->biBitCount);
if(trak->tkdata_len>81)
mp_msg(MSGT_DEMUX, MSGL_V, "Display size: %d x %d\n",
trak->tkdata[77]|(trak->tkdata[76]<<8),
trak->tkdata[81]|(trak->tkdata[80]<<8));
mp_msg(MSGT_DEMUX, MSGL_V, "Fourcc: %.4s Codec: '%.*s'\n",(char *)&trak->fourcc,trak->stdata[42]&31,trak->stdata+43);
// if(demuxer->video->id==-1 || demuxer->video->id==priv->track_db){
// // (auto)selected video track:
// demuxer->video->id=priv->track_db;
// demuxer->video->sh=sh; sh->ds=demuxer->video;
// }
return 1;
}
static void lschunks(demuxer_t* demuxer,int level,off_t endpos,mov_track_t* trak){
mov_priv_t* priv=demuxer->priv;
// printf("lschunks (level=%d,endpos=%x)\n", level, endpos);
while(1){
off_t pos;
off_t len;
unsigned int id;
//
pos=stream_tell(demuxer->stream);
// printf("stream_tell==%d\n",pos);
if(pos>=endpos) return; // END
len=stream_read_dword(demuxer->stream);
// printf("len==%d\n",len);
if(len<8) return; // error
len-=8;
id=stream_read_dword(demuxer->stream);
//
mp_msg(MSGT_DEMUX,MSGL_DBG2,"lschunks %.4s %d\n",(char *)&id,(int)len);
//
if(trak){
if (lschunks_intrak(demuxer, level, id, pos, len, trak) < 0)
return;
} else { /* not in track */
switch(id) {
case MOV_FOURCC('m','v','h','d'): {
int version = stream_read_char(demuxer->stream);
stream_skip(demuxer->stream, (version == 1) ? 19 : 11);
priv->timescale=stream_read_dword(demuxer->stream);
if (version == 1)
priv->duration=stream_read_qword(demuxer->stream);
else
priv->duration=stream_read_dword(demuxer->stream);
mp_msg(MSGT_DEMUX, MSGL_V,"MOV: %*sMovie header (%d bytes): tscale=%d dur=%d\n",level,"",(int)len,
(int)priv->timescale,(int)priv->duration);
break;
}
case MOV_FOURCC('t','r','a','k'): {
// if(trak) printf("MOV: Warning! trak in trak?\n");
if(priv->track_db>=MOV_MAX_TRACKS){
mp_msg(MSGT_DEMUX,MSGL_WARN,MSGTR_MOVtooManyTrk);
return;
}
if(!priv->track_db) mp_msg(MSGT_DEMUX, MSGL_V, "--------------\n");
trak=malloc(sizeof(mov_track_t));
memset(trak,0,sizeof(mov_track_t));
mp_msg(MSGT_DEMUX,MSGL_V,"MOV: Track #%d:\n",priv->track_db);
trak->id=priv->track_db;
priv->tracks[priv->track_db]=trak;
lschunks(demuxer,level+1,pos+len,trak);
mov_build_index(trak,priv->timescale);
switch(trak->type){
case MOV_TRAK_AUDIO: {
sh_audio_t* sh=new_sh_audio(demuxer,priv->track_db);
mp_msg(MSGT_DEMUX, MSGL_INFO, MSGTR_AudioID, "mov", priv->track_db);
gen_sh_audio(sh, trak, priv->timescale);
break;
}
case MOV_TRAK_VIDEO: {
sh_video_t* sh=new_sh_video(demuxer,priv->track_db);
mp_msg(MSGT_DEMUX, MSGL_INFO, MSGTR_VideoID, "mov", priv->track_db);
gen_sh_video(sh, trak, priv->timescale);
break;
}
case MOV_TRAK_GENERIC:
if (trak->fourcc == mmioFOURCC('m','p','4','s') ||
trak->fourcc == mmioFOURCC('t','x','3','g') ||
trak->fourcc == mmioFOURCC('t','e','x','t')) {
sh_sub_t *sh = new_sh_sub(demuxer, priv->track_db);
mp_msg(MSGT_DEMUX, MSGL_INFO, MSGTR_SubtitleID, "mov", priv->track_db);
if (trak->fourcc == mmioFOURCC('m','p','4','s'))
init_vobsub(sh, trak);
else {
sh->type = 'm';
sub_utf8 = 1;
}
} else
mp_msg(MSGT_DEMUX, MSGL_V, "Generic track - not completely understood! (id: %d)\n",
trak->id);
/* XXX: Also this contains the FLASH data */
#if 0
{
int pos = stream_tell(demuxer->stream);
int i;
int fd;
char name[20];
for (i=0; i<trak->samples_size; i++)
{
char buf[trak->samples[i].size];
stream_seek(demuxer->stream, trak->samples[i].pos);
snprintf((char *)&name[0], 20, "samp%d", i);
fd = open((char *)&name[0], O_CREAT|O_WRONLY);
stream_read(demuxer->stream, &buf[0], trak->samples[i].size);
write(fd, &buf[0], trak->samples[i].size);
close(fd);
}
for (i=0; i<trak->chunks_size; i++)
{
char buf[trak->length];
stream_seek(demuxer->stream, trak->chunks[i].pos);
snprintf((char *)&name[0], 20, "chunk%d", i);
fd = open((char *)&name[0], O_CREAT|O_WRONLY);
stream_read(demuxer->stream, &buf[0], trak->length);
write(fd, &buf[0], trak->length);
close(fd);
}
if (trak->samplesize > 0)
{
char *buf;
buf = malloc(trak->samplesize);
stream_seek(demuxer->stream, trak->chunks[0].pos);
snprintf((char *)&name[0], 20, "trak%d", trak->id);
fd = open((char *)&name[0], O_CREAT|O_WRONLY);
stream_read(demuxer->stream, buf, trak->samplesize);
write(fd, buf, trak->samplesize);
close(fd);
}
stream_seek(demuxer->stream, pos);
}
#endif
break;
default:
mp_msg(MSGT_DEMUX, MSGL_V, "Unknown track type found (type: %d)\n", trak->type);
break;
}
mp_msg(MSGT_DEMUX, MSGL_V, "--------------\n");
priv->track_db++;
trak=NULL;
break;
}
#ifndef HAVE_ZLIB
case MOV_FOURCC('c','m','o','v'): {
mp_msg(MSGT_DEMUX,MSGL_ERR,MSGTR_MOVcomprhdr);
return;
}
#else
case MOV_FOURCC('m','o','o','v'):
case MOV_FOURCC('c','m','o','v'): {
// mp_msg(MSGT_DEMUX,MSGL_ERR,MSGTR_MOVcomprhdr);
lschunks(demuxer,level+1,pos+len,NULL);
break;
}
case MOV_FOURCC('d','c','o','m'): {
// int temp=stream_read_dword(demuxer->stream);
unsigned int algo=be2me_32(stream_read_dword(demuxer->stream));
mp_msg(MSGT_DEMUX, MSGL_V, "Compressed header uses %.4s algo!\n",(char *)&algo);
break;
}
case MOV_FOURCC('c','m','v','d'): {
// int temp=stream_read_dword(demuxer->stream);
unsigned int moov_sz=stream_read_dword(demuxer->stream);
unsigned int cmov_sz=len-4;
unsigned char* cmov_buf;
unsigned char* moov_buf;
int zret;
z_stream zstrm;
stream_t* backup;
if (moov_sz > SIZE_MAX - 16) {
mp_msg(MSGT_DEMUX, MSGL_ERR, "Invalid cmvd atom size %d\n", moov_sz);
break;
}
cmov_buf=malloc(cmov_sz);
moov_buf=malloc(moov_sz+16);
mp_msg(MSGT_DEMUX, MSGL_V, "Compressed header size: %d / %d\n",cmov_sz,moov_sz);
stream_read(demuxer->stream,cmov_buf,cmov_sz);
zstrm.zalloc = (alloc_func)0;
zstrm.zfree = (free_func)0;
zstrm.opaque = (voidpf)0;
zstrm.next_in = cmov_buf;
zstrm.avail_in = cmov_sz;
zstrm.next_out = moov_buf;
zstrm.avail_out = moov_sz;
zret = inflateInit(&zstrm);
if (zret != Z_OK)
{ mp_msg(MSGT_DEMUX, MSGL_ERR, "QT cmov: inflateInit err %d\n",zret);
return;
}
zret = inflate(&zstrm, Z_NO_FLUSH);
if ((zret != Z_OK) && (zret != Z_STREAM_END))
{ mp_msg(MSGT_DEMUX, MSGL_ERR, "QT cmov inflate: ERR %d\n",zret);
return;
}
#if 0
else {
FILE *DecOut;
DecOut = fopen("Out.bin", "w");
fwrite(moov_buf, 1, moov_sz, DecOut);
fclose(DecOut);
}
#endif
if(moov_sz != zstrm.total_out)
mp_msg(MSGT_DEMUX, MSGL_WARN, "Warning! moov size differs cmov: %d zlib: %ld\n",moov_sz,zstrm.total_out);
zret = inflateEnd(&zstrm);
backup=demuxer->stream;
demuxer->stream=new_memory_stream(moov_buf,moov_sz);
stream_skip(demuxer->stream,8);
lschunks(demuxer,level+1,moov_sz,NULL); // parse uncompr. 'moov'
//free_stream(demuxer->stream);
demuxer->stream=backup;
free(cmov_buf);
free(moov_buf);
break;
}
#endif
case MOV_FOURCC('u','d','t','a'):
{
unsigned int udta_id;
off_t udta_len;
off_t udta_size = len;
mp_msg(MSGT_DEMUX, MSGL_DBG2, "mov: user data record found\n");
mp_msg(MSGT_DEMUX, MSGL_V, "Quicktime Clip Info:\n");
while((len > 8) && (udta_size > 8))
{
udta_len = stream_read_dword(demuxer->stream);
udta_id = stream_read_dword(demuxer->stream);
udta_size -= 8;
mp_msg(MSGT_DEMUX, MSGL_DBG2, "udta_id: %.4s (len: %"PRId64")\n", (char *)&udta_id, (int64_t)udta_len);
switch (udta_id)
{
case MOV_FOURCC(0xa9,'c','p','y'):
case MOV_FOURCC(0xa9,'d','a','y'):
case MOV_FOURCC(0xa9,'d','i','r'):
/* 0xa9,'e','d','1' - '9' : edit timestamps */
case MOV_FOURCC(0xa9,'f','m','t'):
case MOV_FOURCC(0xa9,'i','n','f'):
case MOV_FOURCC(0xa9,'p','r','d'):
case MOV_FOURCC(0xa9,'p','r','f'):
case MOV_FOURCC(0xa9,'r','e','q'):
case MOV_FOURCC(0xa9,'s','r','c'):
case MOV_FOURCC('n','a','m','e'):
case MOV_FOURCC(0xa9,'n','a','m'):
case MOV_FOURCC(0xa9,'A','R','T'):
case MOV_FOURCC(0xa9,'c','m','t'):
case MOV_FOURCC(0xa9,'a','u','t'):
case MOV_FOURCC(0xa9,'s','w','r'):
{
off_t text_len = stream_read_word(demuxer->stream);
char text[text_len+2+1];
stream_read(demuxer->stream, (char *)&text, text_len+2);
text[text_len+2] = 0x0;
switch(udta_id)
{
case MOV_FOURCC(0xa9,'a','u','t'):
demux_info_add(demuxer, "author", &text[2]);
mp_msg(MSGT_DEMUX, MSGL_V, " Author: %s\n", &text[2]);
break;
case MOV_FOURCC(0xa9,'c','p','y'):
demux_info_add(demuxer, "copyright", &text[2]);
mp_msg(MSGT_DEMUX, MSGL_V, " Copyright: %s\n", &text[2]);
break;
case MOV_FOURCC(0xa9,'i','n','f'):
mp_msg(MSGT_DEMUX, MSGL_V, " Info: %s\n", &text[2]);
break;
case MOV_FOURCC('n','a','m','e'):
case MOV_FOURCC(0xa9,'n','a','m'):
demux_info_add(demuxer, "name", &text[2]);
mp_msg(MSGT_DEMUX, MSGL_V, " Name: %s\n", &text[2]);
break;
case MOV_FOURCC(0xa9,'A','R','T'):
mp_msg(MSGT_DEMUX, MSGL_V, " Artist: %s\n", &text[2]);
break;
case MOV_FOURCC(0xa9,'d','i','r'):
mp_msg(MSGT_DEMUX, MSGL_V, " Director: %s\n", &text[2]);
break;
case MOV_FOURCC(0xa9,'c','m','t'):
demux_info_add(demuxer, "comments", &text[2]);
mp_msg(MSGT_DEMUX, MSGL_V, " Comment: %s\n", &text[2]);
break;
case MOV_FOURCC(0xa9,'r','e','q'):
mp_msg(MSGT_DEMUX, MSGL_V, " Requirements: %s\n", &text[2]);
break;
case MOV_FOURCC(0xa9,'s','w','r'):
demux_info_add(demuxer, "encoder", &text[2]);
mp_msg(MSGT_DEMUX, MSGL_V, " Software: %s\n", &text[2]);
break;
case MOV_FOURCC(0xa9,'d','a','y'):
mp_msg(MSGT_DEMUX, MSGL_V, " Creation timestamp: %s\n", &text[2]);
break;
case MOV_FOURCC(0xa9,'f','m','t'):
mp_msg(MSGT_DEMUX, MSGL_V, " Format: %s\n", &text[2]);
break;
case MOV_FOURCC(0xa9,'p','r','d'):
mp_msg(MSGT_DEMUX, MSGL_V, " Producer: %s\n", &text[2]);
break;
case MOV_FOURCC(0xa9,'p','r','f'):
mp_msg(MSGT_DEMUX, MSGL_V, " Performer(s): %s\n", &text[2]);
break;
case MOV_FOURCC(0xa9,'s','r','c'):
mp_msg(MSGT_DEMUX, MSGL_V, " Source providers: %s\n", &text[2]);
break;
}
udta_size -= 4+text_len;
break;
}
/* some other shits: WLOC - window location,
LOOP - looping style,
SelO - play only selected frames
AllF - play all frames
*/
case MOV_FOURCC('W','L','O','C'):
case MOV_FOURCC('L','O','O','P'):
case MOV_FOURCC('S','e','l','O'):
case MOV_FOURCC('A','l','l','F'):
default:
{
if( udta_len>udta_size)
udta_len=udta_size;
{
stream_skip(demuxer->stream, udta_len-4-4);
udta_size -= udta_len;
}
}
}
}
break;
} /* eof udta */
default:
id = be2me_32(id);
mp_msg(MSGT_DEMUX,MSGL_V,"MOV: unknown chunk: %.4s %d\n",(char *)&id,(int)len);
} /* endof switch */
} /* endof else */
pos+=len+8;
if(pos>=endpos) break;
if(!stream_seek(demuxer->stream,pos)) break;
}
}
static int lschunks_intrak(demuxer_t* demuxer, int level, unsigned int id,
off_t pos, off_t len, mov_track_t* trak)
{
switch(id) {
case MOV_FOURCC('m','d','a','t'): {
mp_msg(MSGT_DEMUX,MSGL_WARN,"Hmm, strange MOV, parsing mdat in lschunks?\n");
return -1;
}
case MOV_FOURCC('f','r','e','e'):
case MOV_FOURCC('u','d','t','a'):
/* here not supported :p */
break;
case MOV_FOURCC('t','k','h','d'): {
mp_msg(MSGT_DEMUX,MSGL_V,"MOV: %*sTrack header!\n", level, "");
// read codec data
trak->tkdata_len = len;
trak->tkdata = malloc(trak->tkdata_len);
stream_read(demuxer->stream, trak->tkdata, trak->tkdata_len);
/*
0 1 Version
1 3 Flags
4 4 Creation time
8 4 Modification time
12 4 Track ID
16 4 Reserved
20 4 Duration
24 8 Reserved
32 2 Layer
34 2 Alternate group
36 2 Volume
38 2 Reserved
40 36 Matrix structure
76 4 Track width
80 4 Track height
*/
mp_msg(MSGT_DEMUX, MSGL_V,
"tkhd len=%d ver=%d flags=0x%X id=%d dur=%d lay=%d vol=%d\n",
trak->tkdata_len, trak->tkdata[0], trak->tkdata[1],
char2int(trak->tkdata, 12), // id
char2int(trak->tkdata, 20), // duration
char2short(trak->tkdata, 32), // layer
char2short(trak->tkdata, 36)); // volume
break;
}
case MOV_FOURCC('m','d','h','d'): {
int version = stream_read_char(demuxer->stream);
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: %*sMedia header!\n", level, "");
stream_skip(demuxer->stream, (version == 1) ? 19 : 11);
// read timescale
trak->timescale = stream_read_dword(demuxer->stream);
// read length
if (version == 1)
trak->length = stream_read_qword(demuxer->stream);
else
trak->length = stream_read_dword(demuxer->stream);
break;
}
case MOV_FOURCC('h','d','l','r'): {
unsigned int tmp = stream_read_dword(demuxer->stream);
unsigned int type = stream_read_dword_le(demuxer->stream);
unsigned int subtype = stream_read_dword_le(demuxer->stream);
unsigned int manufact = stream_read_dword_le(demuxer->stream);
unsigned int comp_flags = stream_read_dword(demuxer->stream);
unsigned int comp_mask = stream_read_dword(demuxer->stream);
int len = stream_read_char(demuxer->stream);
char* str = malloc(len + 1);
stream_read(demuxer->stream, str, len);
str[len] = 0;
mp_msg(MSGT_DEMUX, MSGL_V,
"MOV: %*sHandler header: %.4s/%.4s (%.4s) %s\n", level, "",
(char *)&type, (char *)&subtype, (char *)&manufact, str);
free(str);
switch(bswap_32(type)) {
case MOV_FOURCC('m','h','l','r'):
trak->media_handler = bswap_32(subtype);
break;
case MOV_FOURCC('d','h','l','r'):
trak->data_handler = bswap_32(subtype);
break;
default:
mp_msg(MSGT_DEMUX, MSGL_V,
"MOV: unknown handler class: 0x%X (%.4s)\n",
bswap_32(type), (char *)&type);
}
break;
}
case MOV_FOURCC('v','m','h','d'): {
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: %*sVideo header!\n", level, "");
trak->type = MOV_TRAK_VIDEO;
// read video data
break;
}
case MOV_FOURCC('s','m','h','d'): {
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: %*sSound header!\n", level, "");
trak->type = MOV_TRAK_AUDIO;
// read audio data
break;
}
case MOV_FOURCC('g','m','h','d'): {
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: %*sGeneric header!\n", level, "");
trak->type = MOV_TRAK_GENERIC;
break;
}
case MOV_FOURCC('n','m','h','d'): {
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: %*sGeneric header!\n", level, "");
trak->type = MOV_TRAK_GENERIC;
break;
}
case MOV_FOURCC('s','t','s','d'): {
int i = stream_read_dword(demuxer->stream); // temp!
int count = stream_read_dword(demuxer->stream);
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: %*sDescription list! (cnt:%d)\n",
level, "", count);
for (i = 0; i < count; i++) {
off_t pos = stream_tell(demuxer->stream);
off_t len = stream_read_dword(demuxer->stream);
unsigned int fourcc = stream_read_dword_le(demuxer->stream);
/* some files created with Broadcast 2000 (e.g. ilacetest.mov)
contain raw I420 video but have a yv12 fourcc */
if (fourcc == mmioFOURCC('y','v','1','2'))
fourcc = mmioFOURCC('I','4','2','0');
if (len < 8)
break; // error
mp_msg(MSGT_DEMUX, MSGL_V,
"MOV: %*s desc #%d: %.4s (%"PRId64" bytes)\n", level, "",
i, (char *)&fourcc, (int64_t)len - 16);
if (fourcc != trak->fourcc && i)
mp_msg(MSGT_DEMUX, MSGL_WARN, MSGTR_MOVvariableFourCC);
// if(!i)
{
trak->fourcc = fourcc;
// read type specific (audio/video/time/text etc) header
// NOTE: trak type is not yet known at this point :(((
trak->stdata_len = len - 8;
trak->stdata = malloc(trak->stdata_len);
stream_read(demuxer->stream, trak->stdata, trak->stdata_len);
}
if (!stream_seek(demuxer->stream, pos + len))
break;
}
break;
}
case MOV_FOURCC('s','t','t','s'): {
int temp = stream_read_dword(demuxer->stream);
int len = stream_read_dword(demuxer->stream);
int i;
unsigned int pts = 0;
mp_msg(MSGT_DEMUX, MSGL_V,
"MOV: %*sSample duration table! (%d blocks)\n", level, "",
len);
trak->durmap = calloc(len, sizeof(mov_durmap_t));
trak->durmap_size = len;
for (i = 0; i < len; i++) {
trak->durmap[i].num = stream_read_dword(demuxer->stream);
trak->durmap[i].dur = stream_read_dword(demuxer->stream);
pts += trak->durmap[i].num * trak->durmap[i].dur;
}
if (trak->length != pts)
mp_msg(MSGT_DEMUX, MSGL_WARN, "Warning! pts=%d length=%d\n",
pts, trak->length);
break;
}
case MOV_FOURCC('s','t','s','c'): {
int temp = stream_read_dword(demuxer->stream);
int len = stream_read_dword(demuxer->stream);
int ver = (temp << 24);
int flags = (temp << 16) | (temp << 8) | temp;
int i;
mp_msg(MSGT_DEMUX, MSGL_V,
"MOV: %*sSample->Chunk mapping table! (%d blocks) (ver:%d,flags:%d)\n", level, "",
len, ver, flags);
// read data:
trak->chunkmap_size = len;
trak->chunkmap = calloc(len, sizeof(mov_chunkmap_t));
for (i = 0; i < len; i++) {
trak->chunkmap[i].first = stream_read_dword(demuxer->stream) - 1;
trak->chunkmap[i].spc = stream_read_dword(demuxer->stream);
trak->chunkmap[i].sdid = stream_read_dword(demuxer->stream);
}
break;
}
case MOV_FOURCC('s','t','s','z'): {
int temp = stream_read_dword(demuxer->stream);
int ss=stream_read_dword(demuxer->stream);
int ver = (temp << 24);
int flags = (temp << 16) | (temp << 8) | temp;
int entries = stream_read_dword(demuxer->stream);
int i;
mp_msg(MSGT_DEMUX, MSGL_V,
"MOV: %*sSample size table! (entries=%d ss=%d) (ver:%d,flags:%d)\n", level, "",
entries, ss, ver, flags);
trak->samplesize = ss;
if (!ss) {
// variable samplesize
trak->samples = realloc_struct(trak->samples, entries, sizeof(mov_sample_t));
trak->samples_size = entries;
for (i = 0; i < entries; i++)
trak->samples[i].size = stream_read_dword(demuxer->stream);
}
break;
}
case MOV_FOURCC('s','t','c','o'): {
int temp = stream_read_dword(demuxer->stream);
int len = stream_read_dword(demuxer->stream);
int i;
mp_msg(MSGT_DEMUX, MSGL_V,
"MOV: %*sChunk offset table! (%d chunks)\n", level, "",
len);
// extend array if needed:
if (len > trak->chunks_size) {
trak->chunks = realloc_struct(trak->chunks, len, sizeof(mov_chunk_t));
trak->chunks_size = len;
}
// read elements:
for(i = 0; i < len; i++)
trak->chunks[i].pos = stream_read_dword(demuxer->stream);
break;
}
case MOV_FOURCC('c','o','6','4'): {
int temp = stream_read_dword(demuxer->stream);
int len = stream_read_dword(demuxer->stream);
int i;
mp_msg(MSGT_DEMUX, MSGL_V,
"MOV: %*s64bit chunk offset table! (%d chunks)\n", level, "",
len);
// extend array if needed:
if (len > trak->chunks_size) {
trak->chunks = realloc_struct(trak->chunks, len, sizeof(mov_chunk_t));
trak->chunks_size = len;
}
// read elements:
for (i = 0; i < len; i++) {
#ifndef _LARGEFILE_SOURCE
if (stream_read_dword(demuxer->stream) != 0)
mp_msg(MSGT_DEMUX, MSGL_WARN, "Chunk %d has got 64bit address, but you've MPlayer compiled without LARGEFILE support!\n", i);
trak->chunks[i].pos = stream_read_dword(demuxer->stream);
#else
trak->chunks[i].pos = stream_read_qword(demuxer->stream);
#endif
}
break;
}
case MOV_FOURCC('s','t','s','s'): {
int temp = stream_read_dword(demuxer->stream);
int entries = stream_read_dword(demuxer->stream);
int ver = (temp << 24);
int flags = (temp << 16) | (temp<<8) | temp;
int i;
mp_msg(MSGT_DEMUX, MSGL_V,
"MOV: %*sSyncing samples (keyframes) table! (%d entries) (ver:%d,flags:%d)\n", level, "",
entries, ver, flags);
trak->keyframes_size = entries;
trak->keyframes = calloc(entries, sizeof(unsigned int));
for (i = 0; i < entries; i++)
trak->keyframes[i] = stream_read_dword(demuxer->stream) - 1;
break;
}
case MOV_FOURCC('m','d','i','a'): {
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: %*sMedia stream!\n", level, "");
lschunks(demuxer, level + 1, pos + len, trak);
break;
}
case MOV_FOURCC('m','i','n','f'): {
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: %*sMedia info!\n", level, "");
lschunks(demuxer, level + 1 ,pos + len, trak);
break;
}
case MOV_FOURCC('s','t','b','l'): {
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: %*sSample info!\n", level, "");
lschunks(demuxer, level + 1, pos + len, trak);
break;
}
case MOV_FOURCC('e','d','t','s'): {
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: %*sEdit atom!\n", level, "");
lschunks(demuxer, level + 1, pos + len, trak);
break;
}
case MOV_FOURCC('e','l','s','t'): {
int temp = stream_read_dword(demuxer->stream);
int entries = stream_read_dword(demuxer->stream);
int ver = (temp << 24);
int flags = (temp << 16) | (temp << 8) | temp;
int i;
mp_msg(MSGT_DEMUX, MSGL_V,
"MOV: %*sEdit list table (%d entries) (ver:%d,flags:%d)\n", level, "",
entries, ver, flags);
#if 1
trak->editlist_size = entries;
trak->editlist = calloc(trak->editlist_size, sizeof(mov_editlist_t));
for (i = 0; i < entries; i++) {
int dur = stream_read_dword(demuxer->stream);
int mt = stream_read_dword(demuxer->stream);
int mr = stream_read_dword(demuxer->stream); // 16.16fp
trak->editlist[i].dur = dur;
trak->editlist[i].pos = mt;
trak->editlist[i].speed = mr;
mp_msg(MSGT_DEMUX, MSGL_V,
"MOV: %*s entry#%d: duration: %d start time: %d speed: %3.1fx\n", level, "",
i, dur, mt, (float)mr/65536.0f);
}
#endif
break;
}
case MOV_FOURCC('c','o','d','e'): {
/* XXX: Implement atom 'code' for FLASH support */
break;
}
default:
id = be2me_32(id);
mp_msg(MSGT_DEMUX,MSGL_V,"MOV: unknown chunk: %.4s %d\n",(char *)&id,(int)len);
break;
}//switch(id)
return 0;
}
static demuxer_t* mov_read_header(demuxer_t* demuxer){
mov_priv_t* priv=demuxer->priv;
int t_no;
int best_a_id=-1, best_a_len=0;
int best_v_id=-1, best_v_len=0;
mp_msg(MSGT_DEMUX, MSGL_DBG3, "mov_read_header!\n");
// Parse header:
stream_reset(demuxer->stream);
if(!stream_seek(demuxer->stream,priv->moov_start))
{
mp_msg(MSGT_DEMUX,MSGL_ERR,"MOV: Cannot seek to the beginning of the Movie header (0x%"PRIx64")\n",
(int64_t)priv->moov_start);
return 0;
}
lschunks(demuxer, 0, priv->moov_end, NULL);
// just in case we have hit eof while parsing...
demuxer->stream->eof = 0;
// mp_msg(MSGT_DEMUX, MSGL_INFO, "--------------\n");
// find the best (longest) streams:
for(t_no=0;t_no<priv->track_db;t_no++){
mov_track_t* trak=priv->tracks[t_no];
int len=(trak->samplesize) ? trak->chunks_size : trak->samples_size;
if(demuxer->a_streams[t_no]){ // need audio
if(len>best_a_len){ best_a_len=len; best_a_id=t_no; }
}
if(demuxer->v_streams[t_no]){ // need video
if(len>best_v_len){ best_v_len=len; best_v_id=t_no; }
}
}
mp_msg(MSGT_DEMUX, MSGL_V, "MOV: longest streams: A: #%d (%d samples) V: #%d (%d samples)\n",
best_a_id,best_a_len,best_v_id,best_v_len);
if(demuxer->audio->id==-1 && best_a_id>=0) demuxer->audio->id=best_a_id;
if(demuxer->video->id==-1 && best_v_id>=0) demuxer->video->id=best_v_id;
// setup sh pointers:
if(demuxer->audio->id>=0){
sh_audio_t* sh=demuxer->a_streams[demuxer->audio->id];
if(sh){
demuxer->audio->sh=sh; sh->ds=demuxer->audio;
} else {
mp_msg(MSGT_DEMUX, MSGL_ERR, "MOV: selected audio stream (%d) does not exist\n",demuxer->audio->id);
demuxer->audio->id=-2;
}
}
if(demuxer->video->id>=0){
sh_video_t* sh=demuxer->v_streams[demuxer->video->id];
if(sh){
demuxer->video->sh=sh; sh->ds=demuxer->video;
} else {
mp_msg(MSGT_DEMUX, MSGL_ERR, "MOV: selected video stream (%d) does not exist\n",demuxer->video->id);
demuxer->video->id=-2;
}
}
if(demuxer->sub->id>=0){
sh_sub_t* sh=demuxer->s_streams[demuxer->sub->id];
if(sh){
demuxer->sub->sh=sh;
} else {
mp_msg(MSGT_DEMUX, MSGL_ERR, "MOV: selected subtitle stream (%d) does not exist\n",demuxer->sub->id);
demuxer->sub->id=-2;
}
}
if(demuxer->video->id<0 && demuxer->audio->id<0) {
/* No AV streams found. Try to find an MPEG stream. */
for(t_no=0;t_no<priv->track_db;t_no++){
mov_track_t* trak=priv->tracks[t_no];
if(trak->media_handler == MOV_FOURCC('M','P','E','G')) {
stream_t *s;
demuxer_t *od;
demuxer->video->id = t_no;
s = new_ds_stream(demuxer->video);
od = demux_open(s, DEMUXER_TYPE_MPEG_PS, -1, -1, -1, NULL);
if(od) return new_demuxers_demuxer(od, od, od);
demuxer->video->id = -2; //new linked demuxer couldn't be allocated
break;
}
}
}
#if 0
if( mp_msg_test(MSGT_DEMUX,MSGL_DBG3) ){
for(t_no=0;t_no<priv->track_db;t_no++){
mov_track_t* trak=priv->tracks[t_no];
if(trak->type==MOV_TRAK_GENERIC){
int i;
int fd;
char name[20];
mp_msg(MSGT_DEMUX, MSGL_INFO, "MOV: Track #%d: Extracting %d data chunks to files\n",t_no,trak->samples_size);
for (i=0; i<trak->samples_size; i++)
{
int len=trak->samples[i].size;
char buf[len];
stream_seek(demuxer->stream, trak->samples[i].pos);
snprintf(name, 20, "t%02d-s%03d.%s", t_no,i,
(trak->media_handler==MOV_FOURCC('f','l','s','h')) ?
"swf":"dump");
fd = open(name, O_CREAT|O_WRONLY);
// { int j;
// for(j=0;j<trak->stdata_len-3; j++)
// printf("stdata[%d]=0x%X ize=0x%X\n",j,char2int(trak->stdata,j),MOV_FOURCC('z','l','i','b'));
// }
if( //trak->media_handler==MOV_FOURCC('s','p','r','t') &&
trak->stdata_len>=16 &&
char2int(trak->stdata,12)==MOV_FOURCC('z','l','i','b')
){
int newlen=stream_read_dword(demuxer->stream);
#ifdef HAVE_ZLIB
// unzip:
z_stream zstrm;
int zret;
char buf2[newlen];
len-=4;
stream_read(demuxer->stream, buf, len);
zstrm.zalloc = (alloc_func)0;
zstrm.zfree = (free_func)0;
zstrm.opaque = (voidpf)0;
zstrm.next_in = buf;
zstrm.avail_in = len;
zstrm.next_out = buf2;
zstrm.avail_out = newlen;
zret = inflateInit(&zstrm);
zret = inflate(&zstrm, Z_NO_FLUSH);
if(newlen != zstrm.total_out)
mp_msg(MSGT_DEMUX, MSGL_WARN, "Warning! unzipped frame size differs hdr: %d zlib: %ld\n",newlen,zstrm.total_out);
write(fd, buf2, newlen);
} else {
#else
len-=4;
mp_msg(MSGT_DEMUX, MSGL_INFO, "******* ZLIB COMPRESSED SAMPLE!!!!! (%d->%d bytes) *******\n",len,newlen);
}
{
#endif
stream_read(demuxer->stream, buf, len);
write(fd, buf, len);
}
close(fd);
}
}
}
}
demuxer->stream->eof = 0;
#endif
return demuxer;
}
/**
* \brief return the mov track that belongs to a demuxer stream
* \param ds the demuxer stream, may be NULL
* \return the mov track info structure belonging to the stream,
* NULL if not found
*/
static mov_track_t *stream_track(mov_priv_t *priv, demux_stream_t *ds) {
if (ds && (ds->id >= 0) && (ds->id < priv->track_db))
return priv->tracks[ds->id];
return NULL;
}
// return value:
// 0 = EOF or no stream found
// 1 = successfully read a packet
static int demux_mov_fill_buffer(demuxer_t *demuxer,demux_stream_t* ds){
mov_priv_t* priv=demuxer->priv;
mov_track_t* trak=NULL;
float pts;
int x;
off_t pos;
if (ds->eof) return 0;
trak = stream_track(priv, ds);
if (!trak) return 0;
if(trak->samplesize){
// read chunk:
if(trak->pos>=trak->chunks_size) return 0; // EOF
stream_seek(demuxer->stream,trak->chunks[trak->pos].pos);
pts=(float)(trak->chunks[trak->pos].sample*trak->duration)/(float)trak->timescale;
if(trak->samplesize!=1)
{
mp_msg(MSGT_DEMUX, MSGL_DBG2, "WARNING! Samplesize(%d) != 1\n",
trak->samplesize);
if((trak->fourcc != MOV_FOURCC('t','w','o','s')) && (trak->fourcc != MOV_FOURCC('s','o','w','t')))
x=trak->chunks[trak->pos].size*trak->samplesize;
else
x=trak->chunks[trak->pos].size;
}
else
x=trak->chunks[trak->pos].size;
// printf("X = %d\n", x);
/* the following stuff is audio related */
if (trak->type == MOV_TRAK_AUDIO){
if(trak->stdata_len>=44 && trak->stdata[9]>=1 && char2int(trak->stdata,28)>0){
// stsd version 1 - we have audio compression ratio info:
x/=char2int(trak->stdata,28); // samples/packet
// x*=char2int(trak->stdata,32); // bytes/packet
x*=char2int(trak->stdata,36); // bytes/frame
} else {
if(ds->ss_div && ds->ss_mul){
// workaround for buggy files like 7up-high-traffic-areas.mov,
// with missing stsd v1 header containing compression rate
x/=ds->ss_div; x*=ds->ss_mul; // compression ratio fix ! HACK !
} else {
x*=trak->nchannels;
x*=trak->samplebytes;
}
}
mp_msg(MSGT_DEMUX, MSGL_DBG2, "Audio sample %d bytes pts %5.3f\n",trak->chunks[trak->pos].size*trak->samplesize,pts);
} /* MOV_TRAK_AUDIO */
pos=trak->chunks[trak->pos].pos;
} else {
int frame=trak->pos;
// editlist support:
if(trak->type == MOV_TRAK_VIDEO && trak->editlist_size>=1){
// find the right editlist entry:
if(frame<trak->editlist[trak->editlist_pos].start_frame)
trak->editlist_pos=0;
while(trak->editlist_pos<trak->editlist_size-1 &&
frame>=trak->editlist[trak->editlist_pos+1].start_frame)
++trak->editlist_pos;
if(frame>=trak->editlist[trak->editlist_pos].start_frame+
trak->editlist[trak->editlist_pos].frames) return 0; // EOF
// calc real frame index:
frame-=trak->editlist[trak->editlist_pos].start_frame;
frame+=trak->editlist[trak->editlist_pos].start_sample;
// calc pts:
pts=(float)(trak->samples[frame].pts+
trak->editlist[trak->editlist_pos].pts_offset)/(float)trak->timescale;
} else {
if(frame>=trak->samples_size) return 0; // EOF
pts=(float)trak->samples[frame].pts/(float)trak->timescale;
}
// read sample:
stream_seek(demuxer->stream,trak->samples[frame].pos);
x=trak->samples[frame].size;
pos=trak->samples[frame].pos;
}
if(trak->pos==0 && trak->stream_header_len>0){
// we have to append the stream header...
demux_packet_t* dp=new_demux_packet(x+trak->stream_header_len);
memcpy(dp->buffer,trak->stream_header,trak->stream_header_len);
stream_read(demuxer->stream,dp->buffer+trak->stream_header_len,x);
free(trak->stream_header);
trak->stream_header = NULL;
trak->stream_header_len = 0;
dp->pts=pts;
dp->flags=0;
dp->pos=pos; // FIXME?
ds_add_packet(ds,dp);
} else
ds_read_packet(ds,demuxer->stream,x,pts,pos,0);
++trak->pos;
trak = NULL;
if (demuxer->sub->id >= 0 && demuxer->sub->id < priv->track_db)
trak = priv->tracks[demuxer->sub->id];
if (trak) {
int samplenr = 0;
while (samplenr < trak->samples_size) {
double subpts = (double)trak->samples[samplenr].pts / (double)trak->timescale;
if (subpts >= pts) break;
samplenr++;
}
samplenr--;
if (samplenr < 0)
vo_sub = NULL;
else if (samplenr != priv->current_sub) {
sh_sub_t *sh = demuxer->sub->sh;
off_t pos = trak->samples[samplenr].pos;
int len = trak->samples[samplenr].size;
double subpts = (double)trak->samples[samplenr].pts / (double)trak->timescale;
stream_seek(demuxer->stream, pos);
ds_read_packet(demuxer->sub, demuxer->stream, len, subpts, pos, 0);
priv->current_sub = samplenr;
}
}
return 1;
}
static float mov_seek_track(mov_track_t* trak,float pts,int flags){
// printf("MOV track seek called %5.3f \n",pts);
if(flags&SEEK_FACTOR) pts*=trak->length; else pts*=(float)trak->timescale;
if(trak->samplesize){
int sample=pts/trak->duration;
// printf("MOV track seek - chunk: %d (pts: %5.3f dur=%d) \n",sample,pts,trak->duration);
if(!(flags&SEEK_ABSOLUTE)) sample+=trak->chunks[trak->pos].sample; // relative
trak->pos=0;
while(trak->pos<trak->chunks_size && trak->chunks[trak->pos].sample<sample) ++trak->pos;
if (trak->pos == trak->chunks_size) return -1;
pts=(float)(trak->chunks[trak->pos].sample*trak->duration)/(float)trak->timescale;
} else {
unsigned int ipts;
if(!(flags&SEEK_ABSOLUTE)) pts+=trak->samples[trak->pos].pts;
if(pts<0) pts=0;
ipts=pts;
//printf("MOV track seek - sample: %d \n",ipts);
for(trak->pos=0;trak->pos<trak->samples_size;++trak->pos){
if(trak->samples[trak->pos].pts>=ipts) break; // found it!
}
if (trak->pos == trak->samples_size) return -1;
if(trak->keyframes_size){
// find nearest keyframe
int i;
for(i=0;i<trak->keyframes_size;i++){
if(trak->keyframes[i]>=trak->pos) break;
}
if (i == trak->keyframes_size) return -1;
if(i>0 && (trak->keyframes[i]-trak->pos) > (trak->pos-trak->keyframes[i-1]))
--i;
trak->pos=trak->keyframes[i];
// printf("nearest keyframe: %d \n",trak->pos);
}
pts=(float)trak->samples[trak->pos].pts/(float)trak->timescale;
}
// printf("MOV track seek done: %5.3f \n",pts);
return pts;
}
static void demux_seek_mov(demuxer_t *demuxer,float pts,float audio_delay,int flags){
mov_priv_t* priv=demuxer->priv;
demux_stream_t* ds;
mov_track_t* trak;
// printf("MOV seek called %5.3f flag=%d \n",pts,flags);
ds=demuxer->video;
trak = stream_track(priv, ds);
if (trak) {
//if(flags&2) pts*=(float)trak->length/(float)trak->timescale;
//if(!(flags&1)) pts+=ds->pts;
ds->pts=mov_seek_track(trak,pts,flags);
if (ds->pts < 0) ds->eof = 1;
else pts = ds->pts;
flags=1; // absolute seconds
}
ds=demuxer->audio;
trak = stream_track(priv, ds);
if (trak) {
//if(flags&2) pts*=(float)trak->length/(float)trak->timescale;
//if(!(flags&1)) pts+=ds->pts;
ds->pts=mov_seek_track(trak,pts,flags);
if (ds->pts < 0) ds->eof = 1;
}
}
static int demux_mov_control(demuxer_t *demuxer, int cmd, void *arg){
mov_track_t* track;
// try the video track
track = stream_track(demuxer->priv, demuxer->video);
if (!track || !track->length)
// otherwise try to get the info from the audio track
track = stream_track(demuxer->priv, demuxer->audio);
if (!track || !track->length)
return DEMUXER_CTRL_DONTKNOW;
switch(cmd) {
case DEMUXER_CTRL_GET_TIME_LENGTH:
if (!track->timescale)
return DEMUXER_CTRL_DONTKNOW;
*((double *)arg) = (double)track->length / track->timescale;
return DEMUXER_CTRL_OK;
case DEMUXER_CTRL_GET_PERCENT_POS:
{
off_t pos = track->pos;
if (track->durmap_size >= 1)
pos *= track->durmap[0].dur;
*((int *)arg) = (int)(100 * pos / track->length);
return DEMUXER_CTRL_OK;
}
}
return DEMUXER_CTRL_NOTIMPL;
}
const demuxer_desc_t demuxer_desc_mov = {
"Quicktime/MP4 demuxer",
"mov",
"Quicktime/MOV",
"Arpi, Al3x, Atmos, others",
"Handles Quicktime, MP4, 3GP",
DEMUXER_TYPE_MOV,
0, // slow autodetect
mov_check_file,
demux_mov_fill_buffer,
mov_read_header,
demux_close_mov,
demux_seek_mov,
demux_mov_control
};
Reference in New Issue View Git Blame Copy Permalink