From ae5e99041167cd7ec52e47c3bbb94d0131b053de Mon Sep 17 00:00:00 2001
From: Marco Ratto <marco.ratto@jrc.ec.europa.eu>
Date: Wed, 27 Mar 2013 16:30:46 +0100
Subject: [PATCH] Allow for exceptions in deleting new files created remotely
(cherry picked from commit 2133ae43a6a76f19f85470d310c2883a744c014d)
---
matlab/parallel/dynareParallelDeleteNewFiles.m | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/matlab/parallel/dynareParallelDeleteNewFiles.m b/matlab/parallel/dynareParallelDeleteNewFiles.m
index 797c8f841..fc0975b13 100644
--- a/matlab/parallel/dynareParallelDeleteNewFiles.m
+++ b/matlab/parallel/dynareParallelDeleteNewFiles.m
@@ -1,4 +1,4 @@
-function dynareParallelDeleteNewFiles(PRCDir,Parallel,PRCDirSnapshot)
+function dynareParallelDeleteNewFiles(PRCDir,Parallel,PRCDirSnapshot,varargin)
% PARALLEL CONTEXT
% In a parallel context, this is a specialized function able to ...
%
@@ -55,11 +55,17 @@ for indPC=1:length(Parallel),
sT(1)='.';
SlashNumberAndPosition=findstr(sT,fS);
fileaddress={sT(1:SlashNumberAndPosition(end)),sT(SlashNumberAndPosition(end)+1:end)};
+ exception_flag=0;
+ for indexc=1:length(varargin)
+ exception_flag=exception_flag+(~isempty(strfind(fileaddress{2},varargin{indexc})));
+ end
+ if exception_flag==0,
dynareParallelDelete(fileaddress{2},[PRCDir,fS,fileaddress{1}],Parallel(indPC));
disp('New file deleted in remote -->');
disp(fileaddress{2});
disp('<--');
+ end
end
else
--
GitLab