subparse: fix off by one offset calculation
[platform/upstream/gstreamer.git] / gst / videorate / gstvideorate.c
1 /* GStreamer
2  * Copyright (C) <1999> Erik Walthinsen <omega@cse.ogi.edu>
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Library General Public
6  * License as published by the Free Software Foundation; either
7  * version 2 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * Library General Public License for more details.
13  *
14  * You should have received a copy of the GNU Library General Public
15  * License along with this library; if not, write to the
16  * Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
17  * Boston, MA 02110-1301, USA.
18  */
19
20 /**
21  * SECTION:element-videorate
22  *
23  * This element takes an incoming stream of timestamped video frames.
24  * It will produce a perfect stream that matches the source pad's framerate.
25  *
26  * The correction is performed by dropping and duplicating frames, no fancy
27  * algorithm is used to interpolate frames (yet).
28  *
29  * By default the element will simply negotiate the same framerate on its
30  * source and sink pad.
31  *
32  * This operation is useful to link to elements that require a perfect stream.
33  * Typical examples are formats that do not store timestamps for video frames,
34  * but only store a framerate, like Ogg and AVI.
35  *
36  * A conversion to a specific framerate can be forced by using filtered caps on
37  * the source pad.
38  *
39  * The properties #GstVideoRate:in, #GstVideoRate:out, #GstVideoRate:duplicate
40  * and #GstVideoRate:drop can be read to obtain information about number of
41  * input frames, output frames, dropped frames (i.e. the number of unused input
42  * frames) and duplicated frames (i.e. the number of times an input frame was
43  * duplicated, beside being used normally).
44  *
45  * An input stream that needs no adjustments will thus never have dropped or
46  * duplicated frames.
47  *
48  * When the #GstVideoRate:silent property is set to FALSE, a GObject property
49  * notification will be emitted whenever one of the #GstVideoRate:duplicate or
50  * #GstVideoRate:drop values changes.
51  * This can potentially cause performance degradation.
52  * Note that property notification will happen from the streaming thread, so
53  * applications should be prepared for this.
54  *
55  * <refsect2>
56  * <title>Example pipelines</title>
57  * |[
58  * gst-launch -v filesrc location=videotestsrc.ogg ! oggdemux ! theoradec ! videorate ! video/x-raw,framerate=15/1 ! xvimagesink
59  * ]| Decode an Ogg/Theora file and adjust the framerate to 15 fps before playing.
60  * To create the test Ogg/Theora file refer to the documentation of theoraenc.
61  * |[
62  * gst-launch -v v4l2src ! videorate ! video/x-raw,framerate=25/2 ! theoraenc ! oggmux ! filesink location=recording.ogg
63  * ]| Capture video from a V4L device, and adjust the stream to 12.5 fps before
64  * encoding to Ogg/Theora.
65  * </refsect2>
66  *
67  * Last reviewed on 2006-09-02 (0.10.11)
68  */
69
70 #ifdef HAVE_CONFIG_H
71 #include "config.h"
72 #endif
73
74 #include "gstvideorate.h"
75
76 GST_DEBUG_CATEGORY_STATIC (video_rate_debug);
77 #define GST_CAT_DEFAULT video_rate_debug
78
79 /* GstVideoRate signals and args */
80 enum
81 {
82   /* FILL ME */
83   LAST_SIGNAL
84 };
85
86 #define DEFAULT_SILENT          TRUE
87 #define DEFAULT_NEW_PREF        1.0
88 #define DEFAULT_SKIP_TO_FIRST   FALSE
89 #define DEFAULT_DROP_ONLY       FALSE
90 #define DEFAULT_AVERAGE_PERIOD  0
91 #define DEFAULT_MAX_RATE        G_MAXINT
92
93 enum
94 {
95   PROP_0,
96   PROP_IN,
97   PROP_OUT,
98   PROP_DUP,
99   PROP_DROP,
100   PROP_SILENT,
101   PROP_NEW_PREF,
102   PROP_SKIP_TO_FIRST,
103   PROP_DROP_ONLY,
104   PROP_AVERAGE_PERIOD,
105   PROP_MAX_RATE
106 };
107
108 static GstStaticPadTemplate gst_video_rate_src_template =
109     GST_STATIC_PAD_TEMPLATE ("src",
110     GST_PAD_SRC,
111     GST_PAD_ALWAYS,
112     GST_STATIC_CAPS ("video/x-raw;" "image/jpeg;" "image/png")
113     );
114
115 static GstStaticPadTemplate gst_video_rate_sink_template =
116     GST_STATIC_PAD_TEMPLATE ("sink",
117     GST_PAD_SINK,
118     GST_PAD_ALWAYS,
119     GST_STATIC_CAPS ("video/x-raw;" "image/jpeg;" "image/png")
120     );
121
122 static void gst_video_rate_swap_prev (GstVideoRate * videorate,
123     GstBuffer * buffer, gint64 time);
124 static gboolean gst_video_rate_sink_event (GstBaseTransform * trans,
125     GstEvent * event);
126 static gboolean gst_video_rate_query (GstBaseTransform * trans,
127     GstPadDirection direction, GstQuery * query);
128
129 static gboolean gst_video_rate_setcaps (GstBaseTransform * trans,
130     GstCaps * in_caps, GstCaps * out_caps);
131
132 static GstCaps *gst_video_rate_transform_caps (GstBaseTransform * trans,
133     GstPadDirection direction, GstCaps * caps, GstCaps * filter);
134
135 static GstCaps *gst_video_rate_fixate_caps (GstBaseTransform * trans,
136     GstPadDirection direction, GstCaps * caps, GstCaps * othercaps);
137
138 static GstFlowReturn gst_video_rate_transform_ip (GstBaseTransform * trans,
139     GstBuffer * buf);
140
141 static gboolean gst_video_rate_start (GstBaseTransform * trans);
142 static gboolean gst_video_rate_stop (GstBaseTransform * trans);
143
144
145 static void gst_video_rate_set_property (GObject * object,
146     guint prop_id, const GValue * value, GParamSpec * pspec);
147 static void gst_video_rate_get_property (GObject * object,
148     guint prop_id, GValue * value, GParamSpec * pspec);
149
150 static GParamSpec *pspec_drop = NULL;
151 static GParamSpec *pspec_duplicate = NULL;
152
153 #define gst_video_rate_parent_class parent_class
154 G_DEFINE_TYPE (GstVideoRate, gst_video_rate, GST_TYPE_BASE_TRANSFORM);
155
156 static void
157 gst_video_rate_class_init (GstVideoRateClass * klass)
158 {
159   GObjectClass *object_class = G_OBJECT_CLASS (klass);
160   GstElementClass *element_class = GST_ELEMENT_CLASS (klass);
161   GstBaseTransformClass *base_class = GST_BASE_TRANSFORM_CLASS (klass);
162
163   object_class->set_property = gst_video_rate_set_property;
164   object_class->get_property = gst_video_rate_get_property;
165
166   base_class->set_caps = GST_DEBUG_FUNCPTR (gst_video_rate_setcaps);
167   base_class->transform_caps =
168       GST_DEBUG_FUNCPTR (gst_video_rate_transform_caps);
169   base_class->transform_ip = GST_DEBUG_FUNCPTR (gst_video_rate_transform_ip);
170   base_class->sink_event = GST_DEBUG_FUNCPTR (gst_video_rate_sink_event);
171   base_class->start = GST_DEBUG_FUNCPTR (gst_video_rate_start);
172   base_class->stop = GST_DEBUG_FUNCPTR (gst_video_rate_stop);
173   base_class->fixate_caps = GST_DEBUG_FUNCPTR (gst_video_rate_fixate_caps);
174   base_class->query = GST_DEBUG_FUNCPTR (gst_video_rate_query);
175
176   g_object_class_install_property (object_class, PROP_IN,
177       g_param_spec_uint64 ("in", "In",
178           "Number of input frames", 0, G_MAXUINT64, 0,
179           G_PARAM_READABLE | G_PARAM_STATIC_STRINGS));
180   g_object_class_install_property (object_class, PROP_OUT,
181       g_param_spec_uint64 ("out", "Out", "Number of output frames", 0,
182           G_MAXUINT64, 0, G_PARAM_READABLE | G_PARAM_STATIC_STRINGS));
183   pspec_duplicate = g_param_spec_uint64 ("duplicate", "Duplicate",
184       "Number of duplicated frames", 0, G_MAXUINT64, 0,
185       G_PARAM_READABLE | G_PARAM_STATIC_STRINGS);
186   g_object_class_install_property (object_class, PROP_DUP, pspec_duplicate);
187   pspec_drop = g_param_spec_uint64 ("drop", "Drop", "Number of dropped frames",
188       0, G_MAXUINT64, 0, G_PARAM_READABLE | G_PARAM_STATIC_STRINGS);
189   g_object_class_install_property (object_class, PROP_DROP, pspec_drop);
190   g_object_class_install_property (object_class, PROP_SILENT,
191       g_param_spec_boolean ("silent", "silent",
192           "Don't emit notify for dropped and duplicated frames", DEFAULT_SILENT,
193           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
194   g_object_class_install_property (object_class, PROP_NEW_PREF,
195       g_param_spec_double ("new-pref", "New Pref",
196           "Value indicating how much to prefer new frames (unused)", 0.0, 1.0,
197           DEFAULT_NEW_PREF, G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
198
199   /**
200    * GstVideoRate:skip-to-first:
201    * 
202    * Don't produce buffers before the first one we receive.
203    *
204    * Since: 0.10.25
205    */
206   g_object_class_install_property (object_class, PROP_SKIP_TO_FIRST,
207       g_param_spec_boolean ("skip-to-first", "Skip to first buffer",
208           "Don't produce buffers before the first one we receive",
209           DEFAULT_SKIP_TO_FIRST, G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
210
211   /**
212    * GstVideoRate:drop-only:
213    *
214    * Only drop frames, no duplicates are produced.
215    *
216    * Since: 0.10.36
217    */
218   g_object_class_install_property (object_class, PROP_DROP_ONLY,
219       g_param_spec_boolean ("drop-only", "Only Drop",
220           "Only drop frames, no duplicates are produced",
221           DEFAULT_DROP_ONLY, G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
222
223   /**
224    * GstVideoRate:average-period:
225    *
226    * Arrange for maximum framerate by dropping frames beyond a certain framerate,
227    * where the framerate is calculated using a moving average over the
228    * configured.
229    *
230    * Since: 0.10.36
231    */
232   g_object_class_install_property (object_class, PROP_AVERAGE_PERIOD,
233       g_param_spec_uint64 ("average-period", "Period over which to average",
234           "Period over which to average the framerate (in ns) (0 = disabled)",
235           0, G_MAXINT64, DEFAULT_AVERAGE_PERIOD,
236           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
237
238   /**
239    * GstVideoRate:max-rate:
240    *
241    * maximum framerate to pass through
242    *
243    * Since: 0.10.36
244    */
245   g_object_class_install_property (object_class, PROP_MAX_RATE,
246       g_param_spec_int ("max-rate", "maximum framerate",
247           "Maximum framerate allowed to pass through "
248           "(in frames per second, implies drop-only)",
249           1, G_MAXINT, DEFAULT_MAX_RATE,
250           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
251
252   gst_element_class_set_static_metadata (element_class,
253       "Video rate adjuster", "Filter/Effect/Video",
254       "Drops/duplicates/adjusts timestamps on video frames to make a perfect stream",
255       "Wim Taymans <wim@fluendo.com>");
256
257   gst_element_class_add_pad_template (element_class,
258       gst_static_pad_template_get (&gst_video_rate_sink_template));
259   gst_element_class_add_pad_template (element_class,
260       gst_static_pad_template_get (&gst_video_rate_src_template));
261 }
262
263 static void
264 gst_value_fraction_get_extremes (const GValue * v,
265     gint * min_num, gint * min_denom, gint * max_num, gint * max_denom)
266 {
267   if (GST_VALUE_HOLDS_FRACTION (v)) {
268     *min_num = *max_num = gst_value_get_fraction_numerator (v);
269     *min_denom = *max_denom = gst_value_get_fraction_denominator (v);
270   } else if (GST_VALUE_HOLDS_FRACTION_RANGE (v)) {
271     const GValue *min, *max;
272
273     min = gst_value_get_fraction_range_min (v);
274     *min_num = gst_value_get_fraction_numerator (min);
275     *min_denom = gst_value_get_fraction_denominator (min);
276
277     max = gst_value_get_fraction_range_max (v);
278     *max_num = gst_value_get_fraction_numerator (max);
279     *max_denom = gst_value_get_fraction_denominator (max);
280   } else if (GST_VALUE_HOLDS_LIST (v)) {
281     gint min_n = G_MAXINT, min_d = 1, max_n = 0, max_d = 1;
282     int i, n;
283
284     *min_num = G_MAXINT;
285     *min_denom = 1;
286     *max_num = 0;
287     *max_denom = 1;
288
289     n = gst_value_list_get_size (v);
290
291     g_assert (n > 0);
292
293     for (i = 0; i < n; i++) {
294       const GValue *t = gst_value_list_get_value (v, i);
295
296       gst_value_fraction_get_extremes (t, &min_n, &min_d, &max_n, &max_d);
297       if (gst_util_fraction_compare (min_n, min_d, *min_num, *min_denom) < 0) {
298         *min_num = min_n;
299         *min_denom = min_d;
300       }
301
302       if (gst_util_fraction_compare (max_n, max_d, *max_num, *max_denom) > 0) {
303         *max_num = max_n;
304         *max_denom = max_d;
305       }
306     }
307   } else {
308     g_warning ("Unknown type for framerate");
309     *min_num = 0;
310     *min_denom = 1;
311     *max_num = G_MAXINT;
312     *max_denom = 1;
313   }
314 }
315
316 /* Clamp the framerate in a caps structure to be a smaller range then
317  * [1...max_rate], otherwise return false */
318 static gboolean
319 gst_video_max_rate_clamp_structure (GstStructure * s, gint maxrate,
320     gint * min_num, gint * min_denom, gint * max_num, gint * max_denom)
321 {
322   gboolean ret = FALSE;
323
324   if (!gst_structure_has_field (s, "framerate")) {
325     /* No framerate field implies any framerate, clamping would result in
326      * [1..max_rate] so not a real subset */
327     goto out;
328   } else {
329     const GValue *v;
330     GValue intersection = { 0, };
331     GValue clamp = { 0, };
332     gint tmp_num, tmp_denom;
333
334     g_value_init (&clamp, GST_TYPE_FRACTION_RANGE);
335     gst_value_set_fraction_range_full (&clamp, 0, 1, maxrate, 1);
336
337     v = gst_structure_get_value (s, "framerate");
338     ret = gst_value_intersect (&intersection, v, &clamp);
339     g_value_unset (&clamp);
340
341     if (!ret)
342       goto out;
343
344     gst_value_fraction_get_extremes (&intersection,
345         min_num, min_denom, max_num, max_denom);
346
347     gst_value_fraction_get_extremes (v,
348         &tmp_num, &tmp_denom, max_num, max_denom);
349
350     if (gst_util_fraction_compare (*max_num, *max_denom, maxrate, 1) > 0) {
351       *max_num = maxrate;
352       *max_denom = 1;
353     }
354
355     gst_structure_take_value (s, "framerate", &intersection);
356   }
357
358 out:
359   return ret;
360 }
361
362 static GstCaps *
363 gst_video_rate_transform_caps (GstBaseTransform * trans,
364     GstPadDirection direction, GstCaps * caps, GstCaps * filter)
365 {
366   GstVideoRate *videorate = GST_VIDEO_RATE (trans);
367   GstCaps *ret;
368   GstStructure *s, *s1, *s2, *s3 = NULL;
369   int maxrate = g_atomic_int_get (&videorate->max_rate);
370   gint i;
371
372   ret = gst_caps_new_empty ();
373
374   for (i = 0; i < gst_caps_get_size (caps); i++) {
375     s = gst_caps_get_structure (caps, i);
376
377     s1 = gst_structure_copy (s);
378     s2 = gst_structure_copy (s);
379
380     if (videorate->drop_only) {
381       gint min_num = 0, min_denom = 1;
382       gint max_num = G_MAXINT, max_denom = 1;
383
384       /* Clamp the caps to our maximum rate as the first caps if possible */
385       if (!gst_video_max_rate_clamp_structure (s1, maxrate,
386               &min_num, &min_denom, &max_num, &max_denom)) {
387         min_num = 0;
388         min_denom = 1;
389         max_num = maxrate;
390         max_denom = 1;
391
392         /* clamp wouldn't be a real subset of 1..maxrate, in this case the sink
393          * caps should become [1..maxrate], [1..maxint] and the src caps just
394          * [1..maxrate].  In case there was a caps incompatibility things will
395          * explode later as appropriate :)
396          *
397          * In case [X..maxrate] == [X..maxint], skip as we'll set it later
398          */
399         if (direction == GST_PAD_SRC && maxrate != G_MAXINT)
400           gst_structure_set (s1, "framerate", GST_TYPE_FRACTION_RANGE,
401               min_num, min_denom, maxrate, 1, NULL);
402         else {
403           gst_structure_free (s1);
404           s1 = NULL;
405         }
406       }
407
408       if (direction == GST_PAD_SRC) {
409         /* We can accept anything as long as it's at least the minimal framerate
410          * the the sink needs */
411         gst_structure_set (s2, "framerate", GST_TYPE_FRACTION_RANGE,
412             min_num, min_denom, G_MAXINT, 1, NULL);
413
414         /* Also allow unknown framerate, if it isn't already */
415         if (min_num != 0 || min_denom != 1) {
416           s3 = gst_structure_copy (s);
417           gst_structure_set (s3, "framerate", GST_TYPE_FRACTION, 0, 1, NULL);
418         }
419       } else if (max_num != 0 || max_denom != 1) {
420         /* We can provide everything upto the maximum framerate at the src */
421         gst_structure_set (s2, "framerate", GST_TYPE_FRACTION_RANGE,
422             0, 1, max_num, max_denom, NULL);
423       }
424     } else if (direction == GST_PAD_SINK) {
425       gint min_num = 0, min_denom = 1;
426       gint max_num = G_MAXINT, max_denom = 1;
427
428       if (!gst_video_max_rate_clamp_structure (s1, maxrate,
429               &min_num, &min_denom, &max_num, &max_denom)) {
430         gst_structure_free (s1);
431         s1 = NULL;
432       }
433       gst_structure_set (s2, "framerate", GST_TYPE_FRACTION_RANGE, 0, 1,
434           maxrate, 1, NULL);
435     } else {
436       /* set the framerate as a range */
437       gst_structure_set (s2, "framerate", GST_TYPE_FRACTION_RANGE, 0, 1,
438           G_MAXINT, 1, NULL);
439     }
440     if (s1 != NULL)
441       ret = gst_caps_merge_structure (ret, s1);
442     ret = gst_caps_merge_structure (ret, s2);
443     if (s3 != NULL)
444       ret = gst_caps_merge_structure (ret, s3);
445   }
446   if (filter) {
447     GstCaps *intersection;
448
449     intersection =
450         gst_caps_intersect_full (filter, ret, GST_CAPS_INTERSECT_FIRST);
451     gst_caps_unref (ret);
452     ret = intersection;
453   }
454   return ret;
455 }
456
457 static GstCaps *
458 gst_video_rate_fixate_caps (GstBaseTransform * trans,
459     GstPadDirection direction, GstCaps * caps, GstCaps * othercaps)
460 {
461   GstStructure *s;
462   gint num, denom;
463
464   s = gst_caps_get_structure (caps, 0);
465   if (G_UNLIKELY (!gst_structure_get_fraction (s, "framerate", &num, &denom)))
466     return othercaps;
467
468   othercaps = gst_caps_truncate (othercaps);
469   othercaps = gst_caps_make_writable (othercaps);
470   s = gst_caps_get_structure (othercaps, 0);
471   gst_structure_fixate_field_nearest_fraction (s, "framerate", num, denom);
472
473   return othercaps;
474 }
475
476 static gboolean
477 gst_video_rate_setcaps (GstBaseTransform * trans, GstCaps * in_caps,
478     GstCaps * out_caps)
479 {
480   GstVideoRate *videorate = GST_VIDEO_RATE (trans);
481   GstStructure *structure;
482   gboolean ret = TRUE;
483   gint rate_numerator, rate_denominator;
484
485   videorate = GST_VIDEO_RATE (trans);
486
487   GST_DEBUG_OBJECT (trans, "setcaps called in: %" GST_PTR_FORMAT
488       " out: %" GST_PTR_FORMAT, in_caps, out_caps);
489
490   structure = gst_caps_get_structure (in_caps, 0);
491   if (!gst_structure_get_fraction (structure, "framerate",
492           &rate_numerator, &rate_denominator))
493     goto no_framerate;
494
495   videorate->from_rate_numerator = rate_numerator;
496   videorate->from_rate_denominator = rate_denominator;
497
498   structure = gst_caps_get_structure (out_caps, 0);
499   if (!gst_structure_get_fraction (structure, "framerate",
500           &rate_numerator, &rate_denominator))
501     goto no_framerate;
502
503   /* out_frame_count is scaled by the frame rate caps when calculating next_ts.
504    * when the frame rate caps change, we must update base_ts and reset
505    * out_frame_count */
506   if (videorate->to_rate_numerator) {
507     videorate->base_ts +=
508         gst_util_uint64_scale (videorate->out_frame_count,
509         videorate->to_rate_denominator * GST_SECOND,
510         videorate->to_rate_numerator);
511   }
512   videorate->out_frame_count = 0;
513   videorate->to_rate_numerator = rate_numerator;
514   videorate->to_rate_denominator = rate_denominator;
515
516   if (rate_numerator)
517     videorate->wanted_diff = gst_util_uint64_scale_int (GST_SECOND,
518         rate_denominator, rate_numerator);
519   else
520     videorate->wanted_diff = 0;
521
522 done:
523   /* After a setcaps, our caps may have changed. In that case, we can't use
524    * the old buffer, if there was one (it might have different dimensions) */
525   GST_DEBUG_OBJECT (videorate, "swapping old buffers");
526   gst_video_rate_swap_prev (videorate, NULL, GST_CLOCK_TIME_NONE);
527   videorate->last_ts = GST_CLOCK_TIME_NONE;
528   videorate->average = 0;
529
530   return ret;
531
532 no_framerate:
533   {
534     GST_DEBUG_OBJECT (videorate, "no framerate specified");
535     ret = FALSE;
536     goto done;
537   }
538 }
539
540 static void
541 gst_video_rate_reset (GstVideoRate * videorate)
542 {
543   GST_DEBUG_OBJECT (videorate, "resetting internal variables");
544
545   videorate->in = 0;
546   videorate->out = 0;
547   videorate->base_ts = 0;
548   videorate->out_frame_count = 0;
549   videorate->drop = 0;
550   videorate->dup = 0;
551   videorate->next_ts = GST_CLOCK_TIME_NONE;
552   videorate->last_ts = GST_CLOCK_TIME_NONE;
553   videorate->discont = TRUE;
554   videorate->average = 0;
555   gst_video_rate_swap_prev (videorate, NULL, 0);
556
557   gst_segment_init (&videorate->segment, GST_FORMAT_TIME);
558 }
559
560 static void
561 gst_video_rate_init (GstVideoRate * videorate)
562 {
563   gst_video_rate_reset (videorate);
564   videorate->silent = DEFAULT_SILENT;
565   videorate->new_pref = DEFAULT_NEW_PREF;
566   videorate->drop_only = DEFAULT_DROP_ONLY;
567   videorate->average_period = DEFAULT_AVERAGE_PERIOD;
568   videorate->average_period_set = DEFAULT_AVERAGE_PERIOD;
569   videorate->max_rate = DEFAULT_MAX_RATE;
570
571   videorate->from_rate_numerator = 0;
572   videorate->from_rate_denominator = 0;
573   videorate->to_rate_numerator = 0;
574   videorate->to_rate_denominator = 0;
575
576   gst_base_transform_set_gap_aware (GST_BASE_TRANSFORM (videorate), TRUE);
577 }
578
579 /* flush the oldest buffer */
580 static GstFlowReturn
581 gst_video_rate_flush_prev (GstVideoRate * videorate, gboolean duplicate)
582 {
583   GstFlowReturn res;
584   GstBuffer *outbuf;
585   GstClockTime push_ts;
586
587   if (!videorate->prevbuf)
588     goto eos_before_buffers;
589
590   /* make sure we can write to the metadata */
591   outbuf = gst_buffer_make_writable (gst_buffer_ref (videorate->prevbuf));
592
593   GST_BUFFER_OFFSET (outbuf) = videorate->out;
594   GST_BUFFER_OFFSET_END (outbuf) = videorate->out + 1;
595
596   if (videorate->discont) {
597     GST_BUFFER_FLAG_SET (outbuf, GST_BUFFER_FLAG_DISCONT);
598     videorate->discont = FALSE;
599   } else
600     GST_BUFFER_FLAG_UNSET (outbuf, GST_BUFFER_FLAG_DISCONT);
601
602   if (duplicate)
603     GST_BUFFER_FLAG_SET (outbuf, GST_BUFFER_FLAG_GAP);
604   else
605     GST_BUFFER_FLAG_UNSET (outbuf, GST_BUFFER_FLAG_GAP);
606
607   /* this is the timestamp we put on the buffer */
608   push_ts = videorate->next_ts;
609
610   videorate->out++;
611   videorate->out_frame_count++;
612   if (videorate->to_rate_numerator) {
613     /* interpolate next expected timestamp in the segment */
614     videorate->next_ts =
615         videorate->segment.base + videorate->segment.start +
616         videorate->base_ts + gst_util_uint64_scale (videorate->out_frame_count,
617         videorate->to_rate_denominator * GST_SECOND,
618         videorate->to_rate_numerator);
619     GST_BUFFER_DURATION (outbuf) = videorate->next_ts - push_ts;
620   }
621
622   /* We do not need to update time in VFR (variable frame rate) mode */
623   if (!videorate->drop_only) {
624     /* adapt for looping, bring back to time in current segment. */
625     GST_BUFFER_TIMESTAMP (outbuf) = push_ts - videorate->segment.base;
626   }
627
628   GST_LOG_OBJECT (videorate,
629       "old is best, dup, pushing buffer outgoing ts %" GST_TIME_FORMAT,
630       GST_TIME_ARGS (push_ts));
631
632   res = gst_pad_push (GST_BASE_TRANSFORM_SRC_PAD (videorate), outbuf);
633
634   return res;
635
636   /* WARNINGS */
637 eos_before_buffers:
638   {
639     GST_INFO_OBJECT (videorate, "got EOS before any buffer was received");
640     return GST_FLOW_OK;
641   }
642 }
643
644 static void
645 gst_video_rate_swap_prev (GstVideoRate * videorate, GstBuffer * buffer,
646     gint64 time)
647 {
648   GST_LOG_OBJECT (videorate, "swap_prev: storing buffer %p in prev", buffer);
649   if (videorate->prevbuf)
650     gst_buffer_unref (videorate->prevbuf);
651   videorate->prevbuf = buffer != NULL ? gst_buffer_ref (buffer) : NULL;
652   videorate->prev_ts = time;
653 }
654
655 static void
656 gst_video_rate_notify_drop (GstVideoRate * videorate)
657 {
658   g_object_notify_by_pspec ((GObject *) videorate, pspec_drop);
659 }
660
661 static void
662 gst_video_rate_notify_duplicate (GstVideoRate * videorate)
663 {
664   g_object_notify_by_pspec ((GObject *) videorate, pspec_duplicate);
665 }
666
667 #define MAGIC_LIMIT  25
668 static gboolean
669 gst_video_rate_sink_event (GstBaseTransform * trans, GstEvent * event)
670 {
671   GstVideoRate *videorate;
672
673   videorate = GST_VIDEO_RATE (trans);
674
675   switch (GST_EVENT_TYPE (event)) {
676     case GST_EVENT_SEGMENT:
677     {
678       const GstSegment *segment;
679
680       gst_event_parse_segment (event, &segment);
681
682       if (segment->format != GST_FORMAT_TIME)
683         goto format_error;
684
685       GST_DEBUG_OBJECT (videorate, "handle NEWSEGMENT");
686
687       /* close up the previous segment, if appropriate */
688       if (videorate->prevbuf) {
689         gint count = 0;
690         GstFlowReturn res;
691
692         res = GST_FLOW_OK;
693         /* fill up to the end of current segment,
694          * or only send out the stored buffer if there is no specific stop.
695          * regardless, prevent going loopy in strange cases */
696         while (res == GST_FLOW_OK && count <= MAGIC_LIMIT &&
697             ((GST_CLOCK_TIME_IS_VALID (videorate->segment.stop) &&
698                     videorate->next_ts - videorate->segment.base
699                     < videorate->segment.stop)
700                 || count < 1)) {
701           res = gst_video_rate_flush_prev (videorate, count > 0);
702           count++;
703         }
704         if (count > 1) {
705           videorate->dup += count - 1;
706           if (!videorate->silent)
707             gst_video_rate_notify_duplicate (videorate);
708         } else if (count == 0) {
709           videorate->drop++;
710           if (!videorate->silent)
711             gst_video_rate_notify_drop (videorate);
712         }
713         /* clean up for the new one; _chain will resume from the new start */
714         videorate->base_ts = 0;
715         videorate->out_frame_count = 0;
716         gst_video_rate_swap_prev (videorate, NULL, 0);
717         videorate->next_ts = GST_CLOCK_TIME_NONE;
718       }
719
720       /* We just want to update the accumulated stream_time  */
721       gst_segment_copy_into (segment, &videorate->segment);
722
723       GST_DEBUG_OBJECT (videorate, "updated segment: %" GST_SEGMENT_FORMAT,
724           &videorate->segment);
725       break;
726     }
727     case GST_EVENT_EOS:{
728       gint count = 0;
729       GstFlowReturn res = GST_FLOW_OK;
730
731       GST_DEBUG_OBJECT (videorate, "Got EOS");
732
733       /* If the segment has a stop position, fill the segment */
734       if (GST_CLOCK_TIME_IS_VALID (videorate->segment.stop)) {
735         /* fill up to the end of current segment,
736          * or only send out the stored buffer if there is no specific stop.
737          * regardless, prevent going loopy in strange cases */
738         while (res == GST_FLOW_OK && count <= MAGIC_LIMIT &&
739             ((videorate->next_ts - videorate->segment.base <
740                     videorate->segment.stop)
741                 || count < 1)) {
742           res = gst_video_rate_flush_prev (videorate, count > 0);
743           count++;
744         }
745       } else if (videorate->prevbuf) {
746         /* Output at least one frame but if the buffer duration is valid, output
747          * enough frames to use the complete buffer duration */
748         if (GST_BUFFER_DURATION_IS_VALID (videorate->prevbuf)) {
749           GstClockTime end_ts =
750               videorate->next_ts + GST_BUFFER_DURATION (videorate->prevbuf);
751
752           while (res == GST_FLOW_OK && count <= MAGIC_LIMIT &&
753               ((videorate->next_ts - videorate->segment.base < end_ts)
754                   || count < 1)) {
755             res = gst_video_rate_flush_prev (videorate, count > 0);
756             count++;
757           }
758         } else {
759           res = gst_video_rate_flush_prev (videorate, FALSE);
760           count = 1;
761         }
762       }
763
764       if (count > 1) {
765         videorate->dup += count - 1;
766         if (!videorate->silent)
767           gst_video_rate_notify_duplicate (videorate);
768       } else if (count == 0) {
769         videorate->drop++;
770         if (!videorate->silent)
771           gst_video_rate_notify_drop (videorate);
772       }
773
774       break;
775     }
776     case GST_EVENT_FLUSH_STOP:
777       /* also resets the segment */
778       GST_DEBUG_OBJECT (videorate, "Got FLUSH_STOP");
779       gst_video_rate_reset (videorate);
780       break;
781     default:
782       break;
783   }
784
785   return GST_BASE_TRANSFORM_CLASS (parent_class)->sink_event (trans, event);
786
787   /* ERRORS */
788 format_error:
789   {
790     GST_WARNING_OBJECT (videorate,
791         "Got segment but doesn't have GST_FORMAT_TIME value");
792     return FALSE;
793   }
794 }
795
796 static gboolean
797 gst_video_rate_query (GstBaseTransform * trans, GstPadDirection direction,
798     GstQuery * query)
799 {
800   GstVideoRate *videorate = GST_VIDEO_RATE (trans);
801   gboolean res = FALSE;
802   GstPad *otherpad;
803
804   otherpad = (direction == GST_PAD_SRC) ?
805       GST_BASE_TRANSFORM_SINK_PAD (trans) : GST_BASE_TRANSFORM_SRC_PAD (trans);
806
807   switch (GST_QUERY_TYPE (query)) {
808     case GST_QUERY_LATENCY:
809     {
810       GstClockTime min, max;
811       gboolean live;
812       guint64 latency;
813       guint64 avg_period;
814       GstPad *peer;
815
816       GST_OBJECT_LOCK (videorate);
817       avg_period = videorate->average_period_set;
818       GST_OBJECT_UNLOCK (videorate);
819
820       if (avg_period == 0 && (peer = gst_pad_get_peer (otherpad))) {
821         if ((res = gst_pad_query (peer, query))) {
822           gst_query_parse_latency (query, &live, &min, &max);
823
824           GST_DEBUG_OBJECT (videorate, "Peer latency: min %"
825               GST_TIME_FORMAT " max %" GST_TIME_FORMAT,
826               GST_TIME_ARGS (min), GST_TIME_ARGS (max));
827
828           if (videorate->from_rate_numerator != 0) {
829             /* add latency. We don't really know since we hold on to the frames
830              * until we get a next frame, which can be anything. We assume
831              * however that this will take from_rate time. */
832             latency = gst_util_uint64_scale (GST_SECOND,
833                 videorate->from_rate_denominator,
834                 videorate->from_rate_numerator);
835           } else {
836             /* no input framerate, we don't know */
837             latency = 0;
838           }
839
840           GST_DEBUG_OBJECT (videorate, "Our latency: %"
841               GST_TIME_FORMAT, GST_TIME_ARGS (latency));
842
843           min += latency;
844           if (max != -1)
845             max += latency;
846
847           GST_DEBUG_OBJECT (videorate, "Calculated total latency : min %"
848               GST_TIME_FORMAT " max %" GST_TIME_FORMAT,
849               GST_TIME_ARGS (min), GST_TIME_ARGS (max));
850
851           gst_query_set_latency (query, live, min, max);
852         }
853         gst_object_unref (peer);
854         break;
855       }
856       /* Simple fallthrough if we don't have a latency or not a peer that we
857        * can't ask about its latency yet.. */
858     }
859     default:
860       res =
861           GST_BASE_TRANSFORM_CLASS (parent_class)->query (trans, direction,
862           query);
863       break;
864   }
865
866   return res;
867 }
868
869 static GstFlowReturn
870 gst_video_rate_trans_ip_max_avg (GstVideoRate * videorate, GstBuffer * buf)
871 {
872   GstClockTime ts = GST_BUFFER_TIMESTAMP (buf);
873
874   videorate->in++;
875
876   if (!GST_CLOCK_TIME_IS_VALID (ts) || videorate->wanted_diff == 0)
877     goto push;
878
879   /* drop frames if they exceed our output rate */
880   if (GST_CLOCK_TIME_IS_VALID (videorate->last_ts)) {
881     GstClockTimeDiff diff = ts - videorate->last_ts;
882
883     /* Drop buffer if its early compared to the desired frame rate and
884      * the current average is higher than the desired average
885      */
886     if (diff < videorate->wanted_diff &&
887         videorate->average < videorate->wanted_diff)
888       goto drop;
889
890     /* Update average */
891     if (videorate->average) {
892       GstClockTimeDiff wanted_diff;
893
894       if (G_LIKELY (videorate->average_period > videorate->wanted_diff))
895         wanted_diff = videorate->wanted_diff;
896       else
897         wanted_diff = videorate->average_period * 10;
898
899       videorate->average =
900           gst_util_uint64_scale_round (videorate->average,
901           videorate->average_period - wanted_diff,
902           videorate->average_period) +
903           gst_util_uint64_scale_round (diff, wanted_diff,
904           videorate->average_period);
905     } else {
906       videorate->average = diff;
907     }
908   }
909
910   videorate->last_ts = ts;
911
912 push:
913   videorate->out++;
914   return GST_FLOW_OK;
915
916 drop:
917   if (!videorate->silent)
918     gst_video_rate_notify_drop (videorate);
919   return GST_BASE_TRANSFORM_FLOW_DROPPED;
920 }
921
922 static GstFlowReturn
923 gst_video_rate_transform_ip (GstBaseTransform * trans, GstBuffer * buffer)
924 {
925   GstVideoRate *videorate;
926   GstFlowReturn res = GST_BASE_TRANSFORM_FLOW_DROPPED;
927   GstClockTime intime, in_ts, in_dur;
928   GstClockTime avg_period;
929   gboolean skip = FALSE;
930
931   videorate = GST_VIDEO_RATE (trans);
932
933   /* make sure the denominators are not 0 */
934   if (videorate->from_rate_denominator == 0 ||
935       videorate->to_rate_denominator == 0)
936     goto not_negotiated;
937
938   GST_OBJECT_LOCK (videorate);
939   avg_period = videorate->average_period_set;
940   GST_OBJECT_UNLOCK (videorate);
941
942   /* MT-safe switching between modes */
943   if (G_UNLIKELY (avg_period != videorate->average_period)) {
944     gboolean switch_mode = (avg_period == 0 || videorate->average_period == 0);
945     videorate->average_period = avg_period;
946     videorate->last_ts = GST_CLOCK_TIME_NONE;
947
948     if (switch_mode) {
949       if (avg_period) {
950         /* enabling average mode */
951         videorate->average = 0;
952         /* make sure no cached buffers from regular mode are left */
953         gst_video_rate_swap_prev (videorate, NULL, 0);
954       } else {
955         /* enable regular mode */
956         videorate->next_ts = GST_CLOCK_TIME_NONE;
957         skip = TRUE;
958       }
959
960       /* max averaging mode has a no latency, normal mode does */
961       gst_element_post_message (GST_ELEMENT (videorate),
962           gst_message_new_latency (GST_OBJECT (videorate)));
963     }
964   }
965
966   if (videorate->average_period > 0)
967     return gst_video_rate_trans_ip_max_avg (videorate, buffer);
968
969   in_ts = GST_BUFFER_TIMESTAMP (buffer);
970   in_dur = GST_BUFFER_DURATION (buffer);
971
972   if (G_UNLIKELY (in_ts == GST_CLOCK_TIME_NONE)) {
973     in_ts = videorate->last_ts;
974     if (G_UNLIKELY (in_ts == GST_CLOCK_TIME_NONE))
975       goto invalid_buffer;
976   }
977
978   /* get the time of the next expected buffer timestamp, we use this when the
979    * next buffer has -1 as a timestamp */
980   videorate->last_ts = in_ts;
981   if (in_dur != GST_CLOCK_TIME_NONE)
982     videorate->last_ts += in_dur;
983
984   GST_DEBUG_OBJECT (videorate, "got buffer with timestamp %" GST_TIME_FORMAT,
985       GST_TIME_ARGS (in_ts));
986
987   /* the input time is the time in the segment + all previously accumulated
988    * segments */
989   intime = in_ts + videorate->segment.base;
990
991   /* we need to have two buffers to compare */
992   if (videorate->prevbuf == NULL) {
993     gst_video_rate_swap_prev (videorate, buffer, intime);
994     videorate->in++;
995     if (!GST_CLOCK_TIME_IS_VALID (videorate->next_ts)) {
996       /* new buffer, we expect to output a buffer that matches the first
997        * timestamp in the segment */
998       if (videorate->skip_to_first || skip) {
999         videorate->next_ts = intime;
1000         videorate->base_ts = in_ts - videorate->segment.start;
1001         videorate->out_frame_count = 0;
1002       } else {
1003         videorate->next_ts = videorate->segment.start + videorate->segment.base;
1004       }
1005     }
1006   } else {
1007     GstClockTime prevtime;
1008     gint count = 0;
1009     gint64 diff1, diff2;
1010
1011     prevtime = videorate->prev_ts;
1012
1013     GST_LOG_OBJECT (videorate,
1014         "BEGINNING prev buf %" GST_TIME_FORMAT " new buf %" GST_TIME_FORMAT
1015         " outgoing ts %" GST_TIME_FORMAT, GST_TIME_ARGS (prevtime),
1016         GST_TIME_ARGS (intime), GST_TIME_ARGS (videorate->next_ts));
1017
1018     videorate->in++;
1019
1020     /* drop new buffer if it's before previous one */
1021     if (intime < prevtime) {
1022       GST_DEBUG_OBJECT (videorate,
1023           "The new buffer (%" GST_TIME_FORMAT
1024           ") is before the previous buffer (%"
1025           GST_TIME_FORMAT "). Dropping new buffer.",
1026           GST_TIME_ARGS (intime), GST_TIME_ARGS (prevtime));
1027       videorate->drop++;
1028       if (!videorate->silent)
1029         gst_video_rate_notify_drop (videorate);
1030       goto done;
1031     }
1032
1033     /* got 2 buffers, see which one is the best */
1034     do {
1035
1036       diff1 = prevtime - videorate->next_ts;
1037       diff2 = intime - videorate->next_ts;
1038
1039       /* take absolute values, beware: abs and ABS don't work for gint64 */
1040       if (diff1 < 0)
1041         diff1 = -diff1;
1042       if (diff2 < 0)
1043         diff2 = -diff2;
1044
1045       GST_LOG_OBJECT (videorate,
1046           "diff with prev %" GST_TIME_FORMAT " diff with new %"
1047           GST_TIME_FORMAT " outgoing ts %" GST_TIME_FORMAT,
1048           GST_TIME_ARGS (diff1), GST_TIME_ARGS (diff2),
1049           GST_TIME_ARGS (videorate->next_ts));
1050
1051       /* output first one when its the best */
1052       if (diff1 <= diff2) {
1053         GstFlowReturn r;
1054         count++;
1055
1056         /* on error the _flush function posted a warning already */
1057         if ((r = gst_video_rate_flush_prev (videorate,
1058                     count > 1)) != GST_FLOW_OK) {
1059           res = r;
1060           goto done;
1061         }
1062       }
1063
1064       /* Do not produce any dups. We can exit loop now */
1065       if (videorate->drop_only)
1066         break;
1067       /* continue while the first one was the best, if they were equal avoid
1068        * going into an infinite loop */
1069     }
1070     while (diff1 < diff2);
1071
1072     /* if we outputed the first buffer more then once, we have dups */
1073     if (count > 1) {
1074       videorate->dup += count - 1;
1075       if (!videorate->silent)
1076         gst_video_rate_notify_duplicate (videorate);
1077     }
1078     /* if we didn't output the first buffer, we have a drop */
1079     else if (count == 0) {
1080       videorate->drop++;
1081
1082       if (!videorate->silent)
1083         gst_video_rate_notify_drop (videorate);
1084
1085       GST_LOG_OBJECT (videorate,
1086           "new is best, old never used, drop, outgoing ts %"
1087           GST_TIME_FORMAT, GST_TIME_ARGS (videorate->next_ts));
1088     }
1089     GST_LOG_OBJECT (videorate,
1090         "END, putting new in old, diff1 %" GST_TIME_FORMAT
1091         ", diff2 %" GST_TIME_FORMAT ", next_ts %" GST_TIME_FORMAT
1092         ", in %" G_GUINT64_FORMAT ", out %" G_GUINT64_FORMAT ", drop %"
1093         G_GUINT64_FORMAT ", dup %" G_GUINT64_FORMAT, GST_TIME_ARGS (diff1),
1094         GST_TIME_ARGS (diff2), GST_TIME_ARGS (videorate->next_ts),
1095         videorate->in, videorate->out, videorate->drop, videorate->dup);
1096
1097     /* swap in new one when it's the best */
1098     gst_video_rate_swap_prev (videorate, buffer, intime);
1099   }
1100 done:
1101   return res;
1102
1103   /* ERRORS */
1104 not_negotiated:
1105   {
1106     GST_WARNING_OBJECT (videorate, "no framerate negotiated");
1107     res = GST_FLOW_NOT_NEGOTIATED;
1108     goto done;
1109   }
1110
1111 invalid_buffer:
1112   {
1113     GST_WARNING_OBJECT (videorate,
1114         "Got buffer with GST_CLOCK_TIME_NONE timestamp, discarding it");
1115     res = GST_BASE_TRANSFORM_FLOW_DROPPED;
1116     goto done;
1117   }
1118 }
1119
1120 static gboolean
1121 gst_video_rate_start (GstBaseTransform * trans)
1122 {
1123   gst_video_rate_reset (GST_VIDEO_RATE (trans));
1124   return TRUE;
1125 }
1126
1127 static gboolean
1128 gst_video_rate_stop (GstBaseTransform * trans)
1129 {
1130   gst_video_rate_reset (GST_VIDEO_RATE (trans));
1131   return TRUE;
1132 }
1133
1134 static void
1135 gst_video_rate_set_property (GObject * object,
1136     guint prop_id, const GValue * value, GParamSpec * pspec)
1137 {
1138   GstVideoRate *videorate = GST_VIDEO_RATE (object);
1139
1140   GST_OBJECT_LOCK (videorate);
1141   switch (prop_id) {
1142     case PROP_SILENT:
1143       videorate->silent = g_value_get_boolean (value);
1144       break;
1145     case PROP_NEW_PREF:
1146       videorate->new_pref = g_value_get_double (value);
1147       break;
1148     case PROP_SKIP_TO_FIRST:
1149       videorate->skip_to_first = g_value_get_boolean (value);
1150       break;
1151     case PROP_DROP_ONLY:
1152       videorate->drop_only = g_value_get_boolean (value);
1153       goto reconfigure;
1154       break;
1155     case PROP_AVERAGE_PERIOD:
1156       videorate->average_period_set = g_value_get_uint64 (value);
1157       break;
1158     case PROP_MAX_RATE:
1159       g_atomic_int_set (&videorate->max_rate, g_value_get_int (value));
1160       goto reconfigure;
1161       break;
1162     default:
1163       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
1164       break;
1165   }
1166   GST_OBJECT_UNLOCK (videorate);
1167   return;
1168
1169 reconfigure:
1170   GST_OBJECT_UNLOCK (videorate);
1171   gst_base_transform_reconfigure_src (GST_BASE_TRANSFORM (videorate));
1172 }
1173
1174 static void
1175 gst_video_rate_get_property (GObject * object,
1176     guint prop_id, GValue * value, GParamSpec * pspec)
1177 {
1178   GstVideoRate *videorate = GST_VIDEO_RATE (object);
1179
1180   GST_OBJECT_LOCK (videorate);
1181   switch (prop_id) {
1182     case PROP_IN:
1183       g_value_set_uint64 (value, videorate->in);
1184       break;
1185     case PROP_OUT:
1186       g_value_set_uint64 (value, videorate->out);
1187       break;
1188     case PROP_DUP:
1189       g_value_set_uint64 (value, videorate->dup);
1190       break;
1191     case PROP_DROP:
1192       g_value_set_uint64 (value, videorate->drop);
1193       break;
1194     case PROP_SILENT:
1195       g_value_set_boolean (value, videorate->silent);
1196       break;
1197     case PROP_NEW_PREF:
1198       g_value_set_double (value, videorate->new_pref);
1199       break;
1200     case PROP_SKIP_TO_FIRST:
1201       g_value_set_boolean (value, videorate->skip_to_first);
1202       break;
1203     case PROP_DROP_ONLY:
1204       g_value_set_boolean (value, videorate->drop_only);
1205       break;
1206     case PROP_AVERAGE_PERIOD:
1207       g_value_set_uint64 (value, videorate->average_period_set);
1208       break;
1209     case PROP_MAX_RATE:
1210       g_value_set_int (value, g_atomic_int_get (&videorate->max_rate));
1211       break;
1212     default:
1213       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
1214       break;
1215   }
1216   GST_OBJECT_UNLOCK (videorate);
1217 }
1218
1219 static gboolean
1220 plugin_init (GstPlugin * plugin)
1221 {
1222   GST_DEBUG_CATEGORY_INIT (video_rate_debug, "videorate", 0,
1223       "VideoRate stream fixer");
1224
1225   return gst_element_register (plugin, "videorate", GST_RANK_NONE,
1226       GST_TYPE_VIDEO_RATE);
1227 }
1228
1229 GST_PLUGIN_DEFINE (GST_VERSION_MAJOR,
1230     GST_VERSION_MINOR,
1231     videorate,
1232     "Adjusts video frames",
1233     plugin_init, VERSION, GST_LICENSE, GST_PACKAGE_NAME, GST_PACKAGE_ORIGIN)