landlock.ml (698B)
1 type permissions = 2 | LANDLOCK_ACCESS_FS_EXECUTE 3 | LANDLOCK_ACCESS_FS_WRITE_FILE 4 | LANDLOCK_ACCESS_FS_READ_FILE 5 | LANDLOCK_ACCESS_FS_READ_DIR 6 | LANDLOCK_ACCESS_FS_REMOVE_DIR 7 | LANDLOCK_ACCESS_FS_REMOVE_FILE 8 | LANDLOCK_ACCESS_FS_MAKE_CHAR 9 | LANDLOCK_ACCESS_FS_MAKE_DIR 10 | LANDLOCK_ACCESS_FS_MAKE_REG 11 | LANDLOCK_ACCESS_FS_MAKE_SOCK 12 | LANDLOCK_ACCESS_FS_MAKE_FIFO 13 | LANDLOCK_ACCESS_FS_MAKE_BLOCK 14 | LANDLOCK_ACCESS_FS_MAKE_SYM 15 16 type permissions_mask = permissions list 17 18 external landlock_init: unit -> int = "caml_landlock_init" 19 external landlock_new_rule: int -> string -> permissions_mask -> int = "caml_landlock" 20 external landlock_finish: int -> int = "caml_landlock_finish"