Changeset 188 for trunk/src/civ.m

Timestamp:

Feb 2, 2011, 1:22:05 AM (13 years ago)

Author:

sommeria

Message:

various bug repairs and cleaning

File:

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

trunk/src/civ.m

@@ -4625 +4625 @@
     hwaitbar=uicontrol('Style','frame','Units','normalized', 'Position',BarPosition ,'BackgroundColor',[1 0 0],'tag','waitbar');
 end
-datnum=[];
+% datnum=[];
 Tabchar={};
 nbfiles=numel(civ_files);
 count=0;
+testrecent=0;
 while count<nbfiles
     count=0;
+    datnum=zeros(1,nbfiles);
     for ifile=1:nbfiles
         detect=exist(civ_files{ifile},'file'); % check the existence of the file
@@ -4637 +4639 @@
             option_str='not created';
         else
-            datfile=dir(civ_files{ifile});
-            datnum(ifile)=datenum(datfile.date);
+            datfile=dir(civ_files{ifile})
+            if isfield(datfile,'datenum')
+                datnum(ifile)=datfile.datenum;%only available in recent matlab versions
+                testrecent=1;
+            end
             filefound(ifile)={datfile.name};
             lastfield='';
@@ -4669 +4674 @@
         Tabchar{ifile,1}=[fullfile([subdir extdir],filename) ext  '...' option_str];
     end
-    if isempty(datnum)
-         message='no civ result created yet';
+    datnum=datnum(find(datnum));%keep the non zero values corresponding to existing files
+    if isempty(datnum) 
+        if testrecent
+            message='no civ result created yet';
+        else
+            message='';
+        end
     else
         datnum=datnum(find(datnum));%keep the non zero values corresponding to existing files
@@ -4708 +4718 @@
      ind_dot=findstr(filename,'...');
      filename=filename(1:ind_dot-1);
-      filename=fullfile(rootroot,filename)
+      filename=fullfile(rootroot,filename);
       if exist(filename,'file')%visualise the vel field if it exists
         %[Field,VelTypeOut]=read_civxdata(filename);