;+ ; liste formattee du contenu (paquets, modes) d'une serie de fichiers ; Kronos (~NewBench) de 'liste.scratch' ; ; :Author: ; Philippe Zarka ; ; :History: ; 2003/12/08: Created ; ; 2003/12/08: Last Edit ;- ; faire prealablement (sur le directory de programmes) ; dir/out=liste.scratch/col=1/nohead/notrail [dir_Kronos] (VMS) ; ls -1 -d /dir/sous_dir/dir_Kronos/* > liste.scratch (Unix) openr, d, 'liste.scratch', /get_lun, error=err if err ne 0 then begin print,'Fichier liste.scratch inexistant' stop endif print,'liste des paquets :' print,'analysis (0), sounder (1), calibration (2), millisecond (3),' read,'tous (-1) ? ',p openw, e, 'liste.lis', /get_lun ; listing de sortie on_ioerror, suite fichier='' encore: err=0 readf, d, fichier f = DELPATH(fichier) print, fichier PAQUETS_HFR, fichier, hfr, lun=e LISTE_PAQUETS, f, hfr, p, lun=e printf, e goto, encore suite: close,d & free_lun,d close,e & free_lun,e end