liste_comp.pro (Kronos IDL library)

;+
; Contains the liste_comp procedure
;
; :Author:
;    Philippe Zarka
;
; :History:
;    2006/03/08: Created
;
;    2006/03/08: Last Edit
;-
;
;+
; liste compacte du contenu (paquets, modes) d'une serie de fichiers
;
; :Uses:
;    delpath, liste_comp_paquets, paquets_hfr
;
; :Params:
;    aaaajjjd:    in, required, type=sometype
;       A parameter named aaaajjjd
;    hd:          in, required, type=sometype
;       A parameter named hd
;    aaaajjjf:    in, required, type=sometype
;       A parameter named aaaajjjf
;    hf:          in, required, type=sometype
;       A parameter named hf
;    nomfich:     in, required, type=sometype
;       A parameter named nomfich
;    type_paquet: in, required, type=sometype
;       A parameter named type_paquet
;-
pro LISTE_COMP, aaaajjjd, hd, aaaajjjf, hf, nomfich, type_paquet

pFileList=make_file_list(aaaajjjd, hd, aaaajjjf, hf, level='k', /noemptyfiles)
if ptr_valid(pFileList) then begin
    FileList=*pFileList
    nFileList=n_elements(FileList)
    ptr_free, pFileList 
endif else begin
    nFileList=0
endelse

if n_elements(type_paquet) eq 0 then begin
    message,'liste des paquets :',/info
    print,'analysis (0), sounder (1), calibration (2), millisecond (3),'
    read,'tous (-1) ? ',type_paquet
endif

if n_elements(nomfich) eq 0 then begin
    openw, e, 'liste_comp.lis', /get_lun ; listing 
    on_ioerror, suite
endif else begin
    openw, e, nomfich, /get_lun
    on_ioerror, suite
endelse

for iFile=0, nFileList-1 do begin
    fichier=FileList[iFile]
    f = DELPATH(fichier)
    faaaajjj = long(strmid(f,1,7))

    PAQUETS_HFR, fichier, hfr, lun=e
    LISTE_COMP_PAQUETS,  f, hfr, type_paquet, lun=e
endfor
suite:
close,e & free_lun,e

return
end