return_dir_in_dir - return directories presents in a path in a tt_ml list
tt = return_dir_in_dir(tt_ml,dirn)
- tt_ml : tt_ml master_list. (see return_master_list)
- dirn : string. name of directory to find in the tt_ml list
- tt : vector of strings. name of directories contained in the dirn directory.
//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 : MODNUM+/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
IRCOM Group
Alan Layec