;+
; NAME:
;  naif_loadedkernels
; PURPOSE: (one line)
;   return the loaded kernels
; DESCRIPTION:
;   see /usr/local/icy/doc/html/req/icy.html for ICY info
;
; CATEGORY:
;  Astronomy
; CALLING SEQUENCE:
;  naifinit
; INPUTS:
;  none
; OPTIONAL INPUT PARAMETERS:
;  none
; KEYWORD INPUT PARAMETERS:
;  none
; KEYWORD OUTPUT PARAMETERS:
;  none
; OUTPUTS:
;  Array of strings containing the loaded kernels
; COMMON BLOCKS:
;  None.
; SIDE EFFECTS:
;  Defines the system variable !eph using defsysv
; RESTRICTIONS:
; PROCEDURE:
; MODIFICATION HISTORY:
;  Written 2005 Dec 26, by Leslie Young, SwRI
;-

function naif_loadedkernels, fullfile=fullfile
    
on_error, 2
debug = 0

naifinit

  ; Count the number of loaded kernel files. 
cspice_ktotal, 'ALL', count
   
  ; Loop over the count, outputting file information as we loop.
  ; The loop tells us all files loaded via cspice_furnsh, their
  ; type, and how they were loaded.

if count eq 0 then return, -1

files = strarr(count)

for i = 0, count-1  do begin
    cspice_kdata, i, 'ALL', file, type, source, handle, found
    if not keyword_set(fullfile) then begin
        file = lasttok(file)
    end
    files[i] = file
endfor

return, files

end