new file mode 100644

@@ -0,0 +1,38 @@

+(defpackage :objc-runtime.gcd

+  (:use :cl :cffi)

+  (:export ))

+(in-package :objc-runtime.gcd)

+

+(serapeum:eval-always

+  (pushnew #p"/usr/lib/system/"

+           cffi:*foreign-library-directories*

+           :test 'equal))

+

+(serapeum:eval-always

+  (define-foreign-library dispatch

+    (:darwin "libdispatch.dylib")))

+

+(defcfun

+    (get-global-queue "dispatch_get_global_queue" :library dispatch)

+    :pointer

+  (id :long)

+  (flags :unsigned-long))

+

+(defun get-main-queue ()

+  (cffi:foreign-symbol-pointer "_dispatch_main_q"))

+

+(defcfun (dispatch-async "dispatch_async_f" :library dispatch)

+    :pointer

+  (queue :pointer)

+  (context :pointer)

+  (block :pointer))

+

+(defmacro def-gcd-callback (name (context-sym) &body body)

+  `(progn

+     (defcallback ,name :void ((,context-sym :pointer))

+       (declare (ignorable ,context-sym))

+       ,@body)

+     (define-symbol-macro ,name (callback ,name))))

+

+(def-gcd-callback foo-callback (context)

+  (demo-app::show-alert "Uh-oh"))