; docformat = 'rst'
;+
; Returns some information about the current directory through keywords.
;
; :Keywords:
; _ref_extra : out, optional, type=keywords
; keywords to CD and FILE_SEARCH
;-
pro mg_dirinfo, _ref_extra=e
compile_opt strictarr
cd, _extra=e
files = file_search('*', _extra=e)
end
; main-level example
mg_dirinfo, count=nfiles, current_directory=currentDir
print, nfiles
print, currentDir
end