1 files changed, 26 insertions, 0 deletions
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)))