Mercurial > octave
view scripts/general/narginchk.m @ 21580:ecce63c99c3f
maint: Add semicolons to terminate code in %! blocks.
* splineimages.m, Cell.cc, bsxfun.cc, cellfun.cc, conv2.cc, data.cc,
debug.cc, file-io.cc, gcd.cc, getrusage.cc, graphics.cc, kron.cc, mappers.cc,
oct-map.cc, ordschur.cc, psi.cc, rand.cc, variables.cc, __osmesa_print__.cc,
amd.cc, audiodevinfo.cc, dmperm.cc, qr.cc, ov-bool-mat.cc, ov-class.cc,
ov-fcn-handle.cc, ov-java.cc, oct-parse.in.yy, bicubic.m, delaunay3.m,
accumarray.m, flip.m, fliplr.m, flipud.m, gradient.m, inputParser.m, interp1.m,
narginchk.m, rot90.m, validateattributes.m, delaunay.m, delaunayn.m,
griddata3.m, inpolygon.m, waitbar.m, gray2ind.m, hsv2rgb.m, im2double.m,
image.m, imformats.m, imread.m, imshow.m, imwrite.m, ntsc2rgb.m, rgb2hsv.m,
rgb2ntsc.m, isbanded.m, onenormest.m, edit.m, fullfile.m, license.m, ode23.m,
ode45.m, glpk.m, annotation.m, legend.m, orient.m, text.m, area.m, barh.m,
contour.m, line.m, plot.m, plot3.m, plotyy.m, quiver.m, stem.m, clf.m,
copyobj.m, findobj.m, subplot.m, ppval.m, splinefit.m, ismember.m, freqz.m,
unwrap.m, eigs.m, ichol.m, pcg.m, spdiags.m, svds.m, magic.m, lscov.m,
median.m, ols.m, dec2base.m, strsplit.m, strtok.m, test.m, bug-31371.tst,
bug-36025.tst, bug-44940.tst, build-sparse-tests.sh, class-concat.tst,
classdef.tst, classes.tst, colormaps.tst, command.tst, ctor-vs-method.tst,
error.tst, fcn-handle-derived-resolution.tst, for.tst, index.tst, io.tst,
jit.tst, null-assign.tst, parser.tst, struct.tst, system.tst:
Add semicolons to terminate code in %! blocks.
author | Rik <rik@octave.org> |
---|---|
date | Fri, 01 Apr 2016 16:03:29 -0700 |
parents | f7f97d7e9294 |
children | bac0d6f07a3e |
line wrap: on
line source
## Copyright (C) 2012-2015 Carnë Draug ## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 3 of the License, or (at ## your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- ## @deftypefn {} {} narginchk (@var{minargs}, @var{maxargs}) ## Check for correct number of input arguments. ## ## Generate an error message if the number of arguments in the calling function ## is outside the range @var{minargs} and @var{maxargs}. Otherwise, do ## nothing. ## ## Both @var{minargs} and @var{maxargs} must be scalar numeric values. Zero, ## Inf, and negative values are all allowed, and @var{minargs} and ## @var{maxargs} may be equal. ## ## Note that this function evaluates @code{nargin} on the caller. ## ## @seealso{nargoutchk, error, nargout, nargin} ## @end deftypefn ## Author: Carnë Draug <carandraug+dev@gmail.com> function narginchk (minargs, maxargs) if (nargin != 2) print_usage; elseif (! isnumeric (minargs) || ! isscalar (minargs)) error ("narginchk: minargs must be a numeric scalar"); elseif (! isnumeric (maxargs) || ! isscalar (maxargs)) error ("narginchk: maxargs must be a numeric scalar"); elseif (minargs > maxargs) error ("narginchk: minargs cannot be larger than maxargs"); endif args = evalin ("caller", "nargin;"); if (args < minargs) error ("narginchk: not enough input arguments"); elseif (args > maxargs) error ("narginchk: too many input arguments"); endif endfunction %!function f (nargs, varargin) %! narginchk (nargs(1), nargs(2)); %!endfunction %!error <too many input arguments> f([0,0]) %!error <not enough input arguments> f([3, 3], 1) %!test %! f([1,1]); %!test %! f([1,5], 2, 3, 4, 5);