checkvar.m

Go to the documentation of this file.

function checkvar(x,typeSpec,varargin)
import mxberry.core.throwerror;
import mxberry.core.check.lib.*;
%
isChar=ischar(typeSpec);
if isChar&&~eval(typeSpec)||~isChar&&~builtin('feval',typeSpec,x)
    %
    if ischar(typeSpec)
        checkName=typeSpec;
    else
        checkName=func2str(typeSpec);
    end
    %
    defaultErrorMessage=['%s is expected to comply with all of ',...
        'the following conditions: %s'];
    %
    [reg,~,errorTag,errorMessage,nCallerStackStepsUp]=mxberry.core.parseparext(...
        varargin,...
        {'errorTag','errorMessage','nCallerStackStepsUp';...
        'wrongInput',defaultErrorMessage,1;...
        @isstring,@isstring,...
        'isscalar(x)&&isnumeric(x)&&isreal(x)'},[0,1],...
        'regDefList',{inputname(1)},...
        'regCheckList',{@isstring});
    varName=reg{1};
    errorMessage=sprintf(errorMessage,varName,checkName);
    %
    throwerror(errorTag,errorMessage,...
        'nCallerStackStepsUp',1+nCallerStackStepsUp);
end