Benchmark: bin_prot

Author: vouillon

bench.Dockerfile

@@ -47,6 +47,10 @@ RUN opam exec -- dune exec tools/ci_setup.exe ../janestreet . \
  && opam remove js_of_ocaml-compiler ojs \
  && opam clean
 
+# Bin_prot packages
+RUN opam pin add -n https://github.com/ocaml-wasm/bin_prot.git#wasm-v0.18 \
+ && opam install ppx_bin_prot
+
 # Copy sources
 COPY --chown=opam:opam . ./
 

benchmarks/benchmark-others/bin_prot/Makefile

@@ -0,0 +1,20 @@
+.PHONY: bench perform
+
+export NAME=Others
+export SUBNAME=bin_prot
+
+SHELL=/bin/bash -o pipefail
+
+bench:
+	@date -u +"%FT%TZ - $(NAME)/$(SUBNAME): starting"
+	dune build --profile release --root .
+	node _build/default/bench.bc.js 400000
+	$(MAKE) perform COMPILER=js_of_ocaml SCRIPT=_build/default/bench.bc.js KIND=js
+	$(MAKE) perform COMPILER=wasm_of_ocaml SCRIPT=_build/default/bench.bc.wasm.js KIND=wasm
+	@date -u +"%FT%TZ - $(NAME)/$(SUBNAME): done"
+
+perform:
+	/usr/bin/time -f '{"compiler": "$(COMPILER)", "time":"%E"}' node $(SCRIPT) 2>&1 1> /dev/null | \
+	tee /dev/stderr | \
+	sh ../../utils/format_metrics.sh exec | \
+	sh ../../utils/aggregate.sh $(KIND)

benchmarks/benchmark-others/bin_prot/bench.ml

@@ -0,0 +1,83 @@
+open Bin_prot.Std
+
+type element =
+  { a : string
+  ; b : string
+  ; c : string
+  ; d : bool
+  ; e : bool
+  ; f : bool
+  ; g : string option
+  ; h : bool
+  ; i : bool
+  ; j : bool
+  ; k : bool
+  ; l : bool
+  ; m : bool
+  ; n : bool
+  ; o : string option
+  ; p : bool
+  ; q : bool
+  ; r : int
+  ; s : int
+  ; t : int
+  ; u : int
+  ; v : string list (* these are small - 1-5 *)
+  }
+[@@deriving bin_io]
+
+let s = "abcdefabcdefabcdef"
+
+let v = [ s; s; s; s ]
+
+let x =
+  { a = s
+  ; b = s
+  ; c = s
+  ; d = true
+  ; e = true
+  ; f = true
+  ; g = Some s
+  ; h = true
+  ; i = true
+  ; j = true
+  ; k = true
+  ; l = true
+  ; m = true
+  ; n = true
+  ; o = Some s
+  ; p = true
+  ; q = true
+  ; r = 65537
+  ; s = 65537
+  ; t = 65537
+  ; u = 65537
+  ; v
+  }
+
+type t = element list [@@deriving bin_io]
+
+let rec f acc n = if n = 0 then acc else f (x :: acc) (n - 1)
+
+let () =
+  if Array.length Sys.argv > 1
+  then (
+    let count = int_of_string Sys.argv.(1) in
+    let l = f [] count in
+    let len = [%bin_size: t] l in
+    let b = Bin_prot.Common.create_buf len in
+    ignore ([%bin_write: t] b ~pos:0 l : int);
+    let s = Bytes.create len in
+    Bin_prot.Common.blit_buf_string ~src_pos:0 b ~dst_pos:0 s ~len;
+    Out_channel.with_open_bin "data" @@ fun ch -> Out_channel.output_bytes ch s)
+  else
+    let s = In_channel.with_open_bin "data" @@ In_channel.input_all in
+    let len = String.length s in
+    let b = Bin_prot.Common.create_buf len in
+    Bin_prot.Common.blit_string_buf ~src_pos:0 s ~dst_pos:0 b ~len;
+    let t = Unix.gettimeofday () in
+    for _ = 0 to 4 do
+      ignore ([%bin_read: t] b ~pos_ref:(ref 0) : t)
+    done;
+    let t' = Unix.gettimeofday () in
+    Format.printf "%.2f@." (t' -. t)

benchmarks/benchmark-others/bin_prot/dune

@@ -0,0 +1,10 @@
+(executables
+ (names bench)
+ (modes js wasm)
+ (js_of_ocaml
+  (flags --opt 2))
+ (wasm_of_ocaml
+  (flags --opt 2))
+ (preprocess
+  (pps ppx_bin_prot))
+ (libraries unix))

benchmarks/benchmark-others/bin_prot/dune-project

@@ -0,0 +1 @@
+(lang dune 3.19)