ayril 0.1.0

data/lib/ayril/version.rb

@@ -0,0 +1,30 @@
+# Copyright (C) 2011 by Robert Lowe <rob[!]iblargz.com>
+# 
+# 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.
+
+module Ayril
+  module Version
+    MAJOR = 0
+    MINOR = 1
+    PATCH = 0
+    BUILD = nil
+
+    STRING = [MAJOR, MINOR, PATCH, BUILD].compact.join('.')
+  end
+end

data/lib/ayril/xml_document.rb

@@ -0,0 +1,54 @@
+# Copyright (C) 2011 by Wilson Lee <kourge[!]gmail.com>, Robert Lowe <rob[!]iblargz.com>
+# 
+# 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.
+
+module Ayril
+  class XMLDocument < NSXMLDocument
+    include XMLNode::NodeManipulation
+    include XMLNode::NodeTraversal
+
+    def self.new(data, error=nil)
+      path = data.dup
+      path = NSURL.fileURLWithPath data.path if data.kind_of? File
+      if path.kind_of? NSURL
+        XMLDocument.alloc.initWithContentsOfURL path, options: 0, error: error
+      elsif path.kind_of? XMLElement
+        XMLDocument.alloc.initWithRootElement path
+      elsif path.kind_of? String
+        XMLDocument.alloc.initWithXMLString path, options: 0, error: error
+      end
+    end
+
+    def self.replacementClassForClass(currentClass)
+      return {
+        NSXMLNode     => XMLNode,
+        NSXMLElement  => XMLElement,
+        NSXMLDocument => XMLDocument,
+        NSXMLDTD      => XMLDTD,
+        NSXMLDTDNode  => XMLDTDNode
+      }[currentClass]
+    end
+
+    forward :to_s, :XMLString
+
+    def inspect
+      "#<#{self.class}:0x#{self.object_id.to_s(16)}>"
+    end
+  end
+end

data/lib/ayril/xml_element.rb

@@ -0,0 +1,75 @@
+# Copyright (C) 2011 by Wilson Lee <kourge[!]gmail.com>, Robert Lowe <rob[!]iblargz.com>
+# 
+# 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.
+
+module Ayril
+  class XMLElement < NSXMLElement
+
+    autoload :XMLCSSHash,                   'ayril/xml_element/xml_css_hash'
+    autoload :XMLAttributeHash,             'ayril/xml_element/xml_attribute_hash'
+
+    autoload :ElementManipulation,          'ayril/xml_element/element_manipulation'
+    autoload :ElementAttributeManipulation, 'ayril/xml_element/element_attribute_manipulation'
+    autoload :ElementClassnameManipulation, 'ayril/xml_element/element_classname_manipulation'
+    autoload :ElementStyleManipulation,     'ayril/xml_element/element_style_manipulation'
+
+    include XMLNode::NodeManipulation
+    include XMLNode::NodeTraversal
+
+    include ElementManipulation
+    include ElementAttributeManipulation
+    include ElementClassnameManipulation
+    include ElementStyleManipulation
+
+    @@id_counter = 0
+    attr_accessor :id_counter
+
+    def self.new(name, attributes={})
+      if attributes.empty? and name.include? "<"
+        self.alloc.initWithXMLString name, error: nil
+      else
+        XMLNode.elementWithName name, children: nil, attributes: attributes
+      end
+    end
+
+    def kind; NSXMLElementKind end
+
+    def initWithName(name)
+      self.class.alloc.tap { |e| e.name = name }
+    end
+
+    def initWithName(name, stringValue: string)
+      self.initWithName(name).tap { |e| e.stringValue = string }
+    end
+
+    def initWithName(name, URI: uri)
+     self.initWithName(name).tap { |e| e.URI = uri }
+    end
+
+    def initWithXMLString(string, error: error)
+      d = XMLDocument.alloc.initWithXMLString(string, options: 0, error: nil)
+      d.maybe(:rootElement).tap { |n| n.maybe :detach }
+    end
+
+    def inspect
+      attributes = self.attribute.tap { |a| a.sync }
+      "#<#{self.class}<#{self.name}#{attributes.maybe(:empty?) ? '' : ' '}#{attributes}>>"
+    end
+  end
+end

data/lib/ayril/xml_element/element_attribute_manipulation.rb

