Mercurial > octave

diff scripts/ode/private/check_default_input.m @ 30893:e1788b1a315f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Use "fcn" as preferred abbreviation for "function" in m-files. * accumarray.m, accumdim.m, quadl.m, quadv.m, randi.m, structfun.m, __is_function__.m, uigetfile.m, uimenu.m, uiputfile.m, doc_cache_create.m, colorspace_conversion_input_check.m, imageIO.m, argnames.m, vectorize.m, vectorize.m, normest1.m, inputname.m, nthargout.m, display_info_file.m, decic.m, ode15i.m, ode15s.m, ode23.m, ode23s.m, ode45.m, odeset.m, check_default_input.m, integrate_adaptive.m, ode_event_handler.m, runge_kutta_23.m, runge_kutta_23s.m, runge_kutta_45_dorpri.m, runge_kutta_interpolate.m, starting_stepsize.m, __all_opts__.m, fminbnd.m, fminsearch.m, fminunc.m, fsolve.m, fzero.m, sqp.m, fplot.m, plotyy.m, __bar__.m, __ezplot__.m, flat_entry.html, profexport.m, movfun.m, bicg.m, bicgstab.m, cgs.m, eigs.m, gmres.m, pcg.m, __alltohandles__.m, __sprand__.m, qmr.m, tfqmr.m, dump_demos.m: Replace "func", "fun", "fn" in documentation and variable names with "fcn".
author Rik <rik@octave.org>
date Mon, 04 Apr 2022 18:14:56 -0700
parents 796f54d4ddbf
children c8ad083a5802
line wrap: on
line diff
--- a/scripts/ode/private/check_default_input.m	Mon Apr 04 11:22:26 2022 -0700
+++ b/scripts/ode/private/check_default_input.m	Mon Apr 04 18:14:56 2022 -0700
@@ -23,30 +23,30 @@
 ##
 ########################################################################
 
-function fun = check_default_input (fun, trange, solver, y0, yp0);
+function fcn = check_default_input (fcn, trange, solver, y0, yp0);
 
   if (nargin < 4)
     print_usage ();
   endif
 
-  ## Check fun
-  validateattributes (fun, {"function_handle", "char"}, {}, solver, "fun");
+  ## Check fcn
+  validateattributes (fcn, {"function_handle", "char"}, {}, solver, "fcn");
 
-  if (! (nargin (fun) == nargin - 2))
+  if (! (nargin (fcn) == nargin - 2))
     error ("Octave:invalid-input-arg",
-           [solver ": invalid value assigned to field 'fun'"]);
+           [solver ": invalid value assigned to field 'fcn'"]);
   endif
 
-  if (ischar (fun))
-    if (! exist (fun))
+  if (ischar (fcn))
+    if (! exist (fcn))
       error ("Octave:invalid-input-arg",
-             [solver ": function '" fun "' not found"]);
+             [solver ": function '" fcn "' not found"]);
     endif
-    fun = str2func (fun);
+    fcn = str2func (fcn);
   endif
-  if (! is_function_handle (fun))
+  if (! is_function_handle (fcn))
     error ("Octave:invalid-input-arg",
-           [solver ": invalid value assigned to field '" fun "'"]);
+           [solver ": invalid value assigned to field '" fcn "'"]);
   endif
 
   ## Check trange
@@ -74,10 +74,10 @@
     endif
     yp0 = yp0(:);
 
-    n = numel (feval (fun, trange(1), y0, yp0));
+    n = numel (feval (fcn, trange(1), y0, yp0));
     validateattributes (yp0, {"float"}, {"numel", n}, solver, "yp0");
   else
-    n = numel (feval (fun, trange (1), y0));
+    n = numel (feval (fcn, trange(1), y0));
   endif
 
   validateattributes (y0, {"float"}, {"numel", n}, solver, "y0");