gstreamer 0.90.6

data/README

@@ -0,0 +1,33 @@
+Ruby/GStreamer
+==============
+
+Ruby/GStreamer is a Ruby binding for GStreamer.
+
+Requirements
+------------
+
+    Ruby:       http://www.ruby-lang.org/
+    GStreamer:  http://gstreamer.freedesktop.org/
+
+Install
+-------
+
+    0. install Ruby (>= 1.8.x) and GStreamer (>= 0.10.x).
+    1. ruby extconf.rb
+    2. make
+    3. su
+    4. make install
+
+Copying
+-------
+
+    Copyright (c) 2002-2005 Ruby-GNOME2 Project Team
+
+    This program is free software.
+    You can distribute/modify this program under the terms of
+    the GNU LESSER GENERAL PUBLIC LICENSE Version 2.1.
+
+Project Website
+---------------
+
+    http://ruby-gnome2.sourceforge.jp

data/Rakefile

@@ -0,0 +1,15 @@
+# -*- ruby -*-
+
+require './../glib2/lib/gnome2-raketask'
+
+package = GNOME2Package.new do |_package|
+  _package.summary = "Ruby/GStreamer is a Ruby binding for GStreamer."
+  _package.description = "Ruby/GStreamer is a Ruby binding for GStreamer."
+  _package.dependency.gem.runtime = ["glib2"]
+  # TODO: use http://code.google.com/p/ossbuild/downloads/list ???
+  _package.win32.packages = []
+  _package.win32.dependencies = []
+  _package.post_install_message = "This library is experimental."
+end
+package.define_tasks
+

data/ext/gstreamer/Makefile

