1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
function svnpath = GetSubversionPath
% svnpath = GetSubversionPath -- Return auto-detected installation path
% for svn client, if any. Return empty string if auto-detection not
% possible. Typical usage is like this:
%
% mysvncommand = [GetSubversionPath 'svn status']; system(mysvncommand);
%
% GetSubversionPath will return the path to be prefixed in front of the svn
% executable. If none can be found, the svn executable will be executed
% without path spec. If it is installed in the system executable search
% path, it will then still work.
%
% The function simply checks if the svn executable is in the Matlab path
% and returns a proper path-spec. If it isn't found in the Matlab path, it
% tries default path locations for OS-X and Windows. If that doesn't work,
% it returns an empty string.
% History:
% 11/21/06 Written (MK).
% 01/19/09 Update to search in /bin and /usr/bin as well on OS/X.
% Check for alternative install location of Subversion:
if IsWin
% Search for Windows executable in Matlabs path:
svnpath = which('svn.exe');
else
% Search for Unix executable in Matlabs path:
svnpath = which('svn.');
end
% Found one?
if ~isempty(svnpath)
% Extract basepath and use it:
svnpath=[fileparts(svnpath) filesep];
else
% Could not find svn executable in Matlabs path. Check the default
% install location on OS-X and abort if it isn't there. On M$-Win we
% simply have to hope that it is in some system dependent search path.
% Currently, we only know how to check this for Mac OSX.
if IsOSX
svnpath = '';
if isempty(svnpath) & exist('/opt/subversion/bin/svn', 'file') %#ok<AND2>
svnpath = '/opt/subversion/bin/';
end
if isempty(svnpath) & exist('/usr/local/bin/svn','file') %#ok<AND2>
svnpath='/usr/local/bin/';
end
if isempty(svnpath) & exist('/usr/bin/svn','file') %#ok<AND2>
svnpath='/usr/bin/';
end
if isempty(svnpath) & exist('/bin/svn','file') %#ok<AND2>
svnpath='/bin/';
end
if isempty(svnpath) & exist('/opt/local/bin/svn', 'file') %#ok<AND2>
svnpath = '/opt/local/bin/';
end
end
end
return;
|
