The unpac monorepo manager self-hosting as a monorepo using unpac
Use lintcstubs to generate C prototypes and fix bugs
+115
-5
+14
-2
vendor/opam/uring/lib/uring/dune
+14
-2
vendor/opam/uring/lib/uring/dune
···
7
7
(language c)
8
8
(names uring_stubs)
9
9
(include_dirs include)
10
-
(flags :standard "-D_GNU_SOURCE")
11
-
(extra_deps include/liburing/compat.h)))
10
+
(extra_deps include/liburing/compat.h primitives.h)))
11
+
12
+
(rule
13
+
(enabled_if %{bin-available:lintcstubs_arity_cmt})
14
+
(action
15
+
(with-stdout-to
16
+
primitives.h.new
17
+
(run %{bin:lintcstubs_arity_cmt} %{dep:.uring.objs/byte/uring.cmt}))))
18
+
19
+
(rule
20
+
(enabled_if %{bin-available:lintcstubs_arity_cmt})
21
+
(alias runtest)
22
+
(action
23
+
(diff primitives.h primitives.h.new)))
12
24
13
25
(rule
14
26
(targets config.ml)
+95
vendor/opam/uring/lib/uring/primitives.h
+95
vendor/opam/uring/lib/uring/primitives.h
···
1
+
/* AUTOGENERATED FILE, DO NOT EDIT */
2
+
#define CAML_NAME_SPACE
3
+
#define _GNU_SOURCE
4
+
#include <caml/mlvalues.h>
5
+
CAMLprim value ocaml_uring_make_statx(value);
6
+
CAMLprim int64_t ocaml_uring_statx_blksize_native(value);
7
+
CAMLprim value ocaml_uring_statx_blksize_bytes(value);
8
+
CAMLprim int64_t ocaml_uring_statx_attributes_native(value);
9
+
CAMLprim value ocaml_uring_statx_attributes_bytes(value);
10
+
CAMLprim int64_t ocaml_uring_statx_nlink_native(value);
11
+
CAMLprim value ocaml_uring_statx_nlink_bytes(value);
12
+
CAMLprim int64_t ocaml_uring_statx_uid_native(value);
13
+
CAMLprim value ocaml_uring_statx_uid_bytes(value);
14
+
CAMLprim int64_t ocaml_uring_statx_gid_native(value);
15
+
CAMLprim value ocaml_uring_statx_gid_bytes(value);
16
+
CAMLprim int64_t ocaml_uring_statx_ino_native(value);
17
+
CAMLprim value ocaml_uring_statx_ino_bytes(value);
18
+
CAMLprim int64_t ocaml_uring_statx_size_native(value);
19
+
CAMLprim value ocaml_uring_statx_size_bytes(value);
20
+
CAMLprim int64_t ocaml_uring_statx_blocks_native(value);
21
+
CAMLprim value ocaml_uring_statx_blocks_bytes(value);
22
+
CAMLprim int64_t ocaml_uring_statx_attributes_mask_native(value);
23
+
CAMLprim value ocaml_uring_statx_attributes_mask_bytes(value);
24
+
CAMLprim int64_t ocaml_uring_statx_rdev_native(value);
25
+
CAMLprim value ocaml_uring_statx_rdev_bytes(value);
26
+
CAMLprim int64_t ocaml_uring_statx_dev_native(value);
27
+
CAMLprim value ocaml_uring_statx_dev_bytes(value);
28
+
CAMLprim int64_t ocaml_uring_statx_mask_native(value);
29
+
CAMLprim value ocaml_uring_statx_mask_bytes(value);
30
+
CAMLprim int64_t ocaml_uring_statx_mnt_id_native(value);
31
+
CAMLprim value ocaml_uring_statx_mnt_id_bytes(value);
32
+
CAMLprim int64_t ocaml_uring_statx_dio_mem_align_native(value);
33
+
CAMLprim value ocaml_uring_statx_dio_mem_align_bytes(value);
34
+
CAMLprim int64_t ocaml_uring_statx_dio_offset_align_native(value);
35
+
CAMLprim value ocaml_uring_statx_dio_offset_align_bytes(value);
36
+
CAMLprim int64_t ocaml_uring_statx_atime_sec_native(value);
37
+
CAMLprim value ocaml_uring_statx_atime_sec_bytes(value);
38
+
CAMLprim int64_t ocaml_uring_statx_btime_sec_native(value);
39
+
CAMLprim value ocaml_uring_statx_btime_sec_bytes(value);
40
+
CAMLprim int64_t ocaml_uring_statx_ctime_sec_native(value);
41
+
CAMLprim value ocaml_uring_statx_ctime_sec_bytes(value);
42
+
CAMLprim int64_t ocaml_uring_statx_mtime_sec_native(value);
43
+
CAMLprim value ocaml_uring_statx_mtime_sec_bytes(value);
44
+
CAMLprim value ocaml_uring_statx_atime_nsec(value);
45
+
CAMLprim value ocaml_uring_statx_btime_nsec(value);
46
+
CAMLprim value ocaml_uring_statx_ctime_nsec(value);
47
+
CAMLprim value ocaml_uring_statx_mtime_nsec(value);
48
+
CAMLprim intnat ocaml_uring_statx_mode_native(value);
49
+
CAMLprim value ocaml_uring_statx_mode_bytes(value);
50
+
CAMLprim intnat ocaml_uring_statx_perm_native(value);
51
+
CAMLprim value ocaml_uring_statx_perm_bytes(value);
52
+
CAMLprim value ocaml_uring_statx_kind(value);
53
+
CAMLprim value ocaml_uring_make_sockaddr(value);
54
+
CAMLprim value ocaml_uring_extract_sockaddr(value);
55
+
CAMLprim value ocaml_uring_make_open_how(value, value, value, value);
56
+
CAMLprim value ocaml_uring_set_iovec(value, value);
57
+
CAMLprim value ocaml_uring_set_string(value, value);
58
+
CAMLprim value ocaml_uring_make_msghdr(value, value, value);
59
+
CAMLprim value ocaml_uring_get_msghdr_fds(value);
60
+
CAMLprim value ocaml_uring_setup(value, value);
61
+
CAMLprim value ocaml_uring_exit(value);
62
+
CAMLprim value ocaml_uring_unregister_buffers(value);
63
+
CAMLprim value ocaml_uring_register_ba(value, value);
64
+
CAMLprim value ocaml_uring_submit(value);
65
+
CAMLprim value ocaml_uring_sq_ready(value);
66
+
CAMLprim value ocaml_uring_get_probe_ring(value);
67
+
CAMLprim value ocaml_uring_opcode_supported(value, value);
68
+
CAMLprim value ocaml_uring_submit_nop(value, value);
69
+
CAMLprim value ocaml_uring_submit_timeout(value, value, value, value, value);
70
+
CAMLprim value ocaml_uring_submit_poll_add(value, value, value, value);
71
+
CAMLprim value ocaml_uring_submit_read(value, value, value, value, value);
72
+
CAMLprim value ocaml_uring_submit_write(value, value, value, value, value);
73
+
CAMLprim value ocaml_uring_submit_readv(value, value, value, value, value);
74
+
CAMLprim value ocaml_uring_submit_writev(value, value, value, value, value);
75
+
CAMLprim value ocaml_uring_submit_readv_fixed_native(value, value, value, value, value, value, value);
76
+
CAMLprim value ocaml_uring_submit_readv_fixed_byte(value *, int);
77
+
CAMLprim value ocaml_uring_submit_writev_fixed_native(value, value, value, value, value, value, value);
78
+
CAMLprim value ocaml_uring_submit_writev_fixed_byte(value *, int);
79
+
CAMLprim value ocaml_uring_submit_close(value, value, value);
80
+
CAMLprim value ocaml_uring_submit_statx_native(value, value, value, value, value, value, value);
81
+
CAMLprim value ocaml_uring_submit_statx_byte(value *, int);
82
+
CAMLprim value ocaml_uring_submit_splice(value, value, value, value, value);
83
+
CAMLprim value ocaml_uring_submit_connect(value, value, value, value);
84
+
CAMLprim value ocaml_uring_submit_accept(value, value, value, value);
85
+
CAMLprim value ocaml_uring_submit_cancel(value, value, value);
86
+
CAMLprim value ocaml_uring_submit_openat2(value, value, value, value);
87
+
CAMLprim value ocaml_uring_submit_unlinkat(value, value, value, value, value);
88
+
CAMLprim value ocaml_uring_submit_send_msg(value, value, value, value, value);
89
+
CAMLprim value ocaml_uring_submit_recv_msg(value, value, value, value, value);
90
+
CAMLprim value ocaml_uring_wait_cqe(value);
91
+
CAMLprim value ocaml_uring_wait_cqe_timeout(value, value);
92
+
CAMLprim value ocaml_uring_peek_cqe(value);
93
+
CAMLprim value ocaml_uring_error_of_errno(value);
94
+
CAMLprim value ocaml_uring_register_eventfd(value, value);
95
+
CAMLprim value ocaml_uring_set_timespec(value, value);
+6
-2
vendor/opam/uring/lib/uring/uring_stubs.c
+6
-2
vendor/opam/uring/lib/uring/uring_stubs.c
···
16
16
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
17
17
*/
18
18
19
+
#include "primitives.h"
20
+
19
21
#include <endian.h> /* liburing.h needs this for __BYTE_ORDER */
20
22
#include <liburing.h>
21
23
#include <caml/alloc.h>
···
158
160
return (Val_int(io_uring_sq_ready(ring)));
159
161
}
160
162
161
-
void /* noalloc */
163
+
value /* noalloc */
162
164
ocaml_uring_set_timespec(value v_sketch_ptr, value v_timeout)
163
165
{
164
166
struct __kernel_timespec *t = Sketch_ptr_val(v_sketch_ptr);
165
167
t->tv_sec = 0;
166
168
t->tv_nsec = Int64_val(v_timeout);
169
+
return Val_unit;
167
170
}
168
171
169
172
#define Val_boottime Val_int(0)
···
269
272
return (Val_true);
270
273
}
271
274
272
-
void /* noalloc */
275
+
value /* noalloc */
273
276
ocaml_uring_set_iovec(value v_sketch_ptr, value v_csl)
274
277
{
275
278
int i;
···
286
289
iovs[i].iov_base = Caml_ba_data_val(v_ba) + Long_val(v_off);
287
290
iovs[i].iov_len = Long_val(v_len);
288
291
}
292
+
return Val_unit;
289
293
}
290
294
291
295
// Caller must ensure the buffers pointed to by v_sketch_ptr are not GC'd until the job is finished.
-1
vendor/opam/uring/tests/main.mli
-1
vendor/opam/uring/tests/main.mli
···
1
-
(* Intentionally empty *)