/usr/share/psychtoolbox-3/PsychOneliners/CleanStruct.m is in psychtoolbox-3-common 3.0.9+svn2579.dfsg1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | function out = CleanStruct(temp,qrec)
% out = CleanStruct(temp,qrec)
%
% Deletes all empty structs from a struct array
% Deletes all empty fields from a struct (array)
%
% if QREC == true (default is false), recurses through the struct and also
% cleans and structs it encounters in the struct
%
% DN 2007
if nargin==1
qrec = false;
end
out = []; % initialize output struct
c = 1; % counter for number of non-empty elements in struct
if isstruct(temp)
f = fieldnames(temp); % geeft een cellarray met daarin de veldnamen van de struct
done = false; % boolean indicating whether a non-empty element has been found and processed
for p=1:length(temp) % nr of elements/levels in struct: struct(p).field
for q=1:length(f) % nr of fields in struct, for each field: struct(p).field{q}
if ~isempty(temp(p).(f{q})) % non-empty element found, add it to output struct
done = true;
if isstruct(temp(p).(f{q})) && qrec % deeper level struct found, delete empty elements from that struct and add it to output struct
out(c).(f{q}) = CleanStruct(temp(p).(f{q}));
else % not a struct, add the element to output struct
out(c).(f{q}) = temp(p).(f{q});
end
end
end
if done
% if a non-empty element has been found in this loop, this will be
% true. Reset and increase counter by one for processing next
% element.
done = false;
c = c + 1;
end
end
else
out=temp;
end
|