parsestackelem.m

Go to the documentation of this file.

function [methodName,className]=parsestackelem(SStackElem)

if nargin==0
    mxberry.core.throwerror('wrongInput',...
        'SStackElem must be given');
end
mxberry.core.checkvar(SStackElem,'isstruct(x)&&numel(x)==1',...
    'SStackElem');
mxberry.core.checkvar(SStackElem,'all(isfield(x,{''file'',''name''}))',...
    'SStackElem');
[pathStr,fileName]=fileparts(SStackElem.file);
if isempty(strfind(pathStr,[filesep '+']))&&isempty(strfind(pathStr,[filesep '@']))
    pathStr='';
    isClass=false;
    isPath=false;
else
    pathStr=strrep(pathStr,[filesep '+'],'.');
    indClass=strfind(pathStr,[filesep '@']);
    isClass=~isempty(indClass);
    if isClass
        pathStr(indClass)='.';
        pathStr(indClass+1)=[];
    end
    curInd=find(pathStr==filesep,1,'last');
    if ~isempty(curInd)
        pathStr=pathStr(curInd+1:end);
    end
    curInd=find(pathStr=='.',1,'first');
    if isempty(curInd)
        isPath=false;
    else
        pathStr=pathStr(curInd+1:end);
        isPath=~isempty(pathStr);
    end
end
methodName=SStackElem.name;
curInd=find(methodName=='.',1,'last');
if ~isempty(curInd)
    methodName=methodName(curInd+1:end);
    if ~isClass
        if isPath
            pathStr=[pathStr '.' fileName];
        else
            pathStr=fileName;
            isPath=true;
        end
        isClass=true;
    end
end
className='';
if isPath&&isClass
    className=pathStr;
end
curInd=find(methodName=='/'|methodName=='\',1,'first');
if isempty(curInd)
    mainMethodName=methodName;
else
    mainMethodName=methodName(1:curInd-1);
end
curInd=find(className=='.',1,'last');
if isempty(curInd)
    mainClassName=className;
else
    mainClassName=className(curInd+1:end);
end
if ~(isequal(fileName,mainMethodName)||(isClass&&isequal(fileName,mainClassName)))
    methodName=[fileName '/' methodName];
end
if isPath&&~isClass
    methodName=[pathStr '.' methodName];
end