"Fossies" - the Fresh Open Source Software Archive  

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

PP.pm  (PDL-2.076):PP.pm  (PDL-2.077)
skipping to change at line 2011 skipping to change at line 2011
grep !$_->[1], $sig->names_sorted_tuples; grep !$_->[1], $sig->names_sorted_tuples;
}), }),
PDL::PP::Rule->new("NewXSRunTrans", ["StructName"], sub { PDL::PP::Rule->new("NewXSRunTrans", ["StructName"], sub {
my($trans) = @_; my($trans) = @_;
PDL::PP::pp_line_numbers(__LINE__, PDL::PP::pp_line_numbers(__LINE__,
"PDL_RETERROR(PDL_err, PDL->make_trans_mutual($trans));\n"); "PDL_RETERROR(PDL_err, PDL->make_trans_mutual($trans));\n");
}), }),
PDL::PP::Rule->new(PDL::PP::Code::make_args("Code"), PDL::PP::Rule->new(PDL::PP::Code::make_args("Code"),
sub { PDL::PP::Code->new(@_, undef, undef); }), sub { PDL::PP::Code->new(@_, undef, undef, 1); }),
PDL::PP::Rule->new(PDL::PP::Code::make_args("BackCode"), PDL::PP::Rule->new(PDL::PP::Code::make_args("BackCode"),
sub { PDL::PP::Code->new(@_, undef, 1); }), sub { PDL::PP::Code->new(@_, undef, 1, 1); }),
# Compiled representations i.e. what the RunFunc function leaves # Compiled representations i.e. what the RunFunc function leaves
# in the params structure. By default, copies of the parameters # in the params structure. By default, copies of the parameters
# but in many cases (e.g. slice) a benefit can be obtained # but in many cases (e.g. slice) a benefit can be obtained
# by parsing the string in that function. # by parsing the string in that function.
# If the user wishes to specify their own MakeComp code and Comp content, # If the user wishes to specify their own MakeComp code and Comp content,
# The next definitions allow this. # The next definitions allow this.
PDL::PP::Rule->new("CompObj", ["BadFlag","Comp"], PDL::PP::Rule->new("CompObj", ["BadFlag","Comp"],
sub { PDL::PP::Signature->new('', @_) }), sub { PDL::PP::Signature->new('', @_) }),
PDL::PP::Rule->new("CompObj", "SignatureObj", sub { @_ }), # provide default PDL::PP::Rule->new("CompObj", "SignatureObj", sub { @_ }), # provide default
skipping to change at line 2062 skipping to change at line 2062
["SignatureObj"], ["SignatureObj"],
sub { join "\n", sort map $_->get_initdim, $_[0]->dims_values }), sub { join "\n", sort map $_->get_initdim, $_[0]->dims_values }),
PDL::PP::Rule->new("RedoDimsFuncName", ["Name", \"RedoDims", \"RedoDimsCode", "DimsSetters"], PDL::PP::Rule->new("RedoDimsFuncName", ["Name", \"RedoDims", \"RedoDimsCode", "DimsSetters"],
sub { (scalar grep $_ && /\S/, @_[1..$#_]) ? "pdl_$_[0]_redodims" : 'NULL' }), sub { (scalar grep $_ && /\S/, @_[1..$#_]) ? "pdl_$_[0]_redodims" : 'NULL' }),
PDL::PP::Rule::Returns->new("RedoDimsCode", [], PDL::PP::Rule::Returns->new("RedoDimsCode", [],
'Code that can be inserted to set the size of outp ut ndarrays dynamically based on input ndarrays; is parsed', 'Code that can be inserted to set the size of outp ut ndarrays dynamically based on input ndarrays; is parsed',
''), ''),
PDL::PP::Rule->new(PDL::PP::Code::make_args("RedoDimsCode"), PDL::PP::Rule->new(PDL::PP::Code::make_args("RedoDimsCode"),
'makes the parsed representation from the supplied RedoDimsCode', 'makes the parsed representation from the supplied RedoDimsCode',
sub { return '' if !$_[0]; PDL::PP::Code->new(@_, 1, undef); }), sub { return '' if !$_[0]; PDL::PP::Code->new(@_, 1, undef, 0); }),
PDL::PP::Rule->new("RedoDims", PDL::PP::Rule->new("RedoDims",
["DimsSetters","ParsedRedoDimsCode","DefaultRedoDims"], ["DimsSetters","ParsedRedoDimsCode","DefaultRedoDims"],
'makes the redodims function from the various bits and pieces', 'makes the redodims function from the various bits and pieces',
sub { join "\n", grep $_ && /\S/, @_ }), sub { join "\n", grep $_ && /\S/, @_ }),
PDL::PP::Rule::Returns::EmptyString->new("Priv"), PDL::PP::Rule::Returns::EmptyString->new("Priv"),
PDL::PP::Rule->new("PrivObj", ["BadFlag","Priv"], PDL::PP::Rule->new("PrivObj", ["BadFlag","Priv"],
sub { PDL::PP::Signature->new('', @_) }), sub { PDL::PP::Signature->new('', @_) }),
PDL::PP::Rule->new("NTPrivFreeCode", "PrivObj", sub {$_[0]->getfree("PRIV")}) , PDL::PP::Rule->new("NTPrivFreeCode", "PrivObj", sub {$_[0]->getfree("PRIV")}) ,
 End of changes. 3 change blocks. 
3 lines changed or deleted 3 lines changed or added

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