kballard-osx-plist 1.0

data/History.txt

@@ -0,0 +1,2 @@
+== 1.0 / 2008-04-25
+  * First public release

data/Manifest.txt

@@ -0,0 +1,10 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+ext/plist/extconf.rb
+ext/plist/plist.c
+plist.gemspec
+test/fixtures/xml_plist
+test/suite.rb
+test/test_plist.rb

data/README.txt

@@ -0,0 +1,83 @@
+== osx/plist
+    by Kevin Ballard
+    http://github.com/kballard/plist
+
+== DESCRIPTION:
+
+osx/plist is a Ruby library for manipulating Property Lists natively using the built-in support in OS X.
+
+== REQUIREMENTS:
+
+* CoreFoundation (i.e. Mac OS X)
+
+== INSTALL:
+
+  $ gem sources -a http://gems.github.com/ (you only need to do this once)
+  $ gem install kballard-plist
+
+== SOURCE:
+
+osx/plist's git repo is available on GitHub, which can be browsed at:
+
+  http://github.com/kballard/plist
+
+and cloned from:
+
+  git://github.com/kballard/plist.git
+
+== USAGE:
+
+One new module is provided, named OSX::PropertyList. It has the following 2 methods:
+
+==== OSX::PropertyList.load(input, format = false)
+
+Loads the property list from input, which is either an IO, StringIO, or a string. Format is an optional parameter - if false, the return value is the converted property list object. If true, the return value is a 2-element array, the first element being the returned value and the second being a symbol identifying the property list format.
+
+==== OSX::PropertyList.dump(output, obj, format = :xml1)
+
+Dumps the property list object into output, which is either an IO or StringIO. Format determines the property list format to write out. The supported values are :xml1,, :binary1, and :openstep; however, OpenStep format appears to not be supported by the system for output anymore.
+
+The valid formats are :xml1, :binary1, and :openstep. When loading a property list, if the format is something else (not possible under any current OS, but perhaps if a future OS includes another type) then the format will be :unknown.
+
+This module also provides a method on Object:
+
+==== Object#to_plist(format = :xml1)
+
+This is the same as PropertyList.dump except it outputs the property list as a string return value instead of writing it to a stream
+
+This module also provides 2 methods on String:
+
+==== String#blob?
+
+Returns whether the string is a blob.
+
+==== String#blob=
+
+Sets whether the string is a blob.
+
+A blob is a string that's been converted from a <data> property list item. When dumping to a property list, any strings that are blobs are written as <data> items rather than <string> items.
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2008 Kevin Ballard
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'hoe'
+
+Hoe.new('osx-plist', "1.0") do |p|
+  p.author = "Kevin Ballard"
+  p.email = "kevin@sb.org"
+  p.summary = "Property List manipulation for OS X"
+  p.url = "http://www.github.com/kballard/plist"
+  p.spec_extras = {:extensions => "ext/plist/extconf.rb"}
+end

data/ext/plist/extconf.rb

@@ -0,0 +1,7 @@
+#!/usr/bin/ruby
+require 'mkmf'
+newFlags = " -arch ppc -arch i386 -isysroot /Developer/SDKs/MacOSX10.4u.sdk"
+$CFLAGS += newFlags
+$LDFLAGS += ' -framework CoreFoundation' + newFlags + ' -undefined suppress -flat_namespace'
+$LIBRUBYARG_SHARED=""
+create_makefile("osx/plist")

data/ext/plist/plist.c

