* 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/element.rb

@@ -0,0 +1,232 @@
+=begin
+SOAP4R - SOAP elements library
+Copyright (C) 2000, 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 'xsd/qname'
+require 'soap/baseData'
+
+
+module SOAP
+
+
+###
+## SOAP elements
+#
+module SOAPEnvelopeElement; end
+
+class SOAPFault < SOAPStruct
+  include SOAPEnvelopeElement
+  include SOAPCompoundtype
+
+public
+
+  def faultcode
+    self['faultcode']
+  end
+
+  def faultstring
+    self['faultstring']
+  end
+
+  def faultactor
+    self['faultactor']
+  end
+
+  def detail
+    self['detail']
+  end
+
+  def faultcode=(rhs)
+    self['faultcode'] = rhs
+  end
+
+  def faultstring=(rhs)
+    self['faultstring'] = rhs
+  end
+
+  def faultactor=(rhs)
+    self['faultactor'] = rhs
+  end
+
+  def detail=(rhs)
+    self['detail'] = rhs
+  end
+
+  def initialize(faultcode = nil, faultstring = nil, faultactor = nil, detail = nil)
+    super(EleFaultName)
+    @elename = EleFaultName
+    @encodingstyle = EncodingNamespace
+
+    if faultcode
+      self.faultcode = faultcode
+      self.faultstring = faultstring
+      self.faultactor = faultactor
+      self.detail = detail
+      self.faultcode.elename = EleFaultCodeName if self.faultcode
+      self.faultstring.elename = EleFaultStringName if self.faultstring
+      self.faultactor.elename = EleFaultActorName if self.faultactor
+      self.detail.elename = EleFaultDetailName if self.detail
+    end
+  end
+
+  def encode(buf, ns, attrs = {}, indent = '')
+    SOAPGenerator.assign_ns(attrs, ns, EnvelopeNamespace)
+    SOAPGenerator.assign_ns(attrs, ns, EncodingNamespace)
+    attrs[ns.name(AttrEncodingStyleName)] = EncodingNamespace
+    name = ns.name(@elename)
+    SOAPGenerator.encode_tag(buf, name, attrs, indent)
+    yield(self.faultcode, false)
+    yield(self.faultstring, false)
+    yield(self.faultactor, false)
+    yield(self.detail, false) if self.detail
+    SOAPGenerator.encode_tag_end(buf, name, indent, true)
+  end
+end
+
+
+class SOAPBody < SOAPStruct
+  include SOAPEnvelopeElement
+
+public
+
+  def initialize(data = nil, is_fault = false)
+    super(nil)
+    @elename = EleBodyName
+    @encodingstyle = nil
+    add(data.elename.name, data) if data
+    @is_fault = is_fault
+  end
+
+  def encode(buf, ns, attrs = {}, indent = '')
+    name = ns.name(@elename)
+    SOAPGenerator.encode_tag(buf, name, attrs, indent)
+    if @is_fault
+      yield(@data, true)
+    else
+      @data.each do |data|
+	yield(data, true)
+      end
+    end
+    SOAPGenerator.encode_tag_end(buf, name, indent, true)
+  end
+
+  def root_node
+    @data.each do |node|
+      if node.root == 1
+	return node
+      end
+    end
+    # No specified root...
+    @data.each do |node|
+      if node.root != 0
+	return node
+      end
+    end
+
+    raise SOAPParser::FormatDecodeError.new('No root element.')
+  end
+end
+
+
+class SOAPHeaderItem < XSD::NSDBase
+  include SOAPEnvelopeElement
+  include SOAPCompoundtype
+
+public
+
+  attr_accessor :content
+  attr_accessor :mustunderstand
+  attr_accessor :encodingstyle
+
+  def initialize(content, mustunderstand = true, encodingstyle = nil)
+    super(nil)
+    @content = content
+    @mustunderstand = mustunderstand
+    @encodingstyle = encodingstyle || LiteralNamespace
+  end
+
+  def encode(buf, ns, attrs = {}, indent = '')
+    attrs.each do |key, value|
+      @content.attr[key] = value
+    end
+    @content.attr[ns.name(EnvelopeNamespace, AttrMustUnderstand)] =
+      (@mustunderstand ? '1' : '0')
+    if @encodingstyle
+      @content.attr[ns.name(EnvelopeNamespace, AttrEncodingStyle)] =
+      	@encodingstyle
+    end
+    @content.encodingstyle = @encodingstyle if !@content.encodingstyle
+    yield(@content, true)
+  end
+end
+
+
+class SOAPHeader < SOAPArray
+  include SOAPEnvelopeElement
+
+  def initialize()
+    super(nil, 1)	# rank == 1
+    @elename = EleHeaderName
+    @encodingstyle = nil
+  end
+
+  def encode(buf, ns, attrs = {}, indent = '')
+    name = ns.name(@elename)
+    SOAPGenerator.encode_tag(buf, name, attrs, indent)
+    @data.each do |data|
+      yield(data, true)
+    end
+    SOAPGenerator.encode_tag_end(buf, name, indent, true)
+  end
+
+  def length
+    @data.length
+  end
+end
+
+
+class SOAPEnvelope < XSD::NSDBase
+  include SOAPEnvelopeElement
+  include SOAPCompoundtype
+
+  attr_accessor :header
+  attr_accessor :body
+
+  def initialize(header = nil, body = nil)
+    super(nil)
+    @elename = EleEnvelopeName
+    @encodingstyle = nil
+    @header = header
+    @body = body
+  end
+
+  def encode(buf, ns, attrs = {}, indent = '')
+    SOAPGenerator.assign_ns(attrs, ns, EnvelopeNamespace,
+      SOAPNamespaceTag)
+    name = ns.name(@elename)
+    SOAPGenerator.encode_tag(buf, name, attrs, indent)
+
+    yield(@header, true) if @header and @header.length > 0
+    yield(@body, true)
+
+    SOAPGenerator.encode_tag_end(buf, name, indent, true)
+  end
+end
+
+
+end