Changeset 12643

Timestamp:

Aug 21, 2009, 1:20:08 PM (15 years ago)

Author:

Gary Byers

Message:

Tweak the code that loads the Cocoa framework, so that standalone
Cocotron apps don't try to add "ccl:cocotron;" to the PATH.

File:

• trunk/source/objc-bridge/objc-runtime.lisp (modified) (3 diffs)

trunk/source/objc-bridge/objc-runtime.lisp

@@ -388 +388 @@
 
 
-(def-ccl-pointers cocoa-framework ()
+(defun load-cocoa-framework ()
   (run-in-cocoa-process-and-wait
    #'(lambda ()
@@ -397 +397 @@
        (open-shared-library "/System/Library/Frameworks/Cocoa.framework/Cocoa")
        #+cocotron-objc
-       (let* ((path (getenv "PATH")))
-         (unwind-protect
+       (progn
+         (open-shared-library "Foundation.1.0.dll")
+         (open-shared-library "AppKit.1.0.dll")
+         ;; We may need to call #_NSInitializeProcess
+         ;; under Cocotron.  If so, we'd need to do
+         ;; so on standalone startup, too, and would
+         ;; have to heap-allocated the string vector
+         ;; and its strings.
+         #+notyet
+         (with-string-vector (argv (kernel-path))
+           (#_NSInitializeProcess 1 argv)))
+         
+       ;(#_GetCurrentEventQueue)
+       (current-ns-thread)
+       (create-void-nsthread))))
+
+(pushnew #'load-cocoa-framework *lisp-system-pointer-functions* :key #'function-name)
+
+#-cocotron
+(load-cocoa-framework)
+
+#+cocotron
+(let* ((path (getenv "PATH")))
+           (unwind-protect
               (progn
                 (setenv "PATH"
@@ -405 +427 @@
                                  (truename "ccl:cocotron;"))
                                 path))
-                (open-shared-library "Foundation.1.0.dll")
-                (open-shared-library "AppKit.1.0.dll")
-                ;; We may need to call #_NSInitializeProcess
-                ;; under Cocotron.  If so, we'd need to do
-                ;; so on standalone startup, too, and would
-                ;; have to heap-allocated the string vector
-                ;; and its strings.
-                #+notyet
-                (with-string-vector (argv (kernel-path))
-                  (#_NSInitializeProcess 1 argv)))
+                (load-cocoa-framework))
            (setenv "PATH" path)))
-       ;(#_GetCurrentEventQueue)
-       (current-ns-thread)
-       (create-void-nsthread))))