Changeset 218

Timestamp:

Mar 9, 2011, 10:50:25 PM (13 years ago)

Author:

sommeria

Message:

write data in a new directory .0 if the selected output directory exists

Location:

trunk/src/series

Files:

• aver_stat.m (modified) (2 diffs)
• time_series.m (modified) (2 diffs)

trunk/src/series/aver_stat.m

@@ -283 +283 @@
 end
 
-% Root name of output files (TO GENERALISE FOR TWO INPUT SERIES)
+%% Root name of output files (TO GENERALISE FOR TWO INPUT SERIES)
 subdir_result='aver_stat';
-if ~exist(fullfile(RootPath{1},subdir_result),'dir')
-    dircur=pwd; %record current working directory
-    cd(RootPath{1})% goes to the iamge directory
-    [m1,m2,m3]=mkdir(subdir_result);
-    if ~isequal(m2,'')
-         msgbox_uvmat('CONFIRMATION',m2);%error message for directory creation
-    end
-    [xx,msg2] = fileattrib(subdir_result,'+w','g'); %yield writing access (+w) to user group (g)
-    if ~strcmp(msg2,'')
-        msgbox_uvmat('ERROR',['pb of permission for ' subdir_result ': ' msg2])%error message for directory creation
-        cd(curdir)
-        return
-    end
-    cd(dircur) %back to the initial working directory
+pathdir=fullfile(RootPath{1},subdir_result);
+while exist(pathdir,'dir')
+    subdir_result=[subdir_result '.0'];
+    pathdir=fullfile(RootPath{1},subdir_result);
+end
+[m1,m2,m3]=mkdir(pathdir);
+if ~isequal(m2,'')
+     msgbox_uvmat('CONFIRMATION',m2);%error message for directory creation
+end
+[xx,msg2] = fileattrib(pathdir,'+w','g'); %yield writing access (+w) to user group (g)
+if ~strcmp(msg2,'')
+    msgbox_uvmat('ERROR',['pb of permission for ' pathdir ': ' msg2])%error message for directory creation
+    return
 end
 filebase_out=filebase{1}; 
@@ -309 +308 @@
 end
 
-%slice loop
+%% slice loop
 siz=size(num_i1{1});
 lengthtot=siz(1)*siz(2);

trunk/src/series/time_series.m

@@ -237 +237 @@
 pathdir=fullfile(RootPath{1},subdir_result);
 while exist(pathdir,'dir')
-    pathdir=[pathdir '.0'];
+    subdir_result=[subdir_result '.0'];
+    pathdir=fullfile(pathdir,subdir_result);
 end
 [m1,m2,m3]=mkdir(pathdir);
@@ -245 +246 @@
 [xx,msg2] = fileattrib(pathdir,'+w','g'); %yield writing access (+w) to user group (g)
 if ~strcmp(msg2,'')
-    msgbox_uvmat('ERROR',['pb of permission for ' subdir_result ': ' msg2])%error message for directory creation
+    msgbox_uvmat('ERROR',['pb of permission for ' pathdir ': ' msg2])%error message for directory creation
     return
 end