@@ -0,0 +1,162 @@
+
+SHELL = /bin/sh
+
+#### Start of system configuration section. ####
+
+srcdir = /home/kou/work/ruby/ruby-gnome2/gstreamer/ext/gstreamer
+topdir = /usr/lib/ruby/1.8/x86_64-linux
+hdrdir = $(topdir)
+VPATH = $(srcdir):$(topdir):$(hdrdir)
+exec_prefix = $(prefix)
+prefix = $(DESTDIR)/usr
+sharedstatedir = $(prefix)/com
+mandir = $(prefix)/share/man
+psdir = $(docdir)
+oldincludedir = $(DESTDIR)/usr/include
+localedir = $(datarootdir)/locale
+bindir = $(exec_prefix)/bin
+libexecdir = $(prefix)/lib/ruby1.8
+sitedir = $(DESTDIR)/usr/local/lib/site_ruby
+htmldir = $(docdir)
+vendorarchdir = $(vendorlibdir)/$(sitearch)
+includedir = $(prefix)/include
+infodir = $(prefix)/share/info
+vendorlibdir = $(vendordir)/$(ruby_version)
+sysconfdir = $(DESTDIR)/etc
+libdir = $(exec_prefix)/lib
+sbindir = $(exec_prefix)/sbin
+rubylibdir = $(libdir)/ruby/$(ruby_version)
+docdir = $(datarootdir)/doc/$(PACKAGE)
+dvidir = $(docdir)
+vendordir = $(libdir)/ruby/vendor_ruby
+datarootdir = $(prefix)/share
+pdfdir = $(docdir)
+archdir = $(rubylibdir)/$(arch)
+sitearchdir = $(sitelibdir)/$(sitearch)
+datadir = $(datarootdir)
+localstatedir = $(DESTDIR)/var
+sitelibdir = $(sitedir)/$(ruby_version)
+
+CC = gcc
+LIBRUBY = $(LIBRUBY_SO)
+LIBRUBY_A = lib$(RUBY_SO_NAME)-static.a
+LIBRUBYARG_SHARED = -l$(RUBY_SO_NAME)
+LIBRUBYARG_STATIC = -l$(RUBY_SO_NAME)-static
+
+RUBY_EXTCONF_H = 
+CFLAGS   =  -fPIC -fno-strict-aliasing -g -g -O2  -fPIC $(cflags) -Wall -I/usr/include/gstreamer-0.10 -I/usr/include/libxml2 -I/usr/include/glib-2.0 -I/usr/lib/glib-2.0/include -pthread -I/usr/include/gstreamer-0.10 -I/usr/include/libxml2 -I/usr/include/glib-2.0 -I/usr/lib/glib-2.0/include -pthread -DHAVE_GST_OVERLAY -I/usr/include/gstreamer-0.10 -I/usr/include/libxml2 -I/usr/include/glib-2.0 -I/usr/lib/glib-2.0/include -pthread -DHAVE_GST_PBUTILS 
+INCFLAGS = -I. -I/home/kou/work/ruby/ruby-gnome2/glib2/ext/glib2 -I/home/kou/work/ruby/ruby-gnome2/glib2/ext/glib2 -I/home/kou/work/ruby/ruby-gnome2/glib2/ext/glib2 -I. -I/usr/lib/ruby/1.8/x86_64-linux -I/home/kou/work/ruby/ruby-gnome2/gstreamer/ext/gstreamer
+DEFS     = 
+CPPFLAGS = -DHAVE_RB_DEFINE_ALLOC_FUNC -DHAVE_RB_BLOCK_PROC -DHAVE_OBJECT_ALLOCATE -DHAVE_NODE_ATTRASGN -DHAVE_UNISTD_H -DHAVE_GST_INTERFACES_XOVERLAY_H -DRUBY_GST_COMPILATION   
+CXXFLAGS = $(CFLAGS) 
+ldflags  = -L.  -rdynamic -Wl,-export-dynamic -pthread -pthread -pthread
+dldflags = 
+archflag = 
+DLDFLAGS = $(ldflags) $(dldflags) $(archflag)
+LDSHARED = $(CC) -shared
+AR = ar
+EXEEXT = 
+
+RUBY_INSTALL_NAME = ruby1.8
+RUBY_SO_NAME = ruby1.8
+arch = x86_64-linux
+sitearch = x86_64-linux
+ruby_version = 1.8
+ruby = /usr/bin/ruby1.8
+RUBY = $(ruby)
+RM = rm -f
+MAKEDIRS = mkdir -p
+INSTALL = /usr/bin/install -c
+INSTALL_PROG = $(INSTALL) -m 0755
+INSTALL_DATA = $(INSTALL) -m 644
+COPY = cp
+
+#### End of system configuration section. ####
+
+preload = 
+
+libpath = . $(libdir)
+LIBPATH =  -L. -L$(libdir)
+DEFFILE = 
+
+CLEANFILES = mkmf.log
+DISTCLEANFILES = 
+
+extout = 
+extout_prefix = 
+target_prefix = 
+LOCAL_LIBS = 
+LIBS = $(LIBRUBYARG_SHARED) -lgstinterfaces-0.10  -lgstreamer-0.10 -lglib-2.0 -lgobject-2.0 -lgthread-2.0 -lrt -lgmodule-2.0 -lxml2 -lgstreamer-0.10 -lglib-2.0 -lgobject-2.0 -lgthread-2.0 -lrt -lgmodule-2.0 -lxml2 -lgstpbutils-0.10 -lgstreamer-0.10 -lglib-2.0 -lgobject-2.0 -lgthread-2.0 -lrt -lgmodule-2.0 -lxml2 -lpthread -lrt -ldl -lcrypt -lm   -lc
+SRCS = rbgstxml.c rbgsttagsetter.c rbgstindex.c rbgst-message.c rbgst-clock.c rbgst-pad.c rbgstquerytype.c rbgstformat.c rbgst-seek.c rbgst-index-factory.c misc.c rbgst-event.c rbgst-pad-template.c rbgst.c rbgstregistry.c rbgstparse.c rbgst-static-pad-template.c rbgst-structure.c rbgst-system-clock.c rbgst-type-find-factory.c rbgst-plugin.c rbgst-static-caps.c rbgst-bus.c rbgst-mini-object.c rbgst-object.c rbgst-private.c rbgst-element-factory.c rbgstclockentry.c rbgst-bin.c rbgst-ghost-pad.c rbgstindexentry.c rbgst-plugin-feature.c rbgst-pipeline.c rbgst-child-proxy.c rbgsttag.c rbgst-buffer.c rbgst-query.c rbgst-x-overlay.c rbgst-caps.c rbgst-element.c rbgst-value.c
+OBJS = rbgstxml.o rbgsttagsetter.o rbgstindex.o rbgst-message.o rbgst-clock.o rbgst-pad.o rbgstquerytype.o rbgstformat.o rbgst-seek.o rbgst-index-factory.o misc.o rbgst-event.o rbgst-pad-template.o rbgst.o rbgstregistry.o rbgstparse.o rbgst-static-pad-template.o rbgst-structure.o rbgst-system-clock.o rbgst-type-find-factory.o rbgst-plugin.o rbgst-static-caps.o rbgst-bus.o rbgst-mini-object.o rbgst-object.o rbgst-private.o rbgst-element-factory.o rbgstclockentry.o rbgst-bin.o rbgst-ghost-pad.o rbgstindexentry.o rbgst-plugin-feature.o rbgst-pipeline.o rbgst-child-proxy.o rbgsttag.o rbgst-buffer.o rbgst-query.o rbgst-x-overlay.o rbgst-caps.o rbgst-element.o rbgst-value.o
+TARGET = gst
+DLLIB = $(TARGET).so
+EXTSTATIC = 
+STATIC_LIB = 
+
+BINDIR        = $(bindir)
+RUBYCOMMONDIR = $(sitedir)$(target_prefix)
+RUBYLIBDIR    = $(sitelibdir)$(target_prefix)
+RUBYARCHDIR   = $(sitearchdir)$(target_prefix)
+
+TARGET_SO     = $(DLLIB)
+CLEANLIBS     = $(TARGET).so $(TARGET).il? $(TARGET).tds $(TARGET).map
+CLEANOBJS     = *.o *.a *.s[ol] *.pdb *.exp *.bak
+
+all:		$(DLLIB)
+static:		$(STATIC_LIB)
+
+clean:
+		@-$(RM) $(CLEANLIBS) $(CLEANOBJS) $(CLEANFILES)
+
+distclean:	clean
+		@-$(RM) Makefile $(RUBY_EXTCONF_H) conftest.* mkmf.log
+		@-$(RM) core ruby$(EXEEXT) *~ $(DISTCLEANFILES)
+
+realclean:	distclean
+install: install-so install-rb
+
+install-so: $(RUBYARCHDIR)
+install-so: $(RUBYARCHDIR)/$(DLLIB)
+$(RUBYARCHDIR)/$(DLLIB): $(DLLIB)
+	$(INSTALL_PROG) $(DLLIB) $(RUBYARCHDIR)
+install-rb: pre-install-rb install-rb-default
+install-rb-default: pre-install-rb-default
+pre-install-rb: Makefile
+pre-install-rb-default: Makefile
+$(RUBYARCHDIR):
+	$(MAKEDIRS) $@
+
+site-install: site-install-so site-install-rb
+site-install-so: install-so
+site-install-rb: install-rb
+
+.SUFFIXES: .c .m .cc .cxx .cpp .C .o
+
+.cc.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.cxx.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.cpp.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.C.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) -c $<
+
+.c.o:
+	$(CC) $(INCFLAGS) $(CPPFLAGS) $(CFLAGS) -c $<
+
+$(DLLIB): $(OBJS) Makefile
+	@-$(RM) $@
+	$(LDSHARED) -o $@ $(OBJS) $(LIBPATH) $(DLDFLAGS) $(LOCAL_LIBS) $(LIBS)
+
+
+
+###
+install:
+	if test -n "$(pkgconfigdir)"; then			\
+	  $(MAKEDIRS) $(pkgconfigdir);				\
+	  $(INSTALL_DATA) ../ruby-gstreamer.pc $(pkgconfigdir);	\
+	fi

