www.gusucode.com > wavelet工具箱matlab源码程序 > wavelet/wavelet/blockdatamngr.m
function varargout = blockdatamngr(block_OPT,varargin) %BLOCKDATAMNGR Manage data blocks (Structures and Objects). % VARARGOUT = BLOCKDATAMNGR(OPT,VARARGIN) % Valid options OPT are 'set' and 'get'. % M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 31-May-2006. % Last Revision: 26-Sep-2006. % Copyright 1995-2006 The MathWorks, Inc. nbIN = length(varargin); if ishandle(varargin{1}) fig = varargin{1}; block_Name = varargin{2}; block_DATA = wtbxappdata('get',fig,block_Name); last = 2; else block_DATA = varargin{1}; last = 1; end first = last+1; switch block_OPT case 'get' if nbIN<first , varargout{1} = block_DATA; return; end [varargout{1:nbIN-last}] = ... wgfields(Inf,block_DATA,varargin{first:end}); case 'set' if nbIN>first block_DATA = wsfields(block_DATA,varargin{first:end}); else block_DATA = varargin{first}; end varargout{1} = block_DATA; if last==2 , wtbxappdata('set',fig,block_Name,block_DATA); end end