+2

dune

reviewed

··· 1 1 (executable 2 2 (name opentrace) 3 3 (public_name opentrace) 4 4 + (preprocess (pps ppx_blob)) 5 5 + (preprocessor_deps (file opentrace.bpf.o)) 4 6 (libraries unix libbpf libbpf_maps)) 5 7 6 8 (rule

+5 -1

opentrace.ml

reviewed

··· 2 2 open Libbpf_maps 3 3 4 4 let obj_path = "opentrace.bpf.o" 5 5 + let obj_file = [%blob "opentrace.bpf.o"] 5 6 6 7 let program_names = 7 8 [ ··· 55 56 end 56 57 57 58 let () = 59 59 + let dir = Filename.temp_dir "opentrace-" "" in 60 60 + let full_obj_path = Filename.concat dir obj_path in 61 61 + Out_channel.with_open_bin full_obj_path (fun oc -> Out_channel.output_string oc obj_file); 58 62 let bpf_callback obj _links = 59 63 (* Set signal handlers *) 60 64 let exitting = ref true in ··· 83 87 () 84 88 done 85 89 in 86 86 - with_bpf_object_open_load_link ~obj_path ~program_names bpf_callback 90 90 + with_bpf_object_open_load_link ~obj_path:full_obj_path ~program_names bpf_callback

+1

opentrace.opam

reviewed

··· 10 10 "ocaml" 11 11 "libbpf" 12 12 "libbpf_maps" 13 13 + "ppx_blob" 13 14 "odoc" {with-doc} 14 15 ] 15 16 build: [