libavformat/rmdec.c

   1 /*
   2  * "Real" compatible demuxer.
   3  * Copyright (c) 2000, 2001 Fabrice Bellard.
   4  *
   5  * This file is part of FFmpeg.
   6  *
   7  * FFmpeg is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * FFmpeg is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with FFmpeg; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  20  */
  21
  22 #include "libavutil/avstring.h"
  23 #include "avformat.h"
  24 #include "rm.h"
  25
  26 static inline void get_strl(ByteIOContext *pb, char *buf, int buf_size, int len)
  27 {
  28     int i;
  29     char *q, r;
  30
  31     q = buf;
  32     for(i=0;i<len;i++) {
  33         r = get_byte(pb);
  34         if (i < buf_size - 1)
  35             *q++ = r;
  36     }
  37     if (buf_size > 0) *q = '\0';
  38 }
  39
  40 static void get_str16(ByteIOContext *pb, char *buf, int buf_size)
  41 {
  42     get_strl(pb, buf, buf_size, get_be16(pb));
  43 }
  44
  45 static void get_str8(ByteIOContext *pb, char *buf, int buf_size)
  46 {
  47     get_strl(pb, buf, buf_size, get_byte(pb));
  48 }
  49
  50 static int rm_read_audio_stream_info(AVFormatContext *s, AVStream *st,
  51                                       int read_all)
  52 {
  53     RMContext *rm = s->priv_data;
  54     ByteIOContext *pb = s->pb;
  55     char buf[256];
  56     uint32_t version;
  57     int i;
  58
  59     /* ra type header */
  60     version = get_be32(pb); /* version */
  61     if (((version >> 16) & 0xff) == 3) {
  62         int64_t startpos = url_ftell(pb);
  63         /* very old version */
  64         for(i = 0; i < 14; i++)
  65             get_byte(pb);
  66         get_str8(pb, s->title, sizeof(s->title));
  67         get_str8(pb, s->author, sizeof(s->author));
  68         get_str8(pb, s->copyright, sizeof(s->copyright));
  69         get_str8(pb, s->comment, sizeof(s->comment));
  70         if ((startpos + (version & 0xffff)) >= url_ftell(pb) + 2) {
  71         // fourcc (should always be "lpcJ")
  72         get_byte(pb);
  73         get_str8(pb, buf, sizeof(buf));
  74         }
  75         // Skip extra header crap (this should never happen)
  76         if ((startpos + (version & 0xffff)) > url_ftell(pb))
  77             url_fskip(pb, (version & 0xffff) + startpos - url_ftell(pb));
  78         st->codec->sample_rate = 8000;
  79         st->codec->channels = 1;
  80         st->codec->codec_type = CODEC_TYPE_AUDIO;
  81         st->codec->codec_id = CODEC_ID_RA_144;
  82     } else {
  83         int flavor, sub_packet_h, coded_framesize, sub_packet_size;
  84         /* old version (4) */
  85         get_be32(pb); /* .ra4 */
  86         get_be32(pb); /* data size */
  87         get_be16(pb); /* version2 */
  88         get_be32(pb); /* header size */
  89         flavor= get_be16(pb); /* add codec info / flavor */
  90         rm->coded_framesize = coded_framesize = get_be32(pb); /* coded frame size */
  91         get_be32(pb); /* ??? */
  92         get_be32(pb); /* ??? */
  93         get_be32(pb); /* ??? */
  94         rm->sub_packet_h = sub_packet_h = get_be16(pb); /* 1 */
  95         st->codec->block_align= get_be16(pb); /* frame size */
  96         rm->sub_packet_size = sub_packet_size = get_be16(pb); /* sub packet size */
  97         get_be16(pb); /* ??? */
  98         if (((version >> 16) & 0xff) == 5) {
  99             get_be16(pb); get_be16(pb); get_be16(pb); }
 100         st->codec->sample_rate = get_be16(pb);
 101         get_be32(pb);
 102         st->codec->channels = get_be16(pb);
 103         if (((version >> 16) & 0xff) == 5) {
 104             get_be32(pb);
 105             buf[0] = get_byte(pb);
 106             buf[1] = get_byte(pb);
 107             buf[2] = get_byte(pb);
 108             buf[3] = get_byte(pb);
 109             buf[4] = 0;
 110         } else {
 111             get_str8(pb, buf, sizeof(buf)); /* desc */
 112             get_str8(pb, buf, sizeof(buf)); /* desc */
 113         }
 114         st->codec->codec_type = CODEC_TYPE_AUDIO;
 115         if (!strcmp(buf, "dnet")) {
 116             st->codec->codec_id = CODEC_ID_AC3;
 117             st->need_parsing = AVSTREAM_PARSE_FULL;
 118         } else if (!strcmp(buf, "28_8")) {
 119             st->codec->codec_id = CODEC_ID_RA_288;
 120             st->codec->extradata_size= 0;
 121             rm->audio_framesize = st->codec->block_align;
 122             st->codec->block_align = coded_framesize;
 123
 124             if(rm->audio_framesize >= UINT_MAX / sub_packet_h){
 125                 av_log(s, AV_LOG_ERROR, "rm->audio_framesize * sub_packet_h too large\n");
 126                 return -1;
 127             }
 128
 129             rm->audiobuf = av_malloc(rm->audio_framesize * sub_packet_h);
 130         } else if ((!strcmp(buf, "cook")) || (!strcmp(buf, "atrc"))) {
 131             int codecdata_length, i;
 132             get_be16(pb); get_byte(pb);
 133             if (((version >> 16) & 0xff) == 5)
 134                 get_byte(pb);
 135             codecdata_length = get_be32(pb);
 136             if(codecdata_length + FF_INPUT_BUFFER_PADDING_SIZE <= (unsigned)codecdata_length){
 137                 av_log(s, AV_LOG_ERROR, "codecdata_length too large\n");
 138                 return -1;
 139             }
 140
 141             if (!strcmp(buf, "cook")) st->codec->codec_id = CODEC_ID_COOK;
 142             else st->codec->codec_id = CODEC_ID_ATRAC3;
 143             st->codec->extradata_size= codecdata_length;
 144             st->codec->extradata= av_mallocz(st->codec->extradata_size + FF_INPUT_BUFFER_PADDING_SIZE);
 145             for(i = 0; i < codecdata_length; i++)
 146                 ((uint8_t*)st->codec->extradata)[i] = get_byte(pb);
 147             rm->audio_framesize = st->codec->block_align;
 148             st->codec->block_align = rm->sub_packet_size;
 149
 150             if(rm->audio_framesize >= UINT_MAX / sub_packet_h){
 151                 av_log(s, AV_LOG_ERROR, "rm->audio_framesize * sub_packet_h too large\n");
 152                 return -1;
 153             }
 154
 155             rm->audiobuf = av_malloc(rm->audio_framesize * sub_packet_h);
 156         } else if (!strcmp(buf, "raac") || !strcmp(buf, "racp")) {
 157             int codecdata_length, i;
 158             get_be16(pb); get_byte(pb);
 159             if (((version >> 16) & 0xff) == 5)
 160                 get_byte(pb);
 161             st->codec->codec_id = CODEC_ID_AAC;
 162             codecdata_length = get_be32(pb);
 163             if(codecdata_length + FF_INPUT_BUFFER_PADDING_SIZE <= (unsigned)codecdata_length){
 164                 av_log(s, AV_LOG_ERROR, "codecdata_length too large\n");
 165                 return -1;
 166             }
 167             if (codecdata_length >= 1) {
 168                 st->codec->extradata_size = codecdata_length - 1;
 169                 st->codec->extradata = av_mallocz(st->codec->extradata_size + FF_INPUT_BUFFER_PADDING_SIZE);
 170                 get_byte(pb);
 171                 for(i = 0; i < st->codec->extradata_size; i++)
 172                     ((uint8_t*)st->codec->extradata)[i] = get_byte(pb);
 173             }
 174         } else {
 175             st->codec->codec_id = CODEC_ID_NONE;
 176             av_strlcpy(st->codec->codec_name, buf, sizeof(st->codec->codec_name));
 177         }
 178         if (read_all) {
 179             get_byte(pb);
 180             get_byte(pb);
 181             get_byte(pb);
 182
 183             get_str8(pb, s->title, sizeof(s->title));
 184             get_str8(pb, s->author, sizeof(s->author));
 185             get_str8(pb, s->copyright, sizeof(s->copyright));
 186             get_str8(pb, s->comment, sizeof(s->comment));
 187         }
 188     }
 189     return 0;
 190 }
 191
 192 int
 193 ff_rm_read_mdpr_codecdata (AVFormatContext *s, AVStream *st)
 194 {
 195     ByteIOContext *pb = s->pb;
 196     unsigned int v;
 197     int codec_data_size, size;
 198     int64_t codec_pos;
 199
 200     codec_data_size = get_be32(pb);
 201     codec_pos = url_ftell(pb);
 202     v = get_be32(pb);
 203     if (v == MKTAG(0xfd, 'a', 'r', '.')) {
 204         /* ra type header */
 205         if (rm_read_audio_stream_info(s, st, 0))
 206             return -1;
 207     } else {
 208         int fps, fps2;
 209         if (get_le32(pb) != MKTAG('V', 'I', 'D', 'O')) {
 210         fail1:
 211             av_log(st->codec, AV_LOG_ERROR, "Unsupported video codec\n");
 212             goto skip;
 213         }
 214         st->codec->codec_tag = get_le32(pb);
 215 //        av_log(NULL, AV_LOG_DEBUG, "%X %X\n", st->codec->codec_tag, MKTAG('R', 'V', '2', '0'));
 216         if (   st->codec->codec_tag != MKTAG('R', 'V', '1', '0')
 217             && st->codec->codec_tag != MKTAG('R', 'V', '2', '0')
 218             && st->codec->codec_tag != MKTAG('R', 'V', '3', '0')
 219             && st->codec->codec_tag != MKTAG('R', 'V', '4', '0'))
 220             goto fail1;
 221         st->codec->width = get_be16(pb);
 222         st->codec->height = get_be16(pb);
 223         st->codec->time_base.num= 1;
 224         fps= get_be16(pb);
 225         st->codec->codec_type = CODEC_TYPE_VIDEO;
 226         get_be32(pb);
 227         fps2= get_be16(pb);
 228         get_be16(pb);
 229
 230         st->codec->extradata_size= codec_data_size - (url_ftell(pb) - codec_pos);
 231
 232         if(st->codec->extradata_size + FF_INPUT_BUFFER_PADDING_SIZE <= (unsigned)st->codec->extradata_size){
 233             //check is redundant as get_buffer() will catch this
 234             av_log(s, AV_LOG_ERROR, "st->codec->extradata_size too large\n");
 235             return -1;
 236         }
 237         st->codec->extradata= av_mallocz(st->codec->extradata_size + FF_INPUT_BUFFER_PADDING_SIZE);
 238         get_buffer(pb, st->codec->extradata, st->codec->extradata_size);
 239
 240 //        av_log(NULL, AV_LOG_DEBUG, "fps= %d fps2= %d\n", fps, fps2);
 241         st->codec->time_base.den = fps * st->codec->time_base.num;
 242         switch(((uint8_t*)st->codec->extradata)[4]>>4){
 243         case 1: st->codec->codec_id = CODEC_ID_RV10; break;
 244         case 2: st->codec->codec_id = CODEC_ID_RV20; break;
 245         case 3: st->codec->codec_id = CODEC_ID_RV30; break;
 246         case 4: st->codec->codec_id = CODEC_ID_RV40; break;
 247         default: goto fail1;
 248         }
 249     }
 250
 251 skip:
 252     /* skip codec info */
 253     size = url_ftell(pb) - codec_pos;
 254     url_fskip(pb, codec_data_size - size);
 255
 256     return 0;
 257 }
 258
 259
 260 static int rm_read_header_old(AVFormatContext *s, AVFormatParameters *ap)
 261 {
 262     RMContext *rm = s->priv_data;
 263     AVStream *st;
 264
 265     rm->old_format = 1;
 266     st = av_new_stream(s, 0);
 267     if (!st)
 268         return -1;
 269     return rm_read_audio_stream_info(s, st, 1);
 270 }
 271
 272 static int rm_read_header(AVFormatContext *s, AVFormatParameters *ap)
 273 {
 274     RMContext *rm = s->priv_data;
 275     AVStream *st;
 276     ByteIOContext *pb = s->pb;
 277     unsigned int tag;
 278     int tag_size, i;
 279     unsigned int start_time, duration;
 280     char buf[128];
 281     int flags = 0;
 282
 283     tag = get_le32(pb);
 284     if (tag == MKTAG('.', 'r', 'a', 0xfd)) {
 285         /* very old .ra format */
 286         return rm_read_header_old(s, ap);
 287     } else if (tag != MKTAG('.', 'R', 'M', 'F')) {
 288         return AVERROR(EIO);
 289     }
 290
 291     get_be32(pb); /* header size */
 292     get_be16(pb);
 293     get_be32(pb);
 294     get_be32(pb); /* number of headers */
 295
 296     for(;;) {
 297         if (url_feof(pb))
 298             goto fail;
 299         tag = get_le32(pb);
 300         tag_size = get_be32(pb);
 301         get_be16(pb);
 302 #if 0
 303         printf("tag=%c%c%c%c (%08x) size=%d\n",
 304                (tag) & 0xff,
 305                (tag >> 8) & 0xff,
 306                (tag >> 16) & 0xff,
 307                (tag >> 24) & 0xff,
 308                tag,
 309                tag_size);
 310 #endif
 311         if (tag_size < 10 && tag != MKTAG('D', 'A', 'T', 'A'))
 312             goto fail;
 313         switch(tag) {
 314         case MKTAG('P', 'R', 'O', 'P'):
 315             /* file header */
 316             get_be32(pb); /* max bit rate */
 317             get_be32(pb); /* avg bit rate */
 318             get_be32(pb); /* max packet size */
 319             get_be32(pb); /* avg packet size */
 320             get_be32(pb); /* nb packets */
 321             get_be32(pb); /* duration */
 322             get_be32(pb); /* preroll */
 323             get_be32(pb); /* index offset */
 324             get_be32(pb); /* data offset */
 325             get_be16(pb); /* nb streams */
 326             flags = get_be16(pb); /* flags */
 327             break;
 328         case MKTAG('C', 'O', 'N', 'T'):
 329             get_str16(pb, s->title, sizeof(s->title));
 330             get_str16(pb, s->author, sizeof(s->author));
 331             get_str16(pb, s->copyright, sizeof(s->copyright));
 332             get_str16(pb, s->comment, sizeof(s->comment));
 333             break;
 334         case MKTAG('M', 'D', 'P', 'R'):
 335             st = av_new_stream(s, 0);
 336             if (!st)
 337                 goto fail;
 338             st->id = get_be16(pb);
 339             get_be32(pb); /* max bit rate */
 340             st->codec->bit_rate = get_be32(pb); /* bit rate */
 341             get_be32(pb); /* max packet size */
 342             get_be32(pb); /* avg packet size */
 343             start_time = get_be32(pb); /* start time */
 344             get_be32(pb); /* preroll */
 345             duration = get_be32(pb); /* duration */
 346             st->start_time = start_time;
 347             st->duration = duration;
 348             get_str8(pb, buf, sizeof(buf)); /* desc */
 349             get_str8(pb, buf, sizeof(buf)); /* mimetype */
 350             st->codec->codec_type = CODEC_TYPE_DATA;
 351             av_set_pts_info(st, 64, 1, 1000);
 352             if (ff_rm_read_mdpr_codecdata(s, st) < 0)
 353                 return -1;
 354             break;
 355         case MKTAG('D', 'A', 'T', 'A'):
 356             goto header_end;
 357         default:
 358             /* unknown tag: skip it */
 359             url_fskip(pb, tag_size - 10);
 360             break;
 361         }
 362     }
 363  header_end:
 364     rm->nb_packets = get_be32(pb); /* number of packets */
 365     if (!rm->nb_packets && (flags & 4))
 366         rm->nb_packets = 3600 * 25;
 367     get_be32(pb); /* next data header */
 368     rm->curpic_num = -1;
 369     return 0;
 370
 371  fail:
 372     for(i=0;i<s->nb_streams;i++) {
 373         av_free(s->streams[i]);
 374     }
 375     return AVERROR(EIO);
 376 }
 377
 378 static int get_num(ByteIOContext *pb, int *len)
 379 {
 380     int n, n1;
 381
 382     n = get_be16(pb);
 383     (*len)-=2;
 384     n &= 0x7FFF;
 385     if (n >= 0x4000) {
 386         return n - 0x4000;
 387     } else {
 388         n1 = get_be16(pb);
 389         (*len)-=2;
 390         return (n << 16) | n1;
 391     }
 392 }
 393
 394 /* multiple of 20 bytes for ra144 (ugly) */
 395 #define RAW_PACKET_SIZE 1000
 396
 397 static int sync(AVFormatContext *s, int64_t *timestamp, int *flags, int *stream_index, int64_t *pos){
 398     RMContext *rm = s->priv_data;
 399     ByteIOContext *pb = s->pb;
 400     int len, num, res, i;
 401     AVStream *st;
 402     uint32_t state=0xFFFFFFFF;
 403
 404     while(!url_feof(pb)){
 405         *pos= url_ftell(pb) - 3;
 406         if(rm->remaining_len > 0){
 407             num= rm->current_stream;
 408             len= rm->remaining_len;
 409             *timestamp = AV_NOPTS_VALUE;
 410             *flags= 0;
 411         }else{
 412             state= (state<<8) + get_byte(pb);
 413
 414             if(state == MKBETAG('I', 'N', 'D', 'X')){
 415                 len = get_be16(pb) - 6;
 416                 if(len<0)
 417                     continue;
 418                 goto skip;
 419             }
 420
 421             if(state > (unsigned)0xFFFF || state < 12)
 422                 continue;
 423             len=state;
 424             state= 0xFFFFFFFF;
 425
 426             num = get_be16(pb);
 427             *timestamp = get_be32(pb);
 428             res= get_byte(pb); /* reserved */
 429             *flags = get_byte(pb); /* flags */
 430
 431
 432             len -= 12;
 433         }
 434         for(i=0;i<s->nb_streams;i++) {
 435             st = s->streams[i];
 436             if (num == st->id)
 437                 break;
 438         }
 439         if (i == s->nb_streams) {
 440 skip:
 441             /* skip packet if unknown number */
 442             url_fskip(pb, len);
 443             rm->remaining_len -= len;
 444             continue;
 445         }
 446         *stream_index= i;
 447
 448         return len;
 449     }
 450     return -1;
 451 }
 452
 453 static int rm_assemble_video_frame(AVFormatContext *s, RMContext *rm, AVPacket *pkt, int len)
 454 {
 455     ByteIOContext *pb = s->pb;
 456     int hdr, seq, pic_num, len2, pos;
 457     int type;
 458
 459     hdr = get_byte(pb); len--;
 460     type = hdr >> 6;
 461     switch(type){
 462     case 0: // slice
 463     case 2: // last slice
 464         seq = get_byte(pb); len--;
 465         len2 = get_num(pb, &len);
 466         pos = get_num(pb, &len);
 467         pic_num = get_byte(pb); len--;
 468         rm->remaining_len = len;
 469         break;
 470     case 1: //whole frame
 471         seq = get_byte(pb); len--;
 472         if(av_new_packet(pkt, len + 9) < 0)
 473             return AVERROR(EIO);
 474         pkt->data[0] = 0;
 475         AV_WL32(pkt->data + 1, 1);
 476         AV_WL32(pkt->data + 5, 0);
 477         get_buffer(pb, pkt->data + 9, len);
 478         rm->remaining_len = 0;
 479         return 0;
 480     case 3: //frame as a part of packet
 481         len2 = get_num(pb, &len);
 482         pos = get_num(pb, &len);
 483         pic_num = get_byte(pb); len--;
 484         rm->remaining_len = len - len2;
 485         if(av_new_packet(pkt, len2 + 9) < 0)
 486             return AVERROR(EIO);
 487         pkt->data[0] = 0;
 488         AV_WL32(pkt->data + 1, 1);
 489         AV_WL32(pkt->data + 5, 0);
 490         get_buffer(pb, pkt->data + 9, len2);
 491         return 0;
 492     }
 493     //now we have to deal with single slice
 494
 495     if((seq & 0x7F) == 1 || rm->curpic_num != pic_num){
 496         rm->slices = ((hdr & 0x3F) << 1) + 1;
 497         rm->videobufsize = len2 + 8*rm->slices + 1;
 498         av_free(rm->videobuf);
 499         if(!(rm->videobuf = av_malloc(rm->videobufsize)))
 500             return AVERROR(ENOMEM);
 501         rm->videobufpos = 8*rm->slices + 1;
 502         rm->cur_slice = 0;
 503         rm->curpic_num = pic_num;
 504         rm->pktpos = url_ftell(pb);
 505     }
 506     if(type == 2)
 507         len = FFMIN(len, pos);
 508
 509     if(++rm->cur_slice > rm->slices)
 510         return 1;
 511     AV_WL32(rm->videobuf - 7 + 8*rm->cur_slice, 1);
 512     AV_WL32(rm->videobuf - 3 + 8*rm->cur_slice, rm->videobufpos - 8*rm->slices - 1);
 513     if(rm->videobufpos + len > rm->videobufsize)
 514         return 1;
 515     if (get_buffer(pb, rm->videobuf + rm->videobufpos, len) != len)
 516         return AVERROR(EIO);
 517     rm->videobufpos += len;
 518     rm->remaining_len-= len;
 519
 520     if(type == 2 || (rm->videobufpos) == rm->videobufsize){
 521          rm->videobuf[0] = rm->cur_slice-1;
 522          if(av_new_packet(pkt, rm->videobufpos - 8*(rm->slices - rm->cur_slice)) < 0)
 523              return AVERROR(ENOMEM);
 524          memcpy(pkt->data, rm->videobuf, 1 + 8*rm->cur_slice);
 525          memcpy(pkt->data + 1 + 8*rm->cur_slice, rm->videobuf + 1 + 8*rm->slices,
 526                 rm->videobufpos - 1 - 8*rm->slices);
 527          pkt->pts = AV_NOPTS_VALUE;
 528          pkt->pos = rm->pktpos;
 529          return 0;
 530     }
 531
 532     return 1;
 533 }
 534
 535 static inline void
 536 rm_ac3_swap_bytes (AVStream *st, AVPacket *pkt)
 537 {
 538     uint8_t *ptr;
 539     int j;
 540
 541     if (st->codec->codec_id == CODEC_ID_AC3) {
 542         ptr = pkt->data;
 543         for (j=0;j<pkt->size;j+=2) {
 544             FFSWAP(int, ptr[0], ptr[1]);
 545             ptr += 2;
 546         }
 547     }
 548 }
 549
 550 int
 551 ff_rm_parse_packet (AVFormatContext *s, AVStream *st, int len, AVPacket *pkt,
 552                     int *seq, int *flags, int64_t *timestamp)
 553 {
 554     ByteIOContext *pb = s->pb;
 555     RMContext *rm = s->priv_data;
 556
 557     if (st->codec->codec_type == CODEC_TYPE_VIDEO) {
 558         rm->current_stream= st->id;
 559         if(rm_assemble_video_frame(s, rm, pkt, len) == 1)
 560             return -1; //got partial frame
 561     } else if (st->codec->codec_type == CODEC_TYPE_AUDIO) {
 562         if ((st->codec->codec_id == CODEC_ID_RA_288) ||
 563             (st->codec->codec_id == CODEC_ID_COOK) ||
 564             (st->codec->codec_id == CODEC_ID_ATRAC3)) {
 565             int x;
 566             int sps = rm->sub_packet_size;
 567             int cfs = rm->coded_framesize;
 568             int h = rm->sub_packet_h;
 569             int y = rm->sub_packet_cnt;
 570             int w = rm->audio_framesize;
 571
 572             if (*flags & 2)
 573                 y = rm->sub_packet_cnt = 0;
 574             if (!y)
 575                 rm->audiotimestamp = *timestamp;
 576
 577             switch(st->codec->codec_id) {
 578                 case CODEC_ID_RA_288:
 579                     for (x = 0; x < h/2; x++)
 580                         get_buffer(pb, rm->audiobuf+x*2*w+y*cfs, cfs);
 581                     break;
 582                 case CODEC_ID_ATRAC3:
 583                 case CODEC_ID_COOK:
 584                     for (x = 0; x < w/sps; x++)
 585                         get_buffer(pb, rm->audiobuf+sps*(h*x+((h+1)/2)*(y&1)+(y>>1)), sps);
 586                     break;
 587             }
 588
 589             if (++(rm->sub_packet_cnt) < h)
 590                 return -1;
 591             else {
 592                 rm->sub_packet_cnt = 0;
 593                 rm->audio_stream_num = st->index;
 594                 rm->audio_pkt_cnt = h * w / st->codec->block_align - 1;
 595                 // Release first audio packet
 596                 av_new_packet(pkt, st->codec->block_align);
 597                 memcpy(pkt->data, rm->audiobuf, st->codec->block_align);
 598                 *timestamp = rm->audiotimestamp;
 599                 *flags = 2; // Mark first packet as keyframe
 600             }
 601         } else if (st->codec->codec_id == CODEC_ID_AAC) {
 602             int x;
 603             rm->audio_stream_num = st->index;
 604             rm->sub_packet_cnt = (get_be16(pb) & 0xf0) >> 4;
 605             if (rm->sub_packet_cnt) {
 606                 for (x = 0; x < rm->sub_packet_cnt; x++)
 607                     rm->sub_packet_lengths[x] = get_be16(pb);
 608                 // Release first audio packet
 609                 rm->audio_pkt_cnt = rm->sub_packet_cnt - 1;
 610                 av_get_packet(pb, pkt, rm->sub_packet_lengths[0]);
 611                 *flags = 2; // Mark first packet as keyframe
 612             }
 613         } else {
 614             av_get_packet(pb, pkt, len);
 615             rm_ac3_swap_bytes(st, pkt);
 616         }
 617     } else
 618         av_get_packet(pb, pkt, len);
 619
 620     if(  (st->discard >= AVDISCARD_NONKEY && !(*flags&2))
 621        || st->discard >= AVDISCARD_ALL){
 622         av_free_packet(pkt);
 623         return -1;
 624     }
 625
 626     pkt->stream_index = st->index;
 627
 628 #if 0
 629     if (st->codec->codec_type == CODEC_TYPE_VIDEO) {
 630         if(st->codec->codec_id == CODEC_ID_RV20){
 631             int seq= 128*(pkt->data[2]&0x7F) + (pkt->data[3]>>1);
 632             av_log(NULL, AV_LOG_DEBUG, "%d %"PRId64" %d\n", *timestamp, *timestamp*512LL/25, seq);
 633
 634             seq |= (*timestamp&~0x3FFF);
 635             if(seq - *timestamp >  0x2000) seq -= 0x4000;
 636             if(seq - *timestamp < -0x2000) seq += 0x4000;
 637         }
 638     }
 639 #endif
 640
 641     pkt->pts= *timestamp;
 642     if (*flags & 2)
 643         pkt->flags |= PKT_FLAG_KEY;
 644
 645     return 0;
 646 }
 647
 648 void
 649 ff_rm_retrieve_cache (AVFormatContext *s, AVStream *st, AVPacket *pkt)
 650 {
 651     ByteIOContext *pb = s->pb;
 652     RMContext *rm = s->priv_data;
 653
 654     assert (rm->audio_pkt_cnt > 0);
 655
 656     if (st->codec->codec_id == CODEC_ID_AAC)
 657         av_get_packet(pb, pkt, rm->sub_packet_lengths[rm->sub_packet_cnt - rm->audio_pkt_cnt]);
 658     else {
 659         av_new_packet(pkt, st->codec->block_align);
 660         memcpy(pkt->data, rm->audiobuf + st->codec->block_align *
 661                (rm->sub_packet_h * rm->audio_framesize / st->codec->block_align - rm->audio_pkt_cnt),
 662                st->codec->block_align);
 663     }
 664     rm->audio_pkt_cnt--;
 665     pkt->flags = 0;
 666     pkt->stream_index = st->index;
 667 }
 668
 669 static int rm_read_packet(AVFormatContext *s, AVPacket *pkt)
 670 {
 671     RMContext *rm = s->priv_data;
 672     ByteIOContext *pb = s->pb;
 673     AVStream *st;
 674     int i, len;
 675     int64_t timestamp, pos;
 676     int flags;
 677
 678     if (rm->audio_pkt_cnt) {
 679         // If there are queued audio packet return them first
 680         st = s->streams[rm->audio_stream_num];
 681         ff_rm_retrieve_cache(s, st, pkt);
 682     } else if (rm->old_format) {
 683         st = s->streams[0];
 684         if (st->codec->codec_id == CODEC_ID_RA_288) {
 685             int x, y;
 686
 687             for (y = 0; y < rm->sub_packet_h; y++)
 688                 for (x = 0; x < rm->sub_packet_h/2; x++)
 689                     if (get_buffer(pb, rm->audiobuf+x*2*rm->audio_framesize+y*rm->coded_framesize, rm->coded_framesize) <= 0)
 690                         return AVERROR(EIO);
 691             rm->audio_stream_num = 0;
 692             rm->audio_pkt_cnt = rm->sub_packet_h * rm->audio_framesize / st->codec->block_align - 1;
 693             // Release first audio packet
 694             av_new_packet(pkt, st->codec->block_align);
 695             memcpy(pkt->data, rm->audiobuf, st->codec->block_align);
 696             pkt->flags |= PKT_FLAG_KEY; // Mark first packet as keyframe
 697             pkt->stream_index = 0;
 698         } else {
 699             /* just read raw bytes */
 700             len = RAW_PACKET_SIZE;
 701             len= av_get_packet(pb, pkt, len);
 702             pkt->stream_index = 0;
 703             if (len <= 0) {
 704                 return AVERROR(EIO);
 705             }
 706             pkt->size = len;
 707         }
 708         rm_ac3_swap_bytes(st, pkt);
 709     } else {
 710         int seq=1;
 711 resync:
 712         len=sync(s, &timestamp, &flags, &i, &pos);
 713         if(len<0)
 714             return AVERROR(EIO);
 715         st = s->streams[i];
 716
 717         if (ff_rm_parse_packet (s, st, len, pkt, &seq, &flags, &timestamp) < 0)
 718             goto resync;
 719
 720         if((flags&2) && (seq&0x7F) == 1)
 721             av_add_index_entry(st, pos, timestamp, 0, 0, AVINDEX_KEYFRAME);
 722     }
 723
 724     return 0;
 725 }
 726
 727 static int rm_read_close(AVFormatContext *s)
 728 {
 729     RMContext *rm = s->priv_data;
 730
 731     av_free(rm->audiobuf);
 732     av_free(rm->videobuf);
 733     return 0;
 734 }
 735
 736 static int rm_probe(AVProbeData *p)
 737 {
 738     /* check file header */
 739     if ((p->buf[0] == '.' && p->buf[1] == 'R' &&
 740          p->buf[2] == 'M' && p->buf[3] == 'F' &&
 741          p->buf[4] == 0 && p->buf[5] == 0) ||
 742         (p->buf[0] == '.' && p->buf[1] == 'r' &&
 743          p->buf[2] == 'a' && p->buf[3] == 0xfd))
 744         return AVPROBE_SCORE_MAX;
 745     else
 746         return 0;
 747 }
 748
 749 static int64_t rm_read_dts(AVFormatContext *s, int stream_index,
 750                                int64_t *ppos, int64_t pos_limit)
 751 {
 752     RMContext *rm = s->priv_data;
 753     int64_t pos, dts;
 754     int stream_index2, flags, len, h;
 755
 756     pos = *ppos;
 757
 758     if(rm->old_format)
 759         return AV_NOPTS_VALUE;
 760
 761     url_fseek(s->pb, pos, SEEK_SET);
 762     rm->remaining_len=0;
 763     for(;;){
 764         int seq=1;
 765         AVStream *st;
 766
 767         len=sync(s, &dts, &flags, &stream_index2, &pos);
 768         if(len<0)
 769             return AV_NOPTS_VALUE;
 770
 771         st = s->streams[stream_index2];
 772         if (st->codec->codec_type == CODEC_TYPE_VIDEO) {
 773             h= get_byte(s->pb); len--;
 774             if(!(h & 0x40)){
 775                 seq = get_byte(s->pb); len--;
 776             }
 777         }
 778
 779         if((flags&2) && (seq&0x7F) == 1){
 780 //            av_log(s, AV_LOG_DEBUG, "%d %d-%d %"PRId64" %d\n", flags, stream_index2, stream_index, dts, seq);
 781             av_add_index_entry(st, pos, dts, 0, 0, AVINDEX_KEYFRAME);
 782             if(stream_index2 == stream_index)
 783                 break;
 784         }
 785
 786         url_fskip(s->pb, len);
 787     }
 788     *ppos = pos;
 789     return dts;
 790 }
 791
 792 AVInputFormat rm_demuxer = {
 793     "rm",
 794     "rm format",
 795     sizeof(RMContext),
 796     rm_probe,
 797     rm_read_header,
 798     rm_read_packet,
 799     rm_read_close,
 800     NULL,
 801     rm_read_dts,
 802 };