Homec4science
Diffusion ShoulderDB_ImportSegmentMeasureAnalyze (Bashardoust_SystCoord) Browse

R8218/SCaseDB/@SCaseDB/SCaseDB.m
b2c8a146a3e1Bashardoust_SystCoord

Last Change
Raw File

SCaseDB.m
View Options

classdef SCaseDB < handle
% SCaseDB object all the functions for SCase measurements and handling.
% Author: Matthieu Boubat, EPFL-LBO
% Creation: 2020-01-13
%
properties
cases
end
properties ( Hidden = true, Access = private )
logFid
startTime
dataRoot
pool
end
methods ( Hidden = true, Access = private )
function fid = startLog(obj)
% inputs:
% outputs: log file id (fid)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% definitions
fid = [];
logDir = 'log';
MAX_LOG_FILE = 5;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if isempty(dir(logDir))
error(sprintf(['No "%s" directory here.\nCreate one or move to ',...
'a directory containing one.'],logDir));
end
%%%%%%%%%%%%%% cleaning of 'log' directory if max log file number exceeded
logFileList = dir([logDir '\SCaseDB_*.log']);
if length(logFileList) > MAX_LOG_FILE
for i = 1:length(logFileList)-MAX_LOG_FILE+1
delete(fullfile(logDir,logFileList(i).name));
end
end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% create log file
obj.startTime.Format = '_yyyy_MM_dd_HHmmss';
fid = fopen(fullfile(logDir,['SCaseDB' char(obj.startTime) '.log']),'w');
obj.logFid = fid;
obj.logn('SCaseDB.log')
obj.startTime.Format = 'default';
obj.logn('Date: %s',char(obj.startTime))
obj.logn('');
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
end
function log(obj,str,varargin)
% to be used like sprintf().
% write arguments in current log file.
if strfind(str,'\')
str = strrep([' [backslashes replaced by slashes]' str],'\','/');
end
str = sprintf(str,varargin{:});
fprintf(obj.logFid,str);
end
function logn(obj,str,varargin)
% to be used like sprintf().
% write arguments in current log file.
obj.log(str,varargin{:});
fprintf(obj.logFid,'\n');
end
end
methods
function obj = SCaseDB(varargin)
% class constructor
% input: data root directory path (e.g: shoulder/data, Z:\\dataDev)
obj.startTime = datetime('now');
obj.logFid = obj.startLog;
if nargin
if exist(varargin{1},'dir')
obj.dataRoot = varargin{1};
end
else
obj.dataRoot = '/shoulder/dataDev';
end
tic
if isempty(gcp('nocreate'))
localCluster = parallel.cluster.Local;
obj.pool = parpool(localCluster.NumWorkers);
else
obj.pool = gcp;
end
toc
obj.cases = containers.Map;
obj.listSCase
end
function listSCase(obj,varargin)
% fulfill 'cases' property
folderList = dir([obj.dataRoot '/*/*/*/*/CT-*']);
for i = 1:length(folderList)
SCase = regexp(folderList(i).folder,'[NP]\d{1,3}','match','once');
obj.cases(SCase) = [];
end
for i = 1:length(folderList)
SCase = regexp(folderList(i).folder,'[NP]\d{1,3}','match','once');
if ~isempty(obj.cases(SCase))
continue
end
subList = dir(fullfile(folderList(i).folder,'CT-*')) ;
chosen = fullfile(subList(1).folder,subList(1).name);
for j = 1:length(subList)
if ~isempty(dir(fullfile(subList(j).folder,subList(j).name,'amira')))
chosen = fullfile(subList(j).folder,subList(j).name);
break;
end
end
if isempty(dir(fullfile(chosen,'matlab','SCase.mat')))
obj.cases(SCase) = ShoulderCase(SCase);
else
obj.cases(SCase) = load(fullfile(chosen,'matlab','SCase.mat'));
obj.cases(SCase) = obj.cases(SCase).SCase;
end
end
end
function comment(obj,str,varargin)
% to be used like sprintf().
% write arguments in current log file.
obj.log('COMMENT');
obj.logn([': ' str],varargin{:});
end
function delete(obj)
% class destructor
fclose(obj.logFid);
clear obj
end
end
end
c4science · Help