Orbit Data Messages (CCSDS 502.0-B-3)
odm: fix Buffer.add_string + Fmt.str arg grouping
+6
-5
+6
-5
lib/opm.ml
+6
-5
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
-
Buffer.add_string buf (Fmt.str "%04d-%02d-%02dT%02d:%02d:%06.3f") y m d hh mm
335
-
(Float.of_int ss +. frac)
334
+
Buffer.add_string buf
335
+
(Fmt.str "%04d-%02d-%02dT%02d:%02d:%06.3f" y m d hh mm
336
+
(Float.of_int ss +. frac))
336
337
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
338
+
let kv buf k v = Buffer.add_string buf (Fmt.str "%s = %s\n" k v)
339
+
let kvf buf k f = Buffer.add_string buf (Fmt.str "%s = %.14g\n" k f)
339
340
let kvf_opt buf k = function Some f -> kvf buf k f | None -> ()
340
341
341
342
let kv_epoch buf k t =
342
-
Buffer.add_string buf (Fmt.str "%s = ") k;
343
+
Buffer.add_string buf (Fmt.str "%s = " k);
343
344
fmt_epoch buf t;
344
345
Buffer.add_char buf '\n'
345
346