Mercurial > hg > ltpda
view m-toolbox/classes/@plist/parse.m @ 35:4be5f7a5316f database-connection-manager
Suppress output messages on preferences loading and saving
author | Daniele Nicolodi <nicolodi@science.unitn.it> |
---|---|
date | Mon, 05 Dec 2011 16:20:06 +0100 |
parents | f0afece42f48 |
children |
line wrap: on
line source
% PARSE a plist for strings which can be converted into numbers %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % DESCRIPTION: PARSE a plist for strings which can be converted into numbers % depending on the default plist % % CALL: plo = parse(pl, dpl) % % EXAMPLE: pl = plist('x', '3', 'y', 'x+5', 'z', 'x-y') % dpl = plist('x', [], 'y', [], 'z', []) % % pl = plist('x', '1:12', 'y', 'randn(length(x),1)') % dpl = plist('x', [], 'y', [], 'z', []) % % VERSION: $Id: parse.m,v 1.17 2011/03/28 12:45:31 hewitson Exp $ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function ppl = parse(varargin) %%% Check if this is a call for parameters if utils.helper.isinfocall(varargin{:}) ppl = getInfo(varargin{3}); return end if nargin > 0 pl = varargin{1}; else error('### Input at least one plist.'); end if nargin > 1 dpl = varargin{2}; else dpl = plist(); end if isempty(pl) pl = plist(); end if isempty(dpl) dpl = plist(); end % combine pl = combine(pl); % in case we get more than one input plist ppl = combine(pl, dpl); % check each parameter and replace key names with upper-case key names matches = zeros(size(ppl.params)); for kk=1:numel(ppl.params) sval = ppl.params(kk).getVal; if ( ischar(sval) || isnumeric(sval) ) if ischar(sval) if ~isempty(dpl.params) dkeys = {dpl.params(:).key}; else dkeys = {''}; end if any(strcmp(ppl.params(kk).key, dkeys)) if isnumeric(find(dpl, ppl.params(kk).key)) % look for matching key strings for jj=1:numel(ppl.params) if jj ~= kk key = ppl.params(jj).key; % get words out of sval words = regexp(sval, '(\w+)', 'match'); wordidxs = regexp(sval, '(\w+)'); % do any of these words match the key? idx = strcmpi(words, key); for ll=1:numel(idx) if idx(ll) word = words{ll}; matches(kk) = 1; val = ppl.params(kk).getVal; sidx = wordidxs(ll):wordidxs(ll)+length(word)-1; val(sidx) = upper(val(sidx)); ppl.params(kk).setVal(val); % ppl.params(kk).setVal(strrep(ppl.params(kk).getVal, word, upper(word))); end % If matched end % end loop over matches end end % End loop over params else % not numeric parameter matches(kk) = -1; end else % key is not present in default plist matches(kk) = -1; end else % param value is not char matches(kk) = 0; end else % param value is neither char nor numeric matches(kk) = -1; end end % end loop over params % Don't eval parameters in default plist if they are not in the input % plist if ~isempty(pl.params) ikeys = {pl.params(:).key}; else ikeys = {''}; end for kk=1:numel(ppl.params) if ~any(strcmpi(ppl.params(kk).key, ikeys)) % if ~ismember(ppl.params(kk).key, ikeys) matches(kk) = -1; end end % First eval all non-dependent keys for kk=1:numel(ppl.params) if matches(kk) == 0 if ischar(ppl.params(kk).getVal) try ev = eval(ppl.params(kk).getVal); ppl.params(kk).setVal(ev); catch me utils.helper.warn(sprintf('Unable to evaluate non-dependent parameter [%s]. Leaving it as char.', ppl.params(kk).getVal)); end else ev = ppl.params(kk).getVal; end % If they are needed later, put them in this workspace if any(matches>0) cmd = [ppl.params(kk).key '=' mat2str(ev) ';']; eval(cmd); end end end % Now evaluate dependent parameters count = 0; while any(matches>0) && count < 100 for kk=1:numel(ppl.params) if matches(kk)==1 try ppl.params(kk).setVal(eval(ppl.params(kk).getVal)); cmd = sprintf('%s = %s;', ppl.params(kk).key, mat2str(ppl.params(kk).getVal)); eval(cmd); matches(kk) = 0; end end end count = count + 1; end % did we reach maximum number of tries? if count >= 100 for kk=1:numel(matches) if matches(kk) == 1 warning('!!! Can''t resolve dependency in parameter: %s', ppl.params(kk).key); % Chenge the value back to the input values in case of dependency. % It might be that we changed this value to upper case. ppl.params(kk).setVal(pl.find(ppl.params(kk).key)); end end end end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Local Functions % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % FUNCTION: getInfo % % DESCRIPTION: Get Info Object % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function ii = getInfo(varargin) if nargin == 1 && strcmpi(varargin{1}, 'None') sets = {}; pl = []; else sets = {'Default'}; pl = getDefaultPlist; end % Build info object ii = minfo(mfilename, 'plist', 'ltpda', utils.const.categories.internal, '$Id: parse.m,v 1.17 2011/03/28 12:45:31 hewitson Exp $', sets, pl); end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % FUNCTION: getDefaultPlist % % DESCRIPTION: Get Default Plist % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function plo = getDefaultPlist() plo = plist(); end