[Openmcl-cvs-notifications] r7446 - in /trunk/ccl: cocoa-ide/Info.plist-proto objc-bridge/fake-cfbundle-path.lisp

[gb at clozure.com]

Author: gb
Date: Sun Oct 14 22:51:21 2007
New Revision: 7446

Log:
New "logical" string for FAKE-CFBUNDLE-PATH to replace; affects the name
of the preferences file.  =


FAKE-CFBUNDLE-PATH wants an argument (reversed domain thing) to prepend
to the (conditional) bundle name.

Modified:
    trunk/ccl/cocoa-ide/Info.plist-proto
    trunk/ccl/objc-bridge/fake-cfbundle-path.lisp

Modified: trunk/ccl/cocoa-ide/Info.plist-proto
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/cocoa-ide/Info.plist-proto (original)
+++ trunk/ccl/cocoa-ide/Info.plist-proto Sun Oct 14 22:51:21 2007
@@ -66,7 +66,7 @@
 	<key>CFBundleName</key>
 	<string>OPENMCL-NAME</string>
 	<key>CFBundleIdentifier</key>
-	<string>com.clozure.OpenMCL</string>
+	<string>OPENMCL-IDENTIFIER</string>
 	<key>CFBundleIconFile</key>
 	<string>openmcl-icon.icns</string>
 </dict>

Modified: trunk/ccl/objc-bridge/fake-cfbundle-path.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/objc-bridge/fake-cfbundle-path.lisp (original)
+++ trunk/ccl/objc-bridge/fake-cfbundle-path.lisp Sun Oct 14 22:51:21 2007
@@ -10,7 +10,7 @@
 ;;; already "inside a bundle".  If it is necessary, it has to happen
 ;;; before the CoreFoundation library's initialized.
 =

-(defun fake-cfbundle-path (bundle-root info-plist-proto-path)
+(defun fake-cfbundle-path (bundle-root info-plist-proto-path bundle-prefix)
   (let* ((kernel-name (standard-kernel-name))
          (translated-root (translate-logical-pathname bundle-root))
 	 (bundle-name (let* ((name (if (directory-pathname-p translated-root)
@@ -21,8 +21,10 @@
 				 (string-equal name ".app" :start1 (- len 4)))
 			    (subseq name 0 (- len 4))
 			    name)))
+         (bundle-id (concatenate 'string bundle-prefix "." bundle-name))
          (needles `(("OPENMCL-KERNEL" . ,kernel-name)
-		    ("OPENMCL-NAME" . ,bundle-name)))
+		    ("OPENMCL-NAME" . ,bundle-name)
+                    ("OPENMCL-IDENTIFIER" . ,bundle-id))
          (executable-path (merge-pathnames
                            (make-pathname :directory "Contents/MacOS/"
                                           :name kernel-name)