klv: add klv library, klvinject and klvinspect elements
Create as a separate library until gst-plugins-base MR124 is merged into tag
This commit is contained in:
Joshua M. Doe
186
gst/klv/gstklvinject.c
Normal file
186
gst/klv/gstklvinject.c
Normal file
@@ -0,0 +1,186 @@
|
||||
/* GStreamer
|
||||
* Copyright (C) 2016 William Manley <will@williammanley.net>
|
||||
*
|
||||
* This library is free software; you can redistribute it and/or
|
||||
* modify it under the terms of the GNU Library General Public
|
||||
* License as published by the Free Software Foundation; either
|
||||
* version 2 of the License, or (at your option) any later version.
|
||||
*
|
||||
* This library is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
* Library General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU Library General Public
|
||||
* License along with this library; if not, write to the
|
||||
* Free Software Foundation, Inc., 51 Franklin Street, Suite 500,
|
||||
* Boston, MA 02110-1335, USA.
|
||||
*/
|
||||
/**
|
||||
* SECTION:element-gstklvinject
|
||||
*
|
||||
* The klvinject element injects KLV metadata on passing buffers.
|
||||
*
|
||||
* <refsect2>
|
||||
* <title>Example launch line</title>
|
||||
* |[
|
||||
* gst-launch -v fakesrc ! klvinject ! fakesink
|
||||
* ]|
|
||||
* FIXME Describe what the pipeline does.
|
||||
* </refsect2>
|
||||
*/
|
||||
|
||||
#ifdef HAVE_CONFIG_H
|
||||
#include "config.h"
|
||||
#endif
|
||||
|
||||
#include <gst/gst.h>
|
||||
#include <gst/base/gstbasetransform.h>
|
||||
#include <gst/base/gstbytewriter.h>
|
||||
#include "gstklvinject.h"
|
||||
#include "klv.h"
|
||||
|
||||
GST_DEBUG_CATEGORY_STATIC (gst_klvinject_debug_category);
|
||||
#define GST_CAT_DEFAULT gst_klvinject_debug_category
|
||||
|
||||
/* prototypes */
|
||||
static GstFlowReturn gst_klvinject_transform_ip (GstBaseTransform * trans,
|
||||
GstBuffer * buf);
|
||||
|
||||
enum
|
||||
{
|
||||
PROP_0
|
||||
};
|
||||
|
||||
/* pad templates */
|
||||
|
||||
#define SRC_CAPS "ANY"
|
||||
#define SINK_CAPS "ANY"
|
||||
|
||||
|
||||
/* class initialization */
|
||||
|
||||
G_DEFINE_TYPE_WITH_CODE (GstKlvInject, gst_klvinject, GST_TYPE_BASE_TRANSFORM,
|
||||
GST_DEBUG_CATEGORY_INIT (gst_klvinject_debug_category, "klvinject", 0,
|
||||
"debug category for klvinject element"));
|
||||
|
||||
static void
|
||||
gst_klvinject_class_init (GstKlvInjectClass * klass)
|
||||
{
|
||||
GstBaseTransformClass *base_transform_class =
|
||||
GST_BASE_TRANSFORM_CLASS (klass);
|
||||
|
||||
/* Setting up pads and setting metadata should be moved to
|
||||
base_class_init if you intend to subclass this class. */
|
||||
gst_element_class_add_pad_template (GST_ELEMENT_CLASS (klass),
|
||||
gst_pad_template_new ("src", GST_PAD_SRC, GST_PAD_ALWAYS,
|
||||
gst_caps_from_string (SRC_CAPS)));
|
||||
gst_element_class_add_pad_template (GST_ELEMENT_CLASS (klass),
|
||||
gst_pad_template_new ("sink", GST_PAD_SINK, GST_PAD_ALWAYS,
|
||||
gst_caps_from_string (SINK_CAPS)));
|
||||
|
||||
gst_element_class_set_static_metadata (GST_ELEMENT_CLASS (klass),
|
||||
"Inject KLV", "Filter", "Inject KLV metadata",
|
||||
"Joshua M. Doe <oss@nvl.army.mil>");
|
||||
|
||||
base_transform_class->transform_ip =
|
||||
GST_DEBUG_FUNCPTR (gst_klvinject_transform_ip);
|
||||
|
||||
base_transform_class->passthrough_on_same_caps = TRUE;
|
||||
base_transform_class->transform_ip_on_passthrough = TRUE;
|
||||
}
|
||||
|
||||
static void
|
||||
gst_klvinject_init (GstKlvInject * filt)
|
||||
{
|
||||
}
|
||||
|
||||
static void
|
||||
gst_klvinject_dispose (GstKlvInject * filt)
|
||||
{
|
||||
}
|
||||
|
||||
static void
|
||||
gst_klvinject_add_test_meta (GstKlvInject * filt, GstBuffer * buf)
|
||||
{
|
||||
/* Add KLV meta for testing, here: Motion Imagery Standards Board (MISB)
|
||||
* Engineering Guideline MISB EG 0902 - MISB Minimum Metadata Set.
|
||||
* Also see: SMPTE S336M for KLV specification, also ITU-R BT.1563-1 */
|
||||
const guint8 klv_header[16] = { 0x06, 0x0e, 0x2b, 0x34, 0x02, 0x0b, 0x01,
|
||||
0x01, 0x0e, 0x01, 0x03, 0x01, 0x01, 0x00, 0x00, 0x00
|
||||
};
|
||||
GDateTime *dt = g_date_time_new_now_utc ();
|
||||
gint64 ut = g_date_time_to_unix (dt) * 1000000; /* microseconds */
|
||||
GstByteWriter bw;
|
||||
|
||||
ut += g_date_time_get_microsecond (dt);
|
||||
|
||||
gst_byte_writer_init (&bw);
|
||||
|
||||
/* KLV header */
|
||||
gst_byte_writer_put_data (&bw, klv_header, 16);
|
||||
|
||||
/* Total length in BER long form (verbatim as long as <= 127) */
|
||||
gst_byte_writer_put_uint8 (&bw,
|
||||
(1 + 1 + 8) + (1 + 1 + 14) + (1 + 1 + 4) + (1 + 1 + 4) + (1 + 1 + 2));
|
||||
|
||||
/* Tag 1: unix timestamp */
|
||||
gst_byte_writer_put_uint8 (&bw, 2); /* local tag: unix timestamp */
|
||||
gst_byte_writer_put_uint8 (&bw, 8); /* data length (BER short form) */
|
||||
gst_byte_writer_put_uint64_be (&bw, ut);
|
||||
|
||||
/* Tag 2: Image Coordinate System */
|
||||
gst_byte_writer_put_uint8 (&bw, 12); /* local tag: unix timestamp */
|
||||
gst_byte_writer_put_uint8 (&bw, 14); /* data length (BER short form) */
|
||||
gst_byte_writer_put_data (&bw, (guint8 *) "Geodetic WGS84", 14);
|
||||
|
||||
/* Tag 3: Sensor Latitude */
|
||||
gst_byte_writer_put_uint8 (&bw, 13); /* local tag: latitude */
|
||||
gst_byte_writer_put_uint8 (&bw, 4); /* data length (BER short form) */
|
||||
{
|
||||
/* Map -(2^31-1)..(2^31-1) to +/-90 with 0x80000000 = error */
|
||||
gdouble latitude = 51.449825;
|
||||
gint32 val = (gint) ((latitude / 90.0) * 2147483647.0);
|
||||
gst_byte_writer_put_int32_be (&bw, val);
|
||||
}
|
||||
|
||||
/* Tag 4: Sensor Longitude */
|
||||
gst_byte_writer_put_uint8 (&bw, 14); /* local tag: longitude */
|
||||
gst_byte_writer_put_uint8 (&bw, 4); /* data length (BER short form) */
|
||||
{
|
||||
/* Map -(2^31-1)..(2^31-1) to +/-180 with 0x80000000 = error */
|
||||
gdouble longitude = -2.600439;
|
||||
gint32 val = (gint) ((longitude / 180.0) * 2147483647.0);
|
||||
gst_byte_writer_put_int32_be (&bw, val);
|
||||
}
|
||||
|
||||
/* Tag 5: Sensor True Altitude (MSL) (elevation) */
|
||||
gst_byte_writer_put_uint8 (&bw, 15); /* local tag: elevation */
|
||||
gst_byte_writer_put_uint8 (&bw, 2); /* data length (BER short form) */
|
||||
{
|
||||
/* Map 0..(2^16-1) to -900..19000 meters, so resolution 0.303654536m */
|
||||
gdouble elevation = 10.0;
|
||||
guint16 val = ((elevation + 900.0 + 0.151827268) / 19900.0) * 65535.0;
|
||||
gst_byte_writer_put_int16_be (&bw, val);
|
||||
}
|
||||
|
||||
{
|
||||
gsize klv_size = gst_byte_writer_get_size (&bw);
|
||||
guint8 *klv_data = gst_byte_writer_reset_and_get_data (&bw);
|
||||
|
||||
gst_buffer_add_klv_meta_take_data (buf, klv_data, klv_size);
|
||||
}
|
||||
|
||||
g_date_time_unref (dt);
|
||||
}
|
||||
|
||||
static GstFlowReturn
|
||||
gst_klvinject_transform_ip (GstBaseTransform * trans, GstBuffer * buf)
|
||||
{
|
||||
GstKlvInject *filt = GST_KLVINJECT (trans);
|
||||
|
||||
GST_LOG_OBJECT (filt, "Injecting test KLV metadata");
|
||||
gst_klvinject_add_test_meta (filt, buf);
|
||||
|
||||
return GST_FLOW_OK;
|
||||
}
|
||||
Reference in New Issue
Block a user