checkcellofstr.m

Go to the documentation of this file.

function inpArray=checkcellofstr(inpArray,flagVec,varargin)
import mxberry.core.throwerror;
DEFAULT_IS_EMPTY_ALLOWED=false;
DEFAULT_IS_CHECKED_FOR_ROW=true;
%
[~,~,nCallerStackStepsUp]=mxberry.core.parseparext(...
    varargin,...
    {'nCallerStackStepsUp';1;...
    'isscalar(x)&&isnumeric(x)&&isreal(x)'},0,...
    'propRetMode','separate');
%
if nargin==1
    flagVec=[DEFAULT_IS_EMPTY_ALLOWED,DEFAULT_IS_CHECKED_FOR_ROW];
elseif numel(flagVec)==1
    flagVec=[flagVec,DEFAULT_IS_CHECKED_FOR_ROW];
end
isEmptyAllowed=flagVec(1);
isCheckedForBeingARow=flagVec(2);
%
if isCheckedForBeingARow
    if ~(mxberry.core.isrow(inpArray)||isEmptyAllowed&&isempty(inpArray))
        if ~isEmptyAllowed
            throwerror('wrongInput',...
                '%s is expected to be a row',inputname(1),...
                'nCallerStackStepsUp',1+nCallerStackStepsUp);
        else
            throwerror('wrongInput',...
                '%s is expected to be a row or empty cell',inputname(1),...
                'nCallerStackStepsUp',1+nCallerStackStepsUp);
        end
    end
end
if ischar(inpArray)
    inpArray={inpArray};
else
    if ~iscellstr(inpArray)
        throwerror('wrongInput',...
            '%s is expected to be a cell array of strings',...
            inputname(1),'nCallerStackStepsUp',1+nCallerStackStepsUp);
    end
    is2DVec=cellfun('ndims',inpArray)<=2;
    if ~all(is2DVec)
        throwerror('wrongInput',...
            ['%s does have elements on positions %s with ',...
            'dimensionality >2'],mat2str(find(~is2DVec)),...
            'nCallerStackStepsUp',1+nCallerStackStepsUp);
    end
    isRowVec=cellfun('size',inpArray,1)==1;
    if ~all(isRowVec)
        throwerror('wrongInput',...
            ['%s does have elements on positions %s that are ',...
            ' matrices instead of rows'],mat2str(find(~isRowVec)),...
            'nCallerStackStepsUp',1+nCallerStackStepsUp);
    end
end