"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Core/Types.pm.PL" between
PDL-2.076.tar.gz and PDL-2.077.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

Types.pm.PL  (PDL-2.076):Types.pm.PL  (PDL-2.077)
skipping to change at line 398 skipping to change at line 398
require Exporter; require Exporter;
use Carp; use Carp;
!NO!SUBS! !NO!SUBS!
print OUT qq{ print OUT qq{
our \@EXPORT = qw( $typeexports our \@EXPORT = qw( $typeexports
\@pack \%typehash ); \@pack \%typehash );
}; };
print OUT sprintf qq{#line %d "%s"\n}, __LINE__ + 2, 'Basic/Core/Types.pm.PL';
print OUT <<'!NO!SUBS!'; print OUT <<'!NO!SUBS!';
our @EXPORT_OK = (@EXPORT, our @EXPORT_OK = (@EXPORT,
qw/types typesrtkeys mapfld typefld qw/types typesrtkeys mapfld typefld
ppdefs ppdefs_complex ppdefs_all ppdefs ppdefs_complex ppdefs_all
/ /
); );
our %EXPORT_TAGS = ( our %EXPORT_TAGS = (
All=>[@EXPORT,@EXPORT_OK], All=>[@EXPORT,@EXPORT_OK],
); );
our @ISA = qw( Exporter ); our @ISA = qw( Exporter );
!NO!SUBS! !NO!SUBS!
print OUT sprintf qq{#line %d "%s"\n}, __LINE__ + 2, 'Basic/Core/Types.pm.PL';
print OUT qq{ print OUT qq{
# Data types/sizes (bytes) [must be in order of complexity] # Data types/sizes (bytes) [must be in order of complexity]
# Enum # Enum
our ( $typevars ) = (0..$ntypesm1); our ( $typevars ) = (0..$ntypesm1);
# Corresponding pack types # Corresponding pack types
our \@pack= qw/$packtypes/; our \@pack= qw/$packtypes/;
our \@names= qw/$typenames/; our \@names= qw/$typenames/;
}; };
# generate the typehash output # generate the typehash output
print OUT gentypehashcode @types; print OUT gentypehashcode @types;
print OUT sprintf qq{#line %d "%s"\n}, __LINE__ + 2, 'Basic/Core/Types.pm.PL';
print OUT <<'!NO!SUBS!'; print OUT <<'!NO!SUBS!';
# Cross-reference by common names # Cross-reference by common names
my @HASHES = sort {$a->{numval} <=> $b->{numval}} values %typehash; my @HASHES = sort {$a->{numval} <=> $b->{numval}} values %typehash;
my @RTKEYS = map $_->{sym}, @HASHES; my @RTKEYS = map $_->{sym}, @HASHES;
our %typenames; our %typenames;
for my $h (@HASHES) { for my $h (@HASHES) {
my $n = $h->{numval}; my $n = $h->{numval};
$typenames{$_} = $n for $n, @$h{qw(sym ioname ctype ppforcetype ppsym identifi er)}; $typenames{$_} = $n for $n, @$h{qw(sym ioname ctype ppforcetype ppsym identifi er)};
} }
skipping to change at line 783 skipping to change at line 786
!NO!SUBS! !NO!SUBS!
foreach my $name ( qw( ctype ppsym convertfunc shortctype foreach my $name ( qw( ctype ppsym convertfunc shortctype
sym numval ioname defbval sym numval ioname defbval
), @TYPE_VERBATIM ) { ), @TYPE_VERBATIM ) {
print OUT << "EOS"; print OUT << "EOS";
sub $name { \$_[0][1]{$name}; } sub $name { \$_[0][1]{$name}; }
EOS EOS
} }
print OUT sprintf qq{#line %d "%s"\n}, __LINE__ + 2, 'Basic/Core/Types.pm.PL';
print OUT <<'!NO!SUBS!'; print OUT <<'!NO!SUBS!';
sub badvalue { sub badvalue {
PDL::_badvalue_int( $_[1], $_[0][0] ); PDL::_badvalue_int( $_[1], $_[0][0] );
} }
sub orig_badvalue { sub orig_badvalue {
PDL::_default_badvalue_int($_[0][0]); PDL::_default_badvalue_int($_[0][0]);
} }
# make life a bit easier # make life a bit easier
use overload ( use overload (
 End of changes. 4 change blocks. 
0 lines changed or deleted 4 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)