Changeset 1180 for trunk/src/get_file_info.m

Timestamp:

Mar 27, 2025, 5:59:21 PM (3 weeks ago)

Author:

sommeria

Message:

various bugs repaired,Relabeling frames installed for multitif

File:

• trunk/src/get_file_info.m (modified) (7 diffs)

trunk/src/get_file_info.m

@@ -1 @@
-%'get_file_info': determine info about a file (image, multimage, civdata,...) . 
+%'get_file_info': determine info about a file (image, multimage, civdata,...) .
 %------------------------------------------------------------------------
 % [FileInfo,VideoObject]=get_file_info(fileinput)
@@ -19 +19 @@
 %               ='cine_phantom': images from fast camera Phantom
 %               ='bin': binary file without specific organisation
-%               ='netcdf': netcdf file 
+%               ='netcdf': netcdf file
 %               ='civdata': netcdf files provided by civ_series
 %               ='civx': netcdf files provided by the obsolete program civx (in fortran)
@@ -69 +69 @@
     return %input file does not exist.
 end
-[tild,tild,FileExt]=fileparts(fileinput);%get the file extension FileExt
+[~,~,FileExt]=fileparts(fileinput);%get the file extension FileExt
 
 switch FileExt
@@ -128 +128 @@
         FileInfo.TimeName='video';
     case '.hcc'
-        %cd 'TelopsToolbox_20230707(r20340)'
-         installToolboxIRCAM
+        installToolboxIRCAM
         [~,InfoArray]=readIRCam(fileinput,'HeadersOnly',true);
-         FileInfo.FileType='telopsIR';
-         FileInfo.Height=InfoArray(1).Height;
-         FileInfo.Width=InfoArray(1).Width;
-         FileInfo.FrameRate=InfoArray(1).AcquisitionFrameRate;
-         FileInfo.NumberOfFrames=numel(InfoArray);
-         FileInfo.TimeName='video';
+        FileInfo.FileType='telopsIR';
+        FileInfo.Height=InfoArray(1).Height;
+        FileInfo.Width=InfoArray(1).Width;
+        FileInfo.FrameRate=InfoArray(1).AcquisitionFrameRate;
+        FileInfo.NumberOfFrames=numel(InfoArray);
+        FileInfo.TimeName='video';
+        Path=fileparts(fileinput);% look for the xml file to document theb file series
+        [RootPath,SubDir,DirExt]=fileparts(Path);
+        if ~isempty(DirExt)
+            disp(['ERROR: change the name of the folder containing the image files: no file extension ' DirExt])
+            FileInfo.FileType='error';
+            return
+        end
+        XmlFile=fullfile(RootPath,[SubDir '.xml']);
+        CheckWriteImaDoc=true;
+        if exist(XmlFile,'file')
+            [XmlData,~,errormsg]=xml2struct(XmlFile);
+            if ~isempty(errormsg)
+                disp(errormsg)
+                FileInfo.FileType='error';
+                return
+            elseif isfield(XmlData,'FileSeries')
+                CheckWriteImaDoc=false;
+            end
+        end
+        if CheckWriteImaDoc
+            DirContent=dir(Path);
+            NbFiles=0;
+            FileSeries.Convention='telopsIR';
+            for ilist=1:numel(DirContent)
+                FName=DirContent(ilist).name;
+                if ~isempty(regexp(FName,'.hcc$', 'once'))
+                    NbFiles=NbFiles+1;
+                    FileSeries.FileName{NbFiles,1}=FName;
+                end
+            end
+            FileSeries.NbFramePerFile=FileInfo.NumberOfFrames;
+            [checkupdate,xmlfile,errormsg]=update_imadoc(RootPath,SubDir,'FileSeries',FileSeries);
+        end
+
     otherwise
         if ~isempty(FileExt)% exclude empty extension
@@ -160 +193 @@
                         FileInfo.error=ME.message;
                     end
+
                 else
                     error_nc=0;
@@ -205 +239 @@
                                 end
                                 FileInfo.ListDimName=Data.ListDimName;
-%                                 FileInfo.NumberOfFrames=Data.DimValue;
+                                %                                 FileInfo.NumberOfFrames=Data.DimValue;
                             end
                         else
@@ -218 +252 @@
                                 INFO=mmfileinfo (fileinput);
                                 if  ~isempty(INFO.Video.Format)
-                                    
                                     VideoObject=mmreader(fileinput);
                                     FileInfo=get(VideoObject);