putting in apoc's png encoder, needs some cleanup

Original commit message from CVS:
putting in apoc's png encoder, needs some cleanup

4 files changed, 452 insertions, 0 deletions

diff --git a/ext/libpng/Makefile.am b/ext/libpng/Makefile.am
new file mode 100644
index 00000000..a65008d9
--- /dev/null
+++ b/ext/libpng/Makefile.am
@@ -0,0 +1,11 @@
+plugindir = $(libdir)/gst
+
+plugin_LTLIBRARIES = libgstpng.la
+
+libgstpng_la_SOURCES = gstpng.c gstpngenc.c
+libgstpng_la_CFLAGS = $(GST_CFLAGS)
+libgstpng_la_LIBADD = $(GST_LIBS) $(LIBPNG_LIBS)
+libgstpng_la_LDFLAGS = $(GST_PLUGIN_LDFLAGS)
+
+noinst_HEADERS = gstpng.h
+
diff --git a/ext/libpng/gstpng.c b/ext/libpng/gstpng.c
new file mode 100644
index 00000000..61dfe0b2
--- /dev/null
+++ b/ext/libpng/gstpng.c
@@ -0,0 +1,117 @@
+/* GStreamer
+ * Copyright (C) <1999> Erik Walthinsen <omega@cse.ogi.edu>
+ *
+ * Filter:
+ * Copyright (C) 2000 Donald A. Graft
+ *
+ * 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., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ *
+ */
+
+#include <string.h>
+#include <gst/gst.h>
+#include "gstpng.h"
+
+
+struct _elements_entry {
+  gchar *name;
+  GType (*type) (void);
+  GstElementDetails *details;
+  gboolean (*factoryinit) (GstElementFactory *factory);
+};
+
+static struct _elements_entry _elements[] = {
+  { "pngenc",  	gst_pngenc_get_type, 		&gst_pngenc_details, 		NULL },
+  { NULL, 0 },
+};
+
+
+GstPadTemplate* 
+gst_png_src_factory (void)
+{
+  static GstPadTemplate *templ = NULL;
+  if (!templ) {
+    templ = GST_PAD_TEMPLATE_NEW ( 
+  		"src",
+  		GST_PAD_SRC,
+  		GST_PAD_ALWAYS,
+  		GST_CAPS_NEW (
+  		  "png_src",
+  		  "video/raw",
+		  NULL
+		)
+  	     );
+  }
+  return templ;
+}
+
+GstPadTemplate* 
+gst_png_sink_factory (void)
+{
+  static GstPadTemplate *templ = NULL;
+  if (!templ) {
+    templ = GST_PAD_TEMPLATE_NEW ( 
+  		"sink",
+  		GST_PAD_SINK,
+  		GST_PAD_ALWAYS,
+  		GST_CAPS_NEW (
+  		  "png_sink",
+  		  "video/raw",
+  		    "format",         GST_PROPS_FOURCC (GST_STR_FOURCC ("RGB ")),
+  		    "bpp",            GST_PROPS_INT (24),
+		    "red_mask",       GST_PROPS_INT (0xff0000),
+                    "green_mask",     GST_PROPS_INT (0xff00),
+                    "blue_mask",      GST_PROPS_INT (0xff),
+  		    "width",          GST_PROPS_INT_RANGE (16, 4096),
+  		    "height",         GST_PROPS_INT_RANGE (16, 4096)
+		)
+  	     );
+  }
+  return templ;
+}
+
+
+static gboolean
+plugin_init (GModule * module, GstPlugin * plugin)
+{
+  GstElementFactory *factory;
+  gint i = 0;
+
+  while (_elements[i].name) {
+    factory = gst_element_factory_new (_elements[i].name,
+                                      (_elements[i].type) (),
+                                       _elements[i].details);
+
+    if (!factory) {
+      g_warning ("gst_png_new failed for `%s'",
+                 _elements[i].name);
+      continue;
+    }
+    
+    gst_element_factory_add_pad_template (factory, gst_png_src_factory ());
+    gst_element_factory_add_pad_template (factory, gst_png_sink_factory ());
+
+    gst_plugin_add_feature (plugin, GST_PLUGIN_FEATURE (factory));
+    if (_elements[i].factoryinit) {
+      _elements[i].factoryinit (factory);
+    }
+    i++;
+  }
+
+  return TRUE;
+}
+
+GstPluginDesc plugin_desc = {
+  GST_VERSION_MAJOR,
+  GST_VERSION_MINOR,
+  "png",
+  plugin_init
+};
diff --git a/ext/libpng/gstpng.h b/ext/libpng/gstpng.h
new file mode 100644
index 00000000..c3ced9e1
--- /dev/null
+++ b/ext/libpng/gstpng.h
@@ -0,0 +1,26 @@
+/* GStreamer
+ * Copyright (C) <1999> Erik Walthinsen <omega@cse.ogi.edu>
+ *
+ * Filter:
+ * Copyright (C) 2000 Donald A. Graft
+ *
+ * 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., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ *
+ */
+
+#include <gst/gst.h>
+#include <png.h>
+
+GType gst_pngenc_get_type (void);
+extern GstElementDetails gst_pngenc_details;
+
+extern GstPadTemplate *gst_png_sink_factory ();
+extern GstPadTemplate *gst_png_src_factory ();
diff --git a/ext/libpng/gstpngenc.c b/ext/libpng/gstpngenc.c
new file mode 100644
index 00000000..d967f5ed
--- /dev/null
+++ b/ext/libpng/gstpngenc.c
@@ -0,0 +1,298 @@
+/* GStreamer
+ * Copyright (C) <1999> Erik Walthinsen <omega@cse.ogi.edu>
+ *
+ * Filter:
+ * Copyright (C) 2000 Donald A. Graft  
+ *
+ * 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., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ *
+ */
+
+#include <string.h>
+#include <gst/gst.h>
+#include "gstpng.h"
+
+#define GST_TYPE_PNGENC \
+  (gst_pngenc_get_type())
+#define GST_PNGENC(obj) \
+  (G_TYPE_CHECK_INSTANCE_CAST((obj),GST_TYPE_PNGENC,GstPngEnc))
+#define GST_PNGENC_CLASS(klass) \
+  (G_TYPE_CHECK_CLASS_CAST((klass),GST_TYPE_ULAW,GstPngEnc))
+#define GST_IS_PNGENC(obj) \
+  (G_TYPE_CHECK_INSTANCE_TYPE((obj),GST_TYPE_PNGENC))
+#define GST_IS_PNGENC_CLASS(obj) \
+  (G_TYPE_CHECK_CLASS_TYPE((klass),GST_TYPE_PNGENC))
+
+#define MAX_HEIGHT     		4096 
+
+typedef struct _GstPngEnc GstPngEnc;
+typedef struct _GstPngEncClass GstPngEncClass;
+gint frame=0;
+
+struct _GstPngEnc
+{
+  GstElement element;
+
+  GstPad *sinkpad, *srcpad;
+  GstBuffer *buffer_out;
+  
+  png_structp png_struct_ptr;
+  png_infop png_info_ptr;
+
+  gint width;
+  gint height;
+  gint bpp;
+};
+
+struct _GstPngEncClass
+{
+  GstElementClass parent_class;
+};
+
+GstElementDetails gst_pngenc_details = {
+  "",
+  "Filter/Video/Effect",
+  "LGPL",
+  "Apply a pngenc effect on video"
+  VERSION,
+  "Jeremy SIMON <jsimon13@yahoo.fr>",
+  "(C) 2000 Donald Graft",
+};
+
+
+/* Filter signals and args */
+enum
+{
+  /* FILL ME */
+  LAST_SIGNAL
+};
+
+enum
+{
+  ARG_0
+};
+
+static void 	gst_pngenc_class_init 	(GstPngEncClass * klass);
+static void 	gst_pngenc_init 		(GstPngEnc * pngenc);
+
+static void 	gst_pngenc_set_property 	(GObject * object, guint prop_id,
+					  	 const GValue * value, GParamSpec * pspec);
+static void 	gst_pngenc_get_property 	(GObject * object, guint prop_id,
+					  	 GValue * value, GParamSpec * pspec);
+
+static void 	gst_pngenc_chain 		(GstPad * pad, GstBuffer * buf);
+
+static GstElementClass *parent_class = NULL;
+
+
+static void user_error_fn(png_structp png_ptr, png_const_charp error_msg)
+{
+  g_warning("%s", error_msg);
+}
+
+static void user_warning_fn(png_structp png_ptr, png_const_charp warning_msg)
+{
+  g_warning("%s", warning_msg);
+}
+
+
+GType gst_pngenc_get_type (void)
+{
+  static GType pngenc_type = 0;
+
+  if (!pngenc_type) {
+    static const GTypeInfo pngenc_info = {
+      sizeof (GstPngEncClass), NULL,
+      NULL,
+      (GClassInitFunc) gst_pngenc_class_init,
+      NULL,
+      NULL,
+      sizeof (GstPngEnc),
+      0,
+      (GInstanceInitFunc) gst_pngenc_init,
+    };
+
+    pngenc_type = g_type_register_static (GST_TYPE_ELEMENT, "GstPngEnc", &pngenc_info, 0);
+  }
+  return pngenc_type;
+}
+
+static void
+gst_pngenc_class_init (GstPngEncClass * klass)
+{
+  GObjectClass *gobject_class;
+  GstElementClass *gstelement_class;
+
+  gobject_class = (GObjectClass *) klass;
+  gstelement_class = (GstElementClass *) klass;
+
+  parent_class = g_type_class_ref (GST_TYPE_ELEMENT);
+
+  gobject_class->set_property = gst_pngenc_set_property;
+  gobject_class->get_property = gst_pngenc_get_property;
+}
+
+
+static GstPadConnectReturn
+gst_pngenc_sinkconnect (GstPad * pad, GstCaps * caps)
+{
+  GstPngEnc *pngenc;
+
+  pngenc = GST_PNGENC (gst_pad_get_parent (pad));
+
+  if (!GST_CAPS_IS_FIXED (caps))
+    return GST_PAD_CONNECT_DELAYED;
+
+  gst_caps_get_int (caps, "width", &pngenc->width);
+  gst_caps_get_int (caps, "height", &pngenc->height);
+  gst_caps_get_int (caps, "bpp", &pngenc->bpp);
+
+  return gst_pad_try_set_caps (pngenc->srcpad, caps);
+}
+
+static void
+gst_pngenc_init (GstPngEnc * pngenc)
+{
+  pngenc->sinkpad = gst_pad_new_from_template (gst_png_sink_factory (), "sink");
+  gst_element_add_pad (GST_ELEMENT (pngenc), pngenc->sinkpad);
+  
+  pngenc->srcpad = gst_pad_new_from_template (gst_png_src_factory (), "src");
+  gst_element_add_pad (GST_ELEMENT (pngenc), pngenc->srcpad);
+
+  gst_pad_set_chain_function (pngenc->sinkpad, gst_pngenc_chain);
+  gst_pad_set_connect_function (pngenc->sinkpad, gst_pngenc_sinkconnect);
+
+  pngenc->png_struct_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING, (png_voidp)NULL, user_error_fn, user_warning_fn);
+  if ( pngenc->png_struct_ptr == NULL )
+     g_warning( "Failed to initialize png structure");
+
+  pngenc->png_info_ptr = png_create_info_struct( pngenc->png_struct_ptr );
+
+  if (setjmp( pngenc->png_struct_ptr->jmpbuf))
+      png_destroy_write_struct(&pngenc->png_struct_ptr, &pngenc->png_info_ptr);
+
+}
+
+void user_flush_data(png_structp png_ptr)
+{
+GstPngEnc *pngenc;
+
+  g_print("FLUSH\n");
+
+  pngenc = (GstPngEnc *) png_get_io_ptr(png_ptr);
+  
+  gst_pad_push (pngenc->srcpad, GST_BUFFER (gst_event_new (GST_EVENT_FLUSH)));
+}
+
+void user_write_data(png_structp png_ptr, png_bytep data, png_uint_32 length)
+{
+GstBuffer *buffer;
+GstPngEnc *pngenc;
+
+  pngenc = (GstPngEnc *) png_get_io_ptr(png_ptr);
+
+  buffer = gst_buffer_new();
+  GST_BUFFER_DATA (buffer) = g_memdup( data, length );
+  GST_BUFFER_SIZE (buffer) = length;
+
+  if ( pngenc->buffer_out ) 
+  {    
+    pngenc->buffer_out = gst_buffer_merge( pngenc->buffer_out, buffer );
+    gst_buffer_unref( buffer );
+  }
+  else
+    pngenc->buffer_out = buffer;
+}
+
+static void
+gst_pngenc_chain (GstPad * pad, GstBuffer * buf)
+{
+  GstPngEnc *pngenc;
+  gint row_indice;
+  png_byte *row_pointers[ MAX_HEIGHT ];
+
+  if ( frame != 300 )
+  {
+    frame++;
+    gst_buffer_unref (buf);
+    return ;
+  }
+
+  pngenc = GST_PNGENC (gst_pad_get_parent (pad));
+
+  pngenc->buffer_out = NULL;
+
+  png_set_filter( pngenc->png_struct_ptr, 0, PNG_FILTER_NONE  | PNG_FILTER_VALUE_NONE );
+  png_set_compression_level( pngenc->png_struct_ptr, 9);
+
+  png_set_IHDR(
+    pngenc->png_struct_ptr,
+    pngenc->png_info_ptr,
+    pngenc->width,
+    pngenc->height,
+    pngenc->bpp/3,
+    PNG_COLOR_TYPE_RGB,
+    PNG_INTERLACE_NONE,
+    PNG_COMPRESSION_TYPE_DEFAULT,
+    PNG_FILTER_TYPE_DEFAULT
+  );
+
+  png_set_write_fn(pngenc->png_struct_ptr, pngenc, (png_rw_ptr)user_write_data, user_flush_data);
+
+  for ( row_indice = 0; row_indice < pngenc->height; row_indice++ )
+    row_pointers[row_indice] = GST_BUFFER_DATA(buf) + (pngenc->width * row_indice * pngenc->bpp/8 );
+  
+  png_write_info( pngenc->png_struct_ptr, pngenc->png_info_ptr );
+  png_write_image( pngenc->png_struct_ptr, row_pointers );
+  png_write_end( pngenc->png_struct_ptr, NULL );
+  png_destroy_info_struct (  pngenc->png_struct_ptr, &pngenc->png_info_ptr );
+  png_destroy_write_struct( &pngenc->png_struct_ptr, (png_infopp)NULL );
+
+  gst_pad_push (pngenc->srcpad, pngenc->buffer_out );
+
+  g_print("Frame %d dumped\n", frame );
+  frame++;
+
+  gst_buffer_unref (buf);
+}
+
+static void
+gst_pngenc_set_property (GObject * object, guint prop_id, const GValue * value, GParamSpec * pspec)
+{
+  GstPngEnc *pngenc;
+
+  /* it's not null if we got it, but it might not be ours */
+  g_return_if_fail (GST_IS_PNGENC (object));
+
+  pngenc = GST_PNGENC (object);
+
+  switch (prop_id) {
+    default:
+      break;
+  }
+}
+
+static void
+gst_pngenc_get_property (GObject * object, guint prop_id, GValue * value, GParamSpec * pspec)
+{
+  GstPngEnc *pngenc;
+
+  /* it's not null if we got it, but it might not be ours */
+  g_return_if_fail (GST_IS_PNGENC (object));
+
+  pngenc = GST_PNGENC (object);
+
+  switch (prop_id) {
+    default:
+      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
+      break;
+  }
+}