Changeset 1191 for trunk/src/find_imadoc.m

Timestamp:

Feb 6, 2026, 5:13:05 PM (2 weeks ago)

Author:

sommeria

Message:

bugs repaired

File:

• trunk/src/find_imadoc.m (modified) (3 diffs)

trunk/src/find_imadoc.m

@@ -2 +2 @@
 % take into account the old conventions
 %-----------------------------------------------------------------------
-% function XmlFileName=find_imadoc(RootPath,SubDir)
+% function {[XmlFileName,Rank]=find_imadoc(RootPath,SubDir)
 %
 % OUTPUT:
-% XmlFileName: name of the xml file, ='' if none is found
+% XmlFileName: name of the xml file, if the SubDir has suffixes marked with
+%        '.', take the first one going backward, ='' isf no xml file is found
+% Rank: = nbre of suffixes in SubDir
 %
 % INPUT:
@@ -29 +31 @@
 %=======================================================================
 
-function XmlFileName=find_imadoc(RootPath,SubDir)
+function [XmlFileName,Rank]=find_imadoc(RootPath,SubDir)
 XmlFileName=fullfile(RootPath,[SubDir '.xml']);
+Rank=0;
 if ~exist(XmlFileName,'file')
     dotchar=regexp(SubDir,'\.');%detect the dots in the folder name
@@ -38 +41 @@
             XmlFileName=fullfile(RootPath,[SubDir '.xml']);
             if exist(XmlFileName,'file')
-                break
+                Rank=idot;
+                break % take the root name after removing all the dot suffixes
             end
         end