% Check if the current proejct settings are correct
% The right version is in the path
% The right version is at the top of the path
%
% Useful to put at the top of some scripts
function check()
    if ~exist('d', 'var') || isempty(d)
        d = '';
    end

    folders = split(path(), pathsep);

    sp = mpm.subpaths(d);
    for i = 1:length(sp)
        if ~isAtTop(sp{i}, fullfile(pwd, sp{i}), folders)
            error('Subpaths are not correctly set. Try running mpm.set()');
        end
    end
end

function b = isAtTop(subpath, fullsubpath, paths)
    for i = 1:length(paths)
        if ~endsWith(paths{i}, subpath)
            continue
        end

        b = strcmp(fullsubpath, paths{i});
        return
    end

    b = false;
end