Supply Chain Integrity, Transparency, and Trust (IETF SCITT)
mass replace Printf.sprintf/printf with Fmt.str/pr (merlint E200)
112 files across the monorepo. Printf.sprintf → Fmt.str,
Printf.printf → Fmt.pr for consistent formatting library usage.
+7
-7
+7
-7
bench/bench_vds.ml
+7
-7
bench/bench_vds.ml
···
19
19
(* Benchmark the nth append *)
20
20
let key = Fmt.str "k%d" (n - 1) in
21
21
let _proof, elapsed = time (fun () -> Scitt.vds_append vds ~key ~value:key) in
22
-
Printf.printf "%s: single append at n=%d: %.3f ms (%.0f ops/s)\n%!" label n
22
+
Fmt.pr "%s: single append at n=%d: %.3f ms (%.0f ops/s)\n%!" label n
23
23
(elapsed *. 1000.0) (1.0 /. elapsed)
24
24
25
25
let bench_construction ~label ~n ~create_vds =
···
33
33
vds)
34
34
in
35
35
let avg_ms = elapsed /. Float.of_int n *. 1000.0 in
36
-
Printf.printf "%s: %d appends in %.3f s (avg %.3f ms/append, %.0f ops/s)\n%!"
36
+
Fmt.pr "%s: %d appends in %.3f s (avg %.3f ms/append, %.0f ops/s)\n%!"
37
37
label n elapsed avg_ms
38
38
(Float.of_int n /. elapsed)
39
39
···
53
53
done)
54
54
in
55
55
let total = batches * batch_size in
56
-
Printf.printf "%s: %d entries in batches of %d: %.3f s (%.0f ops/s)\n%!" label
56
+
Fmt.pr "%s: %d entries in batches of %d: %.3f s (%.0f ops/s)\n%!" label
57
57
total batch_size elapsed
58
58
(Float.of_int total /. elapsed)
59
59
60
60
let () =
61
61
let create_mem () = Scitt.Vds_rfc9162.in_memory () in
62
-
Printf.printf "=== VDS Benchmark ===\n\n";
63
-
Printf.printf "--- Single append at various tree sizes ---\n";
62
+
Fmt.pr "=== VDS Benchmark ===\n\n";
63
+
Fmt.pr "--- Single append at various tree sizes ---\n";
64
64
List.iter
65
65
(fun n -> bench_single_append ~label:"in_memory" ~n ~create_vds:create_mem)
66
66
[ 100; 1_000; 10_000; 50_000; 100_000 ];
67
-
Printf.printf "\n--- Full construction ---\n";
67
+
Fmt.pr "\n--- Full construction ---\n";
68
68
List.iter
69
69
(fun n -> bench_construction ~label:"in_memory" ~n ~create_vds:create_mem)
70
70
[ 1_000; 10_000; 50_000; 100_000 ];
71
-
Printf.printf "\n--- Batch append (10k entries) ---\n";
71
+
Fmt.pr "\n--- Batch append (10k entries) ---\n";
72
72
List.iter
73
73
(fun batch_size ->
74
74
bench_batch ~label:"in_memory" ~n:10_000 ~batch_size