write_listescratch.pro (Kronos IDL library)

;+
; Contains the write_listescratch procedure
;
; :Author:
;    Philippe Zarka
;
; :History:
;    2004/06/18: Created
;
;    2004/06/18: Last Edit
;-
;
;+
; write_listescratch is a procedure that <behavior desc here>
;
; :Params:
;    dirtab: in, required, type=sometype
;       A parameter named dirtab
;-
PRO write_listescratch, dirtab
common PATHS
common DP_LOG
dirnb=(size(dirtab))[1]-1
openw, unit, workpath+'liste.scratch', error=err, /get_lun
for i=0, dirnb do begin
    dir=datapath+dirtab[i]
    if (not file_test(dir+'/k')) then begin
        file_mkdir, dir+'/k'
        widget_control, dp_log_txt, set_value=dir+'/k created' , /append
    endif
    if (not file_test(dir+'/n1')) then begin
        file_mkdir, dir+'/n1'
        widget_control, dp_log_txt, set_value=dir+'/n1 created' , /append
    endif
    if (not file_test(dir+'/n2')) then begin
        file_mkdir, dir+'/n2'
        widget_control, dp_log_txt, set_value=dir+'/n2 created' , /append
    endif
; !!! Add the other data types!!!
    if (not file_test(dir+'/temp')) then begin
        file_mkdir, dir+'/temp'
        widget_control, dp_log_txt, set_value=dir+'/temp created' , /append
    endif
    if (not file_test(dir+'/pdf')) then begin
        file_mkdir, dir+'/pdf'
        widget_control, dp_log_txt, set_value=dir+'/pdf created' , /append
    endif
    if (not file_test(dir+'/lis')) then begin
        file_mkdir, dir+'/lis'
        widget_control, dp_log_txt, set_value=dir+'/lis created' , /append
    endif
    if (not file_test(dir+'/ephem')) then begin
        file_mkdir, dir+'/ephem'
        widget_control, dp_log_txt, set_value=dir+'/ephem created' , /append
    endif
    if (not file_test(dir+'/bg')) then begin
        file_mkdir, dir+'/bg'
        widget_control, dp_log_txt, set_value=dir+'/bg created' , /append
    endif
    dir=dir+'/k'
    kfiles=findfile(dir, count=found)
    for j=0, found-1 do begin
        printf, unit, dir+'/'+kfiles[j]
    endfor  
endfor       

free_lun, unit
end