@@ -0,0 +1,61 @@
+# Copyright (C) 2011 by Wilson Lee <kourge[!]gmail.com>, Robert Lowe <rob[!]iblargz.com>
+# 
+# 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.
+
+module Ayril
+  class XMLElement
+    module ElementAttributeManipulation
+      def attribute
+        @attributes.nil? ? (@attributes = XMLElement::XMLAttributeHash.new self) : @attributes
+      end
+      alias :attr :attribute
+
+      def attribute=(hash); self.setAttributesAsDictionary hash end
+      alias :attr= :attribute=
+      alias :set :attribute=
+
+      def read_attribute(k); self.attributeForName(k.to_s).maybe(:stringValue) end
+      alias :get_attribute :read_attribute
+      alias :[] :read_attribute
+
+      def write_attribute(k, v=nil)
+        if v.nil? and k.kind_of? Hash
+          k.each { |a, b| self.write_attribute a.to_s, b } unless k.empty?
+          return self
+        end
+        attr = self.attributeForName(k)
+        if attr.nil?
+          self.addAttribute XMLNode.attributeWithName(k.to_s, stringValue: v)
+        else
+          attr.stringValue = v
+        end
+        self
+      end
+      alias :add_attribute :write_attribute
+      alias :set_attribute :write_attribute
+      alias :[]= :write_attribute
+
+      def remove_attribute(a) self.removeAttributeForName(a.to_s); self.sync end
+      alias :delete_attribute :remove_attribute
+
+      def has_attribute?(k); not self.attributeForName(k.to_s).nil? end
+    end
+  end
+end
+

data/lib/ayril/xml_element/element_classname_manipulation.rb

