Changeset 623 for trunk/src/civ.m

Timestamp:

Apr 29, 2013, 11:27:46 PM (11 years ago)

Author:

sommeria

Message:

waitbar system for series improved to aloow use as stand alone fcts.

to add at the head of series fcts:
hseries=findobj(allchild(0),'Tag','series');
RUNHandle=findobj(hseries,'Tag','RUN');%handle of RUN button in GUI series
WaitbarHandle?=findobj(hseries,'Tag','Waitbar');%handle of waitbar in GUI series

call to waitbar:

update_waitbar(WaitbarHandle?,index/nbfield)
if ishandle(RUNHandle) && ~strcmp(get(RUNHandle,'BusyAction?'),'queue')

disp('program stopped by user')
break

end

File:

• trunk/src/civ.m (modified) (5 diffs)

trunk/src/civ.m

@@ -1730 +1730 @@
 [tild,message]=fileattrib(RootPath);
 if ~isempty(message) && ~isequal(message.UserWrite,1)
-    errormsg=['No writting access to ' RootPath];
+    errormsg=['No writing access to ' RootPath];
     return
 end
@@ -2001 +2001 @@
                     errormsg=['cannot create ' subdir_civ1_new ': ' msg1];
                     return
-                else
+                elseif isunix
                     [xx,msg2] = fileattrib(fullfile(RootPath,subdir_civ1_new),'+w','g'); %yield writing access (+w) to user group (g)
                     if ~strcmp(msg2,'')
@@ -2116 +2116 @@
         if ~exist(fullfile(RootPath,subdir_civ2_new),'dir')
             [xx,m2]=mkdir(fullfile(RootPath,subdir_civ2_new));
+            if isunix
             [xx,msg2] = fileattrib(fullfile(RootPath,subdir_civ2_new),'+w','g'); %yield writing access (+w) to user group (g)
             if ~isequal(m2,'')
                 errormsg=['cannot create ' fullfile(RootPath,subdir_civ2_new) ': ' m2];
                 return
+            end
             end
         end
@@ -2148 +2150 @@
             if ~exist(fullfile(RootPath,subdir_civ2_new),'dir')
                 [xx,m2]=mkdir(subdir_civ2_new);
+                if isunix
                  [xx,msg2] = fileattrib(fullfile(RootPath,subdir_civ2_new),'+w','g'); %yield writing access (+w) to user group (g)
                 if ~isequal(m2,'')
                     errormsg= ['cannot create ' fullfile(RootPath,subdir_civ2_new) ': ' m2];%error message for directory creation
                     return
+                end
                 end
             end
@@ -4128 +4132 @@
     case {'civ_matlab','civ_matlab.sh'}
         filename=regexprep(Param.OutputFile,'(.+)([/\\])(.+$)','$1$20_XML$2$3.xml');
+        if isunix
         fileattrib(fileparts(filename),'+w +x','o g');% set writting access
+        end
         save(struct2xml(Param),filename);
 end