mex_clean_luke

0001 function mex_clean_luke(luke_root)
0002 %
0003 mexpath = [luke_root,'Project_DKE/MEX/Bin/'];
0004 %
0005 foldercontent = dir(mexpath);
0006 %
0007 for icont = 1:length(foldercontent),
0008     if foldercontent(icont).isdir...
0009             && ~strcmp(foldercontent(icont).name,'.')...
0010             && ~strcmp(foldercontent(icont).name,'..')...
0011             && ~strcmp(foldercontent(icont).name,'CVS'),
0012         rmdir([mexpath,foldercontent(icont).name],'s');
0013     elseif ~foldercontent(icont).isdir && ~strcmp(foldercontent(icont).name,'readme.txt'), 
0014         delete([mexpath,foldercontent(icont).name]);
0015     end
0016 end
0017 %
0018 disp(['The mexfiles has been removed.'])
0019 %