libmpdemux/asfheader.c

   1 // .asf fileformat docs from http://divx.euro.ru
   2
   3
   4 #include <stdio.h>
   5 #include <stdlib.h>
   6 #include <unistd.h>
   7
   8 #include "config.h"
   9 #include "libavutil/common.h"
  10 #include "libavutil/intreadwrite.h"
  11 #include "mp_msg.h"
  12 #include "help_mp.h"
  13
  14 #include "stream/stream.h"
  15 #include "demuxer.h"
  16 #include "stheader.h"
  17
  18 #include "asf.h"
  19
  20 #include "asfguid.h"
  21
  22 typedef struct {
  23   // must be 0 for metadata record, might be non-zero for metadata lib record
  24   uint16_t lang_list_index;
  25   uint16_t stream_num;
  26   uint16_t name_length;
  27   uint16_t data_type;
  28   uint32_t data_length;
  29   uint16_t* name;
  30   void* data;
  31 } ASF_meta_record_t;
  32
  33 static char* get_ucs2str(const uint16_t* inbuf, uint16_t inlen)
  34 {
  35   char* outbuf = calloc(inlen, 2);
  36   char* q;
  37   int i;
  38
  39   if (!outbuf) {
  40     mp_msg(MSGT_HEADER, MSGL_ERR, MSGTR_MemAllocFailed);
  41     return NULL;
  42   }
  43   q = outbuf;
  44   for (i = 0; i < inlen / 2; i++) {
  45     uint8_t tmp;
  46     PUT_UTF8(AV_RL16(&inbuf[i]), tmp, *q++ = tmp;)
  47   }
  48   return outbuf;
  49 }
  50
  51 static const char* asf_chunk_type(unsigned char* guid) {
  52   static char tmp[60];
  53   char *p;
  54   int i;
  55
  56   switch(ASF_LOAD_GUID_PREFIX(guid)){
  57     case ASF_GUID_PREFIX_audio_stream:
  58       return "guid_audio_stream";
  59     case ASF_GUID_PREFIX_ext_audio_stream:
  60       return "guid_ext_audio_stream";
  61     case ASF_GUID_PREFIX_ext_stream_embed_stream_header:
  62       return "guid_ext_stream_embed_stream_header";
  63     case ASF_GUID_PREFIX_video_stream:
  64       return "guid_video_stream";
  65     case ASF_GUID_PREFIX_audio_conceal_none:
  66       return "guid_audio_conceal_none";
  67     case ASF_GUID_PREFIX_audio_conceal_interleave:
  68       return "guid_audio_conceal_interleave";
  69     case ASF_GUID_PREFIX_header:
  70       return "guid_header";
  71     case ASF_GUID_PREFIX_data_chunk:
  72       return "guid_data_chunk";
  73     case ASF_GUID_PREFIX_index_chunk:
  74       return "guid_index_chunk";
  75     case ASF_GUID_PREFIX_stream_header:
  76       return "guid_stream_header";
  77     case ASF_GUID_PREFIX_header_2_0:
  78       return "guid_header_2_0";
  79     case ASF_GUID_PREFIX_file_header:
  80       return "guid_file_header";
  81     case ASF_GUID_PREFIX_content_desc:
  82       return "guid_content_desc";
  83     case ASF_GUID_PREFIX_dvr_ms_timing_rep_data:
  84       return "guid_dvr_ms_timing_rep_data";
  85     case ASF_GUID_PREFIX_dvr_ms_vid_frame_rep_data:
  86       return "guid_dvr_ms_vid_frame_rep_data";
  87     default:
  88       strcpy(tmp, "unknown guid ");
  89       p = tmp + strlen(tmp);
  90       for (i = 0; i < 16; i++) {
  91         if ((1 << i) & ((1<<4) | (1<<6) | (1<<8))) *p++ = '-';
  92         sprintf(p, "%02x", guid[i]);
  93         p += 2;
  94       }
  95       return tmp;
  96   }
  97 }
  98
  99 int asf_check_header(demuxer_t *demuxer){
 100   unsigned char asfhdrguid[16]={0x30,0x26,0xB2,0x75,0x8E,0x66,0xCF,0x11,0xA6,0xD9,0x00,0xAA,0x00,0x62,0xCE,0x6C};
 101   struct asf_priv* asf = calloc(1,sizeof(*asf));
 102   asf->scrambling_h=asf->scrambling_w=asf->scrambling_b=1;
 103   stream_read(demuxer->stream,(char*) &asf->header,sizeof(asf->header)); // header obj
 104   le2me_ASF_header_t(&asf->header);                     // swap to machine endian
 105 //  for(i=0;i<16;i++) printf(" %02X",temp[i]);printf("\n");
 106 //  for(i=0;i<16;i++) printf(" %02X",asfhdrguid[i]);printf("\n");
 107   if(memcmp(asfhdrguid,asf->header.objh.guid,16)){
 108     mp_msg(MSGT_HEADER,MSGL_V,"ASF_check: not ASF guid!\n");
 109     free(asf);
 110     return 0; // not ASF guid
 111   }
 112   if(asf->header.cno>256){
 113     mp_msg(MSGT_HEADER,MSGL_V,"ASF_check: invalid subchunks_no %d\n",(int) asf->header.cno);
 114     free(asf);
 115     return 0; // invalid header???
 116   }
 117   demuxer->priv = asf;
 118   return DEMUXER_TYPE_ASF;
 119 }
 120
 121 void print_wave_header(WAVEFORMATEX *h, int verbose_level);
 122 void print_video_header(BITMAPINFOHEADER *h, int verbose_level);
 123
 124
 125 static int get_ext_stream_properties(char *buf, int buf_len, int stream_num, struct asf_priv* asf, int is_video)
 126 {
 127   int pos=0;
 128   uint8_t *buffer = &buf[0];
 129   uint64_t avg_ft;
 130   unsigned bitrate;
 131
 132   while ((pos = find_asf_guid(buf, asf_ext_stream_header, pos, buf_len)) >= 0) {
 133     int this_stream_num, stnamect, payct, i;
 134     int buf_max_index=pos+50;
 135     if (buf_max_index > buf_len) return 0;
 136     buffer = &buf[pos];
 137
 138     // the following info is available
 139     // some of it may be useful but we're skipping it for now
 140     // starttime(8 bytes), endtime(8),
 141     // leak-datarate(4), bucket-datasize(4), init-bucket-fullness(4),
 142     // alt-leak-datarate(4), alt-bucket-datasize(4), alt-init-bucket-fullness(4),
 143     // max-object-size(4),
 144     // flags(4) (reliable,seekable,no_cleanpoints?,resend-live-cleanpoints, rest of bits reserved)
 145
 146     buffer += 8+8;
 147     bitrate = AV_RL32(buffer);
 148     buffer += 8*4;
 149     this_stream_num=AV_RL16(buffer);buffer+=2;
 150
 151     if (this_stream_num == stream_num) {
 152       buf_max_index+=14;
 153       if (buf_max_index > buf_len) return 0;
 154       buffer+=2; //skip stream-language-id-index
 155       avg_ft = AV_RL64(buffer); // provided in 100ns units
 156       buffer+=8;
 157       asf->bps = bitrate / 8;
 158
 159       // after this are values for stream-name-count and
 160       // payload-extension-system-count
 161       // followed by associated info for each
 162       stnamect = AV_RL16(buffer);buffer+=2;
 163       payct = AV_RL16(buffer);buffer+=2;
 164
 165       // need to read stream names if present in order
 166       // to get lengths - values are ignored for now
 167       for (i=0; i<stnamect; i++) {
 168         int stream_name_len;
 169         buf_max_index+=4;
 170         if (buf_max_index > buf_len) return 0;
 171         buffer+=2; //language_id_index
 172         stream_name_len = AV_RL16(buffer);buffer+=2;
 173         buffer+=stream_name_len; //stream_name
 174         buf_max_index+=stream_name_len;
 175         if (buf_max_index > buf_len) return 0;
 176       }
 177
 178       if (is_video) {
 179         asf->vid_repdata_count = payct;
 180         asf->vid_repdata_sizes = malloc(payct*sizeof(int));
 181       } else {
 182         asf->aud_repdata_count = payct;
 183         asf->aud_repdata_sizes = malloc(payct*sizeof(int));
 184       }
 185
 186       for (i=0; i<payct; i++) {
 187         int payload_len;
 188         buf_max_index+=22;
 189         if (buf_max_index > buf_len) return 0;
 190         // Each payload extension definition starts with a GUID.
 191         // In dvr-ms files one of these indicates the presence an
 192         // extension that contains pts values and this is always present
 193         // in the video and audio streams.
 194         // Another GUID indicates the presence of an extension
 195         // that contains useful video frame demuxing information.
 196         // Note that the extension data in each packet does not contain
 197         // these GUIDs and that this header section defines the order the data
 198         // will appear in.
 199         if (memcmp(buffer, asf_dvr_ms_timing_rep_data, 16) == 0) {
 200           if (is_video)
 201             asf->vid_ext_timing_index = i;
 202           else
 203             asf->aud_ext_timing_index = i;
 204         } else if (is_video && memcmp(buffer, asf_dvr_ms_vid_frame_rep_data, 16) == 0)
 205           asf->vid_ext_frame_index = i;
 206         buffer+=16;
 207
 208         payload_len = AV_RL16(buffer);buffer+=2;
 209
 210         if (is_video)
 211           asf->vid_repdata_sizes[i] = payload_len;
 212         else
 213           asf->aud_repdata_sizes[i] = payload_len;
 214         buffer+=4;//sys_len
 215       }
 216
 217       return 1;
 218     }
 219   }
 220   return 1;
 221 }
 222
 223 #define CHECKDEC(l, n) if (((l) -= (n)) < 0) return 0
 224 static char* read_meta_record(ASF_meta_record_t* dest, char* buf,
 225     int* buf_len)
 226 {
 227   CHECKDEC(*buf_len, 2 + 2 + 2 + 2 + 4);
 228   dest->lang_list_index = AV_RL16(buf);
 229   dest->stream_num = AV_RL16(&buf[2]);
 230   dest->name_length = AV_RL16(&buf[4]);
 231   dest->data_type = AV_RL16(&buf[6]);
 232   dest->data_length = AV_RL32(&buf[8]);
 233   buf += 2 + 2 + 2 + 2 + 4;
 234   CHECKDEC(*buf_len, dest->name_length);
 235   dest->name = (uint16_t*)buf;
 236   buf += dest->name_length;
 237   CHECKDEC(*buf_len, dest->data_length);
 238   dest->data = buf;
 239   buf += dest->data_length;
 240   return buf;
 241 }
 242
 243 static int get_meta(char *buf, int buf_len, int this_stream_num,
 244     float* asp_ratio)
 245 {
 246   int pos = 0;
 247   uint16_t records_count;
 248   uint16_t x = 0, y = 0;
 249
 250   if ((pos = find_asf_guid(buf, asf_metadata_header, pos, buf_len)) < 0)
 251     return 0;
 252
 253   CHECKDEC(buf_len, pos);
 254   buf += pos;
 255   CHECKDEC(buf_len, 2);
 256   records_count = AV_RL16(buf);
 257   buf += 2;
 258
 259   while (records_count--) {
 260     ASF_meta_record_t record_entry;
 261     char* name;
 262
 263     if (!(buf = read_meta_record(&record_entry, buf, &buf_len)))
 264         return 0;
 265     /* reserved, must be zero */
 266     if (record_entry.lang_list_index)
 267       continue;
 268     /* match stream number: 0 to match all */
 269     if (record_entry.stream_num && record_entry.stream_num != this_stream_num)
 270       continue;
 271     if (!(name = get_ucs2str(record_entry.name, record_entry.name_length))) {
 272       mp_msg(MSGT_HEADER, MSGL_ERR, MSGTR_MemAllocFailed);
 273       continue;
 274     }
 275     if (strcmp(name, "AspectRatioX") == 0)
 276       x = AV_RL16(record_entry.data);
 277     else if (strcmp(name, "AspectRatioY") == 0)
 278       y = AV_RL16(record_entry.data);
 279     free(name);
 280   }
 281   if (x && y) {
 282     *asp_ratio = (float)x / (float)y;
 283     return 1;
 284   }
 285   return 0;
 286 }
 287
 288 static int is_drm(char* buf, int buf_len)
 289 {
 290   uint32_t data_len, type_len, key_len, url_len;
 291   int pos = find_asf_guid(buf, asf_content_encryption, 0, buf_len);
 292
 293   if (pos < 0)
 294     return 0;
 295
 296   CHECKDEC(buf_len, pos + 4);
 297   buf += pos;
 298   data_len = AV_RL32(buf);
 299   buf += 4;
 300   CHECKDEC(buf_len, data_len);
 301   buf += data_len;
 302   type_len = AV_RL32(buf);
 303   if (type_len < 4)
 304     return 0;
 305   CHECKDEC(buf_len, 4 + type_len + 4);
 306   buf += 4;
 307
 308   if (buf[0] != 'D' || buf[1] != 'R' || buf[2] != 'M' || buf[3] != '\0')
 309     return 0;
 310
 311   buf += type_len;
 312   key_len = AV_RL32(buf);
 313   CHECKDEC(buf_len, key_len + 4);
 314   buf += 4;
 315
 316   buf[key_len - 1] = '\0';
 317   mp_msg(MSGT_HEADER, MSGL_V, "DRM Key ID: %s\n", buf);
 318
 319   buf += key_len;
 320   url_len = AV_RL32(buf);
 321   CHECKDEC(buf_len, url_len);
 322   buf += 4;
 323
 324   buf[url_len - 1] = '\0';
 325   mp_msg(MSGT_HEADER, MSGL_INFO, MSGTR_MPDEMUX_ASFHDR_DRMLicenseURL, buf);
 326   return 1;
 327 }
 328
 329 static int asf_init_audio_stream(demuxer_t *demuxer,struct asf_priv* asf, sh_audio_t* sh_audio, ASF_stream_header_t *streamh, int *ppos, uint8_t** buf, char *hdr, unsigned int hdr_len)
 330 {
 331   uint8_t *buffer = *buf;
 332   int pos = *ppos;
 333
 334   sh_audio->wf=calloc((streamh->type_size<sizeof(WAVEFORMATEX))?sizeof(WAVEFORMATEX):streamh->type_size,1);
 335   memcpy(sh_audio->wf,buffer,streamh->type_size);
 336   le2me_WAVEFORMATEX(sh_audio->wf);
 337   if( mp_msg_test(MSGT_HEADER,MSGL_V) ) print_wave_header(sh_audio->wf,MSGL_V);
 338   if(ASF_LOAD_GUID_PREFIX(streamh->concealment)==ASF_GUID_PREFIX_audio_conceal_interleave){
 339     buffer = &hdr[pos];
 340     pos += streamh->stream_size;
 341     if (pos > hdr_len) return 0;
 342     asf->scrambling_h=buffer[0];
 343     asf->scrambling_w=(buffer[2]<<8)|buffer[1];
 344     asf->scrambling_b=(buffer[4]<<8)|buffer[3];
 345     if(asf->scrambling_b>0){
 346       asf->scrambling_w/=asf->scrambling_b;
 347     }
 348   } else {
 349     asf->scrambling_b=asf->scrambling_h=asf->scrambling_w=1;
 350   }
 351   mp_msg(MSGT_HEADER,MSGL_V,"ASF: audio scrambling: %d x %d x %d\n",asf->scrambling_h,asf->scrambling_w,asf->scrambling_b);
 352   return 1;
 353 }
 354
 355 static int find_backwards_asf_guid(char *buf, const char *guid, int cur_pos)
 356 {
 357   int i;
 358   for (i=cur_pos-16; i>0; i--) {
 359     if (memcmp(&buf[i], guid, 16) == 0)
 360       return i + 16 + 8; // point after guid + length
 361   }
 362   return -1;
 363 }
 364
 365 int read_asf_header(demuxer_t *demuxer,struct asf_priv* asf){
 366   int hdr_len = asf->header.objh.size - sizeof(asf->header);
 367   int hdr_skip = 0;
 368   char *hdr = NULL;
 369   char guid_buffer[16];
 370   int pos, start = stream_tell(demuxer->stream);
 371   uint32_t* streams = NULL;
 372   int audio_streams=0;
 373   int video_streams=0;
 374   uint16_t stream_count=0;
 375   int best_video = -1;
 376   int best_audio = -1;
 377   uint64_t data_len;
 378   ASF_stream_header_t *streamh;
 379   uint8_t *buffer;
 380   int audio_pos=0;
 381
 382   if(hdr_len < 0) {
 383     mp_msg(MSGT_HEADER, MSGL_FATAL, "Header size is too small.\n");
 384     return 0;
 385   }
 386
 387   if (hdr_len > 1024 * 1024) {
 388     mp_msg(MSGT_HEADER, MSGL_ERR, MSGTR_MPDEMUX_ASFHDR_HeaderSizeOver1MB,
 389                         hdr_len);
 390     hdr_skip = hdr_len - 1024 * 1024;
 391     hdr_len = 1024 * 1024;
 392   }
 393   hdr = malloc(hdr_len);
 394   if (!hdr) {
 395     mp_msg(MSGT_HEADER, MSGL_FATAL, MSGTR_MPDEMUX_ASFHDR_HeaderMallocFailed,
 396             hdr_len);
 397     return 0;
 398   }
 399   stream_read(demuxer->stream, hdr, hdr_len);
 400   if (hdr_skip)
 401     stream_skip(demuxer->stream, hdr_skip);
 402   if (stream_eof(demuxer->stream)) {
 403     mp_msg(MSGT_HEADER, MSGL_FATAL, MSGTR_MPDEMUX_ASFHDR_EOFWhileReadingHeader);
 404     goto err_out;
 405   }
 406
 407   if (is_drm(hdr, hdr_len))
 408     mp_msg(MSGT_HEADER, MSGL_FATAL, MSGTR_MPDEMUX_ASFHDR_DRMProtected);
 409
 410   if ((pos = find_asf_guid(hdr, asf_ext_stream_audio, 0, hdr_len)) >= 0)
 411   {
 412     // Special case: found GUID for dvr-ms audio.
 413     // Now skip back to associated stream header.
 414     int sh_pos=0;
 415
 416     sh_pos = find_backwards_asf_guid(hdr, asf_stream_header_guid, pos);
 417
 418     if (sh_pos > 0) {
 419       sh_audio_t *sh_audio;
 420
 421        mp_msg(MSGT_HEADER, MSGL_V, "read_asf_header found dvr-ms audio stream header pos=%d\n", sh_pos);
 422       // found audio stream header - following code reads header and
 423       // initializes audio stream.
 424       audio_pos = pos - 16 - 8;
 425       streamh = (ASF_stream_header_t *)&hdr[sh_pos];
 426       le2me_ASF_stream_header_t(streamh);
 427       audio_pos += 64; //16+16+4+4+4+16+4;
 428       buffer = &hdr[audio_pos];
 429       sh_audio=new_sh_audio(demuxer,streamh->stream_no & 0x7F);
 430       mp_msg(MSGT_DEMUX, MSGL_INFO, MSGTR_AudioID, "asfheader", streamh->stream_no & 0x7F);
 431       ++audio_streams;
 432       if (!asf_init_audio_stream(demuxer, asf, sh_audio, streamh, &audio_pos, &buffer, hdr, hdr_len))
 433         goto len_err_out;
 434       if (!get_ext_stream_properties(hdr, hdr_len, streamh->stream_no, asf, 0))
 435         goto len_err_out;
 436     }
 437   }
 438   // find stream headers
 439   // only reset pos if we didnt find dvr_ms audio stream
 440   // if we did find it then we want to avoid reading its header twice
 441   if (audio_pos == 0)
 442     pos = 0;
 443
 444   while ((pos = find_asf_guid(hdr, asf_stream_header_guid, pos, hdr_len)) >= 0)
 445   {
 446     streamh = (ASF_stream_header_t *)&hdr[pos];
 447     pos += sizeof(ASF_stream_header_t);
 448     if (pos > hdr_len) goto len_err_out;
 449     le2me_ASF_stream_header_t(streamh);
 450     mp_msg(MSGT_HEADER, MSGL_V, "stream type: %s\n",
 451             asf_chunk_type(streamh->type));
 452     mp_msg(MSGT_HEADER, MSGL_V, "stream concealment: %s\n",
 453             asf_chunk_type(streamh->concealment));
 454     mp_msg(MSGT_HEADER, MSGL_V, "type: %d bytes,  stream: %d bytes  ID: %d\n",
 455             (int)streamh->type_size, (int)streamh->stream_size,
 456             (int)streamh->stream_no);
 457     mp_msg(MSGT_HEADER, MSGL_V, "unk1: %lX  unk2: %X\n",
 458             (unsigned long)streamh->unk1, (unsigned int)streamh->unk2);
 459     mp_msg(MSGT_HEADER, MSGL_V, "FILEPOS=0x%X\n", pos + start);
 460     // type-specific data:
 461     buffer = &hdr[pos];
 462     pos += streamh->type_size;
 463     if (pos > hdr_len) goto len_err_out;
 464     switch(ASF_LOAD_GUID_PREFIX(streamh->type)){
 465       case ASF_GUID_PREFIX_audio_stream: {
 466         sh_audio_t* sh_audio=new_sh_audio(demuxer,streamh->stream_no & 0x7F);
 467         mp_msg(MSGT_DEMUX, MSGL_INFO, MSGTR_AudioID, "asfheader", streamh->stream_no & 0x7F);
 468         ++audio_streams;
 469         if (!asf_init_audio_stream(demuxer, asf, sh_audio, streamh, &pos, &buffer, hdr, hdr_len))
 470           goto len_err_out;
 471         //if(demuxer->audio->id==-1) demuxer->audio->id=streamh.stream_no & 0x7F;
 472         break;
 473         }
 474       case ASF_GUID_PREFIX_video_stream: {
 475         unsigned int len;
 476         float asp_ratio;
 477         sh_video_t* sh_video=new_sh_video(demuxer,streamh->stream_no & 0x7F);
 478         mp_msg(MSGT_DEMUX, MSGL_INFO, MSGTR_VideoID, "asfheader", streamh->stream_no & 0x7F);
 479         len=streamh->type_size-(4+4+1+2);
 480         ++video_streams;
 481 //        sh_video->bih=malloc(chunksize); memset(sh_video->bih,0,chunksize);
 482         sh_video->bih=calloc((len<sizeof(BITMAPINFOHEADER))?sizeof(BITMAPINFOHEADER):len,1);
 483         memcpy(sh_video->bih,&buffer[4+4+1+2],len);
 484         le2me_BITMAPINFOHEADER(sh_video->bih);
 485         if (sh_video->bih->biSize > len && sh_video->bih->biSize > sizeof(BITMAPINFOHEADER))
 486                 sh_video->bih->biSize = len;
 487         if (sh_video->bih->biCompression == mmioFOURCC('D', 'V', 'R', ' ')) {
 488           //mp_msg(MSGT_DEMUXER, MSGL_WARN, MSGTR_MPDEMUX_ASFHDR_DVRWantsLibavformat);
 489           //sh_video->fps=(float)sh_video->video.dwRate/(float)sh_video->video.dwScale;
 490           //sh_video->frametime=(float)sh_video->video.dwScale/(float)sh_video->video.dwRate;
 491           asf->asf_frame_state=-1;
 492           asf->asf_frame_start_found=0;
 493           asf->asf_is_dvr_ms=1;
 494           asf->dvr_last_vid_pts=0.0;
 495         } else asf->asf_is_dvr_ms=0;
 496         if (!get_ext_stream_properties(hdr, hdr_len, streamh->stream_no, asf, 1))
 497             goto len_err_out;
 498         if (get_meta(hdr, hdr_len, streamh->stream_no, &asp_ratio)) {
 499           sh_video->aspect = asp_ratio * sh_video->bih->biWidth /
 500             sh_video->bih->biHeight;
 501         }
 502         sh_video->i_bps = asf->bps;
 503
 504         if( mp_msg_test(MSGT_DEMUX,MSGL_V) ) print_video_header(sh_video->bih, MSGL_V);
 505         //asf_video_id=streamh.stream_no & 0x7F;
 506         //if(demuxer->video->id==-1) demuxer->video->id=streamh.stream_no & 0x7F;
 507         break;
 508         }
 509       }
 510       // stream-specific data:
 511       // stream_read(demuxer->stream,(char*) buffer,streamh.stream_size);
 512   }
 513
 514   // find file header
 515   pos = find_asf_guid(hdr, asf_file_header_guid, 0, hdr_len);
 516   if (pos >= 0) {
 517       ASF_file_header_t *fileh = (ASF_file_header_t *)&hdr[pos];
 518       pos += sizeof(ASF_file_header_t);
 519       if (pos > hdr_len) goto len_err_out;
 520       le2me_ASF_file_header_t(fileh);
 521       mp_msg(MSGT_HEADER, MSGL_V, "ASF: packets: %d  flags: %d  "
 522               "max_packet_size: %d  min_packet_size: %d  max_bitrate: %d  "
 523               "preroll: %d\n",
 524               (int)fileh->num_packets, (int)fileh->flags,
 525               (int)fileh->min_packet_size, (int)fileh->max_packet_size,
 526               (int)fileh->max_bitrate, (int)fileh->preroll);
 527       asf->packetsize=fileh->max_packet_size;
 528       asf->packet=malloc(asf->packetsize); // !!!
 529       asf->packetrate=fileh->max_bitrate/8.0/(double)asf->packetsize;
 530       asf->movielength=(fileh->play_duration-fileh->preroll)/10000000LL;
 531   }
 532
 533   // find content header
 534   pos = find_asf_guid(hdr, asf_content_desc_guid, 0, hdr_len);
 535   if (pos >= 0) {
 536         ASF_content_description_t *contenth = (ASF_content_description_t *)&hdr[pos];
 537         char *string=NULL;
 538         uint16_t* wstring = NULL;
 539         uint16_t len;
 540         pos += sizeof(ASF_content_description_t);
 541         if (pos > hdr_len) goto len_err_out;
 542         le2me_ASF_content_description_t(contenth);
 543         mp_msg(MSGT_HEADER,MSGL_V,"\n");
 544         // extract the title
 545         if((len = contenth->title_size) != 0) {
 546           wstring = (uint16_t*)&hdr[pos];
 547           pos += len;
 548           if (pos > hdr_len) goto len_err_out;
 549           if ((string = get_ucs2str(wstring, len))) {
 550             mp_msg(MSGT_HEADER,MSGL_V," Title: %s\n", string);
 551             demux_info_add(demuxer, "name", string);
 552             free(string);
 553           }
 554         }
 555         // extract the author
 556         if((len = contenth->author_size) != 0) {
 557           wstring = (uint16_t*)&hdr[pos];
 558           pos += len;
 559           if (pos > hdr_len) goto len_err_out;
 560           if ((string = get_ucs2str(wstring, len))) {
 561             mp_msg(MSGT_HEADER,MSGL_V," Author: %s\n", string);
 562             demux_info_add(demuxer, "author", string);
 563             free(string);
 564           }
 565         }
 566         // extract the copyright
 567         if((len = contenth->copyright_size) != 0) {
 568           wstring = (uint16_t*)&hdr[pos];
 569           pos += len;
 570           if (pos > hdr_len) goto len_err_out;
 571           if ((string = get_ucs2str(wstring, len))) {
 572             mp_msg(MSGT_HEADER,MSGL_V," Copyright: %s\n", string);
 573             demux_info_add(demuxer, "copyright", string);
 574             free(string);
 575           }
 576         }
 577         // extract the comment
 578         if((len = contenth->comment_size) != 0) {
 579           wstring = (uint16_t*)&hdr[pos];
 580           pos += len;
 581           if (pos > hdr_len) goto len_err_out;
 582           if ((string = get_ucs2str(wstring, len))) {
 583             mp_msg(MSGT_HEADER,MSGL_V," Comment: %s\n", string);
 584             demux_info_add(demuxer, "comments", string);
 585             free(string);
 586           }
 587         }
 588         // extract the rating
 589         if((len = contenth->rating_size) != 0) {
 590           wstring = (uint16_t*)&hdr[pos];
 591           pos += len;
 592           if (pos > hdr_len) goto len_err_out;
 593           if ((string = get_ucs2str(wstring, len))) {
 594             mp_msg(MSGT_HEADER,MSGL_V," Rating: %s\n", string);
 595             free(string);
 596           }
 597         }
 598         mp_msg(MSGT_HEADER,MSGL_V,"\n");
 599   }
 600
 601   // find content header
 602   pos = find_asf_guid(hdr, asf_stream_group_guid, 0, hdr_len);
 603   if (pos >= 0) {
 604         int max_streams = (hdr_len - pos - 2) / 6;
 605         uint16_t stream_id, i;
 606         uint32_t max_bitrate;
 607         char *ptr = &hdr[pos];
 608         mp_msg(MSGT_HEADER,MSGL_V,"============ ASF Stream group == START ===\n");
 609         if(max_streams <= 0) goto len_err_out;
 610         stream_count = AV_RL16(ptr);
 611         ptr += sizeof(uint16_t);
 612         if(stream_count > max_streams) stream_count = max_streams;
 613         if(stream_count > 0)
 614               streams = malloc(2*stream_count*sizeof(uint32_t));
 615         mp_msg(MSGT_HEADER,MSGL_V," stream count=[0x%x][%u]\n", stream_count, stream_count );
 616         for( i=0 ; i<stream_count ; i++ ) {
 617           stream_id = AV_RL16(ptr);
 618           ptr += sizeof(uint16_t);
 619           memcpy(&max_bitrate, ptr, sizeof(uint32_t));// workaround unaligment bug on sparc
 620           max_bitrate = le2me_32(max_bitrate);
 621           ptr += sizeof(uint32_t);
 622           mp_msg(MSGT_HEADER,MSGL_V,"   stream id=[0x%x][%u]\n", stream_id, stream_id );
 623           mp_msg(MSGT_HEADER,MSGL_V,"   max bitrate=[0x%x][%u]\n", max_bitrate, max_bitrate );
 624           streams[2*i] = stream_id;
 625           streams[2*i+1] = max_bitrate;
 626         }
 627         mp_msg(MSGT_HEADER,MSGL_V,"============ ASF Stream group == END ===\n");
 628   }
 629   free(hdr);
 630   hdr = NULL;
 631   start = stream_tell(demuxer->stream); // start of first data chunk
 632   stream_read(demuxer->stream, guid_buffer, 16);
 633   if (memcmp(guid_buffer, asf_data_chunk_guid, 16) != 0) {
 634     mp_msg(MSGT_HEADER, MSGL_FATAL, MSGTR_MPDEMUX_ASFHDR_NoDataChunkAfterHeader);
 635     free(streams);
 636     streams = NULL;
 637     return 0;
 638   }
 639   // read length of chunk
 640   stream_read(demuxer->stream, (char *)&data_len, sizeof(data_len));
 641   data_len = le2me_64(data_len);
 642   demuxer->movi_start = stream_tell(demuxer->stream) + 26;
 643   demuxer->movi_end = start + data_len;
 644   mp_msg(MSGT_HEADER, MSGL_V, "Found movie at 0x%X - 0x%X\n",
 645           (int)demuxer->movi_start, (int)demuxer->movi_end);
 646
 647 if(streams) {
 648   // stream selection is done in the network code, it shouldn't be done here
 649   // as the servers often do not care about what we requested.
 650 #if 0
 651   uint32_t vr = 0, ar = 0,i;
 652 #ifdef CONFIG_NETWORK
 653   if( demuxer->stream->streaming_ctrl!=NULL ) {
 654           if( demuxer->stream->streaming_ctrl->bandwidth!=0 && demuxer->stream->streaming_ctrl->data!=NULL ) {
 655                   best_audio = ((asf_http_streaming_ctrl_t*)demuxer->stream->streaming_ctrl->data)->audio_id;
 656                   best_video = ((asf_http_streaming_ctrl_t*)demuxer->stream->streaming_ctrl->data)->video_id;
 657           }
 658   } else
 659 #endif
 660   for(i = 0; i < stream_count; i++) {
 661     uint32_t id = streams[2*i];
 662     uint32_t rate = streams[2*i+1];
 663     if(demuxer->v_streams[id] && rate > vr) {
 664       vr = rate;
 665       best_video = id;
 666     } else if(demuxer->a_streams[id] && rate > ar) {
 667       ar = rate;
 668       best_audio = id;
 669     }
 670   }
 671 #endif
 672   free(streams);
 673   streams = NULL;
 674 }
 675
 676 mp_msg(MSGT_HEADER,MSGL_V,"ASF: %d audio and %d video streams found\n",audio_streams,video_streams);
 677 if(!audio_streams) demuxer->audio->id=-2;  // nosound
 678 else if(best_audio > 0 && demuxer->audio->id == -1) demuxer->audio->id=best_audio;
 679 if(!video_streams){
 680     if(!audio_streams){
 681         mp_msg(MSGT_HEADER,MSGL_ERR,MSGTR_MPDEMUX_ASFHDR_AudioVideoHeaderNotFound);
 682         return 0;
 683     }
 684     demuxer->video->id=-2; // audio-only
 685 } else if (best_video > 0 && demuxer->video->id == -1) demuxer->video->id = best_video;
 686
 687 #if 0
 688 if( mp_msg_test(MSGT_HEADER,MSGL_V) ){
 689     printf("ASF duration: %d\n",(int)fileh.duration);
 690     printf("ASF start pts: %d\n",(int)fileh.start_timestamp);
 691     printf("ASF end pts: %d\n",(int)fileh.end_timestamp);
 692 }
 693 #endif
 694
 695 return 1;
 696
 697 len_err_out:
 698   mp_msg(MSGT_HEADER, MSGL_FATAL, MSGTR_MPDEMUX_ASFHDR_InvalidLengthInASFHeader);
 699 err_out:
 700   if (hdr) free(hdr);
 701   if (streams) free(streams);
 702   return 0;
 703 }