function stprpath(toolboxroot)
% STPRPATH sets path to Statistical Pattern Recognition Toolbox.
%
% Synopsis:
% stprpath
% stprpath(toolboxroot)
%
% Description:
% stprpath(toolboxroot) sets path to the toolbox stored in
% given root directory toolboxroot.
%
% stprpath takes the working directory as the root, i.e.,
% toolboxroot=pwd.
%
% (c) Statistical Pattern Recognition Toolbox, (C) 1999-2003,
% Written by Vojtech Franc and Vaclav Hlavac,
% <a href="http://www.cvut.cz">Czech Technical University Prague</a>,
% <a href="http://www.feld.cvut.cz">Faculty of Electrical engineering</a>,
% <a href="http://cmp.felk.cvut.cz">Center for Machine Perception</a>
% Modifications:
% 28-apr-2004, VF, renamed to stprpath
% 22-oct-2003, FV, command addpath used.
% 18-July-2003, VF
% 9-Feb-2003, VF
% 23-Jan-2003, VF
% 7-jan-2003, VF, A new coat.
% 23-mar-2001, V.Franc, added new directories
if nargin < 1
toolboxroot=pwd;
end
disp('Adding path for the Statistical Pattern Recognition Toolbox...');
p = ['$:',...
'$bayes:',...
'$data:',...
'$data/anderson_task:',...
'$data/binary_separable:',...
'$data/gmm_samples:',...
'$data/mm_samples:',...
'$data/multi_separable:',...
'$data/svm_samples:',...
'$data/iris_data:',...
'$data/riply_data:',...
'$demos:',...
'$demos/ocr:',...
'$demos/image_denoising:',...
'$kernels:',...
'$kernels/extraction:',...
'$kernels/preimage:',...
'$linear:',...
'$linear/anderson:',...
'$linear/finite:',...
'$linear/fisher:',...
'$linear/extraction:',...
'$misc:',...
'$probab:',...
'$probab/estimation:',...
'$quadrat:',...
'$svm:',...
'$visual:',...
];
p=translate(p,toolboxroot);
addpath(p);
function p = translate(p,toolboxroot);
cname = computer;
if strncmp(cname,'PC',2)
p = strrep(p,'/','\');
p = strrep(p,':',';');
p = strrep(p,'$',[toolboxroot '\']);
elseif strncmp(cname,'MAC',3)
p = strrep(p,':',':;');
p = strrep(p,'/',':');
m = toolboxroot;
if m(end) ~= ':'
p = strrep(p,'$',[toolboxroot ':']);
else
p = strrep(p,'$',toolboxroot);
end
else
p = strrep(p,'$',[toolboxroot '/']);
end