data/ext/gstreamer/depend

@@ -0,0 +1,5 @@
+install:
+	if test -n "$(pkgconfigdir)"; then			\
+	  $(MAKEDIRS) $(pkgconfigdir);				\
+	  $(INSTALL_DATA) ../ruby-gstreamer.pc $(pkgconfigdir);	\
+	fi

data/ext/gstreamer/extconf.rb

@@ -0,0 +1,63 @@
+=begin
+extconf.rb for Ruby/GStreamer extention library
+=end
+
+require 'pathname'
+
+base_dir = Pathname(__FILE__).dirname.parent.parent.expand_path
+top_dir = base_dir.parent
+top_build_dir = Pathname(".").parent.parent.parent.expand_path
+
+mkmf_gnome2_dir = top_dir + "glib2" + 'lib'
+version_suffix = ""
+unless mkmf_gnome2_dir.exist?
+  if /(-\d+\.\d+\.\d+)\z/ =~ base_dir.basename.to_s
+    version_suffix = $1
+    mkmf_gnome2_dir = top_dir + "glib2#{version_suffix}" + 'lib'
+  end
+end
+
+$LOAD_PATH.unshift(mkmf_gnome2_dir.to_s)
+
+module_name = "gst"
+package_id = "gstreamer-0.10"
+
+require 'mkmf-gnome2'
+
+setup_win32(module_name, base_dir)
+
+PKGConfig.have_package(package_id) or exit 1
+PKGConfig.have_package('gstreamer-plugins-base-0.10') or exit 1
+
+have_header("unistd.h")
+have_header("io.h")
+
+if have_library("gstinterfaces-0.10") and
+    have_header("gst/interfaces/xoverlay.h")
+  $CFLAGS += " -DHAVE_GST_OVERLAY"
+end
+
+if PKGConfig.have_package("gstreamer-pbutils-0.10")
+  $CFLAGS += " -DHAVE_GST_PBUTILS"
+end
+
+["glib2"].each do |package|
+  directory = "#{package}#{version_suffix}"
+  build_dir = "#{directory}/tmp/#{RUBY_PLATFORM}/#{package}/#{RUBY_VERSION}"
+  add_depend_package(package, "#{directory}/ext/#{package}",
+                     top_dir.to_s,
+                     :top_build_dir => top_build_dir.to_s,
+                     :target_build_dir => build_dir)
+end
+
+create_pkg_config_file("Ruby/GStreamer", package_id)
+$defs << "-DRUBY_GST_COMPILATION"
+create_makefile(module_name)
+pkg_config_dir = with_config("pkg-config-dir")
+if pkg_config_dir.is_a?(String)
+  File.open("Makefile", "ab") do |makefile|
+    makefile.puts
+    makefile.puts("pkgconfigdir=#{pkg_config_dir}")
+  end
+end
+

