Code covered by the BSD License  

Highlights from
frontal

from frontal by Felipe G. Nievinski
Do: C = frontal_mtimes(A, b); not: for k=1:size(A,3), C(:,:,k) = A(:,:,k) * b(:,:,k); end

dirup (dir) 
function answer = dirup (dir)
    add_leading_filesep = false;
    if strcmp(dir(end), filesep)
        add_leading_filesep = true;
        dir = dir(1:end-1);
    end
    
    [answer, lostsubdir] = fileparts(dir);
    
    if add_leading_filesep & ~strcmp(answer(end), filesep)
        answer = [answer filesep];
    end
    
    %answer  % DEBUG
end

%!test
%! myassert(dirup('C:\a\b\'), 'C:\a\');
%! myassert(dirup('C:\a\'), 'C:\');
%! myassert(dirup('C:\'), 'C:\');

%!test
%! myassert(dirup('C:\a\b'), 'C:\a');
%! myassert(dirup('C:\a'), 'C:\');
%! myassert(dirup('C:\'), 'C:\');

Contact us