* lib/soap/* (29 files): SOAP4R added.

* lib/wsdl/* (42 files): WSDL4R added.

* lib/xsd/* (12 files): XSD4R added.

* test/soap/* (16 files): added.

* test/wsdl/* (2 files): added.

* test/xsd/* (3 files): added.

* sample/soap/* (27 files): added.

* sample/wsdl/* (13 files): added.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4591 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

lib/soap/encodingstyle/literalHandler.rb

@@ -0,0 +1,218 @@
+=begin
+SOAP4R - XML Literal EncodingStyle handler library
+Copyright (C) 2001, 2003  NAKAMURA, Hiroshi.
+
+This program is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License, or (at your option) any later
+version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PRATICULAR PURPOSE. See the GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 675 Mass
+Ave, Cambridge, MA 02139, USA.
+=end
+
+
+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(buf, ns, qualified, data, parent, indent = '')
+    attrs = {}
+    name = if qualified and data.elename.namespace
+        SOAPGenerator.assign_ns(attrs, ns, data.elename.namespace)
+        ns.name(data.elename)
+      else
+        data.elename.name
+      end
+
+    case data
+    when SOAPRawString
+      SOAPGenerator.encode_tag(buf, name, attrs, indent)
+      buf << data.to_s
+    when XSD::XSDString
+      SOAPGenerator.encode_tag(buf, name, attrs, indent)
+      buf << SOAPGenerator.encode_str(@charset ?
+	XSD::Charset.encoding_to_xml(data.to_s, @charset) : data.to_s)
+    when XSD::XSDAnySimpleType
+      SOAPGenerator.encode_tag(buf, name, attrs, indent)
+      buf << SOAPGenerator.encode_str(data.to_s)
+    when SOAPStruct
+      SOAPGenerator.encode_tag(buf, name, attrs, indent)
+      data.each do |key, value|
+	value.elename.namespace = data.elename.namespace if !value.elename.namespace
+        yield(value, true)
+      end
+    when SOAPArray
+      SOAPGenerator.encode_tag(buf, name, attrs, indent)
+      data.traverse do |child, *rank|
+	data.position = nil
+        yield(child, true)
+      end
+    when SOAPElement
+      SOAPGenerator.encode_tag(buf, name, attrs.update(data.extraattr),
+        indent)
+      buf << data.text if data.text
+      data.each do |key, value|
+	value.elename.namespace = data.elename.namespace if !value.elename.namespace
+	#yield(value, data.qualified)
+	yield(value, qualified)
+      end
+    else
+      raise EncodingStyleError.new("Unknown object:#{ data } in this encodingStyle.")
+    end
+  end
+
+  def encode_data_end(buf, ns, qualified, data, parent, indent)
+    name = if qualified and data.elename.namespace
+        ns.name(data.elename)
+      else
+        data.elename.name
+      end
+    SOAPGenerator.encode_tag_end(buf, name, indent)
+  end
+
+
+  ###
+  ## decode interface.
+  #
+  class SOAPTemporalObject
+    attr_accessor :parent
+
+    def initialize
+      @parent = nil
+    end
+  end
+
+  class SOAPUnknown < SOAPTemporalObject
+    def initialize(handler, elename)
+      super()
+      @handler = handler
+      @elename = elename
+    end
+
+    def as_struct
+      o = SOAPStruct.decode(@elename, XSD::AnyTypeName)
+      o.parent = @parent
+      @handler.decode_parent(@parent, o)
+      o
+    end
+
+    def as_string
+      o = SOAPString.decode(@elename)
+      o.parent = @parent
+      @handler.decode_parent(@parent, o)
+      o
+    end
+
+    def as_nil
+      o = SOAPNil.decode(@elename)
+      o.parent = @parent
+      @handler.decode_parent(@parent, o)
+      o
+    end
+  end
+
+  def decode_tag(ns, elename, attrs, parent)
+    # ToDo: check if @textbuf is empty...
+    @textbuf = ''
+    o = SOAPUnknown.new(self, elename)
+    o.parent = parent
+    o
+  end
+
+  def decode_tag_end(ns, node)
+    o = node.node
+    if o.is_a?(SOAPUnknown)
+      newnode = if /\A\s*\z/ =~ @textbuf
+	  o.as_struct
+	else
+	  o.as_string
+	end
+      node.replace_node(newnode)
+      o = node.node
+    end
+
+    decode_textbuf(o)
+    @textbuf = ''
+  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)
+    case parent.node
+    when SOAPUnknown
+      newparent = parent.node.as_struct
+      node.parent = newparent
+      parent.replace_node(newparent)
+      decode_parent(parent, node)
+
+    when SOAPStruct
+      parent.node.add(node.name, node)
+
+    when SOAPArray
+      if node.position
+	parent.node[*(decode_arypos(node.position))] = node
+	parent.node.sparse = true
+      else
+	parent.node.add(node)
+      end
+
+    when SOAPBasetype
+      raise EncodingStyleError.new("SOAP base type must not have a child.")
+
+    else
+      # SOAPUnknown does not have parent.
+      # raise EncodingStyleError.new("Illegal parent: #{ parent }.")
+    end
+  end
+
+private
+
+  def decode_textbuf(node)
+    if node.is_a?(XSD::XSDString)
+      if @charset
+	node.set(XSD::Charset.encoding_from_xml(@textbuf, @charset))
+      else
+	node.set(@textbuf)
+      end
+    else
+      # Nothing to do...
+    end
+  end
+end
+
+LiteralHandler.new
+
+
+end
+end