"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Gen/PP.pm" between
PDL-2.077.tar.gz and PDL-2.078.tar.gz

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

PP.pm  (PDL-2.077):PP.pm  (PDL-2.078)
skipping to change at line 409 skipping to change at line 409
ISPDLSTATEBAD => \&badflag_isset, ISPDLSTATEBAD => \&badflag_isset,
ISPDLSTATEGOOD => sub {"!".badflag_isset($_[0])}, ISPDLSTATEGOOD => sub {"!".badflag_isset($_[0])},
BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__-1, "badflag_cac he") }, BADFLAGCACHE => sub { PDL::PP::pp_line_numbers(__LINE__-1, "badflag_cac he") },
PDLSTATESETBAD => sub { PDL::PP::pp_line_numbers(__LINE__-1, $sig->objs->{ $_[0]}->do_pdlaccess."->state |= PDL_BADVAL") }, PDLSTATESETBAD => sub { PDL::PP::pp_line_numbers(__LINE__-1, $sig->objs->{ $_[0]}->do_pdlaccess."->state |= PDL_BADVAL") },
PDLSTATESETGOOD => sub { PDL::PP::pp_line_numbers(__LINE__-1, $sig->objs-> {$_[0]}->do_pdlaccess."->state &= ~PDL_BADVAL") }, PDLSTATESETGOOD => sub { PDL::PP::pp_line_numbers(__LINE__-1, $sig->objs-> {$_[0]}->do_pdlaccess."->state &= ~PDL_BADVAL") },
PDLSTATEISBAD => sub {badflag_isset($sig->objs->{$_[0]}->do_pdlaccess)}, PDLSTATEISBAD => sub {badflag_isset($sig->objs->{$_[0]}->do_pdlaccess)},
PDLSTATEISGOOD => sub {"!".badflag_isset($sig->objs->{$_[0]}->do_pdlaccess )}, PDLSTATEISGOOD => sub {"!".badflag_isset($sig->objs->{$_[0]}->do_pdlaccess )},
PP => sub { $sig->objs->{$_[0]}->do_physpointeraccess }, PP => sub { $sig->objs->{$_[0]}->do_physpointeraccess },
P => sub { (my $o = $sig->objs->{$_[0]})->{FlagPhys} = 1; $o->do_pointerac cess; }, P => sub { (my $o = $sig->objs->{$_[0]})->{FlagPhys} = 1; $o->do_pointerac cess; },
PDL => sub { $sig->objs->{$_[0]}->do_pdlaccess }, PDL => sub { $sig->objs->{$_[0]}->do_pdlaccess },
SIZE => sub { $sig->ind_obj($_[0])->get_size }, SIZE => sub { ($sig->ind_obj($_[0])//confess "Can't get SIZE of unknown di m '$_[0]'")->get_size },
%PDL::PP::macros, %PDL::PP::macros,
); );
while (my ($before, $kw, $args, $other) = macro_extract($ret)) { while (my ($before, $kw, $args, $other) = macro_extract($ret)) {
confess("$kw not defined in '$ret'!") if !$syms{$kw}; confess("$kw not defined in '$ret'!") if !$syms{$kw};
$ret = join '', $before, $syms{$kw}->($args), $other; $ret = join '', $before, $syms{$kw}->($args), $other;
} }
$ret; $ret;
} }
sub macro_extract { sub macro_extract {
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

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