| 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 |
---|
| 11 | function XmlFileName=find_imadoc(RootPath,SubDir,RootFile,FileExt) |
---|
| 12 | SubDirBase=regexprep(SubDir,'\..*','');%take the root part of SubDir, before the first dot '.' |
---|
| 13 | XmlFileName=[fullfile(RootPath,SubDirBase) '.xml'];%new convention: xml at the level of the image folder |
---|
| 14 | if ~exist(XmlFileName,'file') |
---|
| 15 | if strcmp(FileExt,'.nc') |
---|
| 16 | basexml=fullfile(RootPath,RootFile) ; % old convention: xml inside the image folder, case of civ files |
---|
| 17 | else |
---|
| 18 | basexml=fullfile(RootPath,SubDir,RootFile) ; % old convention: xml inside the image folder, case of images |
---|
| 19 | end |
---|
| 20 | XmlFileName=[basexml '.xml']; |
---|
| 21 | if ~exist(XmlFileName,'file') |
---|
| 22 | XmlFileName=[basexml '.civ']; % very old convention: .civ file |
---|
| 23 | if ~exist(XmlFileName,'file') |
---|
| 24 | XmlFileName=''; |
---|
| 25 | end |
---|
| 26 | end |
---|
| 27 | end |
---|