new file mode 100644

@@ -0,0 +1,6 @@

+*.*f*sl

+foo*

+*tmp*

+ns-test

+*.dylib

+*~

@@ -9,6 +9,13 @@

     (format t "~&Exxception: ~a~%" [exception reason])

     (values)))

+(cffi:defcfun (init-window "initWindow")

+    :pointer

+  (window :pointer)

+  (rect (:pointer (:struct objc-runtime:ns-rect)))

+  (a :char)

+  (b :char)

+  (c :boolean))

 #+null

 (cffi:defcfun (set-uncaught-exception-handler "set_uncaught_exception_handler"

@@ -70,32 +77,34 @@

                            '(:struct objc-runtime:ns-rect)))

 (defun main ()

-  (with-selectors ((shared-application "sharedApplication")

-                   (process-info "processInfo")

-                   (process-name "processName")

-                   (set-activation-policy "setActivationPolicy:")

-                   (init-with-content-rect "initWithContentRect:styleMask:backing:defer:")

-                   (set-title "setTitle:")

-                   (run "run")

-                   (activate-ignoring-other-apps "activateIgnoringOtherApps:")

-                   alloc

-                   (make-key-and-order-front "makeKeyAndOrderFront:")

-                   (cascade-top-left-from-point "cascadeTopLeftFromPoint:")

-                   ;; (application-should-terminate "applicationShouldTerminate:")

-                   ;; (set-delegate "setDelegate:")

-                   ;; (finish-launching "finishLaunching")

-                   )

-    [#@NSApplication shared-application]

-    [objc-runtime::ns-app set-activation-policy :int 0]

+  (trivial-main-thread:with-body-in-main-thread ()

+    (with-selectors ((shared-application "sharedApplication")

+                     (process-info "processInfo")

+                     (process-name "processName")

+                     (set-activation-policy "setActivationPolicy:")

+                     (init-with-content-rect "initWithContentRect:styleMask:backing:defer:")

+                     (set-title "setTitle:")

+                     (run "run")

+                     (activate-ignoring-other-apps "activateIgnoringOtherApps:")

+                     alloc

+                     (make-key-and-order-front "makeKeyAndOrderFront:")

+                     (cascade-top-left-from-point "cascadeTopLeftFromPoint:")

+                     ;; (application-should-terminate "applicationShouldTerminate:")

+                     ;; (set-delegate "setDelegate:")

+                     ;; (finish-launching "finishLaunching")

+                     )

+      [#@NSApplication shared-application]

+      [objc-runtime::ns-app set-activation-policy :int 0]

-    (break)

-    (let* ((application-name [[#@NSProcessInfo process-info] process-name]))

-      (with-point (p (20 20))

-        (let* ((the-window [#@NSWindow alloc]))

-          [the-window init-with-content-rect :pointer (make-rect 10 10 120 120)

-                                             :char 1 :char 2 :boolean nil]

-          [the-window cascade-top-left-from-point :pointer p]

-          [the-window set-title :pointer application-name]

-          [the-window make-key-and-order-front :pointer (cffi:null-pointer)]

-          [ objc-runtime::ns-app activate-ignoring-other-apps :boolean t]

-          [ objc-runtime::ns-app run])))))

+      ;; (break)

+      (let* ((application-name [[#@NSProcessInfo process-info] process-name]))

+        (with-point (p (20 20))

+          (let* ((the-window [#@NSWindow alloc])

+                 (foreign-rect (make-rect 10 10 120 120)))

+            (format t "~&My rect: ~s~%" (cffi:convert-from-foreign foreign-rect '(:struct objc-runtime::ns-rect)))

+            (init-window the-window foreign-rect 1 2 nil)

+            [the-window cascade-top-left-from-point :pointer p]

+            [the-window set-title :pointer application-name]

+            [the-window make-key-and-order-front :pointer (cffi:null-pointer)]

+            [ objc-runtime::ns-app activate-ignoring-other-apps :boolean t]

+            [ objc-runtime::ns-app run]))))))

@@ -1,6 +1,18 @@

+#include <stdio.h>

+

 #include <Foundation/NSException.h>

+#include <Foundation/NSGeometry.h>

+#include <AppKit/NSWindow.h>

 #define EXPORT __attribute__((visibility("default")))

 EXPORT void set_uncaught_exception_handler(NSUncaughtExceptionHandler * _Nullable handler) {

   NSSetUncaughtExceptionHandler(handler);

 };

+

+EXPORT id initWindow(NSWindow *window, NSRect *rect, char a, char b, Boolean c) {

+  printf("Got a rect: (%f %f), (%f %f)\n", rect->size.width, rect->size.height, rect->origin.x, rect->origin.y);

+  return [window initWithContentRect: *rect

+                           styleMask: a

+                             backing: b

+                               defer: c];

+}

@@ -9,8 +9,11 @@

                #:uiop

                #:serapeum

                #:fwoar.lisputils

-               #:cffi)

+               #:cffi

+               #:trivial-main-thread

+               #:cffi-libffi)

   :defsystem-depends-on (#:cffi-grovel)

   :components ((:file "package")

                (:cffi-grovel-file "objc-runtime-types" :depends-on ("package"))

-               (:file "objc-runtime" :depends-on ("package" "objc-runtime-types"))))

+               (:file "readtable" :depends-on ("package"))

+               (:file "objc-runtime" :depends-on ("package" "readtable" "objc-runtime-types"))))

@@ -1,4 +1,6 @@

 (in-package :objc-runtime)

+(serapeum:eval-always

+ (named-readtables:in-readtable :objc-readtable))

 (serapeum:eval-always

   (cffi:define-foreign-library cocoa

@@ -131,28 +133,6 @@

      ,@body))

-(eval-when (:compile-toplevel :load-toplevel :execute)

-  (named-readtables:defreadtable :objc-readtable

-    (:merge :standard)

-    (:syntax-from :standard #\) #\])

-    (:macro-char #\[ (lambda (s char)

-                       char

-                       (destructuring-bind (obj message . args)

-                           (read-delimited-list #\] s t)

-                         `(objc-msg-send ,obj ,message ,@args)))

-                 nil)

-    (:dispatch-macro-char #\# #\@

-                          (lambda (s c b)

-                            c b

-                            (let ((class-name (coerce (loop for c = (read-char s nil nil t)

-                                                         until (or (null c)

-                                                                   (serapeum:whitespacep c))

-                                                         collect c)

-                                                      'string)))

-                              `(objc-look-up-class ,class-name))))))

-

-(named-readtables:in-readtable :objc-readtable)

-

 (defgeneric make-objc-instance (class &rest args)

   (:method ((class string) &rest args)

     (apply #'make-objc-instance (objc-look-up-class class) args))

new file mode 100644

@@ -0,0 +1,21 @@

+(in-package :objc-runtime)

+

+(named-readtables:defreadtable :objc-readtable

+  (:merge :standard)

+  (:syntax-from :standard #\) #\])

+  (:macro-char #\[ (lambda (s char)

+                     char

+                     (let ((info (read-delimited-list #\] s t)))

+                       (when info

+                         (destructuring-bind (obj message . args) info

+                           `(objc-msg-send ,obj ,message ,@args)))))

+               nil)

+  (:dispatch-macro-char #\# #\@

+                        (lambda (s c b)

+                          c b

+                          (let ((class-name (coerce (loop for c = (read-char s nil nil t)

+                                                       until (or (null c)

+                                                                 (serapeum:whitespacep c))

+                                                       collect c)

+                                                    'string)))

+                            `(objc-look-up-class ,class-name)))))