getleavelist.m

Go to the documentation of this file.

function [pathSpecList,valueList]=getleavelist(SInp)
pathSpecList=getleavelistint(SInp);
if nargout>1
    nLeaves=length(pathSpecList);
    valueList=cell(nLeaves,1);
    for iLeave=1:nLeaves
        valueList{iLeave}=getfield(SInp,pathSpecList{iLeave}{:});
    end
end
end
function pathList=getleavelistint(SInp)
import mxberry.core.throwerror;
if ~isstruct(SInp)
    throwerror('wrongInput',...
        'SInp is expected to be a structure array');
end
%
fieldNameList=fieldnames(SInp);
nFields=numel(fieldNameList);
%
if nFields>0
    nElems=numel(SInp);
    indVec=nElems:-1:1;
    indCMat=num2cell(mxberry.core.ind2submat(size(SInp),indVec));
    pathSpecCell=cell(nElems,nFields);
    for iElem=indVec
        for iField=1:nFields
            SCur=SInp(iElem).(fieldNameList{iField});
            if isstruct(SCur)&&~isempty(fieldnames(SCur))
                pathSpecCell{iElem,iField}=...
                    getleavelistint(SCur);
                %
                pathSpecCell{iElem,iField}=cellfun(...
                    @(x)[{indCMat(iElem,:)},fieldNameList(iField), x],...
                    pathSpecCell{iElem,iField},...
                    'UniformOutput',false);
                %
            else
                pathSpecCell{iElem,iField}=...
                    {{indCMat(iElem,:),fieldNameList{iField}}};
            end
        end
    end
    pathList=vertcat(pathSpecCell{:});
else
    pathList=cell(0,0);
end
end