Scilab Function
eng

return_rpordoef

File content

//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