Skip to content
Snippets Groups Projects
Select Git revision
  • 78408cb0a719e9c58e8ab40fdc653950a2f1a18b
  • master default protected
  • Version-3.3.0
  • Version-3.2.1
  • Version-3.2.0
  • Version-3.1.2
  • Version-3.1.1
  • Version-3.1.0
  • Version-3.0.0
9 results

load_spice_kernels.pro

Blame
  • load_spice_kernels.pro 1.16 KiB
    pro load_spice_kernels, path, unload = unload, kernel_list = kernel_list, kernel_version = kernel_version
    	if keyword_set(unload) then cspice_kclear else begin
    		kernel_list = list()
    		
    		openr, unit, path + '/mk/solo_ANC_soc-pred-mk.tm', /get
    		while ~ eof(unit) do begin
    			line = ''
    			readf, unit, line
    			if line.contains('$KERNELS', /fold) then begin
    				line = line.replace('$KERNELS', path)
    				line = line.replace("'", '')
    				kernel_list.add, line.trim()
    			endif
    			if line.contains('SKD_VERSION', /fold) then begin
    				fields = stregex(line, ".*'([a-z_0-9]*)'", /extract, /sub)
    				kernel_version = fields[1]
    			endif
    		endwhile
    		close, /all
    
    		openr, unit, path + '/mk/solo_ANC_soc-flown-mk.tm', /get
    		while ~ eof(unit) do begin
    			line = ''
    			readf, unit, line
    			if line.contains('$KERNELS', /fold) then begin
    				line = line.replace('$KERNELS', path)
    				line = line.replace("'", '')
    				kernel_list.add, line.trim()
    			endif
    			if line.contains('SKD_VERSION', /fold) then begin
    				fields = stregex(line, ".*'([a-z_0-9]*)'", /extract, /sub)
    				kernel_version = fields[1]
    			endif
    		endwhile
    		close, /all
    
    		foreach item, kernel_list do cspice_furnsh, item
    	endelse
    end