Mercurial > octave-nkf
view scripts/miscellaneous/getappdata.m @ 12134:6c54ad0fde04 release-3-4-x ss-3-3-90
update copyright and version info for release branch
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Sat, 22 Jan 2011 13:50:32 -0500 |
parents | b0084095098e |
children | d0b799dafede |
line wrap: on
line source
## Copyright (C) 2010-2011 Ben Abbott ## ## 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 2 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 Octave; see the file COPYING. If not, see ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- ## @deftypefn {Function File} {@var{value} =} getappdata (@var{h}, @var{name}) ## Returns the @var{value} for named application data for the object(s) with ## handle(s) @var{h}. ## @end deftypefn ## Author: Ben Abbott <bpabbott@mac.com> ## Created: 2010-07-15 function val = getappdata (h, name) if (! (all (ishandle (h)) && ischar (name))) error ("getappdata: invalid input"); endif appdata(numel(h)) = struct(); for nh = 1:numel(h) appdata(nh) = get (h(nh), "__appdata__"); end if (nh > 1) val = {appdata.(name)}; else val = appdata.(name); endif endfunction