Mercurial > hg > octave-nkf
diff scripts/deprecated/iscommand.m @ 8746:5dd06f19e9be
handle commands in the lexer
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Sun, 15 Feb 2009 23:49:15 -0500 |
parents | |
children | fd0a3ac60b0e |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/scripts/deprecated/iscommand.m @@ -0,0 +1,44 @@ +## Copyright (C) 2009 John W. Eaton +## +## 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 {Built-in Function} {} iscommand (@var{name}) +## This function is obsolete and will be removed from a future +## version of Octave. +## @end deftypefn + +## Author: jwe + +## Deprecated in version 3.2 + +function retval = iscommand () + + persistent warned = false; + if (! warned) + warned = true; + warning ("Octave:deprecated-function", + "iscommand is obsolete and will be removed from a future version of Octave"); + endif + + if (nargin == 0) + retval = {}; + else + retval = true; + endif + +endfunction