Add management of predictive SPICE metakernel (78408cb0) · Commits · Metis scientific pipeline / L1 pipeline

load_spice_kernels.pro

+21 −4

Original line number	Diff line number	Diff line
		pro load_spice_kernels, path, unload = unload, kernel_list = kernel_list, kernel_version = kernel_version
		if keyword_set(unload) then cspice_kclear else begin
		metakernel = path + '/mk/solo_ANC_soc-flown-mk.tm'
		openr, in, metakernel, /get_lun
		kernel_list = list()
		while ~ eof(in) do begin

		openr, unit, path + '/mk/solo_ANC_soc-pred-mk.tm', /get
		while ~ eof(unit) do begin
		line = ''
		readf, in, line
		readf, unit, line
		if line.contains('$KERNELS', /fold) then begin
		line = line.replace('$KERNELS', path)
		line = line.replace("'", '')
		@@ -17,6 +17,23 @@ pro load_spice_kernels, path, unload = unload, kernel_list = kernel_list, kernel
		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