parseparams.m

Go to the documentation of this file.

function [reg, prop]=parseparams(args,propNameList,nRegExpected,nPropExpected)
import mxberry.core.throwerror;
import mxberry.core.ismembercellstr;
isUsePropNamesUsed=false;
if nargin>=2
    if ~(isempty(propNameList)&&isnumeric(propNameList))
        if ischar(propNameList)
            propNameList={propNameList};
        end
        if ~iscellstr(propNameList)
            throwerror('wrongInput',...
                'propNameList is expected to be a cell array of strings');
        end
        propNameList=cellfun(@lower,propNameList,'UniformOutput',false);
        isUsePropNamesUsed=true;
    end
end
%
if ~isUsePropNamesUsed
    isPropCandidateVec=false(size(args));
    isPropCandidateVec(length(args)-1:-2:1)=true;
else
    isPropCandidateVec=true(size(args));
    if numel(isPropCandidateVec)>0
        isPropCandidateVec(end)=false;
    end
end
%
isPropCandidateVec=isPropCandidateVec&cellfun('isclass',args,'char');
if any(isPropCandidateVec)
    isPropCandidateVec=isPropCandidateVec&cellfun('ndims',args)==2&...
        cellfun('size',args,1)==1;
end
if isUsePropNamesUsed
    isPropSubVec=ismembercellstr(...
        cellfun(@lower,args(isPropCandidateVec),'UniformOutput',false)...
        ,propNameList);
    isPropCandidateVec(isPropCandidateVec)=isPropSubVec;
    if ~isempty(isPropCandidateVec)&&...
            any(isPropCandidateVec&isPropCandidateVec([end,1:end-1]))
        throwerror('wrongParamList','property list is badly formed');
    end
end
indPropVec=find(isPropCandidateVec);
if isempty(indPropVec)
    reg=args;
    prop={};
else
    prop=args(sort([indPropVec,indPropVec+1]));
    propResNameList=args(isPropCandidateVec);
    [isUnique,propUResNameList]=mxberry.core.isunique(propResNameList);
    if ~isUnique
        nResProps=length(propResNameList);
        [~,indThereVec]=ismember(propResNameList,propUResNameList);
        nResPropSpecVec=accumarray(indThereVec.',ones(nResProps,1));
        isPropDupVec=nResPropSpecVec>1;
        dupPropListStr=mxberry.core.cell.cellstr2expression(...
            propUResNameList(isPropDupVec));
        throwerror('wrongInput:duplicatePropertiesSpec',...
            sprintf('properties %s are specified more than once',...
            dupPropListStr));
    end
    isPropCandidateVec(indPropVec+1)=true;
    reg=args(~isPropCandidateVec);
end
if nargin>=3
    if isnumeric(nRegExpected)
        if isempty(nRegExpected)
            %do nothing
        elseif numel(nRegExpected)==1&&...
                nRegExpected>=0&&fix(nRegExpected)==nRegExpected
            if numel(reg)~=nRegExpected
                throwerror('wrongParamList',...
                    ['a number of extracted regular parameters (%d) does ',...
                    'not much an expected number(%d)'],numel(reg),...
                    nRegExpected);
            end
        elseif numel(nRegExpected)==2&&nRegExpected(1)>=0&&...
                nRegExpected(2)>=nRegExpected(1)&&...
                all(fix(nRegExpected)==nRegExpected)
            nReg=numel(reg);
            if ~(nReg<=nRegExpected(2)&&nReg>=nRegExpected(1))
                throwerror('wrongParamList',...
                    ['a number of extracted regular parameters is ',...
                    'expected to be within range %s'],...
                    mat2str(nRegExpected));
            end
        else
            throwerror('wrongInput',...
                ['nRegExpected is expected to either a positive integer ',...
                'scalar or two-element numeric monotinic integer array ']);
        end
    else
        throwerror('wrongInput',...
            'nRegExpected is expected to be of a numeric type');
    end
end
if nargin==4
    if isempty(nPropExpected)&&isnumeric(nPropExpected)
        %do nothing
    elseif numel(nPropExpected)==1&&isnumeric(nPropExpected)&&...
            nPropExpected>=0&&nPropExpected==fix(nPropExpected)
        if numel(prop)~=(nPropExpected+nPropExpected)
            throwerror('wrongParamList',...
                ['a number of extracted properties (%d) does not much ',...
                'an expected number of properties (%d)'],...
                numel(prop)*0.5,nPropExpected);
        end
    else
        throwerror('wrongInput',...
            ['nPropExpected is expected to be a numeric non-negative ',...
            'integer scalar']);
    end
end
end