Mercurial > octave
diff scripts/help/which.m @ 8575:f134925a1cfa
m-file implementation of help system
author | Soren Hauberg <soren@hauberg.org> |
---|---|
date | Thu, 22 Jan 2009 18:22:52 -0500 |
parents | |
children | 2a49c32d4322 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scripts/help/which.m Thu Jan 22 18:22:52 2009 -0500 @@ -0,0 +1,48 @@ +## Copyright (C) 2009 John W. Eaton +## +## This program 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. +## +## This program 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 this program; see the file COPYING. If not, see +## <http://www.gnu.org/licenses/>. + +## -*- texinfo -*- +## @deffn {Command} which name @dots{} +## Display the type of each @var{name}. If @var{name} is defined from a +## function file, the full name of the file is also displayed. +## @seealso{help, lookfor} +## @end deffn + +## PKG_ADD: mark_as_command which + +function varargout = which (varargin) + + if (nargin > 0 && iscellstr (varargin)) + m = __which__ (varargin{:}); + + if (nargout == 0) + for i = 1:nargin + if (isempty (m(i).file)) + printf ("`%s' is a %s function\n", + m(i).name, m(i).type); + else + printf ("`%s' is a %s from the file %s\n", + m(i).name, m(i).type, m(i).file); + endif + endfor + else + varargout = {m.file}; + endif + else + print_usage (); + endif + +endfunction