r54733 - in /branches/upstream/libgstreamer-interfaces-perl/current: ./ lib/ lib/GStreamer/ t/ xs/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Wed Mar 24 16:35:59 UTC 2010
Author: gregoa
Date: Wed Mar 24 16:35:40 2010
New Revision: 54733
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54733
Log:
[svn-upgrade] Integrating new upstream version, libgstreamer-interfaces-perl (0.06)
Added:
branches/upstream/libgstreamer-interfaces-perl/current/lib/
branches/upstream/libgstreamer-interfaces-perl/current/lib/GStreamer/
branches/upstream/libgstreamer-interfaces-perl/current/lib/GStreamer/Interfaces.pm
branches/upstream/libgstreamer-interfaces-perl/current/perl-GStreamer-Interfaces.doap
Removed:
branches/upstream/libgstreamer-interfaces-perl/current/Interfaces.pm
branches/upstream/libgstreamer-interfaces-perl/current/MAINTAINERS
branches/upstream/libgstreamer-interfaces-perl/current/copyright.pod
Modified:
branches/upstream/libgstreamer-interfaces-perl/current/MANIFEST
branches/upstream/libgstreamer-interfaces-perl/current/META.yml
branches/upstream/libgstreamer-interfaces-perl/current/Makefile.PL
branches/upstream/libgstreamer-interfaces-perl/current/NEWS
branches/upstream/libgstreamer-interfaces-perl/current/gstinterfacesperl.h
branches/upstream/libgstreamer-interfaces-perl/current/t/GstPropertyProbe.t
branches/upstream/libgstreamer-interfaces-perl/current/t/GstXOverlay.t
branches/upstream/libgstreamer-interfaces-perl/current/xs/GstInterfaces.xs
branches/upstream/libgstreamer-interfaces-perl/current/xs/GstXOverlay.xs
Modified: branches/upstream/libgstreamer-interfaces-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgstreamer-interfaces-perl/current/MANIFEST?rev=54733&op=diff
==============================================================================
--- branches/upstream/libgstreamer-interfaces-perl/current/MANIFEST (original)
+++ branches/upstream/libgstreamer-interfaces-perl/current/MANIFEST Wed Mar 24 16:35:40 2010
@@ -1,15 +1,14 @@
ChangeLog.pre-git
-copyright.pod
examples/gst-video-player.pl
gstinterfacesperl.h
-Interfaces.pm
+lib/GStreamer/Interfaces.pm
LICENSE
-MAINTAINERS
Makefile.PL
MANIFEST This list of files
MANIFEST.SKIP
maps
NEWS
+perl-GStreamer-Interfaces.doap
README
t/GstPropertyProbe.t
t/GstXOverlay.t
Modified: branches/upstream/libgstreamer-interfaces-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgstreamer-interfaces-perl/current/META.yml?rev=54733&op=diff
==============================================================================
--- branches/upstream/libgstreamer-interfaces-perl/current/META.yml (original)
+++ branches/upstream/libgstreamer-interfaces-perl/current/META.yml Wed Mar 24 16:35:40 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: GStreamer-Interfaces
-version: 0.05
+version: 0.06
abstract: Perl interface to the GStreamer Interfaces library
author: []
license: unknown
Modified: branches/upstream/libgstreamer-interfaces-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgstreamer-interfaces-perl/current/Makefile.PL?rev=54733&op=diff
==============================================================================
--- branches/upstream/libgstreamer-interfaces-perl/current/Makefile.PL (original)
+++ branches/upstream/libgstreamer-interfaces-perl/current/Makefile.PL Wed Mar 24 16:35:40 2010
@@ -57,15 +57,22 @@
Glib::CodeGen->parse_maps('gstinterfacesperl');
Glib::CodeGen->write_boot(ignore => qr/^GStreamer::Interfaces$/);
+ExtUtils::PkgConfig->write_version_macros (
+ "build/gstinterfacesperl-version.h",
+ "gstreamer-plugins-base-0.10" => "GST_INTERFACES",
+);
+
my $gst = ExtUtils::Depends->new('GStreamer::Interfaces', 'GStreamer');
$gst->set_inc($pkgcfg{cflags});
$gst->set_libs($pkgcfg{libs} . ' -lgstinterfaces-0.10');
$gst->add_xs(<xs/*.xs>);
-$gst->add_pm('Interfaces.pm' => '$(INST_LIBDIR)/Interfaces.pm');
+$gst->add_pm('lib/GStreamer/Interfaces.pm' => '$(INST_LIBDIR)/Interfaces.pm');
$gst->add_typemaps(map {File::Spec->catfile(cwd(), $_)}
('build/gstinterfacesperl.typemap'));
-$gst->install(qw(gstinterfacesperl.h));
+$gst->install(qw(gstinterfacesperl.h
+ build/gstinterfacesperl-autogen.h
+ build/gstinterfacesperl-version.h));
$gst->save_config('build/IFiles.pm');
my $configure_requires =
@@ -73,8 +80,8 @@
WriteMakefile(
NAME => 'GStreamer::Interfaces',
- VERSION_FROM => 'Interfaces.pm',
- ABSTRACT_FROM => 'Interfaces.pm',
+ VERSION_FROM => 'lib/GStreamer/Interfaces.pm',
+ ABSTRACT_FROM => 'lib/GStreamer/Interfaces.pm',
PREREQ_PM => \%pre_reqs,
XSPROTOARG => '-noprototypes',
@@ -86,8 +93,5 @@
);
sub MY::postamble {
- return Glib::MakeHelper->postamble_clean ()
- . Glib::MakeHelper->postamble_docs_full (
- DEPENDS => $gst,
- COPYRIGHT_FROM => 'copyright.pod');
+ return Glib::MakeHelper->postamble_clean ();
}
Modified: branches/upstream/libgstreamer-interfaces-perl/current/NEWS
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgstreamer-interfaces-perl/current/NEWS?rev=54733&op=diff
==============================================================================
--- branches/upstream/libgstreamer-interfaces-perl/current/NEWS (original)
+++ branches/upstream/libgstreamer-interfaces-perl/current/NEWS Wed Mar 24 16:35:40 2010
@@ -1,3 +1,11 @@
+Overview of changes in GStreamer::Interfaces 0.06
+=================================================
+
+* Add GStreamer::XOverlay->handle_events. It is only available for
+ gstinterfaces >= 0.10.12, so also add GStreamer::Interfaces->CHECK_VERSION to
+ make version checks possible.
+* Fix test failures.
+
Overview of changes in GStreamer::Interfaces 0.05
=================================================
Modified: branches/upstream/libgstreamer-interfaces-perl/current/gstinterfacesperl.h
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgstreamer-interfaces-perl/current/gstinterfacesperl.h?rev=54733&op=diff
==============================================================================
--- branches/upstream/libgstreamer-interfaces-perl/current/gstinterfacesperl.h (original)
+++ branches/upstream/libgstreamer-interfaces-perl/current/gstinterfacesperl.h Wed Mar 24 16:35:40 2010
@@ -26,6 +26,7 @@
#include <gst/interfaces/propertyprobe.h>
#include <gst/interfaces/xoverlay.h>
+#include "gstinterfacesperl-version.h"
#include "gstinterfacesperl-autogen.h"
#endif /* _GSTINTERFACES2PERL_H_ */
Added: branches/upstream/libgstreamer-interfaces-perl/current/lib/GStreamer/Interfaces.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgstreamer-interfaces-perl/current/lib/GStreamer/Interfaces.pm?rev=54733&op=file
==============================================================================
--- branches/upstream/libgstreamer-interfaces-perl/current/lib/GStreamer/Interfaces.pm (added)
+++ branches/upstream/libgstreamer-interfaces-perl/current/lib/GStreamer/Interfaces.pm Wed Mar 24 16:35:40 2010
@@ -1,0 +1,110 @@
+package GStreamer::Interfaces;
+
+use strict;
+use warnings;
+
+use GStreamer;
+
+require DynaLoader;
+
+our @ISA = qw(DynaLoader);
+
+our $VERSION = '0.06';
+
+sub dl_load_flags { $^O eq 'darwin' ? 0x00 : 0x01 }
+
+GStreamer::Interfaces -> bootstrap($VERSION);
+
+1;
+
+# --------------------------------------------------------------------------- #
+
+__END__
+
+=head1 NAME
+
+GStreamer::Interfaces - Perl interface to the GStreamer Interfaces library
+
+=head1 SYNOPSIS
+
+ use GStreamer::Interfaces;
+
+ # GStreamer::PropertyProbe
+
+ my $sink = GStreamer::ElementFactory -> make(alsasink => "sink");
+ my $pspec = $sink -> get_probe_property("device");
+
+ if ($sink -> needs_probe($pspec)) {
+ $sink -> probe_property($pspec);
+ }
+
+ my @devices = $sink -> get_probe_values($pspec);
+
+ # GStreamer::XOverlay
+
+ my $overlay = GStreamer::ElementFactory -> make(xvimagesink => "overlay");
+ $overlay -> set_xwindow_id($xid);
+
+=head1 ABSTRACT
+
+GStreamer::Interfaces provides access to some of the interfaces in the
+GStreamer Interfaces library. Currently, that's L<GStreamer::PropertyProbe>
+and L<GStreamer::XOverlay>.
+
+=head1 INTERFACES
+
+=head2 GStreamer::PropertyProbe
+
+=over
+
+=item pspecs = $element->get_probe_properties
+
+=item pspec = $element->get_probe_property (name)
+
+=item bool = $element->needs_probe (pspec)
+
+=item $element->probe_property (pspec)
+
+=item values = $element->get_probe_values (pspec)
+
+=item values = $element->probe_get_probe_values (pspec)
+
+=item bool = $element->needs_probe_name (name)
+
+=item $element->probe_property_name (name)
+
+=item values = $element->get_probe_values_name (name)
+
+=item values = $element->probe_get_probe_values_name (name)
+
+=back
+
+=head2 GStreamer::XOverlay
+
+=over
+
+=item $overlay->set_xwindow_id (xwindow_id)
+
+=item $overlay->expose
+
+=item $overlay->got_xwindow_id (xwindow_id)
+
+=item $overlay->prepare_xwindow_id
+
+=item $overlay->handle_events (bool) (since 0.10.12)
+
+=back
+
+=head1 AUTHOR
+
+=over
+
+=item Torsten Schoenfeld E<lt>kaffeetisch at gmx dot deE<gt>
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright (C) 2005-2010 by the gtk2-perl team
+
+=cut
Added: branches/upstream/libgstreamer-interfaces-perl/current/perl-GStreamer-Interfaces.doap
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgstreamer-interfaces-perl/current/perl-GStreamer-Interfaces.doap?rev=54733&op=file
==============================================================================
--- branches/upstream/libgstreamer-interfaces-perl/current/perl-GStreamer-Interfaces.doap (added)
+++ branches/upstream/libgstreamer-interfaces-perl/current/perl-GStreamer-Interfaces.doap Wed Mar 24 16:35:40 2010
@@ -1,0 +1,20 @@
+<Project xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+ xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#"
+ xmlns:foaf="http://xmlns.com/foaf/0.1/"
+ xmlns:gnome="http://api.gnome.org/doap-extensions#"
+ xmlns="http://usefulinc.com/ns/doap#">
+
+ <name xml:lang="en">GStreamer::Interfaces</name>
+ <shortdesc xml:lang="en">Perl interface to the GStreamer Interfaces library</shortdesc>
+ <homepage rdf:resource="http://gtk2-perl.sourceforge.net/" />
+ <mailing-list rdf:resource="http://mail.gnome.org/mailman/listinfo/gtk-perl-list" />
+
+ <maintainer>
+ <foaf:Person>
+ <foaf:name>Torsten Schönfeld</foaf:name>
+ <foaf:mbox rdf:resource="mailto:tsch at src.gnome.org" />
+ <gnome:userid>tsch</gnome:userid>
+ </foaf:Person>
+ </maintainer>
+
+</Project>
Modified: branches/upstream/libgstreamer-interfaces-perl/current/t/GstPropertyProbe.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgstreamer-interfaces-perl/current/t/GstPropertyProbe.t?rev=54733&op=diff
==============================================================================
--- branches/upstream/libgstreamer-interfaces-perl/current/t/GstPropertyProbe.t (original)
+++ branches/upstream/libgstreamer-interfaces-perl/current/t/GstPropertyProbe.t Wed Mar 24 16:35:40 2010
@@ -11,20 +11,19 @@
my $property = "device";
my $element = GStreamer::ElementFactory -> make($plugin => "element");
-isa_ok($element, "GStreamer::PropertyProbe");
+SKIP: {
+ skip 'could not find the alsamixer plugin', 5
+ unless defined $element;
+ isa_ok($element, "GStreamer::PropertyProbe");
-my @pspecs = $element -> get_probe_properties();
-SKIP: {
- skip 'got no probe properties', 8
+ 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: {
+ 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));
Modified: branches/upstream/libgstreamer-interfaces-perl/current/t/GstXOverlay.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgstreamer-interfaces-perl/current/t/GstXOverlay.t?rev=54733&op=diff
==============================================================================
--- branches/upstream/libgstreamer-interfaces-perl/current/t/GstXOverlay.t (original)
+++ branches/upstream/libgstreamer-interfaces-perl/current/t/GstXOverlay.t Wed Mar 24 16:35:40 2010
@@ -22,5 +22,9 @@
$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);
}
Modified: branches/upstream/libgstreamer-interfaces-perl/current/xs/GstInterfaces.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgstreamer-interfaces-perl/current/xs/GstInterfaces.xs?rev=54733&op=diff
==============================================================================
--- branches/upstream/libgstreamer-interfaces-perl/current/xs/GstInterfaces.xs (original)
+++ branches/upstream/libgstreamer-interfaces-perl/current/xs/GstInterfaces.xs Wed Mar 24 16:35:40 2010
@@ -25,3 +25,15 @@
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
Modified: branches/upstream/libgstreamer-interfaces-perl/current/xs/GstXOverlay.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgstreamer-interfaces-perl/current/xs/GstXOverlay.xs?rev=54733&op=diff
==============================================================================
--- branches/upstream/libgstreamer-interfaces-perl/current/xs/GstXOverlay.xs (original)
+++ branches/upstream/libgstreamer-interfaces-perl/current/xs/GstXOverlay.xs Wed Mar 24 16:35:40 2010
@@ -29,3 +29,9 @@
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
More information about the Pkg-perl-cvs-commits
mailing list