GStreamer-Interfaces-0.06/0000755000175000017500000000000011351144526015371 5ustar torstentorstenGStreamer-Interfaces-0.06/xs/0000755000175000017500000000000011351144526016023 5ustar torstentorstenGStreamer-Interfaces-0.06/xs/GstPropertyProbe.xs0000644000175000017500000001021611203776027021674 0ustar torstentorsten/* * Copyright (C) 2005 by the gtk2-perl team * * This library 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. * * 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 * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser 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 * * $Id$ */ #include "gstinterfacesperl.h" MODULE = GStreamer::PropertyProbe PACKAGE = GStreamer::PropertyProbe PREFIX = gst_property_probe_ # const GList * gst_property_probe_get_properties (GstPropertyProbe *probe); void gst_property_probe_get_probe_properties (probe) GstPropertyProbe *probe PREINIT: const GList *result, *i; PPCODE: result = gst_property_probe_get_properties (probe); for (i = result; i; i = i->next) XPUSHs (sv_2mortal (newSVGParamSpec (i->data))); # const GParamSpec * gst_property_probe_get_property (GstPropertyProbe *probe, const gchar *name); GParamSpec * gst_property_probe_get_probe_property (probe, name) GstPropertyProbe *probe const gchar *name CODE: RETVAL = (GParamSpec *) gst_property_probe_get_property (probe, name); OUTPUT: RETVAL # void gst_property_probe_probe_property (GstPropertyProbe *probe, const GParamSpec *pspec); void gst_property_probe_probe_property (probe, pspec) GstPropertyProbe *probe GParamSpec *pspec CODE: gst_property_probe_probe_property (probe, (const GParamSpec *) pspec); void gst_property_probe_probe_property_name (GstPropertyProbe *probe, const gchar *name); # gboolean gst_property_probe_needs_probe (GstPropertyProbe *probe, const GParamSpec *pspec); gboolean gst_property_probe_needs_probe (probe, pspec) GstPropertyProbe *probe GParamSpec *pspec CODE: RETVAL = gst_property_probe_needs_probe (probe, (const GParamSpec *) pspec); OUTPUT: RETVAL gboolean gst_property_probe_needs_probe_name (GstPropertyProbe *probe, const gchar *name); # GValueArray * gst_property_probe_get_values (GstPropertyProbe *probe, const GParamSpec *pspec); # GValueArray * gst_property_probe_probe_and_get_values (GstPropertyProbe *probe, const GParamSpec *pspec); void gst_property_probe_get_probe_values (probe, pspec) GstPropertyProbe *probe GParamSpec *pspec ALIAS: GStreamer::PropertyProbe::probe_and_get_probe_values = 1 PREINIT: GValueArray *array; int i; PPCODE: switch (ix) { case 0: array = gst_property_probe_get_values (probe, (const GParamSpec *) pspec); break; case 1: array = gst_property_probe_probe_and_get_values (probe, (const GParamSpec *) pspec); break; default: array = NULL; break; } if (array) { EXTEND (sp, array->n_values); for (i = 0; i < array->n_values; i++) { GValue *value = g_value_array_get_nth (array, i); PUSHs (sv_2mortal (gperl_sv_from_value ((const GValue *) value))); } g_value_array_free (array); } # GValueArray * gst_property_probe_get_values_name (GstPropertyProbe *probe, const gchar *name); # GValueArray * gst_property_probe_probe_and_get_values_name (GstPropertyProbe *probe, const gchar *name); void gst_property_probe_get_probe_values_name (probe, name) GstPropertyProbe *probe const gchar *name ALIAS: GStreamer::PropertyProbe::probe_and_get_probe_values_name = 1 PREINIT: GValueArray *array; int i; PPCODE: switch (ix) { case 0: array = gst_property_probe_get_values_name (probe, name); break; case 1: array = gst_property_probe_probe_and_get_values_name (probe, name); break; default: array = NULL; break; } if (array) { EXTEND (sp, array->n_values); for (i = 0; i < array->n_values; i++) { GValue *value = g_value_array_get_nth (array, i); PUSHs (sv_2mortal (gperl_sv_from_value ((const GValue *) value))); } g_value_array_free (array); } GStreamer-Interfaces-0.06/xs/GstInterfaces.xs0000644000175000017500000000217411351142566021146 0ustar torstentorsten/* * Copyright (C) 2005 by the gtk2-perl team * * This library 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. * * 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 * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser 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 * * $Id$ */ #include "gstinterfacesperl.h" MODULE = GStreamer::Interfaces PACKAGE = GStreamer::Interfaces BOOT: #include "register.xsh" #include "boot.xsh" =for apidoc __hide__ =cut bool CHECK_VERSION (class, major, minor, micro) int major int minor int micro CODE: RETVAL = GST_INTERFACES_CHECK_VERSION (major, minor, micro); OUTPUT: RETVAL GStreamer-Interfaces-0.06/xs/GstXOverlay.xs0000644000175000017500000000245311351142566020634 0ustar torstentorsten/* * Copyright (C) 2005 by the gtk2-perl team * * This library 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. * * 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 * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser 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 * * $Id$ */ #include "gstinterfacesperl.h" MODULE = GStreamer::XOverlay PACKAGE = GStreamer::XOverlay PREFIX = gst_x_overlay_ void gst_x_overlay_set_xwindow_id (GstXOverlay *overlay, gulong xwindow_id); void gst_x_overlay_expose (GstXOverlay *overlay); void gst_x_overlay_got_xwindow_id (GstXOverlay *overlay, gulong xwindow_id); void gst_x_overlay_prepare_xwindow_id (GstXOverlay *overlay); #if GST_INTERFACES_CHECK_VERSION(0, 10, 12) void gst_x_overlay_handle_events (GstXOverlay * overlay, gboolean handle_events); #endif GStreamer-Interfaces-0.06/t/0000755000175000017500000000000011351144526015634 5ustar torstentorstenGStreamer-Interfaces-0.06/t/GstXOverlay.t0000644000175000017500000000115211351142566020251 0ustar torstentorsten#!/usr/bin/perl use strict; use warnings; use Test::More tests => 1; # $Id$ use Glib qw(TRUE FALSE); use GStreamer -init; use GStreamer::Interfaces; my $plugin = "xvimagesink"; my $element = GStreamer::ElementFactory -> make($plugin => "element"); SKIP: { skip 'make() returned undef', 1 unless defined $element; isa_ok($element, "GStreamer::XOverlay"); $element -> set_xwindow_id(0); $element -> expose(); $element -> got_xwindow_id(0); $element -> prepare_xwindow_id(); skip 'need 0.10.12', 0 unless GStreamer::Interfaces->CHECK_VERSION(0, 10, 12); $element -> handle_events(TRUE); } GStreamer-Interfaces-0.06/t/GstPropertyProbe.t0000644000175000017500000000235011351133537021313 0ustar torstentorsten#!/usr/bin/perl use strict; use warnings; use Test::More tests => 5; use Glib qw(TRUE FALSE); use GStreamer -init; use GStreamer::Interfaces; my $plugin = "alsamixer"; my $property = "device"; my $element = GStreamer::ElementFactory -> make($plugin => "element"); SKIP: { skip 'could not find the alsamixer plugin', 5 unless defined $element; isa_ok($element, "GStreamer::PropertyProbe"); my @pspecs = $element -> get_probe_properties(); skip 'got no probe properties', 4 unless @pspecs; isa_ok($pspecs[0], "Glib::ParamSpec"); my $pspec = $element -> get_probe_property($property); skip 'did not get desired property', 3 unless defined $pspec; isa_ok($pspec, "Glib::ParamSpec"); ok(defined $element -> needs_probe($pspec)); $element -> probe_property($pspec); my @values; # these might return an empty list, apparently @values = $element -> get_probe_values($pspec); @values = $element -> probe_and_get_probe_values($pspec); ok(defined $element -> needs_probe_name($property)); $element -> probe_property_name($property); # these might return an empty list too, apparently @values = $element -> get_probe_values_name($property); @values = $element -> probe_and_get_probe_values_name($property); } GStreamer-Interfaces-0.06/ChangeLog.pre-git0000644000175000017500000000360711226433632020517 0ustar torstentorsten=== ChangeLog discontinued === With the move to git, we stop maintaining a separate ChangeLog and rely on proper commit messages instead. 2008-03-16 Torsten Schoenfeld * Interfaces.pm * Makefile.PL * NEWS * README: Version 0.04. 2008-01-19 Torsten Schoenfeld * t/GstXOverlay.t: Fix test failure. 2007-11-04 Torsten Schoenfeld * Makefile.PL: Require Glib 1.170 for the configure_requires stuff. 2007-10-19 Torsten Schoenfeld * Makefile.PL: Use a more compatible way to indicate which perl version we require. Use Glib::MakeHelper's new configure_requires stuff to announce our Makefile.PL-time dependencies. * Interfaces.pm: Fix mistakes in the synopsis. (Found by James Bromberger) 2006-10-03 kaffeetisch * Interfaces.pm: Fix POD errors. 2006-07-07 kaffeetisch * Interfaces.pm, NEWS, copyright.pod: Version 0.03. 2006-07-07 kaffeetisch * Interfaces.pm: Fix a doc glitch. * t/GstPropertyProbe.t: Fix a potential failure. 2006-01-29 kaffeetisch * Makefile.PL: Require GStreamer 0.06. * Interfaces.pm: Document GStreamer::XOverlay. * Interfaces.pm, MANIFEST, NEWS: Version 0.02. 2006-01-24 kaffeetisch * Makefile.PL: Require Glib 1.103 and gstreamer-plugins-base-0.10 >= 0.10.0. * gstinterfacesperl.h, maps, t/GstXOverlay, xs/GstXOverlay.xs: Add bindings for GstXOverlay. * t/GstPropertyProbe.t: Use alsamixer instead of osssink. Remove now unneeded SKIP block. * xs/GstPropertyProbe.xs: Remove manual gperl_set_isa call; Glib 1.103 handles that for us. 2005-10-06 kaffeetisch * NEWS, README: Version 0.01. 2005-09-28 kaffeetisch * .cvsignore, ChangeLog, Interfaces.pm, LICENSE, MANIFEST, MANIFEST.SKIP, Makefile.PL, NEWS, README, copyright.pod, gstinterfacesperl.h, maps, t/GstPropertyProbe.t, xs/.cvsignore, xs/GstInterfaces.xs, xs/GstPropertyProbe.xs: Initial import. GStreamer-Interfaces-0.06/maps0000644000175000017500000000021611203776027016256 0ustar torstentorstenGST_TYPE_PROPERTY_PROBE GstPropertyProbe GInterface GStreamer::PropertyProbe GST_TYPE_X_OVERLAY GstXOverlay GInterface GStreamer::XOverlay GStreamer-Interfaces-0.06/examples/0000755000175000017500000000000011351144526017207 5ustar torstentorstenGStreamer-Interfaces-0.06/examples/gst-video-player.pl0000644000175000017500000000571411343301606022741 0ustar torstentorsten#!/usr/bin/perl =head1 NAME gst-video-player.pl - Video player made in Perl =head1 SYNOPSIS gst-video-player.pl video Where I