rtiss_soap4r 1.6.0

data/lib/soap/encodingstyle/literalHandler.rb

@@ -0,0 +1,196 @@
+# encoding: ASCII-8BIT
+# SOAP4R - XML Literal EncodingStyle handler library
+# Copyright (C) 2000-2007  NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
+
+# This program is copyrighted free software by NAKAMURA, Hiroshi.  You can
+# redistribute it and/or modify it under the same terms of Ruby's license;
+# either the dual license version in 2003, or any later version.
+
+
+require 'soap/encodingstyle/handler'
+
+
+module SOAP
+module EncodingStyle
+
+
+class LiteralHandler < Handler
+  Namespace = SOAP::LiteralNamespace
+  add_handler
+
+  def initialize(charset = nil)
+    super(charset)
+    @textbuf = []
+  end
+
+
+  ###
+  ## encode interface.
+  #
+  def encode_data(generator, ns, data, parent)
+    attrs = {}
+    name = generator.encode_name(ns, data, attrs)
+    if data.type and data.type.name and
+        (@generate_explicit_type or data.force_typed)
+      data.extraattr[XSD::AttrTypeName] = data.type
+    end
+    data.extraattr.each do |key, value|
+      keytag = key
+      if key.is_a?(XSD::QName)
+        keytag = encode_attr_key(attrs, ns, key)
+      end
+      if value.is_a?(XSD::QName)
+        value = encode_qname(attrs, ns, value)
+      end
+      attrs[keytag] = value
+    end
+    case data
+    when SOAPExternalReference
+      # do not encode SOAPExternalReference in
+      # literalHandler (which is used for literal service)
+      data.referred
+    when SOAPRawString
+      generator.encode_tag(name, attrs)
+      generator.encode_rawstring(data.to_s)
+    when XSD::XSDString
+      generator.encode_tag(name, attrs)
+      str = decode_str(data.to_s)
+      generator.encode_string(str)
+    when XSD::XSDAnySimpleType
+      generator.encode_tag(name, attrs)
+      generator.encode_string(data.to_s)
+    when SOAPStruct
+      generator.encode_tag(name, attrs)
+      data.each do |key, value|
+        generator.encode_child(ns, value, data)
+      end
+    when SOAPArray
+      generator.encode_tag(name, attrs)
+      data.traverse do |child, *rank|
+	data.position = nil
+        generator.encode_child(ns, child, data)
+      end
+    when SOAPElement
+      unless generator.use_default_namespace
+        # passes 2 times for simplifying namespace definition
+        data.each do |key, value|
+          if value.elename.namespace
+            Generator.assign_ns(attrs, ns, value.elename.namespace)
+          end
+        end
+      end
+      if data.text and data.text.is_a?(XSD::QName)
+        Generator.assign_ns(attrs, ns, data.text.namespace)
+      end
+      generator.encode_tag(name, attrs)
+      if data.text
+        if data.text.is_a?(XSD::QName)
+          text = ns.name(data.text)
+        else
+          text = data.text
+        end
+        generator.encode_string(text)
+      end
+      data.each do |key, value|
+        generator.encode_child(ns, value, data)
+      end
+    else
+      raise EncodingStyleError.new(
+        "unknown object:#{data} in this encodingStyle")
+    end
+  end
+
+  def encode_data_end(generator, ns, data, parent)
+    # do not encode SOAPExternalReference in
+    # literalHandler (which is used for literal service)
+    return nil if data.is_a?(SOAPExternalReference)
+    name = generator.encode_name_end(ns, data)
+    cr = (data.is_a?(SOAPCompoundtype) and data.have_member)
+    generator.encode_tag_end(name, cr)
+  end
+
+
+  ###
+  ## decode interface.
+  #
+  def decode_tag(ns, elename, attrs, parent)
+    @textbuf.clear
+    if attrs[XSD::AttrNilName] == 'true'
+      o = SOAPNil.decode(elename)
+    else
+      o = SOAPElement.decode(elename)
+    end
+    if definedtype = attrs[XSD::AttrTypeName]
+      o.type = ns.parse(definedtype)
+    end
+    o.parent = parent
+    o.extraattr.update(attrs)
+    decode_parent(parent, o)
+    o
+  end
+
+  def decode_tag_end(ns, node)
+    textbufstr = @textbuf.join
+    @textbuf.clear
+    o = node.node
+    decode_textbuf(o, textbufstr)
+  end
+
+  def decode_text(ns, text)
+    # @textbuf is set at decode_tag_end.
+    @textbuf << text
+  end
+
+  def decode_prologue
+  end
+
+  def decode_epilogue
+  end
+
+  def decode_parent(parent, node)
+    return unless parent.node
+    case parent.node
+    when SOAPElement
+      parent.node.add(node)
+      node.parent = parent.node
+    when SOAPStruct
+      parent.node.add(node.elename.name, node)
+      node.parent = parent.node
+    when SOAPArray
+      if node.position
+	parent.node[*(decode_arypos(node.position))] = node
+	parent.node.sparse = true
+      else
+	parent.node.add(node)
+      end
+      node.parent = parent.node
+    else
+      raise EncodingStyleError.new("illegal parent: #{parent.node}")
+    end
+  end
+
+private
+
+  def decode_textbuf(node, textbufstr)
+    case node
+    when XSD::XSDString, SOAPElement
+      if @charset
+	node.set(decode_str(textbufstr))
+      else
+	node.set(textbufstr)
+      end
+    else
+      # Nothing to do...
+    end
+  end
+
+  def decode_str(str)
+    @charset ? XSD::Charset.encoding_from_xml(str, @charset) : str
+  end
+end
+
+LiteralHandler.new
+
+
+end
+end