dmri_fiber_log_info_get

 get fiber tracking logging directory list.
 (mainly used by fiber tracking program.)

 [Usage]
     log_info_list = dmri_fiber_log_info_get(work_dir);

 [Input]
    work_dir : working directory for fiber tracking.
  (e.g. /home/DTI/processed/fibertrack/tpd887bb52_05ba_4b67_8303_64d366406529)

 [Output]
   log_info_list : log directory list
                   (k).log_file    : execution log file.
                      .err_file    : error log file.
                      .result_file : execution result file.

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function log_info_list = dmri_fiber_log_info_get(work_dir)
0002 % get fiber tracking logging directory list.
0003 % (mainly used by fiber tracking program.)
0004 %
0005 % [Usage]
0006 %     log_info_list = dmri_fiber_log_info_get(work_dir);
0007 %
0008 % [Input]
0009 %    work_dir : working directory for fiber tracking.
0010 %  (e.g. /home/DTI/processed/fibertrack/tpd887bb52_05ba_4b67_8303_64d366406529)
0011 %
0012 % [Output]
0013 %   log_info_list : log directory list
0014 %                   (k).log_file    : execution log file.
0015 %                      .err_file    : error log file.
0016 %                      .result_file : execution result file.
0017 %
0018 % Copyright (C) 2011, ATR All Rights Reserved.
0019 % License : New BSD License(see VBMEG_LICENSE.txt)
0020 
0021 %
0022 % --- Previous check
0023 %
0024 if ~exist('work_dir', 'var')
0025     error('Please check function usage.');
0026 end
0027 
0028 %
0029 % --- Main Procedure
0030 %
0031 log_info_list = [];
0032 
0033 % list log directories
0034 d = dir(fullfile(work_dir, 'log*'));
0035 valid = find([d.isdir] ~= 0);
0036 d = d(valid);
0037 
0038 % extract log_file and error file one by one.
0039 for k=1:length(d)
0040 
0041     log_dir = fullfile(work_dir, d(k).name);
0042     d2 = dir(fullfile(log_dir, '*.txt'));
0043 
0044     l = struct;
0045     l.log_file     = '';
0046     l.err_file     = '';
0047     l.result_file  = '';
0048 
0049     for j=1:length(d2)
0050         if ~isempty(strfind(d2(j).name, '.err.txt'))
0051             l.err_file = fullfile(log_dir, d2(j).name);
0052         elseif ~isempty(strfind(d2(j).name, 'result.txt'))
0053             l.result_file = fullfile(log_dir, d2(j).name);
0054         else
0055             l.log_file = fullfile(log_dir, d2(j).name);
0056         end
0057     end
0058     % combine
0059     log_info_list = [log_info_list; l];
0060 end