changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/io/ring.lisp

changeset 695: 2bad47888dbf
parent: c40d2a41d7ce
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 16:14:44 -0400
permissions: -rw-r--r--
description: add static-vector 
     1 ;;; io/ring.lisp --- IO Ring Library
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 (in-package :io/ring)
     7 
     8 (load-uring)
     9 
    10 (defvar *io* nil)
    11 
    12 (defun init-io (&optional (entries 256) (flags 0))
    13   "Initialize the *IO* variable to an io-uring alien-value type using a
    14 queue size of ENTRIES and settings FLAGS."
    15   (with-new-io-uring r
    16     (if (= 0 (io-uring-queue-init entries (addr r) flags))
    17         (setf *io* r)
    18         (error "failed to initialize io-uring"))))
    19 
    20 ;; (defun enter-io (ring))
    21 ;; (defun exit-io (ring))