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