data/ext/gstreamer/misc.c

@@ -0,0 +1,62 @@
+/*
+ * Copyright (C) 2003, 2004 Laurent Sansonetti <lrz@gnome.org>
+ *
+ * This file is part of Ruby/GStreamer.
+ *
+ * Ruby/GStreamer is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * Ruby/GStreamer 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
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with Ruby/GStreamer; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
+ */
+
+#include "rbgst.h"
+
+VALUE
+rb_str_new_with_format (char *fmt, ...)
+{
+	char buf[1000];
+	va_list ap;
+
+	va_start (ap, fmt);
+	vsnprintf (buf, sizeof buf, fmt, ap);
+	va_end (ap);
+	return CSTR2RVAL (buf);
+}
+
+VALUE
+rb_ary_yield (VALUE arr)
+{
+	if (rb_block_given_p () == Qfalse)
+		rb_raise (rb_eArgError, "No block given");
+	rb_ary_each (arr); 
+	return Qnil;
+}
+
+VALUE
+rbgst_new_gstobject (void *o)
+{
+	GType gtype = G_OBJECT_TYPE (o);
+	const gchar *gtypename = g_type_name (gtype);
+        if (strncmp (gtypename, "Gst", 3) == 0)
+            gtypename += 3;
+        if (!rb_const_defined_at (mGst, rb_intern (gtypename)))
+            G_DEF_CLASS (gtype, gtypename, mGst);
+	return GOBJ2RVAL (o);
+}
+
+void
+rbgst_initialize_gstobject(VALUE obj, GstObject *gstobj)
+{
+	gstobj = gst_object_ref (gstobj);
+	gst_object_sink (gstobj);
+	G_INITIALIZE (obj, gstobj);
+}

