pgericson-handsoap 1.1.7

data/lib/handsoap/xml_mason.rb

@@ -0,0 +1,221 @@
+# -*- coding: utf-8 -*-
+
+module Handsoap
+
+  # XmlMason is a simple XML builder.
+  module XmlMason
+
+    XML_ESCAPE = { '&' => '&amp;', '"' => '&quot;', '>' => '&gt;', '<' => '&lt;' }
+
+    def self.xml_escape(s)
+      s.to_s.gsub(/[&"><]/) { |special| XML_ESCAPE[special] }
+    end
+
+    class Node
+      def initialize
+        @namespaces = {}
+      end
+      def add(node_name, value = nil, *flags) # :yields: Handsoap::XmlMason::Element
+        prefix, name = parse_ns(node_name)
+        node = append_child Element.new(self, prefix, name, value, flags)
+        if block_given?
+          yield node
+        end
+      end
+      # Registers a prefix for a namespace.
+      #
+      # You must register a namespace, before you can refer it.
+      def alias(prefix, namespaces)
+        @namespaces[prefix] = namespaces
+      end
+      # Finds the first element whos +node_name+ equals +name+
+      #
+      # Doesn't regard namespaces/prefixes.
+      def find(name)
+        raise NotImplementedError.new
+      end
+      # Finds all elements whos +node_name+ equals +name+
+      #
+      # Doesn't regard namespaces/prefixes.
+      def find_all(name)
+        raise NotImplementedError.new
+      end
+      def parse_ns(name)
+        matches = name.match /^([^:]+):(.*)$/
+        if matches
+          [matches[1] == '*' ? @prefix : matches[1], matches[2]]
+        else
+          [nil, name]
+        end
+      end
+      private :parse_ns
+    end
+
+    class Document < Node
+      def initialize # :yields: Document
+        super
+        @document_element = nil
+        @xml_header = true
+        if block_given?
+          yield self
+        end
+      end
+      def xml_header=(xml_header)
+        @xml_header = !! xml_header
+      end
+      def append_child(node)
+        if not @document_element.nil?
+          raise "There can only be one element at the top level."
+        end
+        @document_element = node
+      end
+      def find(name)
+        @document_element.find(name)
+      end
+      def find_all(name)
+        @document_element.find_all(name)
+      end
+      def get_namespace(prefix)
+        @namespaces[prefix] || raise("No alias registered for prefix '#{prefix}'")
+      end
+      def defines_namespace?(prefix)
+        false
+      end
+      def to_s
+        if @document_element.nil?
+          raise "No document element added."
+        end
+        (@xml_header ? "<?xml version='1.0' ?>\n" : "") + @document_element.to_s
+      end
+    end
+
+    class TextNode
+      def initialize(text)
+        @text = text
+      end
+      def to_s(indentation = '')
+        XmlMason.xml_escape(@text)
+      end
+    end
+
+    class RawContent < TextNode
+      def to_s(indentation = '')
+        @text
+      end
+    end
+
+    class Element < Node
+      def initialize(parent, prefix, node_name, value = nil, flags = []) # :yields: Handsoap::XmlMason::Element
+        super()
+#         if prefix.to_s == ""
+#           raise "missing prefix"
+#         end
+        @parent = parent
+        @prefix = prefix
+        @node_name = node_name
+        @children = []
+        @attributes = {}
+        if not value.nil?
+          set_value value.to_s, *flags
+        end
+        if block_given?
+          yield self
+        end
+      end
+      # Returns the document that this element belongs to, or self if this is the document.
+      def document
+        @parent.respond_to?(:document) ? @parent.document : @parent
+      end
+      # Returns the qname (prefix:nodename)
+      def full_name
+        @prefix.nil? ? @node_name : (@prefix + ":" + @node_name)
+      end
+      # Adds a child node.
+      #
+      # You usually won't need to call this method, but will rather use +add+
+      def append_child(node)
+        if value_node?
+          raise "Element already has a text value. Can't add nodes"
+        end
+        @children << node
+        return node
+      end
+      # Sets the inner text of this element.
+      #
+      # By default the string is escaped, but you can pass the flag :raw to inject XML.
+      #
+      # You usually won't need to call this method, but will rather use +add+
+      def set_value(value, *flags)
+        if @children.length > 0
+          raise "Element already has children. Can't set value"
+        end
+        if flags && flags.include?(:raw)
+          @children = [RawContent.new(value)]
+        else
+          @children = [TextNode.new(value)]
+        end
+      end
+      # Sets the value of an attribute.
+      def set_attr(name, value)
+        full_name = parse_ns(name).join(":")
+        @attributes[name] = value
+      end
+      def find(name)
+        name = name.to_s if name.kind_of? Symbol
+        if @node_name == name || full_name == name
+          return self
+        end
+        @children.each do |node|
+          if node.respond_to? :find
+            tmp = node.find(name)
+            if tmp
+              return tmp
+            end
+          end
+        end
+        return nil
+      end
+      def find_all(name)
+        name = name.to_s if name.kind_of? Symbol
+        result = []
+        if @node_name == name || full_name == name
+          result << self
+        end
+        @children.each do |node|
+          if node.respond_to? :find
+            result = result.concat(node.find_all(name))
+          end
+        end
+        return result
+      end
+      def value_node?
+        @children.length == 1 && @children[0].kind_of?(TextNode)
+      end
+      def get_namespace(prefix)
+        @namespaces[prefix] || @parent.get_namespace(prefix)
+      end
+      def defines_namespace?(prefix)
+        @attributes.keys.include?("xmlns:#{prefix}") || @parent.defines_namespace?(prefix)
+      end
+      def to_s(indentation = '')
+        # todo resolve attribute prefixes aswell
+        if @prefix && (not defines_namespace?(@prefix))
+          set_attr "xmlns:#{@prefix}", get_namespace(@prefix)
+        end
+        name = XmlMason.xml_escape(full_name)
+        attr = (@attributes.any? ? (" " + @attributes.map { |key, value| XmlMason.xml_escape(key) + '="' + XmlMason.xml_escape(value) + '"' }.join(" ")) : "")
+        if @children.any?
+          if value_node?
+            children = @children[0].to_s(indentation + "  ")
+          else
+            children = @children.map { |node| "\n" + node.to_s(indentation + "  ") }.join("") + "\n" + indentation
+          end
+          indentation + "<" + name + attr + ">" + children + "</" + name + ">"
+        else
+          indentation + "<" + name + attr + " />"
+        end
+      end
+    end
+  end
+
+end

data/lib/handsoap/xml_query_front.rb

@@ -0,0 +1,337 @@
+# -*- coding: utf-8 -*-
+module Handsoap
+  #
+  # A simple frontend for parsing XML document with Xpath.
+  #
+  # This provides a unified interface for multiple xpath-capable dom-parsers,
+  # allowing seamless switching between the underlying implementations.
+  #
+  # A document is loaded using the function Handsoap::XmlQueryFront.parse_string, passing
+  # the xml source string and a driver, which can (currently) be one of:
+  #
+  #   :rexml
+  #   :nokogiri
+  #   :libxml
+  #
+  # The resulting object is a wrapper, of the type Handsoap::XmlQueryFront::XmlElement.
+  #
+  module XmlQueryFront
+
+    # This error is raised if the document didn't parse
+    class ParseError < RuntimeError; end
+
+    # Loads requirements for a driver.
+    #
+    # This function is implicitly called by +parse_string+.
+    def self.load_driver!(driver)
+      if driver == :rexml
+        require 'rexml/document'
+      elsif driver == :nokogiri
+        require 'nokogiri'
+        begin
+          gem('nokogiri') # work around bug in rubygems for Ruby 1.9
+
+          if Gem.loaded_specs['nokogiri'].version < Gem::Version.new('1.3.0')
+            raise "Incompatible version of Nokogiri. Please upgrade gem."
+          end
+        rescue NoMethodError
+        end
+      elsif driver == :libxml
+        require 'libxml'
+      else
+        raise "Unknown driver #{driver}"
+      end
+      return driver
+    end
+
+    # Returns a wrapped XML parser, using the requested driver.
+    #
+    # +driver+ can be one of the following:
+    #   :rexml
+    #   :nokogiri
+    #   :libxml
+    def self.parse_string(xml_string, driver)
+      load_driver!(driver)
+      if driver == :rexml
+        doc = REXML::Document.new(xml_string)
+        raise ParseError.new if doc.root.nil?
+        XmlQueryFront::REXMLDriver.new(doc)
+      elsif driver == :nokogiri
+        doc = Nokogiri::XML(xml_string)
+        raise ParseError.new unless (doc && doc.root && doc.errors.empty?)
+        XmlQueryFront::NokogiriDriver.new(doc)
+      elsif driver == :libxml
+        begin
+          LibXML::XML::Error.set_handler &LibXML::XML::Error::QUIET_HANDLER
+          doc = XmlQueryFront::LibXMLDriver.new(LibXML::XML::Parser.string(xml_string).parse)
+        rescue ArgumentError, LibXML::XML::Error => ex
+          raise ParseError.new
+        end
+      end
+    end
+
+    # NodeSelection is a wrapper around Array, that implicitly delegates XmlElement methods to the first element.
+    #
+    # It makes mapping code prettier, since you often need to access the first element of a selection.
+    class NodeSelection < Array
+      def to_i
+        self.first.to_i if self.any?
+      end
+      def to_f
+        self.first.to_f if self.any?
+      end
+      def to_boolean
+        self.first.to_boolean if self.any?
+      end
+      def to_date
+        self.first.to_date if self.any?
+      end
+      def to_s
+        self.first.to_s if self.any?
+      end
+      def node_name
+        self.first.node_name if self.any?
+      end
+      def xpath(expression, ns = nil)
+        self.first.xpath(expression, ns)
+      end
+      def /(expression)
+        self.first.xpath(expression)
+      end
+      def to_xml
+        self.first.to_xml if self.any?
+      end
+      def to_raw
+        self.first.to_raw if self.any?
+      end
+    end
+
+    # Wraps the underlying (native) xml driver, and provides a uniform interface.
+    module XmlElement
+      def initialize(element, namespaces = {})
+        @element = element
+        @namespaces = namespaces
+      end
+      # Registers a prefix to refer to a namespace.
+      #
+      # You can either register a nemspace with this function or pass it explicitly to the +xpath+ method.
+      def add_namespace(prefix, uri)
+        @namespaces[prefix] = uri
+      end
+      # Checks that an xpath-query doesn't refer to any undefined prefixes in +ns+
+      def assert_prefixes!(expression, ns)
+        expression.scan(/([a-zA-Z_][a-zA-Z0-9_.-]*):[^:]+/).map{|m| m[0] }.each do |prefix|
+          raise "Undefined prefix '#{prefix}' in #{ns.inspect}" if ns[prefix].nil?
+        end
+      end
+      # Returns the value of the element as an integer.
+      #
+      # See +to_s+
+      def to_i
+        t = self.to_s
+        return if t.nil?
+        t.to_i
+      end
+      # Returns the value of the element as a float.
+      #
+      # See +to_s+
+      def to_f
+        t = self.to_s
+        return if t.nil?
+        t.to_f
+      end
+      # Returns the value of the element as an boolean.
+      #
+      # See +to_s+
+      def to_boolean
+        t = self.to_s
+        return if t.nil?
+        t.downcase == 'true'
+      end
+      # Returns the value of the element as a ruby Time object.
+      #
+      # See +to_s+
+      def to_date
+        t = self.to_s
+        return if t.nil?
+        Time.iso8601(t)
+      end
+      # Returns the inner text content of this element, or the value (if it's an attr or textnode).
+      #
+      # The output is a UTF-8 encoded string, without xml-entities.
+      def to_s
+        raise NotImplementedError.new
+      end
+      # Returns the underlying native element.
+      #
+      # You shouldn't need to use this, since doing so would void portability.
+      def native_element
+        @element
+      end
+      # Returns the node name of the current element.
+      def node_name
+        raise NotImplementedError.new
+      end
+      # Queries the document with XPath, relative to the current element.
+      #
+      # +ns+ Should be a Hash of prefix => namespace
+      #
+      # Returns a +NodeSelection+
+      #
+      # See add_namespace
+      def xpath(expression, ns = nil)
+        raise NotImplementedError.new
+      end
+      # Returns a +NodeSelection+
+      def children
+        raise NotImplementedError.new
+      end
+      # Returns the outer XML for this element.
+      def to_xml
+        raise NotImplementedError.new
+      end
+      # Returns the outer XML for this element, preserving the original formatting.
+      def to_raw
+        raise NotImplementedError.new
+      end
+      # alias of +xpath+
+      def /(expression)
+        self.xpath(expression)
+      end
+      # Returns the attribute value of the underlying element.
+      #
+      # Shortcut for:
+      #
+      #     (node/"@attribute_name").to_s
+      def [](attribute_name)
+        raise NotImplementedError.new
+      end
+    end
+
+    # Driver for +libxml+.
+    #
+    # http://libxml.rubyforge.org/
+    class LibXMLDriver
+      include XmlElement
+      def node_name
+        @element.name
+      end
+      def xpath(expression, ns = nil)
+        ns = {} if ns.nil?
+        ns = @namespaces.merge(ns)
+        assert_prefixes!(expression, ns)
+        NodeSelection.new(@element.find(expression, ns.map{|k,v| "#{k}:#{v}" }).to_a.map{|node| LibXMLDriver.new(node, ns) })
+      end
+      def children
+        NodeSelection.new(@element.children.map{|node| LibXMLDriver.new(node) })
+      end
+      def [](attribute_name)
+        raise ArgumentError.new unless attribute_name.kind_of? String
+        @element[attribute_name]
+      end
+      def to_xml
+        @element.to_s(:indent => true)
+      end
+      def to_raw
+        @element.to_s(:indent => false)
+      end
+      def to_s
+        if @element.kind_of? LibXML::XML::Attr
+          @element.value
+        else
+          @element.content
+        end
+      end
+    end
+
+    # Driver for +REXML+
+    #
+    # http://www.germane-software.com/software/rexml/
+    class REXMLDriver
+      include XmlElement
+      def node_name
+        if @element.respond_to? :name
+          @element.name
+        else
+          @element.class.name.gsub(/.*::([^:]+)$/, "\\1").downcase
+        end
+      end
+      def xpath(expression, ns = nil)
+        ns = {} if ns.nil?
+        ns = @namespaces.merge(ns)
+        assert_prefixes!(expression, ns)
+        NodeSelection.new(REXML::XPath.match(@element, expression, ns).map{|node| REXMLDriver.new(node, ns) })
+      end
+      def children
+        NodeSelection.new(@element.children.map{|node| REXMLDriver.new(node) })
+      end
+      def [](attribute_name)
+        raise ArgumentError.new unless attribute_name.kind_of? String
+        @element.attributes[attribute_name]
+      end
+      def to_xml
+        require 'rexml/formatters/pretty'
+        formatter = REXML::Formatters::Pretty.new
+        out = String.new
+        formatter.write(@element, out)
+        # patch for REXML's broken formatting
+        out.gsub(/>\n\s+([^<]+)\n\s+<\//, ">\\1</")
+      end
+      def to_raw
+        @element.to_s
+      end
+      def to_s
+        if @element.respond_to? :text
+          @element.text
+        else
+          @element.value
+        end
+      end
+    end
+
+    # Driver for +Nokogiri+
+    #
+    # http://nokogiri.rubyforge.org/nokogiri/
+    class NokogiriDriver
+      include XmlElement
+      def node_name
+        @element.name
+      end
+      def xpath(expression, ns = nil)
+        ns = {} if ns.nil?
+        ns = @namespaces.merge(ns)
+        assert_prefixes!(expression, ns)
+        NodeSelection.new(@element.xpath(expression, ns).map{|node| NokogiriDriver.new(node, ns) })
+      end
+      def children
+        NodeSelection.new(@element.children.map{|node| NokogiriDriver.new(node) })
+      end
+      def [](attribute_name)
+        raise ArgumentError.new unless attribute_name.kind_of? String
+        @element[attribute_name]
+      end
+      def to_xml
+        @element.serialize(:encoding => 'UTF-8')
+      end
+      def to_raw
+        @element.serialize(:encoding => 'UTF-8', :save_with => Nokogiri::XML::Node::SaveOptions::AS_XML)
+      end
+      def to_s
+        if @element.kind_of?(Nokogiri::XML::Text) || @element.kind_of?(Nokogiri::XML::CDATA)
+          element = @element
+        elsif @element.kind_of?(Nokogiri::XML::Attr)
+          return @element.value
+        else
+          element = @element.children.first
+        end
+        return if element.nil?
+        # This looks messy because it is .. Nokogiri's interface is in a flux
+        if element.kind_of?(Nokogiri::XML::CDATA)
+          element.serialize(:encoding => 'UTF-8').gsub(/^<!\[CDATA\[/, "").gsub(/\]\]>$/, "")
+        else
+          element.serialize(:encoding => 'UTF-8').gsub('&lt;', '<').gsub('&gt;', '>').gsub('&quot;', '"').gsub('&apos;', "'").gsub('&amp;', '&')
+        end
+      end
+    end
+  end
+end