CCSDS 502.0-B-3 Orbit Ephemeris Message parser and interpolator
pus: rename test_ functions, fix service_type doc (merlint E330/E410)
+29
-8
+29
-8
test/interop/orekit/test.ml
+29
-8
test/interop/orekit/test.ml
···
27
27
Csvt.(
28
28
Row.(
29
29
obj
30
-
(fun name file object_name object_id center_name ref_frame time_system
31
-
num_states epochs xs ys zs vxs vys vzs ->
30
+
(fun
31
+
name
32
+
file
33
+
object_name
34
+
object_id
35
+
center_name
36
+
ref_frame
37
+
time_system
38
+
num_states
39
+
epochs
40
+
xs
41
+
ys
42
+
zs
43
+
vxs
44
+
vys
45
+
vzs
46
+
->
32
47
{
33
48
name;
34
49
file;
···
120
135
(fun i (sv : Oem.state_vector) ->
121
136
let tag = Fmt.str "%s[%d]" r.name i in
122
137
check_float ~name:(tag ^ ".x")
123
-
(float_of_string_safe (List.nth exp_xs i)) sv.pos.x;
138
+
(float_of_string_safe (List.nth exp_xs i))
139
+
sv.pos.x;
124
140
check_float ~name:(tag ^ ".y")
125
-
(float_of_string_safe (List.nth exp_ys i)) sv.pos.y;
141
+
(float_of_string_safe (List.nth exp_ys i))
142
+
sv.pos.y;
126
143
check_float ~name:(tag ^ ".z")
127
-
(float_of_string_safe (List.nth exp_zs i)) sv.pos.z;
144
+
(float_of_string_safe (List.nth exp_zs i))
145
+
sv.pos.z;
128
146
check_float ~name:(tag ^ ".vx")
129
-
(float_of_string_safe (List.nth exp_vxs i)) sv.vel.x;
147
+
(float_of_string_safe (List.nth exp_vxs i))
148
+
sv.vel.x;
130
149
check_float ~name:(tag ^ ".vy")
131
-
(float_of_string_safe (List.nth exp_vys i)) sv.vel.y;
150
+
(float_of_string_safe (List.nth exp_vys i))
151
+
sv.vel.y;
132
152
check_float ~name:(tag ^ ".vz")
133
-
(float_of_string_safe (List.nth exp_vzs i)) sv.vel.z)
153
+
(float_of_string_safe (List.nth exp_vzs i))
154
+
sv.vel.z)
134
155
seg.data)
135
156
rows
136
157