gst/isomp4/gstqtmux.c

   1 /* Quicktime muxer plugin for GStreamer
   2  * Copyright (C) 2008-2010 Thiago Santos <thiagoss@embedded.ufcg.edu.br>
   3  * Copyright (C) 2008 Mark Nauwelaerts <mnauw@users.sf.net>
   4  * Copyright (C) 2010 Nokia Corporation. All rights reserved.
   5  * Contact: Stefan Kost <stefan.kost@nokia.com>
   6
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Library General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Library General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Library General Public
  18  * License along with this library; if not, write to the
  19  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  20  * Boston, MA 02111-1307, USA.
  21  */
  22 /*
  23  * Unless otherwise indicated, Source Code is licensed under MIT license.
  24  * See further explanation attached in License Statement (distributed in the file
  25  * LICENSE).
  26  *
  27  * Permission is hereby granted, free of charge, to any person obtaining a copy of
  28  * this software and associated documentation files (the "Software"), to deal in
  29  * the Software without restriction, including without limitation the rights to
  30  * use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
  31  * of the Software, and to permit persons to whom the Software is furnished to do
  32  * so, subject to the following conditions:
  33  *
  34  * The above copyright notice and this permission notice shall be included in all
  35  * copies or substantial portions of the Software.
  36  *
  37  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  38  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  39  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  40  * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  41  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  42  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
  43  * SOFTWARE.
  44  */
  45
  46
  47 /**
  48  * SECTION:element-qtmux
  49  * @short_description: Muxer for quicktime(.mov) files
  50  *
  51  * This element merges streams (audio and video) into QuickTime(.mov) files.
  52  *
  53  * The following background intends to explain why various similar muxers
  54  * are present in this plugin.
  55  *
  56  * The <ulink url="http://www.apple.com/quicktime/resources/qtfileformat.pdf">
  57  * QuickTime file format specification</ulink> served as basis for the MP4 file
  58  * format specification (mp4mux), and as such the QuickTime file structure is
  59  * nearly identical to the so-called ISO Base Media file format defined in
  60  * ISO 14496-12 (except for some media specific parts).
  61  * In turn, the latter ISO Base Media format was further specialized as a
  62  * Motion JPEG-2000 file format in ISO 15444-3 (mj2mux)
  63  * and in various 3GPP(2) specs (gppmux).
  64  * The fragmented file features defined (only) in ISO Base Media are used by
  65  * ISMV files making up (a.o.) Smooth Streaming (ismlmux).
  66  *
  67  * A few properties (<link linkend="GstQTMux--movie-timescale">movie-timescale</link>,
  68  * <link linkend="GstQTMux--trak-timescale">trak-timescale</link>) allow adjusting
  69  * some technical parameters, which might be useful in (rare) cases to resolve
  70  * compatibility issues in some situations.
  71  *
  72  * Some other properties influence the result more fundamentally.
  73  * A typical mov/mp4 file's metadata (aka moov) is located at the end of the file,
  74  * somewhat contrary to this usually being called "the header".
  75  * However, a <link linkend="GstQTMux--faststart">faststart</link> file will
  76  * (with some effort) arrange this to be located near start of the file,
  77  * which then allows it e.g. to be played while downloading.
  78  * Alternatively, rather than having one chunk of metadata at start (or end),
  79  * there can be some metadata at start and most of the other data can be spread
  80  * out into fragments of <link linkend="GstQTMux--fragment-duration">fragment-duration</link>.
  81  * If such fragmented layout is intended for streaming purposes, then
  82  * <link linkend="GstQTMux--streamable">streamable</link> allows foregoing to add
  83  * index metadata (at the end of file).
  84  *
  85  * <link linkend="GstQTMux--dts-method">dts-method</link> allows selecting a
  86  * method for managing input timestamps (stay tuned for 0.11 to have this
  87  * automagically settled).  The default delta/duration method should handle nice
  88  * (aka perfect streams) just fine, but may experience problems otherwise
  89  * (e.g. input stream with re-ordered B-frames and/or with frame dropping).
  90  * The re-ordering approach re-assigns incoming timestamps in ascending order
  91  * to incoming buffers and offers an alternative in such cases.  In cases where
  92  * that might fail, the remaining method can be tried, which is exact and
  93  * according to specs, but might experience playback on not so spec-wise players.
  94  * Note that this latter approach also requires one to enable
  95  * <link linkend="GstQTMux--presentation-timestamp">presentation-timestamp</link>.
  96  *
  97  * <refsect2>
  98  * <title>Example pipelines</title>
  99  * |[
 100  * gst-launch v4l2src num-buffers=500 ! video/x-raw-yuv,width=320,height=240 ! ffmpegcolorspace ! qtmux ! filesink location=video.mov
 101  * ]|
 102  * Records a video stream captured from a v4l2 device and muxes it into a qt file.
 103  * </refsect2>
 104  *
 105  * Last reviewed on 2010-12-03
 106  */
 107
 108 /*
 109  * Based on avimux
 110  */
 111
 112 #ifdef HAVE_CONFIG_H
 113 #include "config.h"
 114 #endif
 115
 116 #include <glib/gstdio.h>
 117
 118 #include <gst/gst.h>
 119 #include <gst/base/gstcollectpads.h>
 120 #include <gst/video/video.h>
 121 #include <gst/tag/xmpwriter.h>
 122
 123 #include <sys/types.h>
 124 #ifdef G_OS_WIN32
 125 #include <io.h>                 /* lseek, open, close, read */
 126 #undef lseek
 127 #define lseek _lseeki64
 128 #undef off_t
 129 #define off_t guint64
 130 #endif
 131
 132 #ifdef _MSC_VER
 133 #define ftruncate g_win32_ftruncate
 134 #endif
 135
 136 #ifdef HAVE_UNISTD_H
 137 #  include <unistd.h>
 138 #endif
 139
 140 #include "gstqtmux.h"
 141
 142 GST_DEBUG_CATEGORY_STATIC (gst_qt_mux_debug);
 143 #define GST_CAT_DEFAULT gst_qt_mux_debug
 144
 145 enum
 146 {
 147   DTS_METHOD_DD,
 148   DTS_METHOD_REORDER,
 149   DTS_METHOD_ASC
 150 };
 151
 152 static GType
 153 gst_qt_mux_dts_method_get_type (void)
 154 {
 155   static GType gst_qt_mux_dts_method = 0;
 156
 157   if (!gst_qt_mux_dts_method) {
 158     static const GEnumValue dts_methods[] = {
 159       {DTS_METHOD_DD, "delta/duration", "dd"},
 160       {DTS_METHOD_REORDER, "reorder", "reorder"},
 161       {DTS_METHOD_ASC, "ascending", "asc"},
 162       {0, NULL, NULL},
 163     };
 164
 165     gst_qt_mux_dts_method =
 166         g_enum_register_static ("GstQTMuxDtsMethods", dts_methods);
 167   }
 168
 169   return gst_qt_mux_dts_method;
 170 }
 171
 172 #define GST_TYPE_QT_MUX_DTS_METHOD \
 173   (gst_qt_mux_dts_method_get_type ())
 174
 175 /* QTMux signals and args */
 176 enum
 177 {
 178   /* FILL ME */
 179   LAST_SIGNAL
 180 };
 181
 182 enum
 183 {
 184   PROP_0,
 185   PROP_MOVIE_TIMESCALE,
 186   PROP_TRAK_TIMESCALE,
 187   PROP_FAST_START,
 188   PROP_FAST_START_TEMP_FILE,
 189   PROP_MOOV_RECOV_FILE,
 190   PROP_FRAGMENT_DURATION,
 191   PROP_STREAMABLE,
 192   PROP_DTS_METHOD,
 193   PROP_DO_CTTS,
 194 };
 195
 196 /* some spare for header size as well */
 197 #define MDAT_LARGE_FILE_LIMIT           ((guint64) 1024 * 1024 * 1024 * 2)
 198 #define MAX_TOLERATED_LATENESS          (GST_SECOND / 10)
 199
 200 #define DEFAULT_MOVIE_TIMESCALE         1000
 201 #define DEFAULT_TRAK_TIMESCALE          0
 202 #define DEFAULT_DO_CTTS                 TRUE
 203 #define DEFAULT_FAST_START              FALSE
 204 #define DEFAULT_FAST_START_TEMP_FILE    NULL
 205 #define DEFAULT_MOOV_RECOV_FILE         NULL
 206 #define DEFAULT_FRAGMENT_DURATION       0
 207 #define DEFAULT_STREAMABLE              FALSE
 208 #define DEFAULT_DTS_METHOD              DTS_METHOD_REORDER
 209
 210
 211 static void gst_qt_mux_finalize (GObject * object);
 212
 213 static GstStateChangeReturn gst_qt_mux_change_state (GstElement * element,
 214     GstStateChange transition);
 215
 216 /* property functions */
 217 static void gst_qt_mux_set_property (GObject * object,
 218     guint prop_id, const GValue * value, GParamSpec * pspec);
 219 static void gst_qt_mux_get_property (GObject * object,
 220     guint prop_id, GValue * value, GParamSpec * pspec);
 221
 222 /* pad functions */
 223 static GstPad *gst_qt_mux_request_new_pad (GstElement * element,
 224     GstPadTemplate * templ, const gchar * name, const GstCaps * caps);
 225 static void gst_qt_mux_release_pad (GstElement * element, GstPad * pad);
 226
 227 /* event */
 228 static gboolean gst_qt_mux_sink_event (GstPad * pad, GstEvent * event);
 229
 230 static GstFlowReturn gst_qt_mux_collected (GstCollectPads * pads,
 231     gpointer user_data);
 232 static GstFlowReturn gst_qt_mux_add_buffer (GstQTMux * qtmux, GstQTPad * pad,
 233     GstBuffer * buf);
 234
 235 static GstElementClass *parent_class = NULL;
 236
 237 static void
 238 gst_qt_mux_base_init (gpointer g_class)
 239 {
 240   GstElementClass *element_class = GST_ELEMENT_CLASS (g_class);
 241   GstQTMuxClass *klass = (GstQTMuxClass *) g_class;
 242   GstQTMuxClassParams *params;
 243   GstPadTemplate *videosinktempl, *audiosinktempl, *srctempl;
 244   gchar *longname, *description;
 245
 246   params =
 247       (GstQTMuxClassParams *) g_type_get_qdata (G_OBJECT_CLASS_TYPE (g_class),
 248       GST_QT_MUX_PARAMS_QDATA);
 249   g_assert (params != NULL);
 250
 251   /* construct the element details struct */
 252   longname = g_strdup_printf ("%s Muxer", params->prop->long_name);
 253   description = g_strdup_printf ("Multiplex audio and video into a %s file%s",
 254       params->prop->long_name,
 255       (params->prop->rank == GST_RANK_NONE) ? " (deprecated)" : "");
 256   gst_element_class_set_details_simple (element_class, longname,
 257       "Codec/Muxer", description,
 258       "Thiago Sousa Santos <thiagoss@embedded.ufcg.edu.br>");
 259   g_free (longname);
 260   g_free (description);
 261
 262   /* pad templates */
 263   srctempl = gst_pad_template_new ("src", GST_PAD_SRC,
 264       GST_PAD_ALWAYS, params->src_caps);
 265   gst_element_class_add_pad_template (element_class, srctempl);
 266
 267   if (params->audio_sink_caps) {
 268     audiosinktempl = gst_pad_template_new ("audio_%d",
 269         GST_PAD_SINK, GST_PAD_REQUEST, params->audio_sink_caps);
 270     gst_element_class_add_pad_template (element_class, audiosinktempl);
 271   }
 272
 273   if (params->video_sink_caps) {
 274     videosinktempl = gst_pad_template_new ("video_%d",
 275         GST_PAD_SINK, GST_PAD_REQUEST, params->video_sink_caps);
 276     gst_element_class_add_pad_template (element_class, videosinktempl);
 277   }
 278
 279   klass->format = params->prop->format;
 280 }
 281
 282 static void
 283 gst_qt_mux_class_init (GstQTMuxClass * klass)
 284 {
 285   GObjectClass *gobject_class;
 286   GstElementClass *gstelement_class;
 287
 288   gobject_class = (GObjectClass *) klass;
 289   gstelement_class = (GstElementClass *) klass;
 290
 291   parent_class = g_type_class_peek_parent (klass);
 292
 293   gobject_class->finalize = gst_qt_mux_finalize;
 294   gobject_class->get_property = gst_qt_mux_get_property;
 295   gobject_class->set_property = gst_qt_mux_set_property;
 296
 297   g_object_class_install_property (gobject_class, PROP_MOVIE_TIMESCALE,
 298       g_param_spec_uint ("movie-timescale", "Movie timescale",
 299           "Timescale to use in the movie (units per second)",
 300           1, G_MAXUINT32, DEFAULT_MOVIE_TIMESCALE,
 301           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 302   g_object_class_install_property (gobject_class, PROP_TRAK_TIMESCALE,
 303       g_param_spec_uint ("trak-timescale", "Track timescale",
 304           "Timescale to use for the tracks (units per second, 0 is automatic)",
 305           0, G_MAXUINT32, DEFAULT_TRAK_TIMESCALE,
 306           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 307   g_object_class_install_property (gobject_class, PROP_DO_CTTS,
 308       g_param_spec_boolean ("presentation-time",
 309           "Include presentation-time info",
 310           "Calculate and include presentation/composition time "
 311           "(in addition to decoding time)", DEFAULT_DO_CTTS,
 312           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 313   g_object_class_install_property (gobject_class, PROP_DTS_METHOD,
 314       g_param_spec_enum ("dts-method", "dts-method",
 315           "Method to determine DTS time",
 316           GST_TYPE_QT_MUX_DTS_METHOD, DEFAULT_DTS_METHOD,
 317           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 318   g_object_class_install_property (gobject_class, PROP_FAST_START,
 319       g_param_spec_boolean ("faststart", "Format file to faststart",
 320           "If the file should be formatted for faststart (headers first)",
 321           DEFAULT_FAST_START, G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 322   g_object_class_install_property (gobject_class, PROP_FAST_START_TEMP_FILE,
 323       g_param_spec_string ("faststart-file", "File to use for storing buffers",
 324           "File that will be used temporarily to store data from the stream "
 325           "when creating a faststart file. If null a filepath will be "
 326           "created automatically", DEFAULT_FAST_START_TEMP_FILE,
 327           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 328   g_object_class_install_property (gobject_class, PROP_MOOV_RECOV_FILE,
 329       g_param_spec_string ("moov-recovery-file",
 330           "File to store data for posterior moov atom recovery",
 331           "File to be used to store "
 332           "data for moov atom making movie file recovery possible in case "
 333           "of a crash during muxing. Null for disabled. (Experimental)",
 334           DEFAULT_MOOV_RECOV_FILE,
 335           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 336   g_object_class_install_property (gobject_class, PROP_FRAGMENT_DURATION,
 337       g_param_spec_uint ("fragment-duration", "Fragment duration",
 338           "Fragment durations in ms (produce a fragmented file if > 0)",
 339           0, G_MAXUINT32, klass->format == GST_QT_MUX_FORMAT_ISML ?
 340           2000 : DEFAULT_FRAGMENT_DURATION,
 341           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 342   g_object_class_install_property (gobject_class, PROP_STREAMABLE,
 343       g_param_spec_boolean ("streamable", "Streamable",
 344           "If set to true, the output should be as if it is to be streamed "
 345           "and hence no indexes written or duration written.",
 346           DEFAULT_STREAMABLE,
 347           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 348
 349   gstelement_class->request_new_pad =
 350       GST_DEBUG_FUNCPTR (gst_qt_mux_request_new_pad);
 351   gstelement_class->change_state = GST_DEBUG_FUNCPTR (gst_qt_mux_change_state);
 352   gstelement_class->release_pad = GST_DEBUG_FUNCPTR (gst_qt_mux_release_pad);
 353 }
 354
 355 static void
 356 gst_qt_mux_pad_reset (GstQTPad * qtpad)
 357 {
 358   gint i;
 359
 360   qtpad->fourcc = 0;
 361   qtpad->is_out_of_order = FALSE;
 362   qtpad->have_dts = FALSE;
 363   qtpad->sample_size = 0;
 364   qtpad->sync = FALSE;
 365   qtpad->last_dts = 0;
 366   qtpad->first_ts = GST_CLOCK_TIME_NONE;
 367   qtpad->prepare_buf_func = NULL;
 368   qtpad->avg_bitrate = 0;
 369   qtpad->max_bitrate = 0;
 370   qtpad->ts_n_entries = 0;
 371
 372   qtpad->buf_head = 0;
 373   qtpad->buf_tail = 0;
 374   for (i = 0; i < G_N_ELEMENTS (qtpad->buf_entries); i++) {
 375     if (qtpad->buf_entries[i]) {
 376       gst_buffer_unref (qtpad->buf_entries[i]);
 377       qtpad->buf_entries[i] = NULL;
 378     }
 379   }
 380
 381   if (qtpad->last_buf)
 382     gst_buffer_replace (&qtpad->last_buf, NULL);
 383
 384   /* reference owned elsewhere */
 385   qtpad->trak = NULL;
 386
 387   if (qtpad->traf) {
 388     atom_traf_free (qtpad->traf);
 389     qtpad->traf = NULL;
 390   }
 391   atom_array_clear (&qtpad->fragment_buffers);
 392
 393   /* reference owned elsewhere */
 394   qtpad->tfra = NULL;
 395 }
 396
 397 /*
 398  * Takes GstQTMux back to its initial state
 399  */
 400 static void
 401 gst_qt_mux_reset (GstQTMux * qtmux, gboolean alloc)
 402 {
 403   GSList *walk;
 404
 405   qtmux->state = GST_QT_MUX_STATE_NONE;
 406   qtmux->header_size = 0;
 407   qtmux->mdat_size = 0;
 408   qtmux->mdat_pos = 0;
 409   qtmux->longest_chunk = GST_CLOCK_TIME_NONE;
 410   qtmux->video_pads = 0;
 411   qtmux->audio_pads = 0;
 412   qtmux->fragment_sequence = 0;
 413
 414   if (qtmux->ftyp) {
 415     atom_ftyp_free (qtmux->ftyp);
 416     qtmux->ftyp = NULL;
 417   }
 418   if (qtmux->moov) {
 419     atom_moov_free (qtmux->moov);
 420     qtmux->moov = NULL;
 421   }
 422   if (qtmux->mfra) {
 423     atom_mfra_free (qtmux->mfra);
 424     qtmux->mfra = NULL;
 425   }
 426   if (qtmux->fast_start_file) {
 427     fclose (qtmux->fast_start_file);
 428     g_remove (qtmux->fast_start_file_path);
 429     qtmux->fast_start_file = NULL;
 430   }
 431   if (qtmux->moov_recov_file) {
 432     fclose (qtmux->moov_recov_file);
 433     qtmux->moov_recov_file = NULL;
 434   }
 435   for (walk = qtmux->extra_atoms; walk; walk = g_slist_next (walk)) {
 436     AtomInfo *ainfo = (AtomInfo *) walk->data;
 437     ainfo->free_func (ainfo->atom);
 438     g_free (ainfo);
 439   }
 440   g_slist_free (qtmux->extra_atoms);
 441   qtmux->extra_atoms = NULL;
 442
 443   GST_OBJECT_LOCK (qtmux);
 444   gst_tag_setter_reset_tags (GST_TAG_SETTER (qtmux));
 445   GST_OBJECT_UNLOCK (qtmux);
 446
 447   /* reset pad data */
 448   for (walk = qtmux->sinkpads; walk; walk = g_slist_next (walk)) {
 449     GstQTPad *qtpad = (GstQTPad *) walk->data;
 450     gst_qt_mux_pad_reset (qtpad);
 451
 452     /* hm, moov_free above yanked the traks away from us,
 453      * so do not free, but do clear */
 454     qtpad->trak = NULL;
 455   }
 456
 457   if (alloc) {
 458     qtmux->moov = atom_moov_new (qtmux->context);
 459     /* ensure all is as nice and fresh as request_new_pad would provide it */
 460     for (walk = qtmux->sinkpads; walk; walk = g_slist_next (walk)) {
 461       GstQTPad *qtpad = (GstQTPad *) walk->data;
 462
 463       qtpad->trak = atom_trak_new (qtmux->context);
 464       atom_moov_add_trak (qtmux->moov, qtpad->trak);
 465     }
 466   }
 467 }
 468
 469 static void
 470 gst_qt_mux_init (GstQTMux * qtmux, GstQTMuxClass * qtmux_klass)
 471 {
 472   GstElementClass *klass = GST_ELEMENT_CLASS (qtmux_klass);
 473   GstPadTemplate *templ;
 474
 475   templ = gst_element_class_get_pad_template (klass, "src");
 476   qtmux->srcpad = gst_pad_new_from_template (templ, "src");
 477   gst_pad_use_fixed_caps (qtmux->srcpad);
 478   gst_element_add_pad (GST_ELEMENT (qtmux), qtmux->srcpad);
 479
 480   qtmux->sinkpads = NULL;
 481   qtmux->collect = gst_collect_pads_new ();
 482   gst_collect_pads_set_function (qtmux->collect,
 483       (GstCollectPadsFunction) GST_DEBUG_FUNCPTR (gst_qt_mux_collected), qtmux);
 484
 485   /* properties set to default upon construction */
 486
 487   /* always need this */
 488   qtmux->context =
 489       atoms_context_new (gst_qt_mux_map_format_to_flavor (qtmux_klass->format));
 490
 491   /* internals to initial state */
 492   gst_qt_mux_reset (qtmux, TRUE);
 493 }
 494
 495
 496 static void
 497 gst_qt_mux_finalize (GObject * object)
 498 {
 499   GstQTMux *qtmux = GST_QT_MUX_CAST (object);
 500
 501   gst_qt_mux_reset (qtmux, FALSE);
 502
 503   g_free (qtmux->fast_start_file_path);
 504   g_free (qtmux->moov_recov_file_path);
 505
 506   atoms_context_free (qtmux->context);
 507   gst_object_unref (qtmux->collect);
 508
 509   g_slist_free (qtmux->sinkpads);
 510
 511   G_OBJECT_CLASS (parent_class)->finalize (object);
 512 }
 513
 514 static GstBuffer *
 515 gst_qt_mux_prepare_jpc_buffer (GstQTPad * qtpad, GstBuffer * buf,
 516     GstQTMux * qtmux)
 517 {
 518   GstBuffer *newbuf;
 519   guint8 *data;
 520   gsize size;
 521
 522   GST_LOG_OBJECT (qtmux, "Preparing jpc buffer");
 523
 524   if (buf == NULL)
 525     return NULL;
 526
 527   size = gst_buffer_get_size (buf);
 528   newbuf = gst_buffer_new_and_alloc (size + 8);
 529   gst_buffer_copy_into (newbuf, buf, GST_BUFFER_COPY_ALL, 8, size);
 530
 531   data = gst_buffer_map (newbuf, &size, NULL, GST_MAP_WRITE);
 532   GST_WRITE_UINT32_BE (data, size);
 533   GST_WRITE_UINT32_LE (data + 4, FOURCC_jp2c);
 534
 535   gst_buffer_unmap (buf, data, size);
 536   gst_buffer_unref (buf);
 537
 538   return newbuf;
 539 }
 540
 541 static void
 542 gst_qt_mux_add_mp4_tag (GstQTMux * qtmux, const GstTagList * list,
 543     const char *tag, const char *tag2, guint32 fourcc)
 544 {
 545   switch (gst_tag_get_type (tag)) {
 546       /* strings */
 547     case G_TYPE_STRING:
 548     {
 549       gchar *str = NULL;
 550
 551       if (!gst_tag_list_get_string (list, tag, &str) || !str)
 552         break;
 553       GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %s",
 554           GST_FOURCC_ARGS (fourcc), str);
 555       atom_moov_add_str_tag (qtmux->moov, fourcc, str);
 556       g_free (str);
 557       break;
 558     }
 559       /* double */
 560     case G_TYPE_DOUBLE:
 561     {
 562       gdouble value;
 563
 564       if (!gst_tag_list_get_double (list, tag, &value))
 565         break;
 566       GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %u",
 567           GST_FOURCC_ARGS (fourcc), (gint) value);
 568       atom_moov_add_uint_tag (qtmux->moov, fourcc, 21, (gint) value);
 569       break;
 570     }
 571     case G_TYPE_UINT:
 572     {
 573       guint value = 0;
 574       if (tag2) {
 575         /* paired unsigned integers */
 576         guint count = 0;
 577
 578         if (!(gst_tag_list_get_uint (list, tag, &value) ||
 579                 gst_tag_list_get_uint (list, tag2, &count)))
 580           break;
 581         GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %u/%u",
 582             GST_FOURCC_ARGS (fourcc), value, count);
 583         atom_moov_add_uint_tag (qtmux->moov, fourcc, 0,
 584             value << 16 | (count & 0xFFFF));
 585       } else {
 586         /* unpaired unsigned integers */
 587         if (!gst_tag_list_get_uint (list, tag, &value))
 588           break;
 589         GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %u",
 590             GST_FOURCC_ARGS (fourcc), value);
 591         atom_moov_add_uint_tag (qtmux->moov, fourcc, 1, value);
 592       }
 593       break;
 594     }
 595     default:
 596       g_assert_not_reached ();
 597       break;
 598   }
 599 }
 600
 601 static void
 602 gst_qt_mux_add_mp4_date (GstQTMux * qtmux, const GstTagList * list,
 603     const char *tag, const char *tag2, guint32 fourcc)
 604 {
 605   GDate *date = NULL;
 606   GDateYear year;
 607   GDateMonth month;
 608   GDateDay day;
 609   gchar *str;
 610
 611   g_return_if_fail (gst_tag_get_type (tag) == GST_TYPE_DATE);
 612
 613   if (!gst_tag_list_get_date (list, tag, &date) || !date)
 614     return;
 615
 616   year = g_date_get_year (date);
 617   month = g_date_get_month (date);
 618   day = g_date_get_day (date);
 619
 620   g_date_free (date);
 621
 622   if (year == G_DATE_BAD_YEAR && month == G_DATE_BAD_MONTH &&
 623       day == G_DATE_BAD_DAY) {
 624     GST_WARNING_OBJECT (qtmux, "invalid date in tag");
 625     return;
 626   }
 627
 628   str = g_strdup_printf ("%u-%u-%u", year, month, day);
 629   GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %s",
 630       GST_FOURCC_ARGS (fourcc), str);
 631   atom_moov_add_str_tag (qtmux->moov, fourcc, str);
 632   g_free (str);
 633 }
 634
 635 static void
 636 gst_qt_mux_add_mp4_cover (GstQTMux * qtmux, const GstTagList * list,
 637     const char *tag, const char *tag2, guint32 fourcc)
 638 {
 639   GValue value = { 0, };
 640   GstBuffer *buf;
 641   GstCaps *caps;
 642   GstStructure *structure;
 643   gint flags = 0;
 644   guint8 *data;
 645   gsize size;
 646
 647   g_return_if_fail (gst_tag_get_type (tag) == GST_TYPE_BUFFER);
 648
 649   if (!gst_tag_list_copy_value (&value, list, tag))
 650     return;
 651
 652   buf = gst_value_get_buffer (&value);
 653   if (!buf)
 654     goto done;
 655
 656   /* FIXME-0.11 caps metadata ? */
 657   /* caps = gst_buffer_get_caps (buf); */
 658   caps = NULL;
 659   if (!caps) {
 660     GST_WARNING_OBJECT (qtmux, "preview image without caps");
 661     goto done;
 662   }
 663
 664   GST_DEBUG_OBJECT (qtmux, "preview image caps %" GST_PTR_FORMAT, caps);
 665
 666   structure = gst_caps_get_structure (caps, 0);
 667   if (gst_structure_has_name (structure, "image/jpeg"))
 668     flags = 13;
 669   else if (gst_structure_has_name (structure, "image/png"))
 670     flags = 14;
 671   gst_caps_unref (caps);
 672
 673   if (!flags) {
 674     GST_WARNING_OBJECT (qtmux, "preview image format not supported");
 675     goto done;
 676   }
 677
 678   data = gst_buffer_map (buf, &size, NULL, GST_MAP_READ);
 679   GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT
 680       " -> image size %d", GST_FOURCC_ARGS (fourcc), size);
 681   atom_moov_add_tag (qtmux->moov, fourcc, flags, data, size);
 682   gst_buffer_unmap (buf, data, size);
 683 done:
 684   g_value_unset (&value);
 685 }
 686
 687 static void
 688 gst_qt_mux_add_3gp_str (GstQTMux * qtmux, const GstTagList * list,
 689     const char *tag, const char *tag2, guint32 fourcc)
 690 {
 691   gchar *str = NULL;
 692   guint number;
 693
 694   g_return_if_fail (gst_tag_get_type (tag) == G_TYPE_STRING);
 695   g_return_if_fail (!tag2 || gst_tag_get_type (tag2) == G_TYPE_UINT);
 696
 697   if (!gst_tag_list_get_string (list, tag, &str) || !str)
 698     return;
 699
 700   if (tag2)
 701     if (!gst_tag_list_get_uint (list, tag2, &number))
 702       tag2 = NULL;
 703
 704   if (!tag2) {
 705     GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %s",
 706         GST_FOURCC_ARGS (fourcc), str);
 707     atom_moov_add_3gp_str_tag (qtmux->moov, fourcc, str);
 708   } else {
 709     GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %s/%d",
 710         GST_FOURCC_ARGS (fourcc), str, number);
 711     atom_moov_add_3gp_str_int_tag (qtmux->moov, fourcc, str, number);
 712   }
 713
 714   g_free (str);
 715 }
 716
 717 static void
 718 gst_qt_mux_add_3gp_date (GstQTMux * qtmux, const GstTagList * list,
 719     const char *tag, const char *tag2, guint32 fourcc)
 720 {
 721   GDate *date = NULL;
 722   GDateYear year;
 723
 724   g_return_if_fail (gst_tag_get_type (tag) == GST_TYPE_DATE);
 725
 726   if (!gst_tag_list_get_date (list, tag, &date) || !date)
 727     return;
 728
 729   year = g_date_get_year (date);
 730
 731   if (year == G_DATE_BAD_YEAR) {
 732     GST_WARNING_OBJECT (qtmux, "invalid date in tag");
 733     return;
 734   }
 735
 736   GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %d",
 737       GST_FOURCC_ARGS (fourcc), year);
 738   atom_moov_add_3gp_uint_tag (qtmux->moov, fourcc, year);
 739 }
 740
 741 static void
 742 gst_qt_mux_add_3gp_location (GstQTMux * qtmux, const GstTagList * list,
 743     const char *tag, const char *tag2, guint32 fourcc)
 744 {
 745   gdouble latitude = -360, longitude = -360, altitude = 0;
 746   gchar *location = NULL;
 747   guint8 *data, *ddata;
 748   gint size = 0, len = 0;
 749   gboolean ret = FALSE;
 750
 751   g_return_if_fail (strcmp (tag, GST_TAG_GEO_LOCATION_NAME) == 0);
 752
 753   ret = gst_tag_list_get_string (list, tag, &location);
 754   ret |= gst_tag_list_get_double (list, GST_TAG_GEO_LOCATION_LONGITUDE,
 755       &longitude);
 756   ret |= gst_tag_list_get_double (list, GST_TAG_GEO_LOCATION_LATITUDE,
 757       &latitude);
 758   ret |= gst_tag_list_get_double (list, GST_TAG_GEO_LOCATION_ELEVATION,
 759       &altitude);
 760
 761   if (!ret)
 762     return;
 763
 764   if (location)
 765     len = strlen (location);
 766   size += len + 1 + 2;
 767
 768   /* role + (long, lat, alt) + body + notes */
 769   size += 1 + 3 * 4 + 1 + 1;
 770
 771   data = ddata = g_malloc (size);
 772
 773   /* language tag */
 774   GST_WRITE_UINT16_BE (data, language_code (GST_QT_MUX_DEFAULT_TAG_LANGUAGE));
 775   /* location */
 776   if (location)
 777     memcpy (data + 2, location, len);
 778   GST_WRITE_UINT8 (data + 2 + len, 0);
 779   data += len + 1 + 2;
 780   /* role */
 781   GST_WRITE_UINT8 (data, 0);
 782   /* long, lat, alt */
 783 #define QT_WRITE_SFP32(data, fp) GST_WRITE_UINT32_BE(data, (guint32) ((gint) (fp * 65536.0)))
 784   QT_WRITE_SFP32 (data + 1, longitude);
 785   QT_WRITE_SFP32 (data + 5, latitude);
 786   QT_WRITE_SFP32 (data + 9, altitude);
 787   /* neither astronomical body nor notes */
 788   GST_WRITE_UINT16_BE (data + 13, 0);
 789
 790   GST_DEBUG_OBJECT (qtmux, "Adding tag 'loci'");
 791   atom_moov_add_3gp_tag (qtmux->moov, fourcc, ddata, size);
 792   g_free (ddata);
 793 }
 794
 795 static void
 796 gst_qt_mux_add_3gp_keywords (GstQTMux * qtmux, const GstTagList * list,
 797     const char *tag, const char *tag2, guint32 fourcc)
 798 {
 799   gchar *keywords = NULL;
 800   guint8 *data, *ddata;
 801   gint size = 0, i;
 802   gchar **kwds;
 803
 804   g_return_if_fail (strcmp (tag, GST_TAG_KEYWORDS) == 0);
 805
 806   if (!gst_tag_list_get_string (list, tag, &keywords) || !keywords)
 807     return;
 808
 809   kwds = g_strsplit (keywords, ",", 0);
 810   g_free (keywords);
 811
 812   size = 0;
 813   for (i = 0; kwds[i]; i++) {
 814     /* size byte + null-terminator */
 815     size += strlen (kwds[i]) + 1 + 1;
 816   }
 817
 818   /* language tag + count + keywords */
 819   size += 2 + 1;
 820
 821   data = ddata = g_malloc (size);
 822
 823   /* language tag */
 824   GST_WRITE_UINT16_BE (data, language_code (GST_QT_MUX_DEFAULT_TAG_LANGUAGE));
 825   /* count */
 826   GST_WRITE_UINT8 (data + 2, i);
 827   data += 3;
 828   /* keywords */
 829   for (i = 0; kwds[i]; ++i) {
 830     gint len = strlen (kwds[i]);
 831
 832     GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %s",
 833         GST_FOURCC_ARGS (fourcc), kwds[i]);
 834     /* size */
 835     GST_WRITE_UINT8 (data, len + 1);
 836     memcpy (data + 1, kwds[i], len + 1);
 837     data += len + 2;
 838   }
 839
 840   g_strfreev (kwds);
 841
 842   atom_moov_add_3gp_tag (qtmux->moov, fourcc, ddata, size);
 843   g_free (ddata);
 844 }
 845
 846 static gboolean
 847 gst_qt_mux_parse_classification_string (GstQTMux * qtmux, const gchar * input,
 848     guint32 * p_fourcc, guint16 * p_table, gchar ** p_content)
 849 {
 850   guint32 fourcc;
 851   gint table;
 852   gint size;
 853   const gchar *data;
 854
 855   data = input;
 856   size = strlen (input);
 857
 858   if (size < 4 + 3 + 1 + 1 + 1) {
 859     /* at least the minimum xxxx://y/z */
 860     GST_WARNING_OBJECT (qtmux, "Classification tag input (%s) too short, "
 861         "ignoring", input);
 862     return FALSE;
 863   }
 864
 865   /* read the fourcc */
 866   memcpy (&fourcc, data, 4);
 867   size -= 4;
 868   data += 4;
 869
 870   if (strncmp (data, "://", 3) != 0) {
 871     goto mismatch;
 872   }
 873   data += 3;
 874   size -= 3;
 875
 876   /* read the table number */
 877   if (sscanf (data, "%d", &table) != 1) {
 878     goto mismatch;
 879   }
 880   if (table < 0) {
 881     GST_WARNING_OBJECT (qtmux, "Invalid table number in classification tag (%d)"
 882         ", table numbers should be positive, ignoring tag", table);
 883     return FALSE;
 884   }
 885
 886   /* find the next / */
 887   while (size > 0 && data[0] != '/') {
 888     data += 1;
 889     size -= 1;
 890   }
 891   if (size == 0) {
 892     goto mismatch;
 893   }
 894   g_assert (data[0] == '/');
 895
 896   /* skip the '/' */
 897   data += 1;
 898   size -= 1;
 899   if (size == 0) {
 900     goto mismatch;
 901   }
 902
 903   /* read up the rest of the string */
 904   *p_content = g_strdup (data);
 905   *p_table = (guint16) table;
 906   *p_fourcc = fourcc;
 907   return TRUE;
 908
 909 mismatch:
 910   {
 911     GST_WARNING_OBJECT (qtmux, "Ignoring classification tag as "
 912         "input (%s) didn't match the expected entitycode://table/content",
 913         input);
 914     return FALSE;
 915   }
 916 }
 917
 918 static void
 919 gst_qt_mux_add_3gp_classification (GstQTMux * qtmux, const GstTagList * list,
 920     const char *tag, const char *tag2, guint32 fourcc)
 921 {
 922   gchar *clsf_data = NULL;
 923   gint size = 0;
 924   guint32 entity = 0;
 925   guint16 table = 0;
 926   gchar *content = NULL;
 927   guint8 *data;
 928
 929   g_return_if_fail (strcmp (tag, GST_TAG_3GP_CLASSIFICATION) == 0);
 930
 931   if (!gst_tag_list_get_string (list, tag, &clsf_data) || !clsf_data)
 932     return;
 933
 934   GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %s",
 935       GST_FOURCC_ARGS (fourcc), clsf_data);
 936
 937   /* parse the string, format is:
 938    * entityfourcc://table/content
 939    */
 940   gst_qt_mux_parse_classification_string (qtmux, clsf_data, &entity, &table,
 941       &content);
 942   g_free (clsf_data);
 943   /* +1 for the \0 */
 944   size = strlen (content) + 1;
 945
 946   /* now we have everything, build the atom
 947    * atom description is at 3GPP TS 26.244 V8.2.0 (2009-09) */
 948   data = g_malloc (4 + 2 + 2 + size);
 949   GST_WRITE_UINT32_LE (data, entity);
 950   GST_WRITE_UINT16_BE (data + 4, (guint16) table);
 951   GST_WRITE_UINT16_BE (data + 6, 0);
 952   memcpy (data + 8, content, size);
 953   g_free (content);
 954
 955   atom_moov_add_3gp_tag (qtmux->moov, fourcc, data, 4 + 2 + 2 + size);
 956   g_free (data);
 957 }
 958
 959 typedef void (*GstQTMuxAddTagFunc) (GstQTMux * mux, const GstTagList * list,
 960     const char *tag, const char *tag2, guint32 fourcc);
 961
 962 /*
 963  * Struct to record mappings from gstreamer tags to fourcc codes
 964  */
 965 typedef struct _GstTagToFourcc
 966 {
 967   guint32 fourcc;
 968   const gchar *gsttag;
 969   const gchar *gsttag2;
 970   const GstQTMuxAddTagFunc func;
 971 } GstTagToFourcc;
 972
 973 /* tag list tags to fourcc matching */
 974 static const GstTagToFourcc tag_matches_mp4[] = {
 975   {FOURCC__alb, GST_TAG_ALBUM, NULL, gst_qt_mux_add_mp4_tag},
 976   {FOURCC_soal, GST_TAG_ALBUM_SORTNAME, NULL, gst_qt_mux_add_mp4_tag},
 977   {FOURCC__ART, GST_TAG_ARTIST, NULL, gst_qt_mux_add_mp4_tag},
 978   {FOURCC_soar, GST_TAG_ARTIST_SORTNAME, NULL, gst_qt_mux_add_mp4_tag},
 979   {FOURCC_aART, GST_TAG_ALBUM_ARTIST, NULL, gst_qt_mux_add_mp4_tag},
 980   {FOURCC_soaa, GST_TAG_ALBUM_ARTIST_SORTNAME, NULL, gst_qt_mux_add_mp4_tag},
 981   {FOURCC__cmt, GST_TAG_COMMENT, NULL, gst_qt_mux_add_mp4_tag},
 982   {FOURCC__wrt, GST_TAG_COMPOSER, NULL, gst_qt_mux_add_mp4_tag},
 983   {FOURCC_soco, GST_TAG_COMPOSER_SORTNAME, NULL, gst_qt_mux_add_mp4_tag},
 984   {FOURCC_tvsh, GST_TAG_SHOW_NAME, NULL, gst_qt_mux_add_mp4_tag},
 985   {FOURCC_sosn, GST_TAG_SHOW_SORTNAME, NULL, gst_qt_mux_add_mp4_tag},
 986   {FOURCC_tvsn, GST_TAG_SHOW_SEASON_NUMBER, NULL, gst_qt_mux_add_mp4_tag},
 987   {FOURCC_tves, GST_TAG_SHOW_EPISODE_NUMBER, NULL, gst_qt_mux_add_mp4_tag},
 988   {FOURCC__gen, GST_TAG_GENRE, NULL, gst_qt_mux_add_mp4_tag},
 989   {FOURCC__nam, GST_TAG_TITLE, NULL, gst_qt_mux_add_mp4_tag},
 990   {FOURCC_sonm, GST_TAG_TITLE_SORTNAME, NULL, gst_qt_mux_add_mp4_tag},
 991   {FOURCC_perf, GST_TAG_PERFORMER, NULL, gst_qt_mux_add_mp4_tag},
 992   {FOURCC__grp, GST_TAG_GROUPING, NULL, gst_qt_mux_add_mp4_tag},
 993   {FOURCC__des, GST_TAG_DESCRIPTION, NULL, gst_qt_mux_add_mp4_tag},
 994   {FOURCC__lyr, GST_TAG_LYRICS, NULL, gst_qt_mux_add_mp4_tag},
 995   {FOURCC__too, GST_TAG_ENCODER, NULL, gst_qt_mux_add_mp4_tag},
 996   {FOURCC_cprt, GST_TAG_COPYRIGHT, NULL, gst_qt_mux_add_mp4_tag},
 997   {FOURCC_keyw, GST_TAG_KEYWORDS, NULL, gst_qt_mux_add_mp4_tag},
 998   {FOURCC__day, GST_TAG_DATE, NULL, gst_qt_mux_add_mp4_date},
 999   {FOURCC_tmpo, GST_TAG_BEATS_PER_MINUTE, NULL, gst_qt_mux_add_mp4_tag},
1000   {FOURCC_trkn, GST_TAG_TRACK_NUMBER, GST_TAG_TRACK_COUNT,
1001       gst_qt_mux_add_mp4_tag},
1002   {FOURCC_disk, GST_TAG_ALBUM_VOLUME_NUMBER, GST_TAG_ALBUM_VOLUME_COUNT,
1003       gst_qt_mux_add_mp4_tag},
1004   {FOURCC_covr, GST_TAG_PREVIEW_IMAGE, NULL, gst_qt_mux_add_mp4_cover},
1005   {FOURCC_covr, GST_TAG_IMAGE, NULL, gst_qt_mux_add_mp4_cover},
1006   {0, NULL,}
1007 };
1008
1009 static const GstTagToFourcc tag_matches_3gp[] = {
1010   {FOURCC_titl, GST_TAG_TITLE, NULL, gst_qt_mux_add_3gp_str},
1011   {FOURCC_dscp, GST_TAG_DESCRIPTION, NULL, gst_qt_mux_add_3gp_str},
1012   {FOURCC_cprt, GST_TAG_COPYRIGHT, NULL, gst_qt_mux_add_3gp_str},
1013   {FOURCC_perf, GST_TAG_ARTIST, NULL, gst_qt_mux_add_3gp_str},
1014   {FOURCC_auth, GST_TAG_COMPOSER, NULL, gst_qt_mux_add_3gp_str},
1015   {FOURCC_gnre, GST_TAG_GENRE, NULL, gst_qt_mux_add_3gp_str},
1016   {FOURCC_kywd, GST_TAG_KEYWORDS, NULL, gst_qt_mux_add_3gp_keywords},
1017   {FOURCC_yrrc, GST_TAG_DATE, NULL, gst_qt_mux_add_3gp_date},
1018   {FOURCC_albm, GST_TAG_ALBUM, GST_TAG_TRACK_NUMBER, gst_qt_mux_add_3gp_str},
1019   {FOURCC_loci, GST_TAG_GEO_LOCATION_NAME, NULL, gst_qt_mux_add_3gp_location},
1020   {FOURCC_clsf, GST_TAG_3GP_CLASSIFICATION, NULL,
1021       gst_qt_mux_add_3gp_classification},
1022   {0, NULL,}
1023 };
1024
1025 /* qtdemux produces these for atoms it cannot parse */
1026 #define GST_QT_DEMUX_PRIVATE_TAG "private-qt-tag"
1027
1028 static void
1029 gst_qt_mux_add_xmp_tags (GstQTMux * qtmux, const GstTagList * list)
1030 {
1031   GstQTMuxClass *qtmux_klass = (GstQTMuxClass *) (G_OBJECT_GET_CLASS (qtmux));
1032   GstBuffer *xmp = NULL;
1033
1034   /* adobe specs only have 'quicktime' and 'mp4',
1035    * but I guess we can extrapolate to gpp.
1036    * Keep mj2 out for now as we don't add any tags for it yet.
1037    * If you have further info about xmp on these formats, please share */
1038   if (qtmux_klass->format == GST_QT_MUX_FORMAT_MJ2)
1039     return;
1040
1041   GST_DEBUG_OBJECT (qtmux, "Adding xmp tags");
1042
1043   if (qtmux_klass->format == GST_QT_MUX_FORMAT_QT) {
1044     xmp = gst_tag_xmp_writer_tag_list_to_xmp_buffer (GST_TAG_XMP_WRITER (qtmux),
1045         list, TRUE);
1046     if (xmp)
1047       atom_moov_add_xmp_tags (qtmux->moov, xmp);
1048   } else {
1049     AtomInfo *ainfo;
1050     /* for isom/mp4, it is a top level uuid atom */
1051     xmp = gst_tag_xmp_writer_tag_list_to_xmp_buffer (GST_TAG_XMP_WRITER (qtmux),
1052         list, TRUE);
1053     if (xmp) {
1054       ainfo = build_uuid_xmp_atom (xmp);
1055       if (ainfo) {
1056         qtmux->extra_atoms = g_slist_prepend (qtmux->extra_atoms, ainfo);
1057       }
1058     }
1059   }
1060   if (xmp)
1061     gst_buffer_unref (xmp);
1062 }
1063
1064 static void
1065 gst_qt_mux_add_metadata_tags (GstQTMux * qtmux, const GstTagList * list)
1066 {
1067   GstQTMuxClass *qtmux_klass = (GstQTMuxClass *) (G_OBJECT_GET_CLASS (qtmux));
1068   guint32 fourcc;
1069   gint i;
1070   const gchar *tag, *tag2;
1071   const GstTagToFourcc *tag_matches;
1072
1073   switch (qtmux_klass->format) {
1074     case GST_QT_MUX_FORMAT_3GP:
1075       tag_matches = tag_matches_3gp;
1076       break;
1077     case GST_QT_MUX_FORMAT_MJ2:
1078       tag_matches = NULL;
1079       break;
1080     default:
1081       /* sort of iTunes style for mp4 and QT (?) */
1082       tag_matches = tag_matches_mp4;
1083       break;
1084   }
1085
1086   if (!tag_matches)
1087     return;
1088
1089   for (i = 0; tag_matches[i].fourcc; i++) {
1090     fourcc = tag_matches[i].fourcc;
1091     tag = tag_matches[i].gsttag;
1092     tag2 = tag_matches[i].gsttag2;
1093
1094     g_assert (tag_matches[i].func);
1095     tag_matches[i].func (qtmux, list, tag, tag2, fourcc);
1096   }
1097
1098   /* add unparsed blobs if present */
1099   if (gst_tag_exists (GST_QT_DEMUX_PRIVATE_TAG)) {
1100     guint num_tags;
1101
1102     num_tags = gst_tag_list_get_tag_size (list, GST_QT_DEMUX_PRIVATE_TAG);
1103     for (i = 0; i < num_tags; ++i) {
1104       const GValue *val;
1105       GstBuffer *buf;
1106       GstCaps *caps = NULL;
1107
1108       val = gst_tag_list_get_value_index (list, GST_QT_DEMUX_PRIVATE_TAG, i);
1109       buf = (GstBuffer *) gst_value_get_buffer (val);
1110
1111       /* FIXME-0.11 */
1112       if (buf && (caps = NULL /*gst_buffer_get_caps (buf) */ )) {
1113         GstStructure *s;
1114         const gchar *style = NULL;
1115         guint8 *data;
1116         gsize size;
1117
1118         data = gst_buffer_map (buf, &size, NULL, GST_MAP_READ);
1119         GST_DEBUG_OBJECT (qtmux, "Found private tag %d/%d; size %d, caps %"
1120             GST_PTR_FORMAT, i, num_tags, size, caps);
1121         s = gst_caps_get_structure (caps, 0);
1122         if (s && (style = gst_structure_get_string (s, "style"))) {
1123           /* try to prevent some style tag ending up into another variant
1124            * (todo: make into a list if more cases) */
1125           if ((strcmp (style, "itunes") == 0 &&
1126                   qtmux_klass->format == GST_QT_MUX_FORMAT_MP4) ||
1127               (strcmp (style, "iso") == 0 &&
1128                   qtmux_klass->format == GST_QT_MUX_FORMAT_3GP)) {
1129             GST_DEBUG_OBJECT (qtmux, "Adding private tag");
1130             atom_moov_add_blob_tag (qtmux->moov, data, size);
1131           }
1132         }
1133         gst_buffer_unmap (buf, data, size);
1134         gst_caps_unref (caps);
1135       }
1136     }
1137   }
1138
1139   return;
1140 }
1141
1142 /*
1143  * Gets the tagsetter iface taglist and puts the known tags
1144  * into the output stream
1145  */
1146 static void
1147 gst_qt_mux_setup_metadata (GstQTMux * qtmux)
1148 {
1149   const GstTagList *tags;
1150
1151   GST_OBJECT_LOCK (qtmux);
1152   tags = gst_tag_setter_get_tag_list (GST_TAG_SETTER (qtmux));
1153   GST_OBJECT_UNLOCK (qtmux);
1154
1155   GST_LOG_OBJECT (qtmux, "tags: %" GST_PTR_FORMAT, tags);
1156
1157   if (tags && !gst_tag_list_is_empty (tags)) {
1158     GstTagList *copy = gst_tag_list_copy (tags);
1159
1160     GST_DEBUG_OBJECT (qtmux, "Removing bogus tags");
1161     gst_tag_list_remove_tag (copy, GST_TAG_VIDEO_CODEC);
1162     gst_tag_list_remove_tag (copy, GST_TAG_AUDIO_CODEC);
1163     gst_tag_list_remove_tag (copy, GST_TAG_CONTAINER_FORMAT);
1164
1165     GST_DEBUG_OBJECT (qtmux, "Formatting tags");
1166     gst_qt_mux_add_metadata_tags (qtmux, copy);
1167     gst_qt_mux_add_xmp_tags (qtmux, copy);
1168     gst_tag_list_free (copy);
1169   } else {
1170     GST_DEBUG_OBJECT (qtmux, "No tags received");
1171   }
1172 }
1173
1174 static inline GstBuffer *
1175 _gst_buffer_new_take_data (guint8 * data, guint size)
1176 {
1177   GstBuffer *buf;
1178
1179   buf = gst_buffer_new ();
1180   gst_buffer_take_memory (buf, -1,
1181       gst_memory_new_wrapped (0, data, g_free, size, 0, size));
1182
1183   return buf;
1184 }
1185
1186 static GstFlowReturn
1187 gst_qt_mux_send_buffer (GstQTMux * qtmux, GstBuffer * buf, guint64 * offset,
1188     gboolean mind_fast)
1189 {
1190   GstFlowReturn res;
1191   gsize size;
1192
1193   g_return_val_if_fail (buf != NULL, GST_FLOW_ERROR);
1194
1195   size = gst_buffer_get_size (buf);
1196   GST_LOG_OBJECT (qtmux, "sending buffer size %d", size);
1197
1198   if (mind_fast && qtmux->fast_start_file) {
1199     gint ret;
1200     guint8 *data;
1201
1202     GST_LOG_OBJECT (qtmux, "to temporary file");
1203     data = gst_buffer_map (buf, &size, NULL, GST_MAP_READ);
1204     ret = fwrite (data, sizeof (guint8), size, qtmux->fast_start_file);
1205     gst_buffer_unmap (buf, data, size);
1206     gst_buffer_unref (buf);
1207     if (ret != size)
1208       goto write_error;
1209     else
1210       res = GST_FLOW_OK;
1211   } else {
1212     GST_LOG_OBJECT (qtmux, "downstream");
1213     res = gst_pad_push (qtmux->srcpad, buf);
1214   }
1215
1216   if (G_LIKELY (offset))
1217     *offset += size;
1218
1219   return res;
1220
1221   /* ERRORS */
1222 write_error:
1223   {
1224     GST_ELEMENT_ERROR (qtmux, RESOURCE, WRITE,
1225         ("Failed to write to temporary file"), GST_ERROR_SYSTEM);
1226     return GST_FLOW_ERROR;
1227   }
1228 }
1229
1230 static gboolean
1231 gst_qt_mux_seek_to_beginning (FILE * f)
1232 {
1233 #ifdef HAVE_FSEEKO
1234   if (fseeko (f, (off_t) 0, SEEK_SET) != 0)
1235     return FALSE;
1236 #elif defined (G_OS_UNIX) || defined (G_OS_WIN32)
1237   if (lseek (fileno (f), (off_t) 0, SEEK_SET) == (off_t) - 1)
1238     return FALSE;
1239 #else
1240   if (fseek (f, (long) 0, SEEK_SET) != 0)
1241     return FALSE;
1242 #endif
1243   return TRUE;
1244 }
1245
1246 static GstFlowReturn
1247 gst_qt_mux_send_buffered_data (GstQTMux * qtmux, guint64 * offset)
1248 {
1249   GstFlowReturn ret = GST_FLOW_OK;
1250   GstBuffer *buf = NULL;
1251
1252   if (fflush (qtmux->fast_start_file))
1253     goto flush_failed;
1254
1255   if (!gst_qt_mux_seek_to_beginning (qtmux->fast_start_file))
1256     goto seek_failed;
1257
1258   /* hm, this could all take a really really long time,
1259    * but there may not be another way to get moov atom first
1260    * (somehow optimize copy?) */
1261   GST_DEBUG_OBJECT (qtmux, "Sending buffered data");
1262   while (ret == GST_FLOW_OK) {
1263     const int bufsize = 4096;
1264     guint8 *data;
1265     gsize size;
1266
1267     buf = gst_buffer_new_and_alloc (bufsize);
1268     data = gst_buffer_map (buf, &size, NULL, GST_MAP_WRITE);
1269     size = fread (data, sizeof (guint8), bufsize, qtmux->fast_start_file);
1270     if (size == 0) {
1271       gst_buffer_unmap (buf, data, -1);
1272       break;
1273     }
1274     gst_buffer_unmap (buf, data, size);
1275     GST_LOG_OBJECT (qtmux, "Pushing buffered buffer of size %d", (gint) size);
1276     ret = gst_qt_mux_send_buffer (qtmux, buf, offset, FALSE);
1277     buf = NULL;
1278   }
1279   if (buf)
1280     gst_buffer_unref (buf);
1281
1282   if (ftruncate (fileno (qtmux->fast_start_file), 0))
1283     goto seek_failed;
1284   if (!gst_qt_mux_seek_to_beginning (qtmux->fast_start_file))
1285     goto seek_failed;
1286
1287   return ret;
1288
1289   /* ERRORS */
1290 flush_failed:
1291   {
1292     GST_ELEMENT_ERROR (qtmux, RESOURCE, WRITE,
1293         ("Failed to flush temporary file"), GST_ERROR_SYSTEM);
1294     ret = GST_FLOW_ERROR;
1295     goto fail;
1296   }
1297 seek_failed:
1298   {
1299     GST_ELEMENT_ERROR (qtmux, RESOURCE, SEEK,
1300         ("Failed to seek temporary file"), GST_ERROR_SYSTEM);
1301     ret = GST_FLOW_ERROR;
1302     goto fail;
1303   }
1304 fail:
1305   {
1306     /* clear descriptor so we don't remove temp file later on,
1307      * might be possible to recover */
1308     fclose (qtmux->fast_start_file);
1309     qtmux->fast_start_file = NULL;
1310     return ret;
1311   }
1312 }
1313
1314 /*
1315  * Sends the initial mdat atom fields (size fields and fourcc type),
1316  * the subsequent buffers are considered part of it's data.
1317  * As we can't predict the amount of data that we are going to place in mdat
1318  * we need to record the position of the size field in the stream so we can
1319  * seek back to it later and update when the streams have finished.
1320  */
1321 static GstFlowReturn
1322 gst_qt_mux_send_mdat_header (GstQTMux * qtmux, guint64 * off, guint64 size,
1323     gboolean extended)
1324 {
1325   Atom *node_header;
1326   GstBuffer *buf;
1327   guint8 *data = NULL;
1328   guint64 offset = 0;
1329
1330   GST_DEBUG_OBJECT (qtmux, "Sending mdat's atom header, "
1331       "size %" G_GUINT64_FORMAT, size);
1332
1333   node_header = g_malloc0 (sizeof (Atom));
1334   node_header->type = FOURCC_mdat;
1335   if (extended) {
1336     /* use extended size */
1337     node_header->size = 1;
1338     node_header->extended_size = 0;
1339     if (size)
1340       node_header->extended_size = size + 16;
1341   } else {
1342     node_header->size = size + 8;
1343   }
1344
1345   size = offset = 0;
1346   if (atom_copy_data (node_header, &data, &size, &offset) == 0)
1347     goto serialize_error;
1348
1349   buf = _gst_buffer_new_take_data (data, offset);
1350   g_free (node_header);
1351
1352   GST_LOG_OBJECT (qtmux, "Pushing mdat start");
1353   return gst_qt_mux_send_buffer (qtmux, buf, off, FALSE);
1354
1355   /* ERRORS */
1356 serialize_error:
1357   {
1358     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL),
1359         ("Failed to serialize mdat"));
1360     return GST_FLOW_ERROR;
1361   }
1362 }
1363
1364 /*
1365  * We get the position of the mdat size field, seek back to it
1366  * and overwrite with the real value
1367  */
1368 static GstFlowReturn
1369 gst_qt_mux_update_mdat_size (GstQTMux * qtmux, guint64 mdat_pos,
1370     guint64 mdat_size, guint64 * offset)
1371 {
1372   GstBuffer *buf;
1373   gboolean large_file;
1374   GstSegment segment;
1375   guint8 *data;
1376   gsize size;
1377
1378   large_file = (mdat_size > MDAT_LARGE_FILE_LIMIT);
1379
1380   if (large_file)
1381     mdat_pos += 8;
1382
1383   /* seek and rewrite the header */
1384   gst_segment_init (&segment, GST_FORMAT_BYTES);
1385   segment.start = mdat_pos;
1386   gst_pad_push_event (qtmux->srcpad, gst_event_new_segment (&segment));
1387
1388   if (large_file) {
1389     buf = gst_buffer_new_and_alloc (sizeof (guint64));
1390     data = gst_buffer_map (buf, &size, NULL, GST_MAP_WRITE);
1391     GST_WRITE_UINT64_BE (data, mdat_size + 16);
1392   } else {
1393     buf = gst_buffer_new_and_alloc (16);
1394     data = gst_buffer_map (buf, &size, NULL, GST_MAP_WRITE);
1395     GST_WRITE_UINT32_BE (data, 8);
1396     GST_WRITE_UINT32_LE (data + 4, FOURCC_free);
1397     GST_WRITE_UINT32_BE (data + 8, mdat_size + 8);
1398     GST_WRITE_UINT32_LE (data + 12, FOURCC_mdat);
1399   }
1400   gst_buffer_unmap (buf, data, size);
1401
1402   return gst_qt_mux_send_buffer (qtmux, buf, offset, FALSE);
1403 }
1404
1405 static GstFlowReturn
1406 gst_qt_mux_send_ftyp (GstQTMux * qtmux, guint64 * off)
1407 {
1408   GstBuffer *buf;
1409   guint64 size = 0, offset = 0;
1410   guint8 *data = NULL;
1411
1412   GST_DEBUG_OBJECT (qtmux, "Sending ftyp atom");
1413
1414   if (!atom_ftyp_copy_data (qtmux->ftyp, &data, &size, &offset))
1415     goto serialize_error;
1416
1417   buf = _gst_buffer_new_take_data (data, offset);
1418
1419   GST_LOG_OBJECT (qtmux, "Pushing ftyp");
1420   return gst_qt_mux_send_buffer (qtmux, buf, off, FALSE);
1421
1422   /* ERRORS */
1423 serialize_error:
1424   {
1425     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL),
1426         ("Failed to serialize ftyp"));
1427     return GST_FLOW_ERROR;
1428   }
1429 }
1430
1431 static void
1432 gst_qt_mux_prepare_ftyp (GstQTMux * qtmux, AtomFTYP ** p_ftyp,
1433     GstBuffer ** p_prefix)
1434 {
1435   GstQTMuxClass *qtmux_klass = (GstQTMuxClass *) (G_OBJECT_GET_CLASS (qtmux));
1436   guint32 major, version;
1437   GList *comp;
1438   GstBuffer *prefix = NULL;
1439   AtomFTYP *ftyp = NULL;
1440
1441   GST_DEBUG_OBJECT (qtmux, "Preparing ftyp and possible prefix atom");
1442
1443   /* init and send context and ftyp based on current property state */
1444   gst_qt_mux_map_format_to_header (qtmux_klass->format, &prefix, &major,
1445       &version, &comp, qtmux->moov, qtmux->longest_chunk,
1446       qtmux->fast_start_file != NULL);
1447   ftyp = atom_ftyp_new (qtmux->context, major, version, comp);
1448   if (comp)
1449     g_list_free (comp);
1450   if (prefix) {
1451     if (p_prefix)
1452       *p_prefix = prefix;
1453     else
1454       gst_buffer_unref (prefix);
1455   }
1456   *p_ftyp = ftyp;
1457 }
1458
1459 static GstFlowReturn
1460 gst_qt_mux_prepare_and_send_ftyp (GstQTMux * qtmux)
1461 {
1462   GstFlowReturn ret = GST_FLOW_OK;
1463   GstBuffer *prefix = NULL;
1464
1465   GST_DEBUG_OBJECT (qtmux, "Preparing to send ftyp atom");
1466
1467   /* init and send context and ftyp based on current property state */
1468   if (qtmux->ftyp) {
1469     atom_ftyp_free (qtmux->ftyp);
1470     qtmux->ftyp = NULL;
1471   }
1472   gst_qt_mux_prepare_ftyp (qtmux, &qtmux->ftyp, &prefix);
1473   if (prefix) {
1474     ret = gst_qt_mux_send_buffer (qtmux, prefix, &qtmux->header_size, FALSE);
1475     if (ret != GST_FLOW_OK)
1476       return ret;
1477   }
1478   return gst_qt_mux_send_ftyp (qtmux, &qtmux->header_size);
1479 }
1480
1481 static void
1482 gst_qt_mux_set_header_on_caps (GstQTMux * mux, GstBuffer * buf)
1483 {
1484   GstStructure *structure;
1485   GValue array = { 0 };
1486   GValue value = { 0 };
1487   GstCaps *caps, *tcaps;
1488
1489   tcaps = gst_pad_get_current_caps (mux->srcpad);
1490   caps = gst_caps_copy (tcaps);
1491   gst_caps_unref (tcaps);
1492
1493   structure = gst_caps_get_structure (caps, 0);
1494
1495   g_value_init (&array, GST_TYPE_ARRAY);
1496
1497   GST_BUFFER_FLAG_SET (buf, GST_BUFFER_FLAG_IN_CAPS);
1498   g_value_init (&value, GST_TYPE_BUFFER);
1499   gst_value_take_buffer (&value, gst_buffer_ref (buf));
1500   gst_value_array_append_value (&array, &value);
1501   g_value_unset (&value);
1502
1503   gst_structure_set_value (structure, "streamheader", &array);
1504   g_value_unset (&array);
1505   gst_pad_set_caps (mux->srcpad, caps);
1506   gst_caps_unref (caps);
1507 }
1508
1509 static void
1510 gst_qt_mux_configure_moov (GstQTMux * qtmux, guint32 * _timescale)
1511 {
1512   gboolean fragmented;
1513   guint32 timescale;
1514
1515   GST_OBJECT_LOCK (qtmux);
1516   timescale = qtmux->timescale;
1517   fragmented = qtmux->fragment_sequence > 0;
1518   GST_OBJECT_UNLOCK (qtmux);
1519
1520   /* inform lower layers of our property wishes, and determine duration.
1521    * Let moov take care of this using its list of traks;
1522    * so that released pads are also included */
1523   GST_DEBUG_OBJECT (qtmux, "Updating timescale to %" G_GUINT32_FORMAT,
1524       timescale);
1525   atom_moov_update_timescale (qtmux->moov, timescale);
1526   atom_moov_set_fragmented (qtmux->moov, fragmented);
1527
1528   atom_moov_update_duration (qtmux->moov);
1529
1530   if (_timescale)
1531     *_timescale = timescale;
1532 }
1533
1534 static GstFlowReturn
1535 gst_qt_mux_send_moov (GstQTMux * qtmux, guint64 * _offset, gboolean mind_fast)
1536 {
1537   guint64 offset = 0, size = 0;
1538   guint8 *data;
1539   GstBuffer *buf;
1540   GstFlowReturn ret = GST_FLOW_OK;
1541
1542   /* serialize moov */
1543   offset = size = 0;
1544   data = NULL;
1545   GST_LOG_OBJECT (qtmux, "Copying movie header into buffer");
1546   if (!atom_moov_copy_data (qtmux->moov, &data, &size, &offset))
1547     goto serialize_error;
1548
1549   buf = _gst_buffer_new_take_data (data, offset);
1550   GST_DEBUG_OBJECT (qtmux, "Pushing moov atoms");
1551   gst_qt_mux_set_header_on_caps (qtmux, buf);
1552   ret = gst_qt_mux_send_buffer (qtmux, buf, _offset, mind_fast);
1553
1554   return ret;
1555
1556 serialize_error:
1557   {
1558     g_free (data);
1559     return GST_FLOW_ERROR;
1560   }
1561 }
1562
1563 /* either calculates size of extra atoms or pushes them */
1564 static GstFlowReturn
1565 gst_qt_mux_send_extra_atoms (GstQTMux * qtmux, gboolean send, guint64 * offset,
1566     gboolean mind_fast)
1567 {
1568   GSList *walk;
1569   guint64 loffset = 0, size = 0;
1570   guint8 *data;
1571   GstFlowReturn ret = GST_FLOW_OK;
1572
1573   for (walk = qtmux->extra_atoms; walk; walk = g_slist_next (walk)) {
1574     AtomInfo *ainfo = (AtomInfo *) walk->data;
1575
1576     loffset = size = 0;
1577     data = NULL;
1578     if (!ainfo->copy_data_func (ainfo->atom,
1579             send ? &data : NULL, &size, &loffset))
1580       goto serialize_error;
1581
1582     if (send) {
1583       GstBuffer *buf;
1584
1585       GST_DEBUG_OBJECT (qtmux,
1586           "Pushing extra top-level atom %" GST_FOURCC_FORMAT,
1587           GST_FOURCC_ARGS (ainfo->atom->type));
1588       buf = _gst_buffer_new_take_data (data, loffset);
1589       ret = gst_qt_mux_send_buffer (qtmux, buf, offset, FALSE);
1590       if (ret != GST_FLOW_OK)
1591         break;
1592     } else {
1593       if (offset)
1594         *offset += loffset;
1595     }
1596   }
1597
1598   return ret;
1599
1600 serialize_error:
1601   {
1602     g_free (data);
1603     return GST_FLOW_ERROR;
1604   }
1605 }
1606
1607 static GstFlowReturn
1608 gst_qt_mux_start_file (GstQTMux * qtmux)
1609 {
1610   GstFlowReturn ret = GST_FLOW_OK;
1611   GstCaps *caps;
1612   GstSegment segment;
1613
1614   GST_DEBUG_OBJECT (qtmux, "starting file");
1615
1616   caps = gst_caps_copy (gst_pad_get_pad_template_caps (qtmux->srcpad));
1617   /* qtmux has structure with and without variant, remove all but the first */
1618   while (gst_caps_get_size (caps) > 1)
1619     gst_caps_remove_structure (caps, 1);
1620   gst_pad_set_caps (qtmux->srcpad, caps);
1621   gst_caps_unref (caps);
1622
1623   /* let downstream know we think in BYTES and expect to do seeking later on */
1624   gst_segment_init (&segment, GST_FORMAT_BYTES);
1625   gst_pad_push_event (qtmux->srcpad, gst_event_new_segment (&segment));
1626
1627   /* initialize our moov recovery file */
1628   GST_OBJECT_LOCK (qtmux);
1629   if (qtmux->moov_recov_file_path) {
1630     GST_DEBUG_OBJECT (qtmux, "Openning moov recovery file: %s",
1631         qtmux->moov_recov_file_path);
1632     qtmux->moov_recov_file = g_fopen (qtmux->moov_recov_file_path, "wb+");
1633     if (qtmux->moov_recov_file == NULL) {
1634       GST_WARNING_OBJECT (qtmux, "Failed to open moov recovery file in %s",
1635           qtmux->moov_recov_file_path);
1636     } else {
1637       GSList *walk;
1638       gboolean fail = FALSE;
1639       AtomFTYP *ftyp = NULL;
1640       GstBuffer *prefix = NULL;
1641
1642       gst_qt_mux_prepare_ftyp (qtmux, &ftyp, &prefix);
1643
1644       if (!atoms_recov_write_headers (qtmux->moov_recov_file, ftyp, prefix,
1645               qtmux->moov, qtmux->timescale,
1646               g_slist_length (qtmux->sinkpads))) {
1647         GST_WARNING_OBJECT (qtmux, "Failed to write moov recovery file "
1648             "headers");
1649         fail = TRUE;
1650       }
1651
1652       atom_ftyp_free (ftyp);
1653       if (prefix)
1654         gst_buffer_unref (prefix);
1655
1656       for (walk = qtmux->sinkpads; walk && !fail; walk = g_slist_next (walk)) {
1657         GstCollectData *cdata = (GstCollectData *) walk->data;
1658         GstQTPad *qpad = (GstQTPad *) cdata;
1659         /* write info for each stream */
1660         fail = atoms_recov_write_trak_info (qtmux->moov_recov_file, qpad->trak);
1661         if (fail) {
1662           GST_WARNING_OBJECT (qtmux, "Failed to write trak info to recovery "
1663               "file");
1664         }
1665       }
1666       if (fail) {
1667         /* cleanup */
1668         fclose (qtmux->moov_recov_file);
1669         qtmux->moov_recov_file = NULL;
1670         GST_WARNING_OBJECT (qtmux, "An error was detected while writing to "
1671             "recover file, moov recovery won't work");
1672       }
1673     }
1674   }
1675   GST_OBJECT_UNLOCK (qtmux);
1676
1677   /*
1678    * send mdat header if already needed, and mark position for later update.
1679    * We don't send ftyp now if we are on fast start mode, because we can
1680    * better fine tune using the information we gather to create the whole moov
1681    * atom.
1682    */
1683   if (qtmux->fast_start) {
1684     GST_OBJECT_LOCK (qtmux);
1685     qtmux->fast_start_file = g_fopen (qtmux->fast_start_file_path, "wb+");
1686     if (!qtmux->fast_start_file)
1687       goto open_failed;
1688     GST_OBJECT_UNLOCK (qtmux);
1689
1690     /* send a dummy buffer for preroll */
1691     ret = gst_qt_mux_send_buffer (qtmux, gst_buffer_new (), NULL, FALSE);
1692     if (ret != GST_FLOW_OK)
1693       goto exit;
1694
1695   } else {
1696     ret = gst_qt_mux_prepare_and_send_ftyp (qtmux);
1697     if (ret != GST_FLOW_OK) {
1698       goto exit;
1699     }
1700
1701     /* well, it's moov pos if fragmented ... */
1702     qtmux->mdat_pos = qtmux->header_size;
1703
1704     if (qtmux->fragment_duration) {
1705       GST_DEBUG_OBJECT (qtmux, "fragment duration %d ms, writing headers",
1706           qtmux->fragment_duration);
1707       /* also used as snapshot marker to indicate fragmented file */
1708       qtmux->fragment_sequence = 1;
1709       /* prepare moov and/or tags */
1710       gst_qt_mux_configure_moov (qtmux, NULL);
1711       gst_qt_mux_setup_metadata (qtmux);
1712       ret = gst_qt_mux_send_moov (qtmux, &qtmux->header_size, FALSE);
1713       if (ret != GST_FLOW_OK)
1714         return ret;
1715       /* extra atoms */
1716       ret =
1717           gst_qt_mux_send_extra_atoms (qtmux, TRUE, &qtmux->header_size, FALSE);
1718       if (ret != GST_FLOW_OK)
1719         return ret;
1720       /* prepare index */
1721       if (!qtmux->streamable)
1722         qtmux->mfra = atom_mfra_new (qtmux->context);
1723     } else {
1724       /* extended to ensure some spare space */
1725       ret = gst_qt_mux_send_mdat_header (qtmux, &qtmux->header_size, 0, TRUE);
1726     }
1727   }
1728
1729 exit:
1730   return ret;
1731
1732   /* ERRORS */
1733 open_failed:
1734   {
1735     GST_ELEMENT_ERROR (qtmux, RESOURCE, OPEN_READ_WRITE,
1736         (("Could not open temporary file \"%s\""), qtmux->fast_start_file_path),
1737         GST_ERROR_SYSTEM);
1738     GST_OBJECT_UNLOCK (qtmux);
1739     return GST_FLOW_ERROR;
1740   }
1741 }
1742
1743 static GstFlowReturn
1744 gst_qt_mux_stop_file (GstQTMux * qtmux)
1745 {
1746   gboolean ret = GST_FLOW_OK;
1747   guint64 offset = 0, size = 0;
1748   GSList *walk;
1749   gboolean large_file;
1750   guint32 timescale;
1751   GstClockTime first_ts = GST_CLOCK_TIME_NONE;
1752
1753   GST_DEBUG_OBJECT (qtmux, "Updating remaining values and sending last data");
1754
1755   /* pushing last buffers for each pad */
1756   for (walk = qtmux->collect->data; walk; walk = g_slist_next (walk)) {
1757     GstCollectData *cdata = (GstCollectData *) walk->data;
1758     GstQTPad *qtpad = (GstQTPad *) cdata;
1759
1760     /* send last buffer */
1761     GST_DEBUG_OBJECT (qtmux, "Sending the last buffer for pad %s",
1762         GST_PAD_NAME (qtpad->collect.pad));
1763     ret = gst_qt_mux_add_buffer (qtmux, qtpad, NULL);
1764     if (ret != GST_FLOW_OK)
1765       GST_WARNING_OBJECT (qtmux, "Failed to send last buffer for %s, "
1766           "flow return: %s", GST_PAD_NAME (qtpad->collect.pad),
1767           gst_flow_get_name (ret));
1768
1769     if (!GST_CLOCK_TIME_IS_VALID (qtpad->first_ts)) {
1770       GST_DEBUG_OBJECT (qtmux, "Pad %s has no buffers",
1771           GST_PAD_NAME (qtpad->collect.pad));
1772       continue;
1773     }
1774
1775     /* determine max stream duration */
1776     if (!GST_CLOCK_TIME_IS_VALID (first_ts) ||
1777         (GST_CLOCK_TIME_IS_VALID (qtpad->first_ts) &&
1778             qtpad->last_dts > first_ts)) {
1779       first_ts = qtpad->last_dts;
1780     }
1781   }
1782
1783   if (qtmux->fragment_sequence) {
1784     GstSegment segment;
1785
1786     if (qtmux->mfra) {
1787       guint8 *data = NULL;
1788       GstBuffer *buf;
1789
1790       size = offset = 0;
1791       GST_DEBUG_OBJECT (qtmux, "adding mfra");
1792       if (!atom_mfra_copy_data (qtmux->mfra, &data, &size, &offset))
1793         goto serialize_error;
1794       buf = _gst_buffer_new_take_data (data, offset);
1795       ret = gst_qt_mux_send_buffer (qtmux, buf, NULL, FALSE);
1796       if (ret != GST_FLOW_OK)
1797         return ret;
1798     } else {
1799       /* must have been streamable; no need to write duration */
1800       GST_DEBUG_OBJECT (qtmux, "streamable file; nothing to stop");
1801       return GST_FLOW_OK;
1802     }
1803
1804     timescale = qtmux->timescale;
1805     /* only mvex duration is updated,
1806      * mvhd should be consistent with empty moov
1807      * (but TODO maybe some clients do not handle that well ?) */
1808     qtmux->moov->mvex.mehd.fragment_duration =
1809         gst_util_uint64_scale (first_ts, timescale, GST_SECOND);
1810     GST_DEBUG_OBJECT (qtmux, "rewriting moov with mvex duration %"
1811         GST_TIME_FORMAT, GST_TIME_ARGS (first_ts));
1812     /* seek and rewrite the header */
1813     gst_segment_init (&segment, GST_FORMAT_BYTES);
1814     segment.start = qtmux->mdat_pos;
1815     gst_pad_push_event (qtmux->srcpad, gst_event_new_segment (&segment));
1816     /* no need to seek back */
1817     return gst_qt_mux_send_moov (qtmux, NULL, FALSE);
1818   }
1819
1820   gst_qt_mux_configure_moov (qtmux, &timescale);
1821
1822   /* check for late streams */
1823   first_ts = GST_CLOCK_TIME_NONE;
1824   for (walk = qtmux->collect->data; walk; walk = g_slist_next (walk)) {
1825     GstCollectData *cdata = (GstCollectData *) walk->data;
1826     GstQTPad *qtpad = (GstQTPad *) cdata;
1827
1828     if (!GST_CLOCK_TIME_IS_VALID (first_ts) ||
1829         (GST_CLOCK_TIME_IS_VALID (qtpad->first_ts) &&
1830             qtpad->first_ts < first_ts)) {
1831       first_ts = qtpad->first_ts;
1832     }
1833   }
1834   GST_DEBUG_OBJECT (qtmux, "Media first ts selected: %" GST_TIME_FORMAT,
1835       GST_TIME_ARGS (first_ts));
1836   /* add EDTSs for late streams */
1837   for (walk = qtmux->collect->data; walk; walk = g_slist_next (walk)) {
1838     GstCollectData *cdata = (GstCollectData *) walk->data;
1839     GstQTPad *qtpad = (GstQTPad *) cdata;
1840     guint32 lateness;
1841     guint32 duration;
1842
1843     if (GST_CLOCK_TIME_IS_VALID (qtpad->first_ts) &&
1844         qtpad->first_ts > first_ts + MAX_TOLERATED_LATENESS) {
1845       GST_DEBUG_OBJECT (qtmux, "Pad %s is a late stream by %" GST_TIME_FORMAT,
1846           GST_PAD_NAME (qtpad->collect.pad),
1847           GST_TIME_ARGS (qtpad->first_ts - first_ts));
1848       lateness = gst_util_uint64_scale_round (qtpad->first_ts - first_ts,
1849           timescale, GST_SECOND);
1850       duration = qtpad->trak->tkhd.duration;
1851       atom_trak_add_elst_entry (qtpad->trak, lateness, (guint32) - 1,
1852           (guint32) (1 * 65536.0));
1853       atom_trak_add_elst_entry (qtpad->trak, duration, 0,
1854           (guint32) (1 * 65536.0));
1855
1856       /* need to add the empty time to the trak duration */
1857       qtpad->trak->tkhd.duration += lateness;
1858     }
1859   }
1860
1861   /* tags into file metadata */
1862   gst_qt_mux_setup_metadata (qtmux);
1863
1864   large_file = (qtmux->mdat_size > MDAT_LARGE_FILE_LIMIT);
1865   /* if faststart, update the offset of the atoms in the movie with the offset
1866    * that the movie headers before mdat will cause.
1867    * Also, send the ftyp */
1868   if (qtmux->fast_start_file) {
1869     GstFlowReturn flow_ret;
1870     offset = size = 0;
1871
1872     flow_ret = gst_qt_mux_prepare_and_send_ftyp (qtmux);
1873     if (flow_ret != GST_FLOW_OK) {
1874       goto ftyp_error;
1875     }
1876     /* copy into NULL to obtain size */
1877     if (!atom_moov_copy_data (qtmux->moov, NULL, &size, &offset))
1878       goto serialize_error;
1879     GST_DEBUG_OBJECT (qtmux, "calculated moov atom size %" G_GUINT64_FORMAT,
1880         offset);
1881     offset += qtmux->header_size + (large_file ? 16 : 8);
1882
1883     /* sum up with the extra atoms size */
1884     ret = gst_qt_mux_send_extra_atoms (qtmux, FALSE, &offset, FALSE);
1885     if (ret != GST_FLOW_OK)
1886       return ret;
1887   } else {
1888     offset = qtmux->header_size;
1889   }
1890   atom_moov_chunks_add_offset (qtmux->moov, offset);
1891
1892   /* moov */
1893   /* note: as of this point, we no longer care about tracking written data size,
1894    * since there is no more use for it anyway */
1895   ret = gst_qt_mux_send_moov (qtmux, NULL, FALSE);
1896   if (ret != GST_FLOW_OK)
1897     return ret;
1898
1899   /* extra atoms */
1900   ret = gst_qt_mux_send_extra_atoms (qtmux, TRUE, NULL, FALSE);
1901   if (ret != GST_FLOW_OK)
1902     return ret;
1903
1904   /* if needed, send mdat atom and move buffered data into it */
1905   if (qtmux->fast_start_file) {
1906     /* mdat_size = accumulated (buffered data) */
1907     ret = gst_qt_mux_send_mdat_header (qtmux, NULL, qtmux->mdat_size,
1908         large_file);
1909     if (ret != GST_FLOW_OK)
1910       return ret;
1911     ret = gst_qt_mux_send_buffered_data (qtmux, NULL);
1912     if (ret != GST_FLOW_OK)
1913       return ret;
1914   } else {
1915     /* mdat needs update iff not using faststart */
1916     GST_DEBUG_OBJECT (qtmux, "updating mdat size");
1917     ret = gst_qt_mux_update_mdat_size (qtmux, qtmux->mdat_pos,
1918         qtmux->mdat_size, NULL);
1919     /* note; no seeking back to the end of file is done,
1920      * since we no longer write anything anyway */
1921   }
1922
1923   return ret;
1924
1925   /* ERRORS */
1926 serialize_error:
1927   {
1928     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL),
1929         ("Failed to serialize moov"));
1930     return GST_FLOW_ERROR;
1931   }
1932 ftyp_error:
1933   {
1934     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL), ("Failed to send ftyp"));
1935     return GST_FLOW_ERROR;
1936   }
1937 }
1938
1939 static GstFlowReturn
1940 gst_qt_mux_pad_fragment_add_buffer (GstQTMux * qtmux, GstQTPad * pad,
1941     GstBuffer * buf, gboolean force, guint32 nsamples, gint64 dts,
1942     guint32 delta, guint32 size, gboolean sync, gint64 pts_offset)
1943 {
1944   GstFlowReturn ret = GST_FLOW_OK;
1945
1946   /* setup if needed */
1947   if (G_UNLIKELY (!pad->traf || force))
1948     goto init;
1949
1950 flush:
1951   /* flush pad fragment if threshold reached,
1952    * or at new keyframe if we should be minding those in the first place */
1953   if (G_UNLIKELY (force || (sync && pad->sync) ||
1954           pad->fragment_duration < (gint64) delta)) {
1955     AtomMOOF *moof;
1956     guint64 size = 0, offset = 0;
1957     guint8 *data = NULL;
1958     GstBuffer *buffer;
1959     guint i, total_size;
1960
1961     /* now we know where moof ends up, update offset in tfra */
1962     if (pad->tfra)
1963       atom_tfra_update_offset (pad->tfra, qtmux->header_size);
1964
1965     moof = atom_moof_new (qtmux->context, qtmux->fragment_sequence);
1966     /* takes ownership */
1967     atom_moof_add_traf (moof, pad->traf);
1968     pad->traf = NULL;
1969     atom_moof_copy_data (moof, &data, &size, &offset);
1970     buffer = _gst_buffer_new_take_data (data, offset);
1971     GST_LOG_OBJECT (qtmux, "writing moof size %d",
1972         gst_buffer_get_size (buffer));
1973     ret = gst_qt_mux_send_buffer (qtmux, buffer, &qtmux->header_size, FALSE);
1974
1975     /* and actual data */
1976     total_size = 0;
1977     for (i = 0; i < atom_array_get_len (&pad->fragment_buffers); i++) {
1978       total_size +=
1979           gst_buffer_get_size (atom_array_index (&pad->fragment_buffers, i));
1980     }
1981
1982     GST_LOG_OBJECT (qtmux, "writing %d buffers, total_size %d",
1983         atom_array_get_len (&pad->fragment_buffers), total_size);
1984     if (ret == GST_FLOW_OK)
1985       ret = gst_qt_mux_send_mdat_header (qtmux, &qtmux->header_size, total_size,
1986           FALSE);
1987     for (i = 0; i < atom_array_get_len (&pad->fragment_buffers); i++) {
1988       if (G_LIKELY (ret == GST_FLOW_OK))
1989         ret = gst_qt_mux_send_buffer (qtmux,
1990             atom_array_index (&pad->fragment_buffers, i), &qtmux->header_size,
1991             FALSE);
1992       else
1993         gst_buffer_unref (atom_array_index (&pad->fragment_buffers, i));
1994     }
1995
1996     atom_array_clear (&pad->fragment_buffers);
1997     atom_moof_free (moof);
1998     qtmux->fragment_sequence++;
1999     force = FALSE;
2000   }
2001
2002 init:
2003   if (G_UNLIKELY (!pad->traf)) {
2004     GST_LOG_OBJECT (qtmux, "setting up new fragment");
2005     pad->traf = atom_traf_new (qtmux->context, atom_trak_get_id (pad->trak));
2006     atom_array_init (&pad->fragment_buffers, 512);
2007     pad->fragment_duration = gst_util_uint64_scale (qtmux->fragment_duration,
2008         atom_trak_get_timescale (pad->trak), 1000);
2009
2010     if (G_UNLIKELY (qtmux->mfra && !pad->tfra)) {
2011       pad->tfra = atom_tfra_new (qtmux->context, atom_trak_get_id (pad->trak));
2012       atom_mfra_add_tfra (qtmux->mfra, pad->tfra);
2013     }
2014   }
2015
2016   /* add buffer and metadata */
2017   atom_traf_add_samples (pad->traf, delta, size, sync, pts_offset,
2018       pad->sync && sync);
2019   atom_array_append (&pad->fragment_buffers, buf, 256);
2020   pad->fragment_duration -= delta;
2021
2022   if (pad->tfra) {
2023     guint32 sn = atom_traf_get_sample_num (pad->traf);
2024
2025     if ((sync && pad->sync) || (sn == 1 && !pad->sync))
2026       atom_tfra_add_entry (pad->tfra, dts, sn);
2027   }
2028
2029   if (G_UNLIKELY (force))
2030     goto flush;
2031
2032   return ret;
2033 }
2034
2035 /* sigh, tiny list helpers to re-order stuff */
2036 static void
2037 gst_qt_mux_push_ts (GstQTMux * qtmux, GstQTPad * pad, GstClockTime ts)
2038 {
2039   gint i;
2040
2041   for (i = 0; (i < QTMUX_NO_OF_TS) && (i < pad->ts_n_entries); i++) {
2042     if (ts > pad->ts_entries[i])
2043       break;
2044   }
2045   memmove (&pad->ts_entries[i + 1], &pad->ts_entries[i],
2046       sizeof (GstClockTime) * (pad->ts_n_entries - i));
2047   pad->ts_entries[i] = ts;
2048   pad->ts_n_entries++;
2049 }
2050
2051 /* takes ownership of @buf */
2052 static GstBuffer *
2053 gst_qt_mux_get_asc_buffer_ts (GstQTMux * qtmux, GstQTPad * pad, GstBuffer * buf)
2054 {
2055   const gint wrap = G_N_ELEMENTS (pad->buf_entries);
2056   GstClockTime ts;
2057
2058   /* store buffer and ts, latter ordered */
2059   if (buf) {
2060     pad->buf_entries[pad->buf_tail++] = buf;
2061     pad->buf_tail %= wrap;
2062     gst_qt_mux_push_ts (qtmux, pad, GST_BUFFER_TIMESTAMP (buf));
2063   }
2064
2065   if (pad->ts_n_entries && (!buf || pad->ts_n_entries >= QTMUX_NO_OF_TS)) {
2066     ts = pad->ts_entries[--pad->ts_n_entries];
2067     buf = pad->buf_entries[pad->buf_head];
2068     pad->buf_entries[pad->buf_head++] = NULL;
2069     pad->buf_head %= wrap;
2070     buf = gst_buffer_make_writable (buf);
2071     /* track original ts (= pts ?) for later */
2072     GST_BUFFER_OFFSET_END (buf) = GST_BUFFER_TIMESTAMP (buf);
2073     GST_BUFFER_TIMESTAMP (buf) = ts;
2074     GST_DEBUG_OBJECT (qtmux, "next buffer uses reordered ts %" GST_TIME_FORMAT,
2075         GST_TIME_ARGS (ts));
2076   } else {
2077     buf = NULL;
2078   }
2079
2080   return buf;
2081 }
2082
2083 /*
2084  * Here we push the buffer and update the tables in the track atoms
2085  */
2086 static GstFlowReturn
2087 gst_qt_mux_add_buffer (GstQTMux * qtmux, GstQTPad * pad, GstBuffer * buf)
2088 {
2089   GstBuffer *last_buf = NULL;
2090   GstClockTime duration;
2091   guint nsamples, sample_size;
2092   guint64 chunk_offset;
2093   gint64 last_dts, scaled_duration;
2094   gint64 pts_offset = 0;
2095   gboolean sync = FALSE, do_pts = FALSE;
2096   gboolean drain = (buf == NULL);
2097   GstFlowReturn ret = GST_FLOW_OK;
2098
2099   if (!pad->fourcc)
2100     goto not_negotiated;
2101
2102   /* if this pad has a prepare function, call it */
2103   if (pad->prepare_buf_func != NULL) {
2104     buf = pad->prepare_buf_func (pad, buf, qtmux);
2105   }
2106
2107 again:
2108   last_buf = pad->last_buf;
2109   if (G_UNLIKELY (qtmux->dts_method == DTS_METHOD_REORDER)) {
2110     buf = gst_qt_mux_get_asc_buffer_ts (qtmux, pad, buf);
2111     if (!buf && !last_buf) {
2112       GST_DEBUG_OBJECT (qtmux, "no reordered buffer");
2113       return GST_FLOW_OK;
2114     }
2115   }
2116
2117   if (last_buf == NULL) {
2118 #ifndef GST_DISABLE_GST_DEBUG
2119     if (buf == NULL) {
2120       GST_DEBUG_OBJECT (qtmux, "Pad %s has no previous buffer stored and "
2121           "received NULL buffer, doing nothing",
2122           GST_PAD_NAME (pad->collect.pad));
2123     } else {
2124       GST_LOG_OBJECT (qtmux,
2125           "Pad %s has no previous buffer stored, storing now",
2126           GST_PAD_NAME (pad->collect.pad));
2127     }
2128 #endif
2129     pad->last_buf = buf;
2130     goto exit;
2131   } else
2132     gst_buffer_ref (last_buf);
2133
2134   /* nasty heuristic mess to guestimate dealing with DTS/PTS,
2135    * while also trying to stay close to input ts to preserve sync,
2136    * so in DTS_METHOD_DD:
2137    * - prefer using input ts where possible
2138    * - if those detected out-of-order (*), mark as out-of-order
2139    * - if in out-of-order, then
2140    *   - if duration available, use that as delta
2141    *     Also mind to preserve sync between streams, and adding
2142    *     durations might drift, so try to resync when we expect
2143    *     input ts == (sum of durations), which is at some keyframe input frame.
2144    *   - if no duration available, we are actually in serious trouble and need
2145    *     to hack around that, so we fail.
2146    * To remedy failure, alternatively, in DTS_METHOD_REORDER:
2147    * - collect some buffers and re-order timestamp,
2148    *   then process the oldest buffer with smallest timestamps.
2149    *   This should typically compensate for some codec's handywork with ts.
2150    * ... but in case this makes ts end up where not expected, in DTS_METHOD_ASC:
2151    * - keep each ts with its buffer and still keep a list of most recent X ts,
2152    *   use the (ascending) minimum of those as DTS (and the difference as ts delta),
2153    *   and use this DTS as a basis to obtain a (positive) CTS offset.
2154    *   This should yield exact PTS == buffer ts, but it seems not all players
2155    *   out there are aware of ctts pts ...
2156    *
2157    * 0.11 Phew, can we (pretty) please please sort out DTS/PTS on buffers ...
2158    */
2159   if (G_LIKELY (buf) && !pad->is_out_of_order) {
2160     if (G_LIKELY (GST_BUFFER_TIMESTAMP_IS_VALID (last_buf) &&
2161             GST_BUFFER_TIMESTAMP_IS_VALID (buf))) {
2162       if ((GST_BUFFER_TIMESTAMP (buf) < GST_BUFFER_TIMESTAMP (last_buf))) {
2163         GST_DEBUG_OBJECT (qtmux, "detected out-of-order input");
2164         pad->is_out_of_order = TRUE;
2165       }
2166     } else {
2167       /* this is pretty bad */
2168       GST_WARNING_OBJECT (qtmux, "missing input timestamp");
2169       /* fall back to durations */
2170       pad->is_out_of_order = TRUE;
2171     }
2172   }
2173
2174   /* would have to be some unusual input, but not impossible */
2175   if (G_UNLIKELY (qtmux->dts_method == DTS_METHOD_REORDER &&
2176           pad->is_out_of_order)) {
2177     goto no_order;
2178   }
2179
2180   /* fall back to duration if last buffer or
2181    * out-of-order (determined previously), otherwise use input ts */
2182   if (buf == NULL ||
2183       (pad->is_out_of_order && qtmux->dts_method == DTS_METHOD_DD)) {
2184     if (!GST_BUFFER_DURATION_IS_VALID (last_buf)) {
2185       /* be forgiving for some possibly last upstream flushed buffer */
2186       if (buf)
2187         goto no_time;
2188       GST_WARNING_OBJECT (qtmux, "no duration for last buffer");
2189       /* iso spec recommends some small value, try 0 */
2190       duration = 0;
2191     } else {
2192       duration = GST_BUFFER_DURATION (last_buf);
2193       /* avoid drift in sum timestamps,
2194        * so use input timestamp for suitable keyframe */
2195       if (buf && !GST_BUFFER_FLAG_IS_SET (buf, GST_BUFFER_FLAG_DELTA_UNIT) &&
2196           GST_BUFFER_TIMESTAMP (buf) >= pad->last_dts) {
2197         GST_DEBUG_OBJECT (qtmux, "resyncing out-of-order input to ts; "
2198             "replacing %" GST_TIME_FORMAT " by %" GST_TIME_FORMAT,
2199             GST_TIME_ARGS (pad->last_dts + duration),
2200             GST_TIME_ARGS (GST_BUFFER_TIMESTAMP (buf)));
2201         duration = GST_BUFFER_TIMESTAMP (buf) - pad->last_dts;
2202       }
2203     }
2204   } else if (qtmux->dts_method != DTS_METHOD_ASC) {
2205     duration = GST_BUFFER_TIMESTAMP (buf) - GST_BUFFER_TIMESTAMP (last_buf);
2206   } else {
2207     GstClockTime ts;
2208
2209     g_assert (qtmux->dts_method == DTS_METHOD_ASC);
2210     if (!qtmux->guess_pts)
2211       goto need_pts;
2212
2213     /* add timestamp to queue; keeps in descending order */
2214     gst_qt_mux_push_ts (qtmux, pad, GST_BUFFER_TIMESTAMP (last_buf));
2215     /* chuck out smallest/last one if we have enough */
2216     if (G_LIKELY (pad->ts_n_entries > QTMUX_NO_OF_TS))
2217       pad->ts_n_entries--;
2218     /* peek the now smallest timestamp */
2219     ts = pad->ts_entries[pad->ts_n_entries - 1];
2220     /* these tails are expected to be (strictly) ascending with
2221      * large enough history */
2222     GST_DEBUG_OBJECT (qtmux, "ASC method; base timestamp %" GST_TIME_FORMAT,
2223         GST_TIME_ARGS (ts));
2224     if (ts >= pad->last_dts) {
2225       duration = ts - pad->last_dts;
2226     } else {
2227       /* fallback to previous value, negative ct offset might handle */
2228       GST_WARNING_OBJECT (qtmux, "unexpected decrease in timestamp");
2229       duration = 0;
2230     }
2231     /* arrange for small non-zero duration/delta << expected frame time */
2232     ts = gst_util_uint64_scale (10, GST_SECOND,
2233         atom_trak_get_timescale (pad->trak));
2234     duration = MAX (duration, ts);
2235   }
2236
2237   gst_buffer_replace (&pad->last_buf, buf);
2238
2239   last_dts = gst_util_uint64_scale_round (pad->last_dts,
2240       atom_trak_get_timescale (pad->trak), GST_SECOND);
2241
2242   /* fragments only deal with 1 buffer == 1 chunk (== 1 sample) */
2243   if (pad->sample_size && !qtmux->fragment_sequence) {
2244     /* Constant size packets: usually raw audio (with many samples per
2245        buffer (= chunk)), but can also be fixed-packet-size codecs like ADPCM
2246      */
2247     sample_size = pad->sample_size;
2248     if (gst_buffer_get_size (last_buf) % sample_size != 0)
2249       goto fragmented_sample;
2250     /* note: qt raw audio storage warps it implicitly into a timewise
2251      * perfect stream, discarding buffer times */
2252     if (GST_BUFFER_DURATION (last_buf) != GST_CLOCK_TIME_NONE) {
2253       nsamples = gst_util_uint64_scale_round (GST_BUFFER_DURATION (last_buf),
2254           atom_trak_get_timescale (pad->trak), GST_SECOND);
2255     } else {
2256       nsamples = gst_buffer_get_size (last_buf) / sample_size;
2257     }
2258     duration = GST_BUFFER_DURATION (last_buf) / nsamples;
2259
2260     /* timescale = samplerate */
2261     scaled_duration = 1;
2262     pad->last_dts += duration * nsamples;
2263   } else {
2264     nsamples = 1;
2265     sample_size = gst_buffer_get_size (last_buf);
2266     if (pad->have_dts) {
2267       gint64 scaled_dts;
2268       pad->last_dts = GST_BUFFER_OFFSET_END (last_buf);
2269       if ((gint64) (pad->last_dts) < 0) {
2270         scaled_dts = -gst_util_uint64_scale_round (-pad->last_dts,
2271             atom_trak_get_timescale (pad->trak), GST_SECOND);
2272       } else {
2273         scaled_dts = gst_util_uint64_scale_round (pad->last_dts,
2274             atom_trak_get_timescale (pad->trak), GST_SECOND);
2275       }
2276       scaled_duration = scaled_dts - last_dts;
2277       last_dts = scaled_dts;
2278     } else {
2279       /* first convert intended timestamp (in GstClockTime resolution) to
2280        * trak timescale, then derive delta;
2281        * this ensures sums of (scale)delta add up to converted timestamp,
2282        * which only deviates at most 1/scale from timestamp itself */
2283       scaled_duration = gst_util_uint64_scale_round (pad->last_dts + duration,
2284           atom_trak_get_timescale (pad->trak), GST_SECOND) - last_dts;
2285       pad->last_dts += duration;
2286     }
2287   }
2288   chunk_offset = qtmux->mdat_size;
2289
2290   GST_LOG_OBJECT (qtmux,
2291       "Pad (%s) dts updated to %" GST_TIME_FORMAT,
2292       GST_PAD_NAME (pad->collect.pad), GST_TIME_ARGS (pad->last_dts));
2293   GST_LOG_OBJECT (qtmux,
2294       "Adding %d samples to track, duration: %" G_GUINT64_FORMAT
2295       " size: %" G_GUINT32_FORMAT " chunk offset: %" G_GUINT64_FORMAT,
2296       nsamples, scaled_duration, sample_size, chunk_offset);
2297
2298   /* might be a sync sample */
2299   if (pad->sync &&
2300       !GST_BUFFER_FLAG_IS_SET (last_buf, GST_BUFFER_FLAG_DELTA_UNIT)) {
2301     GST_LOG_OBJECT (qtmux, "Adding new sync sample entry for track of pad %s",
2302         GST_PAD_NAME (pad->collect.pad));
2303     sync = TRUE;
2304   }
2305
2306   /* optionally calculate ctts entry values
2307    * (if composition-time expected different from decoding-time) */
2308   /* really not recommended:
2309    * - decoder typically takes care of dts/pts issues
2310    * - in case of out-of-order, dts may only be determined as above
2311    *   (e.g. sum of duration), which may be totally different from
2312    *   buffer timestamps in case of multiple segment, non-perfect streams
2313    *  (and just perhaps maybe with some luck segment_to_running_time
2314    *   or segment_to_media_time might get near to it) */
2315   if ((pad->have_dts || qtmux->guess_pts)) {
2316     guint64 pts;
2317
2318     pts = qtmux->dts_method == DTS_METHOD_REORDER ?
2319         GST_BUFFER_OFFSET_END (last_buf) : GST_BUFFER_TIMESTAMP (last_buf);
2320     pts = gst_util_uint64_scale_round (pts,
2321         atom_trak_get_timescale (pad->trak), GST_SECOND);
2322     pts_offset = (gint64) (pts - last_dts);
2323     do_pts = TRUE;
2324     GST_LOG_OBJECT (qtmux, "Adding ctts entry for pad %s: %" G_GINT64_FORMAT,
2325         GST_PAD_NAME (pad->collect.pad), pts_offset);
2326   }
2327
2328   /*
2329    * Each buffer starts a new chunk, so we can assume the buffer
2330    * duration is the chunk duration
2331    */
2332   if (GST_CLOCK_TIME_IS_VALID (duration) && (duration > qtmux->longest_chunk ||
2333           !GST_CLOCK_TIME_IS_VALID (qtmux->longest_chunk))) {
2334     GST_DEBUG_OBJECT (qtmux, "New longest chunk found: %" GST_TIME_FORMAT
2335         ", pad %s", GST_TIME_ARGS (duration), GST_PAD_NAME (pad->collect.pad));
2336     qtmux->longest_chunk = duration;
2337   }
2338
2339   /* if this is the first buffer, store the timestamp */
2340   if (G_UNLIKELY (pad->first_ts == GST_CLOCK_TIME_NONE) && last_buf) {
2341     if (GST_CLOCK_TIME_IS_VALID (GST_BUFFER_TIMESTAMP (last_buf))) {
2342       pad->first_ts = GST_BUFFER_TIMESTAMP (last_buf);
2343     } else {
2344       GST_DEBUG_OBJECT (qtmux, "First buffer for pad %s has no timestamp, "
2345           "using 0 as first timestamp", GST_PAD_NAME (pad->collect.pad));
2346       pad->first_ts = 0;
2347     }
2348     GST_DEBUG_OBJECT (qtmux, "Stored first timestamp for pad %s %"
2349         GST_TIME_FORMAT, GST_PAD_NAME (pad->collect.pad),
2350         GST_TIME_ARGS (pad->first_ts));
2351   }
2352
2353   /* now we go and register this buffer/sample all over */
2354   /* note that a new chunk is started each time (not fancy but works) */
2355   if (qtmux->moov_recov_file) {
2356     if (!atoms_recov_write_trak_samples (qtmux->moov_recov_file, pad->trak,
2357             nsamples, (gint32) scaled_duration, sample_size, chunk_offset, sync,
2358             do_pts, pts_offset)) {
2359       GST_WARNING_OBJECT (qtmux, "Failed to write sample information to "
2360           "recovery file, disabling recovery");
2361       fclose (qtmux->moov_recov_file);
2362       qtmux->moov_recov_file = NULL;
2363     }
2364   }
2365
2366   if (buf)
2367     gst_buffer_unref (buf);
2368
2369   if (qtmux->fragment_sequence) {
2370     /* ensure that always sync samples are marked as such */
2371     ret = gst_qt_mux_pad_fragment_add_buffer (qtmux, pad, last_buf,
2372         buf == NULL, nsamples, last_dts, (gint32) scaled_duration, sample_size,
2373         !pad->sync || sync, pts_offset);
2374   } else {
2375     atom_trak_add_samples (pad->trak, nsamples, (gint32) scaled_duration,
2376         sample_size, chunk_offset, sync, pts_offset);
2377     ret = gst_qt_mux_send_buffer (qtmux, last_buf, &qtmux->mdat_size, TRUE);
2378   }
2379
2380 exit:
2381   if (G_UNLIKELY (drain && qtmux->dts_method == DTS_METHOD_REORDER &&
2382           ret == GST_FLOW_OK)) {
2383     buf = NULL;
2384     goto again;
2385   }
2386
2387   return ret;
2388
2389   /* ERRORS */
2390 bail:
2391   {
2392     if (buf)
2393       gst_buffer_unref (buf);
2394     gst_buffer_unref (last_buf);
2395     return GST_FLOW_ERROR;
2396   }
2397 no_time:
2398   {
2399     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL),
2400         ("Received buffer without timestamp/duration. "
2401             "Using e.g. dts-method=reorder might help."));
2402     goto bail;
2403   }
2404 no_order:
2405   {
2406     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL),
2407         ("DTS method failed to re-order timestamps."));
2408     goto bail;
2409   }
2410 need_pts:
2411   {
2412     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL),
2413         ("Selected DTS method also needs PTS enabled."));
2414     goto bail;
2415   }
2416 fragmented_sample:
2417   {
2418     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL),
2419         ("Audio buffer contains fragmented sample."));
2420     goto bail;
2421   }
2422 not_negotiated:
2423   {
2424     GST_ELEMENT_ERROR (qtmux, CORE, NEGOTIATION, (NULL),
2425         ("format wasn't negotiated before buffer flow on pad %s",
2426             GST_PAD_NAME (pad->collect.pad)));
2427     if (buf)
2428       gst_buffer_unref (buf);
2429     return GST_FLOW_NOT_NEGOTIATED;
2430   }
2431 }
2432
2433 static GstFlowReturn
2434 gst_qt_mux_collected (GstCollectPads * pads, gpointer user_data)
2435 {
2436   GstFlowReturn ret = GST_FLOW_OK;
2437   GstQTMux *qtmux = GST_QT_MUX_CAST (user_data);
2438   GSList *walk;
2439   GstQTPad *best_pad = NULL;
2440   GstClockTime time, best_time = GST_CLOCK_TIME_NONE;
2441   GstBuffer *buf;
2442
2443   if (G_UNLIKELY (qtmux->state == GST_QT_MUX_STATE_STARTED)) {
2444     if ((ret = gst_qt_mux_start_file (qtmux)) != GST_FLOW_OK)
2445       return ret;
2446     else
2447       qtmux->state = GST_QT_MUX_STATE_DATA;
2448   }
2449
2450   if (G_UNLIKELY (qtmux->state == GST_QT_MUX_STATE_EOS))
2451     return GST_FLOW_UNEXPECTED;
2452
2453   /* select the best buffer */
2454   walk = qtmux->collect->data;
2455   while (walk) {
2456     GstQTPad *pad;
2457     GstCollectData *data;
2458
2459     data = (GstCollectData *) walk->data;
2460     pad = (GstQTPad *) data;
2461
2462     walk = g_slist_next (walk);
2463
2464     buf = gst_collect_pads_peek (pads, data);
2465     if (buf == NULL) {
2466       GST_LOG_OBJECT (qtmux, "Pad %s has no buffers",
2467           GST_PAD_NAME (pad->collect.pad));
2468       continue;
2469     }
2470     time = GST_BUFFER_TIMESTAMP (buf);
2471     gst_buffer_unref (buf);
2472
2473     /* invalid should pass */
2474     if (G_LIKELY (GST_CLOCK_TIME_IS_VALID (time))) {
2475       time =
2476           gst_segment_to_running_time (&data->segment, GST_FORMAT_TIME, time);
2477       if (G_UNLIKELY (!GST_CLOCK_TIME_IS_VALID (time))) {
2478         GST_DEBUG_OBJECT (qtmux, "clipping buffer on pad %s outside segment",
2479             GST_PAD_NAME (data->pad));
2480         buf = gst_collect_pads_pop (pads, data);
2481         gst_buffer_unref (buf);
2482         return GST_FLOW_OK;
2483       }
2484     }
2485
2486     if (best_pad == NULL || !GST_CLOCK_TIME_IS_VALID (time) ||
2487         (GST_CLOCK_TIME_IS_VALID (best_time) && time < best_time)) {
2488       best_pad = pad;
2489       best_time = time;
2490     }
2491   }
2492
2493   if (best_pad != NULL) {
2494     GST_LOG_OBJECT (qtmux, "selected pad %s with time %" GST_TIME_FORMAT,
2495         GST_PAD_NAME (best_pad->collect.pad), GST_TIME_ARGS (best_time));
2496     buf = gst_collect_pads_pop (pads, &best_pad->collect);
2497     buf = gst_buffer_make_writable (buf);
2498     GST_BUFFER_TIMESTAMP (buf) = best_time;
2499     ret = gst_qt_mux_add_buffer (qtmux, best_pad, buf);
2500   } else {
2501     ret = gst_qt_mux_stop_file (qtmux);
2502     if (ret == GST_FLOW_OK) {
2503       GST_DEBUG_OBJECT (qtmux, "Pushing eos");
2504       gst_pad_push_event (qtmux->srcpad, gst_event_new_eos ());
2505       ret = GST_FLOW_UNEXPECTED;
2506     } else {
2507       GST_WARNING_OBJECT (qtmux, "Failed to stop file: %s",
2508           gst_flow_get_name (ret));
2509     }
2510     qtmux->state = GST_QT_MUX_STATE_EOS;
2511   }
2512
2513   return ret;
2514 }
2515
2516 static gboolean
2517 check_field (GQuark field_id, const GValue * value, gpointer user_data)
2518 {
2519   GstStructure *structure = (GstStructure *) user_data;
2520   const GValue *other = gst_structure_id_get_value (structure, field_id);
2521   if (other == NULL)
2522     return FALSE;
2523   return gst_value_compare (value, other) == GST_VALUE_EQUAL;
2524 }
2525
2526 static gboolean
2527 gst_qtmux_caps_is_subset_full (GstQTMux * qtmux, GstCaps * subset,
2528     GstCaps * superset)
2529 {
2530   GstStructure *sub_s = gst_caps_get_structure (subset, 0);
2531   GstStructure *sup_s = gst_caps_get_structure (superset, 0);
2532
2533   return gst_structure_foreach (sub_s, check_field, sup_s);
2534 }
2535
2536 static gboolean
2537 gst_qt_mux_audio_sink_set_caps (GstPad * pad, GstCaps * caps)
2538 {
2539   GstQTMux *qtmux = GST_QT_MUX_CAST (gst_pad_get_parent (pad));
2540   GstQTMuxClass *qtmux_klass = (GstQTMuxClass *) (G_OBJECT_GET_CLASS (qtmux));
2541   GstQTPad *qtpad = NULL;
2542   GstStructure *structure;
2543   const gchar *mimetype;
2544   gint rate, channels;
2545   const GValue *value = NULL;
2546   const GstBuffer *codec_data = NULL;
2547   GstQTMuxFormat format;
2548   AudioSampleEntry entry = { 0, };
2549   AtomInfo *ext_atom = NULL;
2550   gint constant_size = 0;
2551   const gchar *stream_format;
2552
2553   /* find stream data */
2554   qtpad = (GstQTPad *) gst_pad_get_element_private (pad);
2555   g_assert (qtpad);
2556
2557   qtpad->prepare_buf_func = NULL;
2558
2559   /* does not go well to renegotiate stream mid-way, unless
2560    * the old caps are a subset of the new one (this means upstream
2561    * added more info to the caps, as both should be 'fixed' caps) */
2562   if (qtpad->fourcc) {
2563     GstCaps *current_caps;
2564
2565     current_caps = gst_pad_get_current_caps (pad);
2566     g_assert (caps != NULL);
2567
2568     if (!gst_qtmux_caps_is_subset_full (qtmux, current_caps, caps)) {
2569       gst_caps_unref (current_caps);
2570       goto refuse_renegotiation;
2571     }
2572     GST_DEBUG_OBJECT (qtmux,
2573         "pad %s accepted renegotiation to %" GST_PTR_FORMAT " from %"
2574         GST_PTR_FORMAT, GST_PAD_NAME (pad), caps, current_caps);
2575     gst_caps_unref (current_caps);
2576   }
2577
2578   GST_DEBUG_OBJECT (qtmux, "%s:%s, caps=%" GST_PTR_FORMAT,
2579       GST_DEBUG_PAD_NAME (pad), caps);
2580
2581   format = qtmux_klass->format;
2582   structure = gst_caps_get_structure (caps, 0);
2583   mimetype = gst_structure_get_name (structure);
2584
2585   /* common info */
2586   if (!gst_structure_get_int (structure, "channels", &channels) ||
2587       !gst_structure_get_int (structure, "rate", &rate)) {
2588     goto refuse_caps;
2589   }
2590
2591   /* optional */
2592   value = gst_structure_get_value (structure, "codec_data");
2593   if (value != NULL)
2594     codec_data = gst_value_get_buffer (value);
2595
2596   qtpad->is_out_of_order = FALSE;
2597   qtpad->have_dts = FALSE;
2598
2599   /* set common properties */
2600   entry.sample_rate = rate;
2601   entry.channels = channels;
2602   /* default */
2603   entry.sample_size = 16;
2604   /* this is the typical compressed case */
2605   if (format == GST_QT_MUX_FORMAT_QT) {
2606     entry.version = 1;
2607     entry.compression_id = -2;
2608   }
2609
2610   /* now map onto a fourcc, and some extra properties */
2611   if (strcmp (mimetype, "audio/mpeg") == 0) {
2612     gint mpegversion = 0;
2613     gint layer = -1;
2614
2615     gst_structure_get_int (structure, "mpegversion", &mpegversion);
2616     switch (mpegversion) {
2617       case 1:
2618         gst_structure_get_int (structure, "layer", &layer);
2619         switch (layer) {
2620           case 3:
2621             /* mp3 */
2622             /* note: QuickTime player does not like mp3 either way in iso/mp4 */
2623             if (format == GST_QT_MUX_FORMAT_QT)
2624               entry.fourcc = FOURCC__mp3;
2625             else {
2626               entry.fourcc = FOURCC_mp4a;
2627               ext_atom =
2628                   build_esds_extension (qtpad->trak, ESDS_OBJECT_TYPE_MPEG1_P3,
2629                   ESDS_STREAM_TYPE_AUDIO, codec_data, qtpad->avg_bitrate,
2630                   qtpad->max_bitrate);
2631             }
2632             entry.samples_per_packet = 1152;
2633             entry.bytes_per_sample = 2;
2634             break;
2635         }
2636         break;
2637       case 4:
2638
2639         /* check stream-format */
2640         stream_format = gst_structure_get_string (structure, "stream-format");
2641         if (stream_format) {
2642           if (strcmp (stream_format, "raw") != 0) {
2643             GST_WARNING_OBJECT (qtmux, "Unsupported AAC stream-format %s, "
2644                 "please use 'raw'", stream_format);
2645             goto refuse_caps;
2646           }
2647         } else {
2648           GST_WARNING_OBJECT (qtmux, "No stream-format present in caps, "
2649               "assuming 'raw'");
2650         }
2651
2652         if (!codec_data || gst_buffer_get_size ((GstBuffer *) codec_data) < 2)
2653           GST_WARNING_OBJECT (qtmux, "no (valid) codec_data for AAC audio");
2654         else {
2655           guint8 profile;
2656
2657           gst_buffer_extract ((GstBuffer *) codec_data, 0, &profile, 1);
2658           /* warn if not Low Complexity profile */
2659           profile >>= 3;
2660           if (profile != 2)
2661             GST_WARNING_OBJECT (qtmux,
2662                 "non-LC AAC may not run well on (Apple) QuickTime/iTunes");
2663         }
2664
2665         /* AAC */
2666         entry.fourcc = FOURCC_mp4a;
2667
2668         if (format == GST_QT_MUX_FORMAT_QT)
2669           ext_atom = build_mov_aac_extension (qtpad->trak, codec_data,
2670               qtpad->avg_bitrate, qtpad->max_bitrate);
2671         else
2672           ext_atom =
2673               build_esds_extension (qtpad->trak, ESDS_OBJECT_TYPE_MPEG4_P3,
2674               ESDS_STREAM_TYPE_AUDIO, codec_data, qtpad->avg_bitrate,
2675               qtpad->max_bitrate);
2676         break;
2677       default:
2678         break;
2679     }
2680   } else if (strcmp (mimetype, "audio/AMR") == 0) {
2681     entry.fourcc = FOURCC_samr;
2682     entry.sample_size = 16;
2683     entry.samples_per_packet = 160;
2684     entry.bytes_per_sample = 2;
2685     ext_atom = build_amr_extension ();
2686   } else if (strcmp (mimetype, "audio/AMR-WB") == 0) {
2687     entry.fourcc = FOURCC_sawb;
2688     entry.sample_size = 16;
2689     entry.samples_per_packet = 320;
2690     entry.bytes_per_sample = 2;
2691     ext_atom = build_amr_extension ();
2692   } else if (strcmp (mimetype, "audio/x-raw-int") == 0) {
2693     gint width;
2694     gint depth;
2695     gint endianness;
2696     gboolean sign;
2697
2698     if (!gst_structure_get_int (structure, "width", &width) ||
2699         !gst_structure_get_int (structure, "depth", &depth) ||
2700         !gst_structure_get_boolean (structure, "signed", &sign)) {
2701       GST_DEBUG_OBJECT (qtmux, "broken caps, width/depth/signed field missing");
2702       goto refuse_caps;
2703     }
2704
2705     if (depth <= 8) {
2706       endianness = G_BYTE_ORDER;
2707     } else if (!gst_structure_get_int (structure, "endianness", &endianness)) {
2708       GST_DEBUG_OBJECT (qtmux, "broken caps, endianness field missing");
2709       goto refuse_caps;
2710     }
2711
2712     /* spec has no place for a distinction in these */
2713     if (width != depth) {
2714       GST_DEBUG_OBJECT (qtmux, "width must be same as depth!");
2715       goto refuse_caps;
2716     }
2717
2718     if (sign) {
2719       if (endianness == G_LITTLE_ENDIAN)
2720         entry.fourcc = FOURCC_sowt;
2721       else if (endianness == G_BIG_ENDIAN)
2722         entry.fourcc = FOURCC_twos;
2723       /* maximum backward compatibility; only new version for > 16 bit */
2724       if (depth <= 16)
2725         entry.version = 0;
2726       /* not compressed in any case */
2727       entry.compression_id = 0;
2728       /* QT spec says: max at 16 bit even if sample size were actually larger,
2729        * however, most players (e.g. QuickTime!) seem to disagree, so ... */
2730       entry.sample_size = depth;
2731       entry.bytes_per_sample = depth / 8;
2732       entry.samples_per_packet = 1;
2733       entry.bytes_per_packet = depth / 8;
2734       entry.bytes_per_frame = entry.bytes_per_packet * channels;
2735     } else {
2736       if (width == 8 && depth == 8) {
2737         /* fall back to old 8-bit version */
2738         entry.fourcc = FOURCC_raw_;
2739         entry.version = 0;
2740         entry.compression_id = 0;
2741         entry.sample_size = 8;
2742       } else {
2743         GST_DEBUG_OBJECT (qtmux, "non 8-bit PCM must be signed");
2744         goto refuse_caps;
2745       }
2746     }
2747     constant_size = (depth / 8) * channels;
2748   } else if (strcmp (mimetype, "audio/x-alaw") == 0) {
2749     entry.fourcc = FOURCC_alaw;
2750     entry.samples_per_packet = 1023;
2751     entry.bytes_per_sample = 2;
2752   } else if (strcmp (mimetype, "audio/x-mulaw") == 0) {
2753     entry.fourcc = FOURCC_ulaw;
2754     entry.samples_per_packet = 1023;
2755     entry.bytes_per_sample = 2;
2756   } else if (strcmp (mimetype, "audio/x-adpcm") == 0) {
2757     gint blocksize;
2758     if (!gst_structure_get_int (structure, "block_align", &blocksize)) {
2759       GST_DEBUG_OBJECT (qtmux, "broken caps, block_align missing");
2760       goto refuse_caps;
2761     }
2762     /* Currently only supports WAV-style IMA ADPCM, for which the codec id is
2763        0x11 */
2764     entry.fourcc = MS_WAVE_FOURCC (0x11);
2765     /* 4 byte header per channel (including one sample). 2 samples per byte
2766        remaining. Simplifying gives the following (samples per block per
2767        channel) */
2768     entry.samples_per_packet = 2 * blocksize / channels - 7;
2769     entry.bytes_per_sample = 2;
2770
2771     entry.bytes_per_frame = blocksize;
2772     entry.bytes_per_packet = blocksize / channels;
2773     /* ADPCM has constant size packets */
2774     constant_size = 1;
2775     /* TODO: I don't really understand why this helps, but it does! Constant
2776      * size and compression_id of -2 seem to be incompatible, and other files
2777      * in the wild use this too. */
2778     entry.compression_id = -1;
2779
2780     ext_atom = build_ima_adpcm_extension (channels, rate, blocksize);
2781   } else if (strcmp (mimetype, "audio/x-alac") == 0) {
2782     GstBuffer *codec_config;
2783     gint len;
2784     guint8 *data;
2785     gsize size;
2786
2787     entry.fourcc = FOURCC_alac;
2788     data = gst_buffer_map ((GstBuffer *) codec_data, &size, NULL, GST_MAP_READ);
2789     /* let's check if codec data already comes with 'alac' atom prefix */
2790     if (!codec_data || (len = size) < 28) {
2791       GST_DEBUG_OBJECT (qtmux, "broken caps, codec data missing");
2792       gst_buffer_unmap ((GstBuffer *) codec_data, data, size);
2793       goto refuse_caps;
2794     }
2795     if (GST_READ_UINT32_LE (data + 4) == FOURCC_alac) {
2796       len -= 8;
2797       codec_config =
2798           gst_buffer_copy_region ((GstBuffer *) codec_data, 0, 8, len);
2799     } else {
2800       codec_config = gst_buffer_ref ((GstBuffer *) codec_data);
2801     }
2802     gst_buffer_unmap ((GstBuffer *) codec_data, data, size);
2803     if (len != 28) {
2804       /* does not look good, but perhaps some trailing unneeded stuff */
2805       GST_WARNING_OBJECT (qtmux, "unexpected codec-data size, possibly broken");
2806     }
2807     if (format == GST_QT_MUX_FORMAT_QT)
2808       ext_atom = build_mov_alac_extension (qtpad->trak, codec_config);
2809     else
2810       ext_atom = build_codec_data_extension (FOURCC_alac, codec_config);
2811     /* set some more info */
2812     data = gst_buffer_map (codec_config, &size, NULL, GST_MAP_READ);
2813     entry.bytes_per_sample = 2;
2814     entry.samples_per_packet = GST_READ_UINT32_BE (data + 4);
2815     gst_buffer_unmap (codec_config, data, size);
2816     gst_buffer_unref (codec_config);
2817   }
2818
2819   if (!entry.fourcc)
2820     goto refuse_caps;
2821
2822   /* ok, set the pad info accordingly */
2823   qtpad->fourcc = entry.fourcc;
2824   qtpad->sample_size = constant_size;
2825   atom_trak_set_audio_type (qtpad->trak, qtmux->context, &entry,
2826       qtmux->trak_timescale ? qtmux->trak_timescale : entry.sample_rate,
2827       ext_atom, constant_size);
2828
2829   gst_object_unref (qtmux);
2830   return TRUE;
2831
2832   /* ERRORS */
2833 refuse_caps:
2834   {
2835     GST_WARNING_OBJECT (qtmux, "pad %s refused caps %" GST_PTR_FORMAT,
2836         GST_PAD_NAME (pad), caps);
2837     gst_object_unref (qtmux);
2838     return FALSE;
2839   }
2840 refuse_renegotiation:
2841   {
2842     GST_WARNING_OBJECT (qtmux,
2843         "pad %s refused renegotiation to %" GST_PTR_FORMAT,
2844         GST_PAD_NAME (pad), caps);
2845     gst_object_unref (qtmux);
2846     return FALSE;
2847   }
2848 }
2849
2850 /* scale rate up or down by factor of 10 to fit into [1000,10000] interval */
2851 static guint32
2852 adjust_rate (guint64 rate)
2853 {
2854   if (rate == 0)
2855     return 10000;
2856
2857   while (rate >= 10000)
2858     rate /= 10;
2859
2860   while (rate < 1000)
2861     rate *= 10;
2862
2863   return (guint32) rate;
2864 }
2865
2866 static gboolean
2867 gst_qt_mux_video_sink_set_caps (GstPad * pad, GstCaps * caps)
2868 {
2869   GstQTMux *qtmux = GST_QT_MUX_CAST (gst_pad_get_parent (pad));
2870   GstQTMuxClass *qtmux_klass = (GstQTMuxClass *) (G_OBJECT_GET_CLASS (qtmux));
2871   GstQTPad *qtpad = NULL;
2872   GstStructure *structure;
2873   const gchar *mimetype;
2874   gint width, height, depth = -1;
2875   gint framerate_num, framerate_den;
2876   guint32 rate;
2877   const GValue *value = NULL;
2878   const GstBuffer *codec_data = NULL;
2879   VisualSampleEntry entry = { 0, };
2880   GstQTMuxFormat format;
2881   AtomInfo *ext_atom = NULL;
2882   GList *ext_atom_list = NULL;
2883   gboolean sync = FALSE;
2884   int par_num, par_den;
2885
2886   /* find stream data */
2887   qtpad = (GstQTPad *) gst_pad_get_element_private (pad);
2888   g_assert (qtpad);
2889
2890   qtpad->prepare_buf_func = NULL;
2891
2892   /* does not go well to renegotiate stream mid-way, unless
2893    * the old caps are a subset of the new one (this means upstream
2894    * added more info to the caps, as both should be 'fixed' caps) */
2895   if (qtpad->fourcc) {
2896     GstCaps *current_caps;
2897
2898     current_caps = gst_pad_get_current_caps (pad);
2899     g_assert (caps != NULL);
2900
2901     if (!gst_qtmux_caps_is_subset_full (qtmux, current_caps, caps)) {
2902       gst_caps_unref (current_caps);
2903       goto refuse_renegotiation;
2904     }
2905     GST_DEBUG_OBJECT (qtmux,
2906         "pad %s accepted renegotiation to %" GST_PTR_FORMAT " from %"
2907         GST_PTR_FORMAT, GST_PAD_NAME (pad), caps, current_caps);
2908     gst_caps_unref (current_caps);
2909   }
2910
2911   GST_DEBUG_OBJECT (qtmux, "%s:%s, caps=%" GST_PTR_FORMAT,
2912       GST_DEBUG_PAD_NAME (pad), caps);
2913
2914   format = qtmux_klass->format;
2915   structure = gst_caps_get_structure (caps, 0);
2916   mimetype = gst_structure_get_name (structure);
2917
2918   /* required parts */
2919   if (!gst_structure_get_int (structure, "width", &width) ||
2920       !gst_structure_get_int (structure, "height", &height))
2921     goto refuse_caps;
2922
2923   /* optional */
2924   depth = -1;
2925   /* works as a default timebase */
2926   framerate_num = 10000;
2927   framerate_den = 1;
2928   gst_structure_get_fraction (structure, "framerate", &framerate_num,
2929       &framerate_den);
2930   gst_structure_get_int (structure, "depth", &depth);
2931   value = gst_structure_get_value (structure, "codec_data");
2932   if (value != NULL)
2933     codec_data = gst_value_get_buffer (value);
2934
2935   par_num = 1;
2936   par_den = 1;
2937   gst_structure_get_fraction (structure, "pixel-aspect-ratio", &par_num,
2938       &par_den);
2939
2940   qtpad->is_out_of_order = FALSE;
2941
2942   /* bring frame numerator into a range that ensures both reasonable resolution
2943    * as well as a fair duration */
2944   rate = qtmux->trak_timescale ?
2945       qtmux->trak_timescale : adjust_rate (framerate_num);
2946   GST_DEBUG_OBJECT (qtmux, "Rate of video track selected: %" G_GUINT32_FORMAT,
2947       rate);
2948
2949   /* set common properties */
2950   entry.width = width;
2951   entry.height = height;
2952   entry.par_n = par_num;
2953   entry.par_d = par_den;
2954   /* should be OK according to qt and iso spec, override if really needed */
2955   entry.color_table_id = -1;
2956   entry.frame_count = 1;
2957   entry.depth = 24;
2958
2959   /* sync entries by default */
2960   sync = TRUE;
2961
2962   /* now map onto a fourcc, and some extra properties */
2963   if (strcmp (mimetype, "video/x-raw") == 0) {
2964     const gchar *format;
2965     GstVideoFormat fmt;
2966     const GstVideoFormatInfo *vinfo;
2967
2968     format = gst_structure_get_string (structure, "format");
2969     fmt = gst_video_format_from_string (format);
2970     vinfo = gst_video_format_get_info (fmt);
2971
2972     switch (fmt) {
2973       case GST_VIDEO_FORMAT_UYVY:
2974         if (depth == -1)
2975           depth = 24;
2976         entry.fourcc = FOURCC_2vuy;
2977         entry.depth = depth;
2978         sync = FALSE;
2979         break;
2980       default:
2981         if (GST_VIDEO_FORMAT_INFO_FLAGS (vinfo) & GST_VIDEO_FORMAT_FLAG_RGB) {
2982           entry.fourcc = FOURCC_raw_;
2983           entry.depth = GST_VIDEO_FORMAT_INFO_PSTRIDE (vinfo, 0) * 8;
2984           sync = FALSE;
2985         }
2986         break;
2987     }
2988   } else if (strcmp (mimetype, "video/x-h263") == 0) {
2989     ext_atom = NULL;
2990     if (format == GST_QT_MUX_FORMAT_QT)
2991       entry.fourcc = FOURCC_h263;
2992     else
2993       entry.fourcc = FOURCC_s263;
2994     ext_atom = build_h263_extension ();
2995     if (ext_atom != NULL)
2996       ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
2997   } else if (strcmp (mimetype, "video/x-divx") == 0 ||
2998       strcmp (mimetype, "video/mpeg") == 0) {
2999     gint version = 0;
3000
3001     if (strcmp (mimetype, "video/x-divx") == 0) {
3002       gst_structure_get_int (structure, "divxversion", &version);
3003       version = version == 5 ? 1 : 0;
3004     } else {
3005       gst_structure_get_int (structure, "mpegversion", &version);
3006       version = version == 4 ? 1 : 0;
3007     }
3008     if (version) {
3009       entry.fourcc = FOURCC_mp4v;
3010       ext_atom =
3011           build_esds_extension (qtpad->trak, ESDS_OBJECT_TYPE_MPEG4_P2,
3012           ESDS_STREAM_TYPE_VISUAL, codec_data, qtpad->avg_bitrate,
3013           qtpad->max_bitrate);
3014       if (ext_atom != NULL)
3015         ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
3016       if (!codec_data)
3017         GST_WARNING_OBJECT (qtmux, "no codec_data for MPEG4 video; "
3018             "output might not play in Apple QuickTime (try global-headers?)");
3019     }
3020   } else if (strcmp (mimetype, "video/x-h264") == 0) {
3021     /* check if we accept these caps */
3022     if (gst_structure_has_field (structure, "stream-format")) {
3023       const gchar *format;
3024       const gchar *alignment;
3025
3026       format = gst_structure_get_string (structure, "stream-format");
3027       alignment = gst_structure_get_string (structure, "alignment");
3028
3029       if (strcmp (format, "avc") != 0 || alignment == NULL ||
3030           strcmp (alignment, "au") != 0) {
3031         GST_WARNING_OBJECT (qtmux, "Rejecting h264 caps, qtmux only accepts "
3032             "avc format with AU aligned samples");
3033         goto refuse_caps;
3034       }
3035     } else {
3036       GST_WARNING_OBJECT (qtmux, "no stream-format field in h264 caps");
3037       goto refuse_caps;
3038     }
3039
3040     if (!codec_data) {
3041       GST_WARNING_OBJECT (qtmux, "no codec_data in h264 caps");
3042       goto refuse_caps;
3043     }
3044
3045     entry.fourcc = FOURCC_avc1;
3046     if (qtpad->avg_bitrate == 0) {
3047       gint avg_bitrate = 0;
3048       gst_structure_get_int (structure, "bitrate", &avg_bitrate);
3049       qtpad->avg_bitrate = avg_bitrate;
3050     }
3051     ext_atom = build_btrt_extension (0, qtpad->avg_bitrate, qtpad->max_bitrate);
3052     if (ext_atom != NULL)
3053       ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
3054     ext_atom = build_codec_data_extension (FOURCC_avcC, codec_data);
3055     if (ext_atom != NULL)
3056       ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
3057   } else if (strcmp (mimetype, "video/x-svq") == 0) {
3058     gint version = 0;
3059     const GstBuffer *seqh = NULL;
3060     const GValue *seqh_value;
3061     gdouble gamma = 0;
3062
3063     gst_structure_get_int (structure, "svqversion", &version);
3064     if (version == 3) {
3065       entry.fourcc = FOURCC_SVQ3;
3066       entry.version = 3;
3067       entry.depth = 32;
3068
3069       seqh_value = gst_structure_get_value (structure, "seqh");
3070       if (seqh_value) {
3071         seqh = gst_value_get_buffer (seqh_value);
3072         ext_atom = build_SMI_atom (seqh);
3073         if (ext_atom)
3074           ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
3075       }
3076
3077       /* we need to add the gamma anyway because quicktime might crash
3078        * when it doesn't find it */
3079       if (!gst_structure_get_double (structure, "applied-gamma", &gamma)) {
3080         /* it seems that using 0 here makes it ignored */
3081         gamma = 0.0;
3082       }
3083       ext_atom = build_gama_atom (gamma);
3084       if (ext_atom)
3085         ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
3086     } else {
3087       GST_WARNING_OBJECT (qtmux, "SVQ version %d not supported. Please file "
3088           "a bug at http://bugzilla.gnome.org", version);
3089     }
3090   } else if (strcmp (mimetype, "video/x-dv") == 0) {
3091     gint version = 0;
3092     gboolean pal = TRUE;
3093
3094     sync = FALSE;
3095     if (framerate_num != 25 || framerate_den != 1)
3096       pal = FALSE;
3097     gst_structure_get_int (structure, "dvversion", &version);
3098     /* fall back to typical one */
3099     if (!version)
3100       version = 25;
3101     switch (version) {
3102       case 25:
3103         if (pal)
3104           entry.fourcc = GST_MAKE_FOURCC ('d', 'v', 'c', 'p');
3105         else
3106           entry.fourcc = GST_MAKE_FOURCC ('d', 'v', 'c', ' ');
3107         break;
3108       case 50:
3109         if (pal)
3110           entry.fourcc = GST_MAKE_FOURCC ('d', 'v', '5', 'p');
3111         else
3112           entry.fourcc = GST_MAKE_FOURCC ('d', 'v', '5', 'n');
3113         break;
3114       default:
3115         GST_WARNING_OBJECT (qtmux, "unrecognized dv version");
3116         break;
3117     }
3118   } else if (strcmp (mimetype, "image/jpeg") == 0) {
3119     entry.fourcc = FOURCC_jpeg;
3120     sync = FALSE;
3121   } else if (strcmp (mimetype, "image/x-j2c") == 0 ||
3122       strcmp (mimetype, "image/x-jpc") == 0) {
3123     const gchar *colorspace;
3124     const GValue *cmap_array;
3125     const GValue *cdef_array;
3126     gint ncomp = 0;
3127     gint fields = 1;
3128
3129     if (strcmp (mimetype, "image/x-jpc") == 0) {
3130       qtpad->prepare_buf_func = gst_qt_mux_prepare_jpc_buffer;
3131     }
3132
3133     gst_structure_get_int (structure, "num-components", &ncomp);
3134     gst_structure_get_int (structure, "fields", &fields);
3135     cmap_array = gst_structure_get_value (structure, "component-map");
3136     cdef_array = gst_structure_get_value (structure, "channel-definitions");
3137
3138     ext_atom = NULL;
3139     entry.fourcc = FOURCC_mjp2;
3140     sync = FALSE;
3141
3142     colorspace = gst_structure_get_string (structure, "colorspace");
3143     if (colorspace &&
3144         (ext_atom =
3145             build_jp2h_extension (qtpad->trak, width, height, colorspace, ncomp,
3146                 cmap_array, cdef_array)) != NULL) {
3147       ext_atom_list = g_list_append (ext_atom_list, ext_atom);
3148
3149       ext_atom = build_fiel_extension (fields);
3150       if (ext_atom)
3151         ext_atom_list = g_list_append (ext_atom_list, ext_atom);
3152
3153       ext_atom = build_jp2x_extension (codec_data);
3154       if (ext_atom)
3155         ext_atom_list = g_list_append (ext_atom_list, ext_atom);
3156     } else {
3157       GST_DEBUG_OBJECT (qtmux, "missing or invalid fourcc in jp2 caps");
3158       goto refuse_caps;
3159     }
3160   } else if (strcmp (mimetype, "video/x-vp8") == 0) {
3161     entry.fourcc = FOURCC_VP80;
3162     sync = FALSE;
3163   } else if (strcmp (mimetype, "video/x-dirac") == 0) {
3164     entry.fourcc = FOURCC_drac;
3165     qtpad->have_dts = TRUE;
3166   } else if (strcmp (mimetype, "video/x-qt-part") == 0) {
3167     guint32 fourcc;
3168
3169     gst_structure_get_uint (structure, "format", &fourcc);
3170     entry.fourcc = fourcc;
3171     qtpad->have_dts = TRUE;
3172   } else if (strcmp (mimetype, "video/x-mp4-part") == 0) {
3173     guint32 fourcc;
3174
3175     gst_structure_get_uint (structure, "format", &fourcc);
3176     entry.fourcc = fourcc;
3177     qtpad->have_dts = TRUE;
3178   }
3179
3180   if (!entry.fourcc)
3181     goto refuse_caps;
3182
3183   /* ok, set the pad info accordingly */
3184   qtpad->fourcc = entry.fourcc;
3185   qtpad->sync = sync;
3186   atom_trak_set_video_type (qtpad->trak, qtmux->context, &entry, rate,
3187       ext_atom_list);
3188
3189   gst_object_unref (qtmux);
3190   return TRUE;
3191
3192   /* ERRORS */
3193 refuse_caps:
3194   {
3195     GST_WARNING_OBJECT (qtmux, "pad %s refused caps %" GST_PTR_FORMAT,
3196         GST_PAD_NAME (pad), caps);
3197     gst_object_unref (qtmux);
3198     return FALSE;
3199   }
3200 refuse_renegotiation:
3201   {
3202     GST_WARNING_OBJECT (qtmux,
3203         "pad %s refused renegotiation to %" GST_PTR_FORMAT, GST_PAD_NAME (pad),
3204         caps);
3205     gst_object_unref (qtmux);
3206     return FALSE;
3207   }
3208 }
3209
3210 static gboolean
3211 gst_qt_mux_sink_event (GstPad * pad, GstEvent * event)
3212 {
3213   gboolean ret;
3214   GstQTMux *qtmux;
3215   guint32 avg_bitrate = 0, max_bitrate = 0;
3216
3217   qtmux = GST_QT_MUX_CAST (gst_pad_get_parent (pad));
3218
3219   switch (GST_EVENT_TYPE (event)) {
3220     case GST_EVENT_CAPS:
3221     {
3222       GstCaps *caps;
3223       GstQTPad *collect_pad;
3224
3225       gst_event_parse_caps (event, &caps);
3226
3227       /* find stream data */
3228       collect_pad = (GstQTPad *) gst_pad_get_element_private (pad);
3229       g_assert (collect_pad);
3230       g_assert (collect_pad->set_caps);
3231
3232       collect_pad->set_caps (pad, caps);
3233       break;
3234     }
3235     case GST_EVENT_TAG:{
3236       GstTagList *list;
3237       GstTagSetter *setter = GST_TAG_SETTER (qtmux);
3238       GstTagMergeMode mode;
3239
3240       GST_OBJECT_LOCK (qtmux);
3241       mode = gst_tag_setter_get_tag_merge_mode (setter);
3242
3243       GST_DEBUG_OBJECT (qtmux, "received tag event");
3244       gst_event_parse_tag (event, &list);
3245
3246       gst_tag_setter_merge_tags (setter, list, mode);
3247       GST_OBJECT_UNLOCK (qtmux);
3248
3249       if (gst_tag_list_get_uint (list, GST_TAG_BITRATE, &avg_bitrate) |
3250           gst_tag_list_get_uint (list, GST_TAG_MAXIMUM_BITRATE, &max_bitrate)) {
3251         GstQTPad *qtpad = gst_pad_get_element_private (pad);
3252         g_assert (qtpad);
3253
3254         if (avg_bitrate > 0 && avg_bitrate < G_MAXUINT32)
3255           qtpad->avg_bitrate = avg_bitrate;
3256         if (max_bitrate > 0 && max_bitrate < G_MAXUINT32)
3257           qtpad->max_bitrate = max_bitrate;
3258       }
3259
3260       break;
3261     }
3262     default:
3263       break;
3264   }
3265
3266   ret = qtmux->collect_event (pad, event);
3267   gst_object_unref (qtmux);
3268
3269   return ret;
3270 }
3271
3272 static void
3273 gst_qt_mux_release_pad (GstElement * element, GstPad * pad)
3274 {
3275   GstQTMux *mux = GST_QT_MUX_CAST (element);
3276   GSList *walk;
3277
3278   GST_DEBUG_OBJECT (element, "Releasing %s:%s", GST_DEBUG_PAD_NAME (pad));
3279
3280   for (walk = mux->sinkpads; walk; walk = g_slist_next (walk)) {
3281     GstQTPad *qtpad = (GstQTPad *) walk->data;
3282     GST_DEBUG ("Checking %s:%s", GST_DEBUG_PAD_NAME (qtpad->collect.pad));
3283     if (qtpad->collect.pad == pad) {
3284       /* this is it, remove */
3285       mux->sinkpads = g_slist_delete_link (mux->sinkpads, walk);
3286       gst_element_remove_pad (element, pad);
3287       break;
3288     }
3289   }
3290
3291   gst_collect_pads_remove_pad (mux->collect, pad);
3292 }
3293
3294 static GstPad *
3295 gst_qt_mux_request_new_pad (GstElement * element,
3296     GstPadTemplate * templ, const gchar * req_name, const GstCaps * caps)
3297 {
3298   GstElementClass *klass = GST_ELEMENT_GET_CLASS (element);
3299   GstQTMux *qtmux = GST_QT_MUX_CAST (element);
3300   GstQTPad *collect_pad;
3301   GstPad *newpad;
3302   gboolean audio;
3303   gchar *name;
3304   gint pad_id;
3305
3306   if (templ->direction != GST_PAD_SINK)
3307     goto wrong_direction;
3308
3309   if (qtmux->state > GST_QT_MUX_STATE_STARTED)
3310     goto too_late;
3311
3312   if (templ == gst_element_class_get_pad_template (klass, "audio_%d")) {
3313     audio = TRUE;
3314     if (req_name != NULL && sscanf (req_name, "audio_%02d", &pad_id) == 1) {
3315       name = g_strdup (req_name);
3316     } else {
3317       name = g_strdup_printf ("audio_%02d", qtmux->audio_pads++);
3318     }
3319   } else if (templ == gst_element_class_get_pad_template (klass, "video_%d")) {
3320     audio = FALSE;
3321     if (req_name != NULL && sscanf (req_name, "video_%02d", &pad_id) == 1) {
3322       name = g_strdup (req_name);
3323     } else {
3324       name = g_strdup_printf ("video_%02d", qtmux->video_pads++);
3325     }
3326   } else
3327     goto wrong_template;
3328
3329   GST_DEBUG_OBJECT (qtmux, "Requested pad: %s", name);
3330
3331   /* create pad and add to collections */
3332   newpad = gst_pad_new_from_template (templ, name);
3333   g_free (name);
3334   collect_pad = (GstQTPad *)
3335       gst_collect_pads_add_pad_full (qtmux->collect, newpad, sizeof (GstQTPad),
3336       (GstCollectDataDestroyNotify) (gst_qt_mux_pad_reset));
3337   /* set up pad */
3338   gst_qt_mux_pad_reset (collect_pad);
3339   collect_pad->trak = atom_trak_new (qtmux->context);
3340   atom_moov_add_trak (qtmux->moov, collect_pad->trak);
3341
3342   qtmux->sinkpads = g_slist_append (qtmux->sinkpads, collect_pad);
3343
3344   /* set up pad functions */
3345   if (audio)
3346     collect_pad->set_caps = GST_DEBUG_FUNCPTR (gst_qt_mux_audio_sink_set_caps);
3347   else
3348     collect_pad->set_caps = GST_DEBUG_FUNCPTR (gst_qt_mux_video_sink_set_caps);
3349
3350   /* FIXME: hacked way to override/extend the event function of
3351    * GstCollectPads; because it sets its own event function giving the
3352    * element no access to events.
3353    */
3354   qtmux->collect_event = (GstPadEventFunction) GST_PAD_EVENTFUNC (newpad);
3355   gst_pad_set_event_function (newpad,
3356       GST_DEBUG_FUNCPTR (gst_qt_mux_sink_event));
3357
3358   gst_pad_set_active (newpad, TRUE);
3359   gst_element_add_pad (element, newpad);
3360
3361   return newpad;
3362
3363   /* ERRORS */
3364 wrong_direction:
3365   {
3366     GST_WARNING_OBJECT (qtmux, "Request pad that is not a SINK pad.");
3367     return NULL;
3368   }
3369 too_late:
3370   {
3371     GST_WARNING_OBJECT (qtmux, "Not providing request pad after stream start.");
3372     return NULL;
3373   }
3374 wrong_template:
3375   {
3376     GST_WARNING_OBJECT (qtmux, "This is not our template!");
3377     return NULL;
3378   }
3379 }
3380
3381 static void
3382 gst_qt_mux_get_property (GObject * object,
3383     guint prop_id, GValue * value, GParamSpec * pspec)
3384 {
3385   GstQTMux *qtmux = GST_QT_MUX_CAST (object);
3386
3387   GST_OBJECT_LOCK (qtmux);
3388   switch (prop_id) {
3389     case PROP_MOVIE_TIMESCALE:
3390       g_value_set_uint (value, qtmux->timescale);
3391       break;
3392     case PROP_TRAK_TIMESCALE:
3393       g_value_set_uint (value, qtmux->trak_timescale);
3394       break;
3395     case PROP_DO_CTTS:
3396       g_value_set_boolean (value, qtmux->guess_pts);
3397       break;
3398     case PROP_DTS_METHOD:
3399       g_value_set_enum (value, qtmux->dts_method);
3400       break;
3401     case PROP_FAST_START:
3402       g_value_set_boolean (value, qtmux->fast_start);
3403       break;
3404     case PROP_FAST_START_TEMP_FILE:
3405       g_value_set_string (value, qtmux->fast_start_file_path);
3406       break;
3407     case PROP_MOOV_RECOV_FILE:
3408       g_value_set_string (value, qtmux->moov_recov_file_path);
3409       break;
3410     case PROP_FRAGMENT_DURATION:
3411       g_value_set_uint (value, qtmux->fragment_duration);
3412       break;
3413     case PROP_STREAMABLE:
3414       g_value_set_boolean (value, qtmux->streamable);
3415       break;
3416     default:
3417       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
3418       break;
3419   }
3420   GST_OBJECT_UNLOCK (qtmux);
3421 }
3422
3423 static void
3424 gst_qt_mux_generate_fast_start_file_path (GstQTMux * qtmux)
3425 {
3426   gchar *tmp;
3427
3428   g_free (qtmux->fast_start_file_path);
3429   qtmux->fast_start_file_path = NULL;
3430
3431   tmp = g_strdup_printf ("%s%d", "qtmux", g_random_int ());
3432   qtmux->fast_start_file_path = g_build_filename (g_get_tmp_dir (), tmp, NULL);
3433   g_free (tmp);
3434 }
3435
3436 static void
3437 gst_qt_mux_set_property (GObject * object,
3438     guint prop_id, const GValue * value, GParamSpec * pspec)
3439 {
3440   GstQTMux *qtmux = GST_QT_MUX_CAST (object);
3441
3442   GST_OBJECT_LOCK (qtmux);
3443   switch (prop_id) {
3444     case PROP_MOVIE_TIMESCALE:
3445       qtmux->timescale = g_value_get_uint (value);
3446       break;
3447     case PROP_TRAK_TIMESCALE:
3448       qtmux->trak_timescale = g_value_get_uint (value);
3449       break;
3450     case PROP_DO_CTTS:
3451       qtmux->guess_pts = g_value_get_boolean (value);
3452       break;
3453     case PROP_DTS_METHOD:
3454       qtmux->dts_method = g_value_get_enum (value);
3455       break;
3456     case PROP_FAST_START:
3457       qtmux->fast_start = g_value_get_boolean (value);
3458       break;
3459     case PROP_FAST_START_TEMP_FILE:
3460       g_free (qtmux->fast_start_file_path);
3461       qtmux->fast_start_file_path = g_value_dup_string (value);
3462       /* NULL means to generate a random one */
3463       if (!qtmux->fast_start_file_path) {
3464         gst_qt_mux_generate_fast_start_file_path (qtmux);
3465       }
3466       break;
3467     case PROP_MOOV_RECOV_FILE:
3468       g_free (qtmux->moov_recov_file_path);
3469       qtmux->moov_recov_file_path = g_value_dup_string (value);
3470       break;
3471     case PROP_FRAGMENT_DURATION:
3472       qtmux->fragment_duration = g_value_get_uint (value);
3473       break;
3474     case PROP_STREAMABLE:
3475       qtmux->streamable = g_value_get_boolean (value);
3476       break;
3477     default:
3478       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
3479       break;
3480   }
3481   GST_OBJECT_UNLOCK (qtmux);
3482 }
3483
3484 static GstStateChangeReturn
3485 gst_qt_mux_change_state (GstElement * element, GstStateChange transition)
3486 {
3487   GstStateChangeReturn ret;
3488   GstQTMux *qtmux = GST_QT_MUX_CAST (element);
3489
3490   switch (transition) {
3491     case GST_STATE_CHANGE_NULL_TO_READY:
3492       break;
3493     case GST_STATE_CHANGE_READY_TO_PAUSED:
3494       gst_collect_pads_start (qtmux->collect);
3495       qtmux->state = GST_QT_MUX_STATE_STARTED;
3496       break;
3497     case GST_STATE_CHANGE_PAUSED_TO_PLAYING:
3498       break;
3499     case GST_STATE_CHANGE_PAUSED_TO_READY:
3500       gst_collect_pads_stop (qtmux->collect);
3501       break;
3502     default:
3503       break;
3504   }
3505
3506   ret = GST_ELEMENT_CLASS (parent_class)->change_state (element, transition);
3507
3508   switch (transition) {
3509     case GST_STATE_CHANGE_PLAYING_TO_PAUSED:
3510       break;
3511     case GST_STATE_CHANGE_PAUSED_TO_READY:
3512       gst_qt_mux_reset (qtmux, TRUE);
3513       break;
3514     case GST_STATE_CHANGE_READY_TO_NULL:
3515       break;
3516     default:
3517       break;
3518   }
3519
3520   return ret;
3521 }
3522
3523 gboolean
3524 gst_qt_mux_register (GstPlugin * plugin)
3525 {
3526   GTypeInfo typeinfo = {
3527     sizeof (GstQTMuxClass),
3528     (GBaseInitFunc) gst_qt_mux_base_init,
3529     NULL,
3530     (GClassInitFunc) gst_qt_mux_class_init,
3531     NULL,
3532     NULL,
3533     sizeof (GstQTMux),
3534     0,
3535     (GInstanceInitFunc) gst_qt_mux_init,
3536   };
3537   static const GInterfaceInfo tag_setter_info = {
3538     NULL, NULL, NULL
3539   };
3540   static const GInterfaceInfo tag_xmp_writer_info = {
3541     NULL, NULL, NULL
3542   };
3543   GType type;
3544   GstQTMuxFormat format;
3545   GstQTMuxClassParams *params;
3546   guint i = 0;
3547
3548   GST_DEBUG_CATEGORY_INIT (gst_qt_mux_debug, "qtmux", 0, "QT Muxer");
3549
3550   GST_LOG ("Registering muxers");
3551
3552   while (TRUE) {
3553     GstQTMuxFormatProp *prop;
3554
3555     prop = &gst_qt_mux_format_list[i];
3556     format = prop->format;
3557     if (format == GST_QT_MUX_FORMAT_NONE)
3558       break;
3559
3560     /* create a cache for these properties */
3561     params = g_new0 (GstQTMuxClassParams, 1);
3562     params->prop = prop;
3563     params->src_caps = gst_static_caps_get (&prop->src_caps);
3564     params->video_sink_caps = gst_static_caps_get (&prop->video_sink_caps);
3565     params->audio_sink_caps = gst_static_caps_get (&prop->audio_sink_caps);
3566
3567     /* create the type now */
3568     type = g_type_register_static (GST_TYPE_ELEMENT, prop->type_name, &typeinfo,
3569         0);
3570     g_type_set_qdata (type, GST_QT_MUX_PARAMS_QDATA, (gpointer) params);
3571     g_type_add_interface_static (type, GST_TYPE_TAG_SETTER, &tag_setter_info);
3572     g_type_add_interface_static (type, GST_TYPE_TAG_XMP_WRITER,
3573         &tag_xmp_writer_info);
3574
3575     if (!gst_element_register (plugin, prop->name, prop->rank, type))
3576       return FALSE;
3577
3578     i++;
3579   }
3580
3581   GST_LOG ("Finished registering muxers");
3582
3583   /* FIXME: ideally classification tag should be added and
3584      registered in gstreamer core gsttaglist
3585    */
3586
3587   GST_LOG ("Registering tags");
3588
3589   gst_tag_register (GST_TAG_3GP_CLASSIFICATION, GST_TAG_FLAG_META,
3590       G_TYPE_STRING, GST_TAG_3GP_CLASSIFICATION, "content classification",
3591       gst_tag_merge_use_first);
3592
3593   GST_LOG ("Finished registering tags");
3594
3595   return TRUE;
3596 }