Files
RubyMotion/lib/motion/project/plist.rb
2013-06-09 20:28:01 +02:00

78 lines
3.1 KiB
Ruby

# Copyright (c) 2012, HipByte SPRL and contributors
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
# 1. Redistributions of source code must retain the above copyright notice, this
# list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright notice,
# this list of conditions and the following disclaimer in the documentation
# and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
require 'time' # For Time#iso8601
module Motion
class PropertyList
class << self
def to_s(plist)
str = <<EOS
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
EOS
cat_element(plist, str, 1)
str << "</plist>\n"
return str
end
def indent_line(line, indent)
("\t" * indent) + line + "\n"
end
def cat_element(plist, str, indent)
case plist
when Hash
str << indent_line("<dict>", indent)
plist.each do |key, val|
key = key.to_s if key.is_a?(Symbol)
raise "Hash key must be a string" unless key.is_a?(String)
str << indent_line("<key>#{key}</key>", indent + 1)
cat_element(val, str, indent + 1)
end
str << indent_line("</dict>", indent)
when Array
str << indent_line("<array>", indent)
plist.each do |elem|
cat_element(elem, str, indent + 1)
end
str << indent_line("</array>", indent)
when String
str << indent_line("<string>#{plist}</string>", indent)
when TrueClass
str << indent_line("<true/>", indent)
when FalseClass
str << indent_line("<false/>", indent)
when Time
str << indent_line("<date>#{plist.utc.iso8601}</date>", indent)
when Integer
str << indent_line("<real>#{plist}</real>", indent)
else
raise "Invalid plist object of type `#{plist.class}' (must be either a Hash, Array, String, or boolean true/false value)"
end
end
end
end
end