This repository has been archived by the owner on Aug 15, 2024. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 13
/
psom_files2cell.m
100 lines (87 loc) · 3.59 KB
/
psom_files2cell.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
function cell_files = psom_files2cell(files)
% Convert a string, cell of strings or a structure where each field is a
% string into one single cell of strings.
%
% SYNTAX :
% CELL_FILES = PSOM_FILES2CELL(FILES)
%
% _________________________________________________________________________
% INPUTS :
%
% FILES
% (string, cell of strings or a structure where each terminal field
% is a string or a cell of strings) All those strings are file names.
%
% _________________________________________________________________________
% OUTPUTS :
%
% CELL_FILES
% (cell of strings) all file names in FILES stored in a cell of
% strings (wheter it was initially string, cell of strings or
% structure does not matter).
%
% _________________________________________________________________________
% COMMENTS :
%
% Empty file names, or file names equal to 'gb_niak_omitted' are ignored.
%
% Copyright (c) Pierre Bellec, Montreal Neurological Institute, 2008.
% Maintainer : [email protected]
% See licensing information in the code.
% Keywords : string
% Permission is hereby granted, free of charge, to any person obtaining a copy
% of this software and associated documentation files (the "Software"), to deal
% in the Software without restriction, including without limitation the rights
% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
% copies of the Software, and to permit persons to whom the Software is
% furnished to do so, subject to the following conditions:
%
% The above copyright notice and this permission notice shall be included in
% all copies or substantial portions of the Software.
%
% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
% THE SOFTWARE.
num_cell = 1;
cell_files = cell(0);
if isstruct(files) % That's a structure
cell_files = struct2cell(files);
clear files
cell_files = cell_files(:);
for num_e = 1:length(cell_files);
cell_files{num_e} = psom_files2cell(cell_files{num_e});
end
cell_files = [cell_files{:}];
if isempty(cell_files)
cell_files = {};
end
elseif iscellstr(files) %% That's a cell
files = files(:);
for num_i = 1:length(files)
if ~strcmp(files{num_i},'gb_psom_omitted')&&~strcmp(files{num_i},'gb_niak_omitted')&&~isempty(files{num_i})
cell_files{num_cell} = regexprep(files{num_i},[filesep '+'],filesep);
num_cell = num_cell + 1;
end
end
elseif ischar(files) % That's a string
if (size(files,1)==1)
if ~strcmp(files,'gb_niak_omitted')&&~strcmp(files,'gb_psom_omitted')
cell_files{num_cell} = regexprep(files,[filesep '+'],filesep);
end
else
for num_f = 1:size(files,1)
if ~strcmp(files(num_f,:),'gb_niak_omitted')&&~strcmp(files(num_f,:),'gb_psom_omitted')
cell_files{num_cell} = regexprep(files(num_f,:),[filesep '+'],filesep);
num_cell = num_cell+1;
end
end
end
else
if ~isempty(files)
error('FILES should be a string or a cell of strings, or a structure with arbitrary depths whos terminal fields are strings or cell of strings');
end
end