···

       
1
       
1
       
 
       
.git

     

       
2
       
2
       
+
       
static.sh

     

       
2
       
3
       
 
       
_build

     

···

       
1
       
1
       
 
       
_build

     

       
2
       
2
       
+
       
opentrace

     

       
2
       
3
       
 
       
vmlinux.h

     

       
3
       
4
       
 
       
*.o

     

       
4
       
5
       
 
       
arch

     

···

       
7
       
7
       
 
       
  clang \

     

       
8
       
8
       
 
       
  libffi-dev \

     

       
9
       
9
       
 
       
  libbpf-dev \

     

       
10
       
10
       
+
       
  libelf-static \

     

       
11
       
11
       
+
       
  bpftool \

     

       
12
       
12
       
+
       
  zlib-static \

     

       
13
       
13
       
+
       
  zstd-static \

     

       
10
       
14
       
 
       
  musl-dev

     

       
11
       
15
       
 
       


     

       
12
       
16
       
 
       
WORKDIR /src

     
···

       
19
       
23
       
 
       
RUN opam exec -- dune build --profile=release

     

       
20
       
24
       
 
       


     

       
21
       
25
       
 
       
FROM alpine

     

       
22
       
22
       
-
       
COPY --from=build /src/_build/default/install/opentrace /opentrace

     

       
26
       
26
       
+
       
COPY --from=build /src/_build/default/opentrace.exe /opentrace

     

       
23
       
27
       
 
       


     

···

       
7
       
7
       
 
       
  [

     

       
8
       
8
       
 
       
    "tracepoint__syscalls__sys_enter_openat";

     

       
9
       
9
       
 
       
    "tracepoint__syscalls__sys_enter_openat2";

     

       
10
       
10
       
-
       
    "tracepoint__syscalls__sys_enter_open";

     

       
10
       
10
       
+
       
    (* "tracepoint__syscalls__sys_enter_open"; *)

     

       
11
       
11
       
 
       
  ]

     

       
12
       
12
       
 
       


     

       
13
       
13
       
 
       
module Open_event = struct

     

···

       
1
       
1
       
+
       
diff --git a/dune b/dune

     

       
2
       
2
       
+
       
index d7572d4..59a2082 100644

     

       
3
       
3
       
+
       
--- a/dune

     

       
4
       
4
       
+
       
+++ b/dune

     

       
5
       
5
       
+
       
@@ -1,6 +1,7 @@

     

       
6
       
6
       
+
       
 (executable

     

       
7
       
7
       
+
       
  (name opentrace)

     

       
8
       
8
       
+
       
  (public_name opentrace)

     

       
9
       
9
       
+
       
+ (flags (:standard -cclib -static -cclib -lelf -cclib -lzstd -cclib -lz))

     

       
10
       
10
       
+
       
  (libraries unix libbpf libbpf_maps))

     

       
11
       
11
       
+
       
 

     

       
12
       
12
       
+
       
 (rule

     

···

       
1
       
1
       
+
       
#! /bin/bash

     

       
2
       
2
       
+
       
docker build . -t opentrace

     

       
3
       
3
       
+
       
id=$(docker create opentrace)

     

       
4
       
4
       
+
       
docker cp $id:/opentrace - | tar x > ./opentrace

     

       
5
       
5
       
+
       
docker rm -v $id