"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Gen/PP/PdlParObj.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).

PdlParObj.pm  (PDL-2.077):PdlParObj.pm  (PDL-2.078)
skipping to change at line 222 skipping to change at line 222
"register PDL_Indx $for_local = __privtrans->$name; (void)$for_lo cal;\n"; "register PDL_Indx $for_local = __privtrans->$name; (void)$for_lo cal;\n";
} (0..$#{$this->{IndObjs}}) ) } (0..$#{$this->{IndObjs}}) )
} }
# Print an access part. # Print an access part.
sub do_access { sub do_access {
my($this,$inds,$context) = @_; my($this,$inds,$context) = @_;
my $pdl = $this->{Name}; my $pdl = $this->{Name};
# Parse substitutions into hash # Parse substitutions into hash
my %subst = map my %subst = map
{/^\s*(\w+)\s*=>\s*(\S*)\s*$/ or confess "Invalid subst $_\n"; ($1,$2)} {/^\s*(\w+)\s*=>\s*(\S*)\s*$/ or confess "Invalid subst $_ (no spaces in => value)\n"; ($1,$2)}
splitprotected ',',$inds; splitprotected ',',$inds;
# Generate the text # Generate the text
my $text; my $text;
$text = "(${pdl}_datap)"."["; $text = "(${pdl}_datap)"."[";
$text .= join '+','0',map { $text .= join '+','0',map {
$this->do_indterm($pdl,$_,\%subst,$context); $this->do_indterm($pdl,$_,\%subst,$context);
} (0..$#{$this->{IndObjs}}); } (0..$#{$this->{IndObjs}});
$text .= "]"; $text .= "]";
# If not all substitutions made, the user probably made a spelling # If not all substitutions made, the user probably made a spelling
# error. Barf. # error. Barf.
 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)