this repo has no description
patrick.sirref.org
1let () =
2 let concurrency = Cstubs.unlocked in
3 let errno = Cstubs.ignore_errno in
4 match Sys.argv.(1) with
5 | "ml" ->
6 Cstubs.write_ml ~concurrency Format.std_formatter ~prefix:"" ~errno
7 (module C_function_description.Functions)
8 | "c" ->
9 print_endline "#include <bpf/libbpf.h>";
10 Cstubs.write_c ~concurrency Format.std_formatter ~prefix:"" ~errno
11 (module C_function_description.Functions)
12 | s -> failwith ("unknown functions " ^ s)