this repo has no description

More static

+2
dune
···
(executable
(name opentrace)
(public_name opentrace)
+
(preprocess (pps ppx_blob))
+
(preprocessor_deps (file opentrace.bpf.o))
(libraries unix libbpf libbpf_maps))
(rule
+5 -1
opentrace.ml
···
open Libbpf_maps
let obj_path = "opentrace.bpf.o"
+
let obj_file = [%blob "opentrace.bpf.o"]
let program_names =
[
···
end
let () =
+
let dir = Filename.temp_dir "opentrace-" "" in
+
let full_obj_path = Filename.concat dir obj_path in
+
Out_channel.with_open_bin full_obj_path (fun oc -> Out_channel.output_string oc obj_file);
let bpf_callback obj _links =
(* Set signal handlers *)
let exitting = ref true in
···
()
done
in
-
with_bpf_object_open_load_link ~obj_path ~program_names bpf_callback
+
with_bpf_object_open_load_link ~obj_path:full_obj_path ~program_names bpf_callback
+1
opentrace.opam
···
"ocaml"
"libbpf"
"libbpf_maps"
+
"ppx_blob"
"odoc" {with-doc}
]
build: [