"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

---