r31068 - in /trunk/libgstreamer-perl: ChangeLog GStreamer.pm MANIFEST META.yml Makefile.PL NEWS debian/changelog lib/ t/GstClock.t t/GstIndex.t t/GstPad.t xs/GstFormat.xs xs/GstIndex.xs xs/GstIterator.xs xs/GstPad.xs
antonio-guest at users.alioth.debian.org
antonio-guest at users.alioth.debian.org
Mon Feb 23 20:59:41 UTC 2009
Author: antonio-guest
Date: Mon Feb 23 20:59:26 2009
New Revision: 31068
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31068
Log:
upgrade to the new version
Added:
trunk/libgstreamer-perl/lib/
- copied from r31067, branches/upstream/libgstreamer-perl/current/lib/
Removed:
trunk/libgstreamer-perl/GStreamer.pm
Modified:
trunk/libgstreamer-perl/ChangeLog
trunk/libgstreamer-perl/MANIFEST
trunk/libgstreamer-perl/META.yml
trunk/libgstreamer-perl/Makefile.PL
trunk/libgstreamer-perl/NEWS
trunk/libgstreamer-perl/debian/changelog
trunk/libgstreamer-perl/t/GstClock.t
trunk/libgstreamer-perl/t/GstIndex.t
trunk/libgstreamer-perl/t/GstPad.t
trunk/libgstreamer-perl/xs/GstFormat.xs
trunk/libgstreamer-perl/xs/GstIndex.xs
trunk/libgstreamer-perl/xs/GstIterator.xs
trunk/libgstreamer-perl/xs/GstPad.xs
Modified: trunk/libgstreamer-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-perl/ChangeLog?rev=31068&op=diff
==============================================================================
--- trunk/libgstreamer-perl/ChangeLog (original)
+++ trunk/libgstreamer-perl/ChangeLog Mon Feb 23 20:59:26 2009
@@ -1,3 +1,50 @@
+2009-02-22 Torsten Schoenfeld <kaffeetisch at gmx.de>
+
+ * lib/GStreamer.pm
+ * NEWS: Release 0.15.
+
+2009-02-22 Torsten Schoenfeld <kaffeetisch at gmx.de>
+
+ * Makefile.PL
+ * MANIFEST
+ * GStreamer.pm (removed)
+ * lib/GStreamer.pm (added): Move GStreamer.pm into the new lib
+ directory.
+
+2009-02-22 Torsten Schoenfeld <kaffeetisch at gmx.de>
+
+ * t/GstPad.t
+ * xs/GstPad.xs: Wrap gst_pad_is_blocking, gst_pad_peer_query,
+ gst_pad_iterate_internal_links, and
+ gst_pad_iterate_internal_links_default.
+
+2009-02-22 Torsten Schoenfeld <kaffeetisch at gmx.de>
+
+ * xs/GstIterator.xs (newSVGstIterator): Convert NULL iterators to
+ undef.
+
+2009-02-21 Torsten Schoenfeld <kaffeetisch at gmx.de>
+
+ * xs/GstFormat.xs (SvGstFormat): Throw an exception if
+ gst_format_get_by_nick failed to convert the string to a format.
+ This means that unregistered format strings now cause errors
+ instead of being silently turned into GST_FORMAT_UNDEFINED.
+
+2009-02-21 Torsten Schoenfeld <kaffeetisch at gmx.de>
+
+ * t/GstClock.t: Make the clock resolution and master clock tests
+ more robust.
+
+2009-02-21 Torsten Schoenfeld <kaffeetisch at gmx.de>
+
+ * t/GstIndex.t: Make the GstIndexEntry tests more robust and correct.
+
+2009-02-21 Torsten Schoenfeld <kaffeetisch at gmx.de>
+
+ * xs/GstIndex.xs: We don't own the GstIndexEntry objects returned
+ by the various GstIndex methods, so don't use the _own typemap
+ variant.
+
2009-01-18 Torsten Schoenfeld <kaffeetisch at gmx.de>
* GStreamer.pm
Modified: trunk/libgstreamer-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-perl/MANIFEST?rev=31068&op=diff
==============================================================================
--- trunk/libgstreamer-perl/MANIFEST (original)
+++ trunk/libgstreamer-perl/MANIFEST Mon Feb 23 20:59:26 2009
@@ -24,7 +24,7 @@
examples/tagger.pl
gst.typemap
gst2perl.h
-GStreamer.pm
+lib/GStreamer.pm
LICENSE
MAINTAINERS
Makefile.PL
Modified: trunk/libgstreamer-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-perl/META.yml?rev=31068&op=diff
==============================================================================
--- trunk/libgstreamer-perl/META.yml (original)
+++ trunk/libgstreamer-perl/META.yml Mon Feb 23 20:59:26 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: GStreamer
-version: 0.14
+version: 0.15
abstract: Perl interface to the GStreamer library
author: []
license: unknown
Modified: trunk/libgstreamer-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-perl/Makefile.PL?rev=31068&op=diff
==============================================================================
--- trunk/libgstreamer-perl/Makefile.PL (original)
+++ trunk/libgstreamer-perl/Makefile.PL Mon Feb 23 20:59:26 2009
@@ -6,7 +6,7 @@
use ExtUtils::MakeMaker;
use Cwd qw(cwd);
-# $Id: Makefile.PL 97 2008-12-16 19:19:00Z tsch $
+# $Id: Makefile.PL 113 2009-02-22 12:13:36Z tsch $
our %build_reqs = (
'perl-ExtUtils-Depends' => '0.205',
@@ -50,7 +50,7 @@
our @xs_files = <xs/*.xs>;
our %pod_files = (
- 'GStreamer.pm' => '$(INST_MAN3DIR)/GStreamer.$(MAN3EXT)',
+ 'lib/GStreamer.pm' => '$(INST_MAN3DIR)/GStreamer.$(MAN3EXT)',
Glib::MakeHelper->do_pod_files (@xs_files),
);
@@ -131,7 +131,7 @@
$gst->set_inc($pkgcfg{cflags} . ' -I./build ');
$gst->set_libs($pkgcfg{libs});
$gst->add_xs(@xs_files);
-$gst->add_pm('GStreamer.pm' => '$(INST_LIBDIR)/GStreamer.pm');
+$gst->add_pm('lib/GStreamer.pm' => '$(INST_LIBDIR)/GStreamer.pm');
$gst->add_typemaps(map {File::Spec->catfile(cwd(), $_)}
('gst.typemap', 'build/gst2perl.typemap'));
@@ -143,8 +143,8 @@
WriteMakefile(
NAME => 'GStreamer',
- VERSION_FROM => 'GStreamer.pm',
- ABSTRACT_FROM => 'GStreamer.pm',
+ VERSION_FROM => 'lib/GStreamer.pm',
+ ABSTRACT_FROM => 'lib/GStreamer.pm',
PREREQ_PM => \%pre_reqs,
XSPROTOARG => '-noprototypes',
MAN3PODS => \%pod_files,
Modified: trunk/libgstreamer-perl/NEWS
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-perl/NEWS?rev=31068&op=diff
==============================================================================
--- trunk/libgstreamer-perl/NEWS (original)
+++ trunk/libgstreamer-perl/NEWS Mon Feb 23 20:59:26 2009
@@ -1,3 +1,14 @@
+Overview of changes in GStreamer 0.15
+=====================================
+
+* Wrap gst_pad_is_blocking, gst_pad_peer_query, gst_pad_iterate_internal_links,
+ and gst_pad_iterate_internal_links_default.
+* Don't assume ownership of GstIndexEntry objects returned by the various
+ GstIndex methods.
+* Throw an exception if unknown GstFormat values are encountered.
+* Convert NULL GstIterator objects to undef.
+* Fix a few test failures.
+
Overview of changes in GStreamer 0.14
=====================================
Modified: trunk/libgstreamer-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-perl/debian/changelog?rev=31068&op=diff
==============================================================================
--- trunk/libgstreamer-perl/debian/changelog (original)
+++ trunk/libgstreamer-perl/debian/changelog Mon Feb 23 20:59:26 2009
@@ -1,3 +1,9 @@
+libgstreamer-perl (0.15-1) UNRELEASED; urgency=low
+
+ * (NOT RELEASED YET) New upstream release
+
+ -- Antonio Radici <antonio at dyne.org> Mon, 23 Feb 2009 20:58:38 +0000
+
libgstreamer-perl (0.14-1) unstable; urgency=low
* New maintainer (Closes: #456924)
Modified: trunk/libgstreamer-perl/t/GstClock.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-perl/t/GstClock.t?rev=31068&op=diff
==============================================================================
--- trunk/libgstreamer-perl/t/GstClock.t (original)
+++ trunk/libgstreamer-perl/t/GstClock.t Mon Feb 23 20:59:26 2009
@@ -3,7 +3,7 @@
use warnings;
use Test::More tests => 20;
-# $Id: GstClock.t 103 2009-01-18 12:53:21Z tsch $
+# $Id: GstClock.t 108 2009-02-21 15:39:26Z tsch $
use Glib qw(TRUE FALSE);
use GStreamer qw(-init GST_SECOND);
@@ -19,8 +19,8 @@
skip 'failed to find a clock', 20
unless defined $clock;
- is($clock -> set_resolution(1000), 0);
- is($clock -> get_resolution(), 1000);
+ ok(defined $clock -> set_resolution(1000));
+ ok(defined $clock -> get_resolution());
ok($clock -> get_time() >= 0);
@@ -28,14 +28,18 @@
is_deeply([$clock -> get_calibration()], [0, 2, 3, 4]);
SKIP: {
- skip "master clock tests", 2
- unless undef; # FIXME
+ my $master_element = GStreamer::ElementFactory -> make("alsamixer", "sink");
- my $master_element = GStreamer::ElementFactory -> make("alsamixer", "sink");
- my $master = $element -> provide_clock();
+ skip "master clock tests: couldn't find master element", 2
+ unless defined $master_element;
- ok($clock -> set_master($master));
- is($clock -> get_master(), $master);
+ my $master_clock = $master_element -> provide_clock();
+
+ skip "master clock tests: couldn't find master clock", 2
+ unless defined $master_clock;
+
+ ok($clock -> set_master($master_clock));
+ is($clock -> get_master(), $master_clock);
}
my ($result, $r) = $clock -> add_observation(23, 42);
Modified: trunk/libgstreamer-perl/t/GstIndex.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-perl/t/GstIndex.t?rev=31068&op=diff
==============================================================================
--- trunk/libgstreamer-perl/t/GstIndex.t (original)
+++ trunk/libgstreamer-perl/t/GstIndex.t Mon Feb 23 20:59:26 2009
@@ -3,7 +3,7 @@
use warnings;
use Test::More tests => 15;
-# $Id: GstIndex.t 75 2008-03-23 16:49:31Z tsch $
+# $Id: GstIndex.t 107 2009-02-21 15:38:37Z tsch $
use GStreamer -init;
@@ -23,9 +23,10 @@
my $object = GStreamer::ElementFactory -> make("alsasink", "sink");
SKIP: {
- skip 'failed to create an alsasink', 5
+ skip 'index entry tests: failed to create an alsasink', 10
unless defined $object;
+ # Called by get_writer_id()
$index -> set_resolver(sub {
my ($index, $element, $data) = @_;
@@ -37,22 +38,29 @@
}, "blub");
my $id = $index -> get_writer_id($object);
- is($id, 1);
+ skip 'index entry tests: failed to obtain a writer id', 7
+ unless defined $id;
- # Seems to be unimplemented.
- my $entry = $index -> add_object(25, "urgs", $object);
- is($entry, undef);
+ my $entry = $index -> add_format($id, "bytes");
+ isa_ok($entry, "GStreamer::IndexEntry");
+
+ $entry = $index -> add_association($id, "key-unit", bytes => 12, time => 13);
+ isa_ok($entry, "GStreamer::IndexEntry");
+ is($entry -> assoc_map("bytes"), 12);
+ is($entry -> assoc_map("time"), 13);
+
+ $entry = $index -> add_object($id, "urgs", $object);
+ TODO: {
+ local $TODO = 'add_object always returns undef';
+ isa_ok($entry, "GStreamer::IndexEntry");
+ }
+
+ $entry = $index -> add_id($id, "sgru");
+ isa_ok($entry, "GStreamer::IndexEntry");
+
+ $entry = $index -> get_assoc_entry($id, "exact", "key-unit", bytes => 12);
+ TODO: {
+ local $TODO = 'get_assoc_entry always returns undef';
+ isa_ok($entry, "GStreamer::IndexEntry");
+ }
}
-
-my $entry = $index -> add_format(23, "bytes");
-isa_ok($entry, "GStreamer::IndexEntry");
-
-$entry = $index -> add_association(24, "key-unit", bytes => 12, bytes => 13);
-isa_ok($entry, "GStreamer::IndexEntry");
-is($entry -> assoc_map("bytes"), 12);
-
-$entry = $index -> add_id(26, "sgru");
-isa_ok($entry, "GStreamer::IndexEntry");
-
-$entry = $index -> get_assoc_entry(24, "exact", "key-unit", bytes => 12);
-is($entry, undef);
Modified: trunk/libgstreamer-perl/t/GstPad.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-perl/t/GstPad.t?rev=31068&op=diff
==============================================================================
--- trunk/libgstreamer-perl/t/GstPad.t (original)
+++ trunk/libgstreamer-perl/t/GstPad.t Mon Feb 23 20:59:26 2009
@@ -1,9 +1,9 @@
#!/usr/bin/perl
use strict;
use warnings;
-use Test::More tests => 39;
+use Test::More tests => 43;
-# $Id: GstPad.t 78 2008-05-04 12:16:00Z tsch $
+# $Id: GstPad.t 111 2009-02-22 12:02:46Z tsch $
use Glib qw(TRUE FALSE);
use GStreamer -init;
@@ -101,3 +101,25 @@
my $query = GStreamer::Query::Position -> new("time");
ok(!$pad -> query($query));
ok(!$pad -> query_default($query));
+
+SKIP: {
+ skip 'new 0.10.11 stuff', 1
+ unless GStreamer->CHECK_VERSION(0, 10, 11);
+
+ ok(defined $pad -> is_blocking());
+}
+
+SKIP: {
+ skip 'new 0.10.15 stuff', 1
+ unless GStreamer->CHECK_VERSION(0, 10, 15);
+
+ ok(defined $pad -> peer_query($query));
+}
+
+SKIP: {
+ skip 'new 0.10.21 stuff', 2
+ unless GStreamer->CHECK_VERSION(0, 10, 21);
+
+ is($pad -> iterate_internal_links(), undef);
+ is($pad -> iterate_internal_links_default(), undef);
+}
Modified: trunk/libgstreamer-perl/xs/GstFormat.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-perl/xs/GstFormat.xs?rev=31068&op=diff
==============================================================================
--- trunk/libgstreamer-perl/xs/GstFormat.xs (original)
+++ trunk/libgstreamer-perl/xs/GstFormat.xs Mon Feb 23 20:59:26 2009
@@ -15,7 +15,7 @@
* 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: GstFormat.xs 29 2005-12-03 00:28:13Z tsch $
+ * $Id: GstFormat.xs 109 2009-02-21 15:41:24Z tsch $
*/
#include "gst2perl.h"
@@ -44,7 +44,12 @@
if (gperl_try_convert_enum (GST_TYPE_FORMAT, sv, (gint *) &format))
return format;
- return gst_format_get_by_nick (SvPV_nolen (sv));
+ format = gst_format_get_by_nick (SvPV_nolen (sv));
+ if (GST_FORMAT_UNDEFINED == format)
+ croak ("`%s' is not a valid GstFormat value",
+ gperl_format_variable_for_output (sv));
+
+ return format;
}
/* ------------------------------------------------------------------------- */
Modified: trunk/libgstreamer-perl/xs/GstIndex.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-perl/xs/GstIndex.xs?rev=31068&op=diff
==============================================================================
--- trunk/libgstreamer-perl/xs/GstIndex.xs (original)
+++ trunk/libgstreamer-perl/xs/GstIndex.xs Mon Feb 23 20:59:26 2009
@@ -15,7 +15,7 @@
* 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: GstIndex.xs 88 2008-11-26 21:17:36Z tsch $
+ * $Id: GstIndex.xs 106 2009-02-21 15:37:57Z tsch $
*/
#include "gst2perl.h"
@@ -188,10 +188,10 @@
OUTPUT:
RETVAL
-GstIndexEntry_own * gst_index_add_format (GstIndex *index, gint id, GstFormat format);
+GstIndexEntry_ornull * gst_index_add_format (GstIndex *index, gint id, GstFormat format);
# GstIndexEntry * gst_index_add_association (GstIndex *index, gint id, GstAssocFlags flags, GstFormat format, gint64 value, ...);
-GstIndexEntry_own *
+GstIndexEntry_ornull *
gst_index_add_association (index, id, flags, format, value, ...)
GstIndex *index
gint id
@@ -226,7 +226,7 @@
RETVAL
# GstIndexEntry * gst_index_add_object (GstIndex *index, gint id, gchar *key, GType type, gpointer object);
-GstIndexEntry_own *
+GstIndexEntry_ornull *
gst_index_add_object (index, id, key, object)
GstIndex *index
gint id
@@ -242,9 +242,9 @@
OUTPUT:
RETVAL
-GstIndexEntry_own * gst_index_add_id (GstIndex *index, gint id, gchar *description);
-
-GstIndexEntry_own * gst_index_get_assoc_entry (GstIndex *index, gint id, GstIndexLookupMethod method, GstAssocFlags flags, GstFormat format, gint64 value);
+GstIndexEntry_ornull * gst_index_add_id (GstIndex *index, gint id, gchar *description);
+
+GstIndexEntry_ornull * gst_index_get_assoc_entry (GstIndex *index, gint id, GstIndexLookupMethod method, GstAssocFlags flags, GstFormat format, gint64 value);
# FIXME?
# GstIndexEntry * gst_index_get_assoc_entry_full (GstIndex *index, gint id, GstIndexLookupMethod method, GstAssocFlags flags, GstFormat format, gint64 value, GCompareDataFunc func, gpointer user_data);
Modified: trunk/libgstreamer-perl/xs/GstIterator.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-perl/xs/GstIterator.xs?rev=31068&op=diff
==============================================================================
--- trunk/libgstreamer-perl/xs/GstIterator.xs (original)
+++ trunk/libgstreamer-perl/xs/GstIterator.xs Mon Feb 23 20:59:26 2009
@@ -15,7 +15,7 @@
* 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: GstIterator.xs 59 2006-12-02 16:37:31Z tsch $
+ * $Id: GstIterator.xs 110 2009-02-22 11:51:46Z tsch $
*/
#include "gst2perl.h"
@@ -28,6 +28,9 @@
AV *av, *dummy;
SV *tie, *ref;
HV *stash;
+
+ if (!iter)
+ return &PL_sv_undef;
av = newAV ();
dummy = newAV ();
Modified: trunk/libgstreamer-perl/xs/GstPad.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-perl/xs/GstPad.xs?rev=31068&op=diff
==============================================================================
--- trunk/libgstreamer-perl/xs/GstPad.xs (original)
+++ trunk/libgstreamer-perl/xs/GstPad.xs Mon Feb 23 20:59:26 2009
@@ -15,7 +15,7 @@
* 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: GstPad.xs 74 2008-03-23 16:49:05Z tsch $
+ * $Id: GstPad.xs 111 2009-02-22 12:02:46Z tsch $
*/
#include "gst2perl.h"
@@ -241,3 +241,23 @@
# FIXME?
# gboolean gst_pad_dispatcher (GstPad *pad, GstPadDispatcherFunction dispatch, gpointer data);
+
+#if GST_CHECK_VERSION (0, 10, 11)
+
+gboolean gst_pad_is_blocking (GstPad *pad);
+
+#endif
+
+#if GST_CHECK_VERSION (0, 10, 15)
+
+gboolean gst_pad_peer_query (GstPad *pad, GstQuery *query);
+
+#endif
+
+#if GST_CHECK_VERSION (0, 10, 21)
+
+GstIterator * gst_pad_iterate_internal_links (GstPad *pad);
+
+GstIterator * gst_pad_iterate_internal_links_default (GstPad *pad);
+
+#endif
More information about the Pkg-perl-cvs-commits
mailing list