@@ -0,0 +1,579 @@
+/*
+ * plist
+ * Kevin Ballard
+ *
+ * This is a Ruby extension to read/write Cocoa property lists
+ * Not surprisingly, it only works on OS X
+ *
+ * Copyright © 2005, Kevin Ballard
+ *
+ * Usage:
+ * This extension provides a module named OSX::PropertyList
+ * This module has two methods:
+ *
+ * PropertyList::load(obj, format = false)
+ *     Takes either an IO stream open for reading or a String object
+ *     Returns an object representing the property list
+ *
+ *     Optionally takes a boolean format argument. If true, the
+ *     return value is an array with the second value being
+ *     the format of the plist, which can be one of
+ *     :xml1, :binary1, or :openstep
+ *
+ * PropertyList::dump(io, obj, type = :xml1)
+ *     Takes an IO stream (open for writing) and an object
+ *     Writes the object to the IO stream as a property list
+ *     Posible type values are :xml1 and :binary1
+ *
+ * It also adds a new method to Object:
+ *
+ * Object#to_plist(type = :xml1)
+ *     Returns a string representation of the property list
+ *     Possible type values are :xml1 and :binary1
+ *
+ * It also adds 2 new methods to String:
+ *
+ * String#blob=(b)
+ *     Sets whether the string is a blob
+ *
+ * String#blob?
+ *     Returns whether the string is a blob
+ *
+ * A blob string is turned into a CFData when dumped
+ *
+ */
+
+/*
+ * Document-class: PropertyList
+ *
+ * The PropertyList module provides a means of converting a
+ * Ruby Object to a Property List.
+ *
+ * The various Objects that can be converted are the ones
+ * with an equivalent in CoreFoundation. This includes: String,
+ * Integer, Float, Boolean, Time, Hash, and Array.
+ *
+ * See also: String#blob?, String#blob=, and Object#to_plist
+ */
+
+#include <ruby.h>
+#include <st.h>
+#include <CoreFoundation/CoreFoundation.h>
+
+// Here's some convenience macros
+#ifndef StringValue
+#define StringValue(x) do {								\
+		if (TYPE(x) != T_STRING) x = rb_str_to_str(x);	\
+	} while (0)
+#endif
+
+static VALUE mOSX;
+static VALUE mPlist;
+static VALUE timeEpoch;
+static VALUE ePropertyListError;
+
+static VALUE id_gm;
+static VALUE id_plus;
+static VALUE id_minus;
+static VALUE id_read;
+static VALUE id_write;
+
+static VALUE id_xml;
+static VALUE id_binary;
+static VALUE id_openstep;
+
+static VALUE id_blob;
+
+VALUE convertPropertyListRef(CFPropertyListRef plist);
+VALUE convertStringRef(CFStringRef plist);
+VALUE convertDictionaryRef(CFDictionaryRef plist);
+VALUE convertArrayRef(CFArrayRef plist);
+VALUE convertNumberRef(CFNumberRef plist);
+VALUE convertBooleanRef(CFBooleanRef plist);
+VALUE convertDataRef(CFDataRef plist);
+VALUE convertDateRef(CFDateRef plist);
+VALUE str_blob(VALUE self);
+VALUE str_setBlob(VALUE self, VALUE b);
+
+// Raises a Ruby exception with the given string
+void raiseError(CFStringRef error) {
+		char *errBuffer = (char *)CFStringGetCStringPtr(error, kCFStringEncodingUTF8);
+		int freeBuffer = 0;
+		if (!errBuffer) {
+			int len = CFStringGetLength(error)*2+1;
+			errBuffer = ALLOC_N(char, len);
+			Boolean succ = CFStringGetCString(error, errBuffer, len, kCFStringEncodingUTF8);
+			if (!succ) {
+				CFStringGetCString(error, errBuffer, len, kCFStringEncodingMacRoman);
+			}
+			freeBuffer = 1;
+		}
+		rb_raise(ePropertyListError, (char *)errBuffer);
+		if (freeBuffer) free(errBuffer);
+}
+
+/* call-seq:
+ *    PropertyList.load(obj)         -> object
+ *    PropertyList.load(obj, format) -> [object, format]
+ *
+ * Loads a property list from an IO stream or a String and creates
+ * an equivalent Object from it.
+ *
+ * If +format+ is provided, it returns one of
+ * <tt>:xml1</tt>, <tt>:binary1</tt>, or <tt>:openstep</tt>.
+ */
+VALUE plist_load(int argc, VALUE *argv, VALUE self) {
+	VALUE io, retFormat;
+	int count = rb_scan_args(argc, argv, "11", &io, &retFormat);
+	if (count < 2) retFormat = Qfalse;
+	VALUE buffer;
+	if (RTEST(rb_respond_to(io, id_read))) {
+		// Read from IO
+		buffer = rb_funcall(io, id_read, 0);
+	} else {
+		StringValue(io);
+		buffer = io;
+	}
+	// For some reason, the CFReadStream version doesn't work with input < 6 characters
+	// but the CFDataRef version doesn't return format
+	// So lets use the CFDataRef version unless format is requested
+	CFStringRef error = NULL;
+	CFPropertyListRef plist;
+	CFPropertyListFormat format;
+	if (RTEST(retFormat)) {
+		// Format was requested
+		// now just in case, if the input is < 6 characters, we will pad it out with newlines
+		// we could do this in all cases, but I don't think it will work with binary
+		// even though binary shouldn't be < 6 characters
+		UInt8 *bytes;
+		int len;
+		if (RSTRING(buffer)->len < 6) {
+			bytes = ALLOC_N(UInt8, 6);
+			memset(bytes, '\n', 6);
+			MEMCPY(bytes, RSTRING(buffer)->ptr, UInt8, RSTRING(buffer)->len);
+			len = 6;
+		} else {
+			bytes = (UInt8 *)RSTRING(buffer)->ptr;
+			len = RSTRING(buffer)->len;
+		}
+		CFReadStreamRef readStream = CFReadStreamCreateWithBytesNoCopy(kCFAllocatorDefault, bytes, len, kCFAllocatorNull);
+		CFReadStreamOpen(readStream);
+		plist = CFPropertyListCreateFromStream(kCFAllocatorDefault, readStream, 0, kCFPropertyListImmutable, &format, &error);
+		CFReadStreamClose(readStream);
+		CFRelease(readStream);
+	} else {
+		// Format wasn't requested
+		CFDataRef data = CFDataCreateWithBytesNoCopy(kCFAllocatorDefault, (const UInt8*)RSTRING(buffer)->ptr, RSTRING(buffer)->len, kCFAllocatorNull);
+		plist = CFPropertyListCreateFromXMLData(kCFAllocatorDefault, data, kCFPropertyListImmutable, &error);
+		CFRelease(data);
+	}
+	if (error) {
+		raiseError(error);
+		CFRelease(error);
+		return Qnil;
+	}
+	VALUE obj = convertPropertyListRef(plist);
+	CFRelease(plist);
+	if (RTEST(retFormat)) {
+		VALUE ary = rb_ary_new();
+		rb_ary_push(ary, obj);
+		if (format == kCFPropertyListOpenStepFormat) {
+			retFormat = id_openstep;
+		} else if (format == kCFPropertyListXMLFormat_v1_0) {
+			retFormat = id_xml;
+		} else if (format == kCFPropertyListBinaryFormat_v1_0) {
+			retFormat = id_binary;
+		} else {
+			retFormat = rb_intern("unknown");
+		}
+		rb_ary_push(ary, ID2SYM(retFormat));
+		return ary;
+	} else {
+		return obj;
+	}
+}
+
+// Maps the property list object to a ruby object
+VALUE convertPropertyListRef(CFPropertyListRef plist) {
+	CFTypeID typeID = CFGetTypeID(plist);
+	if (typeID == CFStringGetTypeID()) {
+		return convertStringRef((CFStringRef)plist);
+	} else if (typeID == CFDictionaryGetTypeID()) {
+		return convertDictionaryRef((CFDictionaryRef)plist);
+	} else if (typeID == CFArrayGetTypeID()) {
+		return convertArrayRef((CFArrayRef)plist);
+	} else if (typeID == CFNumberGetTypeID()) {
+		return convertNumberRef((CFNumberRef)plist);
+	} else if (typeID == CFBooleanGetTypeID()) {
+		return convertBooleanRef((CFBooleanRef)plist);
+	} else if (typeID == CFDataGetTypeID()) {
+		return convertDataRef((CFDataRef)plist);
+	} else if (typeID == CFDateGetTypeID()) {
+		return convertDateRef((CFDateRef)plist);
+	} else {
+		return Qnil;
+	}
+}
+
+// Converts a CFStringRef to a String
+VALUE convertStringRef(CFStringRef plist) {
+	CFIndex byteCount;
+	CFRange range = CFRangeMake(0, CFStringGetLength(plist));
+	CFStringEncoding enc = kCFStringEncodingUTF8;
+	Boolean succ = CFStringGetBytes(plist, range, enc, 0, false, NULL, 0, &byteCount);
+	if (!succ) {
+		enc = kCFStringEncodingMacRoman;
+		CFStringGetBytes(plist, range, enc, 0, false, NULL, 0, &byteCount);
+	}
+	UInt8 *buffer = ALLOC_N(UInt8, byteCount);
+	CFStringGetBytes(plist, range, enc, 0, false, buffer, byteCount, NULL);
+	VALUE retval = rb_str_new((char *)buffer, (long)byteCount);
+	free(buffer);
+	return retval;
+}
+
+// Converts the keys and values of a CFDictionaryRef
+void dictionaryConverter(const void *key, const void *value, void *context) {
+	rb_hash_aset((VALUE)context, convertPropertyListRef(key), convertPropertyListRef(value));
+}
+
+// Converts a CFDictionaryRef to a Hash
+VALUE convertDictionaryRef(CFDictionaryRef plist) {
+	VALUE hash = rb_hash_new();
+	CFDictionaryApplyFunction(plist, dictionaryConverter, (void *)hash);
+	return hash;
+}
+
+// Converts the values of a CFArrayRef
+void arrayConverter(const void *value, void *context) {
+	rb_ary_push((VALUE)context, convertPropertyListRef(value));
+}
+
+// Converts a CFArrayRef to an Array
+VALUE convertArrayRef(CFArrayRef plist) {
+	VALUE array = rb_ary_new();
+	CFRange range = CFRangeMake(0, CFArrayGetCount(plist));
+	CFArrayApplyFunction(plist, range, arrayConverter, (void *)array);
+	return array;
+}
+
+// Converts a CFNumberRef to a Number
+VALUE convertNumberRef(CFNumberRef plist) {
+	if (CFNumberIsFloatType(plist)) {
+		double val;
+		CFNumberGetValue(plist, kCFNumberDoubleType, &val);
+		return rb_float_new(val);
+	} else {
+#ifdef LL2NUM
+		long long val;
+		CFNumberGetValue(plist, kCFNumberLongLongType, &val);
+		return LL2NUM(val);
+#else
+		long val;
+		CFNumberGetValue(plist, kCFNumberLongType, &val);
+		return LONG2NUM(val);
+#endif
+	}
+}
+
+// Converts a CFBooleanRef to a Boolean
+VALUE convertBooleanRef(CFBooleanRef plist) {
+	if (CFBooleanGetValue(plist)) {
+		return Qtrue;
+	} else {
+		return Qfalse;
+	}
+}
+
+// Converts a CFDataRef to a String (with blob set to true)
+VALUE convertDataRef(CFDataRef plist) {
+	const UInt8 *bytes = CFDataGetBytePtr(plist);
+	CFIndex len = CFDataGetLength(plist);
+	VALUE str = rb_str_new((char *)bytes, (long)len);
+	str_setBlob(str, Qtrue);
+	return str;
+}
+
+// Converts a CFDateRef to a Time
+VALUE convertDateRef(CFDateRef plist) {
+	CFAbsoluteTime seconds = CFDateGetAbsoluteTime(plist);
+
+	// trunace the time since Ruby's Time object stores it as a 32 bit signed offset from 1970 (undocumented)
+	const float min_time = -3124310400.0f;
+	const float max_time =  1169098047.0f;
+	seconds = seconds < min_time ? min_time : (seconds > max_time ? max_time : seconds);
+
+	return rb_funcall(timeEpoch, id_plus, 1, rb_float_new(seconds));
+}
+
+CFPropertyListRef convertObject(VALUE obj);
+
+// Converts a PropertyList object to a string representation
+VALUE convertPlistToString(CFPropertyListRef plist, CFPropertyListFormat format) {
+	CFWriteStreamRef writeStream = CFWriteStreamCreateWithAllocatedBuffers(kCFAllocatorDefault, kCFAllocatorDefault);
+	CFWriteStreamOpen(writeStream);
+	CFStringRef error = NULL;
+	CFPropertyListWriteToStream(plist, writeStream, format, &error);
+	CFWriteStreamClose(writeStream);
+	if (error) {
+		raiseError(error);
+		return Qnil;
+	}
+	CFDataRef data = CFWriteStreamCopyProperty(writeStream, kCFStreamPropertyDataWritten);
+	CFRelease(writeStream);
+	VALUE plistData = convertDataRef(data);
+	CFRelease(data);
+	return plistData;
+}
+
+/* call-seq:
+ *    PropertyList.dump(io, obj)         -> Integer
+ *    PropertyList.dump(io, obj, format) -> Integer
+ *
+ * Writes the property list representation of +obj+
+ * to the IO stream (must be open for writing).
+ *
+ * +format+ can be one of <tt>:xml1</tt> or <tt>:binary1</tt>.
+ *
+ * Returns the number of bytes written, or +nil+ if
+ * the object could not be represented as a property list
+ */
+VALUE plist_dump(int argc, VALUE *argv, VALUE self) {
+	VALUE io, obj, type;
+	int count = rb_scan_args(argc, argv, "21", &io, &obj, &type);
+	if (count < 3) {
+		type = id_xml;
+	} else {
+		type = rb_to_id(type);
+	}
+	if (type != id_xml && type != id_binary && type != id_openstep) {
+		rb_raise(rb_eArgError, "Argument 3 must be one of :xml1, :binary1, or :openstep");
+		return Qnil;
+	}
+	if (!RTEST(rb_respond_to(io, id_write))) {
+		rb_raise(rb_eArgError, "Argument 1 must be an IO object");
+		return Qnil;
+	}
+	CFPropertyListRef plist = convertObject(obj);
+	CFPropertyListFormat format;
+	if (type == id_xml) {
+		format = kCFPropertyListXMLFormat_v1_0;
+	} else if (type == id_binary) {
+		format = kCFPropertyListBinaryFormat_v1_0;
+	} else if (type == id_openstep) {
+		format = kCFPropertyListOpenStepFormat;
+	}
+	VALUE data = convertPlistToString(plist, format);
+	if (NIL_P(data)) {
+		return Qnil;
+	} else {
+		return rb_funcall(io, id_write, 1, data);
+	}
+}
+
+/* call-seq:
+ *    object.to_plist         -> String
+ *    object.to_plist(format) -> String
+ *
+ * Converts the object to a property list representation
+ * and returns it as a string.
+ *
+ * +format+ can be one of <tt>:xml1</tt> or <tt>:binary1</tt>.
+ */
+VALUE obj_to_plist(int argc, VALUE *argv, VALUE self) {
+	VALUE type;
+	int count = rb_scan_args(argc, argv, "01", &type);
+	if (count < 1) {
+		type = id_xml;
+	} else {
+		type = rb_to_id(type);
+	}
+	if (type != id_xml && type != id_binary && type != id_openstep) {
+		rb_raise(rb_eArgError, "Argument 2 must be one of :xml1, :binary1, or :openstep");
+		return Qnil;
+	}
+	CFPropertyListRef plist = convertObject(self);
+	CFPropertyListFormat format;
+	if (type == id_xml) {
+		format = kCFPropertyListXMLFormat_v1_0;
+	} else if (type == id_binary) {
+		format = kCFPropertyListBinaryFormat_v1_0;
+	} else if (type == id_openstep) {
+		format = kCFPropertyListOpenStepFormat;
+	}
+	VALUE data = convertPlistToString(plist, format);
+	CFRelease(plist);
+	if (type == id_xml || type == id_binary) {
+		str_setBlob(data, Qfalse);
+	}
+	return data;
+}
+
+CFPropertyListRef convertString(VALUE obj);
+CFDictionaryRef convertHash(VALUE obj);
+CFArrayRef convertArray(VALUE obj);
+CFNumberRef convertNumber(VALUE obj);
+CFDateRef convertTime(VALUE obj);
+
+// Converts an Object to a CFTypeRef
+CFPropertyListRef convertObject(VALUE obj) {
+	switch (TYPE(obj)) {
+		case T_STRING: return convertString(obj); break;
+		case T_HASH: return convertHash(obj); break;
+		case T_ARRAY: return convertArray(obj); break;
+		case T_FLOAT:
+		case T_FIXNUM:
+		case T_BIGNUM: return convertNumber(obj); break;
+		case T_TRUE: return kCFBooleanTrue; break;
+		case T_FALSE: return kCFBooleanFalse; break;
+		default: if (rb_obj_is_kind_of(obj, rb_cTime)) return convertTime(obj);
+	}
+	rb_raise(rb_eArgError, "An object in the argument tree could not be converted");
+	return NULL;
+}
+
+// Converts a String to a CFStringRef
+CFPropertyListRef convertString(VALUE obj) {
+	if (RTEST(str_blob(obj))) {
+		// convert to CFDataRef
+		StringValue(obj);
+		CFDataRef data = CFDataCreate(kCFAllocatorDefault, (const UInt8*)RSTRING(obj)->ptr, (CFIndex)RSTRING(obj)->len);
+		return data;
+	} else {
+		// convert to CFStringRef
+		StringValue(obj);
+		CFStringRef string = CFStringCreateWithBytes(kCFAllocatorDefault, (const UInt8*)RSTRING(obj)->ptr, (CFIndex)RSTRING(obj)->len, kCFStringEncodingUTF8, false);
+		if (!string) {
+			// try MacRoman
+			string = CFStringCreateWithBytes(kCFAllocatorDefault, (const UInt8*)RSTRING(obj)->ptr, (CFIndex)RSTRING(obj)->len, kCFStringEncodingMacRoman, false);
+		}
+		return string;
+	}
+}
+
+// Converts the keys and values of a Hash to CFTypeRefs
+int iterateHash(VALUE key, VALUE val, VALUE dict) {
+	CFPropertyListRef dKey = convertObject(key);
+	CFPropertyListRef dVal = convertObject(val);
+	CFDictionaryAddValue((CFMutableDictionaryRef)dict, dKey, dVal);
+	CFRelease(dKey);
+	CFRelease(dVal);
+	return ST_CONTINUE;
+}
+
+// Converts a Hash to a CFDictionaryREf
+CFDictionaryRef convertHash(VALUE obj) {
+	CFIndex count = (CFIndex)RHASH(obj)->tbl->num_entries;
+	CFMutableDictionaryRef dict = CFDictionaryCreateMutable(kCFAllocatorDefault, count, &kCFTypeDictionaryKeyCallBacks, &kCFTypeDictionaryValueCallBacks);
+	st_foreach(RHASH(obj)->tbl, iterateHash, (VALUE)dict);
+	return dict;
+}
+
+// Converts an Array to a CFArrayRef
+CFArrayRef convertArray(VALUE obj) {
+	CFIndex count = (CFIndex)RARRAY(obj)->len;
+	CFMutableArrayRef array = CFArrayCreateMutable(kCFAllocatorDefault, count, &kCFTypeArrayCallBacks);
+	int i;
+	for (i = 0; i < count; i++) {
+		CFPropertyListRef aVal = convertObject(RARRAY(obj)->ptr[i]);
+		CFArrayAppendValue(array, aVal);
+		CFRelease(aVal);
+	}
+	return array;
+}
+
+// Converts a Number to a CFNumberRef
+CFNumberRef convertNumber(VALUE obj) {
+	void *valuePtr;
+	CFNumberType type;
+	switch (TYPE(obj)) {
+		case T_FLOAT: {
+			double num = NUM2DBL(obj);
+			valuePtr = &num;
+			type = kCFNumberDoubleType;
+			break;
+		}
+		case T_FIXNUM: {
+			int num = NUM2INT(obj);
+			valuePtr = &num;
+			type = kCFNumberIntType;
+			break;
+		}
+		case T_BIGNUM: {
+#ifdef NUM2LL
+			long long num = NUM2LL(obj);
+			type = kCFNumberLongLongType;
+#else
+			long num = NUM2LONG(obj);
+			type = kCFNumberLongType;
+#endif
+			valuePtr = &num;
+			break;
+		}
+		default:
+			rb_raise(rb_eStandardError, "ERROR: Wrong object type passed to convertNumber");
+			return NULL;
+	}
+	CFNumberRef number = CFNumberCreate(kCFAllocatorDefault, type, valuePtr);
+	return number;
+}
+
+// Converts a Time to a CFDateRef
+CFDateRef convertTime(VALUE obj) {
+	VALUE secs = rb_funcall(obj, id_minus, 1, timeEpoch);
+	CFDateRef date = CFDateCreate(kCFAllocatorDefault, NUM2DBL(secs));
+	return date;
+}
+
+/* call-seq:
+ *    str.blob? -> Boolean
+ *
+ * Returns whether or not +str+ is a blob.
+ */
+VALUE str_blob(VALUE self) {
+	VALUE blob = rb_attr_get(self, id_blob);
+	if (NIL_P(blob)) {
+		return Qfalse;
+	} else {
+		return blob;
+	}
+}
+
+/* call-seq:
+ *    str.blob = bool -> bool
+ *
+ * Sets the blob status of +str+.
+ */
+VALUE str_setBlob(VALUE self, VALUE b) {
+	if (TYPE(b) == T_TRUE || TYPE(b) ==  T_FALSE) {
+		return rb_ivar_set(self, id_blob, b);
+	} else {
+		rb_raise(rb_eArgError, "Argument 1 must be true or false");
+		return Qnil;
+	}
+}
+
+/* Bridge to CoreFoundation for reading/writing Property Lists.
+ * Only works when CoreFoundation is available.
+ */
+void Init_plist() {
+	mOSX = rb_define_module("OSX");
+	mPlist = rb_define_module_under(mOSX, "PropertyList");
+	rb_define_module_function(mPlist, "load", plist_load, -1);
+	rb_define_module_function(mPlist, "dump", plist_dump, -1);
+	rb_define_method(rb_cObject, "to_plist", obj_to_plist, -1);
+	rb_define_method(rb_cString, "blob?", str_blob, 0);
+	rb_define_method(rb_cString, "blob=", str_setBlob, 1);
+	ePropertyListError = rb_define_class_under(mOSX, "PropertyListError", rb_eStandardError);
+	id_gm = rb_intern("gm");
+	timeEpoch = rb_funcall(rb_cTime, id_gm, 1, INT2FIX(2001));
+	rb_define_const(mPlist, "EPOCH", timeEpoch);
+	id_plus = rb_intern("+");
+	id_minus = rb_intern("-");
+	id_read = rb_intern("read");
+	id_write = rb_intern("write");
+	id_xml = rb_intern("xml1");
+	id_binary = rb_intern("binary1");
+	id_openstep = rb_intern("openstep");
+	id_blob = rb_intern("@blob");
+}

