Changeset 376 for trunk/src/find_file_series.m

Timestamp:

Jan 17, 2012, 12:11:00 AM (13 years ago)

Author:

sommeria

Message:

introduce get_file_type to get easily the type of file (image, multimage, civdata...)
a few bugs corrected in series

File:

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

trunk/src/find_file_series.m

@@ -37 +37 @@
 %AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
 
-function [RootFile,i1_series,i2_series,j1_series,j2_series,NomType,FileType,Object]=find_file_series(RootPath,fileinput,option)
+function [RootFile,i1_series,i2_series,j1_series,j2_series,NomType,FileType,Object]=find_file_series(RootPath,fileinput)
 %------------------------------------------------------------------------
 if ~exist('option','var')
@@ -47 +47 @@
 
 %% check for particular file types: images, movies, civ data
-FileType='';
-Object=[];
 i1_series=zeros(1,1,1);
 i2_series=zeros(1,1,1);
 j1_series=zeros(1,1,1);
 j2_series=zeros(1,1,1);
-
-switch FileExt
-    % ancillary files, no field indexing
-    case {'.civ','.log','.cmx','.cmx2','.txt','.bat'}
-        FileType='txt';
-        NomType='';
-    case '.fig'
-        FileType='figure';
-        NomType='';
-    case '.xml'
-        FileType='xml';
-        NomType='';
-    case '.xls'
-        FileType='xls';
-        NomType='';
-    otherwise
-      
-        if ~isempty(FileExt)&& ~isempty(imformats(FileExt(2:end)))
-            try
-                imainfo=imfinfo(fullfileinput);
-                FileType='image';
-                if length(imainfo) >1 %case of image with multiple frames
-                    NomType='*';
-                    FileType='multimage';
-                    i1_series=(1:length(imainfo))';
-                    [RootPath,RootFile]=fileparts(fullfileinput);
-                end
-            end
-        else
-            try
-                Data=nc2struct(fullfileinput,'ListGlobalAttribute','absolut_time_T0','Conventions');
-                if ~isempty(Data.absolut_time_T0')
-                    FileType='civx'; % test for civx velocity fields
-                elseif strcmp(Data.Conventions,'uvmat/civdata')
-                    FileType='civdata'; % test for civx velocity fields
-                else
-                    FileType='netcdf';
-                end
-            end
-            try
-                if exist('VideoReader','file')%recent version of Matlab
-                    Object=VideoReader(fullfileinput);
-                else
-                    Object=mmreader(fullfileinput);%older Matlab function for movies
-                end
-                NomType='*';
-                FileType='video';
-                i1_series=(1:get(Object,'NumberOfFrames'))';
-            end
-        end
+[FileType,FileInfo,Object]=get_file_type(fullfileinput);
+if strcmp( FileType,'multimage')||strcmp( FileType,'video')
+        NomType='*';
+        i1_series=(1:FileInfo.NbFrame)'
 end
 
@@ -172 +124 @@
     star_string=[RootFile sep1 i1_star sep2 i2_star sep3 j1_star sep4 j2_star '*'];
     wd=pwd;%current working directory
-    %RR=fullfile(RootPath,SubDir);
     cd (RootPath)% move to the local dir to save time in the operation dir.
     dirpair=dir([star_string FileExt]);% look for relevant files in the file directory
@@ -258 +209 @@
 
 %% update the file type if the input file does not exist (pb of 0001)
-if strcmp(option,'filetype')
-    return
-elseif isempty(FileType)
-    [tild,tild, tild,tild,tild,tild,FileType,Object]=find_file_series(RootPath,dirpair(ifile_min).name,'filetype');
+if isempty(FileType)
+    [FileType,tild,Object]=get_file_type(dirpair(ifile_min).name);
 end