CCSDS 504.0-B Attitude Ephemeris Message parser and serializer
replace Printf.bprintf with Buffer.add_string + Fmt.str (merlint E200)
+6
-6
+6
-6
lib/aem.ml
+6
-6
lib/aem.ml
···
271
271
let fmt_epoch buf t =
272
272
let (y, m, d), ((hh, mm, ss), _tz) = Ptime.to_date_time t in
273
273
let frac = Ptime.to_float_s t -. floor (Ptime.to_float_s t) in
274
-
Printf.bprintf buf "%04d-%02d-%02dT%02d:%02d:%06.3f" y m d hh mm
274
+
Buffer.add_string buf (Fmt.str "%04d-%02d-%02dT%02d:%02d:%06.3f") y m d hh mm
275
275
(Float.of_int ss +. frac)
276
276
277
-
let kv buf k v = Printf.bprintf buf "%s = %s\n" k v
277
+
let kv buf k v = Buffer.add_string buf (Fmt.str "%s = %s\n") k v
278
278
279
279
let to_string aem =
280
280
let buf = Buffer.create 2048 in
···
292
292
kv buf "REF_FRAME_B" seg.metadata.ref_frame_b;
293
293
kv buf "ATTITUDE_DIR" seg.metadata.attitude_dir;
294
294
kv buf "TIME_SYSTEM" seg.metadata.time_system;
295
-
Printf.bprintf buf "START_TIME = ";
295
+
Buffer.add_string buf (Fmt.str "START_TIME = ");
296
296
fmt_epoch buf seg.metadata.start_time;
297
297
Buffer.add_char buf '\n';
298
-
Printf.bprintf buf "STOP_TIME = ";
298
+
Buffer.add_string buf (Fmt.str "STOP_TIME = ");
299
299
fmt_epoch buf seg.metadata.stop_time;
300
300
Buffer.add_char buf '\n';
301
301
kv buf "ATTITUDE_TYPE" seg.metadata.attitude_type;
···
312
312
fmt_epoch buf ad.epoch;
313
313
(match ad.attitude with
314
314
| Quaternion q ->
315
-
Printf.bprintf buf " %.14g %.14g %.14g %.14g" q.q1 q.q2 q.q3 q.qc
315
+
Buffer.add_string buf (Fmt.str " %.14g %.14g %.14g %.14g") q.q1 q.q2 q.q3 q.qc
316
316
| Euler e ->
317
-
Printf.bprintf buf " %.14g %.14g %.14g" e.angle_1 e.angle_2
317
+
Buffer.add_string buf (Fmt.str " %.14g %.14g %.14g") e.angle_1 e.angle_2
318
318
e.angle_3);
319
319
Buffer.add_char buf '\n')
320
320
seg.data)