r61851 - in /trunk/libextutils-xspp-perl: ./ debian/ lib/ExtUtils/ lib/ExtUtils/XSpp/ lib/ExtUtils/XSpp/Node/ t/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sun Aug 22 11:43:04 UTC 2010
Author: gregoa
Date: Sun Aug 22 11:42:51 2010
New Revision: 61851
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=61851
Log:
New upstream release.
Modified:
trunk/libextutils-xspp-perl/Changes
trunk/libextutils-xspp-perl/META.yml
trunk/libextutils-xspp-perl/debian/changelog
trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp.pm
trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp.pod
trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Lexer.pm
trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node.pm
trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Class.pm
trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Function.pm
trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Raw.pm
trunk/libextutils-xspp-perl/t/005_io.t
trunk/libextutils-xspp-perl/t/010_base.t
trunk/libextutils-xspp-perl/t/011_multiple_files.t
trunk/libextutils-xspp-perl/t/015_reference.t
trunk/libextutils-xspp-perl/t/020_rename.t
trunk/libextutils-xspp-perl/t/022_static.t
trunk/libextutils-xspp-perl/t/022_virtual.t
trunk/libextutils-xspp-perl/t/030_code_blocks.t
trunk/libextutils-xspp-perl/t/031_verbatim_blocks.t
trunk/libextutils-xspp-perl/t/035_include.t
trunk/libextutils-xspp-perl/t/040_plugin.t
trunk/libextutils-xspp-perl/t/043_parser_plugins.t
trunk/libextutils-xspp-perl/t/075_types.t
trunk/libextutils-xspp-perl/t/080_complex_typemap.t
trunk/libextutils-xspp-perl/t/090_exceptions.t
Modified: trunk/libextutils-xspp-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/Changes?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/Changes (original)
+++ trunk/libextutils-xspp-perl/Changes Sun Aug 22 11:42:51 2010
@@ -1,4 +1,7 @@
Revision history for Perl extension ExtUtils::XSpp.
+
+0.15 Sat Aug 14 11:36:39 CEST 2010
+ - Improved support for conditional code (via #ifdef) in plugins.
0.14 Wed Jul 21 17:00:00 CEST 2010
- This release demonstrates why it is a good idea
Modified: trunk/libextutils-xspp-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/META.yml?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/META.yml (original)
+++ trunk/libextutils-xspp-perl/META.yml Sun Aug 22 11:42:51 2010
@@ -7,7 +7,7 @@
Test::Differences: 0
configure_requires:
Module::Build: 0.36
-generated_by: 'Module::Build version 0.3605'
+generated_by: 'Module::Build version 0.3607'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -16,7 +16,7 @@
provides:
ExtUtils::XSpp:
file: lib/ExtUtils/XSpp.pm
- version: 0.14
+ version: 0.15
ExtUtils::XSpp::Cmd:
file: lib/ExtUtils/XSpp/Cmd.pm
ExtUtils::XSpp::Driver:
@@ -94,4 +94,4 @@
perl: v5.6.1
resources:
license: http://dev.perl.org/licenses/
-version: 0.14
+version: 0.15
Modified: trunk/libextutils-xspp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/debian/changelog?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/debian/changelog (original)
+++ trunk/libextutils-xspp-perl/debian/changelog Sun Aug 22 11:42:51 2010
@@ -1,3 +1,9 @@
+libextutils-xspp-perl (0.15-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Sun, 22 Aug 2010 13:41:42 +0200
+
libextutils-xspp-perl (0.14-1) unstable; urgency=low
[ Ansgar Burchardt ]
Modified: trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp.pm?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp.pm (original)
+++ trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp.pm Sun Aug 22 11:42:51 2010
@@ -5,6 +5,6 @@
use ExtUtils::XSpp::Driver;
-our $VERSION = '0.14';
+our $VERSION = '0.15';
1;
Modified: trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp.pod?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp.pod (original)
+++ trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp.pod Sun Aug 22 11:42:51 2010
@@ -184,17 +184,20 @@
=head2 %module
- %module{Module__Name};
-
-Will be used to generate the C<MODULE=Module__Name> XS directives.
+ %module{Module::Name};
+
+Will be used to generate the C<MODULE=Module::Name> XS directives.
+It indirectly sets the name of the shared library that is generated
+as well as the name of the module via which L<XSLoader> will be
+able to find/load it.
=head2 %name
%name{Perl::Class} class MyClass { ... };
%name{Perl::Func} int foo();
-Specifies the perl name under which the C++ class/function will be
-accessible.
+Specifies the Perl name under which the C++ class/function will be
+accessible. By default, constructor names are mapped to C<new> in Perl.
=head2 %typemap
Modified: trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Lexer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Lexer.pm?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Lexer.pm (original)
+++ trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Lexer.pm Sun Aug 22 11:42:51 2010
@@ -275,6 +275,7 @@
( $args{any},
any_named_arguments => $args{any_named_arguments},
any_positional_arguments => $args{any_positional_arguments},
+ condition => $parser->get_conditional,
);
}
Modified: trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node.pm?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node.pm (original)
+++ trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node.pm Sun Aug 22 11:42:51 2010
@@ -57,4 +57,14 @@
sub condition { $_[0]->{CONDITION} }
+sub condition_expression {
+ my $this = shift;
+
+ return $this->emit_condition if $this->emit_condition;
+ return 'defined( ' . $this->condition . ' )' if $this->condition;
+ return undef;
+}
+
+sub emit_condition { $_[0]->{EMIT_CONDITION} }
+
1;
Modified: trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Class.pm?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Class.pm (original)
+++ trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Class.pm Sun Aug 22 11:42:51 2010
@@ -50,6 +50,7 @@
$this->add_methods( @{$args{methods}} ) if $args{methods};
$this->{CATCH} = $args{catch};
$this->{CONDITION} = $args{condition};
+ $this->{EMIT_CONDITION} = $args{emit_condition};
$all_classes{$this->cpp_name} = $this unless $this->empty;
@@ -110,6 +111,8 @@
my $state = shift;
my $out = $this->SUPER::print( $state );
+ $out .= '#if ' . $this->emit_condition . "\n" if $this->emit_condition;
+
foreach my $m ( @{$this->methods} ) {
next if $m->can( 'access' ) && $m->access ne 'public';
$out .= $m->print( $state );
@@ -145,6 +148,8 @@
EOT
}
+ $out .= '#endif // ' . $this->emit_condition . "\n" if $this->emit_condition;
+
return $out;
}
Modified: trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Function.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Function.pm?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Function.pm (original)
+++ trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Function.pm Sun Aug 22 11:42:51 2010
@@ -52,6 +52,7 @@
$this->{CLASS} = $args{class};
$this->{CATCH} = $args{catch};
$this->{CONDITION} = $args{condition};
+ $this->{EMIT_CONDITION} = $args{emit_condition};
if (ref($this->{CATCH})
and @{$this->{CATCH}} > 1
@@ -158,20 +159,6 @@
return();
}
-
-=head2 argument_style
-
-Returns either C<ansi> or C<kr>. C<kr> is the default.
-C<ansi> is returned if any one of the arguments uses the XS
-C<length> feature.
-
-=cut
-
-sub argument_style {
- my $this = shift;
- return 'ansi' if $this->has_argument_with_length;
- return 'kr';
-}
# Depending on argument style, this produces either: (style=kr)
#
@@ -206,14 +193,15 @@
my $args = $this->arguments;
my $ret_type = $this->ret_type;
my $ret_typemap = $this->{TYPEMAPS}{RET_TYPE};
- my $need_call_function = 0;
+
+ $out .= '#if ' . $this->emit_condition . "\n" if $this->emit_condition;
my( $init, $arg_list, $call_arg_list, $code, $output, $cleanup,
$postcall, $precall ) =
( '', '', '', '', '', '', '', '' );
- my $use_ansi_style = $this->argument_style() eq 'ansi';
-
+ # compute the precall code, XS argument list and C++ argument list using
+ # the typemap information
if( $args && @$args ) {
my $has_self = $this->is_method ? 1 : 0;
my( @arg_list, @call_arg_list );
@@ -223,14 +211,8 @@
my $pc = $t->precall_code( sprintf( 'ST(%d)', $i + $has_self ),
$arg->name );
- $need_call_function ||= defined $t->call_parameter_code( '' )
- || defined $pc;
- my $type = $use_ansi_style ? $t->cpp_type . ' ' : '';
- push @arg_list, $type . $arg->name .
+ push @arg_list, $t->cpp_type . ' ' . $arg->name .
( $arg->has_default ? ' = ' . $arg->default : '' );
- if (!$use_ansi_style) {
- $init .= ' ' . $t->cpp_type . ' ' . $arg->name . "\n";
- }
my $call_code = $t->call_parameter_code( $arg->name );
push @call_arg_list, defined( $call_code ) ? $call_code : $arg->name;
@@ -240,16 +222,6 @@
$arg_list = ' ' . join( ', ', @arg_list ) . ' ';
$call_arg_list = ' ' . join( ', ', @call_arg_list ) . ' ';
}
-
- # same for return value
- $need_call_function ||= $ret_typemap &&
- ( defined $ret_typemap->call_function_code( '', '' ) ||
- defined $ret_typemap->output_code( '', '' ) ||
- defined $ret_typemap->cleanup_code( '', '' ) );
- # is C++ name != Perl name?
- $need_call_function ||= $this->cpp_name ne $this->perl_name;
- # package-static function
- $need_call_function ||= $this->package_static;
my $retstr = $ret_typemap ? $ret_typemap->cpp_type : 'void';
@@ -262,53 +234,45 @@
my $has_ret = $ret_typemap && !$ret_typemap->type->is_void;
- # Hardcoded to one because we force the exception handling for now
- # All the hard work above about determining whether $need_call_function
- # needs to be enabled is left in as exception handling may be subject
- # to configuration later. --Steffen
- $need_call_function = 1;
-
my $ppcode = $has_ret && $ret_typemap->output_list( '' ) ? 1 : 0;
my $code_type = $ppcode ? "PPCODE" : "CODE";
- if( $need_call_function ) {
- my $ccode = $this->_call_code( $call_arg_list );
- if ($this->isa('ExtUtils::XSpp::Node::Destructor')) {
- $ccode = 'delete THIS';
- $has_ret = 0;
- } elsif( $has_ret && defined $ret_typemap->call_function_code( '', '' ) ) {
- $ccode = $ret_typemap->call_function_code( $ccode, 'RETVAL' );
- } elsif( $has_ret ) {
- $ccode = "RETVAL = $ccode";
- }
-
- $code .= " $code_type:\n";
- $code .= " try {\n";
- if ($precall) {
- $code .= ' ' . $precall;
- }
- $code .= ' ' . $ccode . ";\n";
- if( $has_ret && defined $ret_typemap->output_code( '', '' ) ) {
- my $retcode = $ret_typemap->output_code( 'ST(0)', 'RETVAL' );
- $code .= ' ' . $retcode . ";\n";
- }
- if( $has_ret && defined $ret_typemap->output_list( '' ) ) {
- my $retcode = $ret_typemap->output_list( 'RETVAL' );
- $code .= ' ' . $retcode . ";\n";
- }
- $code .= " }\n";
- my @catchers = @{$this->{EXCEPTIONS}};
- foreach my $exception_handler (@catchers) {
- my $handler_code = $exception_handler->handler_code;
- $code .= $handler_code;
- }
-
- $output = " OUTPUT: RETVAL\n" if $has_ret;
-
- if( $has_ret && defined $ret_typemap->cleanup_code( '', '' ) ) {
- $cleanup .= " CLEANUP:\n";
- my $cleanupcode = $ret_typemap->cleanup_code( 'ST(0)', 'RETVAL' );
- $cleanup .= ' ' . $cleanupcode . ";\n";
- }
+ my $ccode = $this->_call_code( $call_arg_list );
+ if ($this->isa('ExtUtils::XSpp::Node::Destructor')) {
+ $ccode = 'delete THIS';
+ $has_ret = 0;
+ } elsif( $has_ret && defined $ret_typemap->call_function_code( '', '' ) ) {
+ $ccode = $ret_typemap->call_function_code( $ccode, 'RETVAL' );
+ } elsif( $has_ret ) {
+ $ccode = "RETVAL = $ccode";
+ }
+
+ $code .= " $code_type:\n";
+ $code .= " try {\n";
+ if ($precall) {
+ $code .= ' ' . $precall;
+ }
+ $code .= ' ' . $ccode . ";\n";
+ if( $has_ret && defined $ret_typemap->output_code( '', '' ) ) {
+ my $retcode = $ret_typemap->output_code( 'ST(0)', 'RETVAL' );
+ $code .= ' ' . $retcode . ";\n";
+ }
+ if( $has_ret && defined $ret_typemap->output_list( '' ) ) {
+ my $retcode = $ret_typemap->output_list( 'RETVAL' );
+ $code .= ' ' . $retcode . ";\n";
+ }
+ $code .= " }\n";
+ my @catchers = @{$this->{EXCEPTIONS}};
+ foreach my $exception_handler (@catchers) {
+ my $handler_code = $exception_handler->handler_code;
+ $code .= $handler_code;
+ }
+
+ $output = " OUTPUT: RETVAL\n" if $has_ret;
+
+ if( $has_ret && defined $ret_typemap->cleanup_code( '', '' ) ) {
+ $cleanup .= " CLEANUP:\n";
+ my $cleanupcode = $ret_typemap->cleanup_code( 'ST(0)', 'RETVAL' );
+ $cleanup .= ' ' . $cleanupcode . ";\n";
}
if( $this->code ) {
@@ -346,6 +310,8 @@
$this->_munge_code(\$body) if $this->has_argument_with_length;
$out .= $head . $body;
+ $out .= '#endif // ' . $this->emit_condition . "\n" if $this->emit_condition;
+
return $out;
}
Modified: trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Raw.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Raw.pm?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Raw.pm (original)
+++ trunk/libextutils-xspp-perl/lib/ExtUtils/XSpp/Node/Raw.pm Sun Aug 22 11:42:51 2010
@@ -29,6 +29,7 @@
my %args = @_;
$this->{ROWS} = $args{rows};
+ $this->{EMIT_CONDITION} = $args{emit_condition};
push @{$this->{ROWS}}, "\n";
}
@@ -42,6 +43,16 @@
sub rows { $_[0]->{ROWS} }
-sub print { join( "\n", @{$_[0]->rows} ) . "\n" }
+sub print {
+ my $this = shift;
+ my $state = shift;
+ my $out = '';
+
+ $out .= '#if ' . $this->emit_condition . "\n" if $this->emit_condition;
+ $out .= join( "\n", @{$this->rows} ) . "\n";
+ $out .= '#endif // ' . $this->emit_condition . "\n" if $this->emit_condition;
+
+ return $out;
+}
1;
Modified: trunk/libextutils-xspp-perl/t/005_io.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/005_io.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/005_io.t (original)
+++ trunk/libextutils-xspp-perl/t/005_io.t Sun Aug 22 11:42:51 2010
@@ -45,10 +45,7 @@
int
-foo( a, b, c )
- int a
- int b
- int c
+foo( int a, int b, int c )
CODE:
try {
RETVAL = foo( a, b, c );
Modified: trunk/libextutils-xspp-perl/t/010_base.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/010_base.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/010_base.t (original)
+++ trunk/libextutils-xspp-perl/t/010_base.t Sun Aug 22 11:42:51 2010
@@ -25,10 +25,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::foo( a, b, c )
- int a
- int b
- int c
+Foo::foo( int a, int b, int c )
CODE:
try {
RETVAL = THIS->foo( a, b, c );
@@ -71,8 +68,7 @@
MODULE=Foo PACKAGE=Foo::Bar
int
-foo( a )
- int a
+foo( int a )
CODE:
try {
RETVAL = foo( a );
@@ -102,10 +98,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::foo( a = 1, b = 0x1, c = 1 | 2 )
- int a
- int b
- int c
+Foo::foo( int a = 1, int b = 0x1, int c = 1 | 2 )
CODE:
try {
RETVAL = THIS->foo( a, b, c );
@@ -135,8 +128,7 @@
MODULE=Foo PACKAGE=Foo
Foo*
-Foo::new( a = 1 )
- int a
+Foo::new( int a = 1 )
CODE:
try {
RETVAL = new Foo( a );
@@ -195,8 +187,7 @@
MODULE=Foo PACKAGE=Foo
void
-Foo::foo( a )
- int a
+Foo::foo( int a )
CODE:
try {
THIS->foo( a );
@@ -297,10 +288,7 @@
int
-Foo::foo( a, b, c )
- int a
- int b
- int c
+Foo::foo( int a, int b, int c )
CODE:
try {
RETVAL = THIS->foo( a, b, c );
@@ -421,15 +409,7 @@
MODULE=Foo PACKAGE=Bar
short
-bar( a, b, c, d, e, f, g, h )
- short a
- unsigned short b
- unsigned int c
- unsigned int d
- int e
- unsigned short f
- long g
- unsigned long h
+bar( short a, unsigned short b, unsigned int c, unsigned int d, int e, unsigned short f, long g, unsigned long h )
CODE:
try {
RETVAL = bar( a, b, c, d, e, f, g, h );
Modified: trunk/libextutils-xspp-perl/t/011_multiple_files.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/011_multiple_files.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/011_multiple_files.t (original)
+++ trunk/libextutils-xspp-perl/t/011_multiple_files.t Sun Aug 22 11:42:51 2010
@@ -34,10 +34,7 @@
int
-foo( a, b, c )
- int a
- int b
- int c
+foo( int a, int b, int c )
CODE:
try {
RETVAL = foo( a, b, c );
@@ -86,8 +83,7 @@
int
-bar( x )
- int x
+bar( int x )
CODE:
try {
RETVAL = bar( x );
Modified: trunk/libextutils-xspp-perl/t/015_reference.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/015_reference.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/015_reference.t (original)
+++ trunk/libextutils-xspp-perl/t/015_reference.t Sun Aug 22 11:42:51 2010
@@ -25,8 +25,7 @@
MODULE=Foo PACKAGE=Foo
void
-Foo::foo( a )
- Foo* a
+Foo::foo( Foo* a )
CODE:
try {
THIS->foo( *( a ) );
Modified: trunk/libextutils-xspp-perl/t/020_rename.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/020_rename.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/020_rename.t (original)
+++ trunk/libextutils-xspp-perl/t/020_rename.t Sun Aug 22 11:42:51 2010
@@ -24,8 +24,7 @@
MODULE=Foo PACKAGE=Foo::Bar
int
-boo( a )
- int a
+boo( int a )
CODE:
try {
RETVAL = foo( a );
@@ -41,8 +40,7 @@
MODULE=Foo PACKAGE=moo
int
-boo( a )
- int a
+boo( int a )
CODE:
try {
RETVAL = foo( a );
@@ -72,8 +70,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::bar( a )
- int a
+Foo::bar( int a )
CODE:
try {
RETVAL = THIS->foo( a );
@@ -103,8 +100,7 @@
MODULE=Foo PACKAGE=Foo
static Foo*
-Foo::newFoo( a )
- int a
+Foo::newFoo( int a )
CODE:
try {
RETVAL = new Foo( a );
@@ -148,8 +144,7 @@
}
int
-Foo::foo_int( a )
- int a
+Foo::foo_int( int a )
CODE:
try {
RETVAL = THIS->foo( a );
Modified: trunk/libextutils-xspp-perl/t/022_static.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/022_static.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/022_static.t (original)
+++ trunk/libextutils-xspp-perl/t/022_static.t Sun Aug 22 11:42:51 2010
@@ -25,8 +25,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::foo( a )
- int a
+Foo::foo( int a )
CODE:
try {
RETVAL = Foo::foo( a );
Modified: trunk/libextutils-xspp-perl/t/022_virtual.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/022_virtual.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/022_virtual.t (original)
+++ trunk/libextutils-xspp-perl/t/022_virtual.t Sun Aug 22 11:42:51 2010
@@ -28,15 +28,13 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::foo( a )
- int a
+Foo::foo( int a )
CODE:
dummy
OUTPUT: RETVAL
int
-Foo::bar( a )
- int a
+Foo::bar( int a )
CODE:
dummy
OUTPUT: RETVAL
@@ -61,15 +59,13 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::foo( a )
- int a
+Foo::foo( int a )
CODE:
dummy
OUTPUT: RETVAL
int
-Foo::bar( a )
- int a
+Foo::bar( int a )
CODE:
dummy
OUTPUT: RETVAL
Modified: trunk/libextutils-xspp-perl/t/030_code_blocks.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/030_code_blocks.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/030_code_blocks.t (original)
+++ trunk/libextutils-xspp-perl/t/030_code_blocks.t Sun Aug 22 11:42:51 2010
@@ -24,8 +24,7 @@
MODULE=Foo PACKAGE=Foo
int
-boo( a )
- int a
+boo( int a )
CODE:
RETVAL = a + 12;
OUTPUT: RETVAL
@@ -46,8 +45,7 @@
MODULE=Foo PACKAGE=Foo
int
-boo( a )
- int a
+boo( int a )
CODE:
try {
RETVAL = foo( a );
@@ -78,8 +76,7 @@
MODULE=Foo PACKAGE=Foo
int
-foo( a )
- int a
+foo( int a )
CODE:
try {
RETVAL = foo( a );
@@ -110,8 +107,7 @@
MODULE=Foo PACKAGE=Foo
void
-boo( a )
- int a
+boo( int a )
CODE:
blub( a );
@@ -132,8 +128,7 @@
MODULE=Foo PACKAGE=Foo
void
-boo( a )
- int a
+boo( int a )
CODE:
blub( a );
CLEANUP:
@@ -155,8 +150,7 @@
MODULE=Foo PACKAGE=Foo
void
-foo( a )
- int a
+foo( int a )
CODE:
try {
foo( a );
Modified: trunk/libextutils-xspp-perl/t/031_verbatim_blocks.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/031_verbatim_blocks.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/031_verbatim_blocks.t (original)
+++ trunk/libextutils-xspp-perl/t/031_verbatim_blocks.t Sun Aug 22 11:42:51 2010
@@ -51,8 +51,7 @@
int
-X::foo( a )
- int a
+X::foo( int a )
CODE:
try {
RETVAL = THIS->foo( a );
Modified: trunk/libextutils-xspp-perl/t/035_include.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/035_include.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/035_include.t (original)
+++ trunk/libextutils-xspp-perl/t/035_include.t Sun Aug 22 11:42:51 2010
@@ -28,8 +28,7 @@
int
-foo( x )
- int x
+foo( int x )
CODE:
try {
RETVAL = foo( x );
@@ -43,8 +42,7 @@
OUTPUT: RETVAL
int
-bar( y )
- int y
+bar( int y )
CODE:
try {
RETVAL = bar( y );
Modified: trunk/libextutils-xspp-perl/t/040_plugin.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/040_plugin.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/040_plugin.t (original)
+++ trunk/libextutils-xspp-perl/t/040_plugin.t Sun Aug 22 11:42:51 2010
@@ -30,8 +30,7 @@
MODULE=Foo PACKAGE=Foo
int
-foo_perl( y )
- int y
+foo_perl( int y )
CODE:
try {
RETVAL = foo( y );
@@ -81,8 +80,7 @@
MODULE=Foo PACKAGE=Foo
int
-foo_perl2( y )
- int y
+foo_perl2( int y )
CODE:
try {
RETVAL = foo( y );
Modified: trunk/libextutils-xspp-perl/t/043_parser_plugins.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/043_parser_plugins.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/043_parser_plugins.t (original)
+++ trunk/libextutils-xspp-perl/t/043_parser_plugins.t Sun Aug 22 11:42:51 2010
@@ -33,8 +33,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo( y )
- int y
+Foo( int y )
CODE:
try {
RETVAL = foo( y );
Modified: trunk/libextutils-xspp-perl/t/075_types.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/075_types.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/075_types.t (original)
+++ trunk/libextutils-xspp-perl/t/075_types.t Sun Aug 22 11:42:51 2010
@@ -41,8 +41,7 @@
OUTPUT: RETVAL
int*
-boo( a )
- const int* a
+boo( const int* a )
CODE:
try {
RETVAL = boo( a );
@@ -74,8 +73,7 @@
MODULE=Foo PACKAGE=Foo
void
-foo( a )
- const std::string a
+foo( const std::string a )
CODE:
try {
foo( a );
@@ -88,8 +86,7 @@
}
void
-boo( a )
- std::string* a
+boo( std::string* a )
CODE:
try {
boo( *( a ) );
@@ -121,8 +118,7 @@
MODULE=Foo PACKAGE=Foo
void
-foo( a )
- const std::string a
+foo( const std::string a )
CODE:
try {
foo( a );
@@ -135,8 +131,7 @@
}
void
-boo( a )
- std::string* a
+boo( std::string* a )
CODE:
try {
boo( *( a ) );
@@ -149,9 +144,7 @@
}
void
-foo2( a, b )
- std::vector< double > a
- std::vector< double >* b
+foo2( std::vector< double > a, std::vector< double >* b )
CODE:
try {
foo2( a, *( b ) );
@@ -185,8 +178,7 @@
void
-foo( a )
- const std::vector< int >& a
+foo( const std::vector< int >& a )
CODE:
try {
foo( a );
@@ -199,8 +191,7 @@
}
void
-boo( a )
- const std::map< int, std::string > a
+boo( const std::map< int, std::string > a )
CODE:
try {
boo( a );
@@ -229,8 +220,7 @@
void
-foo( a )
- std::vector< double >* a
+foo( std::vector< double >* a )
CODE:
try {
foo( *( a ) );
Modified: trunk/libextutils-xspp-perl/t/080_complex_typemap.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/080_complex_typemap.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/080_complex_typemap.t (original)
+++ trunk/libextutils-xspp-perl/t/080_complex_typemap.t Sun Aug 22 11:42:51 2010
@@ -33,9 +33,7 @@
MODULE=Foo PACKAGE=Foo
foobar
-Foo::foo( a, b )
- foobar a
- void* b
+Foo::foo( foobar a, void* b )
CODE:
try {
RETVAL = THIS->foo( a, b );
@@ -69,9 +67,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::foo( a, b )
- int a
- int b
+Foo::foo( int a, int b )
CODE:
try {
RETVAL = fancy_conversion( THIS->foo( a, b ) ) ;
@@ -105,9 +101,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::foo( a, b )
- int a
- int b
+Foo::foo( int a, int b )
CODE:
try {
RETVAL = THIS->foo( a, b );
@@ -142,9 +136,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::foo( a, b )
- int a
- int b
+Foo::foo( int a, int b )
CODE:
try {
RETVAL = THIS->foo( a, b );
@@ -180,9 +172,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::foo( a, b )
- int a
- int b
+Foo::foo( int a, int b )
CODE:
try {
custom_code( ST(1), a ) ;
@@ -218,9 +208,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::foo( a, b )
- int a
- int b
+Foo::foo( int a, int b )
PPCODE:
try {
RETVAL = THIS->foo( a, b );
Modified: trunk/libextutils-xspp-perl/t/090_exceptions.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-xspp-perl/t/090_exceptions.t?rev=61851&op=diff
==============================================================================
--- trunk/libextutils-xspp-perl/t/090_exceptions.t (original)
+++ trunk/libextutils-xspp-perl/t/090_exceptions.t Sun Aug 22 11:42:51 2010
@@ -22,8 +22,7 @@
MODULE=Foo
int
-foo( a )
- int a
+foo( int a )
CODE:
try {
RETVAL = foo( a );
@@ -50,8 +49,7 @@
MODULE=Foo
int
-foo( a )
- int a
+foo( int a )
CODE:
try {
RETVAL = foo( a );
@@ -94,8 +92,7 @@
MODULE=Foo
int
-foo( a )
- int a
+foo( int a )
CODE:
try {
RETVAL = foo( a );
@@ -112,8 +109,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::bar( a )
- int a
+Foo::bar( int a )
CODE:
try {
RETVAL = THIS->bar( a );
@@ -130,8 +126,7 @@
OUTPUT: RETVAL
int
-Foo::baz( a )
- int a
+Foo::baz( int a )
CODE:
try {
RETVAL = THIS->baz( a );
@@ -151,8 +146,7 @@
OUTPUT: RETVAL
int
-Foo::buz( a )
- int a
+Foo::buz( int a )
CODE:
try {
RETVAL = THIS->buz( a );
@@ -180,8 +174,7 @@
MODULE=Foo
int
-foo( a )
- int a
+foo( int a )
CODE:
try {
RETVAL = foo( a );
@@ -209,8 +202,7 @@
MODULE=Foo
int
-foo( a )
- int a
+foo( int a )
CODE:
try {
RETVAL = foo( a );
@@ -245,8 +237,7 @@
MODULE=Foo
int
-foo( a )
- int a
+foo( int a )
CODE:
try {
RETVAL = foo( a );
@@ -291,8 +282,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::foo( a )
- int a
+Foo::foo( int a )
CODE:
try {
RETVAL = THIS->foo( a );
@@ -333,8 +323,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::foo( a )
- int a
+Foo::foo( int a )
CODE:
try {
RETVAL = THIS->foo( a );
@@ -351,8 +340,7 @@
OUTPUT: RETVAL
int
-Foo::bar( a )
- int a
+Foo::bar( int a )
CODE:
try {
RETVAL = THIS->bar( a );
@@ -385,8 +373,7 @@
MODULE=Foo PACKAGE=Foo
int
-Foo::foo( a )
- int a
+Foo::foo( int a )
CODE:
try {
RETVAL = THIS->foo( a );
@@ -400,8 +387,7 @@
OUTPUT: RETVAL
int
-Foo::bar( a )
- int a
+Foo::bar( int a )
CODE:
try {
RETVAL = THIS->bar( a );
@@ -412,8 +398,7 @@
OUTPUT: RETVAL
int
-Foo::buz( a )
- int a
+Foo::buz( int a )
CODE:
try {
RETVAL = THIS->buz( a );
More information about the Pkg-perl-cvs-commits
mailing list