r54241 - in /branches/upstream/libaudio-wav-perl/current: COPYRIGHT Changes META.yml README TODO Wav.pm Wav/Read.pm Wav/Tools.pm Wav/Write.pm Wav/Write/Header.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Mar 13 20:14:36 UTC 2010
Author: jawnsy-guest
Date: Sat Mar 13 20:14:30 2010
New Revision: 54241
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54241
Log:
[svn-upgrade] Integrating new upstream version, libaudio-wav-perl (0.11)
Modified:
branches/upstream/libaudio-wav-perl/current/COPYRIGHT
branches/upstream/libaudio-wav-perl/current/Changes
branches/upstream/libaudio-wav-perl/current/META.yml
branches/upstream/libaudio-wav-perl/current/README
branches/upstream/libaudio-wav-perl/current/TODO
branches/upstream/libaudio-wav-perl/current/Wav.pm
branches/upstream/libaudio-wav-perl/current/Wav/Read.pm
branches/upstream/libaudio-wav-perl/current/Wav/Tools.pm
branches/upstream/libaudio-wav-perl/current/Wav/Write.pm
branches/upstream/libaudio-wav-perl/current/Wav/Write/Header.pm
Modified: branches/upstream/libaudio-wav-perl/current/COPYRIGHT
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/COPYRIGHT?rev=54241&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/COPYRIGHT (original)
+++ branches/upstream/libaudio-wav-perl/current/COPYRIGHT Sat Mar 13 20:14:30 2010
@@ -1,4 +1,3 @@
-Copyright (c) 2010 Brian Szymanski <ski-cpan at allafrica.com>
-Copyright (c) 1999-2001,2004-2006 Nick Peskett (http://www.peskett.co.uk/)
-Copyright (c) 2004 Kurt George Gjerde <KJERDE at cpan.org>
-
+Copyright (c) 2007,2010 Brian Szymanski <brianski at cpan.org>
+Copyright (c) 1998-2006 Nick Peskett <npeskett at cpan.org>
+Copyright (c) 2001 Kurt George Gjerde <KJERDE at cpan.org>
Modified: branches/upstream/libaudio-wav-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/Changes?rev=54241&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/Changes (original)
+++ branches/upstream/libaudio-wav-perl/current/Changes Sat Mar 13 20:14:30 2010
@@ -1,7 +1,13 @@
Revision history for Perl extension Audio::Wav.
+0.11 Fri Mar 12 04:12:44 GMT 2010
+ - fix two bugs triggered with inline on win32 - one related to assuming
+ C99 support and one related to lack of stdint.h or equivalent. tested
+ with strawberry perl, should work with msvc too. bug report here:
+ http://www.cpantesters.org/cpan/report/6920668
+
0.10 Sun Feb 14 04:09:00 GMT 2010
- - add LICENSE information for debian folks
+ - add COPYRIGHT information for debian folks
- include xt/
0.09 Thu Feb 11 14:58:37 GMT 2010
Modified: branches/upstream/libaudio-wav-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/META.yml?rev=54241&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/META.yml (original)
+++ branches/upstream/libaudio-wav-perl/current/META.yml Sat Mar 13 20:14:30 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Audio-Wav
-version: 0.10
+version: 0.11
abstract: ~
author: []
license: unknown
Modified: branches/upstream/libaudio-wav-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/README?rev=54241&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/README (original)
+++ branches/upstream/libaudio-wav-perl/current/README Sat Mar 13 20:14:30 2010
@@ -1,5 +1,5 @@
---------------------------------------------------------------------
- README file for Audio::Wav (0.10).
+ README file for Audio::Wav (0.11).
---------------------------------------------------------------------
Modules for reading & writing Microsoft WAV files.
@@ -459,7 +459,7 @@
---------------------------------------------------------------------
Nick Peskett (see http://www.peskett.co.uk/ for contact details).
- Brian Szymanski <ski-cpan at allafrica.com> (0.07-0.10)
+ Brian Szymanski <ski-cpan at allafrica.com> (0.07-0.11)
Wolfram humann (pureperl 24 and 32 bit read support in 0.09)
Kurt George Gjerde <kurt.gjerde at media.uib.no>. (0.02-0.03)
Modified: branches/upstream/libaudio-wav-perl/current/TODO
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/TODO?rev=54241&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/TODO (original)
+++ branches/upstream/libaudio-wav-perl/current/TODO Sat Mar 13 20:14:30 2010
@@ -1,3 +1,29 @@
+- int32_t/uint32_t/int16_t/int8_t not found on win32 - just use stdint.h?
+ or inttypes.h (only if on win32)
+ (02:11:21 AM) brianski: is there an equivalent to unit8_t, uint32_t, etc. on windows?
+ (02:16:30 AM) brianski: i have a perl module with some inline C code, and the ms c compiler is complaining about not grokking uint8_t, etc.
+ (02:17:04 AM) zen_: brianski: do you have an inttypes.h included?
+ (02:17:58 AM) brianski: zen_: dunno, don't have access to the build setup on that machine - someone else did it and reported the error
+ (02:18:12 AM) brianski: err oh in my code. isn't inttypes.h relatively new (C99) ?
+ (02:18:34 AM) brianski: i suppose i could do #ifdef win32 \n #include inttypes.h \n #endif
+ (02:18:46 AM) twkm: brianski: indeed.
+ (02:20:43 AM) brianski: anyone know offhand if inttypes.h well established enough on windows that i can compile on XP ?
+ (02:21:03 AM) twkm: doesn't exist at all on windows.
+ (02:21:37 AM) Zhivago: Well, msvc doesn't support C99.
+ (02:21:43 AM) Zhivago: You could use gcc under windows, I guess.
+ (02:22:28 AM) brianski: twkm: eh?
+ (02:24:00 AM) brianski: i think i missed something -- i didn't #include <inttypes.h> at all - does win32 have a <stdint.h> ? and/or is there a way to get similar functionality?
+ (02:24:52 AM) brianski: also, i read somewhere that i can get a free ms c compiler? anyone know where i should look for that?
+ (02:25:17 AM) twkm: brianski: you might replace uint8_t with a type that is present.
+ (02:25:47 AM) brianski: twkm: oh i misread what zen_ said, i thought he was saying those types did exist on win32
+ (02:26:26 AM) zen_: an implementation using win32 as an environment may have inttypes.h
+ (02:26:41 AM) zen_: Like mingw/gcc, as Zhivago said.
+ (02:26:43 AM) twkm: the default implementation for ms windows does not.
+ (02:26:43 AM) brianski: i see so something like this should work for me: http://msinttypes.googlecode.com/svn/trunk/stdint.h
+ (02:26:54 AM) zen_: twkm: what's the default implementation?
+ (02:27:11 AM) brianski: zen_: yeah, i dont control what compiler people use to try my code unfortunately -- ideally it should work with msvc and gcc
+ (02:27:13 AM) twkm: *chortles -- you can add a header, but not replace a type with something less annoying.*
+ (02:27:36 AM) twkm: zen_: you would assert it is not msvc?
- more 24 and 32 bit testing
- add test cases for 24 and 32 bit reads (remember to check pp and C)
- check inline::c 24/32 bit reads on big endian platforms
Modified: branches/upstream/libaudio-wav-perl/current/Wav.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/Wav.pm?rev=54241&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/Wav.pm (original)
+++ branches/upstream/libaudio-wav-perl/current/Wav.pm Sat Mar 13 20:14:30 2010
@@ -6,7 +6,7 @@
use Audio::Wav::Tools;
use vars qw( $VERSION );
-$VERSION = '0.10';
+$VERSION = '0.11';
BEGIN {
eval { require Inline::C };
@@ -209,14 +209,14 @@
=head1 COPYRIGHT
- Copyright (c) 2010 Brian Szymanski <ski-cpan at allafrica.com>
- Copyright (c) 1999-2001,2004-2006 Nick Peskett (http://www.peskett.co.uk/)
- Copyright (c) 2004 Kurt George Gjerde <KJERDE at cpan.org>
+ Copyright (c) 2007,2010 Brian Szymanski <brianski at cpan.org>
+ Copyright (c) 1998-2006 Nick Peskett <npeskett at cpan.org>
+ Copyright (c) 2001 Kurt George Gjerde <KJERDE at cpan.org>
=head1 AUTHORS
Nick Peskett (see http://www.peskett.co.uk/ for contact details).
- Brian Szymanski <ski-cpan at allafrica.com> (0.07-0.10)
+ Brian Szymanski <ski-cpan at allafrica.com> (0.07-0.11)
Wolfram humann (pureperl 24 and 32 bit read support in 0.09)
Kurt George Gjerde <kurt.gjerde at media.uib.no>. (0.02-0.03)
Modified: branches/upstream/libaudio-wav-perl/current/Wav/Read.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/Wav/Read.pm?rev=54241&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/Wav/Read.pm (original)
+++ branches/upstream/libaudio-wav-perl/current/Wav/Read.pm Sat Mar 13 20:14:30 2010
@@ -6,7 +6,7 @@
use FileHandle;
use vars qw( $VERSION );
-$VERSION = '0.10';
+$VERSION = '0.11';
=head1 NAME
@@ -743,7 +743,7 @@
=head1 AUTHORS
Nick Peskett (see http://www.peskett.co.uk/ for contact details).
- Brian Szymanski <ski-cpan at allafrica.com> (0.07-0.10)
+ Brian Szymanski <ski-cpan at allafrica.com> (0.07-0.11)
Wolfram humann (pureperl 24 and 32 bit read support in 0.09)
Kurt George Gjerde <kurt.gjerde at media.uib.no>. (0.02-0.03)
@@ -752,6 +752,20 @@
1;
__DATA__
+
+#ifdef WIN32
+ // Note: if it becomes a problem that Visual Studio 6 and
+ // Embedded Visual C++ 4 dont realize that char has the same
+ // size as int8_t, check for #if (_MSC_VER < 1300) and use
+ // signed __int8, unsigned __int16, etc. as in:
+ // http://msinttypes.googlecode.com/svn/trunk/stdint.h
+ typedef signed char int8_t;
+ typedef signed short int16_t;
+ typedef signed int int32_t;
+ typedef unsigned char uint8_t;
+ typedef unsigned short uint16_t;
+ typedef unsigned int uint32_t;
+#endif
//NOTE: 16, 32 bit audio do *NOT* work on big-endian platforms yet!
//verified formats (output is identical output to pureperl):
@@ -793,9 +807,11 @@
void read_c(void *self) {
int samples[MAX_CHANNELS];
int nread;
+ int i, s;
+
Inline_Stack_Vars;
Inline_Stack_Reset;
- int i, s;
+
for(i=0; i<channels; i++) {
// having fread in the loop is probably slightly less efficient,
// but it avoids byte alignment problems and fread is buffered,
Modified: branches/upstream/libaudio-wav-perl/current/Wav/Tools.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/Wav/Tools.pm?rev=54241&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/Wav/Tools.pm (original)
+++ branches/upstream/libaudio-wav-perl/current/Wav/Tools.pm Sat Mar 13 20:14:30 2010
@@ -4,7 +4,7 @@
eval { require warnings; }; #it's ok if we can't load warnings
use vars qw( $VERSION );
-$VERSION = '0.10';
+$VERSION = '0.11';
sub new {
my ($class, %options) = @_;
Modified: branches/upstream/libaudio-wav-perl/current/Wav/Write.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/Wav/Write.pm?rev=54241&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/Wav/Write.pm (original)
+++ branches/upstream/libaudio-wav-perl/current/Wav/Write.pm Sat Mar 13 20:14:30 2010
@@ -7,7 +7,7 @@
use Audio::Wav::Write::Header;
use vars qw( $VERSION );
-$VERSION = '0.10';
+$VERSION = '0.11';
=head1 NAME
Modified: branches/upstream/libaudio-wav-perl/current/Wav/Write/Header.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/Wav/Write/Header.pm?rev=54241&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/Wav/Write/Header.pm (original)
+++ branches/upstream/libaudio-wav-perl/current/Wav/Write/Header.pm Sat Mar 13 20:14:30 2010
@@ -4,7 +4,7 @@
eval { require warnings; }; #it's ok if we can't load warnings
use vars qw( $VERSION );
-$VERSION = '0.10';
+$VERSION = '0.11';
sub new {
my ($class, $file, $details, $tools, $handle) = @_;
More information about the Pkg-perl-cvs-commits
mailing list