project_mgr_load_project_file

 load project file.
 [USAGE]
    data = project_mgr_load_project_file(<project_file>, <data>, <fig>);
 [IN]
    project_file : project file name(.prj.mat).
            data : data structure of project_mgr.
             fig : figure handle of project_mgr.
 [OUT]
    data : updated data structure of project_mgr.

0001 function data = project_mgr_load_project_file(project_file, data, fig)
0002 % load project file.
0003 % [USAGE]
0004 %    data = project_mgr_load_project_file(<project_file>, <data>, <fig>);
0005 % [IN]
0006 %    project_file : project file name(.prj.mat).
0007 %            data : data structure of project_mgr.
0008 %             fig : figure handle of project_mgr.
0009 % [OUT]
0010 %    data : updated data structure of project_mgr.
0011 
0012 %
0013 % --- Previous check
0014 %
0015 if ~exist('project_file', 'var')
0016     error('project_file is a required parameter.');
0017 end
0018 if ~exist('data', 'var')
0019     error('data is a required parameter.');
0020 end
0021 if ~exist('fig', 'var') || isempty(fig) || ~ishandle(fig)
0022     error('invalid figure handle is specified.');
0023 end
0024 if exist(project_file, 'file') ~= 2
0025     return;
0026 end
0027 
0028 %
0029 % --- Main Procedure
0030 %
0031 
0032 % load batch builders
0033 if ~isempty(whos('-file', project_file, 'batch_builders'))
0034     b = load(project_file, 'batch_builders');
0035     data.batch_builders = b.batch_builders;
0036 else
0037     data.batch_builders = cell(0);
0038     data.batch_builders{1} = vb_batch_mgr_new('batch builder1');
0039 end
0040 
0041 % Load project
0042 data.project_file = project_file;
0043 guidata(fig, data);
0044 % load history
0045 err = project_file_mgr('load', project_file);
0046 if ~err
0047     set_project_filename(project_file);
0048     if ishandle(data.batch_fig)
0049         delete(data.batch_fig);
0050         data.batch_fig = -1;
0051         guidata(fig, data);
0052     end
0053 end
0054 project_mgr_view_update(fig);
0055 
0056 
0057 % Save last loaded project_file
0058 uname = vb_get_username;
0059 
0060 save_dir = [tempdir, 'vbmeg-', uname];
0061 
0062 if exist(save_dir, 'dir') ~= 7
0063     vb_mkdir(save_dir);
0064 end
0065 
0066 if exist(save_dir, 'dir') ~= 7
0067     return;
0068 end
0069 
0070 fname = [save_dir, '/project_file_loaded.mat'];
0071 vb_save(fname, 'project_file');