installMPT.m

function installMPT
%% installation of tbxmanager with all submodels required for MPT
%


% remove MPT2 or YALMIP
if exist('mpt_init','file')==2 || exist('yalmipdemo','file')==2
    % Ask the user if they want to delete the file
    disp('found existing installations for mpt/yalmip, skipping ...')
    disp(' ')
    return
end

clc;
disp('----------------------------------------------');
disp('Installation of MPT using the Toolbox manager.');
disp('----------------------------------------------');

default_dir = pwd;
if ~(exist('tbxmanager','file')==2)
    disp(' ');
    fprintf(['Choose the installation directory where to install the Toolbox manager.\n',...
        'A new folder "tbxmanager" is going to be created in the specified location.\n',...
        'If you do not specify the folder, the Toolbox manager will be installed in the current directory.\n']);

    % get the installation folder
    c = uigetdir(pwd);
    if isequal(c,0)
        fprintf(['No directory has been provided.\n',...
            'Installing the toolbox manager in the current directory "%s"?\n'],default_dir);
        c = default_dir;
    end

    % create a new directory in that folder
    d = [c,filesep,'tbxmanager'];
    if isequal(exist(d,'dir'),7)
        error('The installation directory "%s" already exists.\nPlease, remove or rename the folder or change the installation path.',d);
    end
    disp('Creating the directory "tbxmanager".');
    out = mkdir(d);
    if ~out
        error(['An error appear when trying to create the folder "%s".\n',...
            'Please, install the Toolbox manager manually.'],c);
    end
    % enter that directory
    cd(d);
    % download the tbxmanager
    disp(' ');
    disp('Downloading the Toolbox manager from the internet.');
    websave('tbxmanager.m','http://www.tbxmanager.com/tbxmanager.m');
    rehash;

else
    disp('found existing installation of tbxmanager, using it to install packages')
    filePath = which('tbxmanager');
    [d, ~, ~] = fileparts(filePath);
    cd(d);
end

% install all required modules
try
    tbxmanager install mpt mptdoc cddmex fourier glpkmex hysdel lcp sedumi yalmip
catch ME
    % can have errors installing lcp or sedumi with tbxmanager
    disp('Error installing using tbxmanager, please install manually from: <a href="https://www.mpt3.org/Main/Installation">https://www.mpt3.org/Main/Installation</a>');
    rethrow(ME)
end

% create the initialization file to set the path
disp(' ');
disp('Creating the initialization file "startup.m".');
p = which('startup.m');
if isempty(p)
    p = [d,filesep,'startup.m'];
end
fid = fopen(p,'a');
if isequal(fid,-1)
    error(['Could not modify the initialization file "startup.m".',...
        'Edit this file in the folder "%s" manually and insert there the line:  tbxmanager restorepath.'],p);
end
fprintf(fid,'tbxmanager restorepath\n');
fclose(fid);
disp('File has been created.');

% get back to the original directory
cd(default_dir);

% add path to tbxmanager
disp(' ');
disp('Adding path to Matlab.');
addpath(d);

% save path for future
disp(' ');
disp('Saving path for future sessions.');
status = savepath;

if status
    fprintf('Could not save the path to a default location,\nplease provide a location where you want to save the path.');
    cn = uigetdir(pwd);
    if isequal(cn,0)
        disp(' ');
        fprintf('No directory specified, saving the path to the current directory "%s".\n\n',default_dir);
        cn = default_dir;
    end
    sn = savepath([cn,filesep,'pathdef.m']);
    if sn
        error(['Could not save the path automatically.\n',...
            'Please, open the "Set Path" button in the Matlab menu and save the path manually to some location.']);
    end
end

disp(' ');
disp('Installation finished.');
disp('Next time you start Matlab the toolboxes will be automatically initialized.');

% initialize MPT
disp(' ');
disp('Initializing the MPT.')
mpt_init;
end