* Source/NSBundle.m ([NSBundle -bundleIdentifier]): New.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@16283 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -1,3 +1,7 @@
+2003-03-27  Adam Fedor  <fedor@gnu.org>
+
+	* Source/NSBundle.m ([NSBundle -bundleIdentifier]): New.
+
 2003-03-27  Stephane Corthesy <stephane@sente.ch>
 
 	* Tools/autogsdoc.m, AGSHtml.m, AGSIndex.m, AGSOutput.m: Add

Headers/gnustep/base/NSBundle.h

@@ -230,6 +230,10 @@ GS_EXPORT NSString* NSLoadedClasses;
 /** Returns the absolute path to the resources directory of the bundle.  */
 - (NSString*) resourcePath;
 
+/** Returns the bundle identifier, as defined by the CFBundleIdentifier
+    key in the infoDictionary */
+- (NSString *)bundleIdentifier;
+
 /** Returns the bundle version. */
 - (unsigned) bundleVersion;
 

Source/NSBundle.m

@@ -1595,6 +1595,11 @@ _bundle_load_callback(Class theClass, struct objc_category *theCategory)
   return _infoDict;
 }
 
+- (NSString *)bundleIdentifier
+{
+    return [[self infoDictionary] objectForKey:@"CFBundleIdentifier"];
+}
+
 - (unsigned)bundleVersion
 {
   return _version;