Scilab Function
eng


return_dir_in_dir

File content


//return_dir_in_dir
//fonction qui cherche les noms de répertoires
//dans un répertoire dir dans la liste principale 
//Entrée : tt_ml : une liste principale (voir return_master_list)
//         dirn : un vecteur de nom de répertoire 
//               ex : MODNUMSCI+/macros
//Sortie : tt un vecteur de taille 1 contenant 
//           les noms de répertoires
function tt=return_dir_in_dir(tt_ml,dirn)

if MSDOS then
   dirn=pathconvert(dirn,%t,%t,'w')
else
   dirn=pathconvert(dirn,%t,%t,'u')
end

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
   if(tt_ml(i)(j)(1)==dirn(1)) then
     for k=1:size(tt_ml(i)(j)(3),1) //uniquement les fichiers
        l=l+1;
        tt=[tt;tt_ml(i)(j)(3)(k)];
     end
     break
    end
  end
 if tt<>[] then break, end;
end
//printf("Found %d file(s) with %s extension in %s\n",l,ext,dirn);
endfunction