Mercurial > octave
view build-aux/inplace_edit.pl @ 31058:12f8fb75fc30
quadgk.m: Overhaul function to add new "ArrayValued" option (bug #62468)
* quadgk.m: Add "ArrayValued" option to docstring. Re-phrase bits of existing
documentation for clarity. Rename input validation variable "str" to "prop"
for clarity. Add decode for "arrayvalued" property. If limits of integration
are high to low then reverse them in function rather than recursively calling
quadgk(). Add FIXME note about missing input validation for several properties.
Delete variable 'h0' which was never used. New code branch if "ArrayValued"
is true which uses same code strategy as for normal quadgk, but subfunction
__quadgk_eval_array__ for evaluating the function in a vectorized manner.
Add BIST tests for "ArrayValued" input.
* quadgk.m (__quadgk_eval__): Eliminate "too_close" output and code to
calculate "too_close" which was never used.
* quadgk.m (__quadgk_eval_array__): New subfunction.
author | Michael Leitner <michael.leitner@frm2.tum.de>, Rik <rik@octave.org> |
---|---|
date | Thu, 02 Jun 2022 08:45:10 -0700 |
parents | 8b548f2f8086 |
children |
line wrap: on
line source
#!/usr/bin/perl -w ################################################################################ ## File: inplace_edit.pl ## Usage: perl inplace_edit.pl 'PERL_CODE' file1 [file2] [...] ## Purpose: Run snippet of PERL_CODE on each line in a file and replace ## existing line with the results of running the code. ## This replaces perl -i -pe 'PERL_CODE' file1 [file2] ... ## due to a problem in Perl 5.28 which restricts the number of files ################################################################################ ## Create Perl code from first argument (-e CODE) eval "sub per_line_code { $ARGV[0]; }"; shift @ARGV; ## Loop over each file foreach $fname (@ARGV) { rename ($fname, "$fname.$$") or die "Rename failed:$fname:$!"; open (my $FHI, "<", "$fname.$$") or die "Open failed:$fname.$$:$!"; open (my $FHO, ">", "$fname") or die "Open failed:$fname:$!"; ## Loop over each line while (<$FHI>) { per_line_code (); print $FHO $_; } close ($FHI); close ($FHO); unlink "$fname.$$" or die "Delete failed:$fname.$$:$!"; }