Changeset 12178


Ignore:
Timestamp:
Jun 1, 2009, 8:03:19 AM (10 years ago)
Author:
gb
Message:

Initialize *COCOA-APPLICATION-BUNDLE-SUFFIX*, pass it down to initialize
the bundle.
Use a shorter *COCOA-APPLICATION-PATH* (don't include - and cpu type).

(The effect is that we're saving the bundle with a slightly shorter name
that doesn't contain the CPU type, but using the old string for
the "bundle identifier", which is used to name the Preferences file. This
lets us keep using the current preferences and allows us to deal with
the case where the user has a network-mounted home directory.)

Location:
trunk/source/cocoa-ide
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-application.lisp

    r11610 r12178  
    2020
    2121(defvar *cocoa-application-path*
     22  (let* ((bits (nth-value 1 (host-platform))))
     23    (format nil "ccl:Clozure CL~a.app;" bits)))
     24(defvar *cocoa-application-copy-headers-p* nil)
     25(defvar *cocoa-application-install-altconsole* t)
     26(defvar *cocoa-application-bundle-suffix*
    2227  (multiple-value-bind (os bits cpu) (host-platform)
    2328    (declare (ignore os))
    24     (format nil "ccl:Clozure CL-~a~a.app;"
    25             (string-downcase cpu) bits)))
    26 (defvar *cocoa-application-copy-headers-p* nil)
    27 (defvar *cocoa-application-install-altconsole* t)
     29    (format nil "Clozure CL-~a~a" (string-downcase cpu) bits)))
    2830(load "ccl:cocoa-ide;defsystem.lisp")
    2931(load-ide)
  • trunk/source/cocoa-ide/cocoa.lisp

    r11610 r12178  
    22
    33(defvar *cocoa-application-path* #+gz "ccl:GZ temp bundle.app;" #-gz
    4         (multiple-value-bind (os bits cpu) (host-platform)
    5           (declare (ignore os))
    6           (format nil "ccl:temp bundle-~a~a.app;"
    7                   (string-downcase cpu) bits)))
     4        (let* ((bits (nth-value 1 (host-platform))))
     5          (format nil "ccl:temp bundle~a.app;"
     6                  bits)))
    87(defvar *cocoa-application-copy-headers-p* nil)
    98(defvar *cocoa-application-install-altconsole* nil)
     9(defvar *cocoa-application-bundle-suffix*
     10  (multiple-value-bind (os bits cpu) (host-platform)
     11    (declare (ignore os))
     12    (format nil "temp bundle-~a~a" (string-downcase cpu) bits)))
     13
    1014(load "ccl:cocoa-ide;defsystem.lisp")
    1115(load-ide)
  • trunk/source/cocoa-ide/ide-bundle.lisp

    r11612 r12178  
    9292  (require "FAKE-CFBUNDLE-PATH")
    9393  (create-ide-bundle *cocoa-application-path*)
    94   (ccl::fake-cfbundle-path *cocoa-application-path* "ccl:cocoa-ide;Info.plist-proto" "com.clozure"))
     94  (ccl::fake-cfbundle-path *cocoa-application-path* "ccl:cocoa-ide;Info.plist-proto" "com.clozure" *cocoa-application-bundle-suffix*))
Note: See TracChangeset for help on using the changeset viewer.