make_directory.pro (Kronos IDL library)

;+
; Contains the make_directory procedure
;
; :Author:
;    Gaëlle Boisnard
;
; :History:
;    2006/07/04: Created
;
;    2006/07/04: Last Edit
;-
;
;+
; make_directory is a procedure that <behavior desc here>
;
; :Params:
;    dirtab:   in, required, type=sometype
;       A parameter named dirtab
;    datapath: in, required, type=sometype
;       A parameter named datapath
;-
PRO make_directory, dirtab, datapath

common DP_LOG

    message,'Invoking make_directory with datapath='+datapath,/info

dirnb=n_elements(dirtab)
for i=0, dirnb-1 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
    if (not file_test(dir+'/n3a')) then begin
        file_mkdir, dir+'/n3a'
        widget_control, dp_log_txt, set_value=dir+'/n3a created' , /append
    endif
    if (not file_test(dir+'/n3b')) then begin
        file_mkdir, dir+'/n3b'
        widget_control, dp_log_txt, set_value=dir+'/n3b created' , /append
    endif
    if (not file_test(dir+'/n3c')) then begin
        file_mkdir, dir+'/n3c'
        widget_control, dp_log_txt, set_value=dir+'/n3c created' , /append
    endif
    if (not file_test(dir+'/n3d')) then begin
        file_mkdir, dir+'/n3d'
        widget_control, dp_log_txt, set_value=dir+'/n3d created' , /append
    endif
    if (not file_test(dir+'/n3e')) then begin
        file_mkdir, dir+'/n3e'
        widget_control, dp_log_txt, set_value=dir+'/n3e created' , /append
    endif
    if (not file_test(dir+'/n3f')) then begin
        file_mkdir, dir+'/n3f'
        widget_control, dp_log_txt, set_value=dir+'/n3f created' , /append
    endif
    if (not file_test(dir+'/n3g')) then begin
        file_mkdir, dir+'/n3g'
        widget_control, dp_log_txt, set_value=dir+'/n3g created' , /append
    endif
    if (not file_test(dir+'/n3')) then begin
        file_mkdir, dir+'/n3'
        widget_control, dp_log_txt, set_value=dir+'/n3 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

endfor       

end