compile_opt strictarr

; set IDL_PATH
idl_path_filename = getenv('HOME') + path_sep() + '.idl_path'
nPathDirs = file_lines(idl_path_filename)
pathDirs = strarr(nPathDirs)

openr, lun, idl_path_filename, /get_lun
readf, lun, pathDirs
free_lun, lun

commentPos = strpos(pathDirs, ';')
pathDirInds = where(commentPos ne 0, nPathDirs)
if (nPathDirs gt 0) then mg_set_path, pathDirs[pathDirInds]

; quietly load vis constnants
oldQuiet = !quiet
!quiet = 1
vis_constants
!quiet = oldQuiet

; remove temporary variables
delvar, idl_path_filename, nPathDirs, pathDirs, lun, $
        commentPos, pathDirInds, oldQuiet