(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)))