0001 d = dir;
0002 idx = cell2mat({d(:).isdir});
0003 d = d(idx);
0004
0005 ver
0006
0007 for i = 1:numel(d)
0008 if strcmp(d(i).name,'..')
0009 continue
0010 end
0011
0012 cd(d(i).name);
0013 p = which('eidors_var_id');
0014 try
0015 id = eidors_var_id([]);
0016 if strcmp(id,'id_DA39A3EE5E6B4B0D3255BFEF95601890AFD80709');
0017 fprintf('%s: CORRECT\n', p);
0018 else
0019 fprintf('%s: WRONG\n', p);
0020 end
0021 catch err
0022 msg = textscan(err.message,'%s',1,'delimiter','\r\n');
0023 fprintf('%s: ERROR: %s\n', p, msg{1}{1});
0024 end
0025 if ~strcmp(d(i).name,'.')
0026 cd ..
0027 end
0028 end