mg_set_path.pro (MG Library)

;+
; Set the IDL path (!path) given an array of directories.
;
; @param 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
;-
pro mg_set_path, dirs
    compile_opt strictarr

    path = dirs
    for i = 0L, n_elements(dirs) - 1L do begin
        path[i] = expand_path(path[i])
    endfor

    pref_set, 'IDL_PATH', strjoin(path, ':'), /commit
end