Changeset 12173


Ignore:
Timestamp:
Jun 1, 2009, 7:50:50 AM (10 years ago)
Author:
gb
Message:

FAKE-CFBUNDLE-PATH: accept an optional bundle-id-suffix, add arch info to
the generated CFBundleVersion.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/fake-cfbundle-path.lisp

    r7505 r12173  
    1111;;; before the CoreFoundation library's initialized.
    1212
    13 (defun fake-cfbundle-path (bundle-root info-plist-proto-path bundle-prefix)
     13(defun fake-cfbundle-path (bundle-root info-plist-proto-path bundle-prefix &optional bundle-suffix)
    1414  (let* ((kernel-name (standard-kernel-name))
    1515         (translated-root (translate-logical-pathname bundle-root))
     
    2020                        (if (and (> len 4)
    2121                                 (string-equal name ".app" :start1 (- len 4)))
    22                             (subseq name 0 (- len 4))
    23                             name)))
    24          (bundle-id (concatenate 'string bundle-prefix "." bundle-name))
    25          (bundle-version (format nil "~d" *openmcl-svn-revision*))
     22                                  (subseq name 0 (- len 4))
     23                                  name)))
     24         (bundle-id (concatenate 'string bundle-prefix "." (or bundle-suffix bundle-name)))
     25         (bundle-version (multiple-value-bind (os bits cpu)
     26                             (ccl::host-platform)
     27                           (declare (ignore os))
     28                           (format nil "~d (~a~d)" *openmcl-svn-revision* cpu bits)))
    2629         (needles `(("OPENMCL-KERNEL" . ,kernel-name)
    2730                    ("OPENMCL-NAME" . ,bundle-name)
Note: See TracChangeset for help on using the changeset viewer.