checkmultvar.m

Go to the documentation of this file.

function checkmultvar(typeSpec,nPlaceHolders,varargin)
import mxberry.core.throwerror;
import mxberry.core.check.lib.*;
%
if isempty(varargin)
    reg=varargin;
    nCallerStackStepsUp=1;
else
    [reg,~,nCallerStackStepsUp]=mxberry.core.parseparext(varargin,...
        {'nCallerStackStepsUp';1},'propRetMode','separate');
end
%
nVarArgs=length(reg);
if isempty(nPlaceHolders)
    nPlaceHolders=nVarArgs;
end
%
if nVarArgs<nPlaceHolders
    throwerror('wrongInput',['Values are expected to be provided for ',...
        'each placeholder'],'nCallerStackStepsUp',1+nCallerStackStepsUp);
end

isChar=ischar(typeSpec);
if isChar
    for iVar=1:nPlaceHolders
        assignIn(sprintf('x%d',iVar),reg{iVar});
    end
    isOk=eval(typeSpec);
else
    isOk=feval(typeSpec,reg{1:nPlaceHolders});
end

if ~isOk
    %
    if ischar(typeSpec)
        checkName=typeSpec;
    else
        checkName=func2str(typeSpec);
    end
    defaultErrorMessage=...
        ['%s is expected to comply with all of the following ',...
        'conditions: %s'];
    %
    [~,~,varNameList,errorTag,errorMessage]=mxberry.core.parseparext(...
        reg((nPlaceHolders+1):end),...
        {...
        'varNameList','errorTag','errorMessage';...
        {},'wrongInput',defaultErrorMessage;...
        @iscellofstring,@isstring,@isstring...
        },0);
    %
    nVarNames=length(varNameList);
    if nVarNames>nPlaceHolders
        throwerror('wrongInput',['Number of variable names exceeds ',...
            'a number of place holders'],'nCallerStackStepsUp',...
            1+nCallerStackStepsUp);
    end
    varNameList=[varNameList,cell(1,nPlaceHolders-nVarNames)];
    %
    for iVar=nVarNames+1:nPlaceHolders
        varNameList{iVar}=inputname(2+iVar);
    end
    errorMessage=sprintf(errorMessage,...
        mxberry.core.cell.cell2tablestr([],varNameList,','),checkName);
    %
    throwerror(errorTag,errorMessage,'nCallerStackStepsUp',...
        1+nCallerStackStepsUp);
end
end
function assignIn(varName,varValue)
assignin('caller',varName,varValue);
end