PARALLEL CONTEXT In a parallel context, this is a specialized version of delete() function. INPUTS o fname [] ... o pname [] ... o Parallel [] ... OUTPUTS None Copyright (C) 2009-2010 Dynare Team This file is part of Dynare. Dynare is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. Dynare is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Dynare. If not, see <http://www.gnu.org/licenses/>.
0001 function dynareParallelDelete(fname,pname,Parallel) 0002 % PARALLEL CONTEXT 0003 % In a parallel context, this is a specialized version of delete() function. 0004 % 0005 % INPUTS 0006 % o fname [] ... 0007 % o pname [] ... 0008 % o Parallel [] ... 0009 % 0010 % OUTPUTS 0011 % None 0012 % 0013 % 0014 % Copyright (C) 2009-2010 Dynare Team 0015 % 0016 % This file is part of Dynare. 0017 % 0018 % Dynare is free software: you can redistribute it and/or modify 0019 % it under the terms of the GNU General Public License as published by 0020 % the Free Software Foundation, either version 3 of the License, or 0021 % (at your option) any later version. 0022 % 0023 % Dynare is distributed in the hope that it will be useful, 0024 % but WITHOUT ANY WARRANTY; without even the implied warranty of 0025 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 0026 % GNU General Public License for more details. 0027 % 0028 % You should have received a copy of the GNU General Public License 0029 % along with Dynare. If not, see <http://www.gnu.org/licenses/>. 0030 0031 if nargin ==0, 0032 disp('dynareParallelDelete(fname)') 0033 return 0034 end 0035 0036 if nargin ==1, 0037 pname=''; 0038 else 0039 pname=[pname,filesep]; 0040 end 0041 0042 for indPC=1:length(Parallel), 0043 if ~ispc || strcmpi('unix',Parallel(indPC).OperatingSystem), 0044 [NonServeS NonServeD]=system(['ssh ',Parallel(indPC).UserName,'@',Parallel(indPC).ComputerName,' rm -f ',Parallel(indPC).RemoteDirectory,'/',pname,fname]); 0045 else 0046 delete(['\\',Parallel(indPC).ComputerName,'\',Parallel(indPC).RemoteDrive,'$\',Parallel(indPC).RemoteDirectory,'\',pname,fname]); 0047 end 0048 0049 end