%test.m
%Liste des fichiers compresses du repertoire choisi
d=dir([user_entry,'/*.tgz']);
 
t0=cputime
 
% boucle de decompression des fichiers en entree
for i=1:size(d)
  %Decompression des fichiers dans le cas d un systeme unix
  if isunix
     [p,file_prefix,file_ext]=fileparts(d(i).name);
     [status,r]=unix([' tar xvfz ',user_entry,'/',d(i).name]);
     if status~=0
        disp(r)
     else
   % Ouverture et lecture du fichier raw
        disp(sprintf(' %d %s ',i,file_prefix));
        temp1=fopen([file_prefix,'.raw'],'r');
        temp2=fread(temp1,[xsize_z,ysize_z],'uint8')';
        fclose(temp1);
        [status,r]=unix('rm *.raw *.def'); % menage du tar xvf
        if status~=0
          disp([' erreur rm fichier raw and def  ',r])
        break
      end
     end  % end boucle status
  end %end boucle unix
end %boucle sur les fichiers
 
tfin=cputime
duree=tfin-t0            