Mercurial > repos > public > matlab_path_manager

annotate +mpm/check.m @ 6:19c4af287596

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix default values for relative part
author Jonatan Werpers <jonatan@werpers.com>
date Mon, 10 Sep 2018 16:54:29 +0200
parents 6c46515ee860
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
1 % Check if the current proejct settings are correct
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
2 % The right version is in the path
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
3 % The right version is at the top of the path
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
4 %
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
5 % Useful to put at the top of some scripts
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
6 function check()
6
19c4af287596 Fix default values for relative part
Jonatan Werpers <jonatan@werpers.com>
parents: 5
diff changeset
7 if ~exist('d', 'var') || isempty(d)
19c4af287596 Fix default values for relative part
Jonatan Werpers <jonatan@werpers.com>
parents: 5
diff changeset
8 d = '';
19c4af287596 Fix default values for relative part
Jonatan Werpers <jonatan@werpers.com>
parents: 5
diff changeset
9 end
19c4af287596 Fix default values for relative part
Jonatan Werpers <jonatan@werpers.com>
parents: 5
diff changeset
10
5
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
11 folders = split(path(), pathsep);
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
12
6
19c4af287596 Fix default values for relative part
Jonatan Werpers <jonatan@werpers.com>
parents: 5
diff changeset
13 sp = mpm.subpaths(d);
5
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
14 for i = 1:length(sp)
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
15 if ~isAtTop(sp{i}, fullfile(pwd, sp{i}), folders)
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
16 error('Subpaths are not correctly set. Try running mpm.set()');
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
17 end
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
18 end
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
19 end
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
20
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
21 function b = isAtTop(subpath, fullsubpath, paths)
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
22 for i = 1:length(paths)
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
23 if ~endsWith(paths{i}, subpath)
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
24 continue
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
25 end
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
26
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
27 b = strcmp(fullsubpath, paths{i});
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
28 return
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
29 end
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
30
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
31 b = false;
6c46515ee860 Add function for checking if the currently loaded paths are correct
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
32 end