data/plist.gemspec

@@ -0,0 +1,25 @@
+Gem::Specification.new do |s|
+  s.name = %q{osx-plist}
+  s.version = "1.0"
+
+  s.specification_version = 2 if s.respond_to? :specification_version=
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Kevin Ballard"]
+  s.date = %q{2008-04-25}
+  s.description = %q{osx/plist is a Ruby library for manipulating Property Lists natively using the built-in support in OS X.}
+  s.email = %q{kevin@sb.org}
+  s.extensions = ["ext/plist/extconf.rb"]
+  s.extra_rdoc_files = ["History.txt", "Manifest.txt", "README.txt"]
+  s.files = ["History.txt", "Manifest.txt", "README.txt", "Rakefile", "ext/plist/extconf.rb", "ext/plist/plist.c", "plist.gemspec", "test/fixtures/xml_plist", "test/suite.rb", "test/test_plist.rb"]
+  s.has_rdoc = true
+  s.homepage = %q{http://www.github.com/kballard/plist}
+  s.rdoc_options = ["--main", "README.txt"]
+  s.require_paths = ["ext"]
+  s.rubyforge_project = %q{osx-plist}
+  s.rubygems_version = %q{1.0.1}
+  s.summary = %q{Property List manipulation for OS X}
+  s.test_files = ["test/test_plist.rb"]
+
+  s.add_dependency(%q<hoe>, [">= 1.5.1"])
+end

data/test/fixtures/xml_plist

@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/OSX::PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+  <key>string!</key>
+  <string>indeedy</string>
+  <key>bar</key>
+  <array>
+    <integer>1</integer>
+    <integer>2</integer>
+    <integer>3</integer>
+  </array>
+  <key>foo</key>
+  <dict>
+    <key>correct?</key>
+    <true/>
+    <key>pi</key>
+    <real>3.14159265</real>
+    <key>random</key>
+    <data>
+    I0VniQ==
+    </data>
+    <key>today</key>
+    <date>2005-04-28T06:32:56Z</date>
+  </dict>
+</dict>
+</plist>

data/test/suite.rb

@@ -0,0 +1,6 @@
+require 'test/unit'
+
+tests = Dir["#{File.dirname(__FILE__)}/test_*.rb"]
+tests.each do |file|
+  require file
+end

data/test/test_plist.rb

@@ -0,0 +1,69 @@
+require 'rubygems'
+require 'osx/plist'
+require 'stringio'
+require 'test/unit'
+
+class TestPlist < Test::Unit::TestCase
+  def test_string
+    plist = OSX::PropertyList.load("{foo = bar; }")
+    assert_equal( { "foo" => "bar" }, plist )
+
+    plist, format = OSX::PropertyList.load("{foo = bar; }", true)
+    assert_equal( { "foo" => "bar" }, plist )
+    assert_equal( :openstep, format )
+    
+    # make sure sources < 6 characters work
+    plist = OSX::PropertyList.load("foo")
+    assert_equal( "foo", plist )
+    
+    # make sure it works with format too
+    plist, format = OSX::PropertyList.load("foo", true)
+    assert_equal( "foo", plist )
+    assert_equal( :openstep, format )
+    
+    assert_raise(OSX::PropertyListError) { OSX::PropertyList.load("") }
+  end
+
+  def setup_hash
+    time = Time.gm(2005, 4, 28, 6, 32, 56)
+    random = "\x23\x45\x67\x89"
+    random.blob = true
+    {
+      "string!" => "indeedy",
+      "bar" => [ 1, 2, 3 ],
+      "foo" => {
+        "correct?" => true,
+        "pi" => 3.14159265,
+        "random" => random,
+        "today" => time,
+      }
+    }
+  end
+
+  def test_io
+    plist, format = OSX::PropertyList.load(File.read("#{File.dirname(__FILE__)}/fixtures/xml_plist"), true)
+
+    hash = setup_hash
+
+    assert_equal(hash, plist)
+    assert_equal(true, plist['foo']['random'].blob?)
+    assert_equal(false, plist['string!'].blob?)
+    
+    assert_equal(:xml1, format)
+  end
+
+  def test_dump
+    str = StringIO.new("", "w")
+    hash = setup_hash
+    OSX::PropertyList.dump(str, hash)
+    hash2 = OSX::PropertyList.load(str.string)
+    assert_equal(hash, hash2)
+  end
+
+  def test_to_plist
+    assert_raise(OSX::PropertyListError) { "foo".to_plist(:openstep) }
+    assert_equal("foo", OSX::PropertyList.load("foo".to_plist))
+    hash = setup_hash()
+    assert_equal(hash, OSX::PropertyList.load(hash.to_plist))
+  end
+end

metadata

@@ -0,0 +1,73 @@
+--- !ruby/object:Gem::Specification 
+name: kballard-osx-plist
+version: !ruby/object:Gem::Version 
+  version: "1.0"
+platform: ruby
+authors: 
+- Kevin Ballard
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2008-04-25 00:00:00 -07:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.5.1
+    version: 
+description: osx/plist is a Ruby library for manipulating Property Lists natively using the built-in support in OS X.
+email: kevin@sb.org
+executables: []
+
+extensions: 
+- ext/plist/extconf.rb
+extra_rdoc_files: 
+- History.txt
+- Manifest.txt
+- README.txt
+files: 
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- ext/plist/extconf.rb
+- ext/plist/plist.c
+- plist.gemspec
+- test/fixtures/xml_plist
+- test/suite.rb
+- test/test_plist.rb
+has_rdoc: true
+homepage: http://www.github.com/kballard/plist
+post_install_message: 
+rdoc_options: 
+- --main
+- README.txt
+require_paths: 
+- ext
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: osx-plist
+rubygems_version: 1.0.1
+signing_key: 
+specification_version: 2
+summary: Property List manipulation for OS X
+test_files: 
+- test/test_plist.rb