@@ -0,0 +1,34 @@
+module Ayril
+  class XMLElement
+    module ElementClassnameManipulation
+      def has_class_name?(class_name)
+        classes = self.read_attribute "class"
+        !!(classes.length > 0 and (classes == class_name or 
+           classes =~ /(^|\s)#{class_name}(\s|$)/))
+      end
+
+      def add_class_name(class_name)
+        if not self.has_class_name? class_name
+          current = if not self.has_attribute? "class" then ''
+                    else self.read_attribute("class") end
+        end
+        self.write_attribute "class", (current + ((current == '') ? '' : ' ') + class_name)
+        self
+      end
+
+      def remove_class_name(class_name)
+        return self if not self.has_attribute? "class"
+        string_value = self.read_attribute("class").sub(/(^|\s+)#{class_name}(\s+|$)/, ' ').strip
+        string_value == '' ? self.remove_attribute("class")
+                           : self.write_attribute("class", string_value)
+        self.tap { |s| s.attribute.sync; s.class_names.sync }
+      end
+
+      def toggle_class_name(class_name)
+        if self.has_class_name? class_name
+        then self.remove_class_name class_name
+        else self.add_class_name class_name end
+      end
+    end
+  end
+end

data/lib/ayril/xml_element/element_manipulation.rb

@@ -0,0 +1,85 @@
+# Copyright (C) 2011 by Wilson Lee <kourge[!]gmail.com>, Robert Lowe <rob[!]iblargz.com>
+# 
+# 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.
+
+module Ayril
+  class XMLElement
+    module ElementManipulation
+      def insert(insertions)
+        insertions = { :bottom => insertions } if insertions.kind_of? String or
+          insertions.kind_of? Integer or insertions.kind_of? XMLElement or 
+          (insertions.respond_to? :to_element or insertions.respond_to? :to_html)
+
+        insertions.each do |position, content|
+          position.downcase! if position.kind_of? String
+          insert = {
+            :before => lambda { |element, node|
+              element.parent.insertChild node, atIndex: element.index
+            },
+            :top => lambda { |element, node|
+              element.insertChild node, atIndex: 0
+            },
+            :bottom => lambda { |element, node|
+              element.addChild node
+            },
+            :after => lambda { |element, node|
+              element.parent.insertChild node, atIndex: element.index + 1
+            }
+          }[position = position.to_sym]
+
+          content = content.to_element if content.respond_to? :to_element
+          (insert.call(self, content); next) if content.kind_of? XMLElement
+
+          content = content.respond_to?(:to_html) ? content.to_html : content.to_s
+          children = XMLElement.alloc.initWithXMLString("<root>#{content}</root>", error: nil).children
+      
+          children.reverse! if position == :top or position == :after
+          children.each { |child| child.detach; insert.call self, child }
+        end
+        self
+      end
+
+      def append(e) self.insert :bottom => e end
+      def prepend(e) self.insert :top => e end
+
+      def wrap(wrapper=nil, attributes={})
+        if wrapper.kind_of? XMLElement
+          wrapper.write_attribute attributes
+        elsif wrapper.kind_of? String
+          wrapper = XMLElement.new wrapper, attributes
+        else
+          wrapper = XMLElement.new 'div', attributes
+        end
+        self.replace wrapper if self.parent
+        wrapper.addChild self
+        wrapper
+      end
+
+      def identify
+        id = self.read_attribute "id"
+        return id unless id.nil?
+        begin
+          id = "anonymous_element_#{XMLElement::id_counter += 1}"
+        end while self.rootDocument.select("##{id}").any?
+        self.write_attribute "id", id
+        id
+      end
+    end
+  end
+end

data/lib/ayril/xml_element/element_style_manipulation.rb

@@ -0,0 +1,11 @@
+module Ayril
+  class XMLElement
+    module ElementStyleManipulation
+      def style; XMLElement::XMLCSSHash.new self end
+      def style=(h) self.style.replace h end
+
+      def get_style(prop) self.style[style] end
+      def set_style(style, value) self.style[style] = value end
+    end
+  end
+end

data/lib/ayril/xml_element/xml_attribute_hash.rb

@@ -0,0 +1,60 @@
+module Ayril
+  class XMLElement
+    class XMLAttributeHash < Hash
+      def initialize(element)
+        @element = element
+        self.sync
+      end
+
+      def sync
+        cache = {}
+        @element.attributes.each { |a| cache[a.name] = a.stringValue } if not @element.attributes.nil?
+        self.delete_if { true }.merge! cache
+      end
+
+      def store(k, v)
+        attr = @element.attributeForName k
+        if not attr.nil?
+          attr.stringValue = v
+        else
+          @element.addAttribute XMLNode.attributeWithName(k, stringValue: v)
+        end
+        super k, v
+      end
+      alias :set :store
+      alias :[]= :store
+
+      def fetch(k); @element.attributeForName(k).maybe :stringValue end
+      alias :get :fetch
+      alias :[] :fetch
+
+      def has_key?(k); not @element.attributeForName(k).nil? end
+      alias :has? :has_key?
+      alias :include? :has_key?
+      alias :key? :has_key?
+      alias :member? :has_key?
+
+      def delete(k); @element.removeAttributeForName k; super k end
+      alias :remove :delete
+      alias :- :delete
+
+      def _delete_if(&blk); self.each { |k, v| self.delete k if blk.call k, v } end
+      def delete_if(&blk); self._delete_if &blk; self end
+
+      def reject!(&blk)
+        old = self.dup; self._delete_if &blk
+        (self == old) ? nil : self
+      end
+
+      def replace(hash); @element.setAttributesAsDictionary hash; super hash end
+      def clear; self.replace {} end
+
+      def merge!(hash); hash.each { |k, v| self[k] = v }; self end
+      alias :update! :merge!
+      alias :+ :merge!
+
+      def to_s; self.map { |k, v| "#{k}=\"#{v}\"" }.join ' ' end
+      def inspect; "#<#{self.class} #{self.to_s}>" end
+    end
+  end
+end

data/lib/ayril/xml_element/xml_css_hash.rb

@@ -0,0 +1,47 @@
+module Ayril
+  class XMLElement
+    class XMLCSSHash < Hash
+      def initialize(element)
+        if not (@element = element).has_attribute? "style"
+          @element.write_attribute "style", ''
+        end
+        css = @element.read_attribute "style"
+        css.gsub(/\n/, '').split(';').invoke(:strip).compact.each do |property|
+          property.split(':').tap { |p| self[p.shift] = p.join(':').strip }
+        end.tap { sync }
+      end
+
+      def to_css; self.map { |k, v| "#{k}: #{v}" }.join "; " end
+      alias :to_s :to_css
+
+      def inspect; "#<#{self.class} {#{self.to_css}}>" end
+
+      def store(k, v) super(k, v).tap { sync } end
+      alias :[]= :store
+
+      def fetch(k) super(k).tap { sync } end
+      alias :[] :fetch
+
+      def delete(k) super(k).tap { sync } end
+      alias :- :delete
+
+      def delete_if(&blk) super(&blk).tap { sync } end
+      def reject!(&blk) super(&blk).tap { sync } end
+      def replace(h) super(h).tap { sync } end
+      def clear; super.tap { sync } end
+
+      def merge!(h) super(h).tap { sync } end
+      alias :update! :merge!
+      alias :+ :merge!
+
+      def sync
+        @element.removeAttributeForName("style") and return if self.size == 0
+        @element.write_attribute "style", self.to_css
+      end
+
+      alias :include? :has_key?
+      alias :key? :has_key?
+      alias :member? :has_key?
+    end
+  end
+end