Orbit Data Messages (CCSDS 502.0-B-3)
replace Printf.bprintf with Buffer.add_string + Fmt.str (merlint E200)
+4
-4
+4
-4
lib/opm.ml
+4
-4
lib/opm.ml
···
331
331
let fmt_epoch buf t =
332
332
let (y, m, d), ((hh, mm, ss), _tz) = Ptime.to_date_time t in
333
333
let frac = Ptime.to_float_s t -. floor (Ptime.to_float_s t) in
334
-
Printf.bprintf buf "%04d-%02d-%02dT%02d:%02d:%06.3f" y m d hh mm
334
+
Buffer.add_string buf (Fmt.str "%04d-%02d-%02dT%02d:%02d:%06.3f") y m d hh mm
335
335
(Float.of_int ss +. frac)
336
336
337
-
let kv buf k v = Printf.bprintf buf "%s = %s\n" k v
338
-
let kvf buf k f = Printf.bprintf buf "%s = %.14g\n" k f
337
+
let kv buf k v = Buffer.add_string buf (Fmt.str "%s = %s\n") k v
338
+
let kvf buf k f = Buffer.add_string buf (Fmt.str "%s = %.14g\n") k f
339
339
let kvf_opt buf k = function Some f -> kvf buf k f | None -> ()
340
340
341
341
let kv_epoch buf k t =
342
-
Printf.bprintf buf "%s = " k;
342
+
Buffer.add_string buf (Fmt.str "%s = ") k;
343
343
fmt_epoch buf t;
344
344
Buffer.add_char buf '\n'
345
345