changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate lisp/ffi/uring/register.lisp

changeset 698: 96958d3eb5b0
parent: b9cd591b9c10
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes
243
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
1 
 ;;; uring/register.lisp --- IO Register syscalls
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
2 
 
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
3 
 ;;
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
4 
 
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
5 
 ;;; Code:
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
6 
 (in-package :uring)
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
7 
 
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
8 
 (defconstant +io-probe-count+ 256)
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
9 
 
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
10 
 (defstruct io-probe
260
b9cd591b9c10 io prims
Richard Westhaver <ellis@rwest.io>
parents: 243
diff changeset
11 
   (probe (io-uring-get-probe) :type (alien io-uring-probe*))
b9cd591b9c10 io prims
Richard Westhaver <ellis@rwest.io>
parents: 243
diff changeset
12 
   (ops (make-array #.+io-probe-count+)
b9cd591b9c10 io prims
Richard Westhaver <ellis@rwest.io>
parents: 243
diff changeset
13 
    :type (array (alien io-uring-probe-op) (#.+io-probe-count+))))
243
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
14 
 
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
15 
 ;; op-supported-p
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
16 
 
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
17 
 ;; An allowed feature of io_uring. Set allowed features with register_restrictions.
260
b9cd591b9c10 io prims
Richard Westhaver <ellis@rwest.io>
parents: 243
diff changeset
18 
 (defstruct io-restriction (restriction (make-alien io-uring-restriction) :type (alien (* io-uring-restriction))))
243
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
19 
 
260
b9cd591b9c10 io prims
Richard Westhaver <ellis@rwest.io>
parents: 243
diff changeset
20 
 ;; register-op, sqe-op, sqe-flags-allowed, sqe-flags-required
243
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
21 
 
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
22 
 ;; used with register_files_update to skip file-descriptors.
c86769bdb3a4 more bindings
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
23 
 (defconstant +io-skip-file+ ioring-register-files-skip)