; docformat = 'rst'
;+
; Set the IDL path (!path) given an array of directories.
;
; :Params:
; dirs : in, required, type=strarr
; string array of directories in the path in the correct order; +,
; <IDL_DEFAULT>, and other abbreviations used by EXPAND_PATH are legal;
; elements that begin with ";" are ignored
;
; :Keywords:
; dlm : in, optional, type=boolean
; set to set IDL_DLM_PATH instead of IDL_PATH
;-
pro mg_set_path, dirs, dlm=dlm
compile_opt strictarr, hidden
ind = where(stregex(dirs, '^[^;]') ne -1, count)
path = count eq 0L ? '' : dirs[ind]
for i = 0L, n_elements(dirs) - 1L do begin
path[i] = expand_path(path[i])
endfor
case 1 of
keyword_set(dlm): pref = 'IDL_DLM_PATH'
else: pref = 'IDL_PATH'
endcase
pref_set, pref, strjoin(path, ':'), /commit
end