geminid

A Sandboxed Gemini server
git clone git@git.mpah.dev/geminid.git
Log | Files | Refs | README

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"