commit efd749d4f1c431e30cc792a603fd070d41b24fb1 · patrick.sirref.org/opentrace

+2

dune

···

       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

···

       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

···

       10
       10
        
         "ocaml"

     

       11
       11
        
         "libbpf"

     

       12
       12
        
         "libbpf_maps"

     

       13
       13
       +
         "ppx_blob"

     

       13
       14
        
         "odoc" {with-doc}

     

       14
       15
        
       ]

     

       15
       16
        
       build: [