From 6fe823a614279cceb2d48507bd8e93b0efd87f94 Mon Sep 17 00:00:00 2001 From: Thomas Albers Date: Sat, 4 Mar 2023 22:47:28 +0100 Subject: Initial commit --- src/event.lisp | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 src/event.lisp (limited to 'src/event.lisp') diff --git a/src/event.lisp b/src/event.lisp new file mode 100644 index 0000000..fb6e98a --- /dev/null +++ b/src/event.lisp @@ -0,0 +1,26 @@ +(in-package #:ocl) + +(defun wait-for-events (event-list) + (with-foreign-sequence (c-event-list event-list 'cl-event num-events) + (check-error (%wait-for-events num-events c-event-list)))) + +(defun create-user-event (context) + (check-error-arg (%create-user-event context))) + +(defparameter +event-info-type-alist+ + '((:event-command-queue . cl-command-queue) + (:event-context . cl-context) + (:event-command-type . cl-command-type) + (:event-command-execution-status . cl-int) + (:event-reference-count . cl-uint))) + +(wrap-get-info-function get-event-info %get-event-info +event-info-type-alist+) + +(defun retain-event (event) + (check-error (%retain-event event))) + +(defun release-event (event) + (check-error (%release-event event))) + +(defun set-user-event-status (event execution-status) + (check-error (%set-user-event-status event execution-status))) -- cgit v1.2.3