Mercurial > octave-nkf
view scripts/audio/@audiorecorder/set.m @ 19731:4197fc428c7d
maint: Update copyright notices for 2015.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 11 Feb 2015 14:19:08 -0500 |
parents | 72304a4e010a |
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} {} set (@var{recorder}, @var{name}, @var{value}) ## @deftypefnx {Function File} {} set (@var{recorder}, @var{properties}) ## @deftypefnx {Function File} {@var{properties} =} set (@var{recorder}) ## Set the value of property specified by @var{name} to a given @var{value}. ## If @var{name} and @var{value} are cell arrays of the same size, ## set each property to a corresponding value. ## Given a structure with fields corresponding to property names, set ## the value of those properties to the corresponding field values. ## Given only the recorder object, return a structure of settable ## properties. ## @end deftypefn function settable = set (varargin) if (nargin < 1 || nargin > 3) print_usage (); endif recorder = struct (varargin{1}).recorder; if (nargin == 1) settable.SampleRate = {}; settable.Tag = {}; settable.UserData = {}; elseif (nargin == 2) for [value, property] = varargin{2} setproperty (recorder, property, value); endfor elseif (nargin == 3) if (iscell (varargin{2})) index = 1; for property = varargin{2} setproperty (recorder, char (property), varargin{3}{index}); index = index + 1; endfor else setproperty (recorder, varargin{2}, varargin{3}); endif endif endfunction function setproperty (recorder, property, value) switch (property) case "SampleRate" __recorder_set_fs__ (recorder, value); case "Tag" __recorder_set_tag__ (recorder, value); case "UserData" __recorder_set_userdata__ (recorder, value); otherwise error ("@audiorecorder/set: no such property or the property specified is read-only"); endswitch endfunction