source: trunk/src/find_imadoc.m @ 758

Last change on this file since 758 was 738, checked in by sommeria, 10 years ago

various bug resolutions and improvements in particular with geometry_calib. Introduction of a tool set_slices in uvmat.

File size: 1.6 KB
Line 
1% 'find_imadoc': find the ImaDoc xml file associated with a given input file
2% take into account the old conventions
3%-----------------------------------------------------------------------
4% function XmlFileName=find_imadoc(RootPath,SubDir,RootFile,FileExt)
5%
6% OUTPUT:
7% XmlFileName: name of the xml file, ='' if none is found
8%
9% INPUT:
10% RootPath,SubDir,RootFile,FileExt, as given from the input file name by fileparts_uvmat
11function XmlFileName=find_imadoc(RootPath,SubDir,RootFile,FileExt)
12SubDirBase=SubDir;
13XmlFileName=fullfile(RootPath,[SubDir '.xml']);
14if ~exist (XmlFileName,'file')
15    dotchar=regexp(SubDir,'\.');
16    for idot=1:numel(dotchar)
17        XmlFileName=fullfile(RootPath,[SubDir(1:dotchar(end-idot+1)-1) '.xml']);
18        if exist(XmlFileName,'file')
19            SubDirBase=fullfile(RootPath,SubDir(1:dotchar(end-idot+1)-1));
20            break
21        end
22    end   
23end
24if ~exist(XmlFileName,'file')
25    XmlFileName=[fullfile(RootPath,SubDirBase,RootFile) '.xml']; % old convention: xml inside the image folder, case of images or new civ files
26    if ~exist(XmlFileName,'file')
27        XmlFileName=[fullfile(RootPath,SubDirBase,RootFile) '.civ']; % very old convention: .civ file
28        if ~exist(XmlFileName,'file') && strcmp(FileExt,'.nc')
29            XmlFileName=[fullfile(RootPath,RootFile) '.xml'] ; % old convention: xml inside the image folder, old civ file opened
30            if ~exist(XmlFileName,'file')
31                XmlFileName=[fullfile(RootPath,RootFile) '.civ']; % very old convention: .civ file
32            end
33        end
34    end
35end
36if exist(XmlFileName,'file')~=2
37    XmlFileName='';
38end
Note: See TracBrowser for help on using the repository browser.