diff --git a/load_spice_kernels.pro b/load_spice_kernels.pro index aded9299a29d1190827ca1c24a95ebc4a82d07fd..f2f225d77b51da1316f8434310897b584c324236 100644 --- a/load_spice_kernels.pro +++ b/load_spice_kernels.pro @@ -1,11 +1,11 @@ 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