return_rpordoef - return Relative Path Of Root Directory Of Ext(specified) File in a tt_ml list
tt = return_rpordoef(tt_ml,ext)
- tt_ml : tt_ml master_list. (see return_master_list)
- ext : string. the extension of file to find in the tt_ml list
- tt : string. the relative path
//return_rpordoef
//return Relatif Path Of Root Directory Of ext File
//utilisé pour trouver les noms des palettes et librairies
//fonction qui cherche les fichiers d'extension ext
//dans la liste principale et qui retourne
//le répertoire racine du fichier cherché en chemin relatif
//Entrée : tt_ml : une liste principale (voir return_master_list)
// ext : un vecteur chaîne d'extensions finales de fichier
// (ex ext='sci', ext='cos', mais aussi ext='monfichier.sci')
//Sortie : tt un vecteur de taille 1 contenant
// le chemin relatif des fichiers cherchés
// ex tt='build_util' ou 'Skins'
function tt=return_rpordoef(tt_ml,ext)
//doit faire faire sur type of ext
a=length(ext)
tt=[];
p=size(tt_ml); //cherche dans toute l'arborescence
l=0
for i=1:p
for j=1:size(tt_ml(i)) //cherche dans tous les répertoires
for k=1:size(tt_ml(i)(j)(2),1) //uniquement les fichiers
tt_nam=tt_ml(i)(j)(2)(k);
//if length(tt_nam)>(a-1) then
//if part(tt_nam,length(tt_nam)-(a-1):length(tt_nam))==ext then
if tt_nam==ext then
l=l+1;
tt_tmp=[tt_ml(i)(j)(1)];
tt=[tt;tt_tmp];
break;
end
//end
end
if tt<>[] then break, end
end
if tt<>[] then break, end
end
if tt<>[] then
for i=1:size(tt,1)
tt(i)=part(tt(i),1:length(tt(i))-1);
end
tt=basename(tt);
end
endfunction
IRCOM Group
Alan Layec