gst/realmedia/rmdemux.c

   1 /* GStreamer RealMedia demuxer
   2  * Copyright (C) <1999> Erik Walthinsen <omega@cse.ogi.edu>
   3  * Copyright (C) <2003> David A. Schleef <ds@schleef.org>
   4  * Copyright (C) <2004> Stephane Loeuillet <gstreamer@leroutier.net>
   5  * Copyright (C) <2005> Owen Fraser-Green <owen@discobabe.net>
   6  * Copyright (C) <2005> Michael Smith <fluendo.com>
   7  * Copyright (C) <2006> Wim Taymans <wim@fluendo.com>
   8  * Copyright (C) <2006> Tim-Philipp Müller <tim centricular net>
   9  * Copyright (C) <2007> Wim Taymans <wim.taymans@gmail.com>
  10  *
  11  * This library is free software; you can redistribute it and/or
  12  * modify it under the terms of the GNU Library General Public
  13  * License as published by the Free Software Foundation; either
  14  * version 2 of the License, or (at your option) any later version.
  15  *
  16  * This library is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19  * Library General Public License for more details.
  20  *
  21  * You should have received a copy of the GNU Library General Public
  22  * License along with this library; if not, write to the
  23  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  24  * Boston, MA 02111-1307, USA.
  25  */
  26
  27 #ifdef HAVE_CONFIG_H
  28 #  include "config.h"
  29 #endif
  30
  31 #include "rmdemux.h"
  32 #include "rmutils.h"
  33
  34 #include <string.h>
  35 #include <ctype.h>
  36
  37 #define RMDEMUX_GUINT32_GET(a)  GST_READ_UINT32_BE(a)
  38 #define RMDEMUX_GUINT16_GET(a)  GST_READ_UINT16_BE(a)
  39 #define RMDEMUX_FOURCC_GET(a)   GST_READ_UINT32_LE(a)
  40 #define HEADER_SIZE 10
  41 #define DATA_SIZE 8
  42
  43 #define MAX_FRAGS 256
  44
  45 static const guint8 sipr_subpk_size[4] = { 29, 19, 37, 20 };
  46
  47 typedef struct _GstRMDemuxIndex GstRMDemuxIndex;
  48
  49 struct _GstRMDemuxStream
  50 {
  51   guint32 subtype;
  52   guint32 fourcc;
  53   guint32 subformat;
  54   guint32 format;
  55
  56   int id;
  57   GstPad *pad;
  58   GstFlowReturn last_flow;
  59   gboolean discont;
  60   int timescale;
  61
  62   int sample_index;
  63   GstRMDemuxIndex *index;
  64   int index_length;
  65   gint framerate_numerator;
  66   gint framerate_denominator;
  67   guint32 seek_offset;
  68
  69   guint16 width;
  70   guint16 height;
  71   guint16 flavor;
  72   guint16 rate;                 /* samplerate         */
  73   guint16 n_channels;           /* channels           */
  74   guint16 sample_width;         /* bits_per_sample    */
  75   guint16 leaf_size;            /* subpacket_size     */
  76   guint32 packet_size;          /* coded_frame_size   */
  77   guint16 version;
  78   guint32 extra_data_size;      /* codec_data_length  */
  79   guint8 *extra_data;           /* extras             */
  80
  81   gboolean needs_descrambling;
  82   guint subpackets_needed;      /* subpackets needed for descrambling    */
  83   GPtrArray *subpackets;        /* array containing subpacket GstBuffers */
  84
  85   /* Variables needed for fixing timestamps. */
  86   GstClockTime next_ts, last_ts;
  87   guint16 next_seq, last_seq;
  88
  89   gint frag_seqnum;
  90   gint frag_subseq;
  91   guint frag_length;
  92   guint frag_current;
  93   guint frag_count;
  94   guint frag_offset[MAX_FRAGS];
  95   GstAdapter *adapter;
  96
  97   GstTagList *pending_tags;
  98 };
  99
 100 struct _GstRMDemuxIndex
 101 {
 102   guint32 offset;
 103   GstClockTime timestamp;
 104 };
 105
 106 static GstStaticPadTemplate gst_rmdemux_sink_template =
 107 GST_STATIC_PAD_TEMPLATE ("sink",
 108     GST_PAD_SINK,
 109     GST_PAD_ALWAYS,
 110     GST_STATIC_CAPS ("application/vnd.rn-realmedia")
 111     );
 112
 113 static GstStaticPadTemplate gst_rmdemux_videosrc_template =
 114 GST_STATIC_PAD_TEMPLATE ("video_%02d",
 115     GST_PAD_SRC,
 116     GST_PAD_SOMETIMES,
 117     GST_STATIC_CAPS_ANY);
 118
 119 static GstStaticPadTemplate gst_rmdemux_audiosrc_template =
 120 GST_STATIC_PAD_TEMPLATE ("audio_%02d",
 121     GST_PAD_SRC,
 122     GST_PAD_SOMETIMES,
 123     GST_STATIC_CAPS_ANY);
 124
 125 GST_DEBUG_CATEGORY_STATIC (rmdemux_debug);
 126 #define GST_CAT_DEFAULT rmdemux_debug
 127
 128 static GstElementClass *parent_class = NULL;
 129
 130 static void gst_rmdemux_class_init (GstRMDemuxClass * klass);
 131 static void gst_rmdemux_base_init (GstRMDemuxClass * klass);
 132 static void gst_rmdemux_init (GstRMDemux * rmdemux);
 133 static void gst_rmdemux_finalize (GObject * object);
 134 static GstStateChangeReturn gst_rmdemux_change_state (GstElement * element,
 135     GstStateChange transition);
 136 static GstFlowReturn gst_rmdemux_chain (GstPad * pad, GstBuffer * buffer);
 137 static void gst_rmdemux_loop (GstPad * pad);
 138 static gboolean gst_rmdemux_sink_activate (GstPad * sinkpad);
 139 static gboolean gst_rmdemux_sink_activate_push (GstPad * sinkpad,
 140     gboolean active);
 141 static gboolean gst_rmdemux_sink_activate_pull (GstPad * sinkpad,
 142     gboolean active);
 143 static gboolean gst_rmdemux_sink_event (GstPad * pad, GstEvent * event);
 144 static gboolean gst_rmdemux_src_event (GstPad * pad, GstEvent * event);
 145 static void gst_rmdemux_send_event (GstRMDemux * rmdemux, GstEvent * event);
 146 static const GstQueryType *gst_rmdemux_src_query_types (GstPad * pad);
 147 static gboolean gst_rmdemux_src_query (GstPad * pad, GstQuery * query);
 148 static gboolean gst_rmdemux_perform_seek (GstRMDemux * rmdemux,
 149     GstEvent * event);
 150
 151 static void gst_rmdemux_parse__rmf (GstRMDemux * rmdemux, const guint8 * data,
 152     int length);
 153 static void gst_rmdemux_parse_prop (GstRMDemux * rmdemux, const guint8 * data,
 154     int length);
 155 static void gst_rmdemux_parse_mdpr (GstRMDemux * rmdemux,
 156     const guint8 * data, int length);
 157 static guint gst_rmdemux_parse_indx (GstRMDemux * rmdemux, const guint8 * data,
 158     int length);
 159 static void gst_rmdemux_parse_data (GstRMDemux * rmdemux, const guint8 * data,
 160     int length);
 161 static void gst_rmdemux_parse_cont (GstRMDemux * rmdemux, const guint8 * data,
 162     int length);
 163 static GstFlowReturn gst_rmdemux_parse_packet (GstRMDemux * rmdemux,
 164     GstBuffer * in, guint16 version);
 165 static void gst_rmdemux_parse_indx_data (GstRMDemux * rmdemux,
 166     const guint8 * data, int length);
 167 static void gst_rmdemux_stream_clear_cached_subpackets (GstRMDemux * rmdemux,
 168     GstRMDemuxStream * stream);
 169 static GstRMDemuxStream *gst_rmdemux_get_stream_by_id (GstRMDemux * rmdemux,
 170     int id);
 171
 172 static GType
 173 gst_rmdemux_get_type (void)
 174 {
 175   static GType rmdemux_type = 0;
 176
 177   if (!rmdemux_type) {
 178     static const GTypeInfo rmdemux_info = {
 179       sizeof (GstRMDemuxClass),
 180       (GBaseInitFunc) gst_rmdemux_base_init, NULL,
 181       (GClassInitFunc) gst_rmdemux_class_init,
 182       NULL, NULL, sizeof (GstRMDemux), 0,
 183       (GInstanceInitFunc) gst_rmdemux_init,
 184     };
 185
 186     rmdemux_type =
 187         g_type_register_static (GST_TYPE_ELEMENT, "GstRMDemux", &rmdemux_info,
 188         0);
 189   }
 190   return rmdemux_type;
 191 }
 192
 193 static void
 194 gst_rmdemux_base_init (GstRMDemuxClass * klass)
 195 {
 196   GstElementClass *element_class = GST_ELEMENT_CLASS (klass);
 197
 198   gst_element_class_add_pad_template (element_class,
 199       gst_static_pad_template_get (&gst_rmdemux_sink_template));
 200   gst_element_class_add_pad_template (element_class,
 201       gst_static_pad_template_get (&gst_rmdemux_videosrc_template));
 202   gst_element_class_add_pad_template (element_class,
 203       gst_static_pad_template_get (&gst_rmdemux_audiosrc_template));
 204   gst_element_class_set_details_simple (element_class, "RealMedia Demuxer",
 205       "Codec/Demuxer",
 206       "Demultiplex a RealMedia file into audio and video streams",
 207       "David Schleef <ds@schleef.org>");
 208 }
 209
 210 static void
 211 gst_rmdemux_class_init (GstRMDemuxClass * klass)
 212 {
 213   GObjectClass *gobject_class;
 214   GstElementClass *gstelement_class;
 215
 216   gobject_class = (GObjectClass *) klass;
 217   gstelement_class = (GstElementClass *) klass;
 218
 219   parent_class = g_type_class_peek_parent (klass);
 220
 221   gstelement_class->change_state = GST_DEBUG_FUNCPTR (gst_rmdemux_change_state);
 222
 223   GST_DEBUG_CATEGORY_INIT (rmdemux_debug, "rmdemux",
 224       0, "Demuxer for Realmedia streams");
 225
 226   gobject_class->finalize = gst_rmdemux_finalize;
 227 }
 228
 229 static void
 230 gst_rmdemux_finalize (GObject * object)
 231 {
 232   GstRMDemux *rmdemux = GST_RMDEMUX (object);
 233
 234   if (rmdemux->adapter) {
 235     g_object_unref (rmdemux->adapter);
 236     rmdemux->adapter = NULL;
 237   }
 238
 239   GST_CALL_PARENT (G_OBJECT_CLASS, finalize, (object));
 240 }
 241
 242 static void
 243 gst_rmdemux_init (GstRMDemux * rmdemux)
 244 {
 245   rmdemux->sinkpad =
 246       gst_pad_new_from_static_template (&gst_rmdemux_sink_template, "sink");
 247   gst_pad_set_event_function (rmdemux->sinkpad,
 248       GST_DEBUG_FUNCPTR (gst_rmdemux_sink_event));
 249   gst_pad_set_chain_function (rmdemux->sinkpad,
 250       GST_DEBUG_FUNCPTR (gst_rmdemux_chain));
 251   gst_pad_set_activate_function (rmdemux->sinkpad,
 252       GST_DEBUG_FUNCPTR (gst_rmdemux_sink_activate));
 253   gst_pad_set_activatepull_function (rmdemux->sinkpad,
 254       GST_DEBUG_FUNCPTR (gst_rmdemux_sink_activate_pull));
 255   gst_pad_set_activatepush_function (rmdemux->sinkpad,
 256       GST_DEBUG_FUNCPTR (gst_rmdemux_sink_activate_push));
 257
 258   gst_element_add_pad (GST_ELEMENT (rmdemux), rmdemux->sinkpad);
 259
 260   rmdemux->adapter = gst_adapter_new ();
 261   rmdemux->first_ts = GST_CLOCK_TIME_NONE;
 262   rmdemux->base_ts = GST_CLOCK_TIME_NONE;
 263   rmdemux->need_newsegment = TRUE;
 264
 265   gst_rm_utils_run_tests ();
 266 }
 267
 268 static gboolean
 269 gst_rmdemux_sink_event (GstPad * pad, GstEvent * event)
 270 {
 271   GstRMDemux *rmdemux;
 272   gboolean ret;
 273
 274   rmdemux = GST_RMDEMUX (gst_pad_get_parent (pad));
 275
 276   GST_LOG_OBJECT (pad, "%s event", GST_EVENT_TYPE_NAME (event));
 277
 278   switch (GST_EVENT_TYPE (event)) {
 279     case GST_EVENT_NEWSEGMENT:
 280       gst_event_unref (event);
 281       ret = TRUE;
 282       break;
 283     default:
 284       ret = gst_pad_event_default (pad, event);
 285       break;
 286   }
 287
 288   gst_object_unref (rmdemux);
 289   return ret;
 290 }
 291
 292 static gboolean
 293 gst_rmdemux_src_event (GstPad * pad, GstEvent * event)
 294 {
 295   gboolean ret = TRUE;
 296
 297   GstRMDemux *rmdemux = GST_RMDEMUX (GST_PAD_PARENT (pad));
 298
 299   GST_LOG_OBJECT (rmdemux, "handling src event");
 300
 301   switch (GST_EVENT_TYPE (event)) {
 302     case GST_EVENT_SEEK:
 303     {
 304       gboolean running;
 305
 306       GST_LOG_OBJECT (rmdemux, "Event on src: SEEK");
 307       /* can't seek if we are not seekable, FIXME could pass the
 308        * seek query upstream after converting it to bytes using
 309        * the average bitrate of the stream. */
 310       if (!rmdemux->seekable) {
 311         ret = FALSE;
 312         GST_DEBUG ("seek on non seekable stream");
 313         goto done_unref;
 314       }
 315
 316       GST_OBJECT_LOCK (rmdemux);
 317       /* check if we can do the seek now */
 318       running = rmdemux->running;
 319       GST_OBJECT_UNLOCK (rmdemux);
 320
 321       /* now do the seek */
 322       if (running) {
 323         ret = gst_rmdemux_perform_seek (rmdemux, event);
 324       } else
 325         ret = TRUE;
 326
 327       gst_event_unref (event);
 328       break;
 329     }
 330     default:
 331       GST_LOG_OBJECT (rmdemux, "Event on src: type=%d", GST_EVENT_TYPE (event));
 332       ret = gst_pad_event_default (pad, event);
 333       break;
 334   }
 335
 336   return ret;
 337
 338 done_unref:
 339   GST_DEBUG ("error handling event");
 340   gst_event_unref (event);
 341   return ret;
 342 }
 343
 344 /* Validate that this looks like a reasonable point to seek to */
 345 static gboolean
 346 gst_rmdemux_validate_offset (GstRMDemux * rmdemux)
 347 {
 348   GstBuffer *buffer;
 349   GstFlowReturn flowret;
 350   guint16 version, length;
 351   gboolean ret = TRUE;
 352
 353   flowret = gst_pad_pull_range (rmdemux->sinkpad, rmdemux->offset, 4, &buffer);
 354
 355   if (flowret != GST_FLOW_OK) {
 356     GST_DEBUG_OBJECT (rmdemux, "Failed to pull data at offset %d",
 357         rmdemux->offset);
 358     return FALSE;
 359   }
 360   /* TODO: Can we also be seeking to a 'DATA' chunk header? Check this.
 361    * Also, for the case we currently handle, can we check any more? It's pretty
 362    * sucky to not be validating a little more heavily than this... */
 363   /* This should now be the start of a data packet header. That begins with
 364    * a 2-byte 'version' field, which has to be 0 or 1, then a length. I'm not
 365    * certain what values are valid for length, but it must always be at least
 366    * 4 bytes, and we can check that it won't take us past our known total size
 367    */
 368
 369   version = RMDEMUX_GUINT16_GET (GST_BUFFER_DATA (buffer));
 370   if (version != 0 && version != 1) {
 371     GST_DEBUG_OBJECT (rmdemux, "Expected version 0 or 1, got %d",
 372         (int) version);
 373     ret = FALSE;
 374   }
 375
 376   length = RMDEMUX_GUINT16_GET (GST_BUFFER_DATA (buffer) + 2);
 377   /* TODO: Also check against total stream length */
 378   if (length < 4) {
 379     GST_DEBUG_OBJECT (rmdemux, "Expected length >= 4, got %d", (int) length);
 380     ret = FALSE;
 381   }
 382
 383   if (ret) {
 384     rmdemux->offset += 4;
 385     gst_adapter_clear (rmdemux->adapter);
 386     gst_adapter_push (rmdemux->adapter, buffer);
 387   } else {
 388     GST_WARNING_OBJECT (rmdemux, "Failed to validate seek offset at %d",
 389         rmdemux->offset);
 390   }
 391
 392   return ret;
 393 }
 394
 395 static gboolean
 396 find_seek_offset_bytes (GstRMDemux * rmdemux, guint target)
 397 {
 398   int i;
 399   GSList *cur;
 400   gboolean ret = FALSE;
 401
 402   if (target < 0)
 403     return FALSE;
 404
 405   for (cur = rmdemux->streams; cur; cur = cur->next) {
 406     GstRMDemuxStream *stream = cur->data;
 407
 408     /* Search backwards through this stream's index until we find the first
 409      * timestamp before our target time */
 410     for (i = stream->index_length - 1; i >= 0; i--) {
 411       if (stream->index[i].offset <= target) {
 412         /* Set the seek_offset for the stream so we don't bother parsing it
 413          * until we've passed that point */
 414         stream->seek_offset = stream->index[i].offset;
 415         rmdemux->offset = stream->index[i].offset;
 416         ret = TRUE;
 417         break;
 418       }
 419     }
 420   }
 421   return ret;
 422 }
 423
 424 static gboolean
 425 find_seek_offset_time (GstRMDemux * rmdemux, GstClockTime time)
 426 {
 427   int i, n_stream;
 428   gboolean ret = FALSE;
 429   GSList *cur;
 430   GstClockTime earliest = GST_CLOCK_TIME_NONE;
 431
 432   n_stream = 0;
 433   for (cur = rmdemux->streams; cur; cur = cur->next, n_stream++) {
 434     GstRMDemuxStream *stream = cur->data;
 435
 436     /* Search backwards through this stream's index until we find the first
 437      * timestamp before our target time */
 438     for (i = stream->index_length - 1; i >= 0; i--) {
 439       if (stream->index[i].timestamp <= time) {
 440         /* Set the seek_offset for the stream so we don't bother parsing it
 441          * until we've passed that point */
 442         stream->seek_offset = stream->index[i].offset;
 443
 444         /* If it's also the earliest timestamp we've seen of all streams, then
 445          * that's our target!
 446          */
 447         if (earliest == GST_CLOCK_TIME_NONE ||
 448             stream->index[i].timestamp < earliest) {
 449           earliest = stream->index[i].timestamp;
 450           rmdemux->offset = stream->index[i].offset;
 451           GST_DEBUG_OBJECT (rmdemux,
 452               "We're looking for %" GST_TIME_FORMAT
 453               " and we found that stream %d has the latest index at %"
 454               GST_TIME_FORMAT, GST_TIME_ARGS (rmdemux->segment.start), n_stream,
 455               GST_TIME_ARGS (earliest));
 456         }
 457
 458         ret = TRUE;
 459
 460         break;
 461       }
 462     }
 463     stream->discont = TRUE;
 464   }
 465   return ret;
 466 }
 467
 468 static gboolean
 469 gst_rmdemux_perform_seek (GstRMDemux * rmdemux, GstEvent * event)
 470 {
 471   gboolean validated;
 472   gboolean ret = TRUE;
 473   gboolean flush;
 474   GstFormat format;
 475   gdouble rate;
 476   GstSeekFlags flags;
 477   GstSeekType cur_type, stop_type;
 478   gint64 cur, stop;
 479   gboolean update;
 480
 481   if (event) {
 482     GST_DEBUG_OBJECT (rmdemux, "seek with event");
 483
 484     gst_event_parse_seek (event, &rate, &format, &flags,
 485         &cur_type, &cur, &stop_type, &stop);
 486
 487     /* we can only seek on time */
 488     if (format != GST_FORMAT_TIME) {
 489       GST_DEBUG_OBJECT (rmdemux, "can only seek on TIME");
 490       goto error;
 491     }
 492     /* cannot yet do backwards playback */
 493     if (rate <= 0.0) {
 494       GST_DEBUG_OBJECT (rmdemux, "can only seek with positive rate, not %lf",
 495           rate);
 496       goto error;
 497     }
 498   } else {
 499     GST_DEBUG_OBJECT (rmdemux, "seek without event");
 500
 501     flags = 0;
 502     rate = 1.0;
 503   }
 504
 505   GST_DEBUG_OBJECT (rmdemux, "seek, rate %g", rate);
 506
 507   flush = flags & GST_SEEK_FLAG_FLUSH;
 508
 509   /* first step is to unlock the streaming thread if it is
 510    * blocked in a chain call, we do this by starting the flush. */
 511   if (flush) {
 512     gst_pad_push_event (rmdemux->sinkpad, gst_event_new_flush_start ());
 513     gst_rmdemux_send_event (rmdemux, gst_event_new_flush_start ());
 514   } else {
 515     gst_pad_pause_task (rmdemux->sinkpad);
 516   }
 517
 518   GST_LOG_OBJECT (rmdemux, "Done starting flushes");
 519
 520   /* now grab the stream lock so that streaming cannot continue, for
 521    * non flushing seeks when the element is in PAUSED this could block
 522    * forever. */
 523   GST_PAD_STREAM_LOCK (rmdemux->sinkpad);
 524
 525   GST_LOG_OBJECT (rmdemux, "Took streamlock");
 526
 527   /* close current segment first */
 528   if (rmdemux->segment_running && !flush) {
 529     GstEvent *newseg;
 530
 531     newseg = gst_event_new_new_segment (TRUE, rmdemux->segment.rate,
 532         GST_FORMAT_TIME, rmdemux->segment.start,
 533         rmdemux->segment.last_stop, rmdemux->segment.time);
 534
 535     gst_rmdemux_send_event (rmdemux, newseg);
 536   }
 537
 538   if (event) {
 539     gst_segment_set_seek (&rmdemux->segment, rate, format, flags,
 540         cur_type, cur, stop_type, stop, &update);
 541   }
 542
 543   GST_DEBUG_OBJECT (rmdemux, "segment positions set to %" GST_TIME_FORMAT "-%"
 544       GST_TIME_FORMAT, GST_TIME_ARGS (rmdemux->segment.start),
 545       GST_TIME_ARGS (rmdemux->segment.stop));
 546
 547   /* we need to stop flushing on the sinkpad as we're going to use it
 548    * next. We can do this as we have the STREAM lock now. */
 549   gst_pad_push_event (rmdemux->sinkpad, gst_event_new_flush_stop ());
 550
 551   GST_LOG_OBJECT (rmdemux, "Pushed FLUSH_STOP event");
 552
 553   /* For each stream, find the first index offset equal to or before our seek
 554    * target. Of these, find the smallest offset. That's where we seek to.
 555    *
 556    * Then we pull 4 bytes from that offset, and validate that we've seeked to a
 557    * what looks like a plausible packet.
 558    * If that fails, restart, with the seek target set to one less than the
 559    * offset we just tried. If we run out of places to try, treat that as a fatal
 560    * error.
 561    */
 562   if (!find_seek_offset_time (rmdemux, rmdemux->segment.last_stop)) {
 563     GST_LOG_OBJECT (rmdemux, "Failed to find seek offset by time");
 564     ret = FALSE;
 565     goto done;
 566   }
 567
 568   GST_LOG_OBJECT (rmdemux, "Validating offset %u", rmdemux->offset);
 569   validated = gst_rmdemux_validate_offset (rmdemux);
 570   while (!validated) {
 571     GST_INFO_OBJECT (rmdemux, "Failed to validate offset at %u",
 572         rmdemux->offset);
 573     if (!find_seek_offset_bytes (rmdemux, rmdemux->offset - 1)) {
 574       ret = FALSE;
 575       goto done;
 576     }
 577     validated = gst_rmdemux_validate_offset (rmdemux);
 578   }
 579
 580   GST_LOG_OBJECT (rmdemux, "Found final offset. Excellent!");
 581
 582   /* now we have a new position, prepare for streaming again */
 583   {
 584     /* Reset the demuxer state */
 585     rmdemux->state = RMDEMUX_STATE_DATA_PACKET;
 586
 587     if (flush)
 588       gst_rmdemux_send_event (rmdemux, gst_event_new_flush_stop ());
 589
 590     /* must send newsegment event from streaming thread, so just set flag */
 591     rmdemux->need_newsegment = TRUE;
 592
 593     /* notify start of new segment */
 594     if (rmdemux->segment.flags & GST_SEEK_FLAG_SEGMENT) {
 595       gst_element_post_message (GST_ELEMENT_CAST (rmdemux),
 596           gst_message_new_segment_start (GST_OBJECT_CAST (rmdemux),
 597               GST_FORMAT_TIME, rmdemux->segment.last_stop));
 598     }
 599
 600     /* restart our task since it might have been stopped when we did the
 601      * flush. */
 602     gst_pad_start_task (rmdemux->sinkpad, (GstTaskFunction) gst_rmdemux_loop,
 603         rmdemux->sinkpad);
 604   }
 605
 606 done:
 607   /* streaming can continue now */
 608   GST_PAD_STREAM_UNLOCK (rmdemux->sinkpad);
 609
 610   return ret;
 611
 612 error:
 613   {
 614     GST_DEBUG_OBJECT (rmdemux, "seek failed");
 615     return FALSE;
 616   }
 617 }
 618
 619
 620 static gboolean
 621 gst_rmdemux_src_query (GstPad * pad, GstQuery * query)
 622 {
 623   gboolean res = FALSE;
 624   GstRMDemux *rmdemux;
 625
 626   rmdemux = GST_RMDEMUX (gst_pad_get_parent (pad));
 627
 628   switch (GST_QUERY_TYPE (query)) {
 629     case GST_QUERY_POSITION:
 630       GST_DEBUG_OBJECT (rmdemux, "Position query: no idea from demuxer!");
 631       break;
 632     case GST_QUERY_DURATION:{
 633       GstFormat fmt;
 634
 635       gst_query_parse_duration (query, &fmt, NULL);
 636       if (fmt == GST_FORMAT_TIME) {
 637         GST_OBJECT_LOCK (rmdemux);
 638         if (G_LIKELY (rmdemux->running)) {
 639           gst_query_set_duration (query, GST_FORMAT_TIME, rmdemux->duration);
 640           GST_DEBUG_OBJECT (rmdemux, "duration set to %" GST_TIME_FORMAT,
 641               GST_TIME_ARGS (rmdemux->duration));
 642           res = TRUE;
 643         }
 644         GST_OBJECT_UNLOCK (rmdemux);
 645       }
 646       break;
 647     }
 648     case GST_QUERY_SEEKING:{
 649       GstFormat fmt;
 650
 651       gst_query_parse_seeking (query, &fmt, NULL, NULL, NULL);
 652       if (fmt == GST_FORMAT_TIME) {
 653         GST_OBJECT_LOCK (rmdemux);
 654         if (G_LIKELY (rmdemux->running)) {
 655           gst_query_set_seeking (query, GST_FORMAT_TIME, rmdemux->seekable,
 656               0, rmdemux->duration);
 657           res = TRUE;
 658         }
 659         GST_OBJECT_UNLOCK (rmdemux);
 660       }
 661       break;
 662     }
 663     default:
 664       res = gst_pad_query_default (pad, query);
 665       break;
 666   }
 667
 668   gst_object_unref (rmdemux);
 669   return res;
 670 }
 671
 672 static const GstQueryType *
 673 gst_rmdemux_src_query_types (GstPad * pad)
 674 {
 675   static const GstQueryType query_types[] = {
 676     GST_QUERY_POSITION,
 677     GST_QUERY_DURATION,
 678     GST_QUERY_SEEKING,
 679     0
 680   };
 681
 682   return query_types;
 683 }
 684
 685 static void
 686 gst_rmdemux_reset (GstRMDemux * rmdemux)
 687 {
 688   GSList *cur;
 689
 690   GST_OBJECT_LOCK (rmdemux);
 691   rmdemux->running = FALSE;
 692   GST_OBJECT_UNLOCK (rmdemux);
 693
 694   for (cur = rmdemux->streams; cur; cur = cur->next) {
 695     GstRMDemuxStream *stream = cur->data;
 696
 697     g_object_unref (stream->adapter);
 698     gst_rmdemux_stream_clear_cached_subpackets (rmdemux, stream);
 699     gst_element_remove_pad (GST_ELEMENT (rmdemux), stream->pad);
 700     if (stream->pending_tags)
 701       gst_tag_list_free (stream->pending_tags);
 702     if (stream->subpackets)
 703       g_ptr_array_free (stream->subpackets, TRUE);
 704     g_free (stream->index);
 705     g_free (stream);
 706   }
 707   g_slist_free (rmdemux->streams);
 708   rmdemux->streams = NULL;
 709   rmdemux->n_audio_streams = 0;
 710   rmdemux->n_video_streams = 0;
 711
 712   gst_adapter_clear (rmdemux->adapter);
 713   rmdemux->state = RMDEMUX_STATE_HEADER;
 714   rmdemux->have_pads = FALSE;
 715
 716   gst_segment_init (&rmdemux->segment, GST_FORMAT_UNDEFINED);
 717   rmdemux->first_ts = GST_CLOCK_TIME_NONE;
 718   rmdemux->base_ts = GST_CLOCK_TIME_NONE;
 719   rmdemux->need_newsegment = TRUE;
 720 }
 721
 722 static GstStateChangeReturn
 723 gst_rmdemux_change_state (GstElement * element, GstStateChange transition)
 724 {
 725   GstRMDemux *rmdemux = GST_RMDEMUX (element);
 726   GstStateChangeReturn res;
 727
 728   switch (transition) {
 729     case GST_STATE_CHANGE_NULL_TO_READY:
 730       break;
 731     case GST_STATE_CHANGE_READY_TO_PAUSED:
 732       rmdemux->state = RMDEMUX_STATE_HEADER;
 733       rmdemux->have_pads = FALSE;
 734       gst_segment_init (&rmdemux->segment, GST_FORMAT_TIME);
 735       rmdemux->running = FALSE;
 736       break;
 737     case GST_STATE_CHANGE_PAUSED_TO_PLAYING:
 738       break;
 739     default:
 740       break;
 741   }
 742
 743   res = GST_ELEMENT_CLASS (parent_class)->change_state (element, transition);
 744
 745   switch (transition) {
 746     case GST_STATE_CHANGE_PLAYING_TO_PAUSED:
 747       break;
 748     case GST_STATE_CHANGE_PAUSED_TO_READY:{
 749       gst_rmdemux_reset (rmdemux);
 750       break;
 751     }
 752     case GST_STATE_CHANGE_READY_TO_NULL:
 753       break;
 754     default:
 755       break;
 756   }
 757
 758   return res;
 759 }
 760
 761 /* this function is called when the pad is activated and should start
 762  * processing data.
 763  *
 764  * We check if we can do random access to decide if we work push or
 765  * pull based.
 766  */
 767 static gboolean
 768 gst_rmdemux_sink_activate (GstPad * sinkpad)
 769 {
 770   if (gst_pad_check_pull_range (sinkpad)) {
 771     return gst_pad_activate_pull (sinkpad, TRUE);
 772   } else {
 773     return gst_pad_activate_push (sinkpad, TRUE);
 774   }
 775 }
 776
 777 /* this function gets called when we activate ourselves in push mode.
 778  * We cannot seek (ourselves) in the stream */
 779 static gboolean
 780 gst_rmdemux_sink_activate_push (GstPad * pad, gboolean active)
 781 {
 782   GstRMDemux *rmdemux;
 783
 784   rmdemux = GST_RMDEMUX (GST_PAD_PARENT (pad));
 785
 786   GST_DEBUG_OBJECT (rmdemux, "activate_push");
 787
 788   rmdemux->seekable = FALSE;
 789
 790   return TRUE;
 791 }
 792
 793 /* this function gets called when we activate ourselves in pull mode.
 794  * We can perform  random access to the resource and we start a task
 795  * to start reading */
 796 static gboolean
 797 gst_rmdemux_sink_activate_pull (GstPad * pad, gboolean active)
 798 {
 799   GstRMDemux *rmdemux;
 800
 801   rmdemux = GST_RMDEMUX (GST_PAD_PARENT (pad));
 802
 803   GST_DEBUG_OBJECT (rmdemux, "activate_pull");
 804
 805   if (active) {
 806     rmdemux->seekable = TRUE;
 807     rmdemux->offset = 0;
 808     rmdemux->loop_state = RMDEMUX_LOOP_STATE_HEADER;
 809     rmdemux->data_offset = G_MAXUINT;
 810
 811     return gst_pad_start_task (pad, (GstTaskFunction) gst_rmdemux_loop, pad);
 812   } else {
 813     return gst_pad_stop_task (pad);
 814   }
 815 }
 816
 817 /* random access mode - just pass over to our chain function */
 818 static void
 819 gst_rmdemux_loop (GstPad * pad)
 820 {
 821   GstRMDemux *rmdemux;
 822   GstBuffer *buffer;
 823   GstFlowReturn ret = GST_FLOW_OK;
 824   guint size;
 825
 826   rmdemux = GST_RMDEMUX (GST_PAD_PARENT (pad));
 827
 828   GST_LOG_OBJECT (rmdemux, "loop with state=%d and offset=0x%x",
 829       rmdemux->loop_state, rmdemux->offset);
 830
 831   switch (rmdemux->state) {
 832     case RMDEMUX_STATE_HEADER:
 833       size = HEADER_SIZE;
 834       break;
 835     case RMDEMUX_STATE_HEADER_DATA:
 836       size = DATA_SIZE;
 837       break;
 838     case RMDEMUX_STATE_DATA_PACKET:
 839       size = rmdemux->avg_packet_size;
 840       break;
 841     case RMDEMUX_STATE_EOS:
 842       GST_LOG_OBJECT (rmdemux, "At EOS, pausing task");
 843       ret = GST_FLOW_UNEXPECTED;
 844       goto need_pause;
 845     default:
 846       GST_LOG_OBJECT (rmdemux, "Default: requires %d bytes (state is %d)",
 847           (int) rmdemux->size, rmdemux->state);
 848       size = rmdemux->size;
 849   }
 850
 851   ret = gst_pad_pull_range (pad, rmdemux->offset, size, &buffer);
 852   if (ret != GST_FLOW_OK) {
 853     if (rmdemux->offset == rmdemux->index_offset) {
 854       /* The index isn't available so forget about it */
 855       rmdemux->loop_state = RMDEMUX_LOOP_STATE_DATA;
 856       rmdemux->offset = rmdemux->data_offset;
 857       GST_OBJECT_LOCK (rmdemux);
 858       rmdemux->running = TRUE;
 859       rmdemux->seekable = FALSE;
 860       GST_OBJECT_UNLOCK (rmdemux);
 861       return;
 862     } else {
 863       GST_DEBUG_OBJECT (rmdemux, "Unable to pull %d bytes at offset 0x%08x "
 864           "(pull_range returned flow %s, state is %d)", (gint) size,
 865           rmdemux->offset, gst_flow_get_name (ret), GST_STATE (rmdemux));
 866       goto need_pause;
 867     }
 868   }
 869
 870   size = GST_BUFFER_SIZE (buffer);
 871
 872   /* Defer to the chain function */
 873   ret = gst_rmdemux_chain (pad, buffer);
 874   if (ret != GST_FLOW_OK) {
 875     GST_DEBUG_OBJECT (rmdemux, "Chain flow failed at offset 0x%08x",
 876         rmdemux->offset);
 877     goto need_pause;
 878   }
 879
 880   rmdemux->offset += size;
 881
 882   switch (rmdemux->loop_state) {
 883     case RMDEMUX_LOOP_STATE_HEADER:
 884       if (rmdemux->offset >= rmdemux->data_offset) {
 885         /* It's the end of the header */
 886         rmdemux->loop_state = RMDEMUX_LOOP_STATE_INDEX;
 887         rmdemux->offset = rmdemux->index_offset;
 888       }
 889       break;
 890     case RMDEMUX_LOOP_STATE_INDEX:
 891       if (rmdemux->state == RMDEMUX_STATE_HEADER) {
 892         if (rmdemux->index_offset == 0) {
 893           /* We've read the last index */
 894           rmdemux->loop_state = RMDEMUX_LOOP_STATE_DATA;
 895           rmdemux->offset = rmdemux->data_offset;
 896           GST_OBJECT_LOCK (rmdemux);
 897           rmdemux->running = TRUE;
 898           GST_OBJECT_UNLOCK (rmdemux);
 899         } else {
 900           /* Get the next index */
 901           rmdemux->offset = rmdemux->index_offset;
 902         }
 903       }
 904       break;
 905     case RMDEMUX_LOOP_STATE_DATA:
 906       break;
 907   }
 908
 909   return;
 910
 911   /* ERRORS */
 912 need_pause:
 913   {
 914     const gchar *reason = gst_flow_get_name (ret);
 915
 916     GST_LOG_OBJECT (rmdemux, "pausing task, reason %s", reason);
 917     rmdemux->segment_running = FALSE;
 918     gst_pad_pause_task (rmdemux->sinkpad);
 919
 920     if (GST_FLOW_IS_FATAL (ret) || ret == GST_FLOW_NOT_LINKED) {
 921       if (ret == GST_FLOW_UNEXPECTED) {
 922         /* perform EOS logic */
 923         if (rmdemux->segment.flags & GST_SEEK_FLAG_SEGMENT) {
 924           gint64 stop;
 925
 926           /* for segment playback we need to post when (in stream time)
 927            * we stopped, this is either stop (when set) or the duration. */
 928           if ((stop = rmdemux->segment.stop) == -1)
 929             stop = rmdemux->segment.duration;
 930
 931           GST_LOG_OBJECT (rmdemux, "Sending segment done, at end of segment");
 932           gst_element_post_message (GST_ELEMENT (rmdemux),
 933               gst_message_new_segment_done (GST_OBJECT (rmdemux),
 934                   GST_FORMAT_TIME, stop));
 935         } else {
 936           /* normal playback, send EOS to all linked pads */
 937           GST_LOG_OBJECT (rmdemux, "Sending EOS, at end of stream");
 938           gst_rmdemux_send_event (rmdemux, gst_event_new_eos ());
 939         }
 940       } else {
 941         GST_ELEMENT_ERROR (rmdemux, STREAM, FAILED,
 942             (NULL), ("stream stopped, reason %s", reason));
 943         gst_rmdemux_send_event (rmdemux, gst_event_new_eos ());
 944       }
 945     }
 946     return;
 947   }
 948 }
 949
 950 static gboolean
 951 gst_rmdemux_fourcc_isplausible (guint32 fourcc)
 952 {
 953   int i;
 954
 955   for (i = 0; i < 4; i++) {
 956     if (!isprint ((int) ((unsigned char *) (&fourcc))[i])) {
 957       return FALSE;
 958     }
 959   }
 960   return TRUE;
 961 }
 962
 963 static GstFlowReturn
 964 gst_rmdemux_chain (GstPad * pad, GstBuffer * buffer)
 965 {
 966   GstFlowReturn ret = GST_FLOW_OK;
 967   const guint8 *data;
 968   guint16 version;
 969   guint avail;
 970
 971   GstRMDemux *rmdemux = GST_RMDEMUX (GST_PAD_PARENT (pad));
 972
 973   if (rmdemux->base_ts == -1) {
 974     rmdemux->base_ts = GST_BUFFER_TIMESTAMP (buffer);
 975     GST_LOG_OBJECT (rmdemux, "base_ts %" GST_TIME_FORMAT,
 976         GST_TIME_ARGS (rmdemux->base_ts));
 977   }
 978
 979   gst_adapter_push (rmdemux->adapter, buffer);
 980
 981   GST_LOG_OBJECT (rmdemux, "Chaining buffer of size %d",
 982       GST_BUFFER_SIZE (buffer));
 983
 984   while (TRUE) {
 985     avail = gst_adapter_available (rmdemux->adapter);
 986
 987     GST_LOG_OBJECT (rmdemux, "looping in chain, avail %u", avail);
 988     switch (rmdemux->state) {
 989       case RMDEMUX_STATE_HEADER:
 990       {
 991         if (gst_adapter_available (rmdemux->adapter) < HEADER_SIZE)
 992           goto unlock;
 993
 994         data = gst_adapter_peek (rmdemux->adapter, HEADER_SIZE);
 995
 996         rmdemux->object_id = RMDEMUX_FOURCC_GET (data + 0);
 997         rmdemux->size = RMDEMUX_GUINT32_GET (data + 4) - HEADER_SIZE;
 998         rmdemux->object_version = RMDEMUX_GUINT16_GET (data + 8);
 999
1000         /* Sanity-check. We assume that the FOURCC is printable ASCII */
1001         if (!gst_rmdemux_fourcc_isplausible (rmdemux->object_id)) {
1002           /* Failed. Remain in HEADER state, try again... We flush only
1003            * the actual FOURCC, not the entire header, because we could
1004            * need to resync anywhere at all... really, this should never
1005            * happen. */
1006           GST_WARNING_OBJECT (rmdemux, "Bogus looking header, unprintable "
1007               "FOURCC");
1008           gst_adapter_flush (rmdemux->adapter, 4);
1009
1010           break;
1011         }
1012
1013         GST_LOG_OBJECT (rmdemux, "header found with object_id=%"
1014             GST_FOURCC_FORMAT
1015             " size=%08x object_version=%d",
1016             GST_FOURCC_ARGS (rmdemux->object_id), rmdemux->size,
1017             rmdemux->object_version);
1018
1019         gst_adapter_flush (rmdemux->adapter, HEADER_SIZE);
1020
1021         switch (rmdemux->object_id) {
1022           case GST_MAKE_FOURCC ('.', 'R', 'M', 'F'):
1023             rmdemux->state = RMDEMUX_STATE_HEADER_RMF;
1024             break;
1025           case GST_MAKE_FOURCC ('P', 'R', 'O', 'P'):
1026             rmdemux->state = RMDEMUX_STATE_HEADER_PROP;
1027             break;
1028           case GST_MAKE_FOURCC ('M', 'D', 'P', 'R'):
1029             rmdemux->state = RMDEMUX_STATE_HEADER_MDPR;
1030             break;
1031           case GST_MAKE_FOURCC ('I', 'N', 'D', 'X'):
1032             rmdemux->state = RMDEMUX_STATE_HEADER_INDX;
1033             break;
1034           case GST_MAKE_FOURCC ('D', 'A', 'T', 'A'):
1035             rmdemux->state = RMDEMUX_STATE_HEADER_DATA;
1036             break;
1037           case GST_MAKE_FOURCC ('C', 'O', 'N', 'T'):
1038             rmdemux->state = RMDEMUX_STATE_HEADER_CONT;
1039             break;
1040           default:
1041             rmdemux->state = RMDEMUX_STATE_HEADER_UNKNOWN;
1042             break;
1043         }
1044         break;
1045       }
1046       case RMDEMUX_STATE_HEADER_UNKNOWN:
1047       {
1048         if (gst_adapter_available (rmdemux->adapter) < rmdemux->size)
1049           goto unlock;
1050
1051         GST_WARNING_OBJECT (rmdemux, "Unknown object_id %" GST_FOURCC_FORMAT,
1052             GST_FOURCC_ARGS (rmdemux->object_id));
1053
1054         gst_adapter_flush (rmdemux->adapter, rmdemux->size);
1055         rmdemux->state = RMDEMUX_STATE_HEADER;
1056         break;
1057       }
1058       case RMDEMUX_STATE_HEADER_RMF:
1059       {
1060         if (gst_adapter_available (rmdemux->adapter) < rmdemux->size)
1061           goto unlock;
1062
1063         if ((rmdemux->object_version == 0) || (rmdemux->object_version == 1)) {
1064           data = gst_adapter_peek (rmdemux->adapter, rmdemux->size);
1065
1066           gst_rmdemux_parse__rmf (rmdemux, data, rmdemux->size);
1067         }
1068
1069         gst_adapter_flush (rmdemux->adapter, rmdemux->size);
1070         rmdemux->state = RMDEMUX_STATE_HEADER;
1071         break;
1072       }
1073       case RMDEMUX_STATE_HEADER_PROP:
1074       {
1075         if (gst_adapter_available (rmdemux->adapter) < rmdemux->size)
1076           goto unlock;
1077         data = gst_adapter_peek (rmdemux->adapter, rmdemux->size);
1078
1079         gst_rmdemux_parse_prop (rmdemux, data, rmdemux->size);
1080
1081         gst_adapter_flush (rmdemux->adapter, rmdemux->size);
1082         rmdemux->state = RMDEMUX_STATE_HEADER;
1083         break;
1084       }
1085       case RMDEMUX_STATE_HEADER_MDPR:
1086       {
1087         if (gst_adapter_available (rmdemux->adapter) < rmdemux->size)
1088           goto unlock;
1089         data = gst_adapter_peek (rmdemux->adapter, rmdemux->size);
1090
1091         gst_rmdemux_parse_mdpr (rmdemux, data, rmdemux->size);
1092
1093         gst_adapter_flush (rmdemux->adapter, rmdemux->size);
1094         rmdemux->state = RMDEMUX_STATE_HEADER;
1095         break;
1096       }
1097       case RMDEMUX_STATE_HEADER_CONT:
1098       {
1099         if (gst_adapter_available (rmdemux->adapter) < rmdemux->size)
1100           goto unlock;
1101         data = gst_adapter_peek (rmdemux->adapter, rmdemux->size);
1102
1103         gst_rmdemux_parse_cont (rmdemux, data, rmdemux->size);
1104
1105         gst_adapter_flush (rmdemux->adapter, rmdemux->size);
1106         rmdemux->state = RMDEMUX_STATE_HEADER;
1107         break;
1108       }
1109       case RMDEMUX_STATE_HEADER_DATA:
1110       {
1111         /* If we haven't already done so then signal there are no more pads */
1112         if (!rmdemux->have_pads) {
1113           GST_LOG_OBJECT (rmdemux, "no more pads");
1114           gst_element_no_more_pads (GST_ELEMENT (rmdemux));
1115           rmdemux->have_pads = TRUE;
1116         }
1117
1118         /* The actual header is only 8 bytes */
1119         rmdemux->size = DATA_SIZE;
1120         GST_LOG_OBJECT (rmdemux, "data available %d",
1121             gst_adapter_available (rmdemux->adapter));
1122         if (gst_adapter_available (rmdemux->adapter) < rmdemux->size)
1123           goto unlock;
1124
1125         data = gst_adapter_peek (rmdemux->adapter, rmdemux->size);
1126
1127         gst_rmdemux_parse_data (rmdemux, data, rmdemux->size);
1128
1129         gst_adapter_flush (rmdemux->adapter, rmdemux->size);
1130
1131         rmdemux->state = RMDEMUX_STATE_DATA_PACKET;
1132         break;
1133       }
1134       case RMDEMUX_STATE_HEADER_INDX:
1135       {
1136         if (gst_adapter_available (rmdemux->adapter) < rmdemux->size)
1137           goto unlock;
1138         data = gst_adapter_peek (rmdemux->adapter, rmdemux->size);
1139
1140         rmdemux->size = gst_rmdemux_parse_indx (rmdemux, data, rmdemux->size);
1141
1142         /* Only flush the header */
1143         gst_adapter_flush (rmdemux->adapter, HEADER_SIZE);
1144
1145         rmdemux->state = RMDEMUX_STATE_INDX_DATA;
1146         break;
1147       }
1148       case RMDEMUX_STATE_INDX_DATA:
1149       {
1150         /* There's not always an data to get... */
1151         if (rmdemux->size > 0) {
1152           if (gst_adapter_available (rmdemux->adapter) < rmdemux->size)
1153             goto unlock;
1154
1155           data = gst_adapter_peek (rmdemux->adapter, rmdemux->size);
1156
1157           gst_rmdemux_parse_indx_data (rmdemux, data, rmdemux->size);
1158
1159           gst_adapter_flush (rmdemux->adapter, rmdemux->size);
1160         }
1161
1162         rmdemux->state = RMDEMUX_STATE_HEADER;
1163         break;
1164       }
1165       case RMDEMUX_STATE_DATA_PACKET:
1166       {
1167         if (gst_adapter_available (rmdemux->adapter) < 2)
1168           goto unlock;
1169
1170         data = gst_adapter_peek (rmdemux->adapter, 2);
1171         version = RMDEMUX_GUINT16_GET (data);
1172         GST_LOG_OBJECT (rmdemux, "Data packet with version=%d", version);
1173
1174         if (version == 0 || version == 1) {
1175           guint16 length;
1176
1177           if (gst_adapter_available (rmdemux->adapter) < 4)
1178             goto unlock;
1179           data = gst_adapter_peek (rmdemux->adapter, 4);
1180
1181           length = RMDEMUX_GUINT16_GET (data + 2);
1182           GST_LOG_OBJECT (rmdemux, "Got length %d", length);
1183
1184           if (length < 4) {
1185             GST_LOG_OBJECT (rmdemux, "length too small, dropping");
1186             /* Invalid, just drop it */
1187             gst_adapter_flush (rmdemux->adapter, 4);
1188           } else {
1189             GstBuffer *buffer;
1190
1191             avail = gst_adapter_available (rmdemux->adapter);
1192             if (avail < length)
1193               goto unlock;
1194
1195             GST_LOG_OBJECT (rmdemux, "we have %u available and we needed %d",
1196                 avail, length);
1197
1198             /* flush version and length */
1199             gst_adapter_flush (rmdemux->adapter, 4);
1200             length -= 4;
1201
1202             buffer = gst_adapter_take_buffer (rmdemux->adapter, length);
1203
1204             ret = gst_rmdemux_parse_packet (rmdemux, buffer, version);
1205             rmdemux->chunk_index++;
1206           }
1207
1208           if (rmdemux->chunk_index == rmdemux->n_chunks || length == 0)
1209             rmdemux->state = RMDEMUX_STATE_HEADER;
1210         } else {
1211           /* Stream done */
1212           gst_adapter_flush (rmdemux->adapter, 2);
1213
1214           if (rmdemux->data_offset == 0) {
1215             GST_LOG_OBJECT (rmdemux,
1216                 "No further data, internal demux state EOS");
1217             rmdemux->state = RMDEMUX_STATE_EOS;
1218           } else
1219             rmdemux->state = RMDEMUX_STATE_HEADER;
1220         }
1221         break;
1222       }
1223       case RMDEMUX_STATE_EOS:
1224         gst_rmdemux_send_event (rmdemux, gst_event_new_eos ());
1225         goto unlock;
1226       default:
1227         GST_WARNING_OBJECT (rmdemux, "Unhandled state %d", rmdemux->state);
1228         goto unlock;
1229     }
1230   }
1231
1232 unlock:
1233   return ret;
1234 }
1235
1236 static GstRMDemuxStream *
1237 gst_rmdemux_get_stream_by_id (GstRMDemux * rmdemux, int id)
1238 {
1239   GSList *cur;
1240
1241   for (cur = rmdemux->streams; cur; cur = cur->next) {
1242     GstRMDemuxStream *stream = cur->data;
1243
1244     if (stream->id == id) {
1245       return stream;
1246     }
1247   }
1248
1249   return NULL;
1250 }
1251
1252 static void
1253 gst_rmdemux_send_event (GstRMDemux * rmdemux, GstEvent * event)
1254 {
1255   GSList *cur;
1256
1257   for (cur = rmdemux->streams; cur; cur = cur->next) {
1258     GstRMDemuxStream *stream = cur->data;
1259
1260     GST_DEBUG_OBJECT (rmdemux, "Pushing %s event on pad %s",
1261         GST_EVENT_TYPE_NAME (event), GST_PAD_NAME (stream->pad));
1262
1263     switch (GST_EVENT_TYPE (event)) {
1264       case GST_EVENT_FLUSH_STOP:
1265         stream->last_ts = -1;
1266         stream->next_ts = -1;
1267         stream->last_seq = -1;
1268         stream->next_seq = -1;
1269         stream->last_flow = GST_FLOW_OK;
1270         break;
1271       default:
1272         break;
1273     }
1274     gst_event_ref (event);
1275     gst_pad_push_event (stream->pad, event);
1276   }
1277   gst_event_unref (event);
1278 }
1279
1280 static void
1281 gst_rmdemux_add_stream (GstRMDemux * rmdemux, GstRMDemuxStream * stream)
1282 {
1283   GstCaps *stream_caps = NULL;
1284   const gchar *codec_tag = NULL;
1285   const gchar *codec_name = NULL;
1286   int version = 0;
1287
1288   if (stream->subtype == GST_RMDEMUX_STREAM_VIDEO) {
1289     char *name = g_strdup_printf ("video_%02d", rmdemux->n_video_streams);
1290
1291     stream->pad =
1292         gst_pad_new_from_static_template (&gst_rmdemux_videosrc_template, name);
1293     g_free (name);
1294
1295     codec_tag = GST_TAG_VIDEO_CODEC;
1296
1297     switch (stream->fourcc) {
1298       case GST_RM_VDO_RV10:
1299         codec_name = "Real Video 1.0";
1300         version = 1;
1301         break;
1302       case GST_RM_VDO_RV20:
1303         codec_name = "Real Video 2.0";
1304         version = 2;
1305         break;
1306       case GST_RM_VDO_RV30:
1307         codec_name = "Real Video 3.0";
1308         version = 3;
1309         break;
1310       case GST_RM_VDO_RV40:
1311         codec_name = "Real Video 4.0";
1312         version = 4;
1313         break;
1314       default:
1315         stream_caps = gst_caps_new_simple ("video/x-unknown-fourcc",
1316             "fourcc", GST_TYPE_FOURCC, stream->fourcc, NULL);
1317         GST_WARNING_OBJECT (rmdemux,
1318             "Unknown video FOURCC code \"%" GST_FOURCC_FORMAT "\" (%08x)",
1319             GST_FOURCC_ARGS (stream->fourcc), stream->fourcc);
1320     }
1321
1322     if (version) {
1323       stream_caps =
1324           gst_caps_new_simple ("video/x-pn-realvideo", "rmversion", G_TYPE_INT,
1325           (int) version,
1326           "format", G_TYPE_INT,
1327           (int) stream->format,
1328           "subformat", G_TYPE_INT, (int) stream->subformat, NULL);
1329     }
1330
1331     if (stream_caps) {
1332       gst_caps_set_simple (stream_caps,
1333           "width", G_TYPE_INT, stream->width,
1334           "height", G_TYPE_INT, stream->height,
1335           "framerate", GST_TYPE_FRACTION, stream->framerate_numerator,
1336           stream->framerate_denominator, NULL);
1337     }
1338     rmdemux->n_video_streams++;
1339
1340   } else if (stream->subtype == GST_RMDEMUX_STREAM_AUDIO) {
1341     char *name = g_strdup_printf ("audio_%02d", rmdemux->n_audio_streams);
1342
1343     stream->pad =
1344         gst_pad_new_from_static_template (&gst_rmdemux_audiosrc_template, name);
1345     GST_LOG_OBJECT (rmdemux, "Created audio pad \"%s\"", name);
1346     g_free (name);
1347
1348     codec_tag = GST_TAG_AUDIO_CODEC;
1349
1350     switch (stream->fourcc) {
1351         /* Older RealAudio Codecs */
1352       case GST_RM_AUD_14_4:
1353         codec_name = "Real Audio 14.4kbps";
1354         version = 1;
1355         break;
1356
1357       case GST_RM_AUD_28_8:
1358         codec_name = "Real Audio 28.8kbps";
1359         version = 2;
1360         break;
1361
1362         /* DolbyNet (Dolby AC3, low bitrate) */
1363       case GST_RM_AUD_DNET:
1364         codec_name = "AC-3 audio";
1365         stream_caps =
1366             gst_caps_new_simple ("audio/x-ac3", "rate", G_TYPE_INT,
1367             (int) stream->rate, NULL);
1368         stream->needs_descrambling = TRUE;
1369         stream->subpackets_needed = 1;
1370         stream->subpackets = NULL;
1371         break;
1372
1373         /* MPEG-4 based */
1374       case GST_RM_AUD_RAAC:
1375       case GST_RM_AUD_RACP:
1376         codec_name = "MPEG4 audio";
1377         stream_caps =
1378             gst_caps_new_simple ("audio/mpeg", "mpegversion", G_TYPE_INT,
1379             (int) 4, "framed", G_TYPE_BOOLEAN, TRUE, NULL);
1380         if (stream->extra_data_size > 0) {
1381           /* strip off an unknown byte in the extra data */
1382           stream->extra_data_size--;
1383           stream->extra_data++;
1384         }
1385         stream->needs_descrambling = TRUE;
1386         stream->subpackets_needed = 1;
1387         stream->subpackets = NULL;
1388         break;
1389
1390         /* Sony ATRAC3 */
1391       case GST_RM_AUD_ATRC:
1392         codec_name = "Sony ATRAC3";
1393         stream_caps = gst_caps_new_simple ("audio/x-vnd.sony.atrac3", NULL);
1394         stream->needs_descrambling = TRUE;
1395         stream->subpackets_needed = stream->height;
1396         stream->subpackets = NULL;
1397         break;
1398
1399         /* RealAudio G2 audio */
1400       case GST_RM_AUD_COOK:
1401         codec_name = "Real Audio G2 (Cook)";
1402         version = 8;
1403         stream->needs_descrambling = TRUE;
1404         stream->subpackets_needed = stream->height;
1405         stream->subpackets = NULL;
1406         break;
1407
1408         /* RALF is lossless */
1409       case GST_RM_AUD_RALF:
1410         codec_name = "Real Audio Lossless (RALF)";
1411         GST_DEBUG_OBJECT (rmdemux, "RALF");
1412         stream_caps = gst_caps_new_simple ("audio/x-ralf-mpeg4-generic", NULL);
1413         break;
1414
1415       case GST_RM_AUD_SIPR:
1416
1417         if (stream->flavor > 3) {
1418           GST_WARNING_OBJECT (rmdemux, "bad SIPR flavor %d, freeing it",
1419               stream->flavor);
1420           g_free (stream);
1421           goto beach;
1422         }
1423
1424         codec_name = "Sipro/ACELP.NET Voice";
1425         GST_DEBUG_OBJECT (rmdemux, "SIPR");
1426         stream_caps = gst_caps_new_simple ("audio/x-sipro", NULL);
1427         stream->needs_descrambling = TRUE;
1428         stream->subpackets_needed = stream->height;
1429         stream->subpackets = NULL;
1430         stream->leaf_size = sipr_subpk_size[stream->flavor];
1431
1432         break;
1433
1434       default:
1435         stream_caps = gst_caps_new_simple ("video/x-unknown-fourcc",
1436             "fourcc", GST_TYPE_FOURCC, stream->fourcc, NULL);
1437         GST_WARNING_OBJECT (rmdemux,
1438             "Unknown audio FOURCC code \"%" GST_FOURCC_FORMAT "\" (%08x)",
1439             GST_FOURCC_ARGS (stream->fourcc), stream->fourcc);
1440         break;
1441     }
1442
1443     if (version) {
1444       stream_caps =
1445           gst_caps_new_simple ("audio/x-pn-realaudio", "raversion", G_TYPE_INT,
1446           (int) version, NULL);
1447     }
1448
1449     if (stream_caps) {
1450       gst_caps_set_simple (stream_caps,
1451           "flavor", G_TYPE_INT, (int) stream->flavor,
1452           "rate", G_TYPE_INT, (int) stream->rate,
1453           "channels", G_TYPE_INT, (int) stream->n_channels,
1454           "width", G_TYPE_INT, (int) stream->sample_width,
1455           "leaf_size", G_TYPE_INT, (int) stream->leaf_size,
1456           "packet_size", G_TYPE_INT, (int) stream->packet_size,
1457           "height", G_TYPE_INT, (int) stream->height, NULL);
1458     }
1459     rmdemux->n_audio_streams++;
1460   } else {
1461     GST_WARNING_OBJECT (rmdemux, "not adding stream of type %d, freeing it",
1462         stream->subtype);
1463     g_free (stream);
1464     goto beach;
1465   }
1466
1467   GST_PAD_ELEMENT_PRIVATE (stream->pad) = stream;
1468   rmdemux->streams = g_slist_append (rmdemux->streams, stream);
1469   GST_LOG_OBJECT (rmdemux, "n_streams is now %d",
1470       g_slist_length (rmdemux->streams));
1471
1472   GST_LOG ("stream->pad = %p, stream_caps = %" GST_PTR_FORMAT, stream->pad,
1473       stream_caps);
1474
1475   if (stream->pad && stream_caps) {
1476
1477     GST_LOG_OBJECT (rmdemux, "%d bytes of extra data for stream %s",
1478         stream->extra_data_size, GST_PAD_NAME (stream->pad));
1479
1480     /* add codec_data if there is any */
1481     if (stream->extra_data_size > 0) {
1482       GstBuffer *buffer;
1483
1484       buffer = gst_buffer_new_and_alloc (stream->extra_data_size);
1485       memcpy (GST_BUFFER_DATA (buffer), stream->extra_data,
1486           stream->extra_data_size);
1487
1488       gst_caps_set_simple (stream_caps, "codec_data", GST_TYPE_BUFFER,
1489           buffer, NULL);
1490
1491       gst_buffer_unref (buffer);
1492     }
1493
1494     gst_pad_use_fixed_caps (stream->pad);
1495
1496     gst_pad_set_caps (stream->pad, stream_caps);
1497     gst_pad_set_event_function (stream->pad,
1498         GST_DEBUG_FUNCPTR (gst_rmdemux_src_event));
1499     gst_pad_set_query_type_function (stream->pad,
1500         GST_DEBUG_FUNCPTR (gst_rmdemux_src_query_types));
1501     gst_pad_set_query_function (stream->pad,
1502         GST_DEBUG_FUNCPTR (gst_rmdemux_src_query));
1503
1504     GST_DEBUG_OBJECT (rmdemux, "adding pad %s with caps %" GST_PTR_FORMAT
1505         ", stream_id=%d", GST_PAD_NAME (stream->pad), stream_caps, stream->id);
1506     gst_pad_set_active (stream->pad, TRUE);
1507     gst_element_add_pad (GST_ELEMENT_CAST (rmdemux), stream->pad);
1508
1509     /* save for later, we must send the tags after the newsegment event */
1510     if (codec_name != NULL && codec_tag != NULL) {
1511       if (stream->pending_tags == NULL)
1512         stream->pending_tags = gst_tag_list_new ();
1513       gst_tag_list_add (stream->pending_tags, GST_TAG_MERGE_KEEP,
1514           codec_tag, codec_name, NULL);
1515     }
1516   }
1517
1518 beach:
1519
1520   if (stream_caps)
1521     gst_caps_unref (stream_caps);
1522 }
1523
1524 static int
1525 re_skip_pascal_string (const guint8 * ptr)
1526 {
1527   int length;
1528
1529   length = ptr[0];
1530
1531   return length + 1;
1532 }
1533
1534 static void
1535 gst_rmdemux_parse__rmf (GstRMDemux * rmdemux, const guint8 * data, int length)
1536 {
1537   GST_LOG_OBJECT (rmdemux, "file_version: %d", RMDEMUX_GUINT32_GET (data));
1538   GST_LOG_OBJECT (rmdemux, "num_headers: %d", RMDEMUX_GUINT32_GET (data + 4));
1539 }
1540
1541 static void
1542 gst_rmdemux_parse_prop (GstRMDemux * rmdemux, const guint8 * data, int length)
1543 {
1544   GST_LOG_OBJECT (rmdemux, "max bitrate: %d", RMDEMUX_GUINT32_GET (data));
1545   GST_LOG_OBJECT (rmdemux, "avg bitrate: %d", RMDEMUX_GUINT32_GET (data + 4));
1546   GST_LOG_OBJECT (rmdemux, "max packet size: %d",
1547       RMDEMUX_GUINT32_GET (data + 8));
1548   rmdemux->avg_packet_size = RMDEMUX_GUINT32_GET (data + 12);
1549   GST_LOG_OBJECT (rmdemux, "avg packet size: %d", rmdemux->avg_packet_size);
1550   rmdemux->num_packets = RMDEMUX_GUINT32_GET (data + 16);
1551   GST_LOG_OBJECT (rmdemux, "number of packets: %d", rmdemux->num_packets);
1552
1553   GST_LOG_OBJECT (rmdemux, "duration: %d", RMDEMUX_GUINT32_GET (data + 20));
1554   rmdemux->duration = RMDEMUX_GUINT32_GET (data + 20) * GST_MSECOND;
1555
1556   GST_LOG_OBJECT (rmdemux, "preroll: %d", RMDEMUX_GUINT32_GET (data + 24));
1557   rmdemux->index_offset = RMDEMUX_GUINT32_GET (data + 28);
1558   GST_LOG_OBJECT (rmdemux, "offset of INDX section: 0x%08x",
1559       rmdemux->index_offset);
1560   rmdemux->data_offset = RMDEMUX_GUINT32_GET (data + 32);
1561   GST_LOG_OBJECT (rmdemux, "offset of DATA section: 0x%08x",
1562       rmdemux->data_offset);
1563   GST_LOG_OBJECT (rmdemux, "n streams: %d", RMDEMUX_GUINT16_GET (data + 36));
1564   GST_LOG_OBJECT (rmdemux, "flags: 0x%04x", RMDEMUX_GUINT16_GET (data + 38));
1565 }
1566
1567 static void
1568 gst_rmdemux_parse_mdpr (GstRMDemux * rmdemux, const guint8 * data, int length)
1569 {
1570   GstRMDemuxStream *stream;
1571   char *stream1_type_string;
1572   char *stream2_type_string;
1573   guint str_len = 0;
1574   int stream_type;
1575   int offset;
1576   guint32 max_bitrate;
1577   guint32 avg_bitrate;
1578
1579   stream = g_new0 (GstRMDemuxStream, 1);
1580
1581   stream->id = RMDEMUX_GUINT16_GET (data);
1582   stream->index = NULL;
1583   stream->seek_offset = 0;
1584   stream->last_ts = -1;
1585   stream->next_ts = -1;
1586   stream->last_flow = GST_FLOW_OK;
1587   stream->discont = TRUE;
1588   stream->adapter = gst_adapter_new ();
1589   GST_LOG_OBJECT (rmdemux, "stream_number=%d", stream->id);
1590
1591   /* parse the bitrates */
1592   max_bitrate = RMDEMUX_GUINT32_GET (data + 2);
1593   avg_bitrate = RMDEMUX_GUINT32_GET (data + 6);
1594   GST_LOG_OBJECT (rmdemux, "Stream max bitrate=%u", max_bitrate);
1595   GST_LOG_OBJECT (rmdemux, "Stream avg bitrate=%u", avg_bitrate);
1596   if (max_bitrate != 0) {
1597     if (stream->pending_tags == NULL)
1598       stream->pending_tags = gst_tag_list_new ();
1599     gst_tag_list_add (stream->pending_tags, GST_TAG_MERGE_REPLACE,
1600         GST_TAG_MAXIMUM_BITRATE, max_bitrate, NULL);
1601   }
1602   if (avg_bitrate != 0) {
1603     if (stream->pending_tags == NULL)
1604       stream->pending_tags = gst_tag_list_new ();
1605     gst_tag_list_add (stream->pending_tags, GST_TAG_MERGE_REPLACE,
1606         GST_TAG_BITRATE, avg_bitrate, NULL);
1607   }
1608
1609   offset = 30;
1610   stream1_type_string = gst_rm_utils_read_string8 (data + offset,
1611       length - offset, &str_len);
1612   offset += str_len;
1613   stream2_type_string = gst_rm_utils_read_string8 (data + offset,
1614       length - offset, &str_len);
1615   offset += str_len;
1616
1617   /* stream1_type_string for audio and video stream is a "put_whatever_you_want" field :
1618    * observed values :
1619    * - "[The ]Video/Audio Stream" (File produced by an official Real encoder)
1620    * - "RealVideoPremierePlugIn-VIDEO/AUDIO" (File produced by Abobe Premiere)
1621    *
1622    * so, we should not rely on it to know which stream type it is
1623    */
1624
1625   GST_LOG_OBJECT (rmdemux, "stream type: %s", stream1_type_string);
1626   GST_LOG_OBJECT (rmdemux, "MIME type=%s", stream2_type_string);
1627
1628   if (strcmp (stream2_type_string, "video/x-pn-realvideo") == 0) {
1629     stream_type = GST_RMDEMUX_STREAM_VIDEO;
1630   } else if (strcmp (stream2_type_string,
1631           "video/x-pn-multirate-realvideo") == 0) {
1632     stream_type = GST_RMDEMUX_STREAM_VIDEO;
1633   } else if (strcmp (stream2_type_string, "audio/x-pn-realaudio") == 0) {
1634     stream_type = GST_RMDEMUX_STREAM_AUDIO;
1635   } else if (strcmp (stream2_type_string,
1636           "audio/x-pn-multirate-realaudio") == 0) {
1637     stream_type = GST_RMDEMUX_STREAM_AUDIO;
1638   } else if (strcmp (stream2_type_string,
1639           "audio/x-pn-multirate-realaudio-live") == 0) {
1640     stream_type = GST_RMDEMUX_STREAM_AUDIO;
1641   } else if (strcmp (stream2_type_string, "audio/x-ralf-mpeg4-generic") == 0) {
1642     /* Another audio type found in the real testsuite */
1643     stream_type = GST_RMDEMUX_STREAM_AUDIO;
1644   } else if (strcmp (stream1_type_string, "") == 0 &&
1645       strcmp (stream2_type_string, "logical-fileinfo") == 0) {
1646     stream_type = GST_RMDEMUX_STREAM_FILEINFO;
1647   } else {
1648     stream_type = GST_RMDEMUX_STREAM_UNKNOWN;
1649     GST_WARNING_OBJECT (rmdemux, "unknown stream type \"%s\",\"%s\"",
1650         stream1_type_string, stream2_type_string);
1651   }
1652   g_free (stream1_type_string);
1653   g_free (stream2_type_string);
1654
1655   offset += 4;
1656
1657   stream->subtype = stream_type;
1658   switch (stream_type) {
1659
1660     case GST_RMDEMUX_STREAM_VIDEO:
1661       /* RV10/RV20/RV30/RV40 => video/x-pn-realvideo, version=1,2,3,4 */
1662       stream->fourcc = RMDEMUX_FOURCC_GET (data + offset + 8);
1663       stream->width = RMDEMUX_GUINT16_GET (data + offset + 12);
1664       stream->height = RMDEMUX_GUINT16_GET (data + offset + 14);
1665       stream->rate = RMDEMUX_GUINT16_GET (data + offset + 16);
1666       stream->subformat = RMDEMUX_GUINT32_GET (data + offset + 26);
1667       stream->format = RMDEMUX_GUINT32_GET (data + offset + 30);
1668       stream->extra_data_size = length - (offset + 26);
1669       stream->extra_data = (guint8 *) data + offset + 26;
1670       /* Natural way to represent framerates here requires unsigned 32 bit
1671        * numerator, which we don't have. For the nasty case, approximate...
1672        */
1673       {
1674         guint32 numerator = RMDEMUX_GUINT16_GET (data + offset + 22) * 65536 +
1675             RMDEMUX_GUINT16_GET (data + offset + 24);
1676         if (numerator > G_MAXINT) {
1677           stream->framerate_numerator = (gint) (numerator >> 1);
1678           stream->framerate_denominator = 32768;
1679         } else {
1680           stream->framerate_numerator = (gint) numerator;
1681           stream->framerate_denominator = 65536;
1682         }
1683       }
1684
1685       GST_DEBUG_OBJECT (rmdemux,
1686           "Video stream with fourcc=%" GST_FOURCC_FORMAT
1687           " width=%d height=%d rate=%d framerate=%d/%d subformat=%x format=%x extra_data_size=%d",
1688           GST_FOURCC_ARGS (stream->fourcc), stream->width, stream->height,
1689           stream->rate, stream->framerate_numerator,
1690           stream->framerate_denominator, stream->subformat, stream->format,
1691           stream->extra_data_size);
1692       break;
1693     case GST_RMDEMUX_STREAM_AUDIO:{
1694       stream->version = RMDEMUX_GUINT16_GET (data + offset + 4);
1695       GST_INFO ("stream version = %u", stream->version);
1696       switch (stream->version) {
1697         case 3:
1698           stream->fourcc = GST_RM_AUD_14_4;
1699           stream->packet_size = 20;
1700           stream->rate = 8000;
1701           stream->n_channels = 1;
1702           stream->sample_width = 16;
1703           stream->flavor = 1;
1704           stream->leaf_size = 0;
1705           stream->height = 0;
1706           break;
1707         case 4:
1708           stream->flavor = RMDEMUX_GUINT16_GET (data + offset + 22);
1709           stream->packet_size = RMDEMUX_GUINT32_GET (data + offset + 24);
1710           /* stream->frame_size = RMDEMUX_GUINT32_GET (data + offset + 42); */
1711           stream->leaf_size = RMDEMUX_GUINT16_GET (data + offset + 44);
1712           stream->height = RMDEMUX_GUINT16_GET (data + offset + 40);
1713           stream->rate = RMDEMUX_GUINT16_GET (data + offset + 48);
1714           stream->sample_width = RMDEMUX_GUINT16_GET (data + offset + 52);
1715           stream->n_channels = RMDEMUX_GUINT16_GET (data + offset + 54);
1716           stream->fourcc = RMDEMUX_FOURCC_GET (data + offset + 62);
1717           stream->extra_data_size = RMDEMUX_GUINT32_GET (data + offset + 69);
1718           GST_DEBUG_OBJECT (rmdemux, "%u bytes of extra codec data",
1719               stream->extra_data_size);
1720           if (length - (offset + 73) >= stream->extra_data_size) {
1721             stream->extra_data = (guint8 *) data + offset + 73;
1722           } else {
1723             GST_WARNING_OBJECT (rmdemux, "codec data runs beyond MDPR chunk");
1724             stream->extra_data_size = 0;
1725           }
1726           break;
1727         case 5:
1728           stream->flavor = RMDEMUX_GUINT16_GET (data + offset + 22);
1729           stream->packet_size = RMDEMUX_GUINT32_GET (data + offset + 24);
1730           /* stream->frame_size = RMDEMUX_GUINT32_GET (data + offset + 42); */
1731           stream->leaf_size = RMDEMUX_GUINT16_GET (data + offset + 44);
1732           stream->height = RMDEMUX_GUINT16_GET (data + offset + 40);
1733           stream->rate = RMDEMUX_GUINT16_GET (data + offset + 54);
1734           stream->sample_width = RMDEMUX_GUINT16_GET (data + offset + 58);
1735           stream->n_channels = RMDEMUX_GUINT16_GET (data + offset + 60);
1736           stream->fourcc = RMDEMUX_FOURCC_GET (data + offset + 66);
1737           stream->extra_data_size = RMDEMUX_GUINT32_GET (data + offset + 74);
1738           GST_DEBUG_OBJECT (rmdemux, "%u bytes of extra codec data",
1739               stream->extra_data_size);
1740           if (length - (offset + 78) >= stream->extra_data_size) {
1741             stream->extra_data = (guint8 *) data + offset + 78;
1742           } else {
1743             GST_WARNING_OBJECT (rmdemux, "codec data runs beyond MDPR chunk");
1744             stream->extra_data_size = 0;
1745           }
1746           break;
1747         default:{
1748           GST_WARNING_OBJECT (rmdemux, "Unhandled audio stream version %d",
1749               stream->version);
1750           break;
1751         }
1752       }
1753       /*  14_4, 28_8, cook, dnet, sipr, raac, racp, ralf, atrc */
1754       GST_DEBUG_OBJECT (rmdemux,
1755           "Audio stream with rate=%d sample_width=%d n_channels=%d",
1756           stream->rate, stream->sample_width, stream->n_channels);
1757
1758       break;
1759     }
1760     case GST_RMDEMUX_STREAM_FILEINFO:
1761     {
1762       int element_nb;
1763
1764       /* Length of this section */
1765       GST_DEBUG_OBJECT (rmdemux, "length2: 0x%08x",
1766           RMDEMUX_GUINT32_GET (data + offset));
1767       offset += 4;
1768
1769       /* Unknown : 00 00 00 00 */
1770       offset += 4;
1771
1772       /* Number of variables that would follow (loop iterations) */
1773       element_nb = RMDEMUX_GUINT32_GET (data + offset);
1774       offset += 4;
1775
1776       while (element_nb) {
1777         /* Category Id : 00 00 00 XX 00 00 */
1778         offset += 6;
1779
1780         /* Variable Name */
1781         offset += re_skip_pascal_string (data + offset);
1782
1783         /* Variable Value Type */
1784         /*   00 00 00 00 00 => integer/boolean, preceded by length */
1785         /*   00 00 00 02 00 => pascal string, preceded by length, no trailing \0 */
1786         offset += 5;
1787
1788         /* Variable Value */
1789         offset += re_skip_pascal_string (data + offset);
1790
1791         element_nb--;
1792       }
1793     }
1794       break;
1795     case GST_RMDEMUX_STREAM_UNKNOWN:
1796     default:
1797       break;
1798   }
1799
1800   gst_rmdemux_add_stream (rmdemux, stream);
1801 }
1802
1803 static guint
1804 gst_rmdemux_parse_indx (GstRMDemux * rmdemux, const guint8 * data, int length)
1805 {
1806   int n;
1807   int id;
1808
1809   n = RMDEMUX_GUINT32_GET (data);
1810   id = RMDEMUX_GUINT16_GET (data + 4);
1811   rmdemux->index_offset = RMDEMUX_GUINT32_GET (data + 6);
1812
1813   GST_DEBUG_OBJECT (rmdemux, "Number of indices=%d Stream ID=%d length=%d", n,
1814       id, length);
1815
1816   /* Point to the next index_stream */
1817   rmdemux->index_stream = gst_rmdemux_get_stream_by_id (rmdemux, id);
1818
1819   /* Return the length of the index */
1820   return 14 * n;
1821 }
1822
1823 static void
1824 gst_rmdemux_parse_indx_data (GstRMDemux * rmdemux, const guint8 * data,
1825     int length)
1826 {
1827   int i;
1828   int n;
1829   GstRMDemuxIndex *index;
1830
1831   /* The number of index records */
1832   n = length / 14;
1833
1834   if (rmdemux->index_stream == NULL)
1835     return;
1836
1837   /* don't parse the index a second time when operating pull-based and
1838    * reaching the end of the file */
1839   if (rmdemux->index_stream->index_length > 0) {
1840     GST_DEBUG_OBJECT (rmdemux, "Already have an index for this stream");
1841     return;
1842   }
1843
1844   index = g_malloc (sizeof (GstRMDemuxIndex) * n);
1845   rmdemux->index_stream->index = index;
1846   rmdemux->index_stream->index_length = n;
1847
1848   for (i = 0; i < n; i++) {
1849     index[i].timestamp = RMDEMUX_GUINT32_GET (data + 2) * GST_MSECOND;
1850     index[i].offset = RMDEMUX_GUINT32_GET (data + 6);
1851
1852     GST_DEBUG_OBJECT (rmdemux, "Index found for timestamp=%f (at offset=%x)",
1853         gst_guint64_to_gdouble (index[i].timestamp) / GST_SECOND,
1854         index[i].offset);
1855     data += 14;
1856   }
1857 }
1858
1859 static void
1860 gst_rmdemux_parse_data (GstRMDemux * rmdemux, const guint8 * data, int length)
1861 {
1862   rmdemux->n_chunks = RMDEMUX_GUINT32_GET (data);
1863   rmdemux->data_offset = RMDEMUX_GUINT32_GET (data + 4);
1864   rmdemux->chunk_index = 0;
1865   GST_DEBUG_OBJECT (rmdemux, "Data chunk found with %d packets "
1866       "(next data at 0x%08x)", rmdemux->n_chunks, rmdemux->data_offset);
1867 }
1868
1869 static void
1870 gst_rmdemux_parse_cont (GstRMDemux * rmdemux, const guint8 * data, int length)
1871 {
1872   GstTagList *tags;
1873
1874   tags = gst_rm_utils_read_tags (data, length, gst_rm_utils_read_string16);
1875   if (tags) {
1876     gst_element_found_tags (GST_ELEMENT (rmdemux), tags);
1877   }
1878 }
1879
1880 static GstFlowReturn
1881 gst_rmdemux_combine_flows (GstRMDemux * rmdemux, GstRMDemuxStream * stream,
1882     GstFlowReturn ret)
1883 {
1884   GSList *cur;
1885
1886   /* store the value */
1887   stream->last_flow = ret;
1888
1889   /* if it's success we can return the value right away */
1890   if (GST_FLOW_IS_SUCCESS (ret))
1891     goto done;
1892
1893   /* any other error that is not-linked can be returned right
1894    * away */
1895   if (ret != GST_FLOW_NOT_LINKED)
1896     goto done;
1897
1898   for (cur = rmdemux->streams; cur; cur = cur->next) {
1899     GstRMDemuxStream *ostream = cur->data;
1900
1901     ret = ostream->last_flow;
1902     /* some other return value (must be SUCCESS but we can return
1903      * other values as well) */
1904     if (ret != GST_FLOW_NOT_LINKED)
1905       goto done;
1906   }
1907   /* if we get here, all other pads were unlinked and we return
1908    * NOT_LINKED then */
1909 done:
1910   return ret;
1911 }
1912
1913 static void
1914 gst_rmdemux_stream_clear_cached_subpackets (GstRMDemux * rmdemux,
1915     GstRMDemuxStream * stream)
1916 {
1917   if (stream->subpackets == NULL || stream->subpackets->len == 0)
1918     return;
1919
1920   GST_DEBUG_OBJECT (rmdemux, "discarding %u previously collected subpackets",
1921       stream->subpackets->len);
1922   g_ptr_array_foreach (stream->subpackets, (GFunc) gst_mini_object_unref, NULL);
1923   g_ptr_array_set_size (stream->subpackets, 0);
1924 }
1925
1926 static GstFlowReturn
1927 gst_rmdemux_descramble_audio (GstRMDemux * rmdemux, GstRMDemuxStream * stream)
1928 {
1929   GstFlowReturn ret;
1930   GstBuffer *outbuf;
1931   guint packet_size = stream->packet_size;
1932   guint height = stream->subpackets->len;
1933   guint leaf_size = stream->leaf_size;
1934   guint p, x;
1935
1936   g_assert (stream->height == height);
1937
1938   GST_LOG ("packet_size = %u, leaf_size = %u, height= %u", packet_size,
1939       leaf_size, height);
1940
1941   ret = gst_pad_alloc_buffer_and_set_caps (stream->pad,
1942       GST_BUFFER_OFFSET_NONE, height * packet_size,
1943       GST_PAD_CAPS (stream->pad), &outbuf);
1944
1945   if (ret != GST_FLOW_OK)
1946     goto done;
1947
1948   for (p = 0; p < height; ++p) {
1949     GstBuffer *b = g_ptr_array_index (stream->subpackets, p);
1950     guint8 *b_data = GST_BUFFER_DATA (b);
1951
1952     if (p == 0)
1953       GST_BUFFER_TIMESTAMP (outbuf) = GST_BUFFER_TIMESTAMP (b);
1954
1955     for (x = 0; x < packet_size / leaf_size; ++x) {
1956       guint idx;
1957
1958       idx = height * x + ((height + 1) / 2) * (p % 2) + (p / 2);
1959       /* GST_LOG ("%3u => %3u", (height * p) + x, idx); */
1960       memcpy (GST_BUFFER_DATA (outbuf) + leaf_size * idx, b_data, leaf_size);
1961       b_data += leaf_size;
1962     }
1963   }
1964
1965   /* some decoders, such as realaudiodec, need to be fed in packet units */
1966   for (p = 0; p < height; ++p) {
1967     GstBuffer *subbuf;
1968
1969     subbuf = gst_buffer_create_sub (outbuf, p * packet_size, packet_size);
1970
1971     GST_LOG_OBJECT (rmdemux, "pushing buffer timestamp %" GST_TIME_FORMAT,
1972         GST_TIME_ARGS (GST_BUFFER_TIMESTAMP (subbuf)));
1973
1974     if (stream->discont) {
1975       GST_BUFFER_FLAG_SET (subbuf, GST_BUFFER_FLAG_DISCONT);
1976       stream->discont = FALSE;
1977     }
1978
1979     gst_buffer_set_caps (subbuf, GST_PAD_CAPS (stream->pad));
1980     ret = gst_pad_push (stream->pad, subbuf);
1981     if (ret != GST_FLOW_OK)
1982       break;
1983   }
1984
1985   gst_buffer_unref (outbuf);
1986
1987 done:
1988
1989   gst_rmdemux_stream_clear_cached_subpackets (rmdemux, stream);
1990
1991   return ret;
1992 }
1993
1994 static GstFlowReturn
1995 gst_rmdemux_descramble_dnet_audio (GstRMDemux * rmdemux,
1996     GstRMDemuxStream * stream)
1997 {
1998   GstBuffer *buf;
1999
2000   buf = g_ptr_array_index (stream->subpackets, 0);
2001   g_ptr_array_index (stream->subpackets, 0) = NULL;
2002   g_ptr_array_set_size (stream->subpackets, 0);
2003
2004   buf = gst_rm_utils_descramble_dnet_buffer (buf);
2005
2006   if (stream->discont) {
2007     GST_BUFFER_FLAG_SET (buf, GST_BUFFER_FLAG_DISCONT);
2008     stream->discont = FALSE;
2009   }
2010   return gst_pad_push (stream->pad, buf);
2011 }
2012
2013 static GstFlowReturn
2014 gst_rmdemux_descramble_mp4a_audio (GstRMDemux * rmdemux,
2015     GstRMDemuxStream * stream)
2016 {
2017   GstFlowReturn res;
2018   GstBuffer *buf, *outbuf;
2019   guint frames, index, i;
2020   guint8 *data;
2021   GstClockTime timestamp;
2022
2023   res = GST_FLOW_OK;
2024
2025   buf = g_ptr_array_index (stream->subpackets, 0);
2026   g_ptr_array_index (stream->subpackets, 0) = NULL;
2027   g_ptr_array_set_size (stream->subpackets, 0);
2028
2029   data = GST_BUFFER_DATA (buf);
2030   timestamp = GST_BUFFER_TIMESTAMP (buf);
2031
2032   frames = (data[1] & 0xf0) >> 4;
2033   index = 2 * frames + 2;
2034
2035   for (i = 0; i < frames; i++) {
2036     guint len = (data[i * 2 + 2] << 8) | data[i * 2 + 3];
2037
2038     outbuf = gst_buffer_create_sub (buf, index, len);
2039     if (i == 0)
2040       GST_BUFFER_TIMESTAMP (outbuf) = timestamp;
2041     gst_buffer_set_caps (outbuf, GST_PAD_CAPS (stream->pad));
2042
2043     index += len;
2044
2045     if (stream->discont) {
2046       GST_BUFFER_FLAG_SET (buf, GST_BUFFER_FLAG_DISCONT);
2047       stream->discont = FALSE;
2048     }
2049     res = gst_pad_push (stream->pad, outbuf);
2050     if (res != GST_FLOW_OK)
2051       break;
2052   }
2053   gst_buffer_unref (buf);
2054   return res;
2055 }
2056
2057 static GstFlowReturn
2058 gst_rmdemux_descramble_sipr_audio (GstRMDemux * rmdemux,
2059     GstRMDemuxStream * stream)
2060 {
2061   GstFlowReturn ret;
2062   GstBuffer *outbuf;
2063   guint packet_size = stream->packet_size;
2064   guint height = stream->subpackets->len;
2065   guint leaf_size = stream->leaf_size;
2066   guint p;
2067
2068   g_assert (stream->height == height);
2069
2070   GST_LOG ("packet_size = %u, leaf_size = %u, height= %u", packet_size,
2071       leaf_size, height);
2072
2073   ret = gst_pad_alloc_buffer_and_set_caps (stream->pad,
2074       GST_BUFFER_OFFSET_NONE, height * packet_size,
2075       GST_PAD_CAPS (stream->pad), &outbuf);
2076
2077   if (ret != GST_FLOW_OK)
2078     goto done;
2079
2080   for (p = 0; p < height; ++p) {
2081     GstBuffer *b = g_ptr_array_index (stream->subpackets, p);
2082     guint8 *b_data = GST_BUFFER_DATA (b);
2083
2084     if (p == 0)
2085       GST_BUFFER_TIMESTAMP (outbuf) = GST_BUFFER_TIMESTAMP (b);
2086
2087     memcpy (GST_BUFFER_DATA (outbuf) + packet_size * p, b_data, packet_size);
2088   }
2089
2090   GST_LOG_OBJECT (rmdemux, "pushing buffer timestamp %" GST_TIME_FORMAT,
2091       GST_TIME_ARGS (GST_BUFFER_TIMESTAMP (outbuf)));
2092
2093   if (stream->discont) {
2094     GST_BUFFER_FLAG_SET (outbuf, GST_BUFFER_FLAG_DISCONT);
2095     stream->discont = FALSE;
2096   }
2097
2098   outbuf = gst_rm_utils_descramble_sipr_buffer (outbuf);
2099
2100   gst_buffer_set_caps (outbuf, GST_PAD_CAPS (stream->pad));
2101   ret = gst_pad_push (stream->pad, outbuf);
2102
2103 done:
2104
2105   gst_rmdemux_stream_clear_cached_subpackets (rmdemux, stream);
2106
2107   return ret;
2108 }
2109
2110 static GstFlowReturn
2111 gst_rmdemux_handle_scrambled_packet (GstRMDemux * rmdemux,
2112     GstRMDemuxStream * stream, GstBuffer * buf, gboolean keyframe)
2113 {
2114   GstFlowReturn ret;
2115
2116   if (stream->subpackets == NULL)
2117     stream->subpackets = g_ptr_array_sized_new (stream->subpackets_needed);
2118
2119   GST_LOG ("Got subpacket %u/%u, len=%u, key=%d", stream->subpackets->len + 1,
2120       stream->subpackets_needed, GST_BUFFER_SIZE (buf), keyframe);
2121
2122   if (keyframe && stream->subpackets->len > 0) {
2123     gst_rmdemux_stream_clear_cached_subpackets (rmdemux, stream);
2124   }
2125
2126   g_ptr_array_add (stream->subpackets, buf);
2127
2128   if (stream->subpackets->len < stream->subpackets_needed)
2129     return GST_FLOW_OK;
2130
2131   g_assert (stream->subpackets->len >= 1);
2132
2133   switch (stream->fourcc) {
2134     case GST_RM_AUD_DNET:
2135       ret = gst_rmdemux_descramble_dnet_audio (rmdemux, stream);
2136       break;
2137     case GST_RM_AUD_COOK:
2138     case GST_RM_AUD_ATRC:
2139       ret = gst_rmdemux_descramble_audio (rmdemux, stream);
2140       break;
2141     case GST_RM_AUD_RAAC:
2142     case GST_RM_AUD_RACP:
2143       ret = gst_rmdemux_descramble_mp4a_audio (rmdemux, stream);
2144       break;
2145     case GST_RM_AUD_SIPR:
2146       ret = gst_rmdemux_descramble_sipr_audio (rmdemux, stream);
2147       break;
2148     default:
2149       g_assert_not_reached ();
2150   }
2151
2152   return ret;
2153 }
2154
2155 static GstClockTime
2156 gst_rmdemux_fix_timestamp (GstRMDemux * rmdemux, GstRMDemuxStream * stream,
2157     guint8 * data, GstClockTime timestamp)
2158 {
2159   guint8 frame_type;
2160   guint16 seq;
2161   GstClockTime ts = timestamp;
2162
2163   if (timestamp == GST_CLOCK_TIME_NONE)
2164     goto done;
2165
2166   /* only adjust when we have a stream with B frames */
2167   if (stream->format < 0x20200002)
2168     goto done;
2169
2170   /* Fix timestamp. */
2171   switch (stream->fourcc) {
2172     case GST_RM_VDO_RV10:
2173       goto done;
2174     case GST_RM_VDO_RV20:
2175     {
2176       /*
2177        * Bit  1- 2: frame type
2178        * Bit  3- 9: ?
2179        * Bit 10-22: sequence number
2180        * Bit 23-32: ?
2181        */
2182       frame_type = (data[0] >> 6) & 0x03;
2183       seq = ((data[1] & 0x7f) << 6) + ((data[2] & 0xfc) >> 2);
2184       break;
2185     }
2186     case GST_RM_VDO_RV30:
2187     {
2188       /*
2189        * Bit  1- 2: ?
2190        * Bit     3: skip packet if 1
2191        * Bit  4- 5: frame type
2192        * Bit  6-12: ?
2193        * Bit 13-25: sequence number
2194        * Bit 26-32: ?
2195        */
2196       frame_type = (data[0] >> 3) & 0x03;
2197       seq = ((data[1] & 0x0f) << 9) + (data[2] << 1) + ((data[3] & 0x80) >> 7);
2198       break;
2199     }
2200     case GST_RM_VDO_RV40:
2201     {
2202       /*
2203        * Bit     1: skip packet if 1
2204        * Bit  2- 3: frame type
2205        * Bit  4-13: ?
2206        * Bit 14-26: sequence number
2207        * Bit 27-32: ?
2208        */
2209       frame_type = (data[0] >> 5) & 0x03;
2210       seq = ((data[1] & 0x07) << 10) + (data[2] << 2) + ((data[3] & 0xc0) >> 6);
2211       break;
2212     }
2213     default:
2214       goto unknown_version;
2215   }
2216
2217   switch (frame_type) {
2218     case 0:
2219     case 1:
2220     {
2221       GST_LOG_OBJECT (rmdemux, "I frame %d", frame_type);
2222       /* I frame */
2223       if (stream->next_ts == -1)
2224         stream->next_ts = timestamp;
2225       else
2226         timestamp = stream->next_ts;
2227       stream->last_ts = stream->next_ts;
2228       stream->next_ts = ts;
2229       stream->last_seq = stream->next_seq;
2230       stream->next_seq = seq;
2231       break;
2232     }
2233     case 2:
2234     {
2235       GST_LOG_OBJECT (rmdemux, "P frame");
2236       /* P frame */
2237       timestamp = stream->last_ts = stream->next_ts;
2238       if (seq < stream->next_seq)
2239         stream->next_ts += (seq + 0x2000 - stream->next_seq) * GST_MSECOND;
2240       else
2241         stream->next_ts += (seq - stream->next_seq) * GST_MSECOND;
2242       stream->last_seq = stream->next_seq;
2243       stream->next_seq = seq;
2244       break;
2245     }
2246     case 3:
2247     {
2248       GST_LOG_OBJECT (rmdemux, "B frame");
2249       /* B frame */
2250       if (seq < stream->last_seq) {
2251         timestamp =
2252             (seq + 0x2000 - stream->last_seq) * GST_MSECOND + stream->last_ts;
2253       } else {
2254         timestamp = (seq - stream->last_seq) * GST_MSECOND + stream->last_ts;
2255       }
2256       break;
2257     }
2258     default:
2259       goto unknown_frame_type;
2260   }
2261
2262 done:
2263   GST_LOG_OBJECT (rmdemux,
2264       "timestamp %" GST_TIME_FORMAT " -> %" GST_TIME_FORMAT, GST_TIME_ARGS (ts),
2265       GST_TIME_ARGS (timestamp));
2266
2267   return timestamp;
2268
2269   /* Errors */
2270 unknown_version:
2271   {
2272     GST_ELEMENT_ERROR (rmdemux, STREAM, DECODE,
2273         ("Unknown version: %i.", stream->version), (NULL));
2274     return GST_FLOW_ERROR;
2275   }
2276
2277 unknown_frame_type:
2278   {
2279     GST_ELEMENT_ERROR (rmdemux, STREAM, DECODE, ("Unknown frame type %d.",
2280             frame_type), (NULL));
2281     return GST_FLOW_ERROR;
2282   }
2283 }
2284
2285 #define PARSE_NUMBER(data, size, number, label) \
2286 G_STMT_START {                                  \
2287   if (size < 2)                                 \
2288     goto label;                                 \
2289   number = GST_READ_UINT16_BE (data);           \
2290   if (!(number & 0xc000)) {                     \
2291     if (size < 4)                               \
2292       goto label;                               \
2293     number = GST_READ_UINT32_BE (data);         \
2294     data += 4;                                  \
2295     size -= 4;                                  \
2296   } else {                                      \
2297     number &= 0x3fff;                           \
2298     data += 2;                                  \
2299     size -= 2;                                  \
2300   }                                             \
2301 } G_STMT_END
2302
2303 static GstFlowReturn
2304 gst_rmdemux_parse_video_packet (GstRMDemux * rmdemux, GstRMDemuxStream * stream,
2305     GstBuffer * in, guint offset, guint16 version,
2306     GstClockTime timestamp, gboolean key)
2307 {
2308   GstFlowReturn ret;
2309   const guint8 *data, *base;
2310   guint size;
2311
2312   base = GST_BUFFER_DATA (in);
2313   data = base + offset;
2314   size = GST_BUFFER_SIZE (in) - offset;
2315   /* if size <= 2, we want this method to return the same GstFlowReturn as it
2316    * was previously for that given stream. */
2317   ret = stream->last_flow;
2318
2319   while (size > 2) {
2320     guint8 pkg_header;
2321     guint pkg_offset;
2322     guint pkg_length;
2323     guint pkg_subseq = 0, pkg_seqnum = G_MAXUINT;
2324     guint fragment_size;
2325     GstBuffer *fragment;
2326
2327     pkg_header = *data++;
2328     size--;
2329
2330     /* packet header
2331      * bit 7: 1=last block in block chain
2332      * bit 6: 1=short header (only one block?)
2333      */
2334     if ((pkg_header & 0xc0) == 0x40) {
2335       /* skip unknown byte */
2336       data++;
2337       size--;
2338       pkg_offset = 0;
2339       pkg_length = size;
2340     } else {
2341       if ((pkg_header & 0x40) == 0) {
2342         pkg_subseq = (*data++) & 0x7f;
2343         size--;
2344       } else {
2345         pkg_subseq = 0;
2346       }
2347
2348       /* length */
2349       PARSE_NUMBER (data, size, pkg_length, not_enough_data);
2350
2351       /* offset */
2352       PARSE_NUMBER (data, size, pkg_offset, not_enough_data);
2353
2354       /* seqnum */
2355       if (size < 1)
2356         goto not_enough_data;
2357
2358       pkg_seqnum = *data++;
2359       size--;
2360     }
2361
2362     GST_DEBUG_OBJECT (rmdemux,
2363         "seq %d, subseq %d, offset %d, length %d, size %d, header %02x",
2364         pkg_seqnum, pkg_subseq, pkg_offset, pkg_length, size, pkg_header);
2365
2366     /* calc size of fragment */
2367     if ((pkg_header & 0xc0) == 0x80) {
2368       fragment_size = pkg_offset;
2369     } else {
2370       if ((pkg_header & 0xc0) == 0)
2371         fragment_size = size;
2372       else
2373         fragment_size = pkg_length;
2374     }
2375     GST_DEBUG_OBJECT (rmdemux, "fragment size %d", fragment_size);
2376
2377     /* get the fragment */
2378     fragment = gst_buffer_create_sub (in, data - base, fragment_size);
2379
2380     if (pkg_subseq == 1) {
2381       GST_DEBUG_OBJECT (rmdemux, "start new fragment");
2382       gst_adapter_clear (stream->adapter);
2383       stream->frag_current = 0;
2384       stream->frag_count = 0;
2385       stream->frag_length = pkg_length;
2386     } else if (pkg_subseq == 0) {
2387       GST_DEBUG_OBJECT (rmdemux, "non fragmented packet");
2388       stream->frag_current = 0;
2389       stream->frag_count = 0;
2390       stream->frag_length = fragment_size;
2391     }
2392
2393     /* put fragment in adapter */
2394     gst_adapter_push (stream->adapter, fragment);
2395     stream->frag_offset[stream->frag_count] = stream->frag_current;
2396     stream->frag_current += fragment_size;
2397     stream->frag_count++;
2398
2399     if (stream->frag_count > MAX_FRAGS)
2400       goto too_many_fragments;
2401
2402     GST_DEBUG_OBJECT (rmdemux, "stored fragment in adapter %d/%d",
2403         stream->frag_current, stream->frag_length);
2404
2405     /* flush fragment when complete */
2406     if (stream->frag_current >= stream->frag_length) {
2407       GstBuffer *out;
2408       guint8 *outdata;
2409       guint header_size;
2410       gint i, avail;
2411
2412       /* calculate header size, which is:
2413        * 1 byte for the number of fragments - 1
2414        * for each fragment:
2415        *   4 bytes 0x00000001 little endian
2416        *   4 bytes fragment offset
2417        *
2418        * This is also the matroska header for realvideo, the decoder needs the
2419        * fragment offsets, both in ffmpeg and real .so, so we just give it that
2420        * in front of the data.
2421        */
2422       header_size = 1 + (8 * (stream->frag_count));
2423
2424       GST_DEBUG_OBJECT (rmdemux,
2425           "fragmented completed. count %d, header_size %u", stream->frag_count,
2426           header_size);
2427
2428       avail = gst_adapter_available (stream->adapter);
2429
2430       out = gst_buffer_new_and_alloc (header_size + avail);
2431       outdata = GST_BUFFER_DATA (out);
2432
2433       /* create header */
2434       *outdata++ = stream->frag_count - 1;
2435       for (i = 0; i < stream->frag_count; i++) {
2436         GST_WRITE_UINT32_LE (outdata, 0x00000001);
2437         outdata += 4;
2438         GST_WRITE_UINT32_LE (outdata, stream->frag_offset[i]);
2439         outdata += 4;
2440       }
2441
2442       /* copy packet data after the header now */
2443       gst_adapter_copy (stream->adapter, outdata, 0, avail);
2444       gst_adapter_flush (stream->adapter, avail);
2445
2446       stream->frag_current = 0;
2447       stream->frag_count = 0;
2448       stream->frag_length = 0;
2449
2450       gst_buffer_set_caps (out, GST_PAD_CAPS (stream->pad));
2451
2452       if (timestamp != -1) {
2453         if (rmdemux->first_ts != -1 && timestamp > rmdemux->first_ts)
2454           timestamp -= rmdemux->first_ts;
2455         else
2456           timestamp = 0;
2457
2458         if (rmdemux->base_ts != -1)
2459           timestamp += rmdemux->base_ts;
2460       }
2461       timestamp =
2462           gst_rmdemux_fix_timestamp (rmdemux, stream, outdata, timestamp);
2463
2464       GST_BUFFER_TIMESTAMP (out) = timestamp;
2465
2466       GST_LOG_OBJECT (rmdemux, "pushing timestamp %" GST_TIME_FORMAT,
2467           GST_TIME_ARGS (timestamp));
2468
2469       if (stream->discont) {
2470         GST_BUFFER_FLAG_SET (out, GST_BUFFER_FLAG_DISCONT);
2471         stream->discont = FALSE;
2472       }
2473
2474       ret = gst_pad_push (stream->pad, out);
2475       ret = gst_rmdemux_combine_flows (rmdemux, stream, ret);
2476       if (ret != GST_FLOW_OK)
2477         break;
2478
2479       timestamp = GST_CLOCK_TIME_NONE;
2480     }
2481     data += fragment_size;
2482     size -= fragment_size;
2483   }
2484   GST_DEBUG_OBJECT (rmdemux, "%d bytes left", size);
2485
2486   gst_buffer_unref (in);
2487
2488   return ret;
2489
2490   /* ERRORS */
2491 not_enough_data:
2492   {
2493     GST_ELEMENT_WARNING (rmdemux, STREAM, DECODE, ("Skipping bad packet."),
2494         (NULL));
2495     gst_buffer_unref (in);
2496     return GST_FLOW_OK;
2497   }
2498 too_many_fragments:
2499   {
2500     GST_ELEMENT_ERROR (rmdemux, STREAM, DECODE,
2501         ("Got more fragments (%u) than can be handled (%u)",
2502             stream->frag_count, MAX_FRAGS), (NULL));
2503     gst_buffer_unref (in);
2504     return GST_FLOW_ERROR;
2505   }
2506 }
2507
2508 static GstFlowReturn
2509 gst_rmdemux_parse_audio_packet (GstRMDemux * rmdemux, GstRMDemuxStream * stream,
2510     GstBuffer * in, guint offset, guint16 version,
2511     GstClockTime timestamp, gboolean key)
2512 {
2513   GstFlowReturn ret, cret;
2514   GstBuffer *buffer;
2515   const guint8 *data;
2516   guint size;
2517
2518   data = GST_BUFFER_DATA (in) + offset;
2519   size = GST_BUFFER_SIZE (in) - offset;
2520
2521   ret = gst_pad_alloc_buffer_and_set_caps (stream->pad,
2522       GST_BUFFER_OFFSET_NONE, size, GST_PAD_CAPS (stream->pad), &buffer);
2523
2524   cret = gst_rmdemux_combine_flows (rmdemux, stream, ret);
2525   if (ret != GST_FLOW_OK)
2526     goto alloc_failed;
2527
2528   memcpy (GST_BUFFER_DATA (buffer), (guint8 *) data, size);
2529
2530   if (rmdemux->first_ts != -1 && timestamp > rmdemux->first_ts)
2531     timestamp -= rmdemux->first_ts;
2532   else
2533     timestamp = 0;
2534
2535   if (rmdemux->base_ts != -1)
2536     timestamp += rmdemux->base_ts;
2537
2538   GST_BUFFER_TIMESTAMP (buffer) = timestamp;
2539
2540   if (stream->needs_descrambling) {
2541     GST_LOG_OBJECT (rmdemux, "descramble timestamp %" GST_TIME_FORMAT,
2542         GST_TIME_ARGS (timestamp));
2543     ret = gst_rmdemux_handle_scrambled_packet (rmdemux, stream, buffer, key);
2544   } else {
2545     GST_LOG_OBJECT (rmdemux,
2546         "Pushing buffer of size %d, timestamp %" GST_TIME_FORMAT "to pad %s",
2547         GST_BUFFER_SIZE (buffer), GST_TIME_ARGS (timestamp),
2548         GST_PAD_NAME (stream->pad));
2549
2550     if (stream->discont) {
2551       GST_BUFFER_FLAG_SET (buffer, GST_BUFFER_FLAG_DISCONT);
2552       stream->discont = FALSE;
2553     }
2554     ret = gst_pad_push (stream->pad, buffer);
2555   }
2556
2557   gst_buffer_unref (in);
2558
2559   return ret;
2560
2561   /* ERRORS */
2562 alloc_failed:
2563   {
2564     GST_DEBUG_OBJECT (rmdemux, "pad alloc returned %d", ret);
2565     gst_buffer_unref (in);
2566     return cret;
2567   }
2568 }
2569
2570 static GstFlowReturn
2571 gst_rmdemux_parse_packet (GstRMDemux * rmdemux, GstBuffer * in, guint16 version)
2572 {
2573   guint16 id;
2574   GstRMDemuxStream *stream;
2575   guint size;
2576   GstFlowReturn cret, ret;
2577   GstClockTime timestamp;
2578   gboolean key;
2579   guint8 *data, *base;
2580   guint8 flags;
2581   guint32 ts;
2582
2583   base = data = GST_BUFFER_DATA (in);
2584   size = GST_BUFFER_SIZE (in);
2585
2586   /* stream number */
2587   id = RMDEMUX_GUINT16_GET (data);
2588
2589   stream = gst_rmdemux_get_stream_by_id (rmdemux, id);
2590   if (!stream || !stream->pad)
2591     goto unknown_stream;
2592
2593   /* timestamp in Msec */
2594   ts = RMDEMUX_GUINT32_GET (data + 2);
2595   timestamp = ts * GST_MSECOND;
2596
2597   gst_segment_set_last_stop (&rmdemux->segment, GST_FORMAT_TIME, timestamp);
2598
2599   GST_LOG_OBJECT (rmdemux, "Parsing a packet for stream=%d, timestamp=%"
2600       GST_TIME_FORMAT ", size %u, version=%d, ts=%u", id,
2601       GST_TIME_ARGS (timestamp), size, version, ts);
2602
2603   if (rmdemux->first_ts == GST_CLOCK_TIME_NONE) {
2604     GST_DEBUG_OBJECT (rmdemux, "First timestamp: %" GST_TIME_FORMAT,
2605         GST_TIME_ARGS (timestamp));
2606     rmdemux->first_ts = timestamp;
2607   }
2608
2609   /* skip stream_id and timestamp */
2610   data += (2 + 4);
2611   size -= (2 + 4);
2612
2613   /* get flags */
2614   flags = GST_READ_UINT8 (data + 1);
2615
2616   data += 2;
2617   size -= 2;
2618
2619   /* version 1 has an extra byte */
2620   if (version == 1) {
2621     data += 1;
2622     size -= 1;
2623   }
2624   key = (flags & 0x02) != 0;
2625   GST_DEBUG_OBJECT (rmdemux, "flags %d, Keyframe %d", flags, key);
2626
2627   if (rmdemux->need_newsegment) {
2628     GstEvent *event;
2629
2630     event = gst_event_new_new_segment (FALSE, rmdemux->segment.rate,
2631         rmdemux->segment.format, rmdemux->segment.start,
2632         rmdemux->segment.stop, rmdemux->segment.time);
2633
2634     GST_DEBUG_OBJECT (rmdemux, "sending NEWSEGMENT event, segment.start= %"
2635         GST_TIME_FORMAT, GST_TIME_ARGS (rmdemux->segment.start));
2636
2637     gst_rmdemux_send_event (rmdemux, event);
2638     rmdemux->need_newsegment = FALSE;
2639   }
2640
2641   if (stream->pending_tags != NULL) {
2642     GST_LOG_OBJECT (stream->pad, "tags %" GST_PTR_FORMAT, stream->pending_tags);
2643     gst_element_found_tags_for_pad (GST_ELEMENT_CAST (rmdemux), stream->pad,
2644         stream->pending_tags);
2645     stream->pending_tags = NULL;
2646   }
2647
2648   if ((rmdemux->offset + size) <= stream->seek_offset) {
2649     GST_DEBUG_OBJECT (rmdemux,
2650         "Stream %d is skipping: seek_offset=%d, offset=%d, size=%u",
2651         stream->id, stream->seek_offset, rmdemux->offset, size);
2652     cret = GST_FLOW_OK;
2653     goto beach;
2654   }
2655
2656   /* do special headers */
2657   if (stream->subtype == GST_RMDEMUX_STREAM_VIDEO) {
2658     ret =
2659         gst_rmdemux_parse_video_packet (rmdemux, stream, in, data - base,
2660         version, timestamp, key);
2661   } else if (stream->subtype == GST_RMDEMUX_STREAM_AUDIO) {
2662     ret =
2663         gst_rmdemux_parse_audio_packet (rmdemux, stream, in, data - base,
2664         version, timestamp, key);
2665   } else
2666     ret = GST_FLOW_OK;
2667
2668   cret = gst_rmdemux_combine_flows (rmdemux, stream, ret);
2669
2670 beach:
2671   return cret;
2672
2673   /* ERRORS */
2674 unknown_stream:
2675   {
2676     GST_WARNING_OBJECT (rmdemux, "No stream for stream id %d in parsing "
2677         "data packet", id);
2678     return GST_FLOW_OK;
2679   }
2680 }
2681
2682 gboolean
2683 gst_rmdemux_plugin_init (GstPlugin * plugin)
2684 {
2685   return gst_element_register (plugin, "rmdemux",
2686       GST_RANK_PRIMARY, GST_TYPE_RMDEMUX);
2687 }