r14073 - in /trunk/libogg-vorbis-decoder-perl: Changes Decoder.pm Decoder.xs MANIFEST META.yml Makefile.PL README data/ debian/changelog inc/ t/ test.ogg test.pl
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sun Feb 3 00:14:06 UTC 2008
Author: gregoa-guest
Date: Sun Feb 3 00:14:06 2008
New Revision: 14073
URL: http://svn.debian.org/wsvn/?sc=1&rev=14073
Log:
New upstream release.
Added:
trunk/libogg-vorbis-decoder-perl/data/
- copied from r14072, branches/upstream/libogg-vorbis-decoder-perl/current/data/
trunk/libogg-vorbis-decoder-perl/inc/
- copied from r14072, branches/upstream/libogg-vorbis-decoder-perl/current/inc/
trunk/libogg-vorbis-decoder-perl/t/
- copied from r14072, branches/upstream/libogg-vorbis-decoder-perl/current/t/
Removed:
trunk/libogg-vorbis-decoder-perl/test.ogg
trunk/libogg-vorbis-decoder-perl/test.pl
Modified:
trunk/libogg-vorbis-decoder-perl/Changes
trunk/libogg-vorbis-decoder-perl/Decoder.pm
trunk/libogg-vorbis-decoder-perl/Decoder.xs
trunk/libogg-vorbis-decoder-perl/MANIFEST
trunk/libogg-vorbis-decoder-perl/META.yml
trunk/libogg-vorbis-decoder-perl/Makefile.PL
trunk/libogg-vorbis-decoder-perl/README
trunk/libogg-vorbis-decoder-perl/debian/changelog
Modified: trunk/libogg-vorbis-decoder-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libogg-vorbis-decoder-perl/Changes?rev=14073&op=diff
==============================================================================
--- trunk/libogg-vorbis-decoder-perl/Changes (original)
+++ trunk/libogg-vorbis-decoder-perl/Changes Sun Feb 3 00:14:06 2008
@@ -1,8 +1,21 @@
Revision history for Perl extension Ogg::Vorbis::Decoder.
-0.01 Fri Jan 3 17:33:52 2003
- - original version; created by h2xs 1.21 with options
- -XA -n Ogg::Vorbis::Decoder
+0.7 Fri Jan 5 20:49:52 PST 2007
+
+ - Updated tests & POD coverage.
+ - Use Module::Install
+
+0.6 Tue Apr 13 23:27:53 PDT 2004
+
+ - Changes to compile under Win32 & MSVC++ 6.0
+ - Check for IO::Socket subclasses correctly.
+
+0.5 Wed Jan 21 17:56:23 PST 2004
+
+ - New maintainer, Dan Sully
+ - Convert to pure XS - no more Inline::C
+ - Allow open to take a IO::Handle subclass, or an existing FH* glob.
+ - Add comment/info functions to handle metadata from a stream.
0.02 Sun Jan 5 08:41:45 CST 2003
- Fixed bugs in seek functions.
@@ -11,14 +24,6 @@
- Fixed typo in time_seek() which had it calling raw internally.
- Fixed =~/!~ typo in time_seek() which caused it to always fail.
-0.5 Wed Jan 21 17:56:23 PST 2004
-
- - New maintainer, Dan Sully
- - Convert to pure XS - no more Inline::C
- - Allow open to take a IO::Handle subclass, or an existing FH* glob.
- - Add comment/info functions to handle metadata from a stream.
-
-0.6 Tue Apr 13 23:27:53 PDT 2004
-
- - Changes to compile under Win32 & MSVC++ 6.0
- - Check for IO::Socket subclasses correctly.
+0.01 Fri Jan 3 17:33:52 2003
+ - original version; created by h2xs 1.21 with options
+ -XA -n Ogg::Vorbis::Decoder
Modified: trunk/libogg-vorbis-decoder-perl/Decoder.pm
URL: http://svn.debian.org/wsvn/trunk/libogg-vorbis-decoder-perl/Decoder.pm?rev=14073&op=diff
==============================================================================
--- trunk/libogg-vorbis-decoder-perl/Decoder.pm (original)
+++ trunk/libogg-vorbis-decoder-perl/Decoder.pm Sun Feb 3 00:14:06 2008
@@ -3,7 +3,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = '0.6';
+$VERSION = '0.7';
BOOT_XS: {
# If I inherit DynaLoader then I inherit AutoLoader
@@ -19,38 +19,6 @@
sub current_bitstream {
my $self = shift;
return $self->{'BSTREAM'};
-}
-
-sub info {
- my ($self, $key) = @_;
-
- $self->_read_info() unless $self->{'INFO'};
-
- return $self->{'INFO'}->{$key} if $key;
- return $self->{'INFO'};
-}
-
-sub comment_tags {
- my $self = shift;
-
- $self->_read_comments() unless $self->{'COMMENTS'};
-
- return map { uc } keys %{$self->{'COMMENTS'}};
-}
-
-sub comment {
- my $self = shift;
- my $key = shift || return undef;
-
- $self->_read_comments() unless $self->{'COMMENTS'};
-
- my $result = $self->{'COMMENTS'}->{uc $key};
-
- if (scalar @$result > 1) {
- return @$result;
- } else {
- return $result->[0];
- }
}
1;
@@ -101,18 +69,24 @@
=head1 INSTANCE METHODS
-=head2 C<read ($buffer, [%params])>
+=head2 C<read ($buffer, [$size, $word, $signed])>
Reads PCM data from the Vorbis stream into C<$buffer>. Returns the
number of bytes read, 0 when it reaches the end of the stream, or a
-value less than 0 on error. The optional params hash can contain the
-following keys (with corresponding default values):
-C<{ buffsize => 4096, bigendianp => 0, word => 2, signed => 1,
-bitstream => 0 }>. Consult the Vorbisfile API
-(http://www.xiph.org/ogg/vorbis/doc/vorbisfile/reference.html) for an
-explanation of the various values. Note that OVD maintains the
-bitstream value internally. Providing a new bitstream to C<read> will
-automatically update this value within the object.
+value less than 0 on error.
+
+The optional parameters include (with corresponding default values):
+
+C<size = 4096>
+C<word = 2>
+C<signed = 1>
+
+Consult the Vorbisfile API (http://www.xiph.org/ogg/vorbis/doc/vorbisfile/reference.html)
+for an explanation of the various values.
+
+=head2 C<sysread ($buffer, [$size, $word, $signed])>
+
+An alias for C<read>
=head2 C<raw_seek ($pos)>
@@ -133,7 +107,7 @@
set to true, will cause the method to seek to the closest full page
preceding the specified location. Returns 0 on success.
-=head2 C<get_current_bitstream ()>
+=head2 C<current_bitstream ()>
Returns the current logical bitstream of the decoder. This matches the
bitstream paramer optionally passed to C<read>. Useful for saving a
@@ -204,7 +178,7 @@
=head1 COPYRIGHT
-Copyright (c) 2004, Dan Sully. All Rights Reserved.
+Copyright (c) 2004-2007, Dan Sully. All Rights Reserved.
Copyright (c) 2003, Dan Pemstein. All Rights Reserved.
Modified: trunk/libogg-vorbis-decoder-perl/Decoder.xs
URL: http://svn.debian.org/wsvn/trunk/libogg-vorbis-decoder-perl/Decoder.xs?rev=14073&op=diff
==============================================================================
--- trunk/libogg-vorbis-decoder-perl/Decoder.xs (original)
+++ trunk/libogg-vorbis-decoder-perl/Decoder.xs Sun Feb 3 00:14:06 2008
@@ -1,4 +1,4 @@
-/* $Id: Decoder.xs,v 1.3 2004/04/14 06:37:30 daniel Exp $ */
+/* $Id: Decoder.xs 348 2005-07-14 02:32:46Z dsully $ */
#ifdef __cplusplus
"C" {
@@ -275,10 +275,19 @@
char *readBuffer = alloca(nbytes);
+ /* for replay gain */
+ /* not yet.. */
+ int use_rg = 0;
+ float ***pcm;
+
HV *self = (HV *) SvRV(obj);
OggVorbis_File *vf = (OggVorbis_File *) SvIV(*(my_hv_fetch(self, "VFILE")));
if (!vf) XSRETURN_UNDEF;
+
+ if (ix) {
+ /* empty */
+ }
/* See http://www.xiph.org/ogg/vorbis/doc/vorbisfile/ov_read.html for
* a description of the bitstream parameter. This allows streaming
@@ -293,7 +302,18 @@
* read until we hit the requested number of bytes */
while (nbytes > 0) {
- bytes = ov_read(vf, readBuffer, nbytes, endian, word, sgned, &cur_bitstream);
+ if (use_rg) {
+
+ bytes = ov_read_float(vf, pcm, nbytes, &cur_bitstream);
+
+ if (bytes > 0) {
+ /* bytes = vorbis_process_replaygain(pcm, bytes, channels, readBuffer, rg_scale); */
+ }
+
+ } else {
+
+ bytes = ov_read(vf, readBuffer, nbytes, endian, word, sgned, &cur_bitstream);
+ }
if (bytes && read_comments != 0) {
__read_comments(self, vf);
@@ -382,14 +402,16 @@
# description of the functions that duplicate the vorbisfile API.
int
-raw_seek (obj, pos)
+raw_seek (obj, pos, whence = 0)
SV* obj;
long pos;
+ int whence;
CODE:
HV *self = (HV *) SvRV(obj);
OggVorbis_File *vf = (OggVorbis_File *) SvIV(*(my_hv_fetch(self, "VFILE")));
+ /* XXX - handle whence */
RETVAL = ov_raw_seek(vf, pos);
OUTPUT:
Modified: trunk/libogg-vorbis-decoder-perl/MANIFEST
URL: http://svn.debian.org/wsvn/trunk/libogg-vorbis-decoder-perl/MANIFEST?rev=14073&op=diff
==============================================================================
--- trunk/libogg-vorbis-decoder-perl/MANIFEST (original)
+++ trunk/libogg-vorbis-decoder-perl/MANIFEST Sun Feb 3 00:14:06 2008
@@ -5,9 +5,23 @@
MANIFEST
README
TODO
-test.pl
+data/test.ogg
+t/basic.t
+t/pod.t
+t/pod-coverage.t
LICENSE.GPL
-test.ogg
typemap
examples/http-stream
-META.yml Module meta-data (added by MakeMaker)
+META.yml
+inc/Module/Install.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Compiler.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/AutoInstall.pm
+inc/Module/Install/Include.pm
+inc/Module/Install/WriteAll.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/AutoInstall.pm
Modified: trunk/libogg-vorbis-decoder-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libogg-vorbis-decoder-perl/META.yml?rev=14073&op=diff
==============================================================================
--- trunk/libogg-vorbis-decoder-perl/META.yml (original)
+++ trunk/libogg-vorbis-decoder-perl/META.yml Sun Feb 3 00:14:06 2008
@@ -1,10 +1,13 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Ogg-Vorbis-Decoder
-version: 0.6
-version_from: Decoder.pm
-installdirs: site
+abstract: An object-oriented Ogg Vorbis to decoder
+author: EMERITUS
+distribution_type: module
+generated_by: Module::Install version 0.64
+license: perl
+name: Ogg-Vorbis-Decoder
+no_index:
+ directory:
+ - inc
+ - t
requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.21
+ perl: 5.005
+version: 0.7
Modified: trunk/libogg-vorbis-decoder-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libogg-vorbis-decoder-perl/Makefile.PL?rev=14073&op=diff
==============================================================================
--- trunk/libogg-vorbis-decoder-perl/Makefile.PL (original)
+++ trunk/libogg-vorbis-decoder-perl/Makefile.PL Sun Feb 3 00:14:06 2008
@@ -1,19 +1,21 @@
-use ExtUtils::MakeMaker;
-use Config;
+# $Id: Makefile.PL 10 1998-12-16 23:02:45Z daniel $
-$LDDLFLAGS = '';
-$LDDLFLAGS = '-all_load' if $^O eq 'darwin';
+use inc::Module::Install;
-if ($^O =~ /win/i) {
- $LIBS = '-logg_static -lvorbis_static -lvorbisfile_static';
+name('Ogg-Vorbis-Decoder');
+license('perl');
+perl_version('5.005');
+all_from('Decoder.pm');
+
+if ($^O =~ /win32/i) {
+
+ cc_lib_links(qw(ogg_static vorbis_static vorbisfile_static));
+
} else {
- $LIBS = '-logg -lvorbis -lvorbisfile';
+
+ cc_lib_links(qw(ogg vorbis vorbisfile));
+ cc_optimize_flags('-Wall');
}
-WriteMakefile(
- 'NAME' => 'Ogg::Vorbis::Decoder',
- 'VERSION_FROM' => 'Decoder.pm',
- 'LIBS' => [$LIBS],
- 'DEFINE' => '-O',
- 'LDDLFLAGS' => "$Config{'lddlflags'} $LDDLFLAGS"
-);
+auto_install();
+WriteAll();
Modified: trunk/libogg-vorbis-decoder-perl/README
URL: http://svn.debian.org/wsvn/trunk/libogg-vorbis-decoder-perl/README?rev=14073&op=diff
==============================================================================
--- trunk/libogg-vorbis-decoder-perl/README (original)
+++ trunk/libogg-vorbis-decoder-perl/README Sun Feb 3 00:14:06 2008
@@ -1,4 +1,4 @@
-Ogg/Vorbis/Decoder version 0.02
+Ogg::Vorbis::Decoder
============================
This module provides an object-oriented interface to the decoding
@@ -17,13 +17,14 @@
DEPENDENCIES
-Inline::C, libogg, libvorbis, libogg-dev, libvorbis-dev.
+libogg, libvorbis, libogg-dev, libvorbis-dev.
-Inline::C is available from CPAN. The libogg and libvorbis libraries
-are available from xiph.org. They are also available through Debian's
-apt-get and Mandrake's rpmdrake (and perhaps Redhat's up2date).
+The libogg and libvorbis libraries are available from xiph.org. They are also
+available through Debian's apt-get and Mandrake's rpmdrake (and perhaps Redhat's up2date).
COPYRIGHT AND LICENCE
+
+Copyright (c) 2004-2007, Dan Sully. All Rights Reserved.
Copyright (c) 2003, Dan Pemstein. All Rights Reserved.
Modified: trunk/libogg-vorbis-decoder-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libogg-vorbis-decoder-perl/debian/changelog?rev=14073&op=diff
==============================================================================
--- trunk/libogg-vorbis-decoder-perl/debian/changelog (original)
+++ trunk/libogg-vorbis-decoder-perl/debian/changelog Sun Feb 3 00:14:06 2008
@@ -1,4 +1,4 @@
-libogg-vorbis-decoder-perl (0.6-2) UNRELEASED; urgency=low
+libogg-vorbis-decoder-perl (0.7-1) UNRELEASED; urgency=low
* Take over for the Debian Perl Group (closes: #463745).
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
@@ -6,12 +6,14 @@
Maintainer set to Debian Perl Group <pkg-perl-
maintainers at lists.alioth.debian.org> (was: Ivan Kohler <ivan-
debian at 420.am>)
+
+ * New upstream release.
* Add debian/watch.
* debian/rules: delete /usr/share/perl5 only if it exists (closes: #463537).
* Set Standards-Version to 3.7.3 (no changes).
* Set debhelper compatibility level to 6.
- -- gregor herrmann <gregor+debian at comodo.priv.at> Sun, 03 Feb 2008 01:07:02 +0100
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Sun, 03 Feb 2008 01:11:46 +0100
libogg-vorbis-decoder-perl (0.6-1) unstable; urgency=low
More information about the Pkg-perl-cvs-commits
mailing list