data/ext/gstreamer/rbgst-bin.c

@@ -0,0 +1,466 @@
+/*
+ * Copyright (C) 2003, 2004 Laurent Sansonetti <lrz@gnome.org>
+ *                     2004 Erwan Loisant <erwan@loisant.org>
+ *
+ * This file is part of Ruby/GStreamer.
+ *
+ * Ruby/GStreamer is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * Ruby/GStreamer 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
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with Ruby/GStreamer; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
+ */
+
+#include "rbgst.h"
+#include "rbgst-private.h"
+
+#define SELF(self) RVAL2GST_BIN(self)
+
+/* Class: Gst::Bin
+ * Base container element.
+ */
+
+/*
+ * Class method: new(name=nil)
+ * name: a name for the bin.
+ *
+ * Constructs a new Gst::Bin object.
+ *
+ * If element name is ommited (or nil), then the bin will receive a guaranteed
+ * unique name, consisting of the "bin" string and a number.
+ * If name is given, it will be given the name supplied.
+ *
+ * Returns: a newly allocated Gst::Bin object.
+ */
+static VALUE
+rb_gst_bin_initialize(int argc, VALUE *argv, VALUE self)
+{
+    GstElement *bin;
+    VALUE name;
+
+    rb_scan_args(argc, argv, "01", &name);
+
+    bin = gst_bin_new(RVAL2CSTR_ACCEPT_NIL(name));
+    if (bin)
+        RBGST_INITIALIZE(self, bin);
+    return Qnil;
+}
+
+/*
+ * Method: size
+ *
+ * Returns: the number of elements in the container.
+ */
+static VALUE
+rb_gst_bin_size(VALUE self)
+{
+    return INT2NUM(GST_BIN_NUMCHILDREN(SELF(self)));
+}
+
+/*
+ * Method: children(interface=nil)
+ * interface: an interface (Ruby class).
+ *
+ * Returns: If interface is nil, an array of all
+ * Gst::Element objects in the container. Otherwise, an
+ * array of Gst::Element objects in the container that
+ * implements the interface.
+ */
+static VALUE
+rb_gst_bin_get_children(int argc, VALUE *argv, VALUE self)
+{
+    VALUE children, iface;
+
+    rb_scan_args(argc, argv, "01", &iface);
+
+    if (NIL_P(iface)) {
+        const GList *node;
+        children = rb_ary_new();
+        for (node = GST_BIN_CHILDREN(SELF(self));
+             node;
+             node = g_list_next(node)) {
+            rb_ary_push(children, GST_ELEMENT2RVAL(node->data));
+        }
+    } else {
+        GstIterator *iter;
+        iter = gst_bin_iterate_all_by_interface(SELF(self),
+                                                CLASS2GTYPE(iface));
+        children = _rbgst_collect_elements(iter);
+    }
+
+    return children;
+}
+
+/*
+ * Method: children_recurse()
+ *
+ * Returns: an array of all Gst::Element objects in the container and child
+ * bins.
+ */
+static VALUE
+rb_gst_bin_get_children_recurse(VALUE self)
+{
+   GstIterator *iter;
+   VALUE children;
+
+   iter = gst_bin_iterate_recurse(SELF(self));
+   children = _rbgst_collect_elements(iter);
+
+    return children;
+}
+
+static VALUE
+rb_gst_bin_get_children_cookie(VALUE self)
+{
+    return UINT2NUM(GST_BIN_CHILDREN_COOKIE(SELF(self)));
+}
+
+static VALUE
+rb_gst_bin_get_child_bus(VALUE self)
+{
+    return GST_BUS2RVAL(SELF(self)->child_bus);
+}
+
+static VALUE
+rb_gst_bin_get_messages(VALUE self)
+{
+    GList *node;
+    VALUE messages;
+
+    messages = rb_ary_new();
+    for (node = SELF(self)->messages; node; node = g_list_next(node)) {
+        rb_ary_push(messages, GST_MSG2RVAL(node->data));
+    }
+
+    return messages;
+}
+
+static VALUE
+rb_gst_bin_polling_p(VALUE self)
+{
+    return CBOOL2RVAL(SELF(self)->polling);
+}
+
+static VALUE
+rb_gst_bin_clock_dirty_p(VALUE self)
+{
+    return CBOOL2RVAL(SELF(self)->clock_dirty);
+}
+
+/*
+ * Method: provided_clock
+ *
+ * Gets the current clock of the (scheduler of the) bin,
+ * as a Gst::Clock object.
+ *
+ * Returns: a Gst::Clock object, or nil.
+ */
+static VALUE
+rb_gst_bin_get_provided_clock(VALUE self)
+{
+    return GST_CLOCK2RVAL(SELF(self)->provided_clock);
+}
+
+/*
+ * Method: provided_clock=(clock)
+ * clock: a Gst::Clock.
+ *
+ * Forces the bin to use the given clock.  Use nil to force it 
+ * to use no clock at all.
+ *
+ * Returns: self.
+ */
+static VALUE
+rb_gst_bin_set_provided_clock(VALUE self, VALUE clock)
+{
+    GstBin *bin;
+
+    bin = SELF(self);
+    if (bin->provided_clock)
+        g_object_unref(bin->provided_clock);
+
+    bin->provided_clock = RVAL2GST_CLOCK(clock);
+    if (bin->provided_clock)
+        g_object_ref(bin->provided_clock);
+
+    return self;
+}
+
+static VALUE
+rb_gst_bin_get_clock_provider(VALUE self)
+{
+    return GST_ELEMENT2RVAL(SELF(self)->clock_provider);
+}
+
+/*
+ * Method: <<(element)
+ * element: a Gst::Element object.
+ *
+ * Adds a Gst::Element object to the bin.
+ *
+ * Returns: self.
+ */
+static VALUE
+rb_gst_bin_add(VALUE self, VALUE element)
+{
+    VALUE klass = GTYPE2CLASS(GST_TYPE_ELEMENT);
+
+    if (!RVAL2CBOOL(rb_obj_is_kind_of(element, klass))) {
+        rb_raise(rb_eTypeError, "Gst::Element expected");
+    }
+    gst_bin_add(SELF(self), RVAL2GST_ELEMENT(element));
+    G_CHILD_ADD(self, element);
+    return self;
+}
+
+/*
+ * Method: add(*elements)
+ * elements: a list of Gst::Element objects.
+ *
+ * Adds one or more Gst::Element objects to the bin.
+ *
+ * Returns: nil.
+ */
+static VALUE
+rb_gst_bin_add_multi(int argc, VALUE *argv, VALUE self)
+{
+    int i;
+
+    for (i = 0; i < argc; i++) {
+        rb_gst_bin_add(self, argv[i]);
+    }
+    return Qnil;
+}
+
+
+/*
+ * Method: remove(*elements)
+ * elements: a list of Gst::Element objects.
+ *
+ * Removes one or more Gst::Element objects from the bin, unparenting 
+ * as well.
+ *
+ * Returns: nil.
+ */
+static VALUE
+rb_gst_bin_remove(int argc, VALUE *argv, VALUE self)
+{
+    int i;
+    GstBin *bin;
+
+    bin = SELF(self);
+    for (i = 0; i < argc; i++) {
+        G_CHILD_REMOVE(self, argv[i]);
+        gst_bin_remove(bin, RVAL2GST_ELEMENT(argv[i]));
+    }
+    return Qnil;
+}
+
+/*
+ * Method: clear
+ *
+ * Removes all Gst::Element objects in the bin.
+ *
+ * Returns: nil.
+ */
+static VALUE
+rb_gst_bin_clear(VALUE self)
+{
+    GstBin *bin;
+    GList *node, *children;
+
+    bin = SELF(self);
+    children = g_list_copy(GST_BIN_CHILDREN(bin));
+    for (node = children; node; node = g_list_next(node)) {
+        gst_bin_remove(bin, node->data);
+    }
+    g_list_free(children);
+    return Qnil;
+}
+
+/*
+ * Method: each(interface=nil) {|element| ...}
+ *
+ * Calls the block for each element in the bin, passing a reference to
+ * the Gst::Element as parameter. If the interface isn't nil,
+ * iterated elements should implement the interface.
+ *
+ * Returns: always nil.
+ */
+static VALUE
+rb_gst_bin_each_element(int argc, VALUE *argv, VALUE self)
+{
+    return rb_ary_yield(rb_gst_bin_get_children(argc, argv, self));
+}
+
+/*
+ * Method: each_recurse() {|element| ...}
+ *
+ * Calls the block for each element in the bin and its child bins, passing a
+ * reference to the Gst::Element as parameter. 
+ *
+ * Returns: always nil.
+ */
+static VALUE
+rb_gst_bin_each_recurse_element(VALUE self)
+{
+    return rb_ary_yield(rb_gst_bin_get_children_recurse(self));
+}
+
+/*
+ * Method: get_child(index)
+ * Method: get_child(name, recurse=false)
+ * Method: get_child(interface)
+ * index: an index.
+ * name: a name.
+ * recurse: search recursively.
+ * interface: an interface (Ruby class).
+ *
+ * 1st: Gets the index-th element.
+ *
+ * 2nd: Gets the element with the given name from the
+ * bin, as a reference to a Gst::Element object. If the
+ * element is not found and recurse is true, a recursion is
+ * performed on the parent bin.
+ *
+ * 3nd: Looks for the first element inside the bin that implements the
+ * given interface. If such an element is found, it returns the element.
+ * If you want all elements that implement the interface, use
+ * Gst::Bin#get_all_by_interface. The method recurses bins inside bins.
+ *
+ * Returns: a Gst::Element reference, or nil if the bin does not contain
+ * an element with the given name nor implementing the interface.
+ */
+static VALUE
+rb_gst_bin_get(int argc, VALUE *argv, VALUE self)
+{
+    VALUE index_or_name_or_interface, recurse;
+    GstElement *element = NULL;
+
+    rb_scan_args(argc, argv, "11", &index_or_name_or_interface, &recurse);
+
+    if (RVAL2CBOOL(rb_obj_is_kind_of(index_or_name_or_interface, rb_cInteger))) {
+        int index;
+        GList *node;
+        index = NUM2INT(index_or_name_or_interface);
+        node = g_list_nth(GST_BIN_CHILDREN(SELF(self)), index);
+        if (node)
+            element = node->data;
+    } else if (RVAL2CBOOL(rb_obj_is_kind_of(index_or_name_or_interface,
+                                            rb_cString))) {
+        char *name;
+        name = RVAL2CSTR(index_or_name_or_interface);
+
+        if (RVAL2CBOOL(recurse)) {
+            element = gst_bin_get_by_name_recurse_up(SELF(self), name);
+        } else {
+            element = gst_bin_get_by_name(SELF(self), name);
+        }
+    } else {
+        GType iface;
+        iface = CLASS2GTYPE(index_or_name_or_interface);
+        element = gst_bin_get_by_interface(SELF(self), iface);
+    }
+
+    return GST_ELEMENT2RVAL(element);
+}
+
+static VALUE
+rb_gst_bin_get_sinks(VALUE self)
+{
+    return _rbgst_collect_elements(gst_bin_iterate_sinks(SELF(self)));
+}
+
+static VALUE
+rb_gst_bin_get_sources(VALUE self)
+{
+    return _rbgst_collect_elements(gst_bin_iterate_sources(SELF(self)));
+}
+
+#ifdef GST_DEBUG_BIN_TO_DOT_FILE
+static VALUE
+rb_gst_bin_to_dot_file(VALUE self, VALUE details, VALUE filename)
+{
+    GST_DEBUG_BIN_TO_DOT_FILE(SELF(self), NUM2INT(details), RVAL2CSTR(filename));
+    return Qnil;
+}
+
+static VALUE
+rb_gst_bin_to_dot_file_with_ts(VALUE self, VALUE details, VALUE filename)
+{
+    GST_DEBUG_BIN_TO_DOT_FILE_WITH_TS(SELF(self),
+                                      NUM2INT(details),
+                                      RVAL2CSTR(filename));
+    return Qnil;
+}
+#endif
+
+void
+Init_gst_bin (void)
+{
+    VALUE rb_cGstBin;
+
+    rb_cGstBin = G_DEF_CLASS(GST_TYPE_BIN, "Bin", mGst);
+
+    rb_include_module(rb_cGstBin, rb_mEnumerable);
+
+    rb_define_method(rb_cGstBin, "initialize", rb_gst_bin_initialize, -1);
+
+    rb_define_method(rb_cGstBin, "size", rb_gst_bin_size, 0);
+    rb_define_alias(rb_cGstBin, "length", "size");
+
+    rb_define_method(rb_cGstBin, "children", rb_gst_bin_get_children, -1);
+    rb_define_method(rb_cGstBin, "each", rb_gst_bin_each_element, -1);
+
+    rb_define_method(rb_cGstBin, "children_recurse", 
+                     rb_gst_bin_get_children_recurse, 0);
+    rb_define_method(rb_cGstBin, "each_recurse", 
+                     rb_gst_bin_each_recurse_element, 0);
+
+    rb_define_method(rb_cGstBin, "children_cookie",
+                     rb_gst_bin_get_children_cookie, 0);
+    rb_define_method(rb_cGstBin, "child_bus", rb_gst_bin_get_child_bus, 0);
+    rb_define_method(rb_cGstBin, "messages", rb_gst_bin_get_messages, 0);
+    rb_define_method(rb_cGstBin, "polling?", rb_gst_bin_polling_p, 0);
+    rb_define_method(rb_cGstBin, "clock_dirty?", rb_gst_bin_clock_dirty_p, 0);
+    rb_define_method(rb_cGstBin, "provided_clock",
+                     rb_gst_bin_get_provided_clock, 0);
+    rb_define_method(rb_cGstBin, "set_provided_clock",
+                     rb_gst_bin_set_provided_clock, 1);
+    rb_define_method(rb_cGstBin, "clock_provider",
+                     rb_gst_bin_get_clock_provider, 0);
+
+
+    rb_define_method(rb_cGstBin, "<<", rb_gst_bin_add, 1);
+    rb_define_method(rb_cGstBin, "add", rb_gst_bin_add_multi, -1);
+    rb_define_method(rb_cGstBin, "remove", rb_gst_bin_remove, -1);
+    rb_define_method(rb_cGstBin, "clear", rb_gst_bin_clear, 0);
+
+    rb_define_method(rb_cGstBin, "get_child", rb_gst_bin_get, -1);
+
+    rb_define_method(rb_cGstBin, "sinks", rb_gst_bin_get_sinks, 0);
+    rb_define_method(rb_cGstBin, "sources", rb_gst_bin_get_sources, 0);
+
+#ifdef GST_DEBUG_BIN_TO_DOT_FILE
+    rb_define_method(rb_cGstBin, "to_dot_file", rb_gst_bin_to_dot_file, 2);
+    rb_define_method(rb_cGstBin, "to_dot_file_with_ts",
+                     rb_gst_bin_to_dot_file_with_ts, 2);
+#endif
+
+    G_DEF_SETTERS(rb_cGstBin);
+
+    G_DEF_CLASS(GST_TYPE_BIN_FLAGS, "Flags", rb_cGstBin);
+    G_DEF_CONSTANTS(rb_cGstBin, GST_TYPE_BIN_FLAGS, "GST_BIN_");
+#ifdef GST_DEBUG_BIN_TO_DOT_FILE
+    G_DEF_CONSTANTS(rb_cGstBin, GST_TYPE_DEBUG_GRAPH_DETAILS,
+        "GST_DEBUG_GRAPH_");
+#endif
+}