shortcapstr.m

Go to the documentation of this file.

function shortName=shortcapstr(longName)
isSpaceVec=isspace(longName);
longName(isSpaceVec)='_';
isTakenVec=isstrprop(longName,'upper');
isUscrVec=longName=='_';
isDigitVec=isstrprop(longName,'digit');
isTakenVec=(isTakenVec|isDigitVec|[false,isDigitVec(1:end-1)]|isUscrVec|...
    [false,isUscrVec(1:end-1)])&~isSpaceVec;
isTakenVec(1)=true;
shortName=longName(isTakenVec);