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

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

0
@@ -1,39 +0,0 @@
0
-plist
0
-Kevin Ballard
0
-
0
-plist is a ruby extension that provides a means to read/write OS X property lists.
0
-
0
-It requires the presence of CoreFoundation, which means it currently only works under darwin.
0
-
0
-Usage:
0
-
0
-One new module is provided, named PropertyList. It has the following 2 methods:
0
-
0
-PropertyList.load(input, format = false)
0
-  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.
0
-
0
-PropertyList.dump(output, obj, format = :xml1)
0
-  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.
0
-
0
-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.
0
-
0
-This module also provides a method on Object:
0
-
0
-Object#to_plist(format = :xml1)
0
-  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
0
-
0
-This module also provides 2 methods on String:
0
-
0
-String#blob?
0
-  Returns whether the string is a blob.
0
-
0
-String#blob=
0
-  Sets whether the string is a blob.
0
-
0
-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.
0
-
0
-INSTALLATION:
0
-  ruby extconf.rb
0
-  make
0
-  ruby test.rb
0
-  sudo make install

0
@@ -0,0 +1,83 @@
0
+== osx/plist
0
+    by Kevin Ballard
0
+    http://github.com/kballard/osx-plist
0
+
0
+== DESCRIPTION:
0
+
0
+osx/plist is a Ruby library for manipulating Property Lists natively using the built-in support in OS X.
0
+
0
+== REQUIREMENTS:
0
+
0
+* CoreFoundation (i.e. Mac OS X)
0
+
0
+== INSTALL:
0
+
0
+  $ gem sources -a http://gems.github.com/ (you only need to do this once)
0
+  $ gem install kballard-plist
0
+
0
+== SOURCE:
0
+
0
+osx/plist's git repo is available on GitHub, which can be browsed at:
0
+
0
+  http://github.com/kballard/osx-plist
0
+
0
+and cloned from:
0
+
0
+  git://github.com/kballard/osx-plist.git
0
+
0
+== USAGE:
0
+
0
+One new module is provided, named OSX::PropertyList. It has the following 2 methods:
0
+
0
+==== OSX::PropertyList.load(input, format = false)
0
+
0
+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.
0
+
0
+==== OSX::PropertyList.dump(output, obj, format = :xml1)
0
+
0
+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.
0
+
0
+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.
0
+
0
+This module also provides a method on Object:
0
+
0
+==== Object#to_plist(format = :xml1)
0
+
0
+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
0
+
0
+This module also provides 2 methods on String:
0
+
0
+==== String#blob?
0
+
0
+Returns whether the string is a blob.
0
+
0
+==== String#blob=
0
+
0
+Sets whether the string is a blob.
0
+
0
+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.
0
+
0
+== LICENSE:
0
+
0
+(The MIT License)
0
+
0
+Copyright (c) 2008 Kevin Ballard
0
+
0
+Permission is hereby granted, free of charge, to any person obtaining
0
+a copy of this software and associated documentation files (the
0
+'Software'), to deal in the Software without restriction, including
0
+without limitation the rights to use, copy, modify, merge, publish,
0
+distribute, sublicense, and/or sell copies of the Software, and to
0
+permit persons to whom the Software is furnished to do so, subject to
0
+the following conditions:
0
+
0
+The above copyright notice and this permission notice shall be
0
+included in all copies or substantial portions of the Software.
0
+
0
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
0
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
0
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
0
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
0
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
0
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
0
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

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

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

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