Mercurial > octave-antonio
view scripts/audio/@audioplayer/get.m @ 20170:af2b7695f1c4 draft default tip @
gallery.m: clean and vectorize part of qmult.
* scripts/special-matrix/gallery.m: make qmult() follow Octave guidelines, vectorize last for loop in qmult().
author | Antonio Pino Robles <data.script93@gmail.com> |
---|---|
date | Thu, 28 May 2015 18:32:47 +0200 |
parents | 4197fc428c7d |
children | 7503499a252b |
line wrap: on
line source
## Copyright (C) 2013-2015 Vytautas JanĨauskas ## ## 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 {Function File} {@var{value} =} get (@var{player}, @var{name}) ## @deftypefnx {Function File} {@var{values} =} get (@var{player}) ## Return the @var{value} of the property identified by @var{name}. ## If @var{name} is a cell array return the values of the properties ## identified by the elements of the cell array. Given only the ## player object, return a scalar structure with values of all ## properties of @var{player}. The field names of the structure ## correspond to property names. ## @end deftypefn function retval = get (varargin) if (nargin < 1 || nargin > 2) print_usage (); endif properties = __get_properties__ (varargin{1}); if (nargin == 1) retval = properties; elseif (nargin == 2) pnames = varargin{2}; if (ischar (pnames)) retval = getfield (properties, pnames); elseif (iscellstr (pnames)) retval = cell (size (pnames)); for i = 1:numel (pnames) retval{i} = getfield (properties, pnames{i}); endfor else error ("@audioplayer/get: invalid name argument"); endif endif endfunction