# HG changeset patch # User Rik # Date 1669441123 28800 # Node ID c58f0f6ae20750209f8a9c4a72a97397f2b1216d # Parent 212cc32100f5d32df1251b94025c826f1e70b29a# Parent ed7b17c7ddf3f1b8d569d1c536a337fba528e9dd maint: merge stable to default diff -r 212cc32100f5 -r c58f0f6ae207 doc/interpreter/doccheck/README --- a/doc/interpreter/doccheck/README Fri Nov 25 13:58:54 2022 -0500 +++ b/doc/interpreter/doccheck/README Fri Nov 25 21:38:43 2022 -0800 @@ -59,7 +59,7 @@ Make corrections to the source files, *not* arith.texi which is derived. There are generally three choices for resolving a reported misspelling: - + 1. The word is misspelled and should be corrected in the source. 2. The word should not be checked for spelling (for example, it might be a proper name such as "Lanczos"). Use the @nospell{...} macro around diff -r 212cc32100f5 -r c58f0f6ae207 doc/interpreter/external.txi --- a/doc/interpreter/external.txi Fri Nov 25 13:58:54 2022 -0500 +++ b/doc/interpreter/external.txi Fri Nov 25 21:38:43 2022 -0800 @@ -2081,7 +2081,6 @@ @end example - @node Set up the JVM @subsection Set up the JVM @cindex memory, limitations on JVM @@ -2174,7 +2173,6 @@ @seealso{javamem} - @node Java Interface Functions @subsection Java Interface Functions diff -r 212cc32100f5 -r c58f0f6ae207 doc/interpreter/oop.txi --- a/doc/interpreter/oop.txi Fri Nov 25 13:58:54 2022 -0500 +++ b/doc/interpreter/oop.txi Fri Nov 25 21:38:43 2022 -0800 @@ -816,8 +816,6 @@ @end group @end example - - In contrast to old style classes, the @code{properties}-@code{endproperties} block as well as the @code{methods}-@code{endmethods} block can be used to define properties and methods of the class. Because both blocks are empty, diff -r 212cc32100f5 -r c58f0f6ae207 etc/NEWS.6.md --- a/etc/NEWS.6.md Fri Nov 25 13:58:54 2022 -0500 +++ b/etc/NEWS.6.md Fri Nov 25 21:38:43 2022 -0800 @@ -482,7 +482,7 @@ Function | Replacement -----------------|------------------ - runtests | oruntests + runtests | oruntests - Properties diff -r 212cc32100f5 -r c58f0f6ae207 etc/RELEASE_CHECKLIST.md --- a/etc/RELEASE_CHECKLIST.md Fri Nov 25 13:58:54 2022 -0500 +++ b/etc/RELEASE_CHECKLIST.md Fri Nov 25 21:38:43 2022 -0800 @@ -14,7 +14,7 @@ ### ⚙️ Update gnulib to latest version ### -Completion Date: +Completion Date: **Must occur first** as it could resolve existing, or create new, bug reports. You should run `./bootstrap` in the source tree after updating to the new gnulib version. diff -r 212cc32100f5 -r c58f0f6ae207 libgui/graphics/Table.h --- a/libgui/graphics/Table.h Fri Nov 25 13:58:54 2022 -0500 +++ b/libgui/graphics/Table.h Fri Nov 25 21:38:43 2022 -0800 @@ -96,8 +96,6 @@ octave_value new_value, octave_value edit_data, octave_value error); void checkBoxClicked (int row, int col, QCheckBox* checkBox); - - }; } diff -r 212cc32100f5 -r c58f0f6ae207 libgui/languages/build_ts/README.md --- a/libgui/languages/build_ts/README.md Fri Nov 25 13:58:54 2022 -0500 +++ b/libgui/languages/build_ts/README.md Fri Nov 25 21:38:43 2022 -0800 @@ -10,7 +10,7 @@ - `libgui/languages/build_ts/update_ts_files` -which also determines the required search paths for each language. +which also determines the required search paths for each language. Besides source folders within `libgui`, the search path is extended by some qt and qsci files, collected in `libgui/build_ts/octave-qt` and `libgui/build_ts/octave-qsci` respectively, whenever there are no translation files for the language from Qt or QsciScintilla. diff -r 212cc32100f5 -r c58f0f6ae207 libgui/src/command-widget.cc --- a/libgui/src/command-widget.cc Fri Nov 25 13:58:54 2022 -0500 +++ b/libgui/src/command-widget.cc Fri Nov 25 21:38:43 2022 -0800 @@ -303,4 +303,4 @@ } -#endif \ No newline at end of file +#endif diff -r 212cc32100f5 -r c58f0f6ae207 libgui/src/documentation.cc --- a/libgui/src/documentation.cc Fri Nov 25 13:58:54 2022 -0500 +++ b/libgui/src/documentation.cc Fri Nov 25 21:38:43 2022 -0800 @@ -984,8 +984,6 @@ return retval; } - - // // The documentation browser // diff -r 212cc32100f5 -r c58f0f6ae207 libgui/src/gui-preferences-ed.h --- a/libgui/src/gui-preferences-ed.h Fri Nov 25 13:58:54 2022 -0500 +++ b/libgui/src/gui-preferences-ed.h Fri Nov 25 21:38:43 2022 -0800 @@ -165,8 +165,6 @@ const gui_pref ed_show_hscroll_bar ("editor/show_hscroll_bar", QVariant (true)); - - // Octave comment strings const gui_pref diff -r 212cc32100f5 -r c58f0f6ae207 libgui/src/led-indicator.cc --- a/libgui/src/led-indicator.cc Fri Nov 25 13:58:54 2022 -0500 +++ b/libgui/src/led-indicator.cc Fri Nov 25 21:38:43 2022 -0800 @@ -77,4 +77,4 @@ return style; } -} \ No newline at end of file +} diff -r 212cc32100f5 -r c58f0f6ae207 libgui/src/led-indicator.h --- a/libgui/src/led-indicator.h Fri Nov 25 13:58:54 2022 -0500 +++ b/libgui/src/led-indicator.h Fri Nov 25 21:38:43 2022 -0800 @@ -58,4 +58,4 @@ }; } -#endif \ No newline at end of file +#endif diff -r 212cc32100f5 -r c58f0f6ae207 libinterp/corefcn/besselj.cc --- a/libinterp/corefcn/besselj.cc Fri Nov 25 13:58:54 2022 -0500 +++ b/libinterp/corefcn/besselj.cc Fri Nov 25 21:38:43 2022 -0800 @@ -472,7 +472,7 @@ %!# Function besseli is tested along with other bessels at the end of this file ## besseli specific BIST -%!assert (! isinf (besseli (0, 700))) +%!assert (! isinf (besseli (0, 700))) */ diff -r 212cc32100f5 -r c58f0f6ae207 liboctave/array/Array.h --- a/liboctave/array/Array.h Fri Nov 25 13:58:54 2022 -0500 +++ b/liboctave/array/Array.h Fri Nov 25 21:38:43 2022 -0800 @@ -635,7 +635,7 @@ reshape (octave_idx_type nr, octave_idx_type nc) const { return Array (*this, dim_vector (nr, nc)); } - OCTARRAY_OVERRIDABLE_FUNC_API Array + OCTARRAY_OVERRIDABLE_FUNC_API Array reshape (const dim_vector& new_dims) const { return Array (*this, new_dims); } diff -r 212cc32100f5 -r c58f0f6ae207 liboctave/numeric/LSODE.cc --- a/liboctave/numeric/LSODE.cc Fri Nov 25 13:58:54 2022 -0500 +++ b/liboctave/numeric/LSODE.cc Fri Nov 25 21:38:43 2022 -0800 @@ -81,7 +81,7 @@ } static F77_INT -lsode_j (const F77_INT& neq, const double& time, double *, +lsode_j (const F77_INT& neq, const double& time, double *, const F77_INT& ml, const F77_INT& mu, double *pd, const F77_INT& nrowpd) { @@ -102,8 +102,8 @@ for (F77_INT i = 0, j = mu; i <= ml; j == 0 ? i++ : j--) // walk down the subdiagonal in tmp_jac for (F77_INT k = i, l = j; k < neq && l < neq; k++, l++) - pd[nrowpd * l + k + mu - l] = tmp_jac (k, l); - + pd[nrowpd * l + k + mu - l] = tmp_jac (k, l); + return 0; } diff -r 212cc32100f5 -r c58f0f6ae207 liboctave/numeric/lo-specfun.cc --- a/liboctave/numeric/lo-specfun.cc Fri Nov 25 13:58:54 2022 -0500 +++ b/liboctave/numeric/lo-specfun.cc Fri Nov 25 21:38:43 2022 -0800 @@ -125,8 +125,6 @@ return retval; } - - Complex airy (const Complex& z, bool deriv, bool scaled, octave_idx_type& ierr) { diff -r 212cc32100f5 -r c58f0f6ae207 scripts/+containers/Map.m --- a/scripts/+containers/Map.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/+containers/Map.m Fri Nov 25 21:38:43 2022 -0800 @@ -230,6 +230,7 @@ else error ("containers.Map: incorrect number of inputs specified"); endif + endfunction function keySet = keys (this) @@ -241,6 +242,7 @@ keySet = fieldnames (this.map).'; # compatibility requires row vector keySet = decode_keys (this, keySet); + endfunction function valueSet = values (this, keySet) @@ -271,6 +273,7 @@ end_try_catch endfor endif + endfunction function tf = isKey (this, keySet) @@ -299,6 +302,7 @@ endif keySet = encode_keys (this, keySet(in)); tf(in) = isfield (this.map, keySet); + endfunction function this = remove (this, keySet) @@ -327,6 +331,7 @@ keySet = encode_keys (this, keySet(in)); in = isfield (this.map, keySet); this.map = rmfield (this.map, keySet(in)); + endfunction function varargout = size (this, n) @@ -359,6 +364,7 @@ varargout = { 1 }; endif endif + endfunction function len = length (this) @@ -369,6 +375,7 @@ ## @end deftypefn len = double (this.Count); + endfunction function tf = isempty (this) diff -r 212cc32100f5 -r c58f0f6ae207 scripts/+matlab/+lang/MemoizedFunction.m --- a/scripts/+matlab/+lang/MemoizedFunction.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/+matlab/+lang/MemoizedFunction.m Fri Nov 25 21:38:43 2022 -0800 @@ -202,10 +202,12 @@ endclassdef function cache = init_cache () + cache = struct ("Inputs", {{}}, "Nargout", [], "Outputs", {{}}, "HitCount", [], "TotalHits", 0, "TotalMisses", 0); + endfunction diff -r 212cc32100f5 -r c58f0f6ae207 scripts/audio/@audioplayer/set.m --- a/scripts/audio/@audioplayer/set.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/audio/@audioplayer/set.m Fri Nov 25 21:38:43 2022 -0800 @@ -114,5 +114,5 @@ ## Test input validation %!testif HAVE_PORTAUDIO; audiodevinfo (0) > 0 %! player = audioplayer ([-1, 1], 44100, 8); -%! fail ('set (player, "foobar", 1)', "not a valid property name"); -%! fail ('set (player, "Running", 1)', "is read-only"); +%! fail ('set (player, "foobar", 1)', "not a valid property name"); +%! fail ('set (player, "Running", 1)', "is read-only"); diff -r 212cc32100f5 -r c58f0f6ae207 scripts/audio/@audiorecorder/audiorecorder.m --- a/scripts/audio/@audiorecorder/audiorecorder.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/audio/@audiorecorder/audiorecorder.m Fri Nov 25 21:38:43 2022 -0800 @@ -80,7 +80,7 @@ if (nargin > 0 && (is_function_handle (varargin{1}) || ischar (varargin{1}))) error ("audiorecorder: first argument cannot be a callback function"); endif - + ## FIXME: Uncomment when callback functions are supported. ## if (nargin > 0 && ischar (varargin{1})) ## varargin{1} = str2func (varargin{1}); diff -r 212cc32100f5 -r c58f0f6ae207 scripts/audio/@audiorecorder/getaudiodata.m --- a/scripts/audio/@audiorecorder/getaudiodata.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/audio/@audiorecorder/getaudiodata.m Fri Nov 25 21:38:43 2022 -0800 @@ -56,7 +56,7 @@ case "uint8" data = uint8 ((data + 1.0) * 0.5 * (2.0 ^ 8 - 1)); otherwise - error ('@audiorecorder/getaudiodata: invalid DATATYPE "%s"', datatype) + error ('@audiorecorder/getaudiodata: invalid DATATYPE "%s"', datatype); endswitch endif diff -r 212cc32100f5 -r c58f0f6ae207 scripts/audio/@audiorecorder/play.m --- a/scripts/audio/@audiorecorder/play.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/audio/@audiorecorder/play.m Fri Nov 25 21:38:43 2022 -0800 @@ -35,7 +35,7 @@ ## ## If the optional argument @var{end} is provided, stop playing at ## @var{end} seconds into the recording. -## @seealso{@audiorecorder/getplayer, @audioplayer/audioplayer, +## @seealso{@audiorecorder/getplayer, @audioplayer/audioplayer, ## @audiorecorder/audiorecorder} ## @end deftypefn diff -r 212cc32100f5 -r c58f0f6ae207 scripts/audio/@audiorecorder/set.m --- a/scripts/audio/@audiorecorder/set.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/audio/@audiorecorder/set.m Fri Nov 25 21:38:43 2022 -0800 @@ -117,5 +117,5 @@ ## Test input validation %!testif HAVE_PORTAUDIO; audiodevinfo (1) > 0 %! recorder = audiorecorder (); -%! fail ('set (recorder, "foobar", 1)', "not a valid property name"); -%! fail ('set (recorder, "Running", 1)', "is read-only"); +%! fail ('set (recorder, "foobar", 1)', "not a valid property name"); +%! fail ('set (recorder, "Running", 1)', "is read-only"); diff -r 212cc32100f5 -r c58f0f6ae207 scripts/geometry/delaunayn.m --- a/scripts/geometry/delaunayn.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/geometry/delaunayn.m Fri Nov 25 21:38:43 2022 -0800 @@ -171,6 +171,7 @@ endif endif + endfunction diff -r 212cc32100f5 -r c58f0f6ae207 scripts/gui/movegui.m --- a/scripts/gui/movegui.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/gui/movegui.m Fri Nov 25 21:38:43 2022 -0800 @@ -199,8 +199,7 @@ endif ## Move figure - set (h, "units", "pixels"); - set (h, "position", fpos); + set (h, "units", "pixels", "position", fpos); set (h, "units", units_fig); endfunction diff -r 212cc32100f5 -r c58f0f6ae207 scripts/help/__unimplemented__.m --- a/scripts/help/__unimplemented__.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/help/__unimplemented__.m Fri Nov 25 21:38:43 2022 -0800 @@ -578,6 +578,7 @@ endfunction function rlist = missing_functions () + persistent list = { "addboundary", "addcats", @@ -659,7 +660,6 @@ "circumcenter", "circumcenters", "classUnderlying", - "clearAllMemoizedCaches", "clearCache", "clearpoints", "clipboard", @@ -981,7 +981,6 @@ "MaximizeCommandWindow", "maxk", "memmapfile", - "memoize", "MemoizedFunction", "mergecats", "meta.abstractDetails", @@ -1251,7 +1250,6 @@ "uiconfirm", "uidropdown", "uieditfield", - "uifigure", "uigauge", "uigetpref", "uiimport", @@ -1275,7 +1273,6 @@ "uitree", "uitreenode", "undocheckout", - "uniquetol", "unloadlibrary", "unmesh", "unregisterallevents", diff -r 212cc32100f5 -r c58f0f6ae207 scripts/legacy/__vectorize__.m --- a/scripts/legacy/__vectorize__.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/legacy/__vectorize__.m Fri Nov 25 21:38:43 2022 -0800 @@ -33,7 +33,7 @@ ## anyway, and most expressions will probably be short. It may also be ## buggy. Well, don't use this function! -function new_expr = __vectorize__ (expr); +function new_expr = __vectorize__ (expr) new_expr = ""; diff -r 212cc32100f5 -r c58f0f6ae207 scripts/miscellaneous/inputParser.m --- a/scripts/miscellaneous/inputParser.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/miscellaneous/inputParser.m Fri Nov 25 21:38:43 2022 -0800 @@ -236,6 +236,7 @@ endif this.validate_name ("Required", name); this.Required{end+1} = struct ("name", name, "val", val); + endfunction function addOptional (this, name, def, val = inputParser.def_val) @@ -279,6 +280,7 @@ def = {def}; endif this.Optional{end+1} = struct ("name", name, "def", def, "val", val); + endfunction function addParamValue (this, name, def, val = inputParser.def_val) @@ -298,6 +300,7 @@ print_usage (); endif this.addParameter (name, def, val); + endfunction function addParameter (this, name, def, varargin) @@ -348,6 +351,7 @@ this.validate_name ("Parameter", name); this.Parameter.(name).def = def; this.Parameter.(name).val = val; + endfunction function addSwitch (this, name) @@ -376,6 +380,7 @@ endif this.validate_name ("Switch", name); this.Switch.(name).def = false; + endfunction function parse (this, varargin) diff -r 212cc32100f5 -r c58f0f6ae207 scripts/miscellaneous/private/__publish_latex_output__.m --- a/scripts/miscellaneous/private/__publish_latex_output__.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/miscellaneous/private/__publish_latex_output__.m Fri Nov 25 21:38:43 2022 -0800 @@ -213,6 +213,7 @@ endfunction function outstr = do_section (str) + outstr = sprintf ("%s\n", "", "", @@ -220,6 +221,7 @@ ['\addcontentsline{toc}{section}{' str '}'], ['\subsection*{' str '}'], ""); + endfunction function outstr = do_preformatted_code (str) diff -r 212cc32100f5 -r c58f0f6ae207 scripts/miscellaneous/publish.m --- a/scripts/miscellaneous/publish.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/miscellaneous/publish.m Fri Nov 25 21:38:43 2022 -0800 @@ -451,6 +451,7 @@ endif return; + endfunction ## Checks line of cellstring to be a paragraph line is_paragraph = @(cstr) is_publish_markup (cstr, 1); diff -r 212cc32100f5 -r c58f0f6ae207 scripts/miscellaneous/unpack.m --- a/scripts/miscellaneous/unpack.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/miscellaneous/unpack.m Fri Nov 25 21:38:43 2022 -0800 @@ -318,6 +318,7 @@ files = char (output(2:end)); ## Trim constant width prefix and return cell array. files = cellstr (files(:,14:end)); + endfunction function output = __parse_tar__ (output) diff -r 212cc32100f5 -r c58f0f6ae207 scripts/ode/private/check_default_input.m --- a/scripts/ode/private/check_default_input.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/ode/private/check_default_input.m Fri Nov 25 21:38:43 2022 -0800 @@ -23,7 +23,7 @@ ## ######################################################################## -function fcn = check_default_input (fcn, trange, solver, y0, yp0); +function fcn = check_default_input (fcn, trange, solver, y0, yp0) if (nargin < 4) print_usage (); diff -r 212cc32100f5 -r c58f0f6ae207 scripts/ode/private/integrate_adaptive.m --- a/scripts/ode/private/integrate_adaptive.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/ode/private/integrate_adaptive.m Fri Nov 25 21:38:43 2022 -0800 @@ -218,7 +218,7 @@ iout += iadd; output_x(:, iout) = ode_x(:, istep); output_t(iout) = ode_t(istep); - end + endif ## Call OutputFcn if ((options.haveoutputfunction) && (iadd > 0)) diff -r 212cc32100f5 -r c58f0f6ae207 scripts/optimization/fminbnd.m --- a/scripts/optimization/fminbnd.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/optimization/fminbnd.m Fri Nov 25 21:38:43 2022 -0800 @@ -289,6 +289,7 @@ ## A hack for printing a formatted table function print_formatted_table (table) + printf ("\n Fcn-count x f(x) Procedure\n"); for row=table printf ("%5.5s %7.7s %8.8s\t%s\n", @@ -296,6 +297,7 @@ num2str (row.fx,"%.6f"), row.procedure); endfor printf ("\n"); + endfunction ## Print either a success termination message or bad news diff -r 212cc32100f5 -r c58f0f6ae207 scripts/pkg/pkg.m --- a/scripts/pkg/pkg.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/pkg/pkg.m Fri Nov 25 21:38:43 2022 -0800 @@ -760,7 +760,7 @@ localflag = any (strcmp (varargin, "-local")); if (globalflag || localflag) if (globalflag && localflag) - error ("pkg: cannot specify both global and local options.") + error ("pkg: cannot specify both global and local options."); elseif (globalflag) [~, installed_pkgs_lst] = installed_packages (local_list, global_list); else diff -r 212cc32100f5 -r c58f0f6ae207 scripts/plot/draw/patch.m --- a/scripts/plot/draw/patch.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/plot/draw/patch.m Fri Nov 25 21:38:43 2022 -0800 @@ -84,7 +84,7 @@ if (! isempty (hax)) hax = hax(1); - endif + endif htmp = __patch__ (hax, varargin{:}); diff -r 212cc32100f5 -r c58f0f6ae207 scripts/plot/util/private/__add_default_menu__.m --- a/scripts/plot/util/private/__add_default_menu__.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/plot/util/private/__add_default_menu__.m Fri Nov 25 21:38:43 2022 -0800 @@ -273,6 +273,7 @@ endfunction function init_mouse_tools (hf) + set (hf, "__pan_mode__", struct ("Enable", "off", "Motion", "both", "FigureHandle", hf), @@ -283,6 +284,7 @@ "Motion", "both", "Direction", "in", "FigureHandle", hf)); + endfunction function guimode_cb (h, ~) diff -r 212cc32100f5 -r c58f0f6ae207 scripts/specfun/betaincinv.m --- a/scripts/specfun/betaincinv.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/specfun/betaincinv.m Fri Nov 25 21:38:43 2022 -0800 @@ -209,7 +209,7 @@ endfunction -function x = newton_method (F, JF, x, a, b, y); +function x = newton_method (F, JF, x, a, b, y) Bln = betaln (a, b); ## Exclude special values that have been already computed. diff -r 212cc32100f5 -r c58f0f6ae207 scripts/specfun/factor.m --- a/scripts/specfun/factor.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/specfun/factor.m Fri Nov 25 21:38:43 2022 -0800 @@ -126,7 +126,7 @@ ## recursion. if (! isprime (pr)) pr = factor (pr); - end + endif [pf, q] = reducefactors (q, pf, pr); ## q is now divided by all occurrences of factor(s) pr. diff -r 212cc32100f5 -r c58f0f6ae207 scripts/specfun/gammainc.m --- a/scripts/specfun/gammainc.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/specfun/gammainc.m Fri Nov 25 21:38:43 2022 -0800 @@ -246,15 +246,18 @@ ## x == 0, a == 0. function y = gammainc_00 (tail) + if (strcmp (tail, "upper") || strcmp (tail, "scaledupper")) y = 0; else y = 1; endif + endfunction ## x == 0. function y = gammainc_x0 (tail) + if (strcmp (tail, "lower")) y = 0; elseif (strcmp (tail, "upper") || strcmp (tail, "scaledlower")) @@ -262,10 +265,12 @@ else y = Inf; endif + endfunction ## x == Inf. function y = gammainc_x_inf (tail) + if (strcmp (tail, "lower")) y = 1; elseif (strcmp (tail, "upper") || strcmp (tail, "scaledupper")) @@ -273,10 +278,12 @@ else y = Inf; endif + endfunction ## a == Inf. function y = gammainc_a_inf (tail) + if (strcmp (tail, "lower")) y = 0; elseif (strcmp (tail, "upper") || strcmp (tail, "scaledlower")) @@ -284,10 +291,12 @@ else y = Inf; endif + endfunction ## a == 0. function y = gammainc_a0 (x, tail) + if (strcmp (tail, "lower")) y = 1; elseif (strcmp (tail, "scaledlower")) @@ -295,6 +304,7 @@ else y = 0; endif + endfunction ## a == 1. diff -r 212cc32100f5 -r c58f0f6ae207 scripts/specfun/gammaincinv.m --- a/scripts/specfun/gammaincinv.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/specfun/gammaincinv.m Fri Nov 25 21:38:43 2022 -0800 @@ -255,7 +255,7 @@ endfunction ## subfunction: Newton's Method -function x = newton_method (F, JF, y, a, x0, tol, maxit); +function x = newton_method (F, JF, y, a, x0, tol, maxit) l = numel (y); res = -F (y, a, x0) ./ JF (a, x0); diff -r 212cc32100f5 -r c58f0f6ae207 scripts/special-matrix/gallery.m --- a/scripts/special-matrix/gallery.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/special-matrix/gallery.m Fri Nov 25 21:38:43 2022 -0800 @@ -1213,6 +1213,7 @@ endfunction function c = gcdmat (n) + if (nargin != 1) error ("gallery: 1 argument is required for gcdmat matrix"); elseif (! isscalar (n) || ! isnumeric (n) || fix (n) != n) diff -r 212cc32100f5 -r c58f0f6ae207 scripts/special-matrix/hadamard.m --- a/scripts/special-matrix/hadamard.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/special-matrix/hadamard.m Fri Nov 25 21:38:43 2022 -0800 @@ -166,6 +166,7 @@ 1 -1 1 1 -1 1 1 -1 -1 -1 1 -1 1 1 1 -1 1 1 1 -1 -1 1 -1 -1 1 -1 -1 -1 1 1 1 -1 -1 1 -1 -1 1 -1 1 -1 1 1 -1 1 -1 1 -1 1 -1 -1 1 1 -1 -1 -1 1 1 -1 1 1 -1 -1 1 1 -1 -1 -1 1 -1 -1 1 1 -1 1 1 1 -1 -1 1 1 -1 -1 1 -1]; + endfunction diff -r 212cc32100f5 -r c58f0f6ae207 scripts/web/weboptions.m --- a/scripts/web/weboptions.m Fri Nov 25 13:58:54 2022 -0500 +++ b/scripts/web/weboptions.m Fri Nov 25 21:38:43 2022 -0800 @@ -251,7 +251,7 @@ endfunction function f = set.CharacterEncoding (f, value) - if (! any (strcmpi (value, {"UTF-8", 'US-ASCII', "auto"}))); + if (! any (strcmpi (value, {"UTF-8", 'US-ASCII', "auto"}))) error ("weboptions: Invalid CharacterEncoding value"); else f.CharacterEncoding = value; @@ -259,7 +259,7 @@ endfunction function f = set.UserAgent (f, value) - if (! ischar (value) && ! isrow (value)); + if (! ischar (value) && ! isrow (value)) error ("weboptions: UserAgent must be a string"); else f.UserAgent = value; @@ -308,6 +308,7 @@ endfunction function f = set.HeaderFields (f, value) + if (! isempty (value)) if (! iscellstr (value) || ! ismatrix (value)) error ("weboptions: HeaderFields must be array of strings or a cell array"); @@ -316,6 +317,7 @@ endif endif f.HeaderFields = value; + endfunction function f = set.ContentType (f, value) @@ -336,6 +338,7 @@ endfunction function f = set.RequestMethod (f, value) + if (! isempty (value)) if (! any (strcmpi (value, {"auto", "get", "put", "post",... "delete", "patch"}))) @@ -343,6 +346,7 @@ endif endif f.RequestMethod = value; + endfunction function f = set.ArrayFormat (f, value) diff -r 212cc32100f5 -r c58f0f6ae207 test/range.tst --- a/test/range.tst Fri Nov 25 13:58:54 2022 -0500 +++ b/test/range.tst Fri Nov 25 21:38:43 2022 -0800 @@ -79,9 +79,6 @@ %!assert ([ r ; uint32(z) ], uint32 (expect)) %!assert ([ r ; uint64(z) ], uint64 (expect)) - - - ## Test corner cases of ranges (base and limit) %!shared r, rrev, rneg