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  * Copyright (C) 2014 Jan Schmidt <jan@centricular.com>
   6  * Contact: Stefan Kost <stefan.kost@nokia.com>
   7
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Library General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Library General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Library General Public
  19  * License along with this library; if not, write to the
  20  * Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
  21  * Boston, MA 02110-1301, USA.
  22  */
  23 /*
  24  * Unless otherwise indicated, Source Code is licensed under MIT license.
  25  * See further explanation attached in License Statement (distributed in the file
  26  * LICENSE).
  27  *
  28  * Permission is hereby granted, free of charge, to any person obtaining a copy of
  29  * this software and associated documentation files (the "Software"), to deal in
  30  * the Software without restriction, including without limitation the rights to
  31  * use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
  32  * of the Software, and to permit persons to whom the Software is furnished to do
  33  * so, subject to the following conditions:
  34  *
  35  * The above copyright notice and this permission notice shall be included in all
  36  * copies or substantial portions of the Software.
  37  *
  38  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  39  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  40  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  41  * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  42  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  43  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
  44  * SOFTWARE.
  45  */
  46
  47
  48 /**
  49  * SECTION:element-qtmux
  50  * @short_description: Muxer for quicktime(.mov) files
  51  *
  52  * This element merges streams (audio and video) into QuickTime(.mov) files.
  53  *
  54  * The following background intends to explain why various similar muxers
  55  * are present in this plugin.
  56  *
  57  * The <ulink url="http://www.apple.com/quicktime/resources/qtfileformat.pdf">
  58  * QuickTime file format specification</ulink> served as basis for the MP4 file
  59  * format specification (mp4mux), and as such the QuickTime file structure is
  60  * nearly identical to the so-called ISO Base Media file format defined in
  61  * ISO 14496-12 (except for some media specific parts).
  62  * In turn, the latter ISO Base Media format was further specialized as a
  63  * Motion JPEG-2000 file format in ISO 15444-3 (mj2mux)
  64  * and in various 3GPP(2) specs (gppmux).
  65  * The fragmented file features defined (only) in ISO Base Media are used by
  66  * ISMV files making up (a.o.) Smooth Streaming (ismlmux).
  67  *
  68  * A few properties (#GstQTMux:movie-timescale, #GstQTMux:trak-timescale) allow
  69  * adjusting some technical parameters, which might be useful in (rare) cases to
  70  * resolve 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
  74  * file, somewhat contrary to this usually being called "the header".
  75  * However, a #GstQTMux:faststart file will (with some effort) arrange this to
  76  * be located near start of the file, which then allows it e.g. to be played
  77  * while downloading. Alternatively, rather than having one chunk of metadata at
  78  * start (or end), there can be some metadata at start and most of the other
  79  * data can be spread out into fragments of #GstQTMux:fragment-duration.
  80  * If such fragmented layout is intended for streaming purposes, then
  81  * #GstQTMux:streamable allows foregoing to add index metadata (at the end of
  82  * file).
  83  *
  84  * When the maximum duration to be recorded can be known in advance, #GstQTMux
  85  * also supports a 'Robust Muxing' mode. In robust muxing mode,  space for the
  86  * headers are reserved at the start of muxing, and rewritten at a configurable
  87  * interval, so that the output file is always playable, even if the recording
  88  * is interrupted uncleanly by a crash. Robust muxing mode requires a seekable
  89  * output, such as filesink, because it needs to rewrite the start of the file.
  90  *
  91  * To enable robust muxing mode, set the #GstQTMux::reserved-moov-update-period
  92  * and #GstQTMux::reserved-max-duration property. Also present is the
  93  * #GstQTMux::reserved-bytes-per-sec property, which can be increased if
  94  * for some reason the default is not large enough and the initial reserved
  95  * space for headers is too small. Applications can monitor the
  96  * #GstQTMux::reserved-duration-remaining property to see how close to full
  97  * the reserved space is becoming.
  98  *
  99  * <refsect2>
 100  * <title>Example pipelines</title>
 101  * |[
 102  * gst-launch-1.0 v4l2src num-buffers=500 ! video/x-raw,width=320,height=240 ! videoconvert ! qtmux ! filesink location=video.mov
 103  * ]|
 104  * Records a video stream captured from a v4l2 device and muxes it into a qt file.
 105  * </refsect2>
 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/base/gstbytereader.h>
 121 #include <gst/base/gstbitreader.h>
 122 #include <gst/audio/audio.h>
 123 #include <gst/video/video.h>
 124 #include <gst/tag/tag.h>
 125 #include <gst/pbutils/pbutils.h>
 126
 127 #include <sys/types.h>
 128 #ifdef G_OS_WIN32
 129 #include <io.h>                 /* lseek, open, close, read */
 130 #undef lseek
 131 #define lseek _lseeki64
 132 #undef off_t
 133 #define off_t guint64
 134 #endif
 135
 136 #ifdef _MSC_VER
 137 #define ftruncate g_win32_ftruncate
 138 #endif
 139
 140 #ifdef HAVE_UNISTD_H
 141 #  include <unistd.h>
 142 #endif
 143
 144 #include "gstqtmux.h"
 145
 146 GST_DEBUG_CATEGORY_STATIC (gst_qt_mux_debug);
 147 #define GST_CAT_DEFAULT gst_qt_mux_debug
 148
 149 /* Hacker notes.
 150  *
 151  * The basic building blocks of MP4 files are:
 152  *  - an 'ftyp' box at the very start
 153  *  - an 'mdat' box which contains the raw audio/video/subtitle data;
 154  *    this is just a bunch of bytes, completely unframed and possibly
 155  *    unordered with no additional meta-information
 156  *  - a 'moov' box that contains information about the different streams
 157  *    and what they contain, as well as sample tables for each stream
 158  *    that tell the demuxer where in the mdat box each buffer/sample is
 159  *    and what its duration/timestamp etc. is, and whether it's a
 160  *    keyframe etc.
 161  * Additionally, fragmented MP4 works by writing chunks of data in
 162  * pairs of 'moof' and 'mdat' boxes:
 163  *  - 'moof' boxes, header preceding each mdat fragment describing the
 164  *    contents, like a moov but only for that fragment.
 165  *  - a 'mfra' box for Fragmented MP4, which is written at the end and
 166  *    contains a summary of all fragments and seek tables.
 167  *
 168  * Currently mp4mux can work in 4 different modes / generate 4 types
 169  * of output files/streams:
 170  *
 171  * - Normal mp4: mp4mux will write a little ftyp identifier at the
 172  *   beginning, then start an mdat box into which it will write all the
 173  *   sample data. At EOS it will then write the moov header with track
 174  *   headers and sample tables at the end of the file, and rewrite the
 175  *   start of the file to fix up the mdat box size at the beginning.
 176  *   It has to wait for EOS to write the moov (which includes the
 177  *   sample tables) because it doesn't know how much space those
 178  *   tables will be. The output downstream must be seekable to rewrite
 179  *   the mdat box at EOS.
 180  *
 181  * - Fragmented mp4: moov header with track headers at start
 182  *   but no sample table, followed by N fragments, each containing
 183  *   track headers with sample tables followed by some data. Downstream
 184  *   does not need to be seekable if the 'streamable' flag is TRUE,
 185  *   as the final mfra and total duration will be omitted.
 186  *
 187  * - Fast-start mp4: the goal here is to create a file where the moov
 188  *   headers are at the beginning; what mp4mux will do is write all
 189  *   sample data into a temp file and build moov header plus sample
 190  *   tables in memory and then when EOS comes, it will push out the
 191  *   moov header plus sample tables at the beginning, followed by the
 192  *   mdat sample data at the end which is read in from the temp file
 193  *   Files created in this mode are better for streaming over the
 194  *   network, since the client doesn't have to seek to the end of the
 195  *   file to get the headers, but it requires copying all sample data
 196  *   out of the temp file at EOS, which can be expensive. Downstream does
 197  *   not need to be seekable, because of the use of the temp file.
 198  *
 199  * - Robust Muxing mode: In this mode, qtmux uses the reserved-max-duration
 200  *   and reserved-moov-update-period properties to reserve free space
 201  *   at the start of the file and periodically write the MOOV atom out
 202  *   to it. That means that killing the muxing at any point still
 203  *   results in a playable file, at the cost of wasting some amount of
 204  *   free space at the start of file. The approximate recording duration
 205  *   has to be known in advance to estimate how much free space to reserve
 206  *   for the moov, and the downstream must be seekable.
 207  *   If the moov header grows larger than the reserved space, an error
 208  *   is generated - so it's better to over-estimate the amount of space
 209  *   to reserve. To ensure the file is playable at any point, the moov
 210  *   is updated using a 'ping-pong' strategy, so the output is never in
 211  *   an invalid state.
 212  */
 213
 214 #ifndef GST_REMOVE_DEPRECATED
 215 enum
 216 {
 217   DTS_METHOD_DD,
 218   DTS_METHOD_REORDER,
 219   DTS_METHOD_ASC
 220 };
 221
 222 static GType
 223 gst_qt_mux_dts_method_get_type (void)
 224 {
 225   static GType gst_qt_mux_dts_method = 0;
 226
 227   if (!gst_qt_mux_dts_method) {
 228     static const GEnumValue dts_methods[] = {
 229       {DTS_METHOD_DD, "delta/duration", "dd"},
 230       {DTS_METHOD_REORDER, "reorder", "reorder"},
 231       {DTS_METHOD_ASC, "ascending", "asc"},
 232       {0, NULL, NULL},
 233     };
 234
 235     gst_qt_mux_dts_method =
 236         g_enum_register_static ("GstQTMuxDtsMethods", dts_methods);
 237   }
 238
 239   return gst_qt_mux_dts_method;
 240 }
 241
 242 #define GST_TYPE_QT_MUX_DTS_METHOD \
 243   (gst_qt_mux_dts_method_get_type ())
 244 #endif
 245
 246 /* QTMux signals and args */
 247 enum
 248 {
 249   /* FILL ME */
 250   LAST_SIGNAL
 251 };
 252
 253 enum
 254 {
 255   PROP_0,
 256   PROP_MOVIE_TIMESCALE,
 257   PROP_TRAK_TIMESCALE,
 258   PROP_FAST_START,
 259   PROP_FAST_START_TEMP_FILE,
 260   PROP_MOOV_RECOV_FILE,
 261   PROP_FRAGMENT_DURATION,
 262   PROP_STREAMABLE,
 263   PROP_RESERVED_MAX_DURATION,
 264   PROP_RESERVED_DURATION_REMAINING,
 265   PROP_RESERVED_MOOV_UPDATE_PERIOD,
 266   PROP_RESERVED_BYTES_PER_SEC,
 267 #ifndef GST_REMOVE_DEPRECATED
 268   PROP_DTS_METHOD,
 269 #endif
 270   PROP_DO_CTTS,
 271   PROP_INTERLEAVE_BYTES,
 272   PROP_INTERLEAVE_TIME,
 273 };
 274
 275 /* some spare for header size as well */
 276 #define MDAT_LARGE_FILE_LIMIT           ((guint64) 1024 * 1024 * 1024 * 2)
 277
 278 #define DEFAULT_MOVIE_TIMESCALE         0
 279 #define DEFAULT_TRAK_TIMESCALE          0
 280 #define DEFAULT_DO_CTTS                 TRUE
 281 #define DEFAULT_FAST_START              FALSE
 282 #define DEFAULT_FAST_START_TEMP_FILE    NULL
 283 #define DEFAULT_MOOV_RECOV_FILE         NULL
 284 #define DEFAULT_FRAGMENT_DURATION       0
 285 #define DEFAULT_STREAMABLE              TRUE
 286 #ifndef GST_REMOVE_DEPRECATED
 287 #define DEFAULT_DTS_METHOD              DTS_METHOD_REORDER
 288 #endif
 289 #define DEFAULT_RESERVED_MAX_DURATION   GST_CLOCK_TIME_NONE
 290 #define DEFAULT_RESERVED_MOOV_UPDATE_PERIOD   GST_CLOCK_TIME_NONE
 291 #define DEFAULT_RESERVED_BYTES_PER_SEC_PER_TRAK 550
 292 #define DEFAULT_INTERLEAVE_BYTES 0
 293 #define DEFAULT_INTERLEAVE_TIME 250*GST_MSECOND
 294
 295 static void gst_qt_mux_finalize (GObject * object);
 296
 297 static GstStateChangeReturn gst_qt_mux_change_state (GstElement * element,
 298     GstStateChange transition);
 299
 300 /* property functions */
 301 static void gst_qt_mux_set_property (GObject * object,
 302     guint prop_id, const GValue * value, GParamSpec * pspec);
 303 static void gst_qt_mux_get_property (GObject * object,
 304     guint prop_id, GValue * value, GParamSpec * pspec);
 305
 306 /* pad functions */
 307 static GstPad *gst_qt_mux_request_new_pad (GstElement * element,
 308     GstPadTemplate * templ, const gchar * name, const GstCaps * caps);
 309 static void gst_qt_mux_release_pad (GstElement * element, GstPad * pad);
 310
 311 /* event */
 312 static gboolean gst_qt_mux_sink_event (GstCollectPads * pads,
 313     GstCollectData * data, GstEvent * event, gpointer user_data);
 314
 315 static GstFlowReturn gst_qt_mux_collected (GstCollectPads * pads,
 316     gpointer user_data);
 317 static GstFlowReturn gst_qt_mux_add_buffer (GstQTMux * qtmux, GstQTPad * pad,
 318     GstBuffer * buf);
 319
 320 static GstFlowReturn
 321 gst_qt_mux_robust_recording_rewrite_moov (GstQTMux * qtmux);
 322
 323 static GstElementClass *parent_class = NULL;
 324
 325 static void
 326 gst_qt_mux_base_init (gpointer g_class)
 327 {
 328   GstElementClass *element_class = GST_ELEMENT_CLASS (g_class);
 329   GstQTMuxClass *klass = (GstQTMuxClass *) g_class;
 330   GstQTMuxClassParams *params;
 331   GstPadTemplate *videosinktempl, *audiosinktempl, *subtitlesinktempl;
 332   GstPadTemplate *srctempl;
 333   gchar *longname, *description;
 334
 335   params =
 336       (GstQTMuxClassParams *) g_type_get_qdata (G_OBJECT_CLASS_TYPE (g_class),
 337       GST_QT_MUX_PARAMS_QDATA);
 338   g_assert (params != NULL);
 339
 340   /* construct the element details struct */
 341   longname = g_strdup_printf ("%s Muxer", params->prop->long_name);
 342   description = g_strdup_printf ("Multiplex audio and video into a %s file",
 343       params->prop->long_name);
 344   gst_element_class_set_static_metadata (element_class, longname,
 345       "Codec/Muxer", description,
 346       "Thiago Sousa Santos <thiagoss@embedded.ufcg.edu.br>");
 347   g_free (longname);
 348   g_free (description);
 349
 350   /* pad templates */
 351   srctempl = gst_pad_template_new ("src", GST_PAD_SRC,
 352       GST_PAD_ALWAYS, params->src_caps);
 353   gst_element_class_add_pad_template (element_class, srctempl);
 354
 355   if (params->audio_sink_caps) {
 356     audiosinktempl = gst_pad_template_new ("audio_%u",
 357         GST_PAD_SINK, GST_PAD_REQUEST, params->audio_sink_caps);
 358     gst_element_class_add_pad_template (element_class, audiosinktempl);
 359   }
 360
 361   if (params->video_sink_caps) {
 362     videosinktempl = gst_pad_template_new ("video_%u",
 363         GST_PAD_SINK, GST_PAD_REQUEST, params->video_sink_caps);
 364     gst_element_class_add_pad_template (element_class, videosinktempl);
 365   }
 366
 367   if (params->subtitle_sink_caps) {
 368     subtitlesinktempl = gst_pad_template_new ("subtitle_%u",
 369         GST_PAD_SINK, GST_PAD_REQUEST, params->subtitle_sink_caps);
 370     gst_element_class_add_pad_template (element_class, subtitlesinktempl);
 371   }
 372
 373   klass->format = params->prop->format;
 374 }
 375
 376 static void
 377 gst_qt_mux_class_init (GstQTMuxClass * klass)
 378 {
 379   GObjectClass *gobject_class;
 380   GstElementClass *gstelement_class;
 381   GParamFlags streamable_flags;
 382   const gchar *streamable_desc;
 383   gboolean streamable;
 384 #define STREAMABLE_DESC "If set to true, the output should be as if it is to "\
 385   "be streamed and hence no indexes written or duration written."
 386
 387   gobject_class = (GObjectClass *) klass;
 388   gstelement_class = (GstElementClass *) klass;
 389
 390   parent_class = g_type_class_peek_parent (klass);
 391
 392   gobject_class->finalize = gst_qt_mux_finalize;
 393   gobject_class->get_property = gst_qt_mux_get_property;
 394   gobject_class->set_property = gst_qt_mux_set_property;
 395
 396   streamable_flags = G_PARAM_READWRITE | G_PARAM_CONSTRUCT;
 397   if (klass->format == GST_QT_MUX_FORMAT_ISML) {
 398     streamable_desc = STREAMABLE_DESC;
 399     streamable = DEFAULT_STREAMABLE;
 400   } else {
 401     streamable_desc =
 402         STREAMABLE_DESC " (DEPRECATED, only valid for fragmented MP4)";
 403     streamable_flags |= G_PARAM_DEPRECATED;
 404     streamable = FALSE;
 405   }
 406
 407   g_object_class_install_property (gobject_class, PROP_MOVIE_TIMESCALE,
 408       g_param_spec_uint ("movie-timescale", "Movie timescale",
 409           "Timescale to use in the movie (units per second, 0 == default)",
 410           0, G_MAXUINT32, DEFAULT_MOVIE_TIMESCALE,
 411           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 412   g_object_class_install_property (gobject_class, PROP_TRAK_TIMESCALE,
 413       g_param_spec_uint ("trak-timescale", "Track timescale",
 414           "Timescale to use for the tracks (units per second, 0 is automatic)",
 415           0, G_MAXUINT32, DEFAULT_TRAK_TIMESCALE,
 416           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 417   g_object_class_install_property (gobject_class, PROP_DO_CTTS,
 418       g_param_spec_boolean ("presentation-time",
 419           "Include presentation-time info",
 420           "Calculate and include presentation/composition time "
 421           "(in addition to decoding time)", DEFAULT_DO_CTTS,
 422           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 423 #ifndef GST_REMOVE_DEPRECATED
 424   g_object_class_install_property (gobject_class, PROP_DTS_METHOD,
 425       g_param_spec_enum ("dts-method", "dts-method",
 426           "Method to determine DTS time (DEPRECATED)",
 427           GST_TYPE_QT_MUX_DTS_METHOD, DEFAULT_DTS_METHOD,
 428           G_PARAM_DEPRECATED | G_PARAM_READWRITE | G_PARAM_CONSTRUCT |
 429           G_PARAM_STATIC_STRINGS));
 430 #endif
 431   g_object_class_install_property (gobject_class, PROP_FAST_START,
 432       g_param_spec_boolean ("faststart", "Format file to faststart",
 433           "If the file should be formatted for faststart (headers first)",
 434           DEFAULT_FAST_START, G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 435   g_object_class_install_property (gobject_class, PROP_FAST_START_TEMP_FILE,
 436       g_param_spec_string ("faststart-file", "File to use for storing buffers",
 437           "File that will be used temporarily to store data from the stream "
 438           "when creating a faststart file. If null a filepath will be "
 439           "created automatically", DEFAULT_FAST_START_TEMP_FILE,
 440           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 441   g_object_class_install_property (gobject_class, PROP_MOOV_RECOV_FILE,
 442       g_param_spec_string ("moov-recovery-file",
 443           "File to store data for posterior moov atom recovery",
 444           "File to be used to store "
 445           "data for moov atom making movie file recovery possible in case "
 446           "of a crash during muxing. Null for disabled. (Experimental)",
 447           DEFAULT_MOOV_RECOV_FILE,
 448           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 449   g_object_class_install_property (gobject_class, PROP_FRAGMENT_DURATION,
 450       g_param_spec_uint ("fragment-duration", "Fragment duration",
 451           "Fragment durations in ms (produce a fragmented file if > 0)",
 452           0, G_MAXUINT32, klass->format == GST_QT_MUX_FORMAT_ISML ?
 453           2000 : DEFAULT_FRAGMENT_DURATION,
 454           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 455   g_object_class_install_property (gobject_class, PROP_STREAMABLE,
 456       g_param_spec_boolean ("streamable", "Streamable", streamable_desc,
 457           streamable, streamable_flags | G_PARAM_STATIC_STRINGS));
 458   g_object_class_install_property (gobject_class, PROP_RESERVED_MAX_DURATION,
 459       g_param_spec_uint64 ("reserved-max-duration",
 460           "Reserved maximum file duration (ns)",
 461           "When set to a value > 0, reserves space for index tables at the "
 462           "beginning of the file.",
 463           0, G_MAXUINT64, DEFAULT_RESERVED_MAX_DURATION,
 464           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 465   g_object_class_install_property (gobject_class,
 466       PROP_RESERVED_DURATION_REMAINING,
 467       g_param_spec_uint64 ("reserved-duration-remaining",
 468           "Report the approximate amount of remaining recording space (ns)",
 469           "Reports the approximate amount of remaining moov header space "
 470           "reserved using reserved-max-duration", 0, G_MAXUINT64, 0,
 471           G_PARAM_READABLE | G_PARAM_STATIC_STRINGS));
 472   g_object_class_install_property (gobject_class,
 473       PROP_RESERVED_MOOV_UPDATE_PERIOD,
 474       g_param_spec_uint64 ("reserved-moov-update-period",
 475           "Interval at which to update index tables (ns)",
 476           "When used with reserved-max-duration, periodically updates the "
 477           "index tables with information muxed so far.", 0, G_MAXUINT64,
 478           DEFAULT_RESERVED_MOOV_UPDATE_PERIOD,
 479           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 480   g_object_class_install_property (gobject_class, PROP_RESERVED_BYTES_PER_SEC,
 481       g_param_spec_uint ("reserved-bytes-per-sec",
 482           "Reserved MOOV bytes per second, per track",
 483           "Multiplier for converting reserved-max-duration into bytes of header to reserve, per second, per track",
 484           0, 10000, DEFAULT_RESERVED_BYTES_PER_SEC_PER_TRAK,
 485           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 486   g_object_class_install_property (gobject_class, PROP_INTERLEAVE_BYTES,
 487       g_param_spec_uint64 ("interleave-bytes", "Interleave (bytes)",
 488           "Interleave between streams in bytes",
 489           0, G_MAXUINT64, DEFAULT_INTERLEAVE_BYTES,
 490           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 491   g_object_class_install_property (gobject_class, PROP_INTERLEAVE_TIME,
 492       g_param_spec_uint64 ("interleave-time", "Interleave (time)",
 493           "Interleave between streams in nanoseconds",
 494           0, G_MAXUINT64, DEFAULT_INTERLEAVE_TIME,
 495           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 496
 497   gstelement_class->request_new_pad =
 498       GST_DEBUG_FUNCPTR (gst_qt_mux_request_new_pad);
 499   gstelement_class->change_state = GST_DEBUG_FUNCPTR (gst_qt_mux_change_state);
 500   gstelement_class->release_pad = GST_DEBUG_FUNCPTR (gst_qt_mux_release_pad);
 501 }
 502
 503 static void
 504 gst_qt_mux_pad_reset (GstQTPad * qtpad)
 505 {
 506   qtpad->fourcc = 0;
 507   qtpad->is_out_of_order = FALSE;
 508   qtpad->sample_size = 0;
 509   qtpad->sync = FALSE;
 510   qtpad->last_dts = 0;
 511   qtpad->dts_adjustment = GST_CLOCK_TIME_NONE;
 512   qtpad->first_ts = GST_CLOCK_TIME_NONE;
 513   qtpad->first_dts = GST_CLOCK_TIME_NONE;
 514   qtpad->prepare_buf_func = NULL;
 515   qtpad->create_empty_buffer = NULL;
 516   qtpad->avg_bitrate = 0;
 517   qtpad->max_bitrate = 0;
 518   qtpad->total_duration = 0;
 519   qtpad->total_bytes = 0;
 520   qtpad->sparse = FALSE;
 521   qtpad->tc_trak = NULL;
 522
 523   qtpad->buf_head = 0;
 524   qtpad->buf_tail = 0;
 525
 526   gst_buffer_replace (&qtpad->last_buf, NULL);
 527
 528   if (qtpad->tags) {
 529     gst_tag_list_unref (qtpad->tags);
 530     qtpad->tags = NULL;
 531   }
 532
 533   /* reference owned elsewhere */
 534   qtpad->trak = NULL;
 535
 536   if (qtpad->traf) {
 537     atom_traf_free (qtpad->traf);
 538     qtpad->traf = NULL;
 539   }
 540   atom_array_clear (&qtpad->fragment_buffers);
 541
 542   /* reference owned elsewhere */
 543   qtpad->tfra = NULL;
 544 }
 545
 546 /*
 547  * Takes GstQTMux back to its initial state
 548  */
 549 static void
 550 gst_qt_mux_reset (GstQTMux * qtmux, gboolean alloc)
 551 {
 552   GSList *walk;
 553
 554   qtmux->state = GST_QT_MUX_STATE_NONE;
 555   qtmux->header_size = 0;
 556   qtmux->mdat_size = 0;
 557   qtmux->moov_pos = 0;
 558   qtmux->mdat_pos = 0;
 559   qtmux->longest_chunk = GST_CLOCK_TIME_NONE;
 560   qtmux->fragment_sequence = 0;
 561
 562   if (qtmux->ftyp) {
 563     atom_ftyp_free (qtmux->ftyp);
 564     qtmux->ftyp = NULL;
 565   }
 566   if (qtmux->moov) {
 567     atom_moov_free (qtmux->moov);
 568     qtmux->moov = NULL;
 569   }
 570   if (qtmux->mfra) {
 571     atom_mfra_free (qtmux->mfra);
 572     qtmux->mfra = NULL;
 573   }
 574   if (qtmux->fast_start_file) {
 575     fclose (qtmux->fast_start_file);
 576     g_remove (qtmux->fast_start_file_path);
 577     qtmux->fast_start_file = NULL;
 578   }
 579   if (qtmux->moov_recov_file) {
 580     fclose (qtmux->moov_recov_file);
 581     qtmux->moov_recov_file = NULL;
 582   }
 583   for (walk = qtmux->extra_atoms; walk; walk = g_slist_next (walk)) {
 584     AtomInfo *ainfo = (AtomInfo *) walk->data;
 585     ainfo->free_func (ainfo->atom);
 586     g_free (ainfo);
 587   }
 588   g_slist_free (qtmux->extra_atoms);
 589   qtmux->extra_atoms = NULL;
 590
 591   GST_OBJECT_LOCK (qtmux);
 592   gst_tag_setter_reset_tags (GST_TAG_SETTER (qtmux));
 593   GST_OBJECT_UNLOCK (qtmux);
 594
 595   /* reset pad data */
 596   for (walk = qtmux->sinkpads; walk; walk = g_slist_next (walk)) {
 597     GstQTPad *qtpad = (GstQTPad *) walk->data;
 598     gst_qt_mux_pad_reset (qtpad);
 599
 600     /* hm, moov_free above yanked the traks away from us,
 601      * so do not free, but do clear */
 602     qtpad->trak = NULL;
 603   }
 604
 605   if (alloc) {
 606     qtmux->moov = atom_moov_new (qtmux->context);
 607     /* ensure all is as nice and fresh as request_new_pad would provide it */
 608     for (walk = qtmux->sinkpads; walk; walk = g_slist_next (walk)) {
 609       GstQTPad *qtpad = (GstQTPad *) walk->data;
 610
 611       qtpad->trak = atom_trak_new (qtmux->context);
 612       atom_moov_add_trak (qtmux->moov, qtpad->trak);
 613     }
 614   }
 615
 616   qtmux->current_pad = NULL;
 617   qtmux->current_chunk_size = 0;
 618   qtmux->current_chunk_duration = 0;
 619   qtmux->current_chunk_offset = -1;
 620
 621   qtmux->reserved_moov_size = 0;
 622   qtmux->last_moov_update = GST_CLOCK_TIME_NONE;
 623   qtmux->muxed_since_last_update = 0;
 624   qtmux->reserved_duration_remaining = GST_CLOCK_TIME_NONE;
 625   qtmux->first_pts = GST_CLOCK_TIME_NONE;
 626   qtmux->tc_pos = -1;
 627 }
 628
 629 static void
 630 gst_qt_mux_init (GstQTMux * qtmux, GstQTMuxClass * qtmux_klass)
 631 {
 632   GstElementClass *klass = GST_ELEMENT_CLASS (qtmux_klass);
 633   GstPadTemplate *templ;
 634
 635   templ = gst_element_class_get_pad_template (klass, "src");
 636   qtmux->srcpad = gst_pad_new_from_template (templ, "src");
 637   gst_pad_use_fixed_caps (qtmux->srcpad);
 638   gst_element_add_pad (GST_ELEMENT (qtmux), qtmux->srcpad);
 639
 640   qtmux->sinkpads = NULL;
 641   qtmux->collect = gst_collect_pads_new ();
 642   gst_collect_pads_set_event_function (qtmux->collect,
 643       GST_DEBUG_FUNCPTR (gst_qt_mux_sink_event), qtmux);
 644   gst_collect_pads_set_clip_function (qtmux->collect,
 645       GST_DEBUG_FUNCPTR (gst_collect_pads_clip_running_time), qtmux);
 646   gst_collect_pads_set_function (qtmux->collect,
 647       GST_DEBUG_FUNCPTR (gst_qt_mux_collected), qtmux);
 648
 649   /* properties set to default upon construction */
 650
 651   qtmux->reserved_max_duration = DEFAULT_RESERVED_MAX_DURATION;
 652   qtmux->reserved_moov_update_period = DEFAULT_RESERVED_MOOV_UPDATE_PERIOD;
 653   qtmux->reserved_bytes_per_sec_per_trak =
 654       DEFAULT_RESERVED_BYTES_PER_SEC_PER_TRAK;
 655   qtmux->interleave_bytes = DEFAULT_INTERLEAVE_BYTES;
 656   qtmux->interleave_time = DEFAULT_INTERLEAVE_TIME;
 657
 658   /* always need this */
 659   qtmux->context =
 660       atoms_context_new (gst_qt_mux_map_format_to_flavor (qtmux_klass->format));
 661
 662   /* internals to initial state */
 663   gst_qt_mux_reset (qtmux, TRUE);
 664 }
 665
 666
 667 static void
 668 gst_qt_mux_finalize (GObject * object)
 669 {
 670   GstQTMux *qtmux = GST_QT_MUX_CAST (object);
 671
 672   gst_qt_mux_reset (qtmux, FALSE);
 673
 674   g_free (qtmux->fast_start_file_path);
 675   g_free (qtmux->moov_recov_file_path);
 676
 677   atoms_context_free (qtmux->context);
 678   gst_object_unref (qtmux->collect);
 679
 680   g_slist_free (qtmux->sinkpads);
 681
 682   G_OBJECT_CLASS (parent_class)->finalize (object);
 683 }
 684
 685 static GstBuffer *
 686 gst_qt_mux_prepare_jpc_buffer (GstQTPad * qtpad, GstBuffer * buf,
 687     GstQTMux * qtmux)
 688 {
 689   GstBuffer *newbuf;
 690   GstMapInfo map;
 691   gsize size;
 692
 693   GST_LOG_OBJECT (qtmux, "Preparing jpc buffer");
 694
 695   if (buf == NULL)
 696     return NULL;
 697
 698   size = gst_buffer_get_size (buf);
 699   newbuf = gst_buffer_new_and_alloc (size + 8);
 700   gst_buffer_copy_into (newbuf, buf, GST_BUFFER_COPY_ALL, 8, size);
 701
 702   gst_buffer_map (newbuf, &map, GST_MAP_WRITE);
 703   GST_WRITE_UINT32_BE (map.data, map.size);
 704   GST_WRITE_UINT32_LE (map.data + 4, FOURCC_jp2c);
 705
 706   gst_buffer_unmap (buf, &map);
 707   gst_buffer_unref (buf);
 708
 709   return newbuf;
 710 }
 711
 712 static GstBuffer *
 713 gst_qt_mux_prepare_tx3g_buffer (GstQTPad * qtpad, GstBuffer * buf,
 714     GstQTMux * qtmux)
 715 {
 716   GstBuffer *newbuf;
 717   GstMapInfo frommap;
 718   GstMapInfo tomap;
 719   gsize size;
 720   const guint8 *dataend;
 721
 722   GST_LOG_OBJECT (qtmux, "Preparing tx3g buffer %" GST_PTR_FORMAT, buf);
 723
 724   if (buf == NULL)
 725     return NULL;
 726
 727   gst_buffer_map (buf, &frommap, GST_MAP_READ);
 728
 729   dataend = memchr (frommap.data, 0, frommap.size);
 730   size = dataend ? dataend - frommap.data : frommap.size;
 731   newbuf = gst_buffer_new_and_alloc (size + 2);
 732
 733   gst_buffer_map (newbuf, &tomap, GST_MAP_WRITE);
 734
 735   GST_WRITE_UINT16_BE (tomap.data, size);
 736   memcpy (tomap.data + 2, frommap.data, size);
 737
 738   gst_buffer_unmap (newbuf, &tomap);
 739   gst_buffer_unmap (buf, &frommap);
 740
 741   gst_buffer_copy_into (newbuf, buf, GST_BUFFER_COPY_METADATA, 0, size);
 742
 743   /* gst_buffer_copy_into is trying to be too clever and
 744    * won't copy duration when size is different */
 745   GST_BUFFER_DURATION (newbuf) = GST_BUFFER_DURATION (buf);
 746
 747   gst_buffer_unref (buf);
 748
 749   return newbuf;
 750 }
 751
 752 static void
 753 gst_qt_mux_pad_add_ac3_extension (GstQTMux * qtmux, GstQTPad * qtpad,
 754     guint8 fscod, guint8 frmsizcod, guint8 bsid, guint8 bsmod, guint8 acmod,
 755     guint8 lfe_on)
 756 {
 757   AtomInfo *ext;
 758
 759   g_return_if_fail (qtpad->trak_ste);
 760
 761   ext = build_ac3_extension (fscod, bsid, bsmod, acmod, lfe_on, frmsizcod >> 1);        /* bitrate_code is inside frmsizcod */
 762
 763   sample_table_entry_add_ext_atom (qtpad->trak_ste, ext);
 764 }
 765
 766 static GstBuffer *
 767 gst_qt_mux_prepare_parse_ac3_frame (GstQTPad * qtpad, GstBuffer * buf,
 768     GstQTMux * qtmux)
 769 {
 770   GstMapInfo map;
 771   GstByteReader reader;
 772   guint off;
 773
 774   if (!gst_buffer_map (buf, &map, GST_MAP_READ)) {
 775     GST_WARNING_OBJECT (qtpad->collect.pad, "Failed to map buffer");
 776     return buf;
 777   }
 778
 779   if (G_UNLIKELY (map.size < 8))
 780     goto done;
 781
 782   gst_byte_reader_init (&reader, map.data, map.size);
 783   off = gst_byte_reader_masked_scan_uint32 (&reader, 0xffff0000, 0x0b770000,
 784       0, map.size);
 785
 786   if (off != -1) {
 787     GstBitReader bits;
 788     guint8 fscod, frmsizcod, bsid, bsmod, acmod, lfe_on;
 789
 790     GST_DEBUG_OBJECT (qtpad->collect.pad, "Found ac3 sync point at offset: %u",
 791         off);
 792
 793     gst_bit_reader_init (&bits, map.data, map.size);
 794
 795     /* off + sync + crc */
 796     gst_bit_reader_skip_unchecked (&bits, off * 8 + 16 + 16);
 797
 798     fscod = gst_bit_reader_get_bits_uint8_unchecked (&bits, 2);
 799     frmsizcod = gst_bit_reader_get_bits_uint8_unchecked (&bits, 6);
 800     bsid = gst_bit_reader_get_bits_uint8_unchecked (&bits, 5);
 801     bsmod = gst_bit_reader_get_bits_uint8_unchecked (&bits, 3);
 802     acmod = gst_bit_reader_get_bits_uint8_unchecked (&bits, 3);
 803
 804     if ((acmod & 0x1) && (acmod != 0x1))        /* 3 front channels */
 805       gst_bit_reader_skip_unchecked (&bits, 2);
 806     if ((acmod & 0x4))          /* if a surround channel exists */
 807       gst_bit_reader_skip_unchecked (&bits, 2);
 808     if (acmod == 0x2)           /* if in 2/0 mode */
 809       gst_bit_reader_skip_unchecked (&bits, 2);
 810
 811     lfe_on = gst_bit_reader_get_bits_uint8_unchecked (&bits, 1);
 812
 813     gst_qt_mux_pad_add_ac3_extension (qtmux, qtpad, fscod, frmsizcod, bsid,
 814         bsmod, acmod, lfe_on);
 815
 816     /* AC-3 spec says that those values should be constant for the
 817      * whole stream when muxed in mp4. We trust the input follows it */
 818     GST_DEBUG_OBJECT (qtpad->collect.pad, "Data parsed, removing "
 819         "prepare buffer function");
 820     qtpad->prepare_buf_func = NULL;
 821   }
 822
 823 done:
 824   gst_buffer_unmap (buf, &map);
 825   return buf;
 826 }
 827
 828 static GstBuffer *
 829 gst_qt_mux_create_empty_tx3g_buffer (GstQTPad * qtpad, gint64 duration)
 830 {
 831   guint8 *data;
 832
 833   data = g_malloc (2);
 834   GST_WRITE_UINT16_BE (data, 0);
 835
 836   return gst_buffer_new_wrapped (data, 2);
 837 }
 838
 839 static void
 840 gst_qt_mux_add_mp4_tag (GstQTMux * qtmux, const GstTagList * list,
 841     AtomUDTA * udta, const char *tag, const char *tag2, guint32 fourcc)
 842 {
 843   switch (gst_tag_get_type (tag)) {
 844       /* strings */
 845     case G_TYPE_STRING:
 846     {
 847       gchar *str = NULL;
 848
 849       if (!gst_tag_list_get_string (list, tag, &str) || !str)
 850         break;
 851       GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %s",
 852           GST_FOURCC_ARGS (fourcc), str);
 853       atom_udta_add_str_tag (udta, fourcc, str);
 854       g_free (str);
 855       break;
 856     }
 857       /* double */
 858     case G_TYPE_DOUBLE:
 859     {
 860       gdouble value;
 861
 862       if (!gst_tag_list_get_double (list, tag, &value))
 863         break;
 864       GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %u",
 865           GST_FOURCC_ARGS (fourcc), (gint) value);
 866       atom_udta_add_uint_tag (udta, fourcc, 21, (gint) value);
 867       break;
 868     }
 869     case G_TYPE_UINT:
 870     {
 871       guint value = 0;
 872       if (tag2) {
 873         /* paired unsigned integers */
 874         guint count = 0;
 875         gboolean got_tag;
 876
 877         got_tag = gst_tag_list_get_uint (list, tag, &value);
 878         got_tag = gst_tag_list_get_uint (list, tag2, &count) || got_tag;
 879         if (!got_tag)
 880           break;
 881         GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %u/%u",
 882             GST_FOURCC_ARGS (fourcc), value, count);
 883         atom_udta_add_uint_tag (udta, fourcc, 0,
 884             value << 16 | (count & 0xFFFF));
 885       } else {
 886         /* unpaired unsigned integers */
 887         if (!gst_tag_list_get_uint (list, tag, &value))
 888           break;
 889         GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %u",
 890             GST_FOURCC_ARGS (fourcc), value);
 891         atom_udta_add_uint_tag (udta, fourcc, 1, value);
 892       }
 893       break;
 894     }
 895     default:
 896       g_assert_not_reached ();
 897       break;
 898   }
 899 }
 900
 901 static void
 902 gst_qt_mux_add_mp4_date (GstQTMux * qtmux, const GstTagList * list,
 903     AtomUDTA * udta, const char *tag, const char *tag2, guint32 fourcc)
 904 {
 905   GDate *date = NULL;
 906   GDateYear year;
 907   GDateMonth month;
 908   GDateDay day;
 909   gchar *str;
 910
 911   g_return_if_fail (gst_tag_get_type (tag) == G_TYPE_DATE);
 912
 913   if (!gst_tag_list_get_date (list, tag, &date) || !date)
 914     return;
 915
 916   year = g_date_get_year (date);
 917   month = g_date_get_month (date);
 918   day = g_date_get_day (date);
 919
 920   g_date_free (date);
 921
 922   if (year == G_DATE_BAD_YEAR && month == G_DATE_BAD_MONTH &&
 923       day == G_DATE_BAD_DAY) {
 924     GST_WARNING_OBJECT (qtmux, "invalid date in tag");
 925     return;
 926   }
 927
 928   str = g_strdup_printf ("%u-%u-%u", year, month, day);
 929   GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %s",
 930       GST_FOURCC_ARGS (fourcc), str);
 931   atom_udta_add_str_tag (udta, fourcc, str);
 932   g_free (str);
 933 }
 934
 935 static void
 936 gst_qt_mux_add_mp4_cover (GstQTMux * qtmux, const GstTagList * list,
 937     AtomUDTA * udta, const char *tag, const char *tag2, guint32 fourcc)
 938 {
 939   GValue value = { 0, };
 940   GstBuffer *buf;
 941   GstSample *sample;
 942   GstCaps *caps;
 943   GstStructure *structure;
 944   gint flags = 0;
 945   GstMapInfo map;
 946
 947   g_return_if_fail (gst_tag_get_type (tag) == GST_TYPE_SAMPLE);
 948
 949   if (!gst_tag_list_copy_value (&value, list, tag))
 950     return;
 951
 952   sample = gst_value_get_sample (&value);
 953
 954   if (!sample)
 955     goto done;
 956
 957   buf = gst_sample_get_buffer (sample);
 958   if (!buf)
 959     goto done;
 960
 961   caps = gst_sample_get_caps (sample);
 962   if (!caps) {
 963     GST_WARNING_OBJECT (qtmux, "preview image without caps");
 964     goto done;
 965   }
 966
 967   GST_DEBUG_OBJECT (qtmux, "preview image caps %" GST_PTR_FORMAT, caps);
 968
 969   structure = gst_caps_get_structure (caps, 0);
 970   if (gst_structure_has_name (structure, "image/jpeg"))
 971     flags = 13;
 972   else if (gst_structure_has_name (structure, "image/png"))
 973     flags = 14;
 974
 975   if (!flags) {
 976     GST_WARNING_OBJECT (qtmux, "preview image format not supported");
 977     goto done;
 978   }
 979
 980   gst_buffer_map (buf, &map, GST_MAP_READ);
 981   GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT
 982       " -> image size %" G_GSIZE_FORMAT "", GST_FOURCC_ARGS (fourcc), map.size);
 983   atom_udta_add_tag (udta, fourcc, flags, map.data, map.size);
 984   gst_buffer_unmap (buf, &map);
 985 done:
 986   g_value_unset (&value);
 987 }
 988
 989 static void
 990 gst_qt_mux_add_3gp_str (GstQTMux * qtmux, const GstTagList * list,
 991     AtomUDTA * udta, const char *tag, const char *tag2, guint32 fourcc)
 992 {
 993   gchar *str = NULL;
 994   guint number;
 995
 996   g_return_if_fail (gst_tag_get_type (tag) == G_TYPE_STRING);
 997   g_return_if_fail (!tag2 || gst_tag_get_type (tag2) == G_TYPE_UINT);
 998
 999   if (!gst_tag_list_get_string (list, tag, &str) || !str)
1000     return;
1001
1002   if (tag2)
1003     if (!gst_tag_list_get_uint (list, tag2, &number))
1004       tag2 = NULL;
1005
1006   if (!tag2) {
1007     GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %s",
1008         GST_FOURCC_ARGS (fourcc), str);
1009     atom_udta_add_3gp_str_tag (udta, fourcc, str);
1010   } else {
1011     GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %s/%d",
1012         GST_FOURCC_ARGS (fourcc), str, number);
1013     atom_udta_add_3gp_str_int_tag (udta, fourcc, str, number);
1014   }
1015
1016   g_free (str);
1017 }
1018
1019 static void
1020 gst_qt_mux_add_3gp_date (GstQTMux * qtmux, const GstTagList * list,
1021     AtomUDTA * udta, const char *tag, const char *tag2, guint32 fourcc)
1022 {
1023   GDate *date = NULL;
1024   GDateYear year;
1025
1026   g_return_if_fail (gst_tag_get_type (tag) == G_TYPE_DATE);
1027
1028   if (!gst_tag_list_get_date (list, tag, &date) || !date)
1029     return;
1030
1031   year = g_date_get_year (date);
1032   g_date_free (date);
1033
1034   if (year == G_DATE_BAD_YEAR) {
1035     GST_WARNING_OBJECT (qtmux, "invalid date in tag");
1036     return;
1037   }
1038
1039   GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %d",
1040       GST_FOURCC_ARGS (fourcc), year);
1041   atom_udta_add_3gp_uint_tag (udta, fourcc, year);
1042 }
1043
1044 static void
1045 gst_qt_mux_add_3gp_location (GstQTMux * qtmux, const GstTagList * list,
1046     AtomUDTA * udta, const char *tag, const char *tag2, guint32 fourcc)
1047 {
1048   gdouble latitude = -360, longitude = -360, altitude = 0;
1049   gchar *location = NULL;
1050   guint8 *data, *ddata;
1051   gint size = 0, len = 0;
1052   gboolean ret = FALSE;
1053
1054   g_return_if_fail (strcmp (tag, GST_TAG_GEO_LOCATION_NAME) == 0);
1055
1056   ret = gst_tag_list_get_string (list, tag, &location);
1057   ret |= gst_tag_list_get_double (list, GST_TAG_GEO_LOCATION_LONGITUDE,
1058       &longitude);
1059   ret |= gst_tag_list_get_double (list, GST_TAG_GEO_LOCATION_LATITUDE,
1060       &latitude);
1061   ret |= gst_tag_list_get_double (list, GST_TAG_GEO_LOCATION_ELEVATION,
1062       &altitude);
1063
1064   if (!ret)
1065     return;
1066
1067   if (location)
1068     len = strlen (location);
1069   size += len + 1 + 2;
1070
1071   /* role + (long, lat, alt) + body + notes */
1072   size += 1 + 3 * 4 + 1 + 1;
1073
1074   data = ddata = g_malloc (size);
1075
1076   /* language tag */
1077   GST_WRITE_UINT16_BE (data, language_code (GST_QT_MUX_DEFAULT_TAG_LANGUAGE));
1078   /* location */
1079   if (location)
1080     memcpy (data + 2, location, len);
1081   GST_WRITE_UINT8 (data + 2 + len, 0);
1082   data += len + 1 + 2;
1083   /* role */
1084   GST_WRITE_UINT8 (data, 0);
1085   /* long, lat, alt */
1086 #define QT_WRITE_SFP32(data, fp) GST_WRITE_UINT32_BE(data, (guint32) ((gint) (fp * 65536.0)))
1087   QT_WRITE_SFP32 (data + 1, longitude);
1088   QT_WRITE_SFP32 (data + 5, latitude);
1089   QT_WRITE_SFP32 (data + 9, altitude);
1090   /* neither astronomical body nor notes */
1091   GST_WRITE_UINT16_BE (data + 13, 0);
1092
1093   GST_DEBUG_OBJECT (qtmux, "Adding tag 'loci'");
1094   atom_udta_add_3gp_tag (udta, fourcc, ddata, size);
1095   g_free (ddata);
1096 }
1097
1098 static void
1099 gst_qt_mux_add_3gp_keywords (GstQTMux * qtmux, const GstTagList * list,
1100     AtomUDTA * udta, const char *tag, const char *tag2, guint32 fourcc)
1101 {
1102   gchar *keywords = NULL;
1103   guint8 *data, *ddata;
1104   gint size = 0, i;
1105   gchar **kwds;
1106
1107   g_return_if_fail (strcmp (tag, GST_TAG_KEYWORDS) == 0);
1108
1109   if (!gst_tag_list_get_string (list, tag, &keywords) || !keywords)
1110     return;
1111
1112   kwds = g_strsplit (keywords, ",", 0);
1113   g_free (keywords);
1114
1115   size = 0;
1116   for (i = 0; kwds[i]; i++) {
1117     /* size byte + null-terminator */
1118     size += strlen (kwds[i]) + 1 + 1;
1119   }
1120
1121   /* language tag + count + keywords */
1122   size += 2 + 1;
1123
1124   data = ddata = g_malloc (size);
1125
1126   /* language tag */
1127   GST_WRITE_UINT16_BE (data, language_code (GST_QT_MUX_DEFAULT_TAG_LANGUAGE));
1128   /* count */
1129   GST_WRITE_UINT8 (data + 2, i);
1130   data += 3;
1131   /* keywords */
1132   for (i = 0; kwds[i]; ++i) {
1133     gint len = strlen (kwds[i]);
1134
1135     GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %s",
1136         GST_FOURCC_ARGS (fourcc), kwds[i]);
1137     /* size */
1138     GST_WRITE_UINT8 (data, len + 1);
1139     memcpy (data + 1, kwds[i], len + 1);
1140     data += len + 2;
1141   }
1142
1143   g_strfreev (kwds);
1144
1145   atom_udta_add_3gp_tag (udta, fourcc, ddata, size);
1146   g_free (ddata);
1147 }
1148
1149 static gboolean
1150 gst_qt_mux_parse_classification_string (GstQTMux * qtmux, const gchar * input,
1151     guint32 * p_fourcc, guint16 * p_table, gchar ** p_content)
1152 {
1153   guint32 fourcc;
1154   gint table;
1155   gint size;
1156   const gchar *data;
1157
1158   data = input;
1159   size = strlen (input);
1160
1161   if (size < 4 + 3 + 1 + 1 + 1) {
1162     /* at least the minimum xxxx://y/z */
1163     GST_WARNING_OBJECT (qtmux, "Classification tag input (%s) too short, "
1164         "ignoring", input);
1165     return FALSE;
1166   }
1167
1168   /* read the fourcc */
1169   memcpy (&fourcc, data, 4);
1170   size -= 4;
1171   data += 4;
1172
1173   if (strncmp (data, "://", 3) != 0) {
1174     goto mismatch;
1175   }
1176   data += 3;
1177   size -= 3;
1178
1179   /* read the table number */
1180   if (sscanf (data, "%d", &table) != 1) {
1181     goto mismatch;
1182   }
1183   if (table < 0) {
1184     GST_WARNING_OBJECT (qtmux, "Invalid table number in classification tag (%d)"
1185         ", table numbers should be positive, ignoring tag", table);
1186     return FALSE;
1187   }
1188
1189   /* find the next / */
1190   while (size > 0 && data[0] != '/') {
1191     data += 1;
1192     size -= 1;
1193   }
1194   if (size == 0) {
1195     goto mismatch;
1196   }
1197   g_assert (data[0] == '/');
1198
1199   /* skip the '/' */
1200   data += 1;
1201   size -= 1;
1202   if (size == 0) {
1203     goto mismatch;
1204   }
1205
1206   /* read up the rest of the string */
1207   *p_content = g_strdup (data);
1208   *p_table = (guint16) table;
1209   *p_fourcc = fourcc;
1210   return TRUE;
1211
1212 mismatch:
1213   {
1214     GST_WARNING_OBJECT (qtmux, "Ignoring classification tag as "
1215         "input (%s) didn't match the expected entitycode://table/content",
1216         input);
1217     return FALSE;
1218   }
1219 }
1220
1221 static void
1222 gst_qt_mux_add_3gp_classification (GstQTMux * qtmux, const GstTagList * list,
1223     AtomUDTA * udta, const char *tag, const char *tag2, guint32 fourcc)
1224 {
1225   gchar *clsf_data = NULL;
1226   gint size = 0;
1227   guint32 entity = 0;
1228   guint16 table = 0;
1229   gchar *content = NULL;
1230   guint8 *data;
1231
1232   g_return_if_fail (strcmp (tag, GST_TAG_3GP_CLASSIFICATION) == 0);
1233
1234   if (!gst_tag_list_get_string (list, tag, &clsf_data) || !clsf_data)
1235     return;
1236
1237   GST_DEBUG_OBJECT (qtmux, "Adding tag %" GST_FOURCC_FORMAT " -> %s",
1238       GST_FOURCC_ARGS (fourcc), clsf_data);
1239
1240   /* parse the string, format is:
1241    * entityfourcc://table/content
1242    */
1243   gst_qt_mux_parse_classification_string (qtmux, clsf_data, &entity, &table,
1244       &content);
1245   g_free (clsf_data);
1246   /* +1 for the \0 */
1247   size = strlen (content) + 1;
1248
1249   /* now we have everything, build the atom
1250    * atom description is at 3GPP TS 26.244 V8.2.0 (2009-09) */
1251   data = g_malloc (4 + 2 + 2 + size);
1252   GST_WRITE_UINT32_LE (data, entity);
1253   GST_WRITE_UINT16_BE (data + 4, (guint16) table);
1254   GST_WRITE_UINT16_BE (data + 6, 0);
1255   memcpy (data + 8, content, size);
1256   g_free (content);
1257
1258   atom_udta_add_3gp_tag (udta, fourcc, data, 4 + 2 + 2 + size);
1259   g_free (data);
1260 }
1261
1262 typedef void (*GstQTMuxAddUdtaTagFunc) (GstQTMux * mux,
1263     const GstTagList * list, AtomUDTA * udta, const char *tag,
1264     const char *tag2, guint32 fourcc);
1265
1266 /*
1267  * Struct to record mappings from gstreamer tags to fourcc codes
1268  */
1269 typedef struct _GstTagToFourcc
1270 {
1271   guint32 fourcc;
1272   const gchar *gsttag;
1273   const gchar *gsttag2;
1274   const GstQTMuxAddUdtaTagFunc func;
1275 } GstTagToFourcc;
1276
1277 /* tag list tags to fourcc matching */
1278 static const GstTagToFourcc tag_matches_mp4[] = {
1279   {FOURCC__alb, GST_TAG_ALBUM, NULL, gst_qt_mux_add_mp4_tag},
1280   {FOURCC_soal, GST_TAG_ALBUM_SORTNAME, NULL, gst_qt_mux_add_mp4_tag},
1281   {FOURCC__ART, GST_TAG_ARTIST, NULL, gst_qt_mux_add_mp4_tag},
1282   {FOURCC_soar, GST_TAG_ARTIST_SORTNAME, NULL, gst_qt_mux_add_mp4_tag},
1283   {FOURCC_aART, GST_TAG_ALBUM_ARTIST, NULL, gst_qt_mux_add_mp4_tag},
1284   {FOURCC_soaa, GST_TAG_ALBUM_ARTIST_SORTNAME, NULL, gst_qt_mux_add_mp4_tag},
1285   {FOURCC__swr, GST_TAG_APPLICATION_NAME, NULL, gst_qt_mux_add_mp4_tag},
1286   {FOURCC__cmt, GST_TAG_COMMENT, NULL, gst_qt_mux_add_mp4_tag},
1287   {FOURCC__wrt, GST_TAG_COMPOSER, NULL, gst_qt_mux_add_mp4_tag},
1288   {FOURCC_soco, GST_TAG_COMPOSER_SORTNAME, NULL, gst_qt_mux_add_mp4_tag},
1289   {FOURCC_tvsh, GST_TAG_SHOW_NAME, NULL, gst_qt_mux_add_mp4_tag},
1290   {FOURCC_sosn, GST_TAG_SHOW_SORTNAME, NULL, gst_qt_mux_add_mp4_tag},
1291   {FOURCC_tvsn, GST_TAG_SHOW_SEASON_NUMBER, NULL, gst_qt_mux_add_mp4_tag},
1292   {FOURCC_tves, GST_TAG_SHOW_EPISODE_NUMBER, NULL, gst_qt_mux_add_mp4_tag},
1293   {FOURCC__gen, GST_TAG_GENRE, NULL, gst_qt_mux_add_mp4_tag},
1294   {FOURCC__nam, GST_TAG_TITLE, NULL, gst_qt_mux_add_mp4_tag},
1295   {FOURCC_sonm, GST_TAG_TITLE_SORTNAME, NULL, gst_qt_mux_add_mp4_tag},
1296   {FOURCC_perf, GST_TAG_PERFORMER, NULL, gst_qt_mux_add_mp4_tag},
1297   {FOURCC__grp, GST_TAG_GROUPING, NULL, gst_qt_mux_add_mp4_tag},
1298   {FOURCC__des, GST_TAG_DESCRIPTION, NULL, gst_qt_mux_add_mp4_tag},
1299   {FOURCC__lyr, GST_TAG_LYRICS, NULL, gst_qt_mux_add_mp4_tag},
1300   {FOURCC__too, GST_TAG_ENCODER, NULL, gst_qt_mux_add_mp4_tag},
1301   {FOURCC_cprt, GST_TAG_COPYRIGHT, NULL, gst_qt_mux_add_mp4_tag},
1302   {FOURCC_keyw, GST_TAG_KEYWORDS, NULL, gst_qt_mux_add_mp4_tag},
1303   {FOURCC__day, GST_TAG_DATE, NULL, gst_qt_mux_add_mp4_date},
1304   {FOURCC_tmpo, GST_TAG_BEATS_PER_MINUTE, NULL, gst_qt_mux_add_mp4_tag},
1305   {FOURCC_trkn, GST_TAG_TRACK_NUMBER, GST_TAG_TRACK_COUNT,
1306       gst_qt_mux_add_mp4_tag},
1307   {FOURCC_disk, GST_TAG_ALBUM_VOLUME_NUMBER, GST_TAG_ALBUM_VOLUME_COUNT,
1308       gst_qt_mux_add_mp4_tag},
1309   {FOURCC_covr, GST_TAG_PREVIEW_IMAGE, NULL, gst_qt_mux_add_mp4_cover},
1310   {FOURCC_covr, GST_TAG_IMAGE, NULL, gst_qt_mux_add_mp4_cover},
1311   {0, NULL,}
1312 };
1313
1314 static const GstTagToFourcc tag_matches_3gp[] = {
1315   {FOURCC_titl, GST_TAG_TITLE, NULL, gst_qt_mux_add_3gp_str},
1316   {FOURCC_dscp, GST_TAG_DESCRIPTION, NULL, gst_qt_mux_add_3gp_str},
1317   {FOURCC_cprt, GST_TAG_COPYRIGHT, NULL, gst_qt_mux_add_3gp_str},
1318   {FOURCC_perf, GST_TAG_ARTIST, NULL, gst_qt_mux_add_3gp_str},
1319   {FOURCC_auth, GST_TAG_COMPOSER, NULL, gst_qt_mux_add_3gp_str},
1320   {FOURCC_gnre, GST_TAG_GENRE, NULL, gst_qt_mux_add_3gp_str},
1321   {FOURCC_kywd, GST_TAG_KEYWORDS, NULL, gst_qt_mux_add_3gp_keywords},
1322   {FOURCC_yrrc, GST_TAG_DATE, NULL, gst_qt_mux_add_3gp_date},
1323   {FOURCC_albm, GST_TAG_ALBUM, GST_TAG_TRACK_NUMBER, gst_qt_mux_add_3gp_str},
1324   {FOURCC_loci, GST_TAG_GEO_LOCATION_NAME, NULL, gst_qt_mux_add_3gp_location},
1325   {FOURCC_clsf, GST_TAG_3GP_CLASSIFICATION, NULL,
1326       gst_qt_mux_add_3gp_classification},
1327   {0, NULL,}
1328 };
1329
1330 /* qtdemux produces these for atoms it cannot parse */
1331 #define GST_QT_DEMUX_PRIVATE_TAG "private-qt-tag"
1332
1333 static void
1334 gst_qt_mux_add_xmp_tags (GstQTMux * qtmux, const GstTagList * list)
1335 {
1336   GstQTMuxClass *qtmux_klass = (GstQTMuxClass *) (G_OBJECT_GET_CLASS (qtmux));
1337   GstBuffer *xmp = NULL;
1338
1339   /* adobe specs only have 'quicktime' and 'mp4',
1340    * but I guess we can extrapolate to gpp.
1341    * Keep mj2 out for now as we don't add any tags for it yet.
1342    * If you have further info about xmp on these formats, please share */
1343   if (qtmux_klass->format == GST_QT_MUX_FORMAT_MJ2)
1344     return;
1345
1346   GST_DEBUG_OBJECT (qtmux, "Adding xmp tags");
1347
1348   if (qtmux_klass->format == GST_QT_MUX_FORMAT_QT) {
1349     xmp = gst_tag_xmp_writer_tag_list_to_xmp_buffer (GST_TAG_XMP_WRITER (qtmux),
1350         list, TRUE);
1351     if (xmp)
1352       atom_udta_add_xmp_tags (&qtmux->moov->udta, xmp);
1353   } else {
1354     AtomInfo *ainfo;
1355     /* for isom/mp4, it is a top level uuid atom */
1356     xmp = gst_tag_xmp_writer_tag_list_to_xmp_buffer (GST_TAG_XMP_WRITER (qtmux),
1357         list, TRUE);
1358     if (xmp) {
1359       ainfo = build_uuid_xmp_atom (xmp);
1360       if (ainfo) {
1361         qtmux->extra_atoms = g_slist_prepend (qtmux->extra_atoms, ainfo);
1362       }
1363     }
1364   }
1365   if (xmp)
1366     gst_buffer_unref (xmp);
1367 }
1368
1369 static void
1370 gst_qt_mux_add_metadata_tags (GstQTMux * qtmux, const GstTagList * list,
1371     AtomUDTA * udta)
1372 {
1373   GstQTMuxClass *qtmux_klass = (GstQTMuxClass *) (G_OBJECT_GET_CLASS (qtmux));
1374   guint32 fourcc;
1375   gint i;
1376   const gchar *tag, *tag2;
1377   const GstTagToFourcc *tag_matches;
1378
1379   switch (qtmux_klass->format) {
1380     case GST_QT_MUX_FORMAT_3GP:
1381       tag_matches = tag_matches_3gp;
1382       break;
1383     case GST_QT_MUX_FORMAT_MJ2:
1384       tag_matches = NULL;
1385       break;
1386     default:
1387       /* sort of iTunes style for mp4 and QT (?) */
1388       tag_matches = tag_matches_mp4;
1389       break;
1390   }
1391
1392   if (!tag_matches)
1393     return;
1394
1395   /* Clear existing tags so we don't add them over and over */
1396   atom_udta_clear_tags (udta);
1397
1398   for (i = 0; tag_matches[i].fourcc; i++) {
1399     fourcc = tag_matches[i].fourcc;
1400     tag = tag_matches[i].gsttag;
1401     tag2 = tag_matches[i].gsttag2;
1402
1403     g_assert (tag_matches[i].func);
1404     tag_matches[i].func (qtmux, list, udta, tag, tag2, fourcc);
1405   }
1406
1407   /* add unparsed blobs if present */
1408   if (gst_tag_exists (GST_QT_DEMUX_PRIVATE_TAG)) {
1409     guint num_tags;
1410
1411     num_tags = gst_tag_list_get_tag_size (list, GST_QT_DEMUX_PRIVATE_TAG);
1412     for (i = 0; i < num_tags; ++i) {
1413       GstSample *sample = NULL;
1414       GstBuffer *buf;
1415       const GstStructure *s;
1416
1417       if (!gst_tag_list_get_sample_index (list, GST_QT_DEMUX_PRIVATE_TAG, i,
1418               &sample))
1419         continue;
1420       buf = gst_sample_get_buffer (sample);
1421
1422       if (buf && (s = gst_sample_get_info (sample))) {
1423         const gchar *style = NULL;
1424         GstMapInfo map;
1425
1426         gst_buffer_map (buf, &map, GST_MAP_READ);
1427         GST_DEBUG_OBJECT (qtmux,
1428             "Found private tag %d/%d; size %" G_GSIZE_FORMAT ", info %"
1429             GST_PTR_FORMAT, i, num_tags, map.size, s);
1430         if (s && (style = gst_structure_get_string (s, "style"))) {
1431           /* try to prevent some style tag ending up into another variant
1432            * (todo: make into a list if more cases) */
1433           if ((strcmp (style, "itunes") == 0 &&
1434                   qtmux_klass->format == GST_QT_MUX_FORMAT_MP4) ||
1435               (strcmp (style, "iso") == 0 &&
1436                   qtmux_klass->format == GST_QT_MUX_FORMAT_3GP)) {
1437             GST_DEBUG_OBJECT (qtmux, "Adding private tag");
1438             atom_udta_add_blob_tag (udta, map.data, map.size);
1439           }
1440         }
1441         gst_buffer_unmap (buf, &map);
1442       }
1443       gst_sample_unref (sample);
1444     }
1445   }
1446
1447   return;
1448 }
1449
1450 /*
1451  * Gets the tagsetter iface taglist and puts the known tags
1452  * into the output stream
1453  */
1454 static void
1455 gst_qt_mux_setup_metadata (GstQTMux * qtmux)
1456 {
1457   const GstTagList *tags = NULL;
1458   GSList *walk;
1459
1460   GST_OBJECT_LOCK (qtmux);
1461   if (qtmux->tags_changed) {
1462     tags = gst_tag_setter_get_tag_list (GST_TAG_SETTER (qtmux));
1463     qtmux->tags_changed = FALSE;
1464   }
1465   GST_OBJECT_UNLOCK (qtmux);
1466
1467   GST_LOG_OBJECT (qtmux, "tags: %" GST_PTR_FORMAT, tags);
1468
1469   if (tags && !gst_tag_list_is_empty (tags)) {
1470     GstTagList *copy = gst_tag_list_copy (tags);
1471
1472     GST_DEBUG_OBJECT (qtmux, "Removing bogus tags");
1473     gst_tag_list_remove_tag (copy, GST_TAG_VIDEO_CODEC);
1474     gst_tag_list_remove_tag (copy, GST_TAG_AUDIO_CODEC);
1475     gst_tag_list_remove_tag (copy, GST_TAG_CONTAINER_FORMAT);
1476
1477     GST_DEBUG_OBJECT (qtmux, "Formatting tags");
1478     gst_qt_mux_add_metadata_tags (qtmux, copy, &qtmux->moov->udta);
1479     gst_qt_mux_add_xmp_tags (qtmux, copy);
1480     gst_tag_list_unref (copy);
1481   } else {
1482     GST_DEBUG_OBJECT (qtmux, "No new tags received");
1483   }
1484
1485   for (walk = qtmux->sinkpads; walk; walk = g_slist_next (walk)) {
1486     GstCollectData *cdata = (GstCollectData *) walk->data;
1487     GstQTPad *qpad = (GstQTPad *) cdata;
1488     GstPad *pad = qpad->collect.pad;
1489
1490     if (qpad->tags_changed && qpad->tags) {
1491       GST_DEBUG_OBJECT (pad, "Adding tags");
1492       gst_tag_list_remove_tag (qpad->tags, GST_TAG_CONTAINER_FORMAT);
1493       gst_qt_mux_add_metadata_tags (qtmux, qpad->tags, &qpad->trak->udta);
1494       qpad->tags_changed = FALSE;
1495       GST_DEBUG_OBJECT (pad, "Tags added");
1496     } else {
1497       GST_DEBUG_OBJECT (pad, "No new tags received");
1498     }
1499   }
1500 }
1501
1502 static inline GstBuffer *
1503 _gst_buffer_new_take_data (guint8 * data, guint size)
1504 {
1505   GstBuffer *buf;
1506
1507   buf = gst_buffer_new ();
1508   gst_buffer_append_memory (buf,
1509       gst_memory_new_wrapped (0, data, size, 0, size, data, g_free));
1510
1511   return buf;
1512 }
1513
1514 static GstFlowReturn
1515 gst_qt_mux_send_buffer (GstQTMux * qtmux, GstBuffer * buf, guint64 * offset,
1516     gboolean mind_fast)
1517 {
1518   GstFlowReturn res;
1519   gsize size;
1520
1521   g_return_val_if_fail (buf != NULL, GST_FLOW_ERROR);
1522
1523   size = gst_buffer_get_size (buf);
1524   GST_LOG_OBJECT (qtmux, "sending buffer size %" G_GSIZE_FORMAT, size);
1525
1526   if (mind_fast && qtmux->fast_start_file) {
1527     GstMapInfo map;
1528     gint ret;
1529
1530     GST_LOG_OBJECT (qtmux, "to temporary file");
1531     gst_buffer_map (buf, &map, GST_MAP_READ);
1532     ret = fwrite (map.data, sizeof (guint8), map.size, qtmux->fast_start_file);
1533     gst_buffer_unmap (buf, &map);
1534     gst_buffer_unref (buf);
1535     if (ret != size)
1536       goto write_error;
1537     else
1538       res = GST_FLOW_OK;
1539   } else {
1540     GST_LOG_OBJECT (qtmux, "downstream");
1541     res = gst_pad_push (qtmux->srcpad, buf);
1542   }
1543
1544   if (G_LIKELY (offset))
1545     *offset += size;
1546
1547   return res;
1548
1549   /* ERRORS */
1550 write_error:
1551   {
1552     GST_ELEMENT_ERROR (qtmux, RESOURCE, WRITE,
1553         ("Failed to write to temporary file"), GST_ERROR_SYSTEM);
1554     return GST_FLOW_ERROR;
1555   }
1556 }
1557
1558 static gboolean
1559 gst_qt_mux_seek_to_beginning (FILE * f)
1560 {
1561 #ifdef HAVE_FSEEKO
1562   if (fseeko (f, (off_t) 0, SEEK_SET) != 0)
1563     return FALSE;
1564 #elif defined (G_OS_UNIX) || defined (G_OS_WIN32)
1565   if (lseek (fileno (f), (off_t) 0, SEEK_SET) == (off_t) - 1)
1566     return FALSE;
1567 #else
1568   if (fseek (f, (long) 0, SEEK_SET) != 0)
1569     return FALSE;
1570 #endif
1571   return TRUE;
1572 }
1573
1574 static GstFlowReturn
1575 gst_qt_mux_send_buffered_data (GstQTMux * qtmux, guint64 * offset)
1576 {
1577   GstFlowReturn ret = GST_FLOW_OK;
1578   GstBuffer *buf = NULL;
1579
1580   if (fflush (qtmux->fast_start_file))
1581     goto flush_failed;
1582
1583   if (!gst_qt_mux_seek_to_beginning (qtmux->fast_start_file))
1584     goto seek_failed;
1585
1586   /* hm, this could all take a really really long time,
1587    * but there may not be another way to get moov atom first
1588    * (somehow optimize copy?) */
1589   GST_DEBUG_OBJECT (qtmux, "Sending buffered data");
1590   while (ret == GST_FLOW_OK) {
1591     const int bufsize = 4096;
1592     GstMapInfo map;
1593     gsize size;
1594
1595     buf = gst_buffer_new_and_alloc (bufsize);
1596     gst_buffer_map (buf, &map, GST_MAP_WRITE);
1597     size = fread (map.data, sizeof (guint8), bufsize, qtmux->fast_start_file);
1598     if (size == 0) {
1599       gst_buffer_unmap (buf, &map);
1600       break;
1601     }
1602     GST_LOG_OBJECT (qtmux, "Pushing buffered buffer of size %d", (gint) size);
1603     gst_buffer_unmap (buf, &map);
1604     if (size != bufsize)
1605       gst_buffer_set_size (buf, size);
1606     ret = gst_qt_mux_send_buffer (qtmux, buf, offset, FALSE);
1607     buf = NULL;
1608   }
1609   if (buf)
1610     gst_buffer_unref (buf);
1611
1612   if (ftruncate (fileno (qtmux->fast_start_file), 0))
1613     goto seek_failed;
1614   if (!gst_qt_mux_seek_to_beginning (qtmux->fast_start_file))
1615     goto seek_failed;
1616
1617   return ret;
1618
1619   /* ERRORS */
1620 flush_failed:
1621   {
1622     GST_ELEMENT_ERROR (qtmux, RESOURCE, WRITE,
1623         ("Failed to flush temporary file"), GST_ERROR_SYSTEM);
1624     ret = GST_FLOW_ERROR;
1625     goto fail;
1626   }
1627 seek_failed:
1628   {
1629     GST_ELEMENT_ERROR (qtmux, RESOURCE, SEEK,
1630         ("Failed to seek temporary file"), GST_ERROR_SYSTEM);
1631     ret = GST_FLOW_ERROR;
1632     goto fail;
1633   }
1634 fail:
1635   {
1636     /* clear descriptor so we don't remove temp file later on,
1637      * might be possible to recover */
1638     fclose (qtmux->fast_start_file);
1639     qtmux->fast_start_file = NULL;
1640     return ret;
1641   }
1642 }
1643
1644 /*
1645  * Sends the initial mdat atom fields (size fields and fourcc type),
1646  * the subsequent buffers are considered part of it's data.
1647  * As we can't predict the amount of data that we are going to place in mdat
1648  * we need to record the position of the size field in the stream so we can
1649  * seek back to it later and update when the streams have finished.
1650  */
1651 static GstFlowReturn
1652 gst_qt_mux_send_mdat_header (GstQTMux * qtmux, guint64 * off, guint64 size,
1653     gboolean extended, gboolean fsync_after)
1654 {
1655   GstBuffer *buf;
1656   GstMapInfo map;
1657
1658   GST_DEBUG_OBJECT (qtmux, "Sending mdat's atom header, "
1659       "size %" G_GUINT64_FORMAT, size);
1660
1661   /* if the qtmux state is EOS, really write the mdat, otherwise
1662    * allow size == 0 for a placeholder atom */
1663   if (qtmux->state == GST_QT_MUX_STATE_EOS || size > 0)
1664     size += 8;
1665
1666   if (extended) {
1667     gboolean large_file = (size > MDAT_LARGE_FILE_LIMIT);
1668     /* Always write 16-bytes, but put a free atom first
1669      * if the size is < 4GB. */
1670     buf = gst_buffer_new_and_alloc (16);
1671     gst_buffer_map (buf, &map, GST_MAP_WRITE);
1672
1673     if (large_file) {
1674       /* Write extended mdat header and large_size field */
1675       GST_WRITE_UINT32_BE (map.data, 1);
1676       GST_WRITE_UINT32_LE (map.data + 4, FOURCC_mdat);
1677       GST_WRITE_UINT64_BE (map.data + 8, size + 8);
1678     } else {
1679       /* Write an empty free atom, then standard 32-bit mdat */
1680       GST_WRITE_UINT32_BE (map.data, 8);
1681       GST_WRITE_UINT32_LE (map.data + 4, FOURCC_free);
1682       GST_WRITE_UINT32_BE (map.data + 8, size);
1683       GST_WRITE_UINT32_LE (map.data + 12, FOURCC_mdat);
1684     }
1685     gst_buffer_unmap (buf, &map);
1686   } else {
1687     buf = gst_buffer_new_and_alloc (8);
1688     gst_buffer_map (buf, &map, GST_MAP_WRITE);
1689
1690     /* Vanilla 32-bit mdat */
1691     GST_WRITE_UINT32_BE (map.data, size);
1692     GST_WRITE_UINT32_LE (map.data + 4, FOURCC_mdat);
1693     gst_buffer_unmap (buf, &map);
1694   }
1695
1696   GST_LOG_OBJECT (qtmux, "Pushing mdat header");
1697   if (fsync_after)
1698     GST_BUFFER_FLAG_SET (buf, GST_BUFFER_FLAG_SYNC_AFTER);
1699
1700   return gst_qt_mux_send_buffer (qtmux, buf, off, FALSE);
1701
1702 }
1703
1704 /*
1705  * We get the position of the mdat size field, seek back to it
1706  * and overwrite with the real value
1707  */
1708 static GstFlowReturn
1709 gst_qt_mux_update_mdat_size (GstQTMux * qtmux, guint64 mdat_pos,
1710     guint64 mdat_size, guint64 * offset, gboolean fsync_after)
1711 {
1712   GstSegment segment;
1713
1714   /* We must have recorded the mdat position for this to work */
1715   g_assert (mdat_pos != 0);
1716
1717   /* seek and rewrite the header */
1718   gst_segment_init (&segment, GST_FORMAT_BYTES);
1719   segment.start = mdat_pos;
1720   gst_pad_push_event (qtmux->srcpad, gst_event_new_segment (&segment));
1721
1722   return gst_qt_mux_send_mdat_header (qtmux, offset, mdat_size, TRUE,
1723       fsync_after);
1724 }
1725
1726 static GstFlowReturn
1727 gst_qt_mux_send_ftyp (GstQTMux * qtmux, guint64 * off)
1728 {
1729   GstBuffer *buf;
1730   guint64 size = 0, offset = 0;
1731   guint8 *data = NULL;
1732
1733   GST_DEBUG_OBJECT (qtmux, "Sending ftyp atom");
1734
1735   if (!atom_ftyp_copy_data (qtmux->ftyp, &data, &size, &offset))
1736     goto serialize_error;
1737
1738   buf = _gst_buffer_new_take_data (data, offset);
1739
1740   GST_LOG_OBJECT (qtmux, "Pushing ftyp");
1741   return gst_qt_mux_send_buffer (qtmux, buf, off, FALSE);
1742
1743   /* ERRORS */
1744 serialize_error:
1745   {
1746     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL),
1747         ("Failed to serialize ftyp"));
1748     return GST_FLOW_ERROR;
1749   }
1750 }
1751
1752 static void
1753 gst_qt_mux_prepare_ftyp (GstQTMux * qtmux, AtomFTYP ** p_ftyp,
1754     GstBuffer ** p_prefix)
1755 {
1756   GstQTMuxClass *qtmux_klass = (GstQTMuxClass *) (G_OBJECT_GET_CLASS (qtmux));
1757   guint32 major, version;
1758   GList *comp;
1759   GstBuffer *prefix = NULL;
1760   AtomFTYP *ftyp = NULL;
1761
1762   GST_DEBUG_OBJECT (qtmux, "Preparing ftyp and possible prefix atom");
1763
1764   /* init and send context and ftyp based on current property state */
1765   gst_qt_mux_map_format_to_header (qtmux_klass->format, &prefix, &major,
1766       &version, &comp, qtmux->moov, qtmux->longest_chunk,
1767       qtmux->fast_start_file != NULL);
1768   ftyp = atom_ftyp_new (qtmux->context, major, version, comp);
1769   if (comp)
1770     g_list_free (comp);
1771   if (prefix) {
1772     if (p_prefix)
1773       *p_prefix = prefix;
1774     else
1775       gst_buffer_unref (prefix);
1776   }
1777   *p_ftyp = ftyp;
1778 }
1779
1780 static GstFlowReturn
1781 gst_qt_mux_prepare_and_send_ftyp (GstQTMux * qtmux)
1782 {
1783   GstFlowReturn ret = GST_FLOW_OK;
1784   GstBuffer *prefix = NULL;
1785
1786   GST_DEBUG_OBJECT (qtmux, "Preparing to send ftyp atom");
1787
1788   /* init and send context and ftyp based on current property state */
1789   if (qtmux->ftyp) {
1790     atom_ftyp_free (qtmux->ftyp);
1791     qtmux->ftyp = NULL;
1792   }
1793   gst_qt_mux_prepare_ftyp (qtmux, &qtmux->ftyp, &prefix);
1794   if (prefix) {
1795     ret = gst_qt_mux_send_buffer (qtmux, prefix, &qtmux->header_size, FALSE);
1796     if (ret != GST_FLOW_OK)
1797       return ret;
1798   }
1799   return gst_qt_mux_send_ftyp (qtmux, &qtmux->header_size);
1800 }
1801
1802 static void
1803 gst_qt_mux_set_header_on_caps (GstQTMux * mux, GstBuffer * buf)
1804 {
1805   GstStructure *structure;
1806   GValue array = { 0 };
1807   GValue value = { 0 };
1808   GstCaps *caps, *tcaps;
1809
1810   tcaps = gst_pad_get_current_caps (mux->srcpad);
1811   caps = gst_caps_copy (tcaps);
1812   gst_caps_unref (tcaps);
1813
1814   structure = gst_caps_get_structure (caps, 0);
1815
1816   g_value_init (&array, GST_TYPE_ARRAY);
1817
1818   GST_BUFFER_FLAG_SET (buf, GST_BUFFER_FLAG_HEADER);
1819   g_value_init (&value, GST_TYPE_BUFFER);
1820   gst_value_take_buffer (&value, gst_buffer_ref (buf));
1821   gst_value_array_append_value (&array, &value);
1822   g_value_unset (&value);
1823
1824   gst_structure_set_value (structure, "streamheader", &array);
1825   g_value_unset (&array);
1826   gst_pad_set_caps (mux->srcpad, caps);
1827   gst_caps_unref (caps);
1828 }
1829
1830 /*
1831  * Write out a free space atom. The offset is adjusted by the full
1832  * size, but a smaller buffer is sent
1833  */
1834 static GstFlowReturn
1835 gst_qt_mux_send_free_atom (GstQTMux * qtmux, guint64 * off, guint32 size,
1836     gboolean fsync_after)
1837 {
1838   Atom *node_header;
1839   GstBuffer *buf;
1840   guint8 *data = NULL;
1841   guint64 offset = 0, bsize = 0;
1842   GstFlowReturn ret;
1843
1844   GST_DEBUG_OBJECT (qtmux, "Sending free atom header of size %u", size);
1845
1846   /* We can't make a free space atom smaller than the header */
1847   if (size < 8)
1848     goto too_small;
1849
1850   node_header = g_malloc0 (sizeof (Atom));
1851   node_header->type = FOURCC_free;
1852   node_header->size = size;
1853
1854   bsize = offset = 0;
1855   if (atom_copy_data (node_header, &data, &bsize, &offset) == 0)
1856     goto serialize_error;
1857
1858   buf = _gst_buffer_new_take_data (data, offset);
1859   g_free (node_header);
1860
1861   if (fsync_after)
1862     GST_BUFFER_FLAG_SET (buf, GST_BUFFER_FLAG_SYNC_AFTER);
1863
1864   GST_LOG_OBJECT (qtmux, "Pushing free atom");
1865   ret = gst_qt_mux_send_buffer (qtmux, buf, off, FALSE);
1866
1867   if (off) {
1868     GstSegment segment;
1869
1870     *off += size - 8;
1871
1872     /* Make sure downstream position ends up at the end of this free box */
1873     gst_segment_init (&segment, GST_FORMAT_BYTES);
1874     segment.start = *off;
1875     gst_pad_push_event (qtmux->srcpad, gst_event_new_segment (&segment));
1876   }
1877
1878   return ret;
1879
1880   /* ERRORS */
1881 too_small:
1882   {
1883     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL),
1884         ("Not enough free reserved space"));
1885     return GST_FLOW_ERROR;
1886   }
1887 serialize_error:
1888   {
1889     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL),
1890         ("Failed to serialize mdat"));
1891     g_free (node_header);
1892     return GST_FLOW_ERROR;
1893   }
1894 }
1895
1896 static void
1897 gst_qt_mux_configure_moov (GstQTMux * qtmux)
1898 {
1899   gboolean fragmented = FALSE;
1900   guint32 timescale;
1901
1902   GST_OBJECT_LOCK (qtmux);
1903   timescale = qtmux->timescale;
1904   if (qtmux->mux_mode == GST_QT_MUX_MODE_FRAGMENTED ||
1905       qtmux->mux_mode == GST_QT_MUX_MODE_FRAGMENTED_STREAMABLE)
1906     fragmented = TRUE;
1907   GST_OBJECT_UNLOCK (qtmux);
1908
1909   /* inform lower layers of our property wishes, and determine duration.
1910    * Let moov take care of this using its list of traks;
1911    * so that released pads are also included */
1912   GST_DEBUG_OBJECT (qtmux, "Updating timescale to %" G_GUINT32_FORMAT,
1913       timescale);
1914   atom_moov_update_timescale (qtmux->moov, timescale);
1915   atom_moov_set_fragmented (qtmux->moov, fragmented);
1916
1917   atom_moov_update_duration (qtmux->moov);
1918 }
1919
1920 static GstFlowReturn
1921 gst_qt_mux_send_moov (GstQTMux * qtmux, guint64 * _offset,
1922     guint64 padded_moov_size, gboolean mind_fast, gboolean fsync_after)
1923 {
1924   guint64 offset = 0, size = 0;
1925   guint8 *data;
1926   GstBuffer *buf;
1927   GstFlowReturn ret = GST_FLOW_OK;
1928
1929   /* serialize moov */
1930   offset = size = 0;
1931   data = NULL;
1932   GST_LOG_OBJECT (qtmux, "Copying movie header into buffer");
1933   if (!atom_moov_copy_data (qtmux->moov, &data, &size, &offset))
1934     goto serialize_error;
1935   qtmux->last_moov_size = offset;
1936
1937   /* Check we have enough reserved space for this and a Free atom */
1938   if (padded_moov_size > 0 && offset + 8 > padded_moov_size)
1939     goto too_small_reserved;
1940   buf = _gst_buffer_new_take_data (data, offset);
1941   GST_DEBUG_OBJECT (qtmux, "Pushing moov atoms");
1942
1943   /* If at EOS, this is the final moov, put in the streamheader
1944    * (apparently used by a flumotion util) */
1945   if (qtmux->state == GST_QT_MUX_STATE_EOS)
1946     gst_qt_mux_set_header_on_caps (qtmux, buf);
1947
1948   if (fsync_after)
1949     GST_BUFFER_FLAG_SET (buf, GST_BUFFER_FLAG_SYNC_AFTER);
1950   ret = gst_qt_mux_send_buffer (qtmux, buf, _offset, mind_fast);
1951
1952   /* Write out a free atom if needed */
1953   if (ret == GST_FLOW_OK && offset < padded_moov_size) {
1954     GST_LOG_OBJECT (qtmux, "Writing out free atom of size %u",
1955         (guint32) (padded_moov_size - offset));
1956     ret =
1957         gst_qt_mux_send_free_atom (qtmux, _offset, padded_moov_size - offset,
1958         fsync_after);
1959   }
1960
1961   return ret;
1962 too_small_reserved:
1963   {
1964     GST_ELEMENT_ERROR (qtmux, STREAM, MUX,
1965         ("Not enough free reserved header space"),
1966         ("Needed %" G_GUINT64_FORMAT " bytes, reserved %" G_GUINT64_FORMAT,
1967             offset, padded_moov_size));
1968     return GST_FLOW_ERROR;
1969   }
1970 serialize_error:
1971   {
1972     g_free (data);
1973     return GST_FLOW_ERROR;
1974   }
1975 }
1976
1977 /* either calculates size of extra atoms or pushes them */
1978 static GstFlowReturn
1979 gst_qt_mux_send_extra_atoms (GstQTMux * qtmux, gboolean send, guint64 * offset,
1980     gboolean mind_fast)
1981 {
1982   GSList *walk;
1983   guint64 loffset = 0, size = 0;
1984   guint8 *data;
1985   GstFlowReturn ret = GST_FLOW_OK;
1986
1987   for (walk = qtmux->extra_atoms; walk; walk = g_slist_next (walk)) {
1988     AtomInfo *ainfo = (AtomInfo *) walk->data;
1989
1990     loffset = size = 0;
1991     data = NULL;
1992     if (!ainfo->copy_data_func (ainfo->atom,
1993             send ? &data : NULL, &size, &loffset))
1994       goto serialize_error;
1995
1996     if (send) {
1997       GstBuffer *buf;
1998
1999       GST_DEBUG_OBJECT (qtmux,
2000           "Pushing extra top-level atom %" GST_FOURCC_FORMAT,
2001           GST_FOURCC_ARGS (ainfo->atom->type));
2002       buf = _gst_buffer_new_take_data (data, loffset);
2003       ret = gst_qt_mux_send_buffer (qtmux, buf, offset, FALSE);
2004       if (ret != GST_FLOW_OK)
2005         break;
2006     } else {
2007       if (offset)
2008         *offset += loffset;
2009     }
2010   }
2011
2012   return ret;
2013
2014 serialize_error:
2015   {
2016     g_free (data);
2017     return GST_FLOW_ERROR;
2018   }
2019 }
2020
2021 static gboolean
2022 gst_qt_mux_downstream_is_seekable (GstQTMux * qtmux)
2023 {
2024   gboolean seekable = FALSE;
2025   GstQuery *query = gst_query_new_seeking (GST_FORMAT_BYTES);
2026
2027   if (gst_pad_peer_query (qtmux->srcpad, query)) {
2028     gst_query_parse_seeking (query, NULL, &seekable, NULL, NULL);
2029     GST_INFO_OBJECT (qtmux, "downstream is %sseekable", seekable ? "" : "not ");
2030   } else {
2031     /* have to assume seeking is not supported if query not handled downstream */
2032     GST_WARNING_OBJECT (qtmux, "downstream did not handle seeking query");
2033     seekable = FALSE;
2034   }
2035   gst_query_unref (query);
2036
2037   return seekable;
2038 }
2039
2040 static void
2041 gst_qt_mux_prepare_moov_recovery (GstQTMux * qtmux)
2042 {
2043   GSList *walk;
2044   gboolean fail = FALSE;
2045   AtomFTYP *ftyp = NULL;
2046   GstBuffer *prefix = NULL;
2047
2048   GST_DEBUG_OBJECT (qtmux, "Opening moov recovery file: %s",
2049       qtmux->moov_recov_file_path);
2050
2051   qtmux->moov_recov_file = g_fopen (qtmux->moov_recov_file_path, "wb+");
2052   if (qtmux->moov_recov_file == NULL) {
2053     GST_WARNING_OBJECT (qtmux, "Failed to open moov recovery file in %s",
2054         qtmux->moov_recov_file_path);
2055     return;
2056   }
2057
2058   gst_qt_mux_prepare_ftyp (qtmux, &ftyp, &prefix);
2059
2060   if (!atoms_recov_write_headers (qtmux->moov_recov_file, ftyp, prefix,
2061           qtmux->moov, qtmux->timescale, g_slist_length (qtmux->sinkpads))) {
2062     GST_WARNING_OBJECT (qtmux, "Failed to write moov recovery file " "headers");
2063     goto fail;
2064   }
2065
2066   atom_ftyp_free (ftyp);
2067   if (prefix)
2068     gst_buffer_unref (prefix);
2069
2070   for (walk = qtmux->sinkpads; walk && !fail; walk = g_slist_next (walk)) {
2071     GstCollectData *cdata = (GstCollectData *) walk->data;
2072     GstQTPad *qpad = (GstQTPad *) cdata;
2073     /* write info for each stream */
2074     fail = atoms_recov_write_trak_info (qtmux->moov_recov_file, qpad->trak);
2075     if (fail) {
2076       GST_WARNING_OBJECT (qtmux, "Failed to write trak info to recovery "
2077           "file");
2078       break;
2079     }
2080   }
2081
2082 fail:
2083   /* cleanup */
2084   fclose (qtmux->moov_recov_file);
2085   qtmux->moov_recov_file = NULL;
2086 }
2087
2088 static GstFlowReturn
2089 gst_qt_mux_start_file (GstQTMux * qtmux)
2090 {
2091   GstQTMuxClass *qtmux_klass = (GstQTMuxClass *) (G_OBJECT_GET_CLASS (qtmux));
2092   GstFlowReturn ret = GST_FLOW_OK;
2093   GstCaps *caps;
2094   GstSegment segment;
2095   gchar s_id[32];
2096   GstClockTime reserved_max_duration;
2097   guint reserved_bytes_per_sec_per_trak;
2098
2099   GST_DEBUG_OBJECT (qtmux, "starting file");
2100
2101   GST_OBJECT_LOCK (qtmux);
2102   reserved_max_duration = qtmux->reserved_max_duration;
2103   reserved_bytes_per_sec_per_trak = qtmux->reserved_bytes_per_sec_per_trak;
2104   GST_OBJECT_UNLOCK (qtmux);
2105
2106   /* stream-start (FIXME: create id based on input ids) */
2107   g_snprintf (s_id, sizeof (s_id), "qtmux-%08x", g_random_int ());
2108   gst_pad_push_event (qtmux->srcpad, gst_event_new_stream_start (s_id));
2109
2110   caps = gst_caps_copy (gst_pad_get_pad_template_caps (qtmux->srcpad));
2111   /* qtmux has structure with and without variant, remove all but the first */
2112   while (gst_caps_get_size (caps) > 1)
2113     gst_caps_remove_structure (caps, 1);
2114   gst_pad_set_caps (qtmux->srcpad, caps);
2115   gst_caps_unref (caps);
2116
2117   /* Default is 'normal' mode */
2118   qtmux->mux_mode = GST_QT_MUX_MODE_MOOV_AT_END;
2119
2120   /* Require a sensible fragment duration when muxing
2121    * using the ISML muxer */
2122   if (qtmux_klass->format == GST_QT_MUX_FORMAT_ISML &&
2123       qtmux->fragment_duration == 0)
2124     goto invalid_isml;
2125
2126   if (qtmux->fragment_duration > 0) {
2127     if (qtmux->streamable)
2128       qtmux->mux_mode = GST_QT_MUX_MODE_FRAGMENTED_STREAMABLE;
2129     else
2130       qtmux->mux_mode = GST_QT_MUX_MODE_FRAGMENTED;
2131   } else if (qtmux->fast_start) {
2132     qtmux->mux_mode = GST_QT_MUX_MODE_FAST_START;
2133   } else if (reserved_max_duration != GST_CLOCK_TIME_NONE) {
2134     qtmux->mux_mode = GST_QT_MUX_MODE_ROBUST_RECORDING;
2135   }
2136
2137   switch (qtmux->mux_mode) {
2138     case GST_QT_MUX_MODE_MOOV_AT_END:
2139     case GST_QT_MUX_MODE_ROBUST_RECORDING:
2140       /* We have to be able to seek to rewrite the mdat header, or any
2141        * moov atom we write will not be visible in the file, because an
2142        * MDAT with 0 as the size covers the rest of the file. A file
2143        * with no moov is not playable, so error out now. */
2144       if (!gst_qt_mux_downstream_is_seekable (qtmux)) {
2145         GST_ELEMENT_ERROR (qtmux, STREAM, MUX,
2146             ("Downstream is not seekable - will not be able to create a playable file"),
2147             (NULL));
2148         return GST_FLOW_ERROR;
2149       }
2150       break;
2151     case GST_QT_MUX_MODE_FAST_START:
2152     case GST_QT_MUX_MODE_FRAGMENTED_STREAMABLE:
2153       break;                    /* Don't need seekability, ignore */
2154     case GST_QT_MUX_MODE_FRAGMENTED:
2155       if (!gst_qt_mux_downstream_is_seekable (qtmux)) {
2156         GST_WARNING_OBJECT (qtmux, "downstream is not seekable, but "
2157             "streamable=false. Will ignore that and create streamable output "
2158             "instead");
2159         qtmux->streamable = TRUE;
2160         g_object_notify (G_OBJECT (qtmux), "streamable");
2161       }
2162       break;
2163   }
2164
2165   /* let downstream know we think in BYTES and expect to do seeking later on */
2166   gst_segment_init (&segment, GST_FORMAT_BYTES);
2167   gst_pad_push_event (qtmux->srcpad, gst_event_new_segment (&segment));
2168
2169   GST_OBJECT_LOCK (qtmux);
2170
2171   if (qtmux->timescale == 0) {
2172     guint32 suggested_timescale = 0;
2173     GSList *walk;
2174
2175     /* Calculate a reasonable timescale for the moov:
2176      * If there is video, it is the biggest video track timescale or an even
2177      * multiple of it if it's smaller than 1800.
2178      * Otherwise it is 1800 */
2179     for (walk = qtmux->sinkpads; walk; walk = g_slist_next (walk)) {
2180       GstCollectData *cdata = (GstCollectData *) walk->data;
2181       GstQTPad *qpad = (GstQTPad *) cdata;
2182
2183       if (!qpad->trak)
2184         continue;
2185
2186       /* not video */
2187       if (!qpad->trak->mdia.minf.vmhd)
2188         continue;
2189
2190       suggested_timescale =
2191           MAX (qpad->trak->mdia.mdhd.time_info.timescale, suggested_timescale);
2192     }
2193
2194     if (suggested_timescale == 0)
2195       suggested_timescale = 1800;
2196
2197     while (suggested_timescale < 1800)
2198       suggested_timescale *= 2;
2199
2200     qtmux->timescale = suggested_timescale;
2201   }
2202
2203   /* initialize our moov recovery file */
2204   if (qtmux->moov_recov_file_path) {
2205     gst_qt_mux_prepare_moov_recovery (qtmux);
2206   }
2207
2208   /* Make sure the first time we update the moov, we'll
2209    * include any tagsetter tags */
2210   qtmux->tags_changed = TRUE;
2211
2212   GST_OBJECT_UNLOCK (qtmux);
2213
2214   /*
2215    * send mdat header if already needed, and mark position for later update.
2216    * We don't send ftyp now if we are on fast start mode, because we can
2217    * better fine tune using the information we gather to create the whole moov
2218    * atom.
2219    */
2220   switch (qtmux->mux_mode) {
2221     case GST_QT_MUX_MODE_MOOV_AT_END:
2222       ret = gst_qt_mux_prepare_and_send_ftyp (qtmux);
2223       if (ret != GST_FLOW_OK)
2224         break;
2225
2226       /* Store this as the mdat offset for later updating
2227        * when we write the moov */
2228       qtmux->mdat_pos = qtmux->header_size;
2229       /* extended atom in case we go over 4GB while writing and need
2230        * the full 64-bit atom */
2231       ret =
2232           gst_qt_mux_send_mdat_header (qtmux, &qtmux->header_size, 0, TRUE,
2233           FALSE);
2234       break;
2235     case GST_QT_MUX_MODE_ROBUST_RECORDING:
2236
2237       ret = gst_qt_mux_prepare_and_send_ftyp (qtmux);
2238       if (ret != GST_FLOW_OK)
2239         break;
2240
2241       /* Pad ftyp out to an 8-byte boundary before starting the moov
2242        * ping pong region. It should be well less than 1 disk sector,
2243        * unless there's a bajillion compatible types listed,
2244        * but let's be sure the free atom doesn't cross a sector
2245        * boundary anyway */
2246       if (qtmux->header_size % 8) {
2247         /* Extra 8 bytes for the padding free atom header */
2248         guint padding = (guint) (16 - (qtmux->header_size % 8));
2249         GST_LOG_OBJECT (qtmux, "Rounding ftyp by %u bytes", padding);
2250         ret =
2251             gst_qt_mux_send_free_atom (qtmux, &qtmux->header_size, padding,
2252             FALSE);
2253         if (ret != GST_FLOW_OK)
2254           return ret;
2255       }
2256
2257       /* Store this as the moov offset for later updating.
2258        * We record mdat position below */
2259       qtmux->moov_pos = qtmux->header_size;
2260
2261       /* Set up the initial 'ping' state of the ping-pong buffers */
2262       qtmux->reserved_moov_first_active = TRUE;
2263
2264       gst_qt_mux_configure_moov (qtmux);
2265       gst_qt_mux_setup_metadata (qtmux);
2266       /* Empty free atom to begin, starting on an 8-byte boundary */
2267       ret = gst_qt_mux_send_free_atom (qtmux, &qtmux->header_size, 8, FALSE);
2268       if (ret != GST_FLOW_OK)
2269         return ret;
2270       /* Moov header, not padded yet */
2271       ret = gst_qt_mux_send_moov (qtmux, &qtmux->header_size, 0, FALSE, FALSE);
2272       if (ret != GST_FLOW_OK)
2273         return ret;
2274       /* The moov we just sent contains the 'base' size of the moov, before
2275        * we put in any time-dependent per-trak data. Use that to make
2276        * a good estimate of how much extra to reserve */
2277       /* Calculate how much space to reserve for our MOOV atom.
2278        * We actually reserve twice that, for ping-pong buffers */
2279       qtmux->base_moov_size = qtmux->last_moov_size;
2280       GST_LOG_OBJECT (qtmux, "Base moov size is %u before any indexes",
2281           qtmux->base_moov_size);
2282       qtmux->reserved_moov_size = qtmux->base_moov_size +
2283           gst_util_uint64_scale (reserved_max_duration,
2284           reserved_bytes_per_sec_per_trak *
2285           atom_moov_get_trak_count (qtmux->moov), GST_SECOND);
2286
2287       /* Need space for at least 4 atom headers. More really, but
2288        * this as an absolute minimum */
2289       if (qtmux->reserved_moov_size < 4 * 8)
2290         goto reserved_moov_too_small;
2291
2292       GST_DEBUG_OBJECT (qtmux, "reserving header area of size %u",
2293           2 * qtmux->reserved_moov_size + 16);
2294
2295       GST_OBJECT_LOCK (qtmux);
2296       qtmux->reserved_duration_remaining =
2297           gst_util_uint64_scale (qtmux->reserved_moov_size -
2298           qtmux->base_moov_size, GST_SECOND,
2299           reserved_bytes_per_sec_per_trak *
2300           atom_moov_get_trak_count (qtmux->moov));
2301       GST_OBJECT_UNLOCK (qtmux);
2302
2303       /* Now that we know how much reserved space is targetted,
2304        * output a free atom to fill the extra reserved */
2305       ret = gst_qt_mux_send_free_atom (qtmux, &qtmux->header_size,
2306           qtmux->reserved_moov_size - qtmux->base_moov_size, FALSE);
2307       if (ret != GST_FLOW_OK)
2308         return ret;
2309
2310       /* Then a free atom containing 'pong' buffer, with an
2311        * extra 8 bytes to account for the free atom header itself */
2312       ret = gst_qt_mux_send_free_atom (qtmux, &qtmux->header_size,
2313           qtmux->reserved_moov_size + 8, FALSE);
2314       if (ret != GST_FLOW_OK)
2315         return ret;
2316
2317       /* extra atoms go after the free/moov(s), before the mdat */
2318       ret =
2319           gst_qt_mux_send_extra_atoms (qtmux, TRUE, &qtmux->header_size, FALSE);
2320       if (ret != GST_FLOW_OK)
2321         return ret;
2322
2323       qtmux->mdat_pos = qtmux->header_size;
2324       /* extended atom in case we go over 4GB while writing and need
2325        * the full 64-bit atom */
2326       ret =
2327           gst_qt_mux_send_mdat_header (qtmux, &qtmux->header_size, 0, TRUE,
2328           FALSE);
2329       break;
2330     case GST_QT_MUX_MODE_FAST_START:
2331       GST_OBJECT_LOCK (qtmux);
2332       qtmux->fast_start_file = g_fopen (qtmux->fast_start_file_path, "wb+");
2333       if (!qtmux->fast_start_file)
2334         goto open_failed;
2335       GST_OBJECT_UNLOCK (qtmux);
2336       /* send a dummy buffer for preroll */
2337       ret = gst_qt_mux_send_buffer (qtmux, gst_buffer_new (), NULL, FALSE);
2338       break;
2339     case GST_QT_MUX_MODE_FRAGMENTED:
2340     case GST_QT_MUX_MODE_FRAGMENTED_STREAMABLE:
2341       ret = gst_qt_mux_prepare_and_send_ftyp (qtmux);
2342       if (ret != GST_FLOW_OK)
2343         break;
2344       /* store the moov pos so we can update the duration later
2345        * in non-streamable mode */
2346       qtmux->moov_pos = qtmux->header_size;
2347
2348       GST_DEBUG_OBJECT (qtmux, "fragment duration %d ms, writing headers",
2349           qtmux->fragment_duration);
2350       /* also used as snapshot marker to indicate fragmented file */
2351       qtmux->fragment_sequence = 1;
2352       /* prepare moov and/or tags */
2353       gst_qt_mux_configure_moov (qtmux);
2354       gst_qt_mux_setup_metadata (qtmux);
2355       ret = gst_qt_mux_send_moov (qtmux, &qtmux->header_size, 0, FALSE, FALSE);
2356       if (ret != GST_FLOW_OK)
2357         return ret;
2358       /* extra atoms */
2359       ret =
2360           gst_qt_mux_send_extra_atoms (qtmux, TRUE, &qtmux->header_size, FALSE);
2361       if (ret != GST_FLOW_OK)
2362         break;
2363       /* prepare index if not streamable */
2364       if (qtmux->mux_mode == GST_QT_MUX_MODE_FRAGMENTED)
2365         qtmux->mfra = atom_mfra_new (qtmux->context);
2366       break;
2367   }
2368
2369   return ret;
2370   /* ERRORS */
2371 invalid_isml:
2372   {
2373     GST_ELEMENT_ERROR (qtmux, STREAM, MUX,
2374         ("Cannot create an ISML file with 0 fragment duration"), (NULL));
2375     return GST_FLOW_ERROR;
2376   }
2377 reserved_moov_too_small:
2378   {
2379     GST_ELEMENT_ERROR (qtmux, STREAM, MUX,
2380         ("Not enough reserved space for creating headers"), (NULL));
2381     return GST_FLOW_ERROR;
2382   }
2383 open_failed:
2384   {
2385     GST_ELEMENT_ERROR (qtmux, RESOURCE, OPEN_READ_WRITE,
2386         (("Could not open temporary file \"%s\""),
2387             qtmux->fast_start_file_path), GST_ERROR_SYSTEM);
2388     GST_OBJECT_UNLOCK (qtmux);
2389     return GST_FLOW_ERROR;
2390   }
2391 }
2392
2393 static GstFlowReturn
2394 gst_qt_mux_send_last_buffers (GstQTMux * qtmux)
2395 {
2396   GstFlowReturn ret = GST_FLOW_OK;
2397   GSList *walk;
2398
2399   for (walk = qtmux->collect->data; walk; walk = g_slist_next (walk)) {
2400     GstCollectData *cdata = (GstCollectData *) walk->data;
2401     GstQTPad *qtpad = (GstQTPad *) cdata;
2402
2403     /* avoid add_buffer complaining if not negotiated
2404      * in which case no buffers either, so skipping */
2405     if (!qtpad->fourcc) {
2406       GST_DEBUG_OBJECT (qtmux, "Pad %s has never had buffers",
2407           GST_PAD_NAME (qtpad->collect.pad));
2408       continue;
2409     }
2410
2411     /* send last buffer; also flushes possibly queued buffers/ts */
2412     GST_DEBUG_OBJECT (qtmux, "Sending the last buffer for pad %s",
2413         GST_PAD_NAME (qtpad->collect.pad));
2414     ret = gst_qt_mux_add_buffer (qtmux, qtpad, NULL);
2415     if (ret != GST_FLOW_OK) {
2416       GST_WARNING_OBJECT (qtmux, "Failed to send last buffer for %s, "
2417           "flow return: %s", GST_PAD_NAME (qtpad->collect.pad),
2418           gst_flow_get_name (ret));
2419     }
2420   }
2421
2422   return ret;
2423 }
2424
2425 static void
2426 gst_qt_mux_update_global_statistics (GstQTMux * qtmux)
2427 {
2428   GSList *walk;
2429
2430   /* for setting some subtitles fields */
2431   guint max_width = 0;
2432   guint max_height = 0;
2433
2434   qtmux->first_ts = qtmux->last_dts = GST_CLOCK_TIME_NONE;
2435
2436   for (walk = qtmux->collect->data; walk; walk = g_slist_next (walk)) {
2437     GstCollectData *cdata = (GstCollectData *) walk->data;
2438     GstQTPad *qtpad = (GstQTPad *) cdata;
2439
2440     if (!qtpad->fourcc) {
2441       GST_DEBUG_OBJECT (qtmux, "Pad %s has never had buffers",
2442           GST_PAD_NAME (qtpad->collect.pad));
2443       continue;
2444     }
2445
2446     /* having flushed above, can check for buffers now */
2447     if (GST_CLOCK_TIME_IS_VALID (qtpad->first_ts)) {
2448       /* determine max stream duration */
2449       if (!GST_CLOCK_TIME_IS_VALID (qtmux->last_dts)
2450           || qtpad->last_dts > qtmux->last_dts) {
2451         qtmux->last_dts = qtpad->last_dts;
2452       }
2453       if (!GST_CLOCK_TIME_IS_VALID (qtmux->first_ts)
2454           || qtpad->first_ts < qtmux->first_ts) {
2455         qtmux->first_ts = qtpad->first_ts;
2456       }
2457     }
2458
2459     /* subtitles need to know the video width/height,
2460      * it is stored shifted 16 bits to the left according to the
2461      * spec */
2462     max_width = MAX (max_width, (qtpad->trak->tkhd.width >> 16));
2463     max_height = MAX (max_height, (qtpad->trak->tkhd.height >> 16));
2464
2465     /* update average bitrate of streams if needed */
2466     {
2467       guint32 avgbitrate = 0;
2468       guint32 maxbitrate = qtpad->max_bitrate;
2469
2470       if (qtpad->avg_bitrate)
2471         avgbitrate = qtpad->avg_bitrate;
2472       else if (qtpad->total_duration > 0)
2473         avgbitrate = (guint32) gst_util_uint64_scale_round (qtpad->total_bytes,
2474             8 * GST_SECOND, qtpad->total_duration);
2475
2476       atom_trak_update_bitrates (qtpad->trak, avgbitrate, maxbitrate);
2477     }
2478   }
2479
2480   /* need to update values on subtitle traks now that we know the
2481    * max width and height */
2482   for (walk = qtmux->collect->data; walk; walk = g_slist_next (walk)) {
2483     GstCollectData *cdata = (GstCollectData *) walk->data;
2484     GstQTPad *qtpad = (GstQTPad *) cdata;
2485
2486     if (!qtpad->fourcc) {
2487       GST_DEBUG_OBJECT (qtmux, "Pad %s has never had buffers",
2488           GST_PAD_NAME (qtpad->collect.pad));
2489       continue;
2490     }
2491
2492     if (qtpad->fourcc == FOURCC_tx3g) {
2493       atom_trak_tx3g_update_dimension (qtpad->trak, max_width, max_height);
2494     }
2495   }
2496 }
2497
2498 /* Called after gst_qt_mux_update_global_statistics() updates the
2499  * first_ts tracking, to create/set edit lists for delayed streams */
2500 static void
2501 gst_qt_mux_update_edit_lists (GstQTMux * qtmux)
2502 {
2503   GSList *walk;
2504
2505   GST_DEBUG_OBJECT (qtmux, "Media first ts selected: %" GST_TIME_FORMAT,
2506       GST_TIME_ARGS (qtmux->first_ts));
2507   /* add/update EDTSs for late streams. configure_moov will have
2508    * set the trak durations above by summing the sample tables,
2509    * here we extend that if needing to insert an empty segment */
2510   for (walk = qtmux->collect->data; walk; walk = g_slist_next (walk)) {
2511     GstCollectData *cdata = (GstCollectData *) walk->data;
2512     GstQTPad *qtpad = (GstQTPad *) cdata;
2513
2514     atom_trak_edts_clear (qtpad->trak);
2515
2516     if (GST_CLOCK_TIME_IS_VALID (qtpad->first_ts)) {
2517       guint32 lateness = 0;
2518       guint32 duration = qtpad->trak->tkhd.duration;
2519       gboolean has_gap;
2520
2521       has_gap = (qtpad->first_ts > (qtmux->first_ts + qtpad->dts_adjustment));
2522
2523       if (has_gap) {
2524         GstClockTime diff;
2525
2526         diff = qtpad->first_ts - (qtmux->first_ts + qtpad->dts_adjustment);
2527         lateness = gst_util_uint64_scale_round (diff,
2528             qtmux->timescale, GST_SECOND);
2529
2530         if (lateness > 0) {
2531           GST_DEBUG_OBJECT (qtmux,
2532               "Pad %s is a late stream by %" GST_TIME_FORMAT,
2533               GST_PAD_NAME (qtpad->collect.pad), GST_TIME_ARGS (lateness));
2534
2535           atom_trak_set_elst_entry (qtpad->trak, 0, lateness, (guint32) - 1,
2536               (guint32) (1 * 65536.0));
2537         }
2538       }
2539
2540       /* Always write an edit list for the whole track. In general this is not
2541        * necessary except for the case of having a gap or DTS adjustment but
2542        * it allows to give the whole track's duration in the usually more
2543        * accurate media timescale
2544        */
2545       {
2546         GstClockTime ctts = 0;
2547         guint32 media_start;
2548
2549         if (qtpad->first_ts > qtpad->first_dts)
2550           ctts = qtpad->first_ts - qtpad->first_dts;
2551
2552         media_start = gst_util_uint64_scale_round (ctts,
2553             atom_trak_get_timescale (qtpad->trak), GST_SECOND);
2554
2555         atom_trak_set_elst_entry (qtpad->trak, 1, duration, media_start,
2556             (guint32) (1 * 65536.0));
2557       }
2558
2559       /* need to add the empty time to the trak duration */
2560       duration += lateness;
2561       qtpad->trak->tkhd.duration = duration;
2562       if (qtpad->tc_trak) {
2563         qtpad->tc_trak->tkhd.duration = duration;
2564         qtpad->tc_trak->mdia.mdhd.time_info.duration = duration;
2565       }
2566
2567       /* And possibly grow the moov duration */
2568       if (duration > qtmux->moov->mvhd.time_info.duration) {
2569         qtmux->moov->mvhd.time_info.duration = duration;
2570         qtmux->moov->mvex.mehd.fragment_duration = duration;
2571       }
2572     }
2573   }
2574 }
2575
2576 static GstFlowReturn
2577 gst_qt_mux_update_timecode (GstQTMux * qtmux)
2578 {
2579   GstSegment segment;
2580   GstBuffer *buf;
2581   GstMapInfo map;
2582   guint64 offset = qtmux->tc_pos;
2583
2584   g_assert (qtmux->tc_pos != -1);
2585
2586   gst_segment_init (&segment, GST_FORMAT_BYTES);
2587   segment.start = offset;
2588   gst_pad_push_event (qtmux->srcpad, gst_event_new_segment (&segment));
2589
2590   buf = gst_buffer_new_and_alloc (4);
2591   gst_buffer_map (buf, &map, GST_MAP_WRITE);
2592
2593   GST_WRITE_UINT32_BE (map.data,
2594       gst_video_time_code_frames_since_daily_jam (qtmux->first_tc));
2595   gst_buffer_unmap (buf, &map);
2596
2597   /* Reset this value, so the timecode won't be re-rewritten */
2598   qtmux->tc_pos = -1;
2599
2600   return gst_qt_mux_send_buffer (qtmux, buf, &offset, FALSE);
2601 }
2602
2603 static GstFlowReturn
2604 gst_qt_mux_stop_file (GstQTMux * qtmux)
2605 {
2606   gboolean ret = GST_FLOW_OK;
2607   guint64 offset = 0, size = 0;
2608   gboolean large_file;
2609
2610   GST_DEBUG_OBJECT (qtmux, "Updating remaining values and sending last data");
2611
2612   /* pushing last buffers for each pad */
2613   if ((ret = gst_qt_mux_send_last_buffers (qtmux)) != GST_FLOW_OK)
2614     return ret;
2615
2616   if (qtmux->mux_mode == GST_QT_MUX_MODE_FRAGMENTED_STREAMABLE) {
2617     /* Streamable mode; no need to write duration or MFRA */
2618     GST_DEBUG_OBJECT (qtmux, "streamable file; nothing to stop");
2619     return GST_FLOW_OK;
2620   }
2621
2622   gst_qt_mux_update_global_statistics (qtmux);
2623   if (qtmux->tc_pos != -1) {
2624     /* File is being stopped and timecode hasn't been updated. Update it now
2625      * with whatever we have */
2626     ret = gst_qt_mux_update_timecode (qtmux);
2627     if (ret != GST_FLOW_OK)
2628       return ret;
2629   }
2630
2631   switch (qtmux->mux_mode) {
2632     case GST_QT_MUX_MODE_FRAGMENTED:{
2633       GstSegment segment;
2634       guint8 *data = NULL;
2635       GstBuffer *buf;
2636
2637       size = offset = 0;
2638       GST_DEBUG_OBJECT (qtmux, "adding mfra");
2639       if (!atom_mfra_copy_data (qtmux->mfra, &data, &size, &offset))
2640         goto serialize_error;
2641       buf = _gst_buffer_new_take_data (data, offset);
2642       ret = gst_qt_mux_send_buffer (qtmux, buf, NULL, FALSE);
2643       if (ret != GST_FLOW_OK)
2644         return ret;
2645
2646       /* only mvex duration is updated,
2647        * mvhd should be consistent with empty moov
2648        * (but TODO maybe some clients do not handle that well ?) */
2649       qtmux->moov->mvex.mehd.fragment_duration =
2650           gst_util_uint64_scale (qtmux->last_dts, qtmux->timescale, GST_SECOND);
2651       GST_DEBUG_OBJECT (qtmux, "rewriting moov with mvex duration %"
2652           GST_TIME_FORMAT, GST_TIME_ARGS (qtmux->last_dts));
2653       /* seek and rewrite the header */
2654       gst_segment_init (&segment, GST_FORMAT_BYTES);
2655       segment.start = qtmux->moov_pos;
2656       gst_pad_push_event (qtmux->srcpad, gst_event_new_segment (&segment));
2657       /* no need to seek back */
2658       return gst_qt_mux_send_moov (qtmux, NULL, 0, FALSE, FALSE);
2659     }
2660     case GST_QT_MUX_MODE_ROBUST_RECORDING:{
2661       ret = gst_qt_mux_robust_recording_rewrite_moov (qtmux);
2662       if (G_UNLIKELY (ret != GST_FLOW_OK))
2663         return ret;
2664       /* Finalise by writing the final size into the mdat. Up until now
2665        * it's been 0, which means 'rest of the file'
2666        * No need to seek back after this, we won't write any more */
2667       return gst_qt_mux_update_mdat_size (qtmux, qtmux->mdat_pos,
2668           qtmux->mdat_size, NULL, TRUE);
2669     }
2670     default:
2671       break;
2672   }
2673
2674   /* Moov-at-end or fast-start mode from here down */
2675   gst_qt_mux_configure_moov (qtmux);
2676
2677   gst_qt_mux_update_edit_lists (qtmux);
2678
2679   /* tags into file metadata */
2680   gst_qt_mux_setup_metadata (qtmux);
2681
2682   large_file = (qtmux->mdat_size > MDAT_LARGE_FILE_LIMIT);
2683
2684   switch (qtmux->mux_mode) {
2685     case GST_QT_MUX_MODE_FAST_START:{
2686       /* if faststart, update the offset of the atoms in the movie with the offset
2687        * that the movie headers before mdat will cause.
2688        * Also, send the ftyp */
2689       offset = size = 0;
2690
2691       ret = gst_qt_mux_prepare_and_send_ftyp (qtmux);
2692       if (ret != GST_FLOW_OK) {
2693         goto ftyp_error;
2694       }
2695       /* copy into NULL to obtain size */
2696       if (!atom_moov_copy_data (qtmux->moov, NULL, &size, &offset))
2697         goto serialize_error;
2698       GST_DEBUG_OBJECT (qtmux, "calculated moov atom size %" G_GUINT64_FORMAT,
2699           offset);
2700       offset += qtmux->header_size + (large_file ? 16 : 8);
2701
2702       /* sum up with the extra atoms size */
2703       ret = gst_qt_mux_send_extra_atoms (qtmux, FALSE, &offset, FALSE);
2704       if (ret != GST_FLOW_OK)
2705         return ret;
2706       break;
2707     }
2708     default:
2709       offset = qtmux->header_size;
2710       break;
2711   }
2712
2713   /* Now that we know the size of moov + extra atoms, we can adjust
2714    * the chunk offsets stored into the moov */
2715   atom_moov_chunks_set_offset (qtmux->moov, offset);
2716
2717   /* write out moov and extra atoms */
2718   /* note: as of this point, we no longer care about tracking written data size,
2719    * since there is no more use for it anyway */
2720   ret = gst_qt_mux_send_moov (qtmux, NULL, 0, FALSE, FALSE);
2721   if (ret != GST_FLOW_OK)
2722     return ret;
2723
2724   /* extra atoms */
2725   ret = gst_qt_mux_send_extra_atoms (qtmux, TRUE, NULL, FALSE);
2726   if (ret != GST_FLOW_OK)
2727     return ret;
2728
2729   switch (qtmux->mux_mode) {
2730     case GST_QT_MUX_MODE_MOOV_AT_END:
2731     {
2732       /* mdat needs update iff not using faststart */
2733       GST_DEBUG_OBJECT (qtmux, "updating mdat size");
2734       ret = gst_qt_mux_update_mdat_size (qtmux, qtmux->mdat_pos,
2735           qtmux->mdat_size, NULL, FALSE);
2736       /* note; no seeking back to the end of file is done,
2737        * since we no longer write anything anyway */
2738       break;
2739     }
2740     case GST_QT_MUX_MODE_FAST_START:
2741     {
2742       /* send mdat atom and move buffered data into it */
2743       /* mdat_size = accumulated (buffered data) */
2744       ret = gst_qt_mux_send_mdat_header (qtmux, NULL, qtmux->mdat_size,
2745           large_file, FALSE);
2746       if (ret != GST_FLOW_OK)
2747         return ret;
2748       ret = gst_qt_mux_send_buffered_data (qtmux, NULL);
2749       if (ret != GST_FLOW_OK)
2750         return ret;
2751       break;
2752     }
2753     default:
2754       g_assert_not_reached ();
2755   }
2756
2757   return ret;
2758
2759   /* ERRORS */
2760 serialize_error:
2761   {
2762     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL),
2763         ("Failed to serialize moov"));
2764     return GST_FLOW_ERROR;
2765   }
2766 ftyp_error:
2767   {
2768     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL), ("Failed to send ftyp"));
2769     return GST_FLOW_ERROR;
2770   }
2771 }
2772
2773 static GstFlowReturn
2774 gst_qt_mux_pad_fragment_add_buffer (GstQTMux * qtmux, GstQTPad * pad,
2775     GstBuffer * buf, gboolean force, guint32 nsamples, gint64 dts,
2776     guint32 delta, guint32 size, gboolean sync, gint64 pts_offset)
2777 {
2778   GstFlowReturn ret = GST_FLOW_OK;
2779
2780   /* setup if needed */
2781   if (G_UNLIKELY (!pad->traf || force))
2782     goto init;
2783
2784 flush:
2785   /* flush pad fragment if threshold reached,
2786    * or at new keyframe if we should be minding those in the first place */
2787   if (G_UNLIKELY (force || (sync && pad->sync) ||
2788           pad->fragment_duration < (gint64) delta)) {
2789     AtomMOOF *moof;
2790     guint64 size = 0, offset = 0;
2791     guint8 *data = NULL;
2792     GstBuffer *buffer;
2793     guint i, total_size;
2794
2795     /* now we know where moof ends up, update offset in tfra */
2796     if (pad->tfra)
2797       atom_tfra_update_offset (pad->tfra, qtmux->header_size);
2798
2799     moof = atom_moof_new (qtmux->context, qtmux->fragment_sequence);
2800     /* takes ownership */
2801     atom_moof_add_traf (moof, pad->traf);
2802     pad->traf = NULL;
2803     atom_moof_copy_data (moof, &data, &size, &offset);
2804     buffer = _gst_buffer_new_take_data (data, offset);
2805     GST_LOG_OBJECT (qtmux, "writing moof size %" G_GSIZE_FORMAT,
2806         gst_buffer_get_size (buffer));
2807     ret = gst_qt_mux_send_buffer (qtmux, buffer, &qtmux->header_size, FALSE);
2808
2809     /* and actual data */
2810     total_size = 0;
2811     for (i = 0; i < atom_array_get_len (&pad->fragment_buffers); i++) {
2812       total_size +=
2813           gst_buffer_get_size (atom_array_index (&pad->fragment_buffers, i));
2814     }
2815
2816     GST_LOG_OBJECT (qtmux, "writing %d buffers, total_size %d",
2817         atom_array_get_len (&pad->fragment_buffers), total_size);
2818     if (ret == GST_FLOW_OK)
2819       ret = gst_qt_mux_send_mdat_header (qtmux, &qtmux->header_size, total_size,
2820           FALSE, FALSE);
2821     for (i = 0; i < atom_array_get_len (&pad->fragment_buffers); i++) {
2822       if (G_LIKELY (ret == GST_FLOW_OK))
2823         ret = gst_qt_mux_send_buffer (qtmux,
2824             atom_array_index (&pad->fragment_buffers, i), &qtmux->header_size,
2825             FALSE);
2826       else
2827         gst_buffer_unref (atom_array_index (&pad->fragment_buffers, i));
2828     }
2829
2830     atom_array_clear (&pad->fragment_buffers);
2831     atom_moof_free (moof);
2832     qtmux->fragment_sequence++;
2833     force = FALSE;
2834   }
2835
2836 init:
2837   if (G_UNLIKELY (!pad->traf)) {
2838     GST_LOG_OBJECT (qtmux, "setting up new fragment");
2839     pad->traf = atom_traf_new (qtmux->context, atom_trak_get_id (pad->trak));
2840     atom_array_init (&pad->fragment_buffers, 512);
2841     pad->fragment_duration = gst_util_uint64_scale (qtmux->fragment_duration,
2842         atom_trak_get_timescale (pad->trak), 1000);
2843
2844     if (G_UNLIKELY (qtmux->mfra && !pad->tfra)) {
2845       pad->tfra = atom_tfra_new (qtmux->context, atom_trak_get_id (pad->trak));
2846       atom_mfra_add_tfra (qtmux->mfra, pad->tfra);
2847     }
2848     atom_traf_set_base_decode_time (pad->traf, dts);
2849   }
2850
2851   /* add buffer and metadata */
2852   atom_traf_add_samples (pad->traf, delta, size, sync, pts_offset,
2853       pad->sync && sync);
2854   atom_array_append (&pad->fragment_buffers, buf, 256);
2855   pad->fragment_duration -= delta;
2856
2857   if (pad->tfra) {
2858     guint32 sn = atom_traf_get_sample_num (pad->traf);
2859
2860     if ((sync && pad->sync) || (sn == 1 && !pad->sync))
2861       atom_tfra_add_entry (pad->tfra, dts, sn);
2862   }
2863
2864   if (G_UNLIKELY (force))
2865     goto flush;
2866
2867   return ret;
2868 }
2869
2870 /* Here's the clever bit of robust recording: Updating the moov
2871  * header is done using a ping-pong scheme inside 2 blocks of size
2872  * 'reserved_moov_size' at the start of the file, in such a way that the
2873  * file on-disk is always valid if interrupted.
2874  * Inside the reserved space, we have 2 pairs of free + moov atoms
2875  * (in that order), free-A + moov-A @ offset 0 and free-B + moov-B at
2876  * at offset "reserved_moov_size".
2877  *
2878  * 1. Free-A has 0 size payload, moov-A immediately after is
2879  *    active/current, and is padded with an internal Free atom to
2880  *    end at reserved_space/2. Free-B is at reserved_space/2, sized
2881  *    to cover the remaining free space (including moov-B).
2882  * 2. We write moov-B (which is invisible inside free-B), and pad it to
2883  *    end at the end of free space. Then, we update free-A to size
2884  *    reserved_space/2 + sizeof(free-B), which hides moov-A and the
2885  *    free-B header, and makes moov-B active.
2886  * 3. Rewrite moov-A inside free-A, with padding out to free-B.
2887  *    Change the size of free-A to make moov-A active again.
2888  * 4. Rinse and repeat.
2889  *
2890  */
2891 static GstFlowReturn
2892 gst_qt_mux_robust_recording_rewrite_moov (GstQTMux * qtmux)
2893 {
2894   GstSegment segment;
2895   GstFlowReturn ret;
2896   guint64 freeA_offset;
2897   guint32 new_freeA_size;
2898   guint64 new_moov_offset;
2899
2900   /* Update moov info, then seek and rewrite the MOOV atom */
2901   gst_qt_mux_update_global_statistics (qtmux);
2902   gst_qt_mux_configure_moov (qtmux);
2903
2904   gst_qt_mux_update_edit_lists (qtmux);
2905
2906   /* tags into file metadata */
2907   gst_qt_mux_setup_metadata (qtmux);
2908
2909   /* chunks position is set relative to the first byte of the
2910    * MDAT atom payload. Set the overall offset into the file */
2911   atom_moov_chunks_set_offset (qtmux->moov, qtmux->header_size);
2912
2913   /* Calculate which moov to rewrite. qtmux->moov_pos points to
2914    * the start of the free-A header */
2915   freeA_offset = qtmux->moov_pos;
2916   if (qtmux->reserved_moov_first_active) {
2917     GST_DEBUG_OBJECT (qtmux, "Updating pong moov header");
2918     /* After this, freeA will include itself, moovA, plus the freeB
2919      * header */
2920     new_freeA_size = qtmux->reserved_moov_size + 16;
2921   } else {
2922     GST_DEBUG_OBJECT (qtmux, "Updating ping moov header");
2923     new_freeA_size = 8;
2924   }
2925   /* the moov we update is after free-A, calculate its offset */
2926   new_moov_offset = freeA_offset + new_freeA_size;
2927
2928   /* Swap ping-pong cadence marker */
2929   qtmux->reserved_moov_first_active = !qtmux->reserved_moov_first_active;
2930
2931   /* seek and rewrite the MOOV atom */
2932   gst_segment_init (&segment, GST_FORMAT_BYTES);
2933   segment.start = new_moov_offset;
2934   gst_pad_push_event (qtmux->srcpad, gst_event_new_segment (&segment));
2935
2936   ret =
2937       gst_qt_mux_send_moov (qtmux, NULL, qtmux->reserved_moov_size, FALSE,
2938       TRUE);
2939   if (ret != GST_FLOW_OK)
2940     return ret;
2941
2942   /* Update the estimated recording space remaining, based on amount used so
2943    * far and duration muxed so far */
2944   if (qtmux->last_moov_size > qtmux->base_moov_size && qtmux->last_dts > 0) {
2945     GstClockTime remain;
2946     GstClockTime time_muxed = qtmux->last_dts;
2947
2948     remain =
2949         gst_util_uint64_scale (qtmux->reserved_moov_size -
2950         qtmux->last_moov_size, time_muxed,
2951         qtmux->last_moov_size - qtmux->base_moov_size);
2952     /* Always under-estimate slightly, so users
2953      * have time to stop muxing before we run out */
2954     if (remain < GST_SECOND / 2)
2955       remain = 0;
2956     else
2957       remain -= GST_SECOND / 2;
2958
2959     GST_INFO_OBJECT (qtmux,
2960         "Reserved %u header bytes. Used %u in %" GST_TIME_FORMAT
2961         ". Remaining now %u or approx %" G_GUINT64_FORMAT " ns\n",
2962         qtmux->reserved_moov_size, qtmux->last_moov_size,
2963         GST_TIME_ARGS (qtmux->last_dts),
2964         qtmux->reserved_moov_size - qtmux->last_moov_size, remain);
2965
2966     GST_OBJECT_LOCK (qtmux);
2967     qtmux->reserved_duration_remaining = remain;
2968     qtmux->muxed_since_last_update = 0;
2969     GST_DEBUG_OBJECT (qtmux, "reserved remaining duration now %"
2970         G_GUINT64_FORMAT, qtmux->reserved_duration_remaining);
2971     GST_OBJECT_UNLOCK (qtmux);
2972   }
2973
2974
2975   /* Now update the moov-A size. Don't pass offset, since we don't need
2976    * send_free_atom() to seek for us - all our callers seek back to
2977    * where they need after this, or they don't need it */
2978   gst_segment_init (&segment, GST_FORMAT_BYTES);
2979   segment.start = freeA_offset;
2980   gst_pad_push_event (qtmux->srcpad, gst_event_new_segment (&segment));
2981
2982   ret = gst_qt_mux_send_free_atom (qtmux, NULL, new_freeA_size, TRUE);
2983
2984   return ret;
2985 }
2986
2987 static GstFlowReturn
2988 gst_qt_mux_robust_recording_update (GstQTMux * qtmux, GstClockTime position)
2989 {
2990   GstSegment segment;
2991   GstFlowReturn flow_ret;
2992
2993   guint64 mdat_offset = qtmux->mdat_pos + 16 + qtmux->mdat_size;
2994
2995   GST_OBJECT_LOCK (qtmux);
2996   if (qtmux->reserved_moov_update_period == GST_CLOCK_TIME_NONE) {
2997     GST_OBJECT_UNLOCK (qtmux);
2998     return GST_FLOW_OK;
2999   }
3000
3001   /* Update if position is > the threshold or there's been no update yet */
3002   if (qtmux->last_moov_update != GST_CLOCK_TIME_NONE &&
3003       (position <= qtmux->last_moov_update ||
3004           (position - qtmux->last_moov_update) <
3005           qtmux->reserved_moov_update_period)) {
3006     /* Update the offset of how much we've muxed, so the
3007      * report of remaining space keeps counting down */
3008     if (position > qtmux->last_moov_update &&
3009         position - qtmux->last_moov_update > qtmux->muxed_since_last_update) {
3010       GST_LOG_OBJECT (qtmux,
3011           "Muxed time %" G_GUINT64_FORMAT " since last moov update",
3012           qtmux->muxed_since_last_update);
3013       qtmux->muxed_since_last_update = position - qtmux->last_moov_update;
3014     }
3015     GST_OBJECT_UNLOCK (qtmux);
3016     return GST_FLOW_OK;         /* No update needed yet */
3017   }
3018
3019   qtmux->last_moov_update = position;
3020   GST_OBJECT_UNLOCK (qtmux);
3021
3022   GST_DEBUG_OBJECT (qtmux, "Update moov atom, position %" GST_TIME_FORMAT
3023       " mdat starts @ %" G_GUINT64_FORMAT " we were a %" G_GUINT64_FORMAT,
3024       GST_TIME_ARGS (position), qtmux->mdat_pos, mdat_offset);
3025
3026   flow_ret = gst_qt_mux_robust_recording_rewrite_moov (qtmux);
3027   if (G_UNLIKELY (flow_ret != GST_FLOW_OK))
3028     return flow_ret;
3029
3030   /* Seek back to previous position */
3031   gst_segment_init (&segment, GST_FORMAT_BYTES);
3032   segment.start = mdat_offset;
3033   gst_pad_push_event (qtmux->srcpad, gst_event_new_segment (&segment));
3034
3035   return flow_ret;
3036 }
3037
3038 static GstFlowReturn
3039 gst_qt_mux_register_and_push_sample (GstQTMux * qtmux, GstQTPad * pad,
3040     GstBuffer * buffer, gboolean is_last_buffer, guint nsamples,
3041     gint64 last_dts, gint64 scaled_duration, guint sample_size,
3042     guint64 chunk_offset, gboolean sync, gboolean do_pts, gint64 pts_offset)
3043 {
3044   GstFlowReturn ret = GST_FLOW_OK;
3045
3046   /* note that a new chunk is started each time (not fancy but works) */
3047   if (qtmux->moov_recov_file) {
3048     if (!atoms_recov_write_trak_samples (qtmux->moov_recov_file, pad->trak,
3049             nsamples, (gint32) scaled_duration, sample_size, chunk_offset, sync,
3050             do_pts, pts_offset)) {
3051       GST_WARNING_OBJECT (qtmux, "Failed to write sample information to "
3052           "recovery file, disabling recovery");
3053       fclose (qtmux->moov_recov_file);
3054       qtmux->moov_recov_file = NULL;
3055     }
3056   }
3057
3058   switch (qtmux->mux_mode) {
3059     case GST_QT_MUX_MODE_MOOV_AT_END:
3060     case GST_QT_MUX_MODE_FAST_START:
3061     case GST_QT_MUX_MODE_ROBUST_RECORDING:
3062       atom_trak_add_samples (pad->trak, nsamples, (gint32) scaled_duration,
3063           sample_size, chunk_offset, sync, pts_offset);
3064       ret = gst_qt_mux_send_buffer (qtmux, buffer, &qtmux->mdat_size, TRUE);
3065       /* Check if it's time to re-write the headers in robust-recording mode */
3066       if (ret == GST_FLOW_OK
3067           && qtmux->mux_mode == GST_QT_MUX_MODE_ROBUST_RECORDING)
3068         ret = gst_qt_mux_robust_recording_update (qtmux, pad->total_duration);
3069       break;
3070     case GST_QT_MUX_MODE_FRAGMENTED:
3071     case GST_QT_MUX_MODE_FRAGMENTED_STREAMABLE:
3072       /* ensure that always sync samples are marked as such */
3073       ret = gst_qt_mux_pad_fragment_add_buffer (qtmux, pad, buffer,
3074           is_last_buffer, nsamples, last_dts, (gint32) scaled_duration,
3075           sample_size, !pad->sync || sync, pts_offset);
3076       break;
3077   }
3078
3079   return ret;
3080 }
3081
3082 static GstFlowReturn
3083 gst_qt_mux_check_and_update_timecode (GstQTMux * qtmux, GstQTPad * pad,
3084     GstBuffer * buf, GstFlowReturn ret)
3085 {
3086   if (buf != NULL && (pad->tc_trak == NULL || qtmux->tc_pos != -1)) {
3087     GstVideoTimeCodeMeta *tc_meta = gst_buffer_get_video_time_code_meta (buf);
3088     if (tc_meta) {
3089       GstVideoTimeCode *tc = &tc_meta->tc;
3090       GstBuffer *tc_buf;
3091       gsize szret;
3092       guint32 frames_since_daily_jam;
3093
3094       /* This means we never got a timecode before */
3095       if (qtmux->first_tc == NULL) {
3096 #ifndef GST_DISABLE_GST_DEBUG
3097         gchar *tc_str = gst_video_time_code_to_string (tc);
3098         GST_DEBUG_OBJECT (qtmux, "Found first timecode %s", tc_str);
3099         g_free (tc_str);
3100 #endif
3101         g_assert (pad->tc_trak == NULL);
3102         tc_buf = gst_buffer_new_allocate (NULL, 4, NULL);
3103         qtmux->first_tc = gst_video_time_code_copy (tc);
3104         /* If frames are out of order, the frame we're currently getting might
3105          * not be the first one. Just write a 0 timecode for now and wait
3106          * until we receive a timecode that's lower than the current one */
3107         if (pad->is_out_of_order) {
3108           qtmux->first_pts = GST_BUFFER_PTS (buf);
3109           frames_since_daily_jam = 0;
3110           /* Position to rewrite */
3111           qtmux->tc_pos = qtmux->mdat_size;
3112         } else {
3113           frames_since_daily_jam =
3114               gst_video_time_code_frames_since_daily_jam (qtmux->first_tc);
3115           frames_since_daily_jam = GUINT32_TO_BE (frames_since_daily_jam);
3116         }
3117         /* Write the timecode trak now */
3118         pad->tc_trak = atom_trak_new (qtmux->context);
3119         atom_moov_add_trak (qtmux->moov, pad->tc_trak);
3120
3121         pad->trak->tref = atom_tref_new (FOURCC_tmcd);
3122         atom_tref_add_entry (pad->trak->tref, pad->tc_trak->tkhd.track_ID);
3123
3124         atom_trak_set_timecode_type (pad->tc_trak, qtmux->context,
3125             qtmux->first_tc);
3126
3127         szret = gst_buffer_fill (tc_buf, 0, &frames_since_daily_jam, 4);
3128         g_assert (szret == 4);
3129
3130         atom_trak_add_samples (pad->tc_trak, 1, 1, 4, qtmux->mdat_size, FALSE,
3131             0);
3132         ret = gst_qt_mux_send_buffer (qtmux, tc_buf, &qtmux->mdat_size, TRUE);
3133       } else if (pad->is_out_of_order) {
3134         /* Check for a lower timecode than the one stored */
3135         g_assert (pad->tc_trak != NULL);
3136         if (GST_BUFFER_DTS (buf) <= qtmux->first_pts) {
3137           if (gst_video_time_code_compare (tc, qtmux->first_tc) == -1) {
3138             gst_video_time_code_free (qtmux->first_tc);
3139             qtmux->first_tc = gst_video_time_code_copy (tc);
3140           }
3141         } else {
3142           guint64 bk_size = qtmux->mdat_size;
3143           GstSegment segment;
3144           /* If this frame's DTS is after the first PTS received, it means
3145            * we've already received the first frame to be presented. Otherwise
3146            * the decoder would need to go back in time */
3147           gst_qt_mux_update_timecode (qtmux);
3148
3149           /* Reset writing position */
3150           gst_segment_init (&segment, GST_FORMAT_BYTES);
3151           segment.start = bk_size;
3152           gst_pad_push_event (qtmux->srcpad, gst_event_new_segment (&segment));
3153         }
3154       }
3155     }
3156   }
3157   return ret;
3158 }
3159
3160 /*
3161  * Here we push the buffer and update the tables in the track atoms
3162  */
3163 static GstFlowReturn
3164 gst_qt_mux_add_buffer (GstQTMux * qtmux, GstQTPad * pad, GstBuffer * buf)
3165 {
3166   GstBuffer *last_buf = NULL;
3167   GstClockTime duration;
3168   guint nsamples, sample_size;
3169   guint64 chunk_offset;
3170   gint64 last_dts, scaled_duration;
3171   gint64 pts_offset = 0;
3172   gboolean sync = FALSE;
3173   GstFlowReturn ret = GST_FLOW_OK;
3174
3175   if (!pad->fourcc)
3176     goto not_negotiated;
3177
3178   /* if this pad has a prepare function, call it */
3179   if (pad->prepare_buf_func != NULL) {
3180     buf = pad->prepare_buf_func (pad, buf, qtmux);
3181   }
3182
3183   last_buf = pad->last_buf;
3184
3185   ret = gst_qt_mux_check_and_update_timecode (qtmux, pad, buf, ret);
3186
3187   if (last_buf == NULL) {
3188 #ifndef GST_DISABLE_GST_DEBUG
3189     if (buf == NULL) {
3190       GST_DEBUG_OBJECT (qtmux, "Pad %s has no previous buffer stored and "
3191           "received NULL buffer, doing nothing",
3192           GST_PAD_NAME (pad->collect.pad));
3193     } else {
3194       GST_LOG_OBJECT (qtmux,
3195           "Pad %s has no previous buffer stored, storing now",
3196           GST_PAD_NAME (pad->collect.pad));
3197     }
3198 #endif
3199     pad->last_buf = buf;
3200     goto exit;
3201   } else {
3202     gst_buffer_ref (last_buf);
3203   }
3204
3205   if (!GST_BUFFER_PTS_IS_VALID (last_buf))
3206     goto no_pts;
3207
3208   /* if this is the first buffer, store the timestamp */
3209   if (G_UNLIKELY (pad->first_ts == GST_CLOCK_TIME_NONE) && last_buf) {
3210     if (GST_BUFFER_PTS_IS_VALID (last_buf)) {
3211       pad->first_ts = GST_BUFFER_PTS (last_buf);
3212     } else if (GST_BUFFER_DTS_IS_VALID (last_buf)) {
3213       pad->first_ts = GST_BUFFER_DTS (last_buf);
3214     }
3215
3216     if (GST_BUFFER_DTS_IS_VALID (last_buf)) {
3217       pad->first_dts = pad->last_dts = GST_BUFFER_DTS (last_buf);
3218     } else if (GST_BUFFER_PTS_IS_VALID (last_buf)) {
3219       pad->first_dts = pad->last_dts = GST_BUFFER_PTS (last_buf);
3220     }
3221
3222     if (GST_CLOCK_TIME_IS_VALID (pad->first_ts)) {
3223       GST_DEBUG ("setting first_ts to %" G_GUINT64_FORMAT, pad->first_ts);
3224     } else {
3225       GST_WARNING_OBJECT (qtmux, "First buffer for pad %s has no timestamp, "
3226           "using 0 as first timestamp", GST_PAD_NAME (pad->collect.pad));
3227       pad->first_ts = pad->first_dts = 0;
3228     }
3229     GST_DEBUG_OBJECT (qtmux, "Stored first timestamp for pad %s %"
3230         GST_TIME_FORMAT, GST_PAD_NAME (pad->collect.pad),
3231         GST_TIME_ARGS (pad->first_ts));
3232   }
3233
3234   if (last_buf && buf && GST_CLOCK_TIME_IS_VALID (GST_BUFFER_DTS (buf)) &&
3235       GST_CLOCK_TIME_IS_VALID (GST_BUFFER_DTS (last_buf)) &&
3236       GST_BUFFER_DTS (buf) < GST_BUFFER_DTS (last_buf)) {
3237     GST_ERROR ("decreasing DTS value %" GST_TIME_FORMAT " < %" GST_TIME_FORMAT,
3238         GST_TIME_ARGS (GST_BUFFER_DTS (buf)),
3239         GST_TIME_ARGS (GST_BUFFER_DTS (last_buf)));
3240     buf = gst_buffer_make_writable (buf);
3241     GST_BUFFER_DTS (buf) = GST_BUFFER_DTS (last_buf);
3242   }
3243
3244   /* duration actually means time delta between samples, so we calculate
3245    * the duration based on the difference in DTS or PTS, falling back
3246    * to DURATION if the other two don't exist, such as with the last
3247    * sample before EOS. Or use 0 if nothing else is available */
3248   if (GST_BUFFER_DURATION_IS_VALID (last_buf))
3249     duration = GST_BUFFER_DURATION (last_buf);
3250   else
3251     duration = 0;
3252   if (!pad->sparse) {
3253     if (last_buf && buf && GST_BUFFER_DTS_IS_VALID (buf)
3254         && GST_BUFFER_DTS_IS_VALID (last_buf))
3255       duration = GST_BUFFER_DTS (buf) - GST_BUFFER_DTS (last_buf);
3256     else if (last_buf && buf && GST_BUFFER_PTS_IS_VALID (buf)
3257         && GST_BUFFER_PTS_IS_VALID (last_buf))
3258       duration = GST_BUFFER_PTS (buf) - GST_BUFFER_PTS (last_buf);
3259   }
3260
3261   gst_buffer_replace (&pad->last_buf, buf);
3262
3263   if (qtmux->current_pad != pad || qtmux->current_chunk_offset == -1) {
3264     GST_DEBUG_OBJECT (qtmux,
3265         "Switching to next chunk for pad %s:%s: offset %" G_GUINT64_FORMAT
3266         ", size %" G_GUINT64_FORMAT ", duration %" GST_TIME_FORMAT,
3267         GST_DEBUG_PAD_NAME (pad->collect.pad), qtmux->current_chunk_offset,
3268         qtmux->current_chunk_size,
3269         GST_TIME_ARGS (qtmux->current_chunk_duration));
3270     qtmux->current_pad = pad;
3271     if (qtmux->current_chunk_offset == -1)
3272       qtmux->current_chunk_offset = qtmux->mdat_size;
3273     else
3274       qtmux->current_chunk_offset += qtmux->current_chunk_size;
3275     qtmux->current_chunk_size = 0;
3276     qtmux->current_chunk_duration = 0;
3277   }
3278
3279   last_dts = gst_util_uint64_scale_round (pad->last_dts,
3280       atom_trak_get_timescale (pad->trak), GST_SECOND);
3281
3282   /* fragments only deal with 1 buffer == 1 chunk (== 1 sample) */
3283   if (pad->sample_size && !qtmux->fragment_sequence) {
3284     /* Constant size packets: usually raw audio (with many samples per
3285        buffer (= chunk)), but can also be fixed-packet-size codecs like ADPCM
3286      */
3287     sample_size = pad->sample_size;
3288     if (gst_buffer_get_size (last_buf) % sample_size != 0)
3289       goto fragmented_sample;
3290     /* note: qt raw audio storage warps it implicitly into a timewise
3291      * perfect stream, discarding buffer times */
3292     if (GST_BUFFER_DURATION (last_buf) != GST_CLOCK_TIME_NONE) {
3293       nsamples = gst_util_uint64_scale_round (GST_BUFFER_DURATION (last_buf),
3294           atom_trak_get_timescale (pad->trak), GST_SECOND);
3295       duration = GST_BUFFER_DURATION (last_buf);
3296     } else {
3297       nsamples = gst_buffer_get_size (last_buf) / sample_size;
3298       duration =
3299           gst_util_uint64_scale_round (nsamples, GST_SECOND,
3300           atom_trak_get_timescale (pad->trak));
3301     }
3302
3303     /* timescale = samplerate */
3304     scaled_duration = 1;
3305     pad->last_dts += duration * nsamples;
3306   } else {
3307     nsamples = 1;
3308     sample_size = gst_buffer_get_size (last_buf);
3309     if ((buf && GST_BUFFER_DTS_IS_VALID (buf))
3310         || GST_BUFFER_DTS_IS_VALID (last_buf)) {
3311       gint64 scaled_dts;
3312       if (buf && GST_BUFFER_DTS_IS_VALID (buf)) {
3313         pad->last_dts = GST_BUFFER_DTS (buf);
3314       } else {
3315         pad->last_dts = GST_BUFFER_DTS (last_buf) + duration;
3316       }
3317       if ((gint64) (pad->last_dts) < 0) {
3318         scaled_dts = -gst_util_uint64_scale_round (-pad->last_dts,
3319             atom_trak_get_timescale (pad->trak), GST_SECOND);
3320       } else {
3321         scaled_dts = gst_util_uint64_scale_round (pad->last_dts,
3322             atom_trak_get_timescale (pad->trak), GST_SECOND);
3323       }
3324       scaled_duration = scaled_dts - last_dts;
3325       last_dts = scaled_dts;
3326     } else {
3327       /* first convert intended timestamp (in GstClockTime resolution) to
3328        * trak timescale, then derive delta;
3329        * this ensures sums of (scale)delta add up to converted timestamp,
3330        * which only deviates at most 1/scale from timestamp itself */
3331       scaled_duration = gst_util_uint64_scale_round (pad->last_dts + duration,
3332           atom_trak_get_timescale (pad->trak), GST_SECOND) - last_dts;
3333       pad->last_dts += duration;
3334     }
3335   }
3336
3337   /* for computing the avg bitrate */
3338   if (G_LIKELY (last_buf)) {
3339     pad->total_bytes += gst_buffer_get_size (last_buf);
3340     pad->total_duration += duration;
3341   }
3342   qtmux->current_chunk_size += gst_buffer_get_size (last_buf);
3343   qtmux->current_chunk_duration += duration;
3344
3345   chunk_offset = qtmux->current_chunk_offset;
3346
3347   GST_LOG_OBJECT (qtmux,
3348       "Pad (%s) dts updated to %" GST_TIME_FORMAT,
3349       GST_PAD_NAME (pad->collect.pad), GST_TIME_ARGS (pad->last_dts));
3350   GST_LOG_OBJECT (qtmux,
3351       "Adding %d samples to track, duration: %" G_GUINT64_FORMAT
3352       " size: %" G_GUINT32_FORMAT " chunk offset: %" G_GUINT64_FORMAT,
3353       nsamples, scaled_duration, sample_size, chunk_offset);
3354
3355   /* might be a sync sample */
3356   if (pad->sync &&
3357       !GST_BUFFER_FLAG_IS_SET (last_buf, GST_BUFFER_FLAG_DELTA_UNIT)) {
3358     GST_LOG_OBJECT (qtmux, "Adding new sync sample entry for track of pad %s",
3359         GST_PAD_NAME (pad->collect.pad));
3360     sync = TRUE;
3361   }
3362
3363   if (GST_BUFFER_DTS_IS_VALID (last_buf)) {
3364     last_dts = gst_util_uint64_scale_round (GST_BUFFER_DTS (last_buf),
3365         atom_trak_get_timescale (pad->trak), GST_SECOND);
3366     pts_offset =
3367         (gint64) (gst_util_uint64_scale_round (GST_BUFFER_PTS (last_buf),
3368             atom_trak_get_timescale (pad->trak), GST_SECOND) - last_dts);
3369   } else {
3370     pts_offset = 0;
3371     last_dts = gst_util_uint64_scale_round (GST_BUFFER_PTS (last_buf),
3372         atom_trak_get_timescale (pad->trak), GST_SECOND);
3373   }
3374   GST_DEBUG ("dts: %" GST_TIME_FORMAT " pts: %" GST_TIME_FORMAT
3375       " timebase_dts: %d pts_offset: %d",
3376       GST_TIME_ARGS (GST_BUFFER_DTS (last_buf)),
3377       GST_TIME_ARGS (GST_BUFFER_PTS (last_buf)),
3378       (int) (last_dts), (int) (pts_offset));
3379
3380   if (GST_CLOCK_TIME_IS_VALID (duration)
3381       && (qtmux->current_chunk_duration > qtmux->longest_chunk
3382           || !GST_CLOCK_TIME_IS_VALID (qtmux->longest_chunk))) {
3383     GST_DEBUG_OBJECT (qtmux,
3384         "New longest chunk found: %" GST_TIME_FORMAT ", pad %s",
3385         GST_TIME_ARGS (qtmux->current_chunk_duration),
3386         GST_PAD_NAME (pad->collect.pad));
3387     qtmux->longest_chunk = qtmux->current_chunk_duration;
3388   }
3389
3390   /* now we go and register this buffer/sample all over */
3391   ret = gst_qt_mux_register_and_push_sample (qtmux, pad, last_buf,
3392       buf == NULL, nsamples, last_dts, scaled_duration, sample_size,
3393       chunk_offset, sync, TRUE, pts_offset);
3394
3395   /* if this is sparse and we have a next buffer, check if there is any gap
3396    * between them to insert an empty sample */
3397   if (pad->sparse && buf) {
3398     if (pad->create_empty_buffer) {
3399       GstBuffer *empty_buf;
3400       gint64 empty_duration =
3401           GST_BUFFER_PTS (buf) - (GST_BUFFER_PTS (last_buf) + duration);
3402       gint64 empty_duration_scaled;
3403
3404       empty_buf = pad->create_empty_buffer (pad, empty_duration);
3405
3406       empty_duration_scaled = gst_util_uint64_scale_round (empty_duration,
3407           atom_trak_get_timescale (pad->trak), GST_SECOND);
3408
3409       pad->total_bytes += gst_buffer_get_size (empty_buf);
3410       pad->total_duration += duration;
3411
3412       ret =
3413           gst_qt_mux_register_and_push_sample (qtmux, pad, empty_buf, FALSE, 1,
3414           last_dts + scaled_duration, empty_duration_scaled,
3415           gst_buffer_get_size (empty_buf), chunk_offset, sync, TRUE, 0);
3416     } else {
3417       /* our only case currently is tx3g subtitles, so there is no reason to fill this yet */
3418       g_assert_not_reached ();
3419       GST_WARNING_OBJECT (qtmux,
3420           "no empty buffer creation function found for pad %s",
3421           GST_PAD_NAME (pad->collect.pad));
3422     }
3423   }
3424
3425   if (buf)
3426     gst_buffer_unref (buf);
3427
3428 exit:
3429
3430   return ret;
3431
3432   /* ERRORS */
3433 bail:
3434   {
3435     if (buf)
3436       gst_buffer_unref (buf);
3437     gst_buffer_unref (last_buf);
3438     return GST_FLOW_ERROR;
3439   }
3440 fragmented_sample:
3441   {
3442     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL),
3443         ("Audio buffer contains fragmented sample."));
3444     goto bail;
3445   }
3446 no_pts:
3447   {
3448     GST_ELEMENT_ERROR (qtmux, STREAM, MUX, (NULL), ("Buffer has no PTS."));
3449     goto bail;
3450   }
3451 not_negotiated:
3452   {
3453     GST_ELEMENT_ERROR (qtmux, CORE, NEGOTIATION, (NULL),
3454         ("format wasn't negotiated before buffer flow on pad %s",
3455             GST_PAD_NAME (pad->collect.pad)));
3456     if (buf)
3457       gst_buffer_unref (buf);
3458     return GST_FLOW_NOT_NEGOTIATED;
3459   }
3460 }
3461
3462 /*
3463  * DTS running time can be negative. There is no way to represent that in
3464  * MP4 however, thus we need to offset DTS so that it starts from 0.
3465  */
3466 static void
3467 gst_qt_pad_adjust_buffer_dts (GstQTMux * qtmux, GstQTPad * pad,
3468     GstCollectData * cdata, GstBuffer ** buf)
3469 {
3470   GstClockTime pts;
3471   gint64 dts;
3472
3473   pts = GST_BUFFER_PTS (*buf);
3474   dts = GST_COLLECT_PADS_DTS (cdata);
3475
3476   GST_LOG_OBJECT (qtmux, "selected pad %s with PTS %" GST_TIME_FORMAT
3477       " and DTS %" GST_STIME_FORMAT, GST_PAD_NAME (cdata->pad),
3478       GST_TIME_ARGS (pts), GST_STIME_ARGS (dts));
3479
3480   if (!GST_CLOCK_TIME_IS_VALID (pad->dts_adjustment)) {
3481     if (GST_CLOCK_STIME_IS_VALID (dts) && dts < 0)
3482       pad->dts_adjustment = -dts;
3483     else
3484       pad->dts_adjustment = 0;
3485   }
3486
3487   if (pad->dts_adjustment > 0) {
3488     *buf = gst_buffer_make_writable (*buf);
3489
3490     dts += pad->dts_adjustment;
3491
3492     if (GST_CLOCK_TIME_IS_VALID (pts))
3493       pts += pad->dts_adjustment;
3494
3495     if (GST_CLOCK_STIME_IS_VALID (dts) && dts < 0) {
3496       GST_WARNING_OBJECT (pad, "Decreasing DTS.");
3497       dts = 0;
3498     }
3499
3500     if (pts < dts) {
3501       GST_WARNING_OBJECT (pad, "DTS is bigger then PTS");
3502       pts = dts;
3503     }
3504
3505     GST_BUFFER_PTS (*buf) = pts;
3506     GST_BUFFER_DTS (*buf) = dts;
3507
3508     GST_LOG_OBJECT (qtmux, "time adjusted to PTS %" GST_TIME_FORMAT
3509         " and DTS %" GST_TIME_FORMAT, GST_TIME_ARGS (pts), GST_TIME_ARGS (dts));
3510   }
3511 }
3512
3513 static GstQTPad *
3514 find_best_pad (GstQTMux * qtmux, GstCollectPads * pads)
3515 {
3516   GSList *walk;
3517   GstQTPad *best_pad = NULL;
3518
3519   if (qtmux->current_pad &&
3520       (qtmux->interleave_bytes != 0 || qtmux->interleave_time != 0) &&
3521       (qtmux->interleave_bytes == 0
3522           || qtmux->current_chunk_size <= qtmux->interleave_bytes)
3523       && (qtmux->interleave_time == 0
3524           || qtmux->current_chunk_duration <= qtmux->interleave_time)
3525       && qtmux->mux_mode != GST_QT_MUX_MODE_FRAGMENTED
3526       && qtmux->mux_mode != GST_QT_MUX_MODE_FRAGMENTED_STREAMABLE) {
3527     GstBuffer *tmp_buf =
3528         gst_collect_pads_peek (pads, (GstCollectData *) qtmux->current_pad);
3529
3530     if (tmp_buf || qtmux->current_pad->last_buf) {
3531       best_pad = qtmux->current_pad;
3532       if (tmp_buf)
3533         gst_buffer_unref (tmp_buf);
3534       GST_DEBUG_OBJECT (qtmux, "Reusing pad %s:%s",
3535           GST_DEBUG_PAD_NAME (best_pad->collect.pad));
3536     }
3537   } else {
3538     if (qtmux->current_pad)
3539       GST_DEBUG_OBJECT (qtmux, "Switching from pad %s:%s",
3540           GST_DEBUG_PAD_NAME (qtmux->current_pad->collect.pad));
3541     best_pad = qtmux->current_pad = NULL;
3542   }
3543
3544   if (!best_pad) {
3545     GstClockTime best_time = GST_CLOCK_TIME_NONE;
3546
3547     for (walk = qtmux->collect->data; walk; walk = g_slist_next (walk)) {
3548       GstCollectData *cdata = (GstCollectData *) walk->data;
3549       GstQTPad *qtpad = (GstQTPad *) cdata;
3550       GstBuffer *tmp_buf;
3551       GstClockTime timestamp;
3552
3553       tmp_buf = gst_collect_pads_peek (pads, cdata);
3554       if (!tmp_buf) {
3555         /* This one is newly EOS now, finish it for real */
3556         if (qtpad->last_buf) {
3557           timestamp = GST_BUFFER_DTS_OR_PTS (qtpad->last_buf);
3558         } else {
3559           continue;
3560         }
3561       } else {
3562         timestamp = GST_BUFFER_DTS_OR_PTS (tmp_buf);
3563       }
3564
3565       if (best_pad == NULL ||
3566           !GST_CLOCK_TIME_IS_VALID (best_time) || timestamp < best_time) {
3567         best_pad = qtpad;
3568         best_time = timestamp;
3569       }
3570
3571       if (tmp_buf)
3572         gst_buffer_unref (tmp_buf);
3573     }
3574
3575     if (best_pad) {
3576       GST_DEBUG_OBJECT (qtmux, "Choosing pad %s:%s",
3577           GST_DEBUG_PAD_NAME (best_pad->collect.pad));
3578     } else {
3579       GST_DEBUG_OBJECT (qtmux, "No best pad: EOS");
3580     }
3581   }
3582
3583   return best_pad;
3584 }
3585
3586 static GstFlowReturn
3587 gst_qt_mux_collected (GstCollectPads * pads, gpointer user_data)
3588 {
3589   GstFlowReturn ret = GST_FLOW_OK;
3590   GstQTMux *qtmux = GST_QT_MUX_CAST (user_data);
3591   GstQTPad *best_pad = NULL;
3592
3593   if (G_UNLIKELY (qtmux->state == GST_QT_MUX_STATE_STARTED)) {
3594     if ((ret = gst_qt_mux_start_file (qtmux)) != GST_FLOW_OK)
3595       return ret;
3596
3597     qtmux->state = GST_QT_MUX_STATE_DATA;
3598   }
3599
3600   if (G_UNLIKELY (qtmux->state == GST_QT_MUX_STATE_EOS))
3601     return GST_FLOW_EOS;
3602
3603   best_pad = find_best_pad (qtmux, pads);
3604
3605   /* clipping already converted to running time */
3606   if (best_pad != NULL) {
3607     GstBuffer *buf = gst_collect_pads_pop (pads, (GstCollectData *) best_pad);
3608
3609     g_assert (buf || best_pad->last_buf);
3610     if (buf)
3611       gst_qt_pad_adjust_buffer_dts (qtmux, best_pad,
3612           (GstCollectData *) best_pad, &buf);
3613
3614     ret = gst_qt_mux_add_buffer (qtmux, best_pad, buf);
3615   } else {
3616     qtmux->state = GST_QT_MUX_STATE_EOS;
3617     ret = gst_qt_mux_stop_file (qtmux);
3618     if (ret == GST_FLOW_OK) {
3619       GST_DEBUG_OBJECT (qtmux, "Pushing eos");
3620       gst_pad_push_event (qtmux->srcpad, gst_event_new_eos ());
3621       ret = GST_FLOW_EOS;
3622     } else {
3623       GST_WARNING_OBJECT (qtmux, "Failed to stop file: %s",
3624           gst_flow_get_name (ret));
3625     }
3626   }
3627
3628   return ret;
3629 }
3630
3631 static gboolean
3632 check_field (GQuark field_id, const GValue * value, gpointer user_data)
3633 {
3634   GstStructure *structure = (GstStructure *) user_data;
3635   const GValue *other = gst_structure_id_get_value (structure, field_id);
3636   if (other == NULL)
3637     return FALSE;
3638   return gst_value_compare (value, other) == GST_VALUE_EQUAL;
3639 }
3640
3641 static gboolean
3642 gst_qtmux_caps_is_subset_full (GstQTMux * qtmux, GstCaps * subset,
3643     GstCaps * superset)
3644 {
3645   GstStructure *sub_s = gst_caps_get_structure (subset, 0);
3646   GstStructure *sup_s = gst_caps_get_structure (superset, 0);
3647
3648   return gst_structure_foreach (sub_s, check_field, sup_s);
3649 }
3650
3651 static gboolean
3652 gst_qt_mux_audio_sink_set_caps (GstQTPad * qtpad, GstCaps * caps)
3653 {
3654   GstPad *pad = qtpad->collect.pad;
3655   GstQTMux *qtmux = GST_QT_MUX_CAST (gst_pad_get_parent (pad));
3656   GstQTMuxClass *qtmux_klass = (GstQTMuxClass *) (G_OBJECT_GET_CLASS (qtmux));
3657   GstStructure *structure;
3658   const gchar *mimetype;
3659   gint rate, channels;
3660   const GValue *value = NULL;
3661   const GstBuffer *codec_data = NULL;
3662   GstQTMuxFormat format;
3663   AudioSampleEntry entry = { 0, };
3664   AtomInfo *ext_atom = NULL;
3665   gint constant_size = 0;
3666   const gchar *stream_format;
3667
3668   qtpad->prepare_buf_func = NULL;
3669
3670   /* does not go well to renegotiate stream mid-way, unless
3671    * the old caps are a subset of the new one (this means upstream
3672    * added more info to the caps, as both should be 'fixed' caps) */
3673   if (qtpad->fourcc) {
3674     GstCaps *current_caps;
3675
3676     current_caps = gst_pad_get_current_caps (pad);
3677     g_assert (caps != NULL);
3678
3679     if (!gst_qtmux_caps_is_subset_full (qtmux, current_caps, caps)) {
3680       gst_caps_unref (current_caps);
3681       goto refuse_renegotiation;
3682     }
3683     GST_DEBUG_OBJECT (qtmux,
3684         "pad %s accepted renegotiation to %" GST_PTR_FORMAT " from %"
3685         GST_PTR_FORMAT, GST_PAD_NAME (pad), caps, current_caps);
3686     gst_caps_unref (current_caps);
3687   }
3688
3689   GST_DEBUG_OBJECT (qtmux, "%s:%s, caps=%" GST_PTR_FORMAT,
3690       GST_DEBUG_PAD_NAME (pad), caps);
3691
3692   format = qtmux_klass->format;
3693   structure = gst_caps_get_structure (caps, 0);
3694   mimetype = gst_structure_get_name (structure);
3695
3696   /* common info */
3697   if (!gst_structure_get_int (structure, "channels", &channels) ||
3698       !gst_structure_get_int (structure, "rate", &rate)) {
3699     goto refuse_caps;
3700   }
3701
3702   /* optional */
3703   value = gst_structure_get_value (structure, "codec_data");
3704   if (value != NULL)
3705     codec_data = gst_value_get_buffer (value);
3706
3707   qtpad->is_out_of_order = FALSE;
3708
3709   /* set common properties */
3710   entry.sample_rate = rate;
3711   entry.channels = channels;
3712   /* default */
3713   entry.sample_size = 16;
3714   /* this is the typical compressed case */
3715   if (format == GST_QT_MUX_FORMAT_QT) {
3716     entry.version = 1;
3717     entry.compression_id = -2;
3718   }
3719
3720   /* now map onto a fourcc, and some extra properties */
3721   if (strcmp (mimetype, "audio/mpeg") == 0) {
3722     gint mpegversion = 0, mpegaudioversion = 0;
3723     gint layer = -1;
3724
3725     gst_structure_get_int (structure, "mpegversion", &mpegversion);
3726     switch (mpegversion) {
3727       case 1:
3728         gst_structure_get_int (structure, "layer", &layer);
3729         gst_structure_get_int (structure, "mpegaudioversion",
3730             &mpegaudioversion);
3731
3732         /* mp1/2/3 */
3733         /* note: QuickTime player does not like mp3 either way in iso/mp4 */
3734         if (format == GST_QT_MUX_FORMAT_QT)
3735           entry.fourcc = FOURCC__mp3;
3736         else {
3737           entry.fourcc = FOURCC_mp4a;
3738           ext_atom =
3739               build_esds_extension (qtpad->trak, ESDS_OBJECT_TYPE_MPEG1_P3,
3740               ESDS_STREAM_TYPE_AUDIO, codec_data, qtpad->avg_bitrate,
3741               qtpad->max_bitrate);
3742         }
3743         if (layer == 1) {
3744           g_warn_if_fail (format == GST_QT_MUX_FORMAT_MP4);
3745           entry.samples_per_packet = 384;
3746         } else if (layer == 2) {
3747           g_warn_if_fail (format == GST_QT_MUX_FORMAT_MP4);
3748           entry.samples_per_packet = 1152;
3749         } else {
3750           g_warn_if_fail (layer == 3);
3751           entry.samples_per_packet = (mpegaudioversion <= 1) ? 1152 : 576;
3752         }
3753         entry.bytes_per_sample = 2;
3754         break;
3755       case 4:
3756
3757         /* check stream-format */
3758         stream_format = gst_structure_get_string (structure, "stream-format");
3759         if (stream_format) {
3760           if (strcmp (stream_format, "raw") != 0) {
3761             GST_WARNING_OBJECT (qtmux, "Unsupported AAC stream-format %s, "
3762                 "please use 'raw'", stream_format);
3763             goto refuse_caps;
3764           }
3765         } else {
3766           GST_WARNING_OBJECT (qtmux, "No stream-format present in caps, "
3767               "assuming 'raw'");
3768         }
3769
3770         if (!codec_data || gst_buffer_get_size ((GstBuffer *) codec_data) < 2) {
3771           GST_WARNING_OBJECT (qtmux, "no (valid) codec_data for AAC audio");
3772           goto refuse_caps;
3773         } else {
3774           guint8 profile;
3775
3776           gst_buffer_extract ((GstBuffer *) codec_data, 0, &profile, 1);
3777           /* warn if not Low Complexity profile */
3778           profile >>= 3;
3779           if (profile != 2)
3780             GST_WARNING_OBJECT (qtmux,
3781                 "non-LC AAC may not run well on (Apple) QuickTime/iTunes");
3782         }
3783
3784         /* AAC */
3785         entry.fourcc = FOURCC_mp4a;
3786
3787         if (format == GST_QT_MUX_FORMAT_QT)
3788           ext_atom = build_mov_aac_extension (qtpad->trak, codec_data,
3789               qtpad->avg_bitrate, qtpad->max_bitrate);
3790         else
3791           ext_atom =
3792               build_esds_extension (qtpad->trak, ESDS_OBJECT_TYPE_MPEG4_P3,
3793               ESDS_STREAM_TYPE_AUDIO, codec_data, qtpad->avg_bitrate,
3794               qtpad->max_bitrate);
3795         break;
3796       default:
3797         break;
3798     }
3799   } else if (strcmp (mimetype, "audio/AMR") == 0) {
3800     entry.fourcc = FOURCC_samr;
3801     entry.sample_size = 16;
3802     entry.samples_per_packet = 160;
3803     entry.bytes_per_sample = 2;
3804     ext_atom = build_amr_extension ();
3805   } else if (strcmp (mimetype, "audio/AMR-WB") == 0) {
3806     entry.fourcc = FOURCC_sawb;
3807     entry.sample_size = 16;
3808     entry.samples_per_packet = 320;
3809     entry.bytes_per_sample = 2;
3810     ext_atom = build_amr_extension ();
3811   } else if (strcmp (mimetype, "audio/x-raw") == 0) {
3812     GstAudioInfo info;
3813
3814     gst_audio_info_init (&info);
3815     if (!gst_audio_info_from_caps (&info, caps))
3816       goto refuse_caps;
3817
3818     /* spec has no place for a distinction in these */
3819     if (info.finfo->width != info.finfo->depth) {
3820       GST_DEBUG_OBJECT (qtmux, "width must be same as depth!");
3821       goto refuse_caps;
3822     }
3823
3824     if ((info.finfo->flags & GST_AUDIO_FORMAT_FLAG_SIGNED)) {
3825       if (info.finfo->endianness == G_LITTLE_ENDIAN)
3826         entry.fourcc = FOURCC_sowt;
3827       else if (info.finfo->endianness == G_BIG_ENDIAN)
3828         entry.fourcc = FOURCC_twos;
3829       else
3830         entry.fourcc = FOURCC_sowt;
3831       /* maximum backward compatibility; only new version for > 16 bit */
3832       if (info.finfo->depth <= 16)
3833         entry.version = 0;
3834       /* not compressed in any case */
3835       entry.compression_id = 0;
3836       /* QT spec says: max at 16 bit even if sample size were actually larger,
3837        * however, most players (e.g. QuickTime!) seem to disagree, so ... */
3838       entry.sample_size = info.finfo->depth;
3839       entry.bytes_per_sample = info.finfo->depth / 8;
3840       entry.samples_per_packet = 1;
3841       entry.bytes_per_packet = info.finfo->depth / 8;
3842       entry.bytes_per_frame = entry.bytes_per_packet * info.channels;
3843     } else {
3844       if (info.finfo->width == 8 && info.finfo->depth == 8) {
3845         /* fall back to old 8-bit version */
3846         entry.fourcc = FOURCC_raw_;
3847         entry.version = 0;
3848         entry.compression_id = 0;
3849         entry.sample_size = 8;
3850       } else {
3851         GST_DEBUG_OBJECT (qtmux, "non 8-bit PCM must be signed");
3852         goto refuse_caps;
3853       }
3854     }
3855     constant_size = (info.finfo->depth / 8) * info.channels;
3856   } else if (strcmp (mimetype, "audio/x-alaw") == 0) {
3857     entry.fourcc = FOURCC_alaw;
3858     entry.samples_per_packet = 1023;
3859     entry.bytes_per_sample = 2;
3860   } else if (strcmp (mimetype, "audio/x-mulaw") == 0) {
3861     entry.fourcc = FOURCC_ulaw;
3862     entry.samples_per_packet = 1023;
3863     entry.bytes_per_sample = 2;
3864   } else if (strcmp (mimetype, "audio/x-adpcm") == 0) {
3865     gint blocksize;
3866     if (!gst_structure_get_int (structure, "block_align", &blocksize)) {
3867       GST_DEBUG_OBJECT (qtmux, "broken caps, block_align missing");
3868       goto refuse_caps;
3869     }
3870     /* Currently only supports WAV-style IMA ADPCM, for which the codec id is
3871        0x11 */
3872     entry.fourcc = MS_WAVE_FOURCC (0x11);
3873     /* 4 byte header per channel (including one sample). 2 samples per byte
3874        remaining. Simplifying gives the following (samples per block per
3875        channel) */
3876     entry.samples_per_packet = 2 * blocksize / channels - 7;
3877     entry.bytes_per_sample = 2;
3878
3879     entry.bytes_per_frame = blocksize;
3880     entry.bytes_per_packet = blocksize / channels;
3881     /* ADPCM has constant size packets */
3882     constant_size = 1;
3883     /* TODO: I don't really understand why this helps, but it does! Constant
3884      * size and compression_id of -2 seem to be incompatible, and other files
3885      * in the wild use this too. */
3886     entry.compression_id = -1;
3887
3888     ext_atom = build_ima_adpcm_extension (channels, rate, blocksize);
3889   } else if (strcmp (mimetype, "audio/x-alac") == 0) {
3890     GstBuffer *codec_config;
3891     gint len;
3892     GstMapInfo map;
3893
3894     entry.fourcc = FOURCC_alac;
3895     gst_buffer_map ((GstBuffer *) codec_data, &map, GST_MAP_READ);
3896     /* let's check if codec data already comes with 'alac' atom prefix */
3897     if (!codec_data || (len = map.size) < 28) {
3898       GST_DEBUG_OBJECT (qtmux, "broken caps, codec data missing");
3899       gst_buffer_unmap ((GstBuffer *) codec_data, &map);
3900       goto refuse_caps;
3901     }
3902     if (GST_READ_UINT32_LE (map.data + 4) == FOURCC_alac) {
3903       len -= 8;
3904       codec_config =
3905           gst_buffer_copy_region ((GstBuffer *) codec_data,
3906           GST_BUFFER_COPY_MEMORY, 8, len);
3907     } else {
3908       codec_config = gst_buffer_ref ((GstBuffer *) codec_data);
3909     }
3910     gst_buffer_unmap ((GstBuffer *) codec_data, &map);
3911     if (len != 28) {
3912       /* does not look good, but perhaps some trailing unneeded stuff */
3913       GST_WARNING_OBJECT (qtmux, "unexpected codec-data size, possibly broken");
3914     }
3915     if (format == GST_QT_MUX_FORMAT_QT)
3916       ext_atom = build_mov_alac_extension (codec_config);
3917     else
3918       ext_atom = build_codec_data_extension (FOURCC_alac, codec_config);
3919     /* set some more info */
3920     gst_buffer_map (codec_config, &map, GST_MAP_READ);
3921     entry.bytes_per_sample = 2;
3922     entry.samples_per_packet = GST_READ_UINT32_BE (map.data + 4);
3923     gst_buffer_unmap (codec_config, &map);
3924     gst_buffer_unref (codec_config);
3925   } else if (strcmp (mimetype, "audio/x-ac3") == 0) {
3926     entry.fourcc = FOURCC_ac_3;
3927
3928     /* Fixed values according to TS 102 366 but it also mentions that
3929      * they should be ignored */
3930     entry.channels = 2;
3931     entry.sample_size = 16;
3932
3933     /* AC-3 needs an extension atom but its data can only be obtained from
3934      * the stream itself. Abuse the prepare_buf_func so we parse a frame
3935      * and get the needed data */
3936     qtpad->prepare_buf_func = gst_qt_mux_prepare_parse_ac3_frame;
3937   } else if (strcmp (mimetype, "audio/x-opus") == 0) {
3938     /* Based on the specification defined in:
3939      * https://www.opus-codec.org/docs/opus_in_isobmff.html */
3940     guint8 channels, mapping_family, stream_count, coupled_count;
3941     guint16 pre_skip;
3942     gint16 output_gain;
3943     guint32 rate;
3944     guint8 channel_mapping[256];
3945     const GValue *streamheader;
3946     const GValue *first_element;
3947     GstBuffer *header;
3948
3949     entry.fourcc = FOURCC_opus;
3950     entry.sample_size = 16;
3951
3952     streamheader = gst_structure_get_value (structure, "streamheader");
3953     if (streamheader && GST_VALUE_HOLDS_ARRAY (streamheader) &&
3954         gst_value_array_get_size (streamheader) != 0) {
3955       first_element = gst_value_array_get_value (streamheader, 0);
3956       header = gst_value_get_buffer (first_element);
3957       if (!gst_codec_utils_opus_parse_header (header, &rate, &channels,
3958               &mapping_family, &stream_count, &coupled_count, channel_mapping,
3959               &pre_skip, &output_gain)) {
3960         GST_ERROR_OBJECT (qtmux, "Incomplete OpusHead");
3961         goto refuse_caps;
3962       }
3963     } else {
3964       GST_WARNING_OBJECT (qtmux,
3965           "no streamheader field in caps %" GST_PTR_FORMAT, caps);
3966
3967       if (!gst_codec_utils_opus_parse_caps (caps, &rate, &channels,
3968               &mapping_family, &stream_count, &coupled_count,
3969               channel_mapping)) {
3970         GST_ERROR_OBJECT (qtmux, "Incomplete Opus caps");
3971         goto refuse_caps;
3972       }
3973       pre_skip = 0;
3974       output_gain = 0;
3975     }
3976
3977     entry.channels = channels;
3978     ext_atom = build_opus_extension (rate, channels, mapping_family,
3979         stream_count, coupled_count, channel_mapping, pre_skip, output_gain);
3980   }
3981
3982   if (!entry.fourcc)
3983     goto refuse_caps;
3984
3985   /* ok, set the pad info accordingly */
3986   qtpad->fourcc = entry.fourcc;
3987   qtpad->sample_size = constant_size;
3988   qtpad->trak_ste =
3989       (SampleTableEntry *) atom_trak_set_audio_type (qtpad->trak,
3990       qtmux->context, &entry,
3991       qtmux->trak_timescale ? qtmux->trak_timescale : entry.sample_rate,
3992       ext_atom, constant_size);
3993
3994   gst_object_unref (qtmux);
3995   return TRUE;
3996
3997   /* ERRORS */
3998 refuse_caps:
3999   {
4000     GST_WARNING_OBJECT (qtmux, "pad %s refused caps %" GST_PTR_FORMAT,
4001         GST_PAD_NAME (pad), caps);
4002     gst_object_unref (qtmux);
4003     return FALSE;
4004   }
4005 refuse_renegotiation:
4006   {
4007     GST_WARNING_OBJECT (qtmux,
4008         "pad %s refused renegotiation to %" GST_PTR_FORMAT,
4009         GST_PAD_NAME (pad), caps);
4010     gst_object_unref (qtmux);
4011     return FALSE;
4012   }
4013 }
4014
4015 /* return number of centiframes per second */
4016 static guint
4017 adjust_rate (gint n, gint d)
4018 {
4019   if (n == 0)
4020     return 10000;
4021
4022   if (d != 1 && d != 1001) {
4023     /* otherwise there are probably rounding errors and we should rather guess
4024      * if it's close enough to a well known framerate */
4025     gst_video_guess_framerate (gst_util_uint64_scale (d, GST_SECOND, n), &n,
4026         &d);
4027   }
4028
4029   return gst_util_uint64_scale (n, 100, d);
4030 }
4031
4032 static gboolean
4033 gst_qt_mux_video_sink_set_caps (GstQTPad * qtpad, GstCaps * caps)
4034 {
4035   GstPad *pad = qtpad->collect.pad;
4036   GstQTMux *qtmux = GST_QT_MUX_CAST (gst_pad_get_parent (pad));
4037   GstQTMuxClass *qtmux_klass = (GstQTMuxClass *) (G_OBJECT_GET_CLASS (qtmux));
4038   GstStructure *structure;
4039   const gchar *mimetype;
4040   gint width, height, depth = -1;
4041   gint framerate_num, framerate_den;
4042   guint32 rate;
4043   const GValue *value = NULL;
4044   const GstBuffer *codec_data = NULL;
4045   VisualSampleEntry entry = { 0, };
4046   GstQTMuxFormat format;
4047   AtomInfo *ext_atom = NULL;
4048   GList *ext_atom_list = NULL;
4049   gboolean sync = FALSE;
4050   int par_num, par_den;
4051
4052   qtpad->prepare_buf_func = NULL;
4053
4054   /* does not go well to renegotiate stream mid-way, unless
4055    * the old caps are a subset of the new one (this means upstream
4056    * added more info to the caps, as both should be 'fixed' caps) */
4057   if (qtpad->fourcc) {
4058     GstCaps *current_caps;
4059
4060     current_caps = gst_pad_get_current_caps (pad);
4061     g_assert (caps != NULL);
4062
4063     if (!gst_qtmux_caps_is_subset_full (qtmux, current_caps, caps)) {
4064       gst_caps_unref (current_caps);
4065       goto refuse_renegotiation;
4066     }
4067     GST_DEBUG_OBJECT (qtmux,
4068         "pad %s accepted renegotiation to %" GST_PTR_FORMAT " from %"
4069         GST_PTR_FORMAT, GST_PAD_NAME (pad), caps, current_caps);
4070     gst_caps_unref (current_caps);
4071   }
4072
4073   GST_DEBUG_OBJECT (qtmux, "%s:%s, caps=%" GST_PTR_FORMAT,
4074       GST_DEBUG_PAD_NAME (pad), caps);
4075
4076   format = qtmux_klass->format;
4077   structure = gst_caps_get_structure (caps, 0);
4078   mimetype = gst_structure_get_name (structure);
4079
4080   /* required parts */
4081   if (!gst_structure_get_int (structure, "width", &width) ||
4082       !gst_structure_get_int (structure, "height", &height))
4083     goto refuse_caps;
4084
4085   /* optional */
4086   depth = -1;
4087   /* works as a default timebase */
4088   framerate_num = 10000;
4089   framerate_den = 1;
4090   gst_structure_get_fraction (structure, "framerate", &framerate_num,
4091       &framerate_den);
4092   gst_structure_get_int (structure, "depth", &depth);
4093   value = gst_structure_get_value (structure, "codec_data");
4094   if (value != NULL)
4095     codec_data = gst_value_get_buffer (value);
4096
4097   par_num = 1;
4098   par_den = 1;
4099   gst_structure_get_fraction (structure, "pixel-aspect-ratio", &par_num,
4100       &par_den);
4101
4102   qtpad->is_out_of_order = FALSE;
4103
4104   /* bring frame numerator into a range that ensures both reasonable resolution
4105    * as well as a fair duration */
4106   rate = qtmux->trak_timescale ?
4107       qtmux->trak_timescale : adjust_rate (framerate_num, framerate_den);
4108   GST_DEBUG_OBJECT (qtmux, "Rate of video track selected: %" G_GUINT32_FORMAT,
4109       rate);
4110
4111   /* set common properties */
4112   entry.width = width;
4113   entry.height = height;
4114   entry.par_n = par_num;
4115   entry.par_d = par_den;
4116   /* should be OK according to qt and iso spec, override if really needed */
4117   entry.color_table_id = -1;
4118   entry.frame_count = 1;
4119   entry.depth = 24;
4120
4121   /* sync entries by default */
4122   sync = TRUE;
4123
4124   /* now map onto a fourcc, and some extra properties */
4125   if (strcmp (mimetype, "video/x-raw") == 0) {
4126     const gchar *format;
4127     GstVideoFormat fmt;
4128     const GstVideoFormatInfo *vinfo;
4129
4130     format = gst_structure_get_string (structure, "format");
4131     fmt = gst_video_format_from_string (format);
4132     vinfo = gst_video_format_get_info (fmt);
4133
4134     switch (fmt) {
4135       case GST_VIDEO_FORMAT_UYVY:
4136         if (depth == -1)
4137           depth = 24;
4138         entry.fourcc = FOURCC_2vuy;
4139         entry.depth = depth;
4140         sync = FALSE;
4141         break;
4142       case GST_VIDEO_FORMAT_v210:
4143         if (depth == -1)
4144           depth = 24;
4145         entry.fourcc = FOURCC_v210;
4146         entry.depth = depth;
4147         sync = FALSE;
4148         break;
4149       default:
4150         if (GST_VIDEO_FORMAT_INFO_FLAGS (vinfo) & GST_VIDEO_FORMAT_FLAG_RGB) {
4151           entry.fourcc = FOURCC_raw_;
4152           entry.depth = GST_VIDEO_FORMAT_INFO_PSTRIDE (vinfo, 0) * 8;
4153           sync = FALSE;
4154         }
4155         break;
4156     }
4157   } else if (strcmp (mimetype, "video/x-h263") == 0) {
4158     ext_atom = NULL;
4159     if (format == GST_QT_MUX_FORMAT_QT)
4160       entry.fourcc = FOURCC_h263;
4161     else
4162       entry.fourcc = FOURCC_s263;
4163     ext_atom = build_h263_extension ();
4164     if (ext_atom != NULL)
4165       ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
4166   } else if (strcmp (mimetype, "video/x-divx") == 0 ||
4167       strcmp (mimetype, "video/mpeg") == 0) {
4168     gint version = 0;
4169
4170     if (strcmp (mimetype, "video/x-divx") == 0) {
4171       gst_structure_get_int (structure, "divxversion", &version);
4172       version = version == 5 ? 1 : 0;
4173     } else {
4174       gst_structure_get_int (structure, "mpegversion", &version);
4175       version = version == 4 ? 1 : 0;
4176     }
4177     if (version) {
4178       entry.fourcc = FOURCC_mp4v;
4179       ext_atom =
4180           build_esds_extension (qtpad->trak, ESDS_OBJECT_TYPE_MPEG4_P2,
4181           ESDS_STREAM_TYPE_VISUAL, codec_data, qtpad->avg_bitrate,
4182           qtpad->max_bitrate);
4183       if (ext_atom != NULL)
4184         ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
4185       if (!codec_data)
4186         GST_WARNING_OBJECT (qtmux, "no codec_data for MPEG4 video; "
4187             "output might not play in Apple QuickTime (try global-headers?)");
4188     }
4189   } else if (strcmp (mimetype, "video/x-h264") == 0) {
4190     if (!codec_data) {
4191       GST_WARNING_OBJECT (qtmux, "no codec_data in h264 caps");
4192       goto refuse_caps;
4193     }
4194
4195     entry.fourcc = FOURCC_avc1;
4196
4197     ext_atom = build_btrt_extension (0, qtpad->avg_bitrate, qtpad->max_bitrate);
4198     if (ext_atom != NULL)
4199       ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
4200     ext_atom = build_codec_data_extension (FOURCC_avcC, codec_data);
4201     if (ext_atom != NULL)
4202       ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
4203   } else if (strcmp (mimetype, "video/x-h265") == 0) {
4204     const gchar *format;
4205
4206     if (!codec_data) {
4207       GST_WARNING_OBJECT (qtmux, "no codec_data in h265 caps");
4208       goto refuse_caps;
4209     }
4210
4211     format = gst_structure_get_string (structure, "stream-format");
4212     if (strcmp (format, "hvc1") == 0)
4213       entry.fourcc = FOURCC_hvc1;
4214     else if (strcmp (format, "hev1") == 0)
4215       entry.fourcc = FOURCC_hev1;
4216
4217     ext_atom = build_btrt_extension (0, qtpad->avg_bitrate, qtpad->max_bitrate);
4218     if (ext_atom != NULL)
4219       ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
4220
4221     ext_atom = build_codec_data_extension (FOURCC_hvcC, codec_data);
4222     if (ext_atom != NULL)
4223       ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
4224
4225   } else if (strcmp (mimetype, "video/x-svq") == 0) {
4226     gint version = 0;
4227     const GstBuffer *seqh = NULL;
4228     const GValue *seqh_value;
4229     gdouble gamma = 0;
4230
4231     gst_structure_get_int (structure, "svqversion", &version);
4232     if (version == 3) {
4233       entry.fourcc = FOURCC_SVQ3;
4234       entry.version = 3;
4235       entry.depth = 32;
4236
4237       seqh_value = gst_structure_get_value (structure, "seqh");
4238       if (seqh_value) {
4239         seqh = gst_value_get_buffer (seqh_value);
4240         ext_atom = build_SMI_atom (seqh);
4241         if (ext_atom)
4242           ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
4243       }
4244
4245       /* we need to add the gamma anyway because quicktime might crash
4246        * when it doesn't find it */
4247       if (!gst_structure_get_double (structure, "applied-gamma", &gamma)) {
4248         /* it seems that using 0 here makes it ignored */
4249         gamma = 0.0;
4250       }
4251       ext_atom = build_gama_atom (gamma);
4252       if (ext_atom)
4253         ext_atom_list = g_list_prepend (ext_atom_list, ext_atom);
4254     } else {
4255       GST_WARNING_OBJECT (qtmux, "SVQ version %d not supported. Please file "
4256           "a bug at http://bugzilla.gnome.org", version);
4257     }
4258   } else if (strcmp (mimetype, "video/x-dv") == 0) {
4259     gint version = 0;
4260     gboolean pal = TRUE;
4261
4262     sync = FALSE;
4263     if (framerate_num != 25 || framerate_den != 1)
4264       pal = FALSE;
4265     gst_structure_get_int (structure, "dvversion", &version);
4266     /* fall back to typical one */
4267     if (!version)
4268       version = 25;
4269     switch (version) {
4270       case 25:
4271         if (pal)
4272           entry.fourcc = FOURCC_dvcp;
4273         else
4274           entry.fourcc = FOURCC_dvc_;
4275         break;
4276       case 50:
4277         if (pal)
4278           entry.fourcc = FOURCC_dv5p;
4279         else
4280           entry.fourcc = FOURCC_dv5n;
4281         break;
4282       default:
4283         GST_WARNING_OBJECT (qtmux, "unrecognized dv version");
4284         break;
4285     }
4286   } else if (strcmp (mimetype, "image/jpeg") == 0) {
4287     entry.fourcc = FOURCC_jpeg;
4288     sync = FALSE;
4289   } else if (strcmp (mimetype, "image/x-j2c") == 0 ||
4290       strcmp (mimetype, "image/x-jpc") == 0) {
4291     const gchar *colorspace;
4292     const GValue *cmap_array;
4293     const GValue *cdef_array;
4294     gint ncomp = 0;
4295
4296     if (strcmp (mimetype, "image/x-jpc") == 0) {
4297       qtpad->prepare_buf_func = gst_qt_mux_prepare_jpc_buffer;
4298     }
4299
4300     gst_structure_get_int (structure, "num-components", &ncomp);
4301     cmap_array = gst_structure_get_value (structure, "component-map");
4302     cdef_array = gst_structure_get_value (structure, "channel-definitions");
4303
4304     ext_atom = NULL;
4305     entry.fourcc = FOURCC_mjp2;
4306     sync = FALSE;
4307
4308     colorspace = gst_structure_get_string (structure, "colorspace");
4309     if (colorspace &&
4310         (ext_atom =
4311             build_jp2h_extension (width, height, colorspace, ncomp, cmap_array,
4312                 cdef_array)) != NULL) {
4313       ext_atom_list = g_list_append (ext_atom_list, ext_atom);
4314
4315       ext_atom = build_jp2x_extension (codec_data);
4316       if (ext_atom)
4317         ext_atom_list = g_list_append (ext_atom_list, ext_atom);
4318     } else {
4319       GST_DEBUG_OBJECT (qtmux, "missing or invalid fourcc in jp2 caps");
4320       goto refuse_caps;
4321     }
4322   } else if (strcmp (mimetype, "video/x-vp8") == 0) {
4323     entry.fourcc = FOURCC_VP80;
4324     sync = FALSE;
4325   } else if (strcmp (mimetype, "video/x-dirac") == 0) {
4326     entry.fourcc = FOURCC_drac;
4327   } else if (strcmp (mimetype, "video/x-qt-part") == 0) {
4328     guint32 fourcc;
4329
4330     gst_structure_get_uint (structure, "format", &fourcc);
4331     entry.fourcc = fourcc;
4332   } else if (strcmp (mimetype, "video/x-mp4-part") == 0) {
4333     guint32 fourcc;
4334
4335     gst_structure_get_uint (structure, "format", &fourcc);
4336     entry.fourcc = fourcc;
4337   } else if (strcmp (mimetype, "video/x-prores") == 0) {
4338     const gchar *variant;
4339
4340     variant = gst_structure_get_string (structure, "variant");
4341     if (!variant || !g_strcmp0 (variant, "standard"))
4342       entry.fourcc = FOURCC_apcn;
4343     else if (!g_strcmp0 (variant, "lt"))
4344       entry.fourcc = FOURCC_apcs;
4345     else if (!g_strcmp0 (variant, "hq"))
4346       entry.fourcc = FOURCC_apch;
4347     else if (!g_strcmp0 (variant, "proxy"))
4348       entry.fourcc = FOURCC_apco;
4349     else if (!g_strcmp0 (variant, "4444"))
4350       entry.fourcc = FOURCC_ap4h;
4351     else if (!g_strcmp0 (variant, "4444xq"))
4352       entry.fourcc = FOURCC_ap4x;
4353
4354     sync = FALSE;
4355
4356     if (!qtmux->interleave_time_set)
4357       qtmux->interleave_time = 500 * GST_MSECOND;
4358     if (!qtmux->interleave_bytes_set)
4359       qtmux->interleave_bytes = width > 720 ? 4 * 1024 * 1024 : 2 * 1024 * 1024;
4360   }
4361
4362   if (!entry.fourcc)
4363     goto refuse_caps;
4364
4365   if (qtmux_klass->format == GST_QT_MUX_FORMAT_QT ||
4366       qtmux_klass->format == GST_QT_MUX_FORMAT_MP4) {
4367     const gchar *s;
4368     GstVideoColorimetry colorimetry;
4369
4370     s = gst_structure_get_string (structure, "colorimetry");
4371     if (s && gst_video_colorimetry_from_string (&colorimetry, s)) {
4372       ext_atom =
4373           build_colr_extension (&colorimetry,
4374           qtmux_klass->format == GST_QT_MUX_FORMAT_MP4);
4375       if (ext_atom)
4376         ext_atom_list = g_list_append (ext_atom_list, ext_atom);
4377     }
4378   }
4379
4380   if (qtmux_klass->format == GST_QT_MUX_FORMAT_QT
4381       || strcmp (mimetype, "image/x-j2c") == 0
4382       || strcmp (mimetype, "image/x-jpc") == 0) {
4383     const gchar *s;
4384     GstVideoInterlaceMode interlace_mode;
4385     GstVideoFieldOrder field_order;
4386     gint fields = -1;
4387
4388     if (strcmp (mimetype, "image/x-j2c") == 0 ||
4389         strcmp (mimetype, "image/x-jpc") == 0) {
4390
4391       fields = 1;
4392       gst_structure_get_int (structure, "fields", &fields);
4393     }
4394
4395     s = gst_structure_get_string (structure, "interlace-mode");
4396     if (s)
4397       interlace_mode = gst_video_interlace_mode_from_string (s);
4398     else
4399       interlace_mode =
4400           (fields <=
4401           1) ? GST_VIDEO_INTERLACE_MODE_PROGRESSIVE :
4402           GST_VIDEO_INTERLACE_MODE_MIXED;
4403
4404     field_order = GST_VIDEO_FIELD_ORDER_UNKNOWN;
4405     if (interlace_mode == GST_VIDEO_INTERLACE_MODE_INTERLEAVED) {
4406       s = gst_structure_get_string (structure, "field-order");
4407       if (s)
4408         field_order = gst_video_field_order_from_string (s);
4409     }
4410
4411     ext_atom = build_fiel_extension (interlace_mode, field_order);
4412     if (ext_atom)
4413       ext_atom_list = g_list_append (ext_atom_list, ext_atom);
4414   }
4415
4416
4417   if (qtmux_klass->format == GST_QT_MUX_FORMAT_QT &&
4418       width > 640 && width <= 1052 && height >= 480 && height <= 576) {
4419     /* The 'clap' extension is also defined for MP4 but inventing values in
4420      * general seems a bit tricky for this one. We only write it for
4421      * SD resolution in MOV, where it is a requirement.
4422      * The same goes for the 'tapt' extension, just that it is not defined for
4423      * MP4 and only for MOV
4424      */
4425     gint dar_num, dar_den;
4426     gint clef_width, clef_height, prof_width;
4427     gint clap_width_n, clap_width_d, clap_height;
4428     gint cdiv;
4429     double approx_dar;
4430
4431     /* First, guess display aspect ratio based on pixel aspect ratio,
4432      * width and height. We assume that display aspect ratio is either
4433      * 4:3 or 16:9
4434      */
4435     approx_dar = (gdouble) (width * par_num) / (height * par_den);
4436     if (approx_dar > 11.0 / 9 && approx_dar < 14.0 / 9) {
4437       dar_num = 4;
4438       dar_den = 3;
4439     } else if (approx_dar > 15.0 / 9 && approx_dar < 18.0 / 9) {
4440       dar_num = 16;
4441       dar_den = 9;
4442     } else {
4443       dar_num = width * par_num;
4444       dar_den = height * par_den;
4445       cdiv = gst_util_greatest_common_divisor (dar_num, dar_den);
4446       dar_num /= cdiv;
4447       dar_den /= cdiv;
4448     }
4449
4450     /* Then, calculate clean-aperture values (clap and clef)
4451      * using the guessed DAR.
4452      */
4453     clef_height = clap_height = (height == 486 ? 480 : height);
4454     clef_width = gst_util_uint64_scale (clef_height,
4455         dar_num * G_GUINT64_CONSTANT (65536), dar_den);
4456     prof_width = gst_util_uint64_scale (width,
4457         par_num * G_GUINT64_CONSTANT (65536), par_den);
4458     clap_width_n = clap_height * dar_num * par_den;
4459     clap_width_d = dar_den * par_num;
4460     cdiv = gst_util_greatest_common_divisor (clap_width_n, clap_width_d);
4461     clap_width_n /= cdiv;
4462     clap_width_d /= cdiv;
4463
4464     ext_atom = build_tapt_extension (clef_width, clef_height << 16, prof_width,
4465         height << 16, width << 16, height << 16);
4466     qtpad->trak->tapt = ext_atom;
4467
4468     ext_atom = build_clap_extension (clap_width_n, clap_width_d,
4469         clap_height, 1, 0, 1, 0, 1);
4470     if (ext_atom)
4471       ext_atom_list = g_list_append (ext_atom_list, ext_atom);
4472   }
4473
4474   /* ok, set the pad info accordingly */
4475   qtpad->fourcc = entry.fourcc;
4476   qtpad->sync = sync;
4477   qtpad->trak_ste =
4478       (SampleTableEntry *) atom_trak_set_video_type (qtpad->trak,
4479       qtmux->context, &entry, rate, ext_atom_list);
4480   if (strcmp (mimetype, "video/x-prores") == 0) {
4481     SampleTableEntryMP4V *mp4v = (SampleTableEntryMP4V *) qtpad->trak_ste;
4482     const gchar *compressor = NULL;
4483     mp4v->spatial_quality = 0x3FF;
4484     mp4v->temporal_quality = 0;
4485     mp4v->vendor = FOURCC_appl;
4486     mp4v->horizontal_resolution = 72 << 16;
4487     mp4v->vertical_resolution = 72 << 16;
4488     mp4v->depth = (entry.fourcc == FOURCC_ap4h
4489         || entry.fourcc == FOURCC_ap4x) ? 32 : 24;
4490
4491     /* Set compressor name, required by some software */
4492     switch (entry.fourcc) {
4493       case FOURCC_apcn:
4494         compressor = "Apple ProRes 422";
4495         break;
4496       case FOURCC_apcs:
4497         compressor = "Apple ProRes 422 LT";
4498         break;
4499       case FOURCC_apch:
4500         compressor = "Apple ProRes 422 HQ";
4501         break;
4502       case FOURCC_apco:
4503         compressor = "Apple ProRes 422 Proxy";
4504         break;
4505       case FOURCC_ap4h:
4506         compressor = "Apple ProRes 4444";
4507         break;
4508       case FOURCC_ap4x:
4509         compressor = "Apple ProRes 4444 XQ";
4510         break;
4511     }
4512     if (compressor) {
4513       strcpy ((gchar *) mp4v->compressor + 1, compressor);
4514       mp4v->compressor[0] = strlen (compressor);
4515     }
4516   }
4517
4518   gst_object_unref (qtmux);
4519   return TRUE;
4520
4521   /* ERRORS */
4522 refuse_caps:
4523   {
4524     GST_WARNING_OBJECT (qtmux, "pad %s refused caps %" GST_PTR_FORMAT,
4525         GST_PAD_NAME (pad), caps);
4526     gst_object_unref (qtmux);
4527     return FALSE;
4528   }
4529 refuse_renegotiation:
4530   {
4531     GST_WARNING_OBJECT (qtmux,
4532         "pad %s refused renegotiation to %" GST_PTR_FORMAT, GST_PAD_NAME (pad),
4533         caps);
4534     gst_object_unref (qtmux);
4535     return FALSE;
4536   }
4537 }
4538
4539 static gboolean
4540 gst_qt_mux_subtitle_sink_set_caps (GstQTPad * qtpad, GstCaps * caps)
4541 {
4542   GstPad *pad = qtpad->collect.pad;
4543   GstQTMux *qtmux = GST_QT_MUX_CAST (gst_pad_get_parent (pad));
4544   GstStructure *structure;
4545   SubtitleSampleEntry entry = { 0, };
4546
4547   /* does not go well to renegotiate stream mid-way, unless
4548    * the old caps are a subset of the new one (this means upstream
4549    * added more info to the caps, as both should be 'fixed' caps) */
4550   if (qtpad->fourcc) {
4551     GstCaps *current_caps;
4552
4553     current_caps = gst_pad_get_current_caps (pad);
4554     g_assert (caps != NULL);
4555
4556     if (!gst_qtmux_caps_is_subset_full (qtmux, current_caps, caps)) {
4557       gst_caps_unref (current_caps);
4558       goto refuse_renegotiation;
4559     }
4560     GST_DEBUG_OBJECT (qtmux,
4561         "pad %s accepted renegotiation to %" GST_PTR_FORMAT " from %"
4562         GST_PTR_FORMAT, GST_PAD_NAME (pad), caps, current_caps);
4563     gst_caps_unref (current_caps);
4564   }
4565
4566   GST_DEBUG_OBJECT (qtmux, "%s:%s, caps=%" GST_PTR_FORMAT,
4567       GST_DEBUG_PAD_NAME (pad), caps);
4568
4569   /* subtitles default */
4570   subtitle_sample_entry_init (&entry);
4571   qtpad->is_out_of_order = FALSE;
4572   qtpad->sync = FALSE;
4573   qtpad->sparse = TRUE;
4574   qtpad->prepare_buf_func = NULL;
4575
4576   structure = gst_caps_get_structure (caps, 0);
4577
4578   if (gst_structure_has_name (structure, "text/x-raw")) {
4579     const gchar *format = gst_structure_get_string (structure, "format");
4580     if (format && strcmp (format, "utf8") == 0) {
4581       entry.fourcc = FOURCC_tx3g;
4582       qtpad->prepare_buf_func = gst_qt_mux_prepare_tx3g_buffer;
4583       qtpad->create_empty_buffer = gst_qt_mux_create_empty_tx3g_buffer;
4584     }
4585   }
4586
4587   if (!entry.fourcc)
4588     goto refuse_caps;
4589
4590   qtpad->fourcc = entry.fourcc;
4591   qtpad->trak_ste =
4592       (SampleTableEntry *) atom_trak_set_subtitle_type (qtpad->trak,
4593       qtmux->context, &entry);
4594
4595   gst_object_unref (qtmux);
4596   return TRUE;
4597
4598   /* ERRORS */
4599 refuse_caps:
4600   {
4601     GST_WARNING_OBJECT (qtmux, "pad %s refused caps %" GST_PTR_FORMAT,
4602         GST_PAD_NAME (pad), caps);
4603     gst_object_unref (qtmux);
4604     return FALSE;
4605   }
4606 refuse_renegotiation:
4607   {
4608     GST_WARNING_OBJECT (qtmux,
4609         "pad %s refused renegotiation to %" GST_PTR_FORMAT, GST_PAD_NAME (pad),
4610         caps);
4611     gst_object_unref (qtmux);
4612     return FALSE;
4613   }
4614 }
4615
4616 static gboolean
4617 gst_qt_mux_sink_event (GstCollectPads * pads, GstCollectData * data,
4618     GstEvent * event, gpointer user_data)
4619 {
4620   GstQTMux *qtmux;
4621   guint32 avg_bitrate = 0, max_bitrate = 0;
4622   GstPad *pad = data->pad;
4623   gboolean ret = TRUE;
4624
4625   qtmux = GST_QT_MUX_CAST (user_data);
4626   switch (GST_EVENT_TYPE (event)) {
4627     case GST_EVENT_CAPS:
4628     {
4629       GstCaps *caps;
4630       GstQTPad *collect_pad;
4631
4632       gst_event_parse_caps (event, &caps);
4633
4634       /* find stream data */
4635       collect_pad = (GstQTPad *) gst_pad_get_element_private (pad);
4636       g_assert (collect_pad);
4637       g_assert (collect_pad->set_caps);
4638
4639       ret = collect_pad->set_caps (collect_pad, caps);
4640       gst_event_unref (event);
4641       event = NULL;
4642       break;
4643     }
4644     case GST_EVENT_TAG:{
4645       GstTagList *list;
4646       GstTagSetter *setter = GST_TAG_SETTER (qtmux);
4647       GstTagMergeMode mode;
4648       gchar *code;
4649       GstQTPad *collect_pad;
4650
4651       GST_OBJECT_LOCK (qtmux);
4652       mode = gst_tag_setter_get_tag_merge_mode (setter);
4653       collect_pad = (GstQTPad *) gst_pad_get_element_private (pad);
4654
4655       gst_event_parse_tag (event, &list);
4656       GST_DEBUG_OBJECT (qtmux, "received tag event on pad %s:%s : %"
4657           GST_PTR_FORMAT, GST_DEBUG_PAD_NAME (pad), list);
4658
4659       if (gst_tag_list_get_scope (list) == GST_TAG_SCOPE_GLOBAL) {
4660         gst_tag_setter_merge_tags (setter, list, mode);
4661         qtmux->tags_changed = TRUE;
4662       } else {
4663         if (!collect_pad->tags)
4664           collect_pad->tags = gst_tag_list_new_empty ();
4665         gst_tag_list_insert (collect_pad->tags, list, mode);
4666         collect_pad->tags_changed = TRUE;
4667       }
4668       GST_OBJECT_UNLOCK (qtmux);
4669
4670       if (gst_tag_list_get_uint (list, GST_TAG_BITRATE, &avg_bitrate) |
4671           gst_tag_list_get_uint (list, GST_TAG_MAXIMUM_BITRATE, &max_bitrate)) {
4672         GstQTPad *qtpad = gst_pad_get_element_private (pad);
4673         g_assert (qtpad);
4674
4675         if (avg_bitrate > 0 && avg_bitrate < G_MAXUINT32)
4676           qtpad->avg_bitrate = avg_bitrate;
4677         if (max_bitrate > 0 && max_bitrate < G_MAXUINT32)
4678           qtpad->max_bitrate = max_bitrate;
4679       }
4680
4681       if (gst_tag_list_get_string (list, GST_TAG_LANGUAGE_CODE, &code)) {
4682         const char *iso_code = gst_tag_get_language_code_iso_639_2T (code);
4683         if (iso_code) {
4684           GstQTPad *qtpad = gst_pad_get_element_private (pad);
4685           g_assert (qtpad);
4686           if (qtpad->trak) {
4687             /* https://developer.apple.com/library/mac/#documentation/QuickTime/QTFF/QTFFChap4/qtff4.html */
4688             qtpad->trak->mdia.mdhd.language_code =
4689                 (iso_code[0] - 0x60) * 0x400 + (iso_code[1] - 0x60) * 0x20 +
4690                 (iso_code[2] - 0x60);
4691           }
4692         }
4693         g_free (code);
4694       }
4695
4696       gst_event_unref (event);
4697       event = NULL;
4698       ret = TRUE;
4699       break;
4700     }
4701     default:
4702       break;
4703   }
4704
4705   if (event != NULL)
4706     return gst_collect_pads_event_default (pads, data, event, FALSE);
4707
4708   return ret;
4709 }
4710
4711 static void
4712 gst_qt_mux_release_pad (GstElement * element, GstPad * pad)
4713 {
4714   GstQTMux *mux = GST_QT_MUX_CAST (element);
4715   GSList *walk;
4716
4717   GST_DEBUG_OBJECT (element, "Releasing %s:%s", GST_DEBUG_PAD_NAME (pad));
4718
4719   for (walk = mux->sinkpads; walk; walk = g_slist_next (walk)) {
4720     GstQTPad *qtpad = (GstQTPad *) walk->data;
4721     GST_DEBUG ("Checking %s:%s", GST_DEBUG_PAD_NAME (qtpad->collect.pad));
4722     if (qtpad->collect.pad == pad) {
4723       /* this is it, remove */
4724       mux->sinkpads = g_slist_delete_link (mux->sinkpads, walk);
4725       gst_element_remove_pad (element, pad);
4726       break;
4727     }
4728   }
4729
4730   if (mux->current_pad && mux->current_pad->collect.pad == pad) {
4731     mux->current_pad = NULL;
4732     mux->current_chunk_size = 0;
4733     mux->current_chunk_duration = 0;
4734   }
4735
4736   gst_collect_pads_remove_pad (mux->collect, pad);
4737
4738   if (mux->sinkpads == NULL) {
4739     /* No more outstanding request pads, reset our counters */
4740     mux->video_pads = 0;
4741     mux->audio_pads = 0;
4742     mux->subtitle_pads = 0;
4743   }
4744 }
4745
4746 static GstPad *
4747 gst_qt_mux_request_new_pad (GstElement * element,
4748     GstPadTemplate * templ, const gchar * req_name, const GstCaps * caps)
4749 {
4750   GstElementClass *klass = GST_ELEMENT_GET_CLASS (element);
4751   GstQTMux *qtmux = GST_QT_MUX_CAST (element);
4752   GstQTPad *collect_pad;
4753   GstPad *newpad;
4754   GstQTPadSetCapsFunc setcaps_func;
4755   gchar *name;
4756   gint pad_id;
4757   gboolean lock = TRUE;
4758
4759   if (templ->direction != GST_PAD_SINK)
4760     goto wrong_direction;
4761
4762   if (qtmux->state > GST_QT_MUX_STATE_STARTED)
4763     goto too_late;
4764
4765   if (templ == gst_element_class_get_pad_template (klass, "audio_%u")) {
4766     setcaps_func = gst_qt_mux_audio_sink_set_caps;
4767     if (req_name != NULL && sscanf (req_name, "audio_%u", &pad_id) == 1) {
4768       name = g_strdup (req_name);
4769     } else {
4770       name = g_strdup_printf ("audio_%u", qtmux->audio_pads++);
4771     }
4772   } else if (templ == gst_element_class_get_pad_template (klass, "video_%u")) {
4773     setcaps_func = gst_qt_mux_video_sink_set_caps;
4774     if (req_name != NULL && sscanf (req_name, "video_%u", &pad_id) == 1) {
4775       name = g_strdup (req_name);
4776     } else {
4777       name = g_strdup_printf ("video_%u", qtmux->video_pads++);
4778     }
4779   } else if (templ == gst_element_class_get_pad_template (klass, "subtitle_%u")) {
4780     setcaps_func = gst_qt_mux_subtitle_sink_set_caps;
4781     if (req_name != NULL && sscanf (req_name, "subtitle_%u", &pad_id) == 1) {
4782       name = g_strdup (req_name);
4783     } else {
4784       name = g_strdup_printf ("subtitle_%u", qtmux->subtitle_pads++);
4785     }
4786     lock = FALSE;
4787   } else
4788     goto wrong_template;
4789
4790   GST_DEBUG_OBJECT (qtmux, "Requested pad: %s", name);
4791
4792   /* create pad and add to collections */
4793   newpad = gst_pad_new_from_template (templ, name);
4794   g_free (name);
4795   collect_pad = (GstQTPad *)
4796       gst_collect_pads_add_pad (qtmux->collect, newpad, sizeof (GstQTPad),
4797       (GstCollectDataDestroyNotify) (gst_qt_mux_pad_reset), lock);
4798   /* set up pad */
4799   gst_qt_mux_pad_reset (collect_pad);
4800   collect_pad->trak = atom_trak_new (qtmux->context);
4801   atom_moov_add_trak (qtmux->moov, collect_pad->trak);
4802
4803   qtmux->sinkpads = g_slist_append (qtmux->sinkpads, collect_pad);
4804
4805   /* set up pad functions */
4806   collect_pad->set_caps = setcaps_func;
4807
4808   gst_pad_set_active (newpad, TRUE);
4809   gst_element_add_pad (element, newpad);
4810
4811   return newpad;
4812
4813   /* ERRORS */
4814 wrong_direction:
4815   {
4816     GST_WARNING_OBJECT (qtmux, "Request pad that is not a SINK pad.");
4817     return NULL;
4818   }
4819 too_late:
4820   {
4821     GST_WARNING_OBJECT (qtmux, "Not providing request pad after stream start.");
4822     return NULL;
4823   }
4824 wrong_template:
4825   {
4826     GST_WARNING_OBJECT (qtmux, "This is not our template!");
4827     return NULL;
4828   }
4829 }
4830
4831 static void
4832 gst_qt_mux_get_property (GObject * object,
4833     guint prop_id, GValue * value, GParamSpec * pspec)
4834 {
4835   GstQTMux *qtmux = GST_QT_MUX_CAST (object);
4836
4837   GST_OBJECT_LOCK (qtmux);
4838   switch (prop_id) {
4839     case PROP_MOVIE_TIMESCALE:
4840       g_value_set_uint (value, qtmux->timescale);
4841       break;
4842     case PROP_TRAK_TIMESCALE:
4843       g_value_set_uint (value, qtmux->trak_timescale);
4844       break;
4845     case PROP_DO_CTTS:
4846       g_value_set_boolean (value, qtmux->guess_pts);
4847       break;
4848 #ifndef GST_REMOVE_DEPRECATED
4849     case PROP_DTS_METHOD:
4850       g_value_set_enum (value, qtmux->dts_method);
4851       break;
4852 #endif
4853     case PROP_FAST_START:
4854       g_value_set_boolean (value, qtmux->fast_start);
4855       break;
4856     case PROP_FAST_START_TEMP_FILE:
4857       g_value_set_string (value, qtmux->fast_start_file_path);
4858       break;
4859     case PROP_MOOV_RECOV_FILE:
4860       g_value_set_string (value, qtmux->moov_recov_file_path);
4861       break;
4862     case PROP_FRAGMENT_DURATION:
4863       g_value_set_uint (value, qtmux->fragment_duration);
4864       break;
4865     case PROP_STREAMABLE:
4866       g_value_set_boolean (value, qtmux->streamable);
4867       break;
4868     case PROP_RESERVED_MAX_DURATION:
4869       g_value_set_uint64 (value, qtmux->reserved_max_duration);
4870       break;
4871     case PROP_RESERVED_DURATION_REMAINING:
4872       if (qtmux->reserved_duration_remaining == GST_CLOCK_TIME_NONE)
4873         g_value_set_uint64 (value, qtmux->reserved_max_duration);
4874       else {
4875         GstClockTime remaining = qtmux->reserved_duration_remaining;
4876
4877         /* Report the remaining space as the calculated remaining, minus
4878          * however much we've muxed since the last update */
4879         if (remaining > qtmux->muxed_since_last_update)
4880           remaining -= qtmux->muxed_since_last_update;
4881         else
4882           remaining = 0;
4883         GST_LOG_OBJECT (qtmux, "reserved duration remaining - reporting %"
4884             G_GUINT64_FORMAT "(%" G_GUINT64_FORMAT " - %" G_GUINT64_FORMAT,
4885             remaining, qtmux->reserved_duration_remaining,
4886             qtmux->muxed_since_last_update);
4887         g_value_set_uint64 (value, remaining);
4888       }
4889       break;
4890     case PROP_RESERVED_MOOV_UPDATE_PERIOD:
4891       g_value_set_uint64 (value, qtmux->reserved_moov_update_period);
4892       break;
4893     case PROP_RESERVED_BYTES_PER_SEC:
4894       g_value_set_uint (value, qtmux->reserved_bytes_per_sec_per_trak);
4895       break;
4896     case PROP_INTERLEAVE_BYTES:
4897       g_value_set_uint64 (value, qtmux->interleave_bytes);
4898       break;
4899     case PROP_INTERLEAVE_TIME:
4900       g_value_set_uint64 (value, qtmux->interleave_time);
4901       break;
4902     default:
4903       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
4904       break;
4905   }
4906   GST_OBJECT_UNLOCK (qtmux);
4907 }
4908
4909 static void
4910 gst_qt_mux_generate_fast_start_file_path (GstQTMux * qtmux)
4911 {
4912   gchar *tmp;
4913
4914   g_free (qtmux->fast_start_file_path);
4915   qtmux->fast_start_file_path = NULL;
4916
4917   tmp = g_strdup_printf ("%s%d", "qtmux", g_random_int ());
4918   qtmux->fast_start_file_path = g_build_filename (g_get_tmp_dir (), tmp, NULL);
4919   g_free (tmp);
4920 }
4921
4922 static void
4923 gst_qt_mux_set_property (GObject * object,
4924     guint prop_id, const GValue * value, GParamSpec * pspec)
4925 {
4926   GstQTMux *qtmux = GST_QT_MUX_CAST (object);
4927
4928   GST_OBJECT_LOCK (qtmux);
4929   switch (prop_id) {
4930     case PROP_MOVIE_TIMESCALE:
4931       qtmux->timescale = g_value_get_uint (value);
4932       break;
4933     case PROP_TRAK_TIMESCALE:
4934       qtmux->trak_timescale = g_value_get_uint (value);
4935       break;
4936     case PROP_DO_CTTS:
4937       qtmux->guess_pts = g_value_get_boolean (value);
4938       break;
4939 #ifndef GST_REMOVE_DEPRECATED
4940     case PROP_DTS_METHOD:
4941       qtmux->dts_method = g_value_get_enum (value);
4942       break;
4943 #endif
4944     case PROP_FAST_START:
4945       qtmux->fast_start = g_value_get_boolean (value);
4946       break;
4947     case PROP_FAST_START_TEMP_FILE:
4948       g_free (qtmux->fast_start_file_path);
4949       qtmux->fast_start_file_path = g_value_dup_string (value);
4950       /* NULL means to generate a random one */
4951       if (!qtmux->fast_start_file_path) {
4952         gst_qt_mux_generate_fast_start_file_path (qtmux);
4953       }
4954       break;
4955     case PROP_MOOV_RECOV_FILE:
4956       g_free (qtmux->moov_recov_file_path);
4957       qtmux->moov_recov_file_path = g_value_dup_string (value);
4958       break;
4959     case PROP_FRAGMENT_DURATION:
4960       qtmux->fragment_duration = g_value_get_uint (value);
4961       break;
4962     case PROP_STREAMABLE:{
4963       GstQTMuxClass *qtmux_klass =
4964           (GstQTMuxClass *) (G_OBJECT_GET_CLASS (qtmux));
4965       if (qtmux_klass->format == GST_QT_MUX_FORMAT_ISML) {
4966         qtmux->streamable = g_value_get_boolean (value);
4967       }
4968       break;
4969     }
4970     case PROP_RESERVED_MAX_DURATION:
4971       qtmux->reserved_max_duration = g_value_get_uint64 (value);
4972       break;
4973     case PROP_RESERVED_MOOV_UPDATE_PERIOD:
4974       qtmux->reserved_moov_update_period = g_value_get_uint64 (value);
4975       break;
4976     case PROP_RESERVED_BYTES_PER_SEC:
4977       qtmux->reserved_bytes_per_sec_per_trak = g_value_get_uint (value);
4978       break;
4979     case PROP_INTERLEAVE_BYTES:
4980       qtmux->interleave_bytes = g_value_get_uint64 (value);
4981       qtmux->interleave_bytes_set = TRUE;
4982       break;
4983     case PROP_INTERLEAVE_TIME:
4984       qtmux->interleave_time = g_value_get_uint64 (value);
4985       qtmux->interleave_time_set = TRUE;
4986       break;
4987     default:
4988       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
4989       break;
4990   }
4991   GST_OBJECT_UNLOCK (qtmux);
4992 }
4993
4994 static GstStateChangeReturn
4995 gst_qt_mux_change_state (GstElement * element, GstStateChange transition)
4996 {
4997   GstStateChangeReturn ret;
4998   GstQTMux *qtmux = GST_QT_MUX_CAST (element);
4999
5000   switch (transition) {
5001     case GST_STATE_CHANGE_NULL_TO_READY:
5002       break;
5003     case GST_STATE_CHANGE_READY_TO_PAUSED:
5004       gst_collect_pads_start (qtmux->collect);
5005       qtmux->state = GST_QT_MUX_STATE_STARTED;
5006       qtmux->first_tc = NULL;
5007       qtmux->tc_pos = -1;
5008       break;
5009     case GST_STATE_CHANGE_PAUSED_TO_PLAYING:
5010       break;
5011     case GST_STATE_CHANGE_PAUSED_TO_READY:
5012       gst_collect_pads_stop (qtmux->collect);
5013       break;
5014     default:
5015       break;
5016   }
5017
5018   ret = GST_ELEMENT_CLASS (parent_class)->change_state (element, transition);
5019
5020   switch (transition) {
5021     case GST_STATE_CHANGE_PLAYING_TO_PAUSED:
5022       break;
5023     case GST_STATE_CHANGE_PAUSED_TO_READY:
5024       gst_qt_mux_reset (qtmux, TRUE);
5025       break;
5026     case GST_STATE_CHANGE_READY_TO_NULL:
5027       break;
5028     default:
5029       break;
5030   }
5031
5032   return ret;
5033 }
5034
5035 gboolean
5036 gst_qt_mux_register (GstPlugin * plugin)
5037 {
5038   GTypeInfo typeinfo = {
5039     sizeof (GstQTMuxClass),
5040     (GBaseInitFunc) gst_qt_mux_base_init,
5041     NULL,
5042     (GClassInitFunc) gst_qt_mux_class_init,
5043     NULL,
5044     NULL,
5045     sizeof (GstQTMux),
5046     0,
5047     (GInstanceInitFunc) gst_qt_mux_init,
5048   };
5049   static const GInterfaceInfo tag_setter_info = {
5050     NULL, NULL, NULL
5051   };
5052   static const GInterfaceInfo tag_xmp_writer_info = {
5053     NULL, NULL, NULL
5054   };
5055   static const GInterfaceInfo preset_info = {
5056     NULL, NULL, NULL
5057   };
5058   GType type;
5059   GstQTMuxFormat format;
5060   GstQTMuxClassParams *params;
5061   guint i = 0;
5062
5063   GST_DEBUG_CATEGORY_INIT (gst_qt_mux_debug, "qtmux", 0, "QT Muxer");
5064
5065   GST_LOG ("Registering muxers");
5066
5067   while (TRUE) {
5068     GstQTMuxFormatProp *prop;
5069     GstCaps *subtitle_caps;
5070
5071     prop = &gst_qt_mux_format_list[i];
5072     format = prop->format;
5073     if (format == GST_QT_MUX_FORMAT_NONE)
5074       break;
5075
5076     /* create a cache for these properties */
5077     params = g_new0 (GstQTMuxClassParams, 1);
5078     params->prop = prop;
5079     params->src_caps = gst_static_caps_get (&prop->src_caps);
5080     params->video_sink_caps = gst_static_caps_get (&prop->video_sink_caps);
5081     params->audio_sink_caps = gst_static_caps_get (&prop->audio_sink_caps);
5082     subtitle_caps = gst_static_caps_get (&prop->subtitle_sink_caps);
5083     if (!gst_caps_is_equal (subtitle_caps, GST_CAPS_NONE)) {
5084       params->subtitle_sink_caps = subtitle_caps;
5085     } else {
5086       gst_caps_unref (subtitle_caps);
5087     }
5088
5089     /* create the type now */
5090     type = g_type_register_static (GST_TYPE_ELEMENT, prop->type_name, &typeinfo,
5091         0);
5092     g_type_set_qdata (type, GST_QT_MUX_PARAMS_QDATA, (gpointer) params);
5093     g_type_add_interface_static (type, GST_TYPE_TAG_SETTER, &tag_setter_info);
5094     g_type_add_interface_static (type, GST_TYPE_TAG_XMP_WRITER,
5095         &tag_xmp_writer_info);
5096     g_type_add_interface_static (type, GST_TYPE_PRESET, &preset_info);
5097
5098     if (!gst_element_register (plugin, prop->name, prop->rank, type))
5099       return FALSE;
5100
5101     i++;
5102   }
5103
5104   GST_LOG ("Finished registering muxers");
5105
5106   /* FIXME: ideally classification tag should be added and
5107      registered in gstreamer core gsttaglist
5108    */
5109
5110   GST_LOG ("Registering tags");
5111
5112   gst_tag_register (GST_TAG_3GP_CLASSIFICATION, GST_TAG_FLAG_META,
5113       G_TYPE_STRING, GST_TAG_3GP_CLASSIFICATION, "content classification",
5114       gst_tag_merge_use_first);
5115
5116   GST_LOG ("Finished registering tags");
5117
5118   return TRUE;
5119 }