kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* lib/{soap,wsdl,xsd}, test/{soap,wsdl,xsd}: imported soap4r/1.5.5.

Browse source 
#nnn is a ticket number at http://dev.ctor.org/soap4r

          * SOAP

            * allow to configure an envelope namespace of SOAP request. (#124)
                TemporaryNamespace = 'http://www.w3.org/2003/05/soap-envelope'
                @client.options["soap.envelope.requestnamespace"] =
                  TemporaryNamespace
                @client.options["soap.envelope.responsenamespace"] =
                  TemporaryNamespace
                @client.do_proc(...)

            * let SOAP request XML indent space configuable.  see
              "soap.envelope.no_indent" option. (#130)

            * let external CES configuable.
              ex. client["soap.mapping.external_ces"] = 'SJIS'.  $KCODE is used
              by default. (#133)
                external CES ::= CES used in Ruby object of client and server
                internal CES ::= CES used in SOAP/OM

            * add iso-8859-1 external CES support. (#106)

            * fixed illegal 'qualified' handling of elements.  it caused
              ASP.NET inteoperability problem. (#144)

            * added 'soap.envelope.use_numeric_character_reference' (boolean)
              option to let query XML use numeric character reference in XML,
              not plain UTF-8 character.  !GoogleSearch server seems to not
              allow plain UTF-8 character since 2005-08-15 update. (#147)

            * SOAP::Header::SimpleHeader (de)serialization throws an exception
              on !SimpleHeader.on_(in|out)bound when header is a String.  so we
              could not use a simple single element headerItem.  fixed.  thanks
              to emil. (#129)

            * out parameter of rpc operation did not work.  (#132)

            * follow HTTP redirect only if using http-access2.  (#125) (#145)

            * add a workaround for importing an WSDL whose path begins with
              drive letter.  (#115)

          * WSDL

            * SOAP Data which is defined as a simpletype was not mapped
              correctly to Ruby obj when using wsdl2ruby.rb generated classdef
              file. (#123)

            * rpc/literal support. (#118)

            * re-implemented local element qualify/unqualify control.  handles
              elementFormDefault and form in WSDL.  (#119)

            * Array of an element which has simpleType causes a crash. (#128)

            * prarmeterOrder may not contain return part so it can be shorter
              than parts size.  Thanks to Hugh.  (#139)

          * Samples

            * added !BasicAuth client sample. (#117)

            * added Base64 client/server sample.

            * added Flickr SOAP interface client sample. (#122)

            * added !SalesForce client sample. (#135)

            * updated Thawte CA certificate for !GoogleAdWords sample.

            * updated a client script with the newer version made by Johan.
              thanks!

            * shortened long file names. (#120)

            * fixed typo in authheader sample. (#129)

            * updated deprecated method usage.  (#138)


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9169 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nahi 2005-09-15 14:33:53 +00:00
parent 071c45df93
commit 29c5ab0b77
80 changed files with 3871 additions and 615 deletions
Download patch file Download diff file Expand all files Collapse all files

84
ChangeLog
View file

@ -1,3 +1,87 @@
Thu Sep 15 23:25:21 2005 NAKAMURA, Hiroshi <nakahiro@sarion.co.jp>
* lib/{soap,wsdl,xsd}, test/{soap,wsdl,xsd}: imported soap4r/1.5.5.
#nnn is a ticket number at http://dev.ctor.org/soap4r
* SOAP
* allow to configure an envelope namespace of SOAP request. (#124)
TemporaryNamespace = 'http://www.w3.org/2003/05/soap-envelope'
@client.options["soap.envelope.requestnamespace"] =
TemporaryNamespace
@client.options["soap.envelope.responsenamespace"] =
TemporaryNamespace
@client.do_proc(...)
* let SOAP request XML indent space configuable. see
"soap.envelope.no_indent" option. (#130)
* let external CES configuable.
ex. client["soap.mapping.external_ces"] = 'SJIS'. $KCODE is used
by default. (#133)
external CES ::= CES used in Ruby object of client and server
internal CES ::= CES used in SOAP/OM
* add iso-8859-1 external CES support. (#106)
* fixed illegal 'qualified' handling of elements. it caused
ASP.NET inteoperability problem. (#144)
* added 'soap.envelope.use_numeric_character_reference' (boolean)
option to let query XML use numeric character reference in XML,
not plain UTF-8 character. !GoogleSearch server seems to not
allow plain UTF-8 character since 2005-08-15 update. (#147)
* SOAP::Header::SimpleHeader (de)serialization throws an exception
on !SimpleHeader.on_(in|out)bound when header is a String. so we
could not use a simple single element headerItem. fixed. thanks
to emil. (#129)
* out parameter of rpc operation did not work. (#132)
* follow HTTP redirect only if using http-access2. (#125) (#145)
* add a workaround for importing an WSDL whose path begins with
drive letter. (#115)
* WSDL
* SOAP Data which is defined as a simpletype was not mapped
correctly to Ruby obj when using wsdl2ruby.rb generated classdef
file. (#123)
* rpc/literal support. (#118)
* re-implemented local element qualify/unqualify control. handles
elementFormDefault and form in WSDL. (#119)
* Array of an element which has simpleType causes a crash. (#128)
* prarmeterOrder may not contain return part so it can be shorter
than parts size. Thanks to Hugh. (#139)
* Samples
* added !BasicAuth client sample. (#117)
* added Base64 client/server sample.
* added Flickr SOAP interface client sample. (#122)
* added !SalesForce client sample. (#135)
* updated Thawte CA certificate for !GoogleAdWords sample.
* updated a client script with the newer version made by Johan.
thanks!
* shortened long file names. (#120)
* fixed typo in authheader sample. (#129)
* updated deprecated method usage. (#138)
Thu Sep 15 22:40:27 2005 NAKAMURA Usaku <usa@ruby-lang.org>
* test/ruby/test_signal.rb (test_exit_action): skip the test using

60
lib/soap/baseData.rb
View file

@ -44,9 +44,9 @@ module SOAPType
attr_accessor :definedtype
def initialize(*arg)
super(*arg)
super
@encodingstyle = nil
@elename = XSD::QName.new
@elename = XSD::QName::EMPTY
@id = nil
@precedents = []
@root = false
@ -82,7 +82,7 @@ module SOAPBasetype
include SOAP
def initialize(*arg)
super(*arg)
super
end
end
@ -95,7 +95,7 @@ module SOAPCompoundtype
include SOAP
def initialize(*arg)
super(*arg)
super
end
end
@ -114,7 +114,7 @@ public
# Override the definition in SOAPBasetype.
def initialize(obj = nil)
super()
@type = XSD::QName.new
@type = XSD::QName::EMPTY
@refid = nil
@obj = nil
__setobj__(obj) if obj
@ -178,7 +178,7 @@ class SOAPExternalReference < XSD::NSDBase
def initialize
super()
@type = XSD::QName.new
@type = XSD::QName::EMPTY
end
def referred
@ -399,7 +399,7 @@ public
def initialize(type = nil)
super()
@type = type || XSD::QName.new
@type = type || XSD::QName::EMPTY
@array = []
@data = []
end
@ -470,8 +470,10 @@ public
end
def each
for i in 0..(@array.length - 1)
yield(@array[i], @data[i])
idx = 0
while idx < @array.length
yield(@array[idx], @data[idx])
idx += 1
end
end
@ -529,7 +531,7 @@ class SOAPElement
@position = nil
@extraattr = {}
@qualified = false
@qualified = nil
@array = []
@data = []
@ -598,8 +600,10 @@ class SOAPElement
end
def each
for i in 0..(@array.length - 1)
yield(@array[i], @data[i])
idx = 0
while idx < @array.length
yield(@array[idx], @data[idx])
idx += 1
end
end
@ -737,27 +741,25 @@ public
" does not match rank: #{@rank}")
end
for i in 0..(idxary.size - 1)
if idxary[i] + 1 > @size[i]
@size[i] = idxary[i] + 1
idx = 0
while idx < idxary.size
if idxary[idx] + 1 > @size[idx]
@size[idx] = idxary[idx] + 1
end
idx += 1
end
data = retrieve(idxary[0, idxary.size - 1])
data[idxary.last] = value
if value.is_a?(SOAPType)
value.elename = value.elename.dup_name('item')
value.elename = ITEM_NAME
# Sync type
unless @type.name
@type = XSD::QName.new(value.type.namespace,
SOAPArray.create_arytype(value.type.name, @rank))
end
unless value.type
value.type = @type
end
value.type ||= @type
end
@offset = idxary
@ -787,7 +789,7 @@ public
deep_map(ele, &block)
else
new_obj = block.call(ele)
new_obj.elename = new_obj.elename.dup_name('item')
new_obj.elename = ITEM_NAME
new_obj
end
end
@ -815,13 +817,15 @@ public
def soap2array(ary)
traverse_data(@data) do |v, *position|
iteary = ary
for rank in 1..(position.size - 1)
rank = 1
while rank < position.size
idx = position[rank - 1]
if iteary[idx].nil?
iteary = iteary[idx] = Array.new
else
iteary = iteary[idx]
end
rank += 1
end
if block_given?
iteary[position.last] = yield(v)
@ -837,21 +841,26 @@ public
private
ITEM_NAME = XSD::QName.new(nil, 'item')
def retrieve(idxary)
data = @data
for rank in 1..(idxary.size)
rank = 1
while rank <= idxary.size
idx = idxary[rank - 1]
if data[idx].nil?
data = data[idx] = Array.new
else
data = data[idx]
end
rank += 1
end
data
end
def traverse_data(data, rank = 1)
for idx in 0..(ranksize(rank) - 1)
idx = 0
while idx < ranksize(rank)
if rank < @rank
traverse_data(data[idx], rank + 1) do |*v|
v[1, 0] = idx
@ -860,6 +869,7 @@ private
else
yield(data[idx], idx)
end
idx += 1
end
end

22
lib/soap/element.rb
View file

@ -83,10 +83,10 @@ public
attrs[ns.name(AttrEncodingStyleName)] = EncodingNamespace
name = ns.name(@elename)
generator.encode_tag(name, attrs)
yield(self.faultcode, false)
yield(self.faultstring, false)
yield(self.faultactor, false)
yield(self.detail, false) if self.detail
yield(self.faultcode)
yield(self.faultstring)
yield(self.faultactor)
yield(self.detail) if self.detail
generator.encode_tag_end(name, true)
end
end
@ -115,10 +115,10 @@ class SOAPBody < SOAPStruct
name = ns.name(@elename)
generator.encode_tag(name, attrs)
if @is_fault
yield(@data, true)
yield(@data)
else
@data.each do |data|
yield(data, true)
yield(data)
end
end
generator.encode_tag_end(name, true)
@ -171,7 +171,7 @@ public
@element.extraattr[ns.name(AttrEncodingStyleName)] = @encodingstyle
end
@element.encodingstyle = @encodingstyle if !@element.encodingstyle
yield(@element, true)
yield(@element)
end
end
@ -189,7 +189,7 @@ class SOAPHeader < SOAPStruct
name = ns.name(@elename)
generator.encode_tag(name, attrs)
@data.each do |data|
yield(data, true)
yield(data)
end
generator.encode_tag_end(name, true)
end
@ -239,12 +239,12 @@ class SOAPEnvelope < XSD::NSDBase
end
def encode(generator, ns, attrs = {})
SOAPGenerator.assign_ns(attrs, ns, EnvelopeNamespace, SOAPNamespaceTag)
SOAPGenerator.assign_ns(attrs, ns, elename.namespace, SOAPNamespaceTag)
name = ns.name(@elename)
generator.encode_tag(name, attrs)
yield(@header, true) if @header and @header.length > 0
yield(@body, true)
yield(@header) if @header and @header.length > 0
yield(@body)
generator.encode_tag_end(name, true)
end

34
lib/soap/encodingstyle/aspDotNetHandler.rb
View file

@ -27,38 +27,36 @@ class ASPDotNetHandler < Handler
###
## encode interface.
#
def encode_data(generator, ns, qualified, data, parent)
def encode_data(generator, ns, data, parent)
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
# ASPDotNetHandler is intended to be used for accessing an ASP.NET doc/lit
# service as an rpc/encoded service. in the situation, local elements
# should be qualified. propagate parent's namespace to children.
if data.elename.namespace.nil?
data.elename.namespace = parent.elename.namespace
end
name = generator.encode_name(ns, data, attrs)
case data
when SOAPRawString
generator.encode_tag(name, attrs)
generator.encode_rawstring(data.to_s)
when XSD::XSDString
generator.encode_tag(name, attrs)
generator.encode_string(@charset ? XSD::Charset.encoding_to_xml(data.to_s, @charset) : data.to_s)
generator.encode_string(@charset ?
XSD::Charset.encoding_to_xml(data.to_s, @charset) : data.to_s)
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|
if !value.elename.namespace
value.elename.namespace = data.elename.namespace
end
yield(value, true)
generator.encode_child(ns, value, data)
end
when SOAPArray
generator.encode_tag(name, attrs)
data.traverse do |child, *rank|
data.position = nil
yield(child, true)
generator.encode_child(ns, child, data)
end
else
raise EncodingStyleError.new(
@ -66,12 +64,8 @@ class ASPDotNetHandler < Handler
end
end
def encode_data_end(generator, ns, qualified, data, parent)
name = if qualified and data.elename.namespace
ns.name(data.elename)
else
data.elename.name
end
def encode_data_end(generator, ns, data, parent)
name = generator.encode_name_end(ns, data)
cr = data.is_a?(SOAPCompoundtype)
generator.encode_tag_end(name, cr)
end

8
lib/soap/encodingstyle/handler.rb
View file

@ -58,12 +58,12 @@ class Handler
## encode interface.
#
# Returns a XML instance as a string.
def encode_data(generator, ns, qualified, data, parent)
raise NotImplementError.new('Method encode_data must be defined in derived class.')
def encode_data(generator, ns, data, parent)
raise NotImplementError
end
def encode_data_end(generator, ns, qualified, data, parent)
raise NotImplementError.new('Method encode_data must be defined in derived class.')
def encode_data_end(generator, ns, data, parent)
raise NotImplementError
end
def encode_prologue

34
lib/soap/encodingstyle/literalHandler.rb
View file

@ -26,15 +26,11 @@ class LiteralHandler < Handler
###
## encode interface.
#
def encode_data(generator, ns, qualified, data, parent)
def encode_data(generator, ns, data, parent)
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
name = generator.encode_name(ns, data, attrs)
data.extraattr.each do |k, v|
# ToDo: check generator.attributeformdefault here
if k.is_a?(XSD::QName)
if k.namespace
SOAPGenerator.assign_ns(attrs, ns, k.namespace)
@ -45,7 +41,6 @@ class LiteralHandler < Handler
end
attrs[k] = v
end
case data
when SOAPRawString
generator.encode_tag(name, attrs)
@ -61,22 +56,25 @@ class LiteralHandler < Handler
when SOAPStruct
generator.encode_tag(name, attrs)
data.each do |key, value|
if !value.elename.namespace
value.elename.namespace = data.elename.namespace
end
yield(value, true)
generator.encode_child(ns, value, data)
end
when SOAPArray
generator.encode_tag(name, attrs)
data.traverse do |child, *rank|
data.position = nil
yield(child, true)
generator.encode_child(ns, child, data)
end
when SOAPElement
# passes 2 times for simplifying namespace definition
data.each do |key, value|
if value.elename.namespace
SOAPGenerator.assign_ns(attrs, ns, value.elename.namespace)
end
end
generator.encode_tag(name, attrs)
generator.encode_rawstring(data.text) if data.text
data.each do |key, value|
yield(value, qualified)
generator.encode_child(ns, value, data)
end
else
raise EncodingStyleError.new(
@ -84,12 +82,8 @@ class LiteralHandler < Handler
end
end
def encode_data_end(generator, ns, qualified, data, parent)
name = if qualified and data.elename.namespace
ns.name(data.elename)
else
data.elename.name
end
def encode_data_end(generator, ns, data, parent)
name = generator.encode_name_end(ns, data)
cr = (data.is_a?(SOAPCompoundtype) or
(data.is_a?(SOAPElement) and !data.text))
generator.encode_tag_end(name, cr)

27
lib/soap/encodingstyle/soapHandler.rb
View file

@ -29,21 +29,12 @@ class SOAPHandler < Handler
###
## encode interface.
#
def encode_data(generator, ns, qualified, data, parent)
def encode_data(generator, ns, data, parent)
attrs = encode_attrs(generator, ns, data, parent)
if parent && parent.is_a?(SOAPArray) && parent.position
attrs[ns.name(AttrPositionName)] = "[#{parent.position.join(',')}]"
end
name = nil
if qualified and data.elename.namespace
SOAPGenerator.assign_ns(attrs, ns, data.elename.namespace)
name = ns.name(data.elename)
else
name = data.elename.name
end
name = generator.encode_name(ns, data, attrs)
case data
when SOAPReference
attrs['href'] = data.refidstr
@ -65,13 +56,13 @@ class SOAPHandler < Handler
when SOAPStruct
generator.encode_tag(name, attrs)
data.each do |key, value|
yield(value, false)
generator.encode_child(ns, value, data)
end
when SOAPArray
generator.encode_tag(name, attrs)
data.traverse do |child, *rank|
data.position = data.sparse ? rank : nil
yield(child, false)
generator.encode_child(ns, child, data)
end
else
raise EncodingStyleError.new(
@ -79,12 +70,8 @@ class SOAPHandler < Handler
end
end
def encode_data_end(generator, ns, qualified, data, parent)
name = if qualified and data.elename.namespace
ns.name(data.elename)
else
data.elename.name
end
def encode_data_end(generator, ns, data, parent)
name = generator.encode_name_end(ns, data)
cr = data.is_a?(SOAPCompoundtype)
generator.encode_tag_end(name, cr)
end
@ -268,8 +255,8 @@ private
end
def encode_attrs(generator, ns, data, parent)
return {} if data.is_a?(SOAPReference)
attrs = {}
return attrs if data.is_a?(SOAPReference)
if !parent || parent.encodingstyle != EncodingNamespace
if @generate_explicit_type

107
lib/soap/generator.rb
View file

@ -1,5 +1,5 @@
# SOAP4R - SOAP XML Instance Generator library.
# Copyright (C) 2001, 2003 NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
# Copyright (C) 2001, 2003, 2005 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;
@ -28,14 +28,19 @@ public
attr_accessor :charset
attr_accessor :default_encodingstyle
attr_accessor :generate_explicit_type
attr_accessor :use_numeric_character_reference
def initialize(opt = {})
@reftarget = nil
@handlers = {}
@charset = opt[:charset] || XSD::Charset.encoding_label
@charset = opt[:charset] || XSD::Charset.xml_encoding_label
@default_encodingstyle = opt[:default_encodingstyle] || EncodingNamespace
@generate_explicit_type =
opt.key?(:generate_explicit_type) ? opt[:generate_explicit_type] : true
@elementformdefault = opt[:elementformdefault]
@attributeformdefault = opt[:attributeformdefault]
@use_numeric_character_reference = opt[:use_numeric_character_reference]
@indentstr = opt[:no_indent] ? '' : ' '
@buf = @indent = @curr = nil
end
@ -50,7 +55,7 @@ public
ns = XSD::NS.new
@buf << xmldecl
encode_data(ns, true, obj, nil)
encode_data(ns, obj, nil)
@handlers.each do |uri, handler|
handler.encode_epilogue
@ -60,42 +65,33 @@ public
@buf
end
def encode_data(ns, qualified, obj, parent)
def encode_data(ns, obj, parent)
if obj.is_a?(SOAPEnvelopeElement)
encode_element(ns, qualified, obj, parent)
encode_element(ns, obj, parent)
return
end
if @reftarget && !obj.precedents.empty?
add_reftarget(obj.elename.name, obj)
ref = SOAPReference.new(obj)
ref.elename.name = obj.elename.name
ref.elename = ref.elename.dup_name(obj.elename.name)
obj.precedents.clear # Avoid cyclic delay.
obj.encodingstyle = parent.encodingstyle
# SOAPReference is encoded here.
obj = ref
end
encodingstyle = obj.encodingstyle
# Children's encodingstyle is derived from its parent.
encodingstyle ||= parent.encodingstyle if parent
obj.encodingstyle = encodingstyle
handler = find_handler(encodingstyle || @default_encodingstyle)
unless handler
raise FormatEncodeError.new("Unknown encodingStyle: #{ encodingstyle }.")
end
if !obj.elename.name
raise FormatEncodeError.new("Element name not defined: #{ obj }.")
end
handler.encode_data(self, ns, qualified, obj, parent) do |child, nextq|
indent_backup, @indent = @indent, @indent + ' '
encode_data(ns.clone_ns, nextq, child, obj)
@indent = indent_backup
end
handler.encode_data_end(self, ns, qualified, obj, parent)
handler.encode_data(self, ns, obj, parent)
handler.encode_data_end(self, ns, obj, parent)
end
def add_reftarget(name, node)
@ -105,13 +101,19 @@ public
@reftarget.add(name, node)
end
def encode_element(ns, qualified, obj, parent)
def encode_child(ns, child, parent)
indent_backup, @indent = @indent, @indent + @indentstr
encode_data(ns.clone_ns, child, parent)
@indent = indent_backup
end
def encode_element(ns, obj, parent)
attrs = {}
if obj.is_a?(SOAPBody)
@reftarget = obj
obj.encode(self, ns, attrs) do |child, nextq|
indent_backup, @indent = @indent, @indent + ' '
encode_data(ns.clone_ns, nextq, child, obj)
obj.encode(self, ns, attrs) do |child|
indent_backup, @indent = @indent, @indent + @indentstr
encode_data(ns.clone_ns, child, obj)
@indent = indent_backup
end
@reftarget = nil
@ -124,14 +126,35 @@ public
SOAPGenerator.assign_ns(attrs, ns, XSD::Namespace, XSDNamespaceTag)
end
end
obj.encode(self, ns, attrs) do |child, nextq|
indent_backup, @indent = @indent, @indent + ' '
encode_data(ns.clone_ns, nextq, child, obj)
obj.encode(self, ns, attrs) do |child|
indent_backup, @indent = @indent, @indent + @indentstr
encode_data(ns.clone_ns, child, obj)
@indent = indent_backup
end
end
end
def encode_name(ns, data, attrs)
if element_local?(data)
data.elename.name
else
if element_qualified?(data)
SOAPGenerator.assign_ns(attrs, ns, data.elename.namespace, '')
else
SOAPGenerator.assign_ns(attrs, ns, data.elename.namespace)
end
ns.name(data.elename)
end
end
def encode_name_end(ns, data)
if element_local?(data)
data.elename.name
else
ns.name(data.elename)
end
end
def encode_tag(elename, attrs = nil)
if !attrs or attrs.empty?
@buf << "\n#{ @indent }<#{ elename }>"
@ -142,7 +165,7 @@ public
@buf << "\n#{ @indent }<#{ elename } " <<
attrs.collect { |key, value|
%Q[#{ key }="#{ value }"]
}.join("\n#{ @indent } ") <<
}.join("\n#{ @indent }#{ @indentstr * 2 }") <<
'>'
end
end
@ -169,11 +192,41 @@ public
}
EncodeCharRegexp = Regexp.new("[#{EncodeMap.keys.join}]")
def encode_string(str)
@buf << str.gsub(EncodeCharRegexp) { |c| EncodeMap[c] }
if @use_numeric_character_reference and !XSD::Charset.is_us_ascii(str)
str.gsub!(EncodeCharRegexp) { |c| EncodeMap[c] }
@buf << str.unpack("U*").collect { |c|
if c == 0x9 or c == 0xa or c == 0xd or (c >= 0x20 and c <= 0x7f)
c.chr
else
sprintf("&#x%x;", c)
end
}.join
else
@buf << str.gsub(EncodeCharRegexp) { |c| EncodeMap[c] }
end
end
def element_local?(element)
element.elename.namespace.nil?
end
def element_qualified?(element)
if element.respond_to?(:qualified)
if element.qualified.nil?
@elementformdefault
else
element.qualified
end
else
@elementformdefault
end
end
def self.assign_ns(attrs, ns, namespace, tag = nil)
if namespace and !ns.assigned?(namespace)
if namespace.nil?
raise FormatEncodeError.new("empty namespace")
end
unless ns.assigned?(namespace)
tag = ns.assign(namespace, tag)
if tag == ''
attr = 'xmlns'

6
lib/soap/header/simplehandler.rb
View file

@ -19,12 +19,12 @@ class SimpleHandler < SOAP::Header::Handler
super(elename)
end
# Should return a Hash or nil.
# Should return a Hash, String or nil.
def on_simple_outbound
nil
end
# Given header is a Hash or nil.
# Given header is a Hash, String or nil.
def on_simple_inbound(header, mustunderstand)
end
@ -34,7 +34,7 @@ class SimpleHandler < SOAP::Header::Handler
end
def on_inbound(header, mustunderstand)
h = header.to_obj
h = header.respond_to?(:to_obj) ? header.to_obj : header.data
on_simple_inbound(h, mustunderstand)
end
end

3
lib/soap/httpconfigloader.rb
View file

@ -60,6 +60,9 @@ module_function
def set_ssl_config(client, ssl_config)
ssl_config.each do |key, value|
cfg = client.ssl_config
if cfg.nil?
raise NotImplementedError.new("SSL not supported")
end
case key
when 'client_cert'
cfg.client_cert = cert_from_file(value)

10
lib/soap/mapping/factory.rb
View file

@ -87,10 +87,11 @@ class StringFactory_ < Factory
return nil
end
begin
unless XSD::Charset.is_ces(obj, $KCODE)
return nil
unless XSD::Charset.is_ces(obj, Thread.current[:SOAPExternalCES])
return nil
end
encoded = XSD::Charset.encoding_conv(obj, $KCODE, XSD::Charset.encoding)
encoded = XSD::Charset.encoding_conv(obj,
Thread.current[:SOAPExternalCES], XSD::Charset.encoding)
soap_obj = soap_class.new(encoded)
rescue XSD::ValueSpaceError
return nil
@ -101,7 +102,8 @@ class StringFactory_ < Factory
def soap2obj(obj_class, node, info, map)
obj = Mapping.create_empty_object(obj_class)
decoded = XSD::Charset.encoding_conv(node.data, XSD::Charset.encoding, $KCODE)
decoded = XSD::Charset.encoding_conv(node.data, XSD::Charset.encoding,
Thread.current[:SOAPExternalCES])
obj.replace(decoded)
mark_unmarshalled_obj(node, obj)
return true, obj

7
lib/soap/mapping/registry.rb
View file

@ -49,8 +49,7 @@ class SOAPException; include Marshallable
e.set_backtrace(@cause.backtrace)
return e
end
klass = Mapping.class_from_name(
Mapping.elename2name(@excn_type_name.to_s))
klass = Mapping.class_from_name(Mapping.elename2name(@excn_type_name.to_s))
if klass.nil? or not klass <= ::Exception
return RuntimeError.new(@cause.inspect)
end
@ -89,6 +88,10 @@ class Object; include Marshallable
@__xmlele.each do |k, v|
return v if k == qname
end
# fallback
@__xmlele.each do |k, v|
return v if k.name == qname.name
end
nil
end

155
lib/soap/mapping/wsdlRegistry.rb
View file

@ -1,155 +0,0 @@
# SOAP4R - WSDL mapping registry.
# Copyright (C) 2000, 2001, 2002, 2003 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/baseData'
require 'soap/mapping/mapping'
require 'soap/mapping/typeMap'
module SOAP
module Mapping
class WSDLRegistry
include TraverseSupport
attr_reader :definedtypes
def initialize(definedtypes, config = {})
@definedtypes = definedtypes
@config = config
@excn_handler_obj2soap = nil
# For mapping AnyType element.
@rubytype_factory = RubytypeFactory.new(
:allow_untyped_struct => true,
:allow_original_mapping => true
)
end
def obj2soap(klass, obj, type_qname)
soap_obj = nil
if obj.nil?
soap_obj = SOAPNil.new
elsif obj.is_a?(XSD::NSDBase)
soap_obj = soap2soap(obj, type_qname)
elsif type = @definedtypes[type_qname]
soap_obj = obj2type(obj, type)
elsif (type = TypeMap[type_qname])
soap_obj = base2soap(obj, type)
elsif type_qname == XSD::AnyTypeName
soap_obj = @rubytype_factory.obj2soap(nil, obj, nil, nil)
end
return soap_obj if soap_obj
if @excn_handler_obj2soap
soap_obj = @excn_handler_obj2soap.call(obj) { |yield_obj|
Mapping._obj2soap(yield_obj, self)
}
end
return soap_obj if soap_obj
raise MappingError.new("Cannot map #{ klass.name } to SOAP/OM.")
end
def soap2obj(klass, node)
raise RuntimeError.new("#{ self } is for obj2soap only.")
end
def excn_handler_obj2soap=(handler)
@excn_handler_obj2soap = handler
end
private
def soap2soap(obj, type_qname)
if obj.is_a?(SOAPBasetype)
obj
elsif obj.is_a?(SOAPStruct) && (type = @definedtypes[type_qname])
soap_obj = obj
mark_marshalled_obj(obj, soap_obj)
elements2soap(obj, soap_obj, type.content.elements)
soap_obj
elsif obj.is_a?(SOAPArray) && (type = @definedtypes[type_qname])
soap_obj = obj
contenttype = type.child_type
mark_marshalled_obj(obj, soap_obj)
obj.replace do |ele|
Mapping._obj2soap(ele, self, contenttype)
end
soap_obj
else
nil
end
end
def obj2type(obj, type)
if type.is_a?(::WSDL::XMLSchema::SimpleType)
simple2soap(obj, type)
else
complex2soap(obj, type)
end
end
def simple2soap(obj, type)
o = base2soap(obj, TypeMap[type.base])
if type.restriction.enumeration.empty?
STDERR.puts("#{type.name}: simpleType which is not enum type not supported.")
return o
end
type.check_lexical_format(obj)
o
end
def complex2soap(obj, type)
case type.compoundtype
when :TYPE_STRUCT
struct2soap(obj, type.name, type)
when :TYPE_ARRAY
array2soap(obj, type.name, type)
end
end
def base2soap(obj, type)
soap_obj = nil
if type <= XSD::XSDString
soap_obj = type.new(XSD::Charset.is_ces(obj, $KCODE) ?
XSD::Charset.encoding_conv(obj, $KCODE, XSD::Charset.encoding) : obj)
mark_marshalled_obj(obj, soap_obj)
else
soap_obj = type.new(obj)
end
soap_obj
end
def struct2soap(obj, type_qname, type)
soap_obj = SOAPStruct.new(type_qname)
mark_marshalled_obj(obj, soap_obj)
elements2soap(obj, soap_obj, type.content.elements)
soap_obj
end
def array2soap(obj, type_qname, type)
contenttype = type.child_type
soap_obj = SOAPArray.new(ValueArrayName, 1, contenttype)
mark_marshalled_obj(obj, soap_obj)
obj.each do |item|
soap_obj.add(Mapping._obj2soap(item, self, contenttype))
end
soap_obj
end
def elements2soap(obj, soap_obj, elements)
elements.each do |element|
name = element.name.name
child_obj = obj.instance_eval("@#{ name }")
soap_obj.add(name, Mapping._obj2soap(child_obj, self, element.type))
end
end
end
end
end

17
lib/soap/mapping/wsdlencodedregistry.rb
View file

@ -149,8 +149,9 @@ private
def base2soap(obj, type)
soap_obj = nil
if type <= XSD::XSDString
soap_obj = type.new(XSD::Charset.is_ces(obj, $KCODE) ?
XSD::Charset.encoding_conv(obj, $KCODE, XSD::Charset.encoding) : obj)
str = XSD::Charset.encoding_conv(obj.to_s,
Thread.current[:SOAPExternalCES], XSD::Charset.encoding)
soap_obj = type.new(str)
mark_marshalled_obj(obj, soap_obj)
else
soap_obj = type.new(obj)
@ -234,7 +235,9 @@ private
elements, as_array = schema_element_definition(obj.class)
vars = {}
node.each do |name, value|
if class_name = elements[name]
item = elements.find { |k, v| k.name == name }
if item
elename, class_name = item
if klass = Mapping.class_from_name(class_name)
# klass must be a SOAPBasetype or a class
if klass.ancestors.include?(::SOAP::SOAPBasetype)
@ -246,6 +249,14 @@ private
else
child = Mapping._soap2obj(value, self, klass)
end
elsif klass = Mapping.module_from_name(class_name)
# simpletype
if value.respond_to?(:data)
child = value.data
else
raise MappingError.new(
"cannot map to a module value: #{class_name}")
end
else
raise MappingError.new("unknown class: #{class_name}")
end

90
lib/soap/mapping/wsdlliteralregistry.rb
View file

@ -38,14 +38,14 @@ class WSDLLiteralRegistry < Registry
if ele = @definedelements[qname]
soap_obj = obj2elesoap(obj, ele)
elsif type = @definedtypes[qname]
soap_obj = obj2typesoap(obj, type)
soap_obj = obj2typesoap(obj, type, true)
else
soap_obj = any2soap(obj, qname)
end
return soap_obj if soap_obj
if @excn_handler_obj2soap
soap_obj = @excn_handler_obj2soap.call(obj) { |yield_obj|
Mapping._obj2soap(yield_obj, self)
Mapping.obj2soap(yield_obj, nil, nil, MAPPING_OPT)
}
return soap_obj if soap_obj
end
@ -54,9 +54,7 @@ class WSDLLiteralRegistry < Registry
# node should be a SOAPElement
def soap2obj(node, obj_class = nil)
unless obj_class.nil?
raise MappingError.new("must not reach here")
end
# obj_class is given when rpc/literal service. but ignored for now.
begin
return any2obj(node)
rescue MappingError
@ -64,45 +62,50 @@ class WSDLLiteralRegistry < Registry
if @excn_handler_soap2obj
begin
return @excn_handler_soap2obj.call(node) { |yield_node|
Mapping._soap2obj(yield_node, self)
Mapping.soap2obj(yield_node, nil, nil, MAPPING_OPT)
}
rescue Exception
end
end
raise MappingError.new("cannot map #{node.type.name} to Ruby object")
if node.respond_to?(:type)
raise MappingError.new("cannot map #{node.type.name} to Ruby object")
else
raise MappingError.new("cannot map #{node.elename.name} to Ruby object")
end
end
private
MAPPING_OPT = { :no_reference => true }
def obj2elesoap(obj, ele)
o = nil
qualified = (ele.elementform == 'qualified')
if ele.type
if type = @definedtypes[ele.type]
o = obj2typesoap(obj, type)
o = obj2typesoap(obj, type, qualified)
elsif type = TypeMap[ele.type]
o = base2soap(obj, type)
else
raise MappingError.new("cannot find type #{ele.type}")
end
o.elename = ele.name
elsif ele.local_complextype
o = obj2typesoap(obj, ele.local_complextype)
o.elename = ele.name
o = obj2typesoap(obj, ele.local_complextype, qualified)
add_attributes2soap(obj, o)
elsif ele.local_simpletype
o = obj2typesoap(obj, ele.local_simpletype)
o.elename = ele.name
o = obj2typesoap(obj, ele.local_simpletype, qualified)
else
raise MappingError.new('illegal schema?')
end
o.elename = ele.name
o
end
def obj2typesoap(obj, type)
def obj2typesoap(obj, type, qualified)
if type.is_a?(::WSDL::XMLSchema::SimpleType)
simpleobj2soap(obj, type)
else
complexobj2soap(obj, type)
complexobj2soap(obj, type, qualified)
end
end
@ -113,15 +116,17 @@ private
o
end
def complexobj2soap(obj, type)
def complexobj2soap(obj, type, qualified)
o = SOAPElement.new(type.name)
o.qualified = qualified
type.each_element do |child_ele|
child = Mapping.get_attribute(obj, child_ele.name.name)
if child.nil?
if child_ele.nillable
# ToDo: test
# add empty element
o.add(obj2elesoap(nil))
child_soap = obj2elesoap(nil, child_ele)
o.add(child_soap)
elsif Integer(child_ele.minoccurs) == 0
# nothing to do
else
@ -129,10 +134,12 @@ private
end
elsif child_ele.map_as_array?
child.each do |item|
o.add(obj2elesoap(item, child_ele))
child_soap = obj2elesoap(item, child_ele)
o.add(child_soap)
end
else
o.add(obj2elesoap(child, child_ele))
child_soap = obj2elesoap(child, child_ele)
o.add(child_soap)
end
end
o
@ -153,7 +160,7 @@ private
# expected to be a basetype or an anyType.
# SOAPStruct, etc. is used instead of SOAPElement.
begin
ele = Mapping.obj2soap(obj)
ele = Mapping.obj2soap(obj, nil, nil, MAPPING_OPT)
ele.elename = qname
ele
rescue MappingError
@ -170,6 +177,9 @@ private
def stubobj2soap(obj, qname)
ele = SOAPElement.new(qname)
ele.qualified =
(obj.class.class_variables.include?('@@schema_qualified') and
obj.class.class_eval('@@schema_qualified'))
add_elements2soap(obj, ele)
add_attributes2soap(obj, ele)
ele
@ -196,15 +206,17 @@ private
elements, as_array = schema_element_definition(obj.class)
if elements
elements.each do |elename, type|
child = Mapping.get_attribute(obj, elename)
unless child.nil?
name = XSD::QName.new(nil, elename)
if as_array.include?(type)
if child = Mapping.get_attribute(obj, elename.name)
if as_array.include?(elename.name)
child.each do |item|
ele.add(obj2soap(item, name))
ele.add(obj2soap(item, elename))
end
else
ele.add(obj2soap(child, name))
ele.add(obj2soap(child, elename))
end
elsif obj.is_a?(::Array) and as_array.include?(elename.name)
obj.each do |item|
ele.add(obj2soap(item, elename))
end
end
end
@ -225,8 +237,9 @@ private
def base2soap(obj, type)
soap_obj = nil
if type <= XSD::XSDString
soap_obj = type.new(XSD::Charset.is_ces(obj, $KCODE) ?
XSD::Charset.encoding_conv(obj, $KCODE, XSD::Charset.encoding) : obj)
str = XSD::Charset.encoding_conv(obj.to_s,
Thread.current[:SOAPExternalCES], XSD::Charset.encoding)
soap_obj = type.new(str)
else
soap_obj = type.new(obj)
end
@ -253,7 +266,7 @@ private
# SOAPArray for literal?
soapele2plainobj(node)
else
obj = Mapping._soap2obj(node, Mapping::DefaultRegistry, obj_class)
obj = Mapping.soap2obj(node, nil, obj_class, MAPPING_OPT)
add_attributes2plainobj(node, obj)
obj
end
@ -277,8 +290,11 @@ private
elements, as_array = schema_element_definition(obj.class)
vars = {}
node.each do |name, value|
if class_name = elements[name]
item = elements.find { |k, v| k.name == name }
if item
elename, class_name = item
if klass = Mapping.class_from_name(class_name)
# klass must be a SOAPBasetype or a class
if klass.ancestors.include?(::SOAP::SOAPBasetype)
if value.respond_to?(:data)
child = klass.new(value.data).data
@ -288,13 +304,21 @@ private
else
child = any2obj(value, klass)
end
elsif klass = Mapping.module_from_name(class_name)
# simpletype
if value.respond_to?(:data)
child = value.data
else
raise MappingError.new(
"cannot map to a module value: #{class_name}")
end
else
raise MappingError.new("unknown class: #{class_name}")
raise MappingError.new("unknown class/module: #{class_name}")
end
else # untyped element is treated as anyType.
child = any2obj(value)
end
if as_array.include?(class_name)
if as_array.include?(elename.name)
(vars[name] ||= []) << child
else
vars[name] = child
@ -323,7 +347,7 @@ private
def add_elements2plainobj(node, obj)
node.each do |name, value|
obj.__add_xmlele_value(XSD::QName.new(nil, name), any2obj(value))
obj.__add_xmlele_value(value.elename, any2obj(value))
end
end

4
lib/soap/mimemessage.rb
View file

@ -112,6 +112,7 @@ class MIMEMessage
@headers = Headers.new
@headers.add("Content-Transfer-Encoding", "8bit")
@body = nil
@contentid = nil
end
def self.parse(str)
@ -147,6 +148,7 @@ class MIMEMessage
def initialize
@parts = []
@headers = Headers.new
@root = nil
end
def self.parse(head, str)
@ -197,7 +199,7 @@ class MIMEMessage
def add_part(content)
part = Part.new
part.headers.add("Content-Type",
"text/xml; charset=" + XSD::Charset.encoding_label)
"text/xml; charset=" + XSD::Charset.xml_encoding_label)
part.headers.add("Content-ID", Attachment.contentid(part))
part.body = content
@parts.unshift(part)

11
lib/soap/parser.rb
View file

@ -60,6 +60,7 @@ private
public
attr_accessor :envelopenamespace
attr_accessor :default_encodingstyle
attr_accessor :decode_typemap
attr_accessor :allow_unqualified_element
@ -70,6 +71,7 @@ public
@parsestack = nil
@lastnode = nil
@handlers = {}
@envelopenamespace = opt[:envelopenamespace] || EnvelopeNamespace
@default_encodingstyle = opt[:default_encodingstyle] || EncodingNamespace
@decode_typemap = opt[:decode_typemap] || nil
@allow_unqualified_element = opt[:allow_unqualified_element] || false
@ -134,10 +136,7 @@ public
lastframe = @parsestack.last
if lastframe
# Need not to be cloned because character does not have attr.
ns = lastframe.ns
parent = lastframe.node
encodingstyle = lastframe.encodingstyle
decode_text(ns, text, encodingstyle)
decode_text(lastframe.ns, text, lastframe.encodingstyle)
else
# Ignore Text outside of SOAP Envelope.
p text if $DEBUG
@ -157,7 +156,7 @@ private
def find_encodingstyle(ns, attrs)
attrs.each do |key, value|
if (ns.compare(EnvelopeNamespace, AttrEncodingStyle, key))
if (ns.compare(@envelopenamespace, AttrEncodingStyle, key))
return value
end
end
@ -168,7 +167,7 @@ private
ele = ns.parse(name)
# Envelope based parsing.
if ((ele.namespace == EnvelopeNamespace) ||
if ((ele.namespace == @envelopenamespace) ||
(@allow_unqualified_element && ele.namespace.nil?))
o = decode_soap_envelope(ns, ele, attrs, parent)
return o if o

2
lib/soap/rpc/driver.rb
View file

@ -205,7 +205,7 @@ private
opt.add_hook("protocol.wiredump_file_base") do |key, value|
@wiredump_file_base = value
end
opt["protocol.http.charset"] ||= XSD::Charset.encoding_label
opt["protocol.http.charset"] ||= XSD::Charset.xml_encoding_label
opt["protocol.http.proxy"] ||= Env::HTTP_PROXY
opt["protocol.http.no_proxy"] ||= Env::NO_PROXY
opt

18
lib/soap/rpc/element.rb
View file

@ -20,21 +20,25 @@ class SOAPBody < SOAPStruct
end
def response
root = root_node
if !@is_fault
if void?
if root.nil?
nil
elsif root.is_a?(SOAPBasetype)
root
else
# Initial element is [retval].
root_node[0]
root[0]
end
else
root_node
root
end
end
def outparams
if !@is_fault and !void?
op = root_node[1..-1]
root = root_node
if !@is_fault and !root.nil? and !root.is_a?(SOAPBasetype)
op = root[1..-1]
op = nil if op && op.empty?
op
else
@ -42,10 +46,6 @@ class SOAPBody < SOAPStruct
end
end
def void?
root_node.nil?
end
def fault
if @is_fault
self['fault']

154
lib/soap/rpc/proxy.rb
View file

@ -92,6 +92,14 @@ public
opt[:response_style] ||= :document
opt[:request_use] ||= :literal
opt[:response_use] ||= :literal
# default values of these values are unqualified in XML Schema.
# set true for backward compatibility.
unless opt.key?(:elementformdefault)
opt[:elementformdefault] = true
end
unless opt.key?(:attributeformdefault)
opt[:attributeformdefault] = true
end
@operation[name] = Operation.new(soapaction, param_def, opt)
end
@ -101,7 +109,7 @@ public
alias add_document_method add_document_operation
def invoke(req_header, req_body, opt = nil)
opt ||= create_options
opt ||= create_encoding_opt
route(req_header, req_body, opt, opt)
end
@ -109,15 +117,27 @@ public
unless op_info = @operation[name]
raise MethodDefinitionError, "method: #{name} not defined"
end
mapping_opt = create_mapping_opt
req_header = create_request_header
req_body = SOAPBody.new(
op_info.request_body(params, @mapping_registry, @literal_mapping_registry)
op_info.request_body(params, @mapping_registry,
@literal_mapping_registry, mapping_opt)
)
reqopt = create_options({
reqopt = create_encoding_opt(
:soapaction => op_info.soapaction || @soapaction,
:default_encodingstyle => op_info.request_default_encodingstyle})
resopt = create_options({
:default_encodingstyle => op_info.response_default_encodingstyle})
:envelopenamespace => @options["soap.envelope.requestnamespace"],
:default_encodingstyle =>
@default_encodingstyle || op_info.request_default_encodingstyle,
:elementformdefault => op_info.elementformdefault,
:attributeformdefault => op_info.attributeformdefault
)
resopt = create_encoding_opt(
:envelopenamespace => @options["soap.envelope.responsenamespace"],
:default_encodingstyle =>
@default_encodingstyle || op_info.response_default_encodingstyle,
:elementformdefault => op_info.elementformdefault,
:attributeformdefault => op_info.attributeformdefault
)
env = route(req_header, req_body, reqopt, resopt)
raise EmptyResponseError unless env
receive_headers(env.header)
@ -126,11 +146,15 @@ public
rescue ::SOAP::FaultError => e
op_info.raise_fault(e, @mapping_registry, @literal_mapping_registry)
end
op_info.response_obj(env.body, @mapping_registry, @literal_mapping_registry)
op_info.response_obj(env.body, @mapping_registry,
@literal_mapping_registry, mapping_opt)
end
def route(req_header, req_body, reqopt, resopt)
req_env = SOAPEnvelope.new(req_header, req_body)
req_env = ::SOAP::SOAPEnvelope.new(req_header, req_body)
unless reqopt[:envelopenamespace].nil?
set_envelopenamespace(req_env, reqopt[:envelopenamespace])
end
reqopt[:external_content] = nil
conn_data = marshal(req_env, reqopt)
if ext = reqopt[:external_content]
@ -159,6 +183,16 @@ public
private
def set_envelopenamespace(env, namespace)
env.elename = XSD::QName.new(namespace, env.elename.name)
if env.header
env.header.elename = XSD::QName.new(namespace, env.header.elename.name)
end
if env.body
env.body.elename = XSD::QName.new(namespace, env.body.elename.name)
end
end
def create_request_header
headers = @headerhandler.on_outbound
if headers.empty?
@ -201,6 +235,10 @@ private
::SOAP::StreamHandler.parse_media_type(contenttype)
env = Processor.unmarshal(conn_data.receive_string, opt)
end
unless env.is_a?(::SOAP::SOAPEnvelope)
raise ResponseFormatError.new(
"response is not a SOAP envelope: #{conn_data.receive_string}")
end
env
end
@ -212,11 +250,22 @@ private
header
end
def create_options(hash = nil)
def create_encoding_opt(hash = nil)
opt = {}
opt[:default_encodingstyle] = @default_encodingstyle
opt[:allow_unqualified_element] = @allow_unqualified_element
opt[:generate_explicit_type] = @generate_explicit_type
opt[:no_indent] = @options["soap.envelope.no_indent"]
opt[:use_numeric_character_reference] =
@options["soap.envelope.use_numeric_character_reference"]
opt.update(hash) if hash
opt
end
def create_mapping_opt(hash = nil)
opt = {
:external_ces => @options["soap.mapping.external_ces"]
}
opt.update(hash) if hash
opt
end
@ -227,6 +276,8 @@ private
attr_reader :response_style
attr_reader :request_use
attr_reader :response_use
attr_reader :elementformdefault
attr_reader :attributeformdefault
def initialize(soapaction, param_def, opt)
@soapaction = soapaction
@ -234,6 +285,9 @@ private
@response_style = opt[:response_style]
@request_use = opt[:request_use]
@response_use = opt[:response_use]
# set nil(unqualified) by default
@elementformdefault = opt[:elementformdefault]
@attributeformdefault = opt[:attributeformdefault]
check_style(@request_style)
check_style(@response_style)
check_use(@request_use)
@ -247,17 +301,22 @@ private
RPC::SOAPMethodRequest.new(@rpc_request_qname, param_def, @soapaction)
else
@doc_request_qnames = []
@doc_request_qualified = []
@doc_response_qnames = []
param_def.each do |inout, paramname, typeinfo|
@doc_response_qualified = []
param_def.each do |inout, paramname, typeinfo, eleinfo|
klass_not_used, nsdef, namedef = typeinfo
qualified = eleinfo
if namedef.nil?
raise MethodDefinitionError.new("qname must be given")
end
case inout
when SOAPMethod::IN
@doc_request_qnames << XSD::QName.new(nsdef, namedef)
@doc_request_qualified << qualified
when SOAPMethod::OUT
@doc_response_qnames << XSD::QName.new(nsdef, namedef)
@doc_response_qualified << qualified
else
raise MethodDefinitionError.new(
"illegal inout definition for document style: #{inout}")
@ -274,19 +333,19 @@ private
(@response_use == :encoded) ? EncodingNamespace : LiteralNamespace
end
def request_body(values, mapping_registry, literal_mapping_registry)
def request_body(values, mapping_registry, literal_mapping_registry, opt)
if @request_style == :rpc
request_rpc(values, mapping_registry, literal_mapping_registry)
request_rpc(values, mapping_registry, literal_mapping_registry, opt)
else
request_doc(values, mapping_registry, literal_mapping_registry)
request_doc(values, mapping_registry, literal_mapping_registry, opt)
end
end
def response_obj(body, mapping_registry, literal_mapping_registry)
def response_obj(body, mapping_registry, literal_mapping_registry, opt)
if @response_style == :rpc
response_rpc(body, mapping_registry, literal_mapping_registry)
response_rpc(body, mapping_registry, literal_mapping_registry, opt)
else
response_doc(body, mapping_registry, literal_mapping_registry)
response_doc(body, mapping_registry, literal_mapping_registry, opt)
end
end
@ -312,86 +371,89 @@ private
end
end
def request_rpc(values, mapping_registry, literal_mapping_registry)
def request_rpc(values, mapping_registry, literal_mapping_registry, opt)
if @request_use == :encoded
request_rpc_enc(values, mapping_registry)
request_rpc_enc(values, mapping_registry, opt)
else
request_rpc_lit(values, literal_mapping_registry)
request_rpc_lit(values, literal_mapping_registry, opt)
end
end
def request_doc(values, mapping_registry, literal_mapping_registry)
def request_doc(values, mapping_registry, literal_mapping_registry, opt)
if @request_use == :encoded
request_doc_enc(values, mapping_registry)
request_doc_enc(values, mapping_registry, opt)
else
request_doc_lit(values, literal_mapping_registry)
request_doc_lit(values, literal_mapping_registry, opt)
end
end
def request_rpc_enc(values, mapping_registry)
def request_rpc_enc(values, mapping_registry, opt)
method = @rpc_method_factory.dup
names = method.input_params
obj = create_request_obj(names, values)
soap = Mapping.obj2soap(obj, mapping_registry, @rpc_request_qname)
soap = Mapping.obj2soap(obj, mapping_registry, @rpc_request_qname, opt)
method.set_param(soap)
method
end
def request_rpc_lit(values, mapping_registry)
def request_rpc_lit(values, mapping_registry, opt)
method = @rpc_method_factory.dup
params = {}
idx = 0
method.input_params.each do |name|
params[name] = Mapping.obj2soap(values[idx], mapping_registry,
XSD::QName.new(nil, name))
XSD::QName.new(nil, name), opt)
idx += 1
end
method.set_param(params)
method
end
def request_doc_enc(values, mapping_registry)
def request_doc_enc(values, mapping_registry, opt)
(0...values.size).collect { |idx|
ele = Mapping.obj2soap(values[idx], mapping_registry)
ele = Mapping.obj2soap(values[idx], mapping_registry, nil, opt)
ele.elename = @doc_request_qnames[idx]
ele
}
end
def request_doc_lit(values, mapping_registry)
def request_doc_lit(values, mapping_registry, opt)
(0...values.size).collect { |idx|
ele = Mapping.obj2soap(values[idx], mapping_registry,
@doc_request_qnames[idx])
@doc_request_qnames[idx], opt)
ele.encodingstyle = LiteralNamespace
if ele.respond_to?(:qualified)
ele.qualified = @doc_request_qualified[idx]
end
ele
}
end
def response_rpc(body, mapping_registry, literal_mapping_registry)
def response_rpc(body, mapping_registry, literal_mapping_registry, opt)
if @response_use == :encoded
response_rpc_enc(body, mapping_registry)
response_rpc_enc(body, mapping_registry, opt)
else
response_rpc_lit(body, literal_mapping_registry)
response_rpc_lit(body, literal_mapping_registry, opt)
end
end
def response_doc(body, mapping_registry, literal_mapping_registry)
def response_doc(body, mapping_registry, literal_mapping_registry, opt)
if @response_use == :encoded
return *response_doc_enc(body, mapping_registry)
return *response_doc_enc(body, mapping_registry, opt)
else
return *response_doc_lit(body, literal_mapping_registry)
return *response_doc_lit(body, literal_mapping_registry, opt)
end
end
def response_rpc_enc(body, mapping_registry)
def response_rpc_enc(body, mapping_registry, opt)
ret = nil
if body.response
ret = Mapping.soap2obj(body.response, mapping_registry,
@rpc_method_factory.retval_class_name)
@rpc_method_factory.retval_class_name, opt)
end
if body.outparams
outparams = body.outparams.collect { |outparam|
Mapping.soap2obj(outparam, mapping_regisry)
Mapping.soap2obj(outparam, mapping_registry, nil, opt)
}
[ret].concat(outparams)
else
@ -399,20 +461,20 @@ private
end
end
def response_rpc_lit(body, mapping_registry)
def response_rpc_lit(body, mapping_registry, opt)
body.root_node.collect { |key, value|
Mapping.soap2obj(value, mapping_registry,
@rpc_method_factory.retval_class_name)
@rpc_method_factory.retval_class_name, opt)
}
end
def response_doc_enc(body, mapping_registry)
def response_doc_enc(body, mapping_registry, opt)
body.collect { |key, value|
Mapping.soap2obj(value, mapping_registry)
Mapping.soap2obj(value, mapping_registry, nil, opt)
}
end
def response_doc_lit(body, mapping_registry)
def response_doc_lit(body, mapping_registry, opt)
body.collect { |key, value|
Mapping.soap2obj(value, mapping_registry)
}
@ -420,8 +482,10 @@ private
def create_request_obj(names, params)
o = Object.new
for idx in 0 ... params.length
idx = 0
while idx < params.length
o.instance_variable_set('@' + names[idx], params[idx])
idx += 1
end
o
end

140
lib/soap/rpc/router.rb
View file

@ -28,6 +28,7 @@ class Router
attr_accessor :mapping_registry
attr_accessor :literal_mapping_registry
attr_accessor :generate_explicit_type
attr_accessor :external_ces
def initialize(actor)
@actor = actor
@ -35,6 +36,7 @@ class Router
@headerhandler = Header::HandlerSet.new
@literal_mapping_registry = ::SOAP::Mapping::WSDLLiteralRegistry.new
@generate_explicit_type = true
@external_ces = nil
@operation_by_soapaction = {}
@operation_by_qname = {}
@headerhandlerfactory = []
@ -163,7 +165,8 @@ class Router
soap_response = default_encodingstyle = nil
begin
soap_response =
op.call(env.body, @mapping_registry, @literal_mapping_registry)
op.call(env.body, @mapping_registry, @literal_mapping_registry,
create_mapping_opt)
default_encodingstyle = op.response_default_encodingstyle
rescue Exception
soap_response = fault($!)
@ -240,7 +243,8 @@ private
return op
end
if soapaction
raise RPCRoutingError.new("operation: #{soapaction} not supported")
raise RPCRoutingError.new(
"operation: #{soapaction} #{qname} not supported")
else
raise RPCRoutingError.new("operation: #{qname} not supported")
end
@ -323,6 +327,10 @@ private
Mapping.obj2soap(detail, @mapping_registry))
end
def create_mapping_opt
{ :external_ces => @external_ces }
end
class Operation
attr_reader :name
attr_reader :soapaction
@ -349,14 +357,19 @@ private
@rpc_response_qname = opt[:response_qname]
else
@doc_request_qnames = []
@doc_request_qualified = []
@doc_response_qnames = []
param_def.each do |inout, paramname, typeinfo|
@doc_response_qualified = []
param_def.each do |inout, paramname, typeinfo, eleinfo|
klass, nsdef, namedef = typeinfo
qualified = eleinfo
case inout
when SOAPMethod::IN
@doc_request_qnames << XSD::QName.new(nsdef, namedef)
@doc_request_qualified << qualified
when SOAPMethod::OUT
@doc_response_qnames << XSD::QName.new(nsdef, namedef)
@doc_response_qualified << qualified
else
raise ArgumentError.new(
"illegal inout definition for document style: #{inout}")
@ -373,18 +386,20 @@ private
(@response_use == :encoded) ? EncodingNamespace : LiteralNamespace
end
def call(body, mapping_registry, literal_mapping_registry)
def call(body, mapping_registry, literal_mapping_registry, opt)
if @request_style == :rpc
values = request_rpc(body, mapping_registry, literal_mapping_registry)
values = request_rpc(body, mapping_registry, literal_mapping_registry,
opt)
else
values = request_document(body, mapping_registry, literal_mapping_registry)
values = request_document(body, mapping_registry,
literal_mapping_registry, opt)
end
result = receiver.method(@name.intern).call(*values)
return result if result.is_a?(SOAPFault)
if @response_style == :rpc
response_rpc(result, mapping_registry, literal_mapping_registry)
response_rpc(result, mapping_registry, literal_mapping_registry, opt)
else
response_doc(result, mapping_registry, literal_mapping_registry)
response_doc(result, mapping_registry, literal_mapping_registry, opt)
end
end
@ -394,61 +409,61 @@ private
raise NotImplementedError.new('must be defined in derived class')
end
def request_rpc(body, mapping_registry, literal_mapping_registry)
def request_rpc(body, mapping_registry, literal_mapping_registry, opt)
request = body.request
unless request.is_a?(SOAPStruct)
raise RPCRoutingError.new("not an RPC style")
end
if @request_use == :encoded
request_rpc_enc(request, mapping_registry)
request_rpc_enc(request, mapping_registry, opt)
else
request_rpc_lit(request, literal_mapping_registry)
request_rpc_lit(request, literal_mapping_registry, opt)
end
end
def request_document(body, mapping_registry, literal_mapping_registry)
def request_document(body, mapping_registry, literal_mapping_registry, opt)
# ToDo: compare names with @doc_request_qnames
if @request_use == :encoded
request_doc_enc(body, mapping_registry)
request_doc_enc(body, mapping_registry, opt)
else
request_doc_lit(body, literal_mapping_registry)
request_doc_lit(body, literal_mapping_registry, opt)
end
end
def request_rpc_enc(request, mapping_registry)
param = Mapping.soap2obj(request, mapping_registry)
def request_rpc_enc(request, mapping_registry, opt)
param = Mapping.soap2obj(request, mapping_registry, nil, opt)
request.collect { |key, value|
param[key]
}
end
def request_rpc_lit(request, mapping_registry)
def request_rpc_lit(request, mapping_registry, opt)
request.collect { |key, value|
Mapping.soap2obj(value, mapping_registry)
Mapping.soap2obj(value, mapping_registry, nil, opt)
}
end
def request_doc_enc(body, mapping_registry)
def request_doc_enc(body, mapping_registry, opt)
body.collect { |key, value|
Mapping.soap2obj(value, mapping_registry)
Mapping.soap2obj(value, mapping_registry, nil, opt)
}
end
def request_doc_lit(body, mapping_registry)
def request_doc_lit(body, mapping_registry, opt)
body.collect { |key, value|
Mapping.soap2obj(value, mapping_registry)
Mapping.soap2obj(value, mapping_registry, nil, opt)
}
end
def response_rpc(result, mapping_registry, literal_mapping_registry)
def response_rpc(result, mapping_registry, literal_mapping_registry, opt)
if @response_use == :encoded
response_rpc_enc(result, mapping_registry)
response_rpc_enc(result, mapping_registry, opt)
else
response_rpc_lit(result, literal_mapping_registry)
response_rpc_lit(result, literal_mapping_registry, opt)
end
end
def response_doc(result, mapping_registry, literal_mapping_registry)
def response_doc(result, mapping_registry, literal_mapping_registry, opt)
if @doc_response_qnames.size == 1 and !result.is_a?(Array)
result = [result]
end
@ -457,34 +472,13 @@ private
"but #{result.size} given"
end
if @response_use == :encoded
response_doc_enc(result, mapping_registry)
response_doc_enc(result, mapping_registry, opt)
else
response_doc_lit(result, literal_mapping_registry)
response_doc_lit(result, literal_mapping_registry, opt)
end
end
def response_rpc_enc(result, mapping_registry)
soap_response =
@rpc_method_factory.create_method_response(@rpc_response_qname)
if soap_response.have_outparam?
unless result.is_a?(Array)
raise RPCRoutingError.new("out parameter was not returned")
end
outparams = {}
i = 1
soap_response.output_params.each do |outparam|
outparams[outparam] = Mapping.obj2soap(result[i], mapping_registry)
i += 1
end
soap_response.set_outparam(outparams)
soap_response.retval = Mapping.obj2soap(result[0], mapping_registry)
else
soap_response.retval = Mapping.obj2soap(result, mapping_registry)
end
soap_response
end
def response_rpc_lit(result, mapping_registry)
def response_rpc_enc(result, mapping_registry, opt)
soap_response =
@rpc_method_factory.create_method_response(@rpc_response_qname)
if soap_response.have_outparam?
@ -495,30 +489,60 @@ private
i = 1
soap_response.output_params.each do |outparam|
outparams[outparam] = Mapping.obj2soap(result[i], mapping_registry,
XSD::QName.new(nil, outparam))
nil, opt)
i += 1
end
soap_response.set_outparam(outparams)
soap_response.retval = Mapping.obj2soap(result[0], mapping_registry,
XSD::QName.new(nil, soap_response.elename))
nil, opt)
else
soap_response.retval = Mapping.obj2soap(result, mapping_registry,
XSD::QName.new(nil, soap_response.elename))
soap_response.retval = Mapping.obj2soap(result, mapping_registry, nil,
opt)
end
soap_response
end
def response_doc_enc(result, mapping_registry)
def response_rpc_lit(result, mapping_registry, opt)
soap_response =
@rpc_method_factory.create_method_response(@rpc_response_qname)
if soap_response.have_outparam?
unless result.is_a?(Array)
raise RPCRoutingError.new("out parameter was not returned")
end
outparams = {}
i = 1
soap_response.output_params.each do |outparam|
outparams[outparam] = Mapping.obj2soap(result[i], mapping_registry,
XSD::QName.new(nil, outparam), opt)
i += 1
end
soap_response.set_outparam(outparams)
soap_response.retval = Mapping.obj2soap(result[0], mapping_registry,
XSD::QName.new(nil, soap_response.elename), opt)
else
soap_response.retval = Mapping.obj2soap(result, mapping_registry,
XSD::QName.new(nil, soap_response.elename), opt)
end
soap_response
end
def response_doc_enc(result, mapping_registry, opt)
(0...result.size).collect { |idx|
ele = Mapping.obj2soap(result[idx], mapping_registry)
ele = Mapping.obj2soap(result[idx], mapping_registry, nil, opt)
ele.elename = @doc_response_qnames[idx]
ele
}
end
def response_doc_lit(result, mapping_registry)
def response_doc_lit(result, mapping_registry, opt)
(0...result.size).collect { |idx|
mapping_registry.obj2soap(result[idx], @doc_response_qnames[idx])
ele = Mapping.obj2soap(result[idx], mapping_registry,
@doc_response_qnames[idx])
ele.encodingstyle = LiteralNamespace
if ele.respond_to?(:qualified)
ele.qualified = @doc_response_qualified[idx]
end
ele
}
end

33
lib/soap/soap.rb
View file

@ -13,7 +13,7 @@ require 'xsd/charset'
module SOAP
VERSION = Version = '1.5.4'
VERSION = Version = '1.5.5'
PropertyName = 'soap/property'
EnvelopeNamespace = 'http://schemas.xmlsoap.org/soap/envelope/'
@ -40,21 +40,21 @@ AttrOffset = 'offset'
AttrPosition = 'position'
ValueArray = 'Array'
EleEnvelopeName = XSD::QName.new(EnvelopeNamespace, EleEnvelope)
EleHeaderName = XSD::QName.new(EnvelopeNamespace, EleHeader)
EleBodyName = XSD::QName.new(EnvelopeNamespace, EleBody)
EleFaultName = XSD::QName.new(EnvelopeNamespace, EleFault)
EleFaultStringName = XSD::QName.new(nil, EleFaultString)
EleFaultActorName = XSD::QName.new(nil, EleFaultActor)
EleFaultCodeName = XSD::QName.new(nil, EleFaultCode)
EleFaultDetailName = XSD::QName.new(nil, EleFaultDetail)
AttrMustUnderstandName = XSD::QName.new(EnvelopeNamespace, AttrMustUnderstand)
AttrEncodingStyleName = XSD::QName.new(EnvelopeNamespace, AttrEncodingStyle)
AttrRootName = XSD::QName.new(EncodingNamespace, AttrRoot)
AttrArrayTypeName = XSD::QName.new(EncodingNamespace, AttrArrayType)
AttrOffsetName = XSD::QName.new(EncodingNamespace, AttrOffset)
AttrPositionName = XSD::QName.new(EncodingNamespace, AttrPosition)
ValueArrayName = XSD::QName.new(EncodingNamespace, ValueArray)
EleEnvelopeName = XSD::QName.new(EnvelopeNamespace, EleEnvelope).freeze
EleHeaderName = XSD::QName.new(EnvelopeNamespace, EleHeader).freeze
EleBodyName = XSD::QName.new(EnvelopeNamespace, EleBody).freeze
EleFaultName = XSD::QName.new(EnvelopeNamespace, EleFault).freeze
EleFaultStringName = XSD::QName.new(nil, EleFaultString).freeze
EleFaultActorName = XSD::QName.new(nil, EleFaultActor).freeze
EleFaultCodeName = XSD::QName.new(nil, EleFaultCode).freeze
EleFaultDetailName = XSD::QName.new(nil, EleFaultDetail).freeze
AttrMustUnderstandName = XSD::QName.new(EnvelopeNamespace, AttrMustUnderstand).freeze
AttrEncodingStyleName = XSD::QName.new(EnvelopeNamespace, AttrEncodingStyle).freeze
AttrRootName = XSD::QName.new(EncodingNamespace, AttrRoot).freeze
AttrArrayTypeName = XSD::QName.new(EncodingNamespace, AttrArrayType).freeze
AttrOffsetName = XSD::QName.new(EncodingNamespace, AttrOffset).freeze
AttrPositionName = XSD::QName.new(EncodingNamespace, AttrPosition).freeze
ValueArrayName = XSD::QName.new(EncodingNamespace, ValueArray).freeze
Base64Literal = 'base64'
@ -76,6 +76,7 @@ class ArrayStoreError < Error; end
class RPCRoutingError < Error; end
class EmptyResponseError < Error; end
class ResponseFormatError < Error; end
class UnhandledMustUnderstandHeaderError < Error; end

47
lib/soap/streamHandler.rb
View file

@ -20,18 +20,6 @@ module SOAP
class StreamHandler
Client = begin
require 'http-access2'
if HTTPAccess2::VERSION < "2.0"
raise LoadError.new("http-access/2.0 or later is required.")
end
HTTPAccess2::Client
rescue LoadError
warn("Loading http-access2 failed. Net/http is used.") if $DEBUG
require 'soap/netHttpClient'
SOAP::NetHttpClient
end
RUBY_VERSION_STRING = "ruby #{ RUBY_VERSION } (#{ RUBY_RELEASE_DATE }) [#{ RUBY_PLATFORM }]"
class ConnectionData
@ -70,12 +58,27 @@ end
class HTTPStreamHandler < StreamHandler
include SOAP
begin
require 'http-access2'
if HTTPAccess2::VERSION < "2.0"
raise LoadError.new("http-access/2.0 or later is required.")
end
Client = HTTPAccess2::Client
RETRYABLE = true
rescue LoadError
warn("Loading http-access2 failed. Net/http is used.") if $DEBUG
require 'soap/netHttpClient'
Client = SOAP::NetHttpClient
RETRYABLE = false
end
public
attr_reader :client
attr_accessor :wiredump_file_base
NofRetry = 10 # [times]
MAX_RETRY_COUNT = 10 # [times]
def initialize(options)
super()
@ -119,7 +122,7 @@ private
def set_options
HTTPConfigLoader.set_options(@client, @options)
@charset = @options["charset"] || XSD::Charset.charset_label($KCODE)
@charset = @options["charset"] || XSD::Charset.xml_encoding_label
@options.add_hook("charset") do |key, value|
@charset = value
end
@ -140,6 +143,7 @@ private
end
def set_cookie_store_file(value)
value = nil if value and value.empty?
@cookie_store = value
@client.set_cookie_store(@cookie_store) if @cookie_store
end
@ -161,7 +165,20 @@ private
send_string = conn_data.send_string
@wiredump_dev << "Wire dump:\n\n" if @wiredump_dev
begin
res = @client.post(endpoint_url, send_string, extra)
retry_count = 0
while true
res = @client.post(endpoint_url, send_string, extra)
if RETRYABLE and HTTP::Status.redirect?(res.status)
retry_count += 1
if retry_count >= MAX_RETRY_COUNT
raise HTTPStreamError.new("redirect count exceeded")
end
endpoint_url = res.header["location"][0]
puts "redirected to #{endpoint_url}" if $DEBUG
else
break
end
end
rescue
@client.reset(endpoint_url)
raise

5
lib/wsdl/operation.rb
View file

@ -120,9 +120,8 @@ private
if result.length == 0
return parts.dup
end
if parts.length != result.length
raise RuntimeError.new("Incomplete prarmeterOrder list.")
end
# result length can be shorter than parts's.
# return part must not be a part of the parameterOrder.
result
end
end

8
lib/wsdl/param.rb
View file

@ -36,6 +36,14 @@ class Param < Info
root.message(@message) or raise RuntimeError.new("#{@message} not found")
end
def soapbody_use
if @soapbody
@soapbody.use || :literal
else
raise RuntimeError.new("soap:body not found")
end
end
def parse_element(element)
case element
when SOAPBodyName

6
lib/wsdl/soap/body.rb
View file

@ -36,7 +36,11 @@ class Body < Info
when PartsAttrName
@parts = value.source
when UseAttrName
@use = value.source
if ['literal', 'encoded'].include?(value.source)
@use = value.source.intern
else
raise RuntimeError.new("unknown use of soap:body: #{value.source}")
end
when EncodingStyleAttrName
@encodingstyle = value.source
when NamespaceAttrName

10
lib/wsdl/soap/cgiStubCreator.rb
View file

@ -53,12 +53,12 @@ Methods = [
<<-EOD
super(*arg)
servant = #{class_name}.new
#{class_name}::Methods.each do |name_as, name, param_def, soapaction, namespace, style|
if style == :document
@router.add_document_operation(servant, soapaction, name, param_def)
#{class_name}::Methods.each do |definitions|
opt = definitions.last
if opt[:request_style] == :document
@router.add_document_operation(servant, *definitions)
else
qname = XSD::QName.new(namespace, name_as)
@router.add_rpc_operation(servant, qname, soapaction, name, param_def)
@router.add_rpc_operation(servant, *definitions)
end
end
self.mapping_registry = #{class_name}::MappingRegistry

54
lib/wsdl/soap/classDefCreator.rb
View file

@ -57,7 +57,8 @@ private
def dump_element
@elements.collect { |ele|
if ele.local_complextype
dump_classdef(ele.name, ele.local_complextype)
dump_classdef(ele.name, ele.local_complextype,
ele.elementform == 'qualified')
elsif ele.local_simpletype
dump_simpletypedef(ele.name, ele.local_simpletype)
else
@ -117,7 +118,7 @@ private
c.dump
end
def dump_classdef(qname, typedef)
def dump_classdef(qname, typedef, qualified = false)
if @faulttypes and @faulttypes.index(qname)
c = XSD::CodeGen::ClassDef.new(create_class_name(qname),
'::StandardError')
@ -127,6 +128,7 @@ private
c.comment = "#{qname}"
c.def_classvar('schema_type', ndq(qname.name))
c.def_classvar('schema_ns', ndq(qname.namespace))
c.def_classvar('schema_qualified', dq('true')) if qualified
schema_element = []
init_lines = ''
params = []
@ -158,7 +160,10 @@ private
else
params << "#{varname} = nil"
end
eleqname = (varname == name) ? nil : element.name
# nil means @@schema_ns + varname
eleqname =
(varname == name && element.name.namespace == qname.namespace) ?
nil : element.name
schema_element << [varname, eleqname, type]
end
unless typedef.attributes.empty?
@ -256,13 +261,50 @@ private
raise RuntimeError.new("cannot define name of #{attribute}")
end
DEFAULT_ITEM_NAME = XSD::QName.new(nil, 'item')
def dump_arraydef(complextype)
qname = complextype.name
c = XSD::CodeGen::ClassDef.new(create_class_name(qname), '::Array')
c.comment = "#{qname}"
type = complextype.child_type
c.def_classvar('schema_type', ndq(type.name))
c.def_classvar('schema_ns', ndq(type.namespace))
child_type = complextype.child_type
c.def_classvar('schema_type', ndq(child_type.name))
c.def_classvar('schema_ns', ndq(child_type.namespace))
child_element = complextype.find_aryelement
schema_element = []
if child_type == XSD::AnyTypeName
type = nil
elsif child_element and (klass = element_basetype(child_element))
type = klass.name
elsif child_type
type = create_class_name(child_type)
else
type = nil
end
if child_element
if child_element.map_as_array?
type << '[]' if type
end
child_element_name = child_element.name
else
child_element_name = DEFAULT_ITEM_NAME
end
schema_element << [child_element_name.name, child_element_name, type]
c.def_classvar('schema_element',
'[' +
schema_element.collect { |varname, name, type|
'[' +
(
if name
varname.dump + ', [' + ndq(type) + ', ' + dqname(name) + ']'
else
varname.dump + ', ' + ndq(type)
end
) +
']'
}.join(', ') +
']'
)
c.dump
end
end

4
lib/wsdl/soap/clientSkeltonCreator.rb
View file

@ -42,8 +42,8 @@ private
endpoint_url = ARGV.shift
obj = #{ drv_name }.new(endpoint_url)
# Uncomment the below line to see SOAP wiredumps.
# obj.wiredump_dev = STDERR
# run ruby with -d to see SOAP wiredumps.
obj.wiredump_dev = STDERR if $DEBUG
__EOD__
@definitions.porttype(name).operations.each do |operation|

31
lib/wsdl/soap/complexType.rb
View file

@ -106,18 +106,43 @@ class ComplexType < Info
end
end
if check_array_content(complexcontent.content)
return complexcontent.content.elements[0].type
return element_simpletype(complexcontent.content.elements[0])
end
elsif check_array_content(content)
return content.elements[0].type
return element_simpletype(content.elements[0])
end
raise RuntimeError.new("Assert: Unknown array definition.")
end
def find_aryelement
unless compoundtype == :TYPE_ARRAY
raise RuntimeError.new("Assert: not for array")
end
if complexcontent
if check_array_content(complexcontent.content)
return complexcontent.content.elements[0]
end
elsif check_array_content(content)
return content.elements[0]
end
nil # use default item name
end
private
def element_simpletype(element)
if element.type
element.type
elsif element.local_simpletype
element.local_simpletype.base
else
nil
end
end
def check_array_content(content)
content.elements.size == 1 and content.elements[0].maxoccurs != '1'
content and content.elements.size == 1 and
content.elements[0].maxoccurs != '1'
end
def content_arytype

22
lib/wsdl/soap/driverCreator.rb
View file

@ -69,18 +69,18 @@ Methods = [
end
c.def_privatemethod("init_methods") do
<<-EOD
Methods.each do |name_as, name, params, soapaction, namespace, style|
qname = XSD::QName.new(namespace, name_as)
if style == :document
@proxy.add_document_method(soapaction, name, params)
add_document_method_interface(name, params)
Methods.each do |definitions|
opt = definitions.last
if opt[:request_style] == :document
add_document_operation(*definitions)
else
@proxy.add_rpc_method(qname, soapaction, name, params)
add_rpc_method_interface(name, params)
end
if name_as != name and name_as.capitalize == name.capitalize
::SOAP::Mapping.define_singleton_method(self, name_as) do |*arg|
__send__(name, *arg)
add_rpc_operation(*definitions)
qname = definitions[0]
name = definitions[2]
if qname.name != name and qname.name.capitalize == name.capitalize
::SOAP::Mapping.define_singleton_method(self, qname.name) do |*arg|
__send__(name, *arg)
end
end
end
end

77
lib/wsdl/soap/methodDefCreator.rb
View file

@ -46,18 +46,18 @@ class MethodDefCreator
def collect_rpcparameter(operation)
result = operation.inputparts.collect { |part|
collect_type(part.type)
param_set(::SOAP::RPC::SOAPMethod::IN, rpcdefinedtype(part), part.name)
param_set(::SOAP::RPC::SOAPMethod::IN, part.name, rpcdefinedtype(part))
}
outparts = operation.outputparts
if outparts.size > 0
retval = outparts[0]
collect_type(retval.type)
result << param_set(::SOAP::RPC::SOAPMethod::RETVAL,
rpcdefinedtype(retval), retval.name)
result << param_set(::SOAP::RPC::SOAPMethod::RETVAL, retval.name,
rpcdefinedtype(retval))
cdr(outparts).each { |part|
collect_type(part.type)
result << param_set(::SOAP::RPC::SOAPMethod::OUT, rpcdefinedtype(part),
part.name)
result << param_set(::SOAP::RPC::SOAPMethod::OUT, part.name,
rpcdefinedtype(part))
}
end
result
@ -66,12 +66,12 @@ class MethodDefCreator
def collect_documentparameter(operation)
param = []
operation.inputparts.each do |input|
param << param_set(::SOAP::RPC::SOAPMethod::IN,
documentdefinedtype(input), input.name)
param << param_set(::SOAP::RPC::SOAPMethod::IN, input.name,
documentdefinedtype(input), elementqualified(input))
end
operation.outputparts.each do |output|
param << param_set(::SOAP::RPC::SOAPMethod::OUT,
documentdefinedtype(output), output.name)
param << param_set(::SOAP::RPC::SOAPMethod::OUT, output.name,
documentdefinedtype(output), elementqualified(output))
end
param
end
@ -82,23 +82,38 @@ private
name = safemethodname(operation.name.name)
name_as = operation.name.name
style = binding.soapoperation_style
inputuse = binding.input.soapbody_use
outputuse = binding.output.soapbody_use
namespace = binding.input.soapbody.namespace
if style == :rpc
qname = XSD::QName.new(namespace, name_as)
paramstr = param2str(collect_rpcparameter(operation))
else
qname = nil
paramstr = param2str(collect_documentparameter(operation))
end
if paramstr.empty?
paramstr = '[]'
else
paramstr = "[\n" << paramstr.gsub(/^/, ' ') << "\n ]"
paramstr = "[ " << paramstr.split(/\r?\n/).join("\n ") << " ]"
end
return <<__EOD__
[#{dq(name_as)}, #{dq(name)},
definitions = <<__EOD__
#{ndq(binding.soapaction)},
#{dq(name)},
#{paramstr},
#{ndq(binding.soapaction)}, #{ndq(namespace)}, #{sym(style.id2name)}
]
{ :request_style => #{sym(style.id2name)}, :request_use => #{sym(inputuse.id2name)},
:response_style => #{sym(style.id2name)}, :response_use => #{sym(outputuse.id2name)} }
__EOD__
if style == :rpc
return <<__EOD__
[ #{qname.dump},
#{definitions}]
__EOD__
else
return <<__EOD__
[ #{definitions}]
__EOD__
end
end
def rpcdefinedtype(part)
@ -144,8 +159,22 @@ __EOD__
end
end
def param_set(io_type, type, name)
[io_type, type, name]
def elementqualified(part)
if mapped = basetype_mapped_class(part.type)
false
elsif definedtype = @simpletypes[part.type]
false
elsif definedtype = @elements[part.element]
definedtype.elementform == 'qualified'
elsif definedtype = @complextypes[part.type]
false
else
raise RuntimeError.new("part: #{part.name} cannot be resolved")
end
end
def param_set(io_type, name, type, ele = nil)
[io_type, name, type, ele]
end
def collect_type(type)
@ -161,7 +190,12 @@ __EOD__
def param2str(params)
params.collect { |param|
"[#{dq(param[0])}, #{dq(param[2])}, #{type2str(param[1])}]"
io, name, type, ele = param
unless ele.nil?
"[#{dq(io)}, #{dq(name)}, #{type2str(type)}, #{ele2str(ele)}]"
else
"[#{dq(io)}, #{dq(name)}, #{type2str(type)}]"
end
}.join(",\n")
end
@ -173,6 +207,15 @@ __EOD__
end
end
def ele2str(ele)
qualified = ele
if qualified
"true"
else
"false"
end
end
def cdr(ary)
result = ary.dup
result.shift

10
lib/wsdl/soap/standaloneServerStubCreator.rb
View file

@ -55,12 +55,12 @@ Methods = [
<<-EOD
super(*arg)
servant = #{class_name}.new
#{class_name}::Methods.each do |name_as, name, param_def, soapaction, namespace, style|
if style == :document
@router.add_document_operation(servant, soapaction, name, param_def)
#{class_name}::Methods.each do |definitions|
opt = definitions.last
if opt[:request_style] == :document
@router.add_document_operation(servant, *definitions)
else
qname = XSD::QName.new(namespace, name_as)
@router.add_rpc_operation(servant, qname, soapaction, name, param_def)
@router.add_rpc_operation(servant, *definitions)
end
end
self.mapping_registry = #{class_name}::MappingRegistry

4
lib/wsdl/xmlSchema/all.rb
View file

@ -29,6 +29,10 @@ class All < Info
parent.targetnamespace
end
def elementformdefault
parent.elementformdefault
end
def <<(element)
@elements << element
end

15
lib/wsdl/xmlSchema/attribute.rb
View file

@ -18,9 +18,8 @@ class Attribute < Info
if RUBY_VERSION > "1.7.0"
def attr_reader_ref(symbol)
name = symbol.to_s
iv = "@#{name}"
define_method(name) {
instance_variable_get(iv) ||
instance_variable_get("@#{name}") ||
(refelement ? refelement.__send__(name) : nil)
}
end
@ -94,7 +93,11 @@ class Attribute < Info
when FormAttrName
@form = value.source
when NameAttrName
@name = XSD::QName.new(targetnamespace, value.source)
if directelement?
@name = XSD::QName.new(targetnamespace, value.source)
else
@name = XSD::QName.new(nil, value.source)
end
when TypeAttrName
@type = value
when DefaultAttrName
@ -111,6 +114,12 @@ class Attribute < Info
nil
end
end
private
def directelement?
parent.is_a?(Schema)
end
end

4
lib/wsdl/xmlSchema/choice.rb
View file

@ -29,6 +29,10 @@ class Choice < Info
parent.targetnamespace
end
def elementformdefault
parent.elementformdefault
end
def <<(element)
@elements << element
end

8
lib/wsdl/xmlSchema/complexType.rb
View file

@ -37,7 +37,13 @@ class ComplexType < Info
end
def targetnamespace
parent.is_a?(WSDL::XMLSchema::Element) ? nil : parent.targetnamespace
# inner elements can be qualified
# parent.is_a?(WSDL::XMLSchema::Element) ? nil : parent.targetnamespace
parent.targetnamespace
end
def elementformdefault
parent.elementformdefault
end
AnyAsElement = Element.new(XSD::QName.new(nil, 'any'), XSD::AnyTypeName)

36
lib/wsdl/xmlSchema/element.rb
View file

@ -18,9 +18,8 @@ class Element < Info
if RUBY_VERSION > "1.7.0"
def attr_reader_ref(symbol)
name = symbol.to_s
iv = "@#{name}"
define_method(name) {
instance_variable_get(iv) ||
instance_variable_get("@#{name}") ||
(refelement ? refelement.__send__(name) : nil)
}
end
@ -37,6 +36,7 @@ class Element < Info
end
attr_writer :name # required
attr_writer :form
attr_writer :type
attr_writer :local_simpletype
attr_writer :local_complextype
@ -46,6 +46,7 @@ class Element < Info
attr_writer :nillable
attr_reader_ref :name
attr_reader_ref :form
attr_reader_ref :type
attr_reader_ref :local_simpletype
attr_reader_ref :local_complextype
@ -59,6 +60,7 @@ class Element < Info
def initialize(name = nil, type = nil)
super()
@name = name
@form = nil
@type = type
@local_simpletype = @local_complextype = nil
@constraint = nil
@ -70,18 +72,21 @@ class Element < Info
end
def refelement
@refelement ||= root.collect_elements[@ref]
@refelement ||= (@ref ? root.collect_elements[@ref] : nil)
end
def targetnamespace
parent.targetnamespace
end
def elementform
# ToDo: must be overwritten.
def elementformdefault
parent.elementformdefault
end
def elementform
self.form.nil? ? parent.elementformdefault : self.form
end
def parse_element(element)
case element
when SimpleTypeName
@ -102,7 +107,14 @@ class Element < Info
def parse_attr(attr, value)
case attr
when NameAttrName
@name = XSD::QName.new(targetnamespace, value.source)
# namespace may be nil
if directelement? or elementform == 'qualified'
@name = XSD::QName.new(targetnamespace, value.source)
else
@name = XSD::QName.new(nil, value.source)
end
when FormAttrName
@form = value.source
when TypeAttrName
@type = value
when RefAttrName
@ -110,14 +122,16 @@ class Element < Info
when MaxOccursAttrName
if parent.is_a?(All)
if value.source != '1'
raise Parser::AttrConstraintError.new("cannot parse #{value} for #{attr}")
raise Parser::AttrConstraintError.new(
"cannot parse #{value} for #{attr}")
end
end
@maxoccurs = value.source
when MinOccursAttrName
if parent.is_a?(All)
unless ['0', '1'].include?(value.source)
raise Parser::AttrConstraintError.new("cannot parse #{value} for #{attr}")
raise Parser::AttrConstraintError.new(
"cannot parse #{value} for #{attr}")
end
end
@minoccurs = value.source
@ -127,6 +141,12 @@ class Element < Info
nil
end
end
private
def directelement?
parent.is_a?(Schema)
end
end

5
lib/wsdl/xmlSchema/schema.rb
View file

@ -1,5 +1,5 @@
# WSDL4R - XMLSchema schema definition for WSDL.
# Copyright (C) 2002, 2003 NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
# Copyright (C) 2002, 2003-2005 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;
@ -34,7 +34,8 @@ class Schema < Info
@elements = XSD::NamedElements.new
@attributes = XSD::NamedElements.new
@imports = []
@elementformdefault = "qualified"
@attributeformdefault = "unqualified"
@elementformdefault = "unqualified"
@importedschema = {}
@location = nil
@root = self

4
lib/wsdl/xmlSchema/sequence.rb
View file

@ -29,6 +29,10 @@ class Sequence < Info
parent.targetnamespace
end
def elementformdefault
parent.elementformdefault
end
def <<(element)
@elements << element
end

76
lib/xsd/charset.rb
View file

@ -1,5 +1,5 @@
# XSD4R - Charset handling library.
# Copyright (C) 2001, 2003 NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
# Copyright (C) 2001, 2003, 2005 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;
@ -10,7 +10,7 @@ module XSD
module Charset
@encoding = $KCODE
@internal_encoding = $KCODE
class XSDError < StandardError; end
class CharsetError < XSDError; end
@ -24,27 +24,40 @@ public
#
EncodingConvertMap = {}
def Charset.init
EncodingConvertMap[['UTF8', 'X_ISO8859_1']] =
Proc.new { |str| str.unpack('U*').pack('C*') }
EncodingConvertMap[['X_ISO8859_1', 'UTF8']] =
Proc.new { |str| str.unpack('C*').pack('U*') }
begin
require 'xsd/iconvcharset'
@encoding = 'UTF8'
sjtag = (/(mswin|bccwin|mingw|cygwin|emx)/ =~ RUBY_PLATFORM) ? 'cp932' : 'shift_jis'
EncodingConvertMap[['UTF8', 'EUC' ]] = Proc.new { |str| IconvCharset.safe_iconv("euc-jp", "utf-8", str) }
EncodingConvertMap[['EUC' , 'UTF8']] = Proc.new { |str| IconvCharset.safe_iconv("utf-8", "euc-jp", str) }
EncodingConvertMap[['EUC' , 'SJIS']] = Proc.new { |str| IconvCharset.safe_iconv(sjtag, "euc-jp", str) }
EncodingConvertMap[['UTF8', 'SJIS']] = Proc.new { |str| IconvCharset.safe_iconv(sjtag, "utf-8", str) }
EncodingConvertMap[['SJIS', 'UTF8']] = Proc.new { |str| IconvCharset.safe_iconv("utf-8", sjtag, str) }
EncodingConvertMap[['SJIS', 'EUC' ]] = Proc.new { |str| IconvCharset.safe_iconv("euc-jp", sjtag, str) }
@internal_encoding = 'UTF8'
sjtag = (/(mswin|bccwin|mingw|cygwin|emx)/ =~ RUBY_PLATFORM) ? 'cp932' :
'shift_jis'
EncodingConvertMap[['UTF8', 'EUC' ]] =
Proc.new { |str| IconvCharset.safe_iconv("euc-jp", "utf-8", str) }
EncodingConvertMap[['EUC' , 'UTF8']] =
Proc.new { |str| IconvCharset.safe_iconv("utf-8", "euc-jp", str) }
EncodingConvertMap[['EUC' , 'SJIS']] =
Proc.new { |str| IconvCharset.safe_iconv(sjtag, "euc-jp", str) }
EncodingConvertMap[['UTF8', 'SJIS']] =
Proc.new { |str| IconvCharset.safe_iconv(sjtag, "utf-8", str) }
EncodingConvertMap[['SJIS', 'UTF8']] =
Proc.new { |str| IconvCharset.safe_iconv("utf-8", sjtag, str) }
EncodingConvertMap[['SJIS', 'EUC' ]] =
Proc.new { |str| IconvCharset.safe_iconv("euc-jp", sjtag, str) }
rescue LoadError
begin
require 'nkf'
EncodingConvertMap[['EUC' , 'SJIS']] = Proc.new { |str| NKF.nkf('-sXm0', str) }
EncodingConvertMap[['SJIS', 'EUC' ]] = Proc.new { |str| NKF.nkf('-eXm0', str) }
EncodingConvertMap[['EUC' , 'SJIS']] =
Proc.new { |str| NKF.nkf('-sXm0', str) }
EncodingConvertMap[['SJIS', 'EUC' ]] =
Proc.new { |str| NKF.nkf('-eXm0', str) }
rescue LoadError
end
begin
require 'uconv'
@encoding = 'UTF8'
@internal_encoding = 'UTF8'
EncodingConvertMap[['UTF8', 'EUC' ]] = Uconv.method(:u8toeuc)
EncodingConvertMap[['UTF8', 'SJIS']] = Uconv.method(:u8tosjis)
EncodingConvertMap[['EUC' , 'UTF8']] = Uconv.method(:euctou8)
@ -60,6 +73,8 @@ public
'EUC' => 'euc-jp',
'SJIS' => 'shift_jis',
'UTF8' => 'utf-8',
'X_ISO_8859_1' => 'iso-8859-1',
'X_UNKNOWN' => nil,
}
@ -67,24 +82,24 @@ public
## handlers
#
def Charset.encoding
@encoding
@internal_encoding
end
def Charset.encoding=(encoding)
warn("xsd charset is set to #{encoding}") if $DEBUG
@encoding = encoding
@internal_encoding = encoding
end
def Charset.encoding_label
charset_label(@encoding)
def Charset.xml_encoding_label
charset_label(@internal_encoding)
end
def Charset.encoding_to_xml(str, charset)
encoding_conv(str, @encoding, charset_str(charset))
encoding_conv(str, @internal_encoding, charset_str(charset))
end
def Charset.encoding_from_xml(str, charset)
encoding_conv(str, charset_str(charset), @encoding)
encoding_conv(str, charset_str(charset), @internal_encoding)
end
def Charset.encoding_conv(str, enc_from, enc_to)
@ -94,7 +109,7 @@ public
converter.call(str)
else
raise CharsetConversionError.new(
"Converter not found: #{ enc_from } -> #{ enc_to }")
"Converter not found: #{enc_from} -> #{enc_to}")
end
end
@ -104,26 +119,26 @@ public
def Charset.charset_str(label)
if CharsetMap.respond_to?(:key)
CharsetMap.key(label.downcase)
CharsetMap.key(label.downcase) || 'X_UNKNOWN'
else
CharsetMap.index(label.downcase)
CharsetMap.index(label.downcase) || 'X_UNKNOWN'
end
end
# us_ascii = '[\x00-\x7F]'
us_ascii = '[\x9\xa\xd\x20-\x7F]' # XML 1.0 restricted.
USASCIIRegexp = Regexp.new("\\A#{ us_ascii }*\\z", nil, "NONE")
USASCIIRegexp = Regexp.new("\\A#{us_ascii}*\\z", nil, "NONE")
twobytes_euc = '(?:[\x8E\xA1-\xFE][\xA1-\xFE])'
threebytes_euc = '(?:\x8F[\xA1-\xFE][\xA1-\xFE])'
character_euc = "(?:#{ us_ascii }|#{ twobytes_euc }|#{ threebytes_euc })"
EUCRegexp = Regexp.new("\\A#{ character_euc }*\\z", nil, "NONE")
character_euc = "(?:#{us_ascii}|#{twobytes_euc}|#{threebytes_euc})"
EUCRegexp = Regexp.new("\\A#{character_euc}*\\z", nil, "NONE")
# onebyte_sjis = '[\x00-\x7F\xA1-\xDF]'
onebyte_sjis = '[\x9\xa\xd\x20-\x7F\xA1-\xDF]' # XML 1.0 restricted.
twobytes_sjis = '(?:[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])'
character_sjis = "(?:#{ onebyte_sjis }|#{ twobytes_sjis })"
SJISRegexp = Regexp.new("\\A#{ character_sjis }*\\z", nil, "NONE")
character_sjis = "(?:#{onebyte_sjis}|#{twobytes_sjis})"
SJISRegexp = Regexp.new("\\A#{character_sjis}*\\z", nil, "NONE")
# 0xxxxxxx
# 110yyyyy 10xxxxxx
@ -132,8 +147,9 @@ public
threebytes_utf8 = '(?:[\xE0-\xEF][\x80-\xBF][\x80-\xBF])'
# 11110uuu 10uuuzzz 10yyyyyy 10xxxxxx
fourbytes_utf8 = '(?:[\xF0-\xF7][\x80-\xBF][\x80-\xBF][\x80-\xBF])'
character_utf8 = "(?:#{ us_ascii }|#{ twobytes_utf8 }|#{ threebytes_utf8 }|#{ fourbytes_utf8 })"
UTF8Regexp = Regexp.new("\\A#{ character_utf8 }*\\z", nil, "NONE")
character_utf8 =
"(?:#{us_ascii}|#{twobytes_utf8}|#{threebytes_utf8}|#{fourbytes_utf8})"
UTF8Regexp = Regexp.new("\\A#{character_utf8}*\\z", nil, "NONE")
def Charset.is_us_ascii(str)
USASCIIRegexp =~ str
@ -162,7 +178,7 @@ public
when 'SJIS'
is_sjis(str)
else
raise UnknownCharsetError.new("Unknown charset: #{ code }")
raise UnknownCharsetError.new("Unknown charset: #{code}")
end
end
end

17
lib/xsd/codegen/gensupport.rb
View file

@ -1,5 +1,5 @@
# XSD4R - Code generation support
# Copyright (C) 2004 NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
# Copyright (C) 2004, 2005 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;
@ -10,7 +10,8 @@ module XSD
module CodeGen
# from the file 'keywords' in 1.9.
KEYWORD = %w(
KEYWORD = {}
%w(
__LINE__
__FILE__
BEGIN
@ -51,7 +52,7 @@ until
when
while
yield
)
).each { |k| KEYWORD[k] = nil }
module GenSupport
def capitalize(target)
@ -96,12 +97,12 @@ module GenSupport
module_function :safemethodname?
def safevarname(name)
safename = name.scan(/[a-zA-Z0-9_]+/).join('_')
safename = uncapitalize(safename)
safename = uncapitalize(name.scan(/[a-zA-Z0-9_]+/).join('_'))
if /^[a-z]/ !~ safename or keyword?(safename)
safename = "v_#{safename}"
"v_#{safename}"
else
safename
end
safename
end
module_function :safevarname
@ -111,7 +112,7 @@ module GenSupport
module_function :safevarname?
def keyword?(word)
KEYWORD.include?(word)
KEYWORD.key?(word)
end
module_function :keyword?

23
lib/xsd/datatypes.rb
View file

@ -560,23 +560,20 @@ module XSDDateTimeImpl
def screen_data(t)
# convert t to a DateTime as an internal representation.
if t.is_a?(DateTime)
if t.respond_to?(:to_datetime) # 1.9 or later
t.to_datetime
elsif t.is_a?(DateTime)
t
elsif t.is_a?(Date)
if t.respond_to?(:to_datetime) # from 1.9
t.to_datetime
else
t = screen_data_str(t)
t <<= 12 if t.year < 0
t
end
t = screen_data_str(t)
t <<= 12 if t.year < 0
t
elsif t.is_a?(Time)
sec, min, hour, mday, month, year = t.to_a[0..5]
diffday = t.usec.to_r / 1000000 / SecInDay
jd = DateTime.civil_to_jd(t.year, t.mon, t.mday, DateTime::ITALY)
fr = DateTime.time_to_day_fraction(t.hour, t.min, [t.sec, 59].min) +
t.usec.to_r / 1000000 / SecInDay
of = t.utc_offset.to_r / SecInDay
data = DateTime.civil(year, month, mday, hour, min, sec, of)
data += diffday
data
DateTime.new0(DateTime.jd_to_ajd(jd, fr, of), of, DateTime::ITALY)
else
screen_data_str(t)
end

2
lib/xsd/ns.rb
View file

@ -72,7 +72,7 @@ public
if (name.namespace == @default_namespace)
name.name
elsif @ns2tag.key?(name.namespace)
@ns2tag[name.namespace] + ':' << name.name
"#{@ns2tag[name.namespace]}:#{name.name}"
else
raise FormatError.new("namespace: #{name.namespace} not defined yet")
end

7
lib/xsd/qname.rb
View file

@ -31,9 +31,6 @@ class QName
end
def match(rhs)
unless self.class === rhs
return false
end
if rhs.namespace and (rhs.namespace != @namespace)
return false
end
@ -44,7 +41,7 @@ class QName
end
def ==(rhs)
(self.class === rhs && @namespace == rhs.namespace && @name == rhs.name)
!rhs.nil? and @namespace == rhs.namespace and @name == rhs.name
end
def ===(rhs)
@ -73,6 +70,8 @@ class QName
NormalizedNameRegexp =~ str
self.new($1, $2)
end
EMPTY = QName.new.freeze
end

96
test/soap/asp.net/hello.wsdl Normal file
View file

@ -0,0 +1,96 @@
<?xml version="1.0" encoding="utf-8"?>
<wsdl:definitions xmlns:http="http://schemas.xmlsoap.org/wsdl/http/"
xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
xmlns:s="http://www.w3.org/2001/XMLSchema"
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:tns="http://localhost/WebService/"
xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/"
xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/"
targetNamespace="http://localhost/WebService/"
xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
<wsdl:types>
<s:schema elementFormDefault="qualified"
targetNamespace="http://localhost/WebService/">
<s:element name="HelloWorld">
<s:complexType />
</s:element>
<s:element name="HelloWorldResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1"
name="HelloWorldResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="SayHello">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="name"
type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="SayHelloResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1"
name="SayHelloResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
</s:schema>
</wsdl:types>
<wsdl:message name="HelloWorldSoapIn">
<wsdl:part name="parameters" element="tns:HelloWorld" />
</wsdl:message>
<wsdl:message name="HelloWorldSoapOut">
<wsdl:part name="parameters" element="tns:HelloWorldResponse" />
</wsdl:message>
<wsdl:message name="SayHelloSoapIn">
<wsdl:part name="parameters" element="tns:SayHello" />
</wsdl:message>
<wsdl:message name="SayHelloSoapOut">
<wsdl:part name="parameters" element="tns:SayHelloResponse" />
</wsdl:message>
<wsdl:portType name="Service1Soap">
<wsdl:operation name="HelloWorld">
<wsdl:input message="tns:HelloWorldSoapIn" />
<wsdl:output message="tns:HelloWorldSoapOut" />
</wsdl:operation>
<wsdl:operation name="SayHello">
<wsdl:input message="tns:SayHelloSoapIn" />
<wsdl:output message="tns:SayHelloSoapOut" />
</wsdl:operation>
</wsdl:portType>
<wsdl:binding name="Service1Soap" type="tns:Service1Soap">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http"
style="document" />
<wsdl:operation name="HelloWorld">
<soap:operation
soapAction="http://localhost/WebService/HelloWorld" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="SayHello">
<soap:operation soapAction="http://localhost/WebService/SayHello"
style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
<wsdl:service name="Service1">
<documentation xmlns="http://schemas.xmlsoap.org/wsdl/" />
<wsdl:port name="Service1Soap" binding="tns:Service1Soap">
<soap:address
location="http://localhost/WebService/Service1.asmx" />
</wsdl:port>
</wsdl:service>
</wsdl:definitions>

111
test/soap/asp.net/test_aspdotnet.rb Normal file
View file

@ -0,0 +1,111 @@
require 'test/unit'
require 'soap/rpc/standaloneServer'
require 'soap/rpc/driver'
module SOAP; module ASPDotNet
class TestASPDotNet < Test::Unit::TestCase
class Server < ::SOAP::RPC::StandaloneServer
Namespace = "http://localhost/WebService/"
def on_init
add_document_method(
self,
Namespace + 'SayHello',
'sayHello',
XSD::QName.new(Namespace, 'SayHello'),
XSD::QName.new(Namespace, 'SayHelloResponse')
)
end
def sayHello(arg)
name = arg['name']
"Hello #{name}"
end
end
Port = 17171
Endpoint = "http://localhost:#{Port}/"
def setup
setup_server
@client = nil
end
def teardown
teardown_server
@client.reset_stream if @client
end
def setup_server
@server = Server.new('Test', Server::Namespace, '0.0.0.0', Port)
@server.level = Logger::Severity::ERROR
@server_thread = start_server_thread(@server)
end
def teardown_server
@server.shutdown
@server_thread.kill
@server_thread.join
end
def start_server_thread(server)
t = Thread.new {
Thread.current.abort_on_exception = true
server.start
}
t
end
def test_document_method
@client = SOAP::RPC::Driver.new(Endpoint, Server::Namespace)
@client.wiredump_dev = STDOUT if $DEBUG
@client.add_document_method('sayHello', Server::Namespace + 'SayHello',
XSD::QName.new(Server::Namespace, 'SayHello'),
XSD::QName.new(Server::Namespace, 'SayHelloResponse'))
assert_equal("Hello Mike", @client.sayHello(:name => "Mike"))
end
def test_aspdotnethandler
@client = SOAP::RPC::Driver.new(Endpoint, Server::Namespace)
@client.wiredump_dev = STDOUT if $DEBUG
@client.add_method_with_soapaction('sayHello', Server::Namespace + 'SayHello', 'name')
@client.default_encodingstyle = SOAP::EncodingStyle::ASPDotNetHandler::Namespace
assert_equal("Hello Mike", @client.sayHello("Mike"))
end
if defined?(HTTPAccess2)
# qualified!
REQUEST_ASPDOTNETHANDLER =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<n1:sayHello xmlns:n1="http://localhost/WebService/">
<n1:name>Mike</n1:name>
</n1:sayHello>
</env:Body>
</env:Envelope>]
def test_aspdotnethandler_envelope
@client = SOAP::RPC::Driver.new(Endpoint, Server::Namespace)
@client.wiredump_dev = str = ''
@client.add_method_with_soapaction('sayHello', Server::Namespace + 'SayHello', 'name')
@client.default_encodingstyle = SOAP::EncodingStyle::ASPDotNetHandler::Namespace
assert_equal("Hello Mike", @client.sayHello("Mike"))
assert_equal(REQUEST_ASPDOTNETHANDLER, parse_requestxml(str))
end
def parse_requestxml(str)
str.split(/\r?\n\r?\n/)[3]
end
end
end
end; end

116
test/soap/header/test_simplehandler.rb Normal file
View file

@ -0,0 +1,116 @@
require 'test/unit'
require 'soap/rpc/driver'
require 'soap/rpc/standaloneServer'
require 'soap/header/simplehandler'
module SOAP
module Header
class TestSimpleHandler < Test::Unit::TestCase
Port = 17171
PortName = 'http://tempuri.org/authHeaderPort'
class PingPortServer < SOAP::RPC::StandaloneServer
class PingService
def self.create
new
end
def ping
Thread.current[:pingheader]
end
end
def initialize(*arg)
super
add_rpc_servant(PingService.new, PortName)
add_request_headerhandler(PingServerHeaderHandler)
end
class PingServerHeaderHandler < SOAP::Header::SimpleHandler
MyHeaderName = XSD::QName.new("http://xmlsoap.org/Ping", "PingHeader")
def self.create
new
end
def initialize()
super(MyHeaderName)
end
def on_simple_outbound
"dummy"
end
def on_simple_inbound(my_header, mu)
Thread.current[:pingheader] = my_header
end
end
end
class PingClientHeaderHandler < SOAP::Header::SimpleHandler
MyHeaderName = XSD::QName.new("http://xmlsoap.org/Ping", "PingHeader")
def initialize(pingHeader)
super(MyHeaderName)
@pingHeader = pingHeader
@mustunderstand = false
end
def on_simple_outbound
@pingHeader # --- note, not a Hash
end
def on_simple_inbound(my_header, mustunderstand)
Thread.current[:pingheader] = my_header
end
end
def setup
@endpoint = "http://localhost:#{Port}/"
setup_server
setup_client
end
def setup_server
@server = PingPortServer.new(self.class.name, nil, '0.0.0.0', Port)
@server.level = Logger::Severity::ERROR
@t = Thread.new {
@server.start
}
end
def setup_client
@client = SOAP::RPC::Driver.new(@endpoint, PortName)
@client.wiredump_dev = STDERR if $DEBUG
@client.add_method('ping')
end
def teardown
teardown_server
teardown_client
end
def teardown_server
@server.shutdown
@t.kill
@t.join
end
def teardown_client
@client.reset_stream
end
def test_string
h = PingClientHeaderHandler.new('pingheader')
@client.headerhandler << h
assert_equal("pingheader", @client.ping)
assert_equal("dummy", Thread.current[:pingheader])
end
end
end
end

8
test/soap/ssl/test_ssl.rb
View file

@ -179,14 +179,14 @@ __EOP__
cfg["protocol.http.ssl_config.ca_file"] = File.join(DIR, "ca.cert")
cfg["protocol.http.ssl_config.ca_file"] = File.join(DIR, "subca.cert")
#cfg.timeout = 123
assert_equal("Hello World, from ssl client", @client.hello_world("ssl client"))
#
cfg["protocol.http.ssl_config.ciphers"] = "!ALL"
#
begin
@client.hello_world("ssl client")
assert(false)
rescue OpenSSL::SSL::SSLError => ssle
assert_equal("no ciphers available", ssle.message)
# depends on OpenSSL version. (?:0.9.8|0.9.7)
assert_match(/\A(?:SSL_CTX_set_cipher_list:: no cipher match|no ciphers available)\z/, ssle.message)
end
#
cfg["protocol.http.ssl_config.ciphers"] = "ALL"
@ -201,7 +201,7 @@ private
def setup_server
svrcmd = "#{q(RUBY)} "
svrcmd << "-d " if $DEBUG
#svrcmd << "-d " if $DEBUG
svrcmd << File.join(DIR, "sslsvr.rb")
svrout = IO.popen(svrcmd)
@serverpid = Integer(svrout.gets.chomp)

5
test/soap/swa/test_file.rb
View file

@ -47,11 +47,14 @@ class TestFile < Test::Unit::TestCase
@client.reset_stream
end
def test_file
def test_get_file
assert_equal(
File.open(THIS_FILE) { |f| f.read },
@client.get_file['file'].content
)
end
def test_put_file
assert_equal(
"File 'foo' was received ok.",
@client.put_file('foo',

92
test/soap/test_envelopenamespace.rb Normal file
View file

@ -0,0 +1,92 @@
require 'test/unit'
require 'soap/rpc/driver'
require 'webrick'
require 'logger'
module SOAP
class TestEnvelopeNamespace < Test::Unit::TestCase
Port = 17171
TemporaryNamespace = 'urn:foo'
def setup
@logger = Logger.new(STDERR)
@logger.level = Logger::Severity::ERROR
@url = "http://localhost:#{Port}/"
@server = @client = nil
@server_thread = nil
setup_server
setup_client
end
def teardown
teardown_client
teardown_server
end
def setup_server
@server = WEBrick::HTTPServer.new(
:BindAddress => "0.0.0.0",
:Logger => @logger,
:Port => Port,
:AccessLog => [],
:DocumentRoot => File.dirname(File.expand_path(__FILE__))
)
@server.mount(
'/',
WEBrick::HTTPServlet::ProcHandler.new(method(:do_server_proc).to_proc)
)
@server_thread = start_server_thread(@server)
end
def setup_client
@client = SOAP::RPC::Driver.new(@url, '')
@client.add_method("do_server_proc")
end
def teardown_server
@server.shutdown
@server_thread.kill
@server_thread.join
end
def teardown_client
@client.reset_stream
end
def start_server_thread(server)
t = Thread.new {
Thread.current.abort_on_exception = true
server.start
}
t
end
def do_server_proc(req, res)
res['content-type'] = 'text/xml'
res.body = <<__EOX__
<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:env="#{TemporaryNamespace}">
<env:Body>
<n1:do_server_proc xmlns:n1="urn:foo" env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
<return>hello world</return>
</n1:do_server_proc>
</env:Body>
</env:Envelope>
__EOX__
end
def test_normal
assert_raise(SOAP::ResponseFormatError) do
@client.do_server_proc
end
@client.options["soap.envelope.requestnamespace"] = TemporaryNamespace
@client.options["soap.envelope.responsenamespace"] = TemporaryNamespace
assert_equal('hello world', @client.do_server_proc)
end
end
end

39
test/soap/test_httpconfigloader.rb Normal file
View file

@ -0,0 +1,39 @@
require 'test/unit'
require 'soap/httpconfigloader'
require 'soap/rpc/driver'
if defined?(HTTPAccess2)
module SOAP
class TestHTTPConfigLoader < Test::Unit::TestCase
DIR = File.dirname(File.expand_path(__FILE__))
def setup
@client = SOAP::RPC::Driver.new(nil, nil)
end
def test_property
testpropertyname = File.join(DIR, 'soapclient.properties')
File.open(testpropertyname, "w") do |f|
f <<<<__EOP__
protocol.http.ssl_config.verify_mode = OpenSSL::SSL::VERIFY_PEER
# depth: 1 causes an error (intentional)
protocol.http.ssl_config.verify_depth = 1
protocol.http.ssl_config.ciphers = ALL
__EOP__
end
begin
@client.loadproperty(testpropertyname)
assert_equal('ALL', @client.options['protocol.http.ssl_config.ciphers'])
ensure
File.unlink(testpropertyname)
end
end
end
end
end

86
test/soap/test_no_indent.rb Normal file
View file

@ -0,0 +1,86 @@
require 'test/unit'
require 'soap/rpc/standaloneServer'
require 'soap/rpc/driver'
if defined?(HTTPAccess2)
module SOAP
class TestNoIndent < Test::Unit::TestCase
Port = 17171
class NopServer < SOAP::RPC::StandaloneServer
def initialize(*arg)
super
add_rpc_method(self, 'nop')
end
def nop
SOAP::RPC::SOAPVoid.new
end
end
def setup
@server = NopServer.new(self.class.name, nil, '0.0.0.0', Port)
@server.level = Logger::Severity::ERROR
@t = Thread.new {
@server.start
}
@endpoint = "http://localhost:#{Port}/"
@client = SOAP::RPC::Driver.new(@endpoint)
@client.add_rpc_method('nop')
end
def teardown
@server.shutdown
@t.kill
@t.join
@client.reset_stream
end
INDENT_XML =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<nop env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
</nop>
</env:Body>
</env:Envelope>]
NO_INDENT_XML =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<nop env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
</nop>
</env:Body>
</env:Envelope>]
def test_indent
@client.wiredump_dev = str = ''
@client.options["soap.envelope.no_indent"] = false
@client.nop
assert_equal(INDENT_XML, parse_requestxml(str))
end
def test_no_indent
@client.wiredump_dev = str = ''
@client.options["soap.envelope.no_indent"] = true
@client.nop
assert_equal(NO_INDENT_XML, parse_requestxml(str))
end
def parse_requestxml(str)
str.split(/\r?\n\r?\n/)[3]
end
end
end
end

3
test/soap/test_soapelement.rb
View file

@ -1,5 +1,6 @@
require 'test/unit'
require 'soap/baseData'
require 'soap/mapping'
module SOAP
@ -36,7 +37,7 @@ class TestSOAPElement < Test::Unit::TestCase
assert_equal(LiteralNamespace, obj.encodingstyle)
assert_equal({}, obj.extraattr)
assert_equal([], obj.precedents)
assert_equal(false, obj.qualified)
assert_equal(nil, obj.qualified)
assert_equal(nil, obj.text)
assert(obj.members.empty?)

2
test/soap/test_streamhandler.rb
View file

@ -98,7 +98,7 @@ __EOX__
end
def parse_req_header(str)
if ::SOAP::StreamHandler::Client.to_s == 'SOAP::NetHttpClient'
if ::SOAP::HTTPStreamHandler::Client.to_s == 'SOAP::NetHttpClient'
str = eval(str.split(/\r?\n/)[4][3..-1])
end
parse_req_header_http_access2(str)

50
test/wsdl/any/any.wsdl Normal file
View file

@ -0,0 +1,50 @@
<?xml version="1.0" encoding="utf-8"?>
<definitions name="echo"
xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:tns="urn:example.com:echo"
xmlns:txd="urn:example.com:echo-type"
targetNamespace="urn:example.com:echo"
xmlns="http://schemas.xmlsoap.org/wsdl/">
<types>
<xsd:schema targetNamespace="urn:example.com:echo-type">
<xsd:complexType name="foo.bar">
<xsd:sequence>
<xsd:any />
</xsd:sequence>
</xsd:complexType>
</xsd:schema>
</types>
<message name="msg_echoitem">
<part name="echoitem" type="txd:foo.bar"/>
</message>
<portType name="echo_port_type">
<operation name="echo">
<input message="tns:msg_echoitem"/>
<output message="tns:msg_echoitem"/>
</operation>
</portType>
<binding name="echo_binding" type="tns:echo_port_type">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="rpc"/>
<operation name="echo">
<soap:operation soapAction="urn:example.com:echo"/>
<input>
<soap:body use="encoded" namespace="urn:example.com:echo"
encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
</input>
<output>
<soap:body use="encoded" namespace="urn:example.com:echo"
encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
</output>
</operation>
</binding>
<service name="echo_service">
<port name="echo_port" binding="tns:echo_binding">
<soap:address location="http://localhost:10080"/>
</port>
</service>
</definitions>

54
test/wsdl/any/expectedDriver.rb Normal file
View file

@ -0,0 +1,54 @@
require 'echo.rb'
require 'soap/rpc/driver'
class Echo_port_type < ::SOAP::RPC::Driver
DefaultEndpointUrl = "http://localhost:10080"
MappingRegistry = ::SOAP::Mapping::Registry.new
MappingRegistry.set(
FooBar,
::SOAP::SOAPStruct,
::SOAP::Mapping::Registry::TypedStructFactory,
{ :type => XSD::QName.new("urn:example.com:echo-type", "foo.bar") }
)
Methods = [
[ XSD::QName.new("urn:example.com:echo", "echo"),
"urn:example.com:echo",
"echo",
[ ["in", "echoitem", ["FooBar", "urn:example.com:echo-type", "foo.bar"]],
["retval", "echoitem", ["FooBar", "urn:example.com:echo-type", "foo.bar"]] ],
{ :request_style => :rpc, :request_use => :encoded,
:response_style => :rpc, :response_use => :encoded }
]
]
def initialize(endpoint_url = nil)
endpoint_url ||= DefaultEndpointUrl
super(endpoint_url, nil)
self.mapping_registry = MappingRegistry
init_methods
end
private
def init_methods
Methods.each do |definitions|
opt = definitions.last
if opt[:request_style] == :document
add_document_operation(*definitions)
else
add_rpc_operation(*definitions)
qname = definitions[0]
name = definitions[2]
if qname.name != name and qname.name.capitalize == name.capitalize
::SOAP::Mapping.define_singleton_method(self, qname.name) do |*arg|
__send__(name, *arg)
end
end
end
end
end
end

14
test/wsdl/any/expectedEcho.rb Normal file
View file

@ -0,0 +1,14 @@
require 'xsd/qname'
# {urn:example.com:echo-type}foo.bar
class FooBar
@@schema_type = "foo.bar"
@@schema_ns = "urn:example.com:echo-type"
@@schema_element = [["any", [nil, XSD::QName.new(nil, "any")]]]
attr_accessor :any
def initialize(any = nil)
@any = any
end
end

52
test/wsdl/any/expectedService.rb Normal file
View file

@ -0,0 +1,52 @@
#!/usr/bin/env ruby
require 'echoServant.rb'
require 'soap/rpc/standaloneServer'
require 'soap/mapping/registry'
class Echo_port_type
MappingRegistry = ::SOAP::Mapping::Registry.new
MappingRegistry.set(
FooBar,
::SOAP::SOAPStruct,
::SOAP::Mapping::Registry::TypedStructFactory,
{ :type => XSD::QName.new("urn:example.com:echo-type", "foo.bar") }
)
Methods = [
[ XSD::QName.new("urn:example.com:echo", "echo"),
"urn:example.com:echo",
"echo",
[ ["in", "echoitem", ["FooBar", "urn:example.com:echo-type", "foo.bar"]],
["retval", "echoitem", ["FooBar", "urn:example.com:echo-type", "foo.bar"]] ],
{ :request_style => :rpc, :request_use => :encoded,
:response_style => :rpc, :response_use => :encoded }
]
]
end
class Echo_port_typeApp < ::SOAP::RPC::StandaloneServer
def initialize(*arg)
super(*arg)
servant = Echo_port_type.new
Echo_port_type::Methods.each do |definitions|
opt = definitions.last
if opt[:request_style] == :document
@router.add_document_operation(servant, *definitions)
else
@router.add_rpc_operation(servant, *definitions)
end
end
self.mapping_registry = Echo_port_type::MappingRegistry
end
end
if $0 == __FILE__
# Change listen port.
server = Echo_port_typeApp.new('app', nil, '0.0.0.0', 10080)
trap(:INT) do
server.shutdown
end
server.start
end

46
test/wsdl/any/test_any.rb Normal file
View file

@ -0,0 +1,46 @@
require 'test/unit'
require 'wsdl/parser'
require 'wsdl/soap/wsdl2ruby'
module WSDL; module Any
class TestAny < Test::Unit::TestCase
DIR = File.dirname(File.expand_path(__FILE__))
def pathname(filename)
File.join(DIR, filename)
end
def test_any
gen = WSDL::SOAP::WSDL2Ruby.new
gen.location = pathname("any.wsdl")
gen.basedir = DIR
gen.logger.level = Logger::FATAL
gen.opt['classdef'] = nil
gen.opt['driver'] = nil
gen.opt['client_skelton'] = nil
gen.opt['servant_skelton'] = nil
gen.opt['standalone_server_stub'] = nil
gen.opt['force'] = true
gen.run
compare("expectedDriver.rb", "echoDriver.rb")
compare("expectedEcho.rb", "echo.rb")
compare("expectedService.rb", "echo_service.rb")
File.unlink(pathname("echo_service.rb"))
File.unlink(pathname("echo.rb"))
File.unlink(pathname("echo_serviceClient.rb"))
File.unlink(pathname("echoDriver.rb"))
File.unlink(pathname("echoServant.rb"))
end
def compare(expected, actual)
assert_equal(loadfile(expected), loadfile(actual), actual)
end
def loadfile(file)
File.open(pathname(file)) { |f| f.read }
end
end
end; end

12
test/wsdl/document/echo.rb
View file

@ -5,7 +5,7 @@ class Echoele
@@schema_type = "echoele"
@@schema_ns = "urn:docrpc"
@@schema_attribute = {XSD::QName.new(nil, "attr_string") => "SOAP::SOAPString", XSD::QName.new(nil, "attr-int") => "SOAP::SOAPInt"}
@@schema_element = [["struct1", "Echo_struct"], ["struct_2", ["Echo_struct", XSD::QName.new(nil, "struct-2")]]]
@@schema_element = [["struct1", ["Echo_struct", XSD::QName.new(nil, "struct1")]], ["struct_2", ["Echo_struct", XSD::QName.new(nil, "struct-2")]]]
attr_accessor :struct1
attr_accessor :struct_2
@ -38,7 +38,7 @@ class Echo_response
@@schema_type = "echo_response"
@@schema_ns = "urn:docrpc"
@@schema_attribute = {XSD::QName.new(nil, "attr_string") => "SOAP::SOAPString", XSD::QName.new(nil, "attr-int") => "SOAP::SOAPInt"}
@@schema_element = [["struct1", "Echo_struct"], ["struct_2", ["Echo_struct", XSD::QName.new(nil, "struct-2")]]]
@@schema_element = [["struct1", ["Echo_struct", XSD::QName.new(nil, "struct1")]], ["struct_2", ["Echo_struct", XSD::QName.new(nil, "struct-2")]]]
attr_accessor :struct1
attr_accessor :struct_2
@ -70,18 +70,18 @@ end
class Echo_struct
@@schema_type = "echo_struct"
@@schema_ns = "urn:docrpc"
@@schema_attribute = {XSD::QName.new("urn:docrpc", "m_attr") => "SOAP::SOAPString"}
@@schema_element = [["m_string", "SOAP::SOAPString"], ["m_datetime", "SOAP::SOAPDateTime"]]
@@schema_attribute = {XSD::QName.new(nil, "m_attr") => "SOAP::SOAPString"}
@@schema_element = [["m_string", ["SOAP::SOAPString", XSD::QName.new(nil, "m_string")]], ["m_datetime", ["SOAP::SOAPDateTime", XSD::QName.new(nil, "m_datetime")]]]
attr_accessor :m_string
attr_accessor :m_datetime
def xmlattr_m_attr
(@__xmlattr ||= {})[XSD::QName.new("urn:docrpc", "m_attr")]
(@__xmlattr ||= {})[XSD::QName.new(nil, "m_attr")]
end
def xmlattr_m_attr=(value)
(@__xmlattr ||= {})[XSD::QName.new("urn:docrpc", "m_attr")] = value
(@__xmlattr ||= {})[XSD::QName.new(nil, "m_attr")] = value
end
def initialize(m_string = nil, m_datetime = nil)

2
test/wsdl/marshal/person_org.rb
View file

@ -4,7 +4,7 @@ require 'xsd/qname'
class Person
@@schema_type = "Person"
@@schema_ns = "http://www.jin.gr.jp/~nahi/xmlns/sample/Person"
@@schema_element = [["familyname", "SOAP::SOAPString"], ["givenname", "SOAP::SOAPString"], ["var1", "SOAP::SOAPInt"], ["var2", "SOAP::SOAPDouble"], ["var3", "SOAP::SOAPString"]]
@@schema_element = [["familyname", ["SOAP::SOAPString", XSD::QName.new(nil, "familyname")]], ["givenname", ["SOAP::SOAPString", XSD::QName.new(nil, "givenname")]], ["var1", ["SOAP::SOAPInt", XSD::QName.new(nil, "var1")]], ["var2", ["SOAP::SOAPDouble", XSD::QName.new(nil, "var2")]], ["var3", ["SOAP::SOAPString", XSD::QName.new(nil, "var3")]]]
attr_accessor :familyname
attr_accessor :givenname

47
test/wsdl/qualified/lp.wsdl Normal file
View file

@ -0,0 +1,47 @@
<?xml version="1.0" encoding="utf-8"?>
<definitions
name="lp"
targetNamespace="urn:lp"
xmlns:tns="urn:lp"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
xmlns="http://schemas.xmlsoap.org/wsdl/">
<types>
<schema xmlns="http://www.w3.org/2001/XMLSchema">
<import namespace="urn:lp" schemaLocation="lp.xsd"/>
</schema>
</types>
<message name="login_in">
<part name="parameters" element="tns:login" />
</message>
<message name="login_out">
<part name="parameters" element="tns:loginResponse" />
</message>
<portType name="lp_porttype">
<operation name="login">
<input message="tns:login_in" />
<output message="tns:login_out" />
</operation>
</portType>
<binding name="lp_binding" type="tns:lp_porttype">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document" />
<operation name="login">
<soap:operation soapAction="urn:lp:login" style="document" />
<input>
<soap:body use="literal" />
</input>
<output>
<soap:body use="literal" />
</output>
</operation>
</binding>
<service name="lp_service">
<port name="lp_service_port" binding="tns:lp_binding">
<soap:address location="http://localhost:17171/" />
</port>
</service>
</definitions>

26
test/wsdl/qualified/lp.xsd Normal file
View file

@ -0,0 +1,26 @@
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:lp="urn:lp" targetNamespace="urn:lp" elementFormDefault="unqualified">
<xs:complexType name="login">
<xs:sequence>
<xs:element name="username" type="xs:string"/>
<xs:element name="password" type="xs:string"/>
<xs:element name="timezone" type="xs:string" minOccurs="0" maxOccurs="1"/>
</xs:sequence>
</xs:complexType>
<xs:element name="login" type="lp:login"/>
<xs:complexType name="loginResponse">
<xs:sequence>
<xs:element name="loginResult">
<xs:complexType>
<xs:sequence>
<xs:element name="sessionID" type="xs:string"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:element name="loginResponse" type="lp:loginResponse"/>
</xs:schema>

50
test/wsdl/qualified/np.wsdl Normal file
View file

@ -0,0 +1,50 @@
<?xml version="1.0" encoding="utf-8"?>
<wsdl:definitions xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns="http://www50.brinkster.com/vbfacileinpt/np" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" targetNamespace="http://www50.brinkster.com/vbfacileinpt/np" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
<wsdl:types>
<s:schema elementFormDefault="qualified" targetNamespace="http://www50.brinkster.com/vbfacileinpt/np">
<s:element name="GetPrimeNumbers">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="Max" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="GetPrimeNumbersResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="GetPrimeNumbersResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
</s:schema>
</wsdl:types>
<wsdl:message name="GetPrimeNumbersSoapIn">
<wsdl:part name="parameters" element="tns:GetPrimeNumbers" />
</wsdl:message>
<wsdl:message name="GetPrimeNumbersSoapOut">
<wsdl:part name="parameters" element="tns:GetPrimeNumbersResponse" />
</wsdl:message>
<wsdl:portType name="pnumSoap">
<wsdl:operation name="GetPrimeNumbers">
<wsdl:input message="tns:GetPrimeNumbersSoapIn" />
<wsdl:output message="tns:GetPrimeNumbersSoapOut" />
</wsdl:operation>
</wsdl:portType>
<wsdl:binding name="pnumSoap" type="tns:pnumSoap">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document" />
<wsdl:operation name="GetPrimeNumbers">
<soap:operation soapAction="http://www50.brinkster.com/vbfacileinpt/np/GetPrimeNumbers" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
<wsdl:service name="pnum">
<wsdl:port name="pnumSoap" binding="tns:pnumSoap">
<soap:address location="http://www50.brinkster.com/vbfacileinpt/np.asmx" />
</wsdl:port>
</wsdl:service>
</wsdl:definitions>

154
test/wsdl/qualified/test_qualified.rb Normal file
View file

@ -0,0 +1,154 @@
require 'test/unit'
require 'wsdl/soap/wsdl2ruby'
require 'soap/rpc/standaloneServer'
require 'soap/wsdlDriver'
if defined?(HTTPAccess2)
module WSDL
class TestQualified < Test::Unit::TestCase
class Server < ::SOAP::RPC::StandaloneServer
Namespace = 'http://www50.brinkster.com/vbfacileinpt/np'
def on_init
add_document_method(
self,
Namespace + '/GetPrimeNumbers',
'GetPrimeNumbers',
XSD::QName.new(Namespace, 'GetPrimeNumbers'),
XSD::QName.new(Namespace, 'GetPrimeNumbersResponse')
)
end
def GetPrimeNumbers(arg)
nil
end
end
DIR = File.dirname(File.expand_path(__FILE__))
Port = 17171
def setup
setup_server
setup_clientdef
@client = nil
end
def teardown
teardown_server
unless $DEBUG
File.unlink(pathname('default.rb'))
File.unlink(pathname('defaultDriver.rb'))
end
@client.reset_stream if @client
end
def setup_server
@server = Server.new('Test', "urn:lp", '0.0.0.0', Port)
@server.level = Logger::Severity::ERROR
@server_thread = start_server_thread(@server)
end
def setup_clientdef
backupdir = Dir.pwd
begin
Dir.chdir(DIR)
gen = WSDL::SOAP::WSDL2Ruby.new
gen.location = pathname("np.wsdl")
gen.basedir = DIR
gen.logger.level = Logger::FATAL
gen.opt['classdef'] = nil
gen.opt['driver'] = nil
gen.opt['force'] = true
gen.run
require pathname('default.rb')
ensure
Dir.chdir(backupdir)
end
end
def teardown_server
@server.shutdown
@server_thread.kill
@server_thread.join
end
def start_server_thread(server)
t = Thread.new {
Thread.current.abort_on_exception = true
server.start
}
t
end
def pathname(filename)
File.join(DIR, filename)
end
LOGIN_REQUEST_QUALIFIED_NS =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<n1:GetPrimeNumbers xmlns:n1="http://www50.brinkster.com/vbfacileinpt/np">
<n1:Max>10</n1:Max>
</n1:GetPrimeNumbers>
</env:Body>
</env:Envelope>]
LOGIN_REQUEST_QUALIFIED =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<GetPrimeNumbers xmlns="http://www50.brinkster.com/vbfacileinpt/np">
<Max>10</Max>
</GetPrimeNumbers>
</env:Body>
</env:Envelope>]
def test_wsdl
wsdl = File.join(DIR, 'np.wsdl')
@client = nil
backupdir = Dir.pwd
begin
Dir.chdir(DIR)
@client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
ensure
Dir.chdir(backupdir)
end
@client.endpoint_url = "http://localhost:#{Port}/"
@client.wiredump_dev = str = ''
@client.GetPrimeNumbers(:Max => 10)
assert_equal(LOGIN_REQUEST_QUALIFIED_NS, parse_requestxml(str))
end
include ::SOAP
def test_naive
backupdir = Dir.pwd
begin
Dir.chdir(DIR)
require pathname('defaultDriver')
ensure
Dir.chdir(backupdir)
end
@client = PnumSoap.new("http://localhost:#{Port}/")
@client.wiredump_dev = str = ''
@client.getPrimeNumbers(GetPrimeNumbers.new(10))
assert_equal(LOGIN_REQUEST_QUALIFIED, parse_requestxml(str))
end
def parse_requestxml(str)
str.split(/\r?\n\r?\n/)[3]
end
end
end
end

143
test/wsdl/qualified/test_unqualified.rb Normal file
View file

@ -0,0 +1,143 @@
require 'test/unit'
require 'wsdl/soap/wsdl2ruby'
require 'soap/rpc/standaloneServer'
require 'soap/wsdlDriver'
if defined?(HTTPAccess2)
module WSDL
class TestUnqualified < Test::Unit::TestCase
class Server < ::SOAP::RPC::StandaloneServer
Namespace = 'urn:lp'
def on_init
add_document_method(
self,
Namespace + ':login',
'login',
XSD::QName.new(Namespace, 'login'),
XSD::QName.new(Namespace, 'loginResponse')
)
end
def login(arg)
nil
end
end
DIR = File.dirname(File.expand_path(__FILE__))
Port = 17171
def setup
setup_server
setup_clientdef
@client = nil
end
def teardown
teardown_server
File.unlink(pathname('lp.rb'))
File.unlink(pathname('lpDriver.rb'))
@client.reset_stream if @client
end
def setup_server
@server = Server.new('Test', "urn:lp", '0.0.0.0', Port)
@server.level = Logger::Severity::ERROR
@server_thread = start_server_thread(@server)
end
def setup_clientdef
backupdir = Dir.pwd
begin
Dir.chdir(DIR)
gen = WSDL::SOAP::WSDL2Ruby.new
gen.location = pathname("lp.wsdl")
gen.basedir = DIR
gen.logger.level = Logger::FATAL
gen.opt['classdef'] = nil
gen.opt['driver'] = nil
gen.opt['force'] = true
gen.run
require pathname('lp')
ensure
Dir.chdir(backupdir)
end
end
def teardown_server
@server.shutdown
@server_thread.kill
@server_thread.join
end
def start_server_thread(server)
t = Thread.new {
Thread.current.abort_on_exception = true
server.start
}
t
end
def pathname(filename)
File.join(DIR, filename)
end
LOGIN_REQUEST_QUALIFIED =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<n1:login xmlns:n1="urn:lp">
<username>NaHi</username>
<password>passwd</password>
<timezone>JST</timezone>
</n1:login>
</env:Body>
</env:Envelope>]
def test_wsdl
wsdl = File.join(DIR, 'lp.wsdl')
@client = nil
backupdir = Dir.pwd
begin
Dir.chdir(DIR)
@client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
ensure
Dir.chdir(backupdir)
end
@client.endpoint_url = "http://localhost:#{Port}/"
@client.wiredump_dev = str = ''
@client.login(:timezone => 'JST', :password => 'passwd',
:username => 'NaHi')
assert_equal(LOGIN_REQUEST_QUALIFIED, parse_requestxml(str))
end
include ::SOAP
def test_naive
backupdir = Dir.pwd
begin
Dir.chdir(DIR)
require pathname('lpDriver')
ensure
Dir.chdir(backupdir)
end
@client = Lp_porttype.new("http://localhost:#{Port}/")
@client.wiredump_dev = str = ''
@client.login(Login.new('NaHi', 'passwd', 'JST'))
assert_equal(LOGIN_REQUEST_QUALIFIED, parse_requestxml(str))
end
def parse_requestxml(str)
str.split(/\r?\n\r?\n/)[3]
end
end
end
end

90
test/wsdl/ref/expectedProduct.rb Normal file
View file

@ -0,0 +1,90 @@
require 'xsd/qname'
# {urn:product}Rating
module Rating
C_0 = "0"
C_1 = "+1"
C_1_2 = "-1"
end
# {urn:product}Product-Bag
class ProductBag
@@schema_type = "Product-Bag"
@@schema_ns = "urn:product"
@@schema_attribute = {XSD::QName.new("urn:product", "version") => "SOAP::SOAPString", XSD::QName.new("urn:product", "yesno") => "SOAP::SOAPString"}
@@schema_element = [["bag", ["Product[]", XSD::QName.new(nil, "bag")]], ["rating", ["SOAP::SOAPString[]", XSD::QName.new("urn:product", "Rating")]], ["product_Bag", [nil, XSD::QName.new("urn:product", "Product-Bag")]], ["comment_1", [nil, XSD::QName.new(nil, "comment_1")]], ["comment_2", ["Comment[]", XSD::QName.new(nil, "comment-2")]]]
attr_accessor :bag
attr_accessor :product_Bag
attr_accessor :comment_1
attr_accessor :comment_2
def Rating
@rating
end
def Rating=(value)
@rating = value
end
def xmlattr_version
(@__xmlattr ||= {})[XSD::QName.new("urn:product", "version")]
end
def xmlattr_version=(value)
(@__xmlattr ||= {})[XSD::QName.new("urn:product", "version")] = value
end
def xmlattr_yesno
(@__xmlattr ||= {})[XSD::QName.new("urn:product", "yesno")]
end
def xmlattr_yesno=(value)
(@__xmlattr ||= {})[XSD::QName.new("urn:product", "yesno")] = value
end
def initialize(bag = [], rating = [], product_Bag = nil, comment_1 = [], comment_2 = [])
@bag = bag
@rating = rating
@product_Bag = product_Bag
@comment_1 = comment_1
@comment_2 = comment_2
@__xmlattr = {}
end
end
# {urn:product}Creator
class Creator
@@schema_type = "Creator"
@@schema_ns = "urn:product"
@@schema_element = []
def initialize
end
end
# {urn:product}Product
class Product
@@schema_type = "Product"
@@schema_ns = "urn:product"
@@schema_element = [["name", ["SOAP::SOAPString", XSD::QName.new(nil, "name")]], ["rating", ["SOAP::SOAPString", XSD::QName.new("urn:product", "Rating")]]]
attr_accessor :name
def Rating
@rating
end
def Rating=(value)
@rating = value
end
def initialize(name = nil, rating = nil)
@name = name
@rating = rating
end
end
# {urn:product}Comment
class Comment < String
end

86
test/wsdl/ref/product.wsdl Normal file
View file

@ -0,0 +1,86 @@
<?xml version="1.0"?>
<definitions name="product"
targetNamespace="urn:product"
xmlns:tns="urn:product"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
xmlns="http://schemas.xmlsoap.org/wsdl/">
<types>
<xsd:schema xmlns="http://www.w3.org/2001/XMLSchema"
targetNamespace="urn:product">
<simpleType name="non-empty-string">
<restriction base="xsd:string">
<minLength value="1"/>
</restriction>
</simpleType>
<complexType name="Product">
<all>
<element name="name" type="xsd:string"/>
<element ref="tns:Rating"/>
</all>
</complexType>
<complexType name="Comment">
<simpleContent>
<extension base="xsd:string">
<attribute name="msgid" type="xsd:string" use="required"/>
</extension>
</simpleContent>
</complexType>
<attribute name="version" type="tns:non-empty-string"/>
<attribute default="Y" name="yesno">
<simpleType>
<restriction base="xsd:string">
<enumeration value="Y"/>
<enumeration value="N"/>
</restriction>
</simpleType>
</attribute>
<element name="Rating">
<simpleType>
<restriction base="xsd:string">
<enumeration value="+1"/>
<enumeration value="0"/>
<enumeration value="-1"/>
</restriction>
</simpleType>
</element>
<element name="Product-Bag">
<complexType>
<sequence>
<element name="bag" type="tns:Product" minOccurs="0" maxOccurs="unbounded"/>
<element ref="tns:Rating" minOccurs="0" maxOccurs="unbounded"/>
<element ref="tns:Product-Bag"/>
<element name="comment_1" minOccurs="0" maxOccurs="unbounded">
<complexType>
<simpleContent>
<extension base="xsd:string">
<attribute name="msgid" type="xsd:string" use="required"/>
</extension>
</simpleContent>
</complexType>
</element>
<element name="comment-2" type="tns:Comment" minOccurs="0" maxOccurs="unbounded"/>
</sequence>
<attribute ref="tns:version"/>
<attribute ref="tns:yesno"/>
</complexType>
</element>
<element name="Creator" minOccurs="0" maxOccurs="unbounded">
<complexType>
<simpleContent>
<extension base="xsd:string">
<attribute name="Role" type="xs:string" use="required"/>
</extension>
</simpleContent>
</complexType>
</element>
</xsd:schema>
</types>
</definitions>

42
test/wsdl/ref/test_ref.rb Normal file
View file

@ -0,0 +1,42 @@
require 'test/unit'
require 'soap/rpc/standaloneServer'
require 'soap/wsdlDriver'
require 'wsdl/soap/wsdl2ruby'
module WSDL
module Ref
class TestRef < Test::Unit::TestCase
DIR = File.dirname(File.expand_path(__FILE__))
Port = 17171
def test_classdef
gen = WSDL::SOAP::WSDL2Ruby.new
gen.location = pathname("product.wsdl")
gen.basedir = DIR
gen.logger.level = Logger::FATAL
gen.opt['classdef'] = nil
gen.opt['force'] = true
gen.run
compare("expectedProduct.rb", "product.rb")
File.unlink(pathname('product.rb'))
end
def compare(expected, actual)
assert_equal(loadfile(expected), loadfile(actual), actual)
end
def loadfile(file)
File.open(pathname(file)) { |f| f.read }
end
def pathname(filename)
File.join(DIR, filename)
end
end
end
end

364
test/wsdl/rpc/test-rpc-lit.wsdl Normal file
View file

@ -0,0 +1,364 @@
<?xml version="1.0"?>
<definitions name="RPC-Literal-TestDefinitions"
targetNamespace="http://whitemesa.net/wsdl/rpc-lit-test"
xmlns="http://schemas.xmlsoap.org/wsdl/"
xmlns:soap11="http://schemas.xmlsoap.org/wsdl/soap/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:tns="http://whitemesa.net/wsdl/rpc-lit-test"
xmlns:types="http://soapbuilders.org/rpc-lit-test/types"
xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
<types>
<schema xmlns="http://www.w3.org/2001/XMLSchema" targetNamespace="http://soapbuilders.org/rpc-lit-test/types">
<element name="stringItem" type="xsd:string" />
<complexType name="ArrayOfstring">
<sequence>
<element ref="types:stringItem" minOccurs="0" maxOccurs="unbounded"/>
</sequence>
</complexType>
<complexType name="ArrayOfstringInline">
<sequence>
<element name="stringItem" type="xsd:string" minOccurs="0" maxOccurs="unbounded"/>
</sequence>
</complexType>
<complexType name="ArrayOfint">
<sequence>
<element name="integer" type="xsd:int" minOccurs="0" maxOccurs="unbounded"/>
</sequence>
</complexType>
<element name="structItem" type="types:SOAPStruct" />
<complexType name="SOAPStruct">
<all>
<element name="varString" type="xsd:string"/>
<element name="varInt" type="xsd:int"/>
<element name="varFloat" type="xsd:float"/>
</all>
</complexType>
<complexType name="ArrayOfSOAPStruct">
<sequence>
<element ref="types:structItem" minOccurs="0" maxOccurs="unbounded"/>
</sequence>
</complexType>
<complexType name="SOAPStructStruct">
<all>
<element name="varString" type="xsd:string"/>
<element name="varInt" type="xsd:int"/>
<element name="varFloat" type="xsd:float"/>
<element ref="types:structItem" />
</all>
</complexType>
<complexType name="SOAPArrayStruct">
<all>
<element name="varString" type="xsd:string"/>
<element name="varInt" type="xsd:int"/>
<element name="varFloat" type="xsd:float"/>
<element name="varArray" type="types:ArrayOfstring"/>
</all>
</complexType>
</schema>
</types>
<!-- echoStruct rpc operation -->
<message name="echoStructRequest">
<part name="inputStruct" type="types:SOAPStruct"/>
</message>
<message name="echoStructResponse">
<part name="return" type="types:SOAPStruct"/>
</message>
<!-- echoStructArray rpc operation -->
<message name="echoStructArrayRequest">
<part name="inputStructArray" type="types:ArrayOfSOAPStruct"/>
</message>
<message name="echoStructArrayResponse">
<part name="return" type="types:ArrayOfSOAPStruct"/>
</message>
<!-- echoStructAsSimpleTypes rpc operation -->
<message name="echoStructAsSimpleTypesRequest">
<part name="inputStruct" type="types:SOAPStruct"/>
</message>
<message name="echoStructAsSimpleTypesResponse">
<part name="outputString" type="xsd:string"/>
<part name="outputInteger" type="xsd:int"/>
<part name="outputFloat" type="xsd:float"/>
</message>
<!-- echoSimpleTypesAsStruct rpc operation -->
<message name="echoSimpleTypesAsStructRequest">
<part name="inputString" type="xsd:string"/>
<part name="inputInteger" type="xsd:int"/>
<part name="inputFloat" type="xsd:float"/>
</message>
<message name="echoSimpleTypesAsStructResponse">
<part name="return" type="types:SOAPStruct"/>
</message>
<!-- echoNestedStruct rpc operation -->
<message name="echoNestedStructRequest">
<part name="inputStruct" type="types:SOAPStructStruct"/>
</message>
<message name="echoNestedStructResponse">
<part name="return" type="types:SOAPStructStruct"/>
</message>
<!-- echoNestedArray rpc operation -->
<message name="echoNestedArrayRequest">
<part name="inputStruct" type="types:SOAPArrayStruct"/>
</message>
<message name="echoNestedArrayResponse">
<part name="return" type="types:SOAPArrayStruct"/>
</message>
<!-- echoStringArray rpc operation -->
<message name="echoStringArrayRequest">
<part name="inputStringArray" type="types:ArrayOfstring"/>
</message>
<message name="echoStringArrayResponse">
<part name="return" type="types:ArrayOfstring"/>
</message>
<message name="echoStringArrayInlineRequest">
<part name="inputStringArray" type="types:ArrayOfstringInline"/>
</message>
<message name="echoStringArrayInlineResponse">
<part name="return" type="types:ArrayOfstringInline"/>
</message>
<!-- echoIntegerArray rpc operation -->
<message name="echoIntegerArrayRequest">
<part name="inputIntegerArray" type="types:ArrayOfint"/>
</message>
<message name="echoIntegerArrayResponse">
<part name="return" type="types:ArrayOfint"/>
</message>
<!-- echoBoolean rpc operation -->
<message name="echoBooleanRequest">
<part name="inputBoolean" type="xsd:boolean"/>
</message>
<message name="echoBooleanResponse">
<part name="return" type="xsd:boolean"/>
</message>
<!-- echoString rpc operation -->
<message name="echoStringRequest">
<part name="inputString" type="xsd:string"/>
</message>
<message name="echoStringResponse">
<part name="return" type="xsd:string"/>
</message>
<portType name="SoapTestPortTypeRpc">
<!-- echoStruct rpc operation -->
<operation name="echoStruct" parameterOrder="inputStruct">
<input message="tns:echoStructRequest"/>
<output message="tns:echoStructResponse"/>
</operation>
<!-- echoStructArray rpc operation -->
<operation name="echoStructArray" parameterOrder="inputStructArray">
<input message="tns:echoStructArrayRequest"/>
<output message="tns:echoStructArrayResponse"/>
</operation>
<!-- echoStructAsSimpleTypes rpc operation -->
<operation name="echoStructAsSimpleTypes" parameterOrder="inputStruct outputString outputInteger outputFloat">
<input message="tns:echoStructAsSimpleTypesRequest"/>
<output message="tns:echoStructAsSimpleTypesResponse"/>
</operation>
<!-- echoSimpleTypesAsStruct rpc operation -->
<operation name="echoSimpleTypesAsStruct" parameterOrder="inputString inputInteger inputFloat">
<input message="tns:echoSimpleTypesAsStructRequest"/>
<output message="tns:echoSimpleTypesAsStructResponse"/>
</operation>
<!-- echoNestedStruct rpc operation -->
<operation name="echoNestedStruct" parameterOrder="inputStruct">
<input message="tns:echoNestedStructRequest"/>
<output message="tns:echoNestedStructResponse"/>
</operation>
<!-- echoNestedArray rpc operation -->
<operation name="echoNestedArray" parameterOrder="inputStruct">
<input message="tns:echoNestedArrayRequest"/>
<output message="tns:echoNestedArrayResponse"/>
</operation>
<!-- echoStringArray rpc operation -->
<operation name="echoStringArray" parameterOrder="inputStringArray">
<input message="tns:echoStringArrayRequest"/>
<output message="tns:echoStringArrayResponse"/>
</operation>
<operation name="echoStringArrayInline" parameterOrder="inputStringArray">
<input message="tns:echoStringArrayInlineRequest"/>
<output message="tns:echoStringArrayInlineResponse"/>
</operation>
<!-- echoIntegerArray rpc operation -->
<operation name="echoIntegerArray" parameterOrder="inputIntegerArray">
<input message="tns:echoIntegerArrayRequest"/>
<output message="tns:echoIntegerArrayResponse"/>
</operation>
<!-- echoBoolean rpc operation -->
<operation name="echoBoolean" parameterOrder="inputBoolean">
<input message="tns:echoBooleanRequest"/>
<output message="tns:echoBooleanResponse"/>
</operation>
<!-- echoString rpc operation -->
<operation name="echoString" parameterOrder="inputString">
<input message="tns:echoStringRequest"/>
<output message="tns:echoStringResponse"/>
</operation>
</portType>
<binding name="Soap11TestRpcLitBinding" type="tns:SoapTestPortTypeRpc">
<soap11:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
<!-- echoStruct rpc operation -->
<operation name="echoStruct">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoStructArray rpc operation -->
<operation name="echoStructArray">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoStructAsSimpleTypes rpc operation -->
<operation name="echoStructAsSimpleTypes">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoSimpleTypesAsStruct rpc operation -->
<operation name="echoSimpleTypesAsStruct">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoNestedStruct rpc operation -->
<operation name="echoNestedStruct">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoNestedArray rpc operation -->
<operation name="echoNestedArray">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoStringArray rpc operation -->
<operation name="echoStringArray">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<operation name="echoStringArrayInline">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoIntegerArray rpc operation -->
<operation name="echoIntegerArray">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoBoolean rpc operation -->
<operation name="echoBoolean">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoString rpc operation -->
<operation name="echoString">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
</binding>
<service name="WhiteMesaSoapRpcLitTestSvc">
<port name="Soap11TestRpcLitPort" binding="tns:Soap11TestRpcLitBinding">
<soap11:address location="http://www.whitemesa.net/test-rpc-lit"/>
</port>
</service>
</definitions>

455
test/wsdl/rpc/test-rpc-lit12.wsdl Normal file
View file

@ -0,0 +1,455 @@
<?xml version="1.0"?>
<definitions name="RPC-Literal-TestDefinitions"
targetNamespace="http://whitemesa.net/wsdl/rpc-lit-test"
xmlns="http://schemas.xmlsoap.org/wsdl/"
xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/"
xmlns:soap11="http://schemas.xmlsoap.org/wsdl/soap/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:tns="http://whitemesa.net/wsdl/rpc-lit-test"
xmlns:types="http://soapbuilders.org/rpc-lit-test/types"
xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
<types>
<schema xmlns="http://www.w3.org/2001/XMLSchema" targetNamespace="http://soapbuilders.org/rpc-lit-test/types">
<element name="stringItem" type="xsd:string" />
<complexType name="ArrayOfstring">
<sequence>
<element ref="types:stringItem" minOccurs="0" maxOccurs="unbounded"/>
</sequence>
</complexType>
<complexType name="ArrayOfint">
<sequence>
<element name="integer" type="xsd:int" minOccurs="0" maxOccurs="unbounded"/>
</sequence>
</complexType>
<element name="structItem" type="types:SOAPStruct" />
<complexType name="SOAPStruct">
<all>
<element name="varString" type="xsd:string"/>
<element name="varInt" type="xsd:int"/>
<element name="varFloat" type="xsd:float"/>
</all>
</complexType>
<complexType name="ArrayOfSOAPStruct">
<sequence>
<element ref="types:structItem" minOccurs="0" maxOccurs="unbounded"/>
</sequence>
</complexType>
<complexType name="SOAPStructStruct">
<all>
<element name="varString" type="xsd:string"/>
<element name="varInt" type="xsd:int"/>
<element name="varFloat" type="xsd:float"/>
<element ref="types:structItem" />
</all>
</complexType>
<complexType name="SOAPArrayStruct">
<all>
<element name="varString" type="xsd:string"/>
<element name="varInt" type="xsd:int"/>
<element name="varFloat" type="xsd:float"/>
<element name="varArray" type="types:ArrayOfstring"/>
</all>
</complexType>
</schema>
</types>
<!-- echoStruct rpc operation -->
<message name="echoStructRequest">
<part name="inputStruct" type="types:SOAPStruct"/>
</message>
<message name="echoStructResponse">
<part name="return" type="types:SOAPStruct"/>
</message>
<!-- echoStructArray rpc operation -->
<message name="echoStructArrayRequest">
<part name="inputStructArray" type="types:ArrayOfSOAPStruct"/>
</message>
<message name="echoStructArrayResponse">
<part name="return" type="types:ArrayOfSOAPStruct"/>
</message>
<!-- echoStructAsSimpleTypes rpc operation -->
<message name="echoStructAsSimpleTypesRequest">
<part name="inputStruct" type="types:SOAPStruct"/>
</message>
<message name="echoStructAsSimpleTypesResponse">
<part name="outputString" type="xsd:string"/>
<part name="outputInteger" type="xsd:int"/>
<part name="outputFloat" type="xsd:float"/>
</message>
<!-- echoSimpleTypesAsStruct rpc operation -->
<message name="echoSimpleTypesAsStructRequest">
<part name="inputString" type="xsd:string"/>
<part name="inputInteger" type="xsd:int"/>
<part name="inputFloat" type="xsd:float"/>
</message>
<message name="echoSimpleTypesAsStructResponse">
<part name="return" type="types:SOAPStruct"/>
</message>
<!-- echoNestedStruct rpc operation -->
<message name="echoNestedStructRequest">
<part name="inputStruct" type="types:SOAPStructStruct"/>
</message>
<message name="echoNestedStructResponse">
<part name="return" type="types:SOAPStructStruct"/>
</message>
<!-- echoNestedArray rpc operation -->
<message name="echoNestedArrayRequest">
<part name="inputStruct" type="types:SOAPArrayStruct"/>
</message>
<message name="echoNestedArrayResponse">
<part name="return" type="types:SOAPArrayStruct"/>
</message>
<!-- echoStringArray rpc operation -->
<message name="echoStringArrayRequest">
<part name="inputStringArray" type="types:ArrayOfstring"/>
</message>
<message name="echoStringArrayResponse">
<part name="return" type="types:ArrayOfstring"/>
</message>
<!-- echoIntegerArray rpc operation -->
<message name="echoIntegerArrayRequest">
<part name="inputIntegerArray" type="types:ArrayOfint"/>
</message>
<message name="echoIntegerArrayResponse">
<part name="return" type="types:ArrayOfint"/>
</message>
<!-- echoBoolean rpc operation -->
<message name="echoBooleanRequest">
<part name="inputBoolean" type="xsd:boolean"/>
</message>
<message name="echoBooleanResponse">
<part name="return" type="xsd:boolean"/>
</message>
<!-- echoString rpc operation -->
<message name="echoStringRequest">
<part name="inputString" type="xsd:string"/>
</message>
<message name="echoStringResponse">
<part name="return" type="xsd:string"/>
</message>
<portType name="SoapTestPortTypeRpc">
<!-- echoStruct rpc operation -->
<operation name="echoStruct" parameterOrder="inputStruct">
<input message="tns:echoStructRequest"/>
<output message="tns:echoStructResponse"/>
</operation>
<!-- echoStructArray rpc operation -->
<operation name="echoStructArray" parameterOrder="inputStructArray">
<input message="tns:echoStructArrayRequest"/>
<output message="tns:echoStructArrayResponse"/>
</operation>
<!-- echoStructAsSimpleTypes rpc operation -->
<operation name="echoStructAsSimpleTypes" parameterOrder="inputStruct outputString outputInteger outputFloat">
<input message="tns:echoStructAsSimpleTypesRequest"/>
<output message="tns:echoStructAsSimpleTypesResponse"/>
</operation>
<!-- echoSimpleTypesAsStruct rpc operation -->
<operation name="echoSimpleTypesAsStruct" parameterOrder="inputString inputInteger inputFloat">
<input message="tns:echoSimpleTypesAsStructRequest"/>
<output message="tns:echoSimpleTypesAsStructResponse"/>
</operation>
<!-- echoNestedStruct rpc operation -->
<operation name="echoNestedStruct" parameterOrder="inputStruct">
<input message="tns:echoNestedStructRequest"/>
<output message="tns:echoNestedStructResponse"/>
</operation>
<!-- echoNestedArray rpc operation -->
<operation name="echoNestedArray" parameterOrder="inputStruct">
<input message="tns:echoNestedArrayRequest"/>
<output message="tns:echoNestedArrayResponse"/>
</operation>
<!-- echoStringArray rpc operation -->
<operation name="echoStringArray" parameterOrder="inputStringArray">
<input message="tns:echoStringArrayRequest"/>
<output message="tns:echoStringArrayResponse"/>
</operation>
<!-- echoIntegerArray rpc operation -->
<operation name="echoIntegerArray" parameterOrder="inputIntegerArray">
<input message="tns:echoIntegerArrayRequest"/>
<output message="tns:echoIntegerArrayResponse"/>
</operation>
<!-- echoBoolean rpc operation -->
<operation name="echoBoolean" parameterOrder="inputBoolean">
<input message="tns:echoBooleanRequest"/>
<output message="tns:echoBooleanResponse"/>
</operation>
<!-- echoString rpc operation -->
<operation name="echoString" parameterOrder="inputString">
<input message="tns:echoStringRequest"/>
<output message="tns:echoStringResponse"/>
</operation>
</portType>
<binding name="Soap11TestRpcLitBinding" type="tns:SoapTestPortTypeRpc">
<soap11:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
<!-- echoStruct rpc operation -->
<operation name="echoStruct">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoStructArray rpc operation -->
<operation name="echoStructArray">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoStructAsSimpleTypes rpc operation -->
<operation name="echoStructAsSimpleTypes">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoSimpleTypesAsStruct rpc operation -->
<operation name="echoSimpleTypesAsStruct">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoNestedStruct rpc operation -->
<operation name="echoNestedStruct">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoNestedArray rpc operation -->
<operation name="echoNestedArray">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoStringArray rpc operation -->
<operation name="echoStringArray">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoIntegerArray rpc operation -->
<operation name="echoIntegerArray">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoBoolean rpc operation -->
<operation name="echoBoolean">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoString rpc operation -->
<operation name="echoString">
<soap11:operation soapAction="http://soapinterop.org/"/>
<input>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
</binding>
<binding name="Soap12TestRpcLitBinding" type="tns:SoapTestPortTypeRpc">
<soap12:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
<!-- echoStruct rpc operation -->
<operation name="echoStruct">
<soap12:operation/>
<input>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoStructArray rpc operation -->
<operation name="echoStructArray">
<soap12:operation/>
<input>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoStructAsSimpleTypes rpc operation -->
<operation name="echoStructAsSimpleTypes">
<soap12:operation/>
<input>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoSimpleTypesAsStruct rpc operation -->
<operation name="echoSimpleTypesAsStruct">
<soap12:operation/>
<input>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoNestedStruct rpc operation -->
<operation name="echoNestedStruct">
<soap12:operation/>
<input>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoNestedArray rpc operation -->
<operation name="echoNestedArray">
<soap12:operation/>
<input>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoStringArray rpc operation -->
<operation name="echoStringArray">
<soap12:operation/>
<input>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoIntegerArray rpc operation -->
<operation name="echoIntegerArray">
<soap12:operation/>
<input>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoBoolean rpc operation -->
<operation name="echoBoolean">
<soap12:operation/>
<input>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
<!-- echoString rpc operation -->
<operation name="echoString">
<soap12:operation/>
<input>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</input>
<output>
<soap12:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
</output>
</operation>
</binding>
<service name="WhiteMesaSoapRpcLitTestSvc">
<port name="Soap12TestRpcLitPort" binding="tns:Soap12TestRpcLitBinding">
<soap12:address location="http://www.whitemesa.net/soap12/test-rpc-lit"/>
</port>
<port name="Soap11TestRpcLitPort" binding="tns:Soap11TestRpcLitBinding">
<soap11:address location="http://www.whitemesa.net/test-rpc-lit"/>
</port>
</service>
</definitions>

399
test/wsdl/rpc/test_rpc_lit.rb Normal file
View file

@ -0,0 +1,399 @@
require 'test/unit'
require 'wsdl/soap/wsdl2ruby'
require 'soap/rpc/standaloneServer'
require 'soap/wsdlDriver'
if defined?(HTTPAccess2) and defined?(OpenSSL)
module WSDL; module RPC
class TestRPCLIT < Test::Unit::TestCase
class Server < ::SOAP::RPC::StandaloneServer
Namespace = "http://soapbuilders.org/rpc-lit-test"
def on_init
self.generate_explicit_type = false
add_rpc_operation(self,
XSD::QName.new(Namespace, 'echoStringArray'),
nil,
'echoStringArray', [
['in', 'inputStringArray', nil],
['retval', 'return', nil]
],
{
:request_style => :rpc,
:request_use => :literal,
:response_style => :rpc,
:response_use => :literal
}
)
add_rpc_operation(self,
XSD::QName.new(Namespace, 'echoStringArrayInline'),
nil,
'echoStringArrayInline', [
['in', 'inputStringArray', nil],
['retval', 'return', nil]
],
{
:request_style => :rpc,
:request_use => :literal,
:response_style => :rpc,
:response_use => :literal
}
)
add_rpc_operation(self,
XSD::QName.new(Namespace, 'echoNestedStruct'),
nil,
'echoNestedStruct', [
['in', 'inputNestedStruct', nil],
['retval', 'return', nil]
],
{
:request_style => :rpc,
:request_use => :literal,
:response_style => :rpc,
:response_use => :literal
}
)
add_rpc_operation(self,
XSD::QName.new(Namespace, 'echoStructArray'),
nil,
'echoStructArray', [
['in', 'inputStructArray', nil],
['retval', 'return', nil]
],
{
:request_style => :rpc,
:request_use => :literal,
:response_style => :rpc,
:response_use => :literal
}
)
end
def echoStringArray(strings)
# strings.stringItem => Array
ArrayOfstring[*strings.stringItem]
end
def echoStringArrayInline(strings)
ArrayOfstringInline[*strings.stringItem]
end
def echoNestedStruct(struct)
struct
end
def echoStructArray(ary)
ary
end
end
DIR = File.dirname(File.expand_path(__FILE__))
Port = 17171
def setup
setup_server
setup_classdef
@client = nil
end
def teardown
teardown_server
unless $DEBUG
File.unlink(pathname('RPC-Literal-TestDefinitions.rb'))
File.unlink(pathname('RPC-Literal-TestDefinitionsDriver.rb'))
end
@client.reset_stream if @client
end
def setup_server
@server = Server.new('Test', Server::Namespace, '0.0.0.0', Port)
@server.level = Logger::Severity::ERROR
@server_thread = start_server_thread(@server)
end
def setup_classdef
gen = WSDL::SOAP::WSDL2Ruby.new
gen.location = pathname("test-rpc-lit.wsdl")
gen.basedir = DIR
gen.logger.level = Logger::FATAL
gen.opt['classdef'] = nil
gen.opt['driver'] = nil
gen.opt['force'] = true
gen.run
backupdir = Dir.pwd
begin
Dir.chdir(DIR)
require pathname('RPC-Literal-TestDefinitions.rb')
require pathname('RPC-Literal-TestDefinitionsDriver.rb')
ensure
Dir.chdir(backupdir)
end
end
def teardown_server
@server.shutdown
@server_thread.kill
@server_thread.join
end
def start_server_thread(server)
t = Thread.new {
Thread.current.abort_on_exception = true
server.start
}
t
end
def pathname(filename)
File.join(DIR, filename)
end
def test_wsdl_echoStringArray
wsdl = pathname('test-rpc-lit.wsdl')
@client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
@client.endpoint_url = "http://localhost:#{Port}/"
@client.wiredump_dev = STDOUT if $DEBUG
# response contains only 1 part.
result = @client.echoStringArray(ArrayOfstring["a", "b", "c"])[0]
assert_equal(["a", "b", "c"], result.stringItem)
end
ECHO_STRING_ARRAY_REQUEST =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<n1:echoStringArray xmlns:n1="http://soapbuilders.org/rpc-lit-test">
<inputStringArray xmlns:n2="http://soapbuilders.org/rpc-lit-test/types">
<n2:stringItem>a</n2:stringItem>
<n2:stringItem>b</n2:stringItem>
<n2:stringItem>c</n2:stringItem>
</inputStringArray>
</n1:echoStringArray>
</env:Body>
</env:Envelope>]
ECHO_STRING_ARRAY_RESPONSE =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<n1:echoStringArrayResponse xmlns:n1="http://soapbuilders.org/rpc-lit-test">
<return xmlns:n2="http://soapbuilders.org/rpc-lit-test/types">
<n2:stringItem>a</n2:stringItem>
<n2:stringItem>b</n2:stringItem>
<n2:stringItem>c</n2:stringItem>
</return>
</n1:echoStringArrayResponse>
</env:Body>
</env:Envelope>]
def test_stub_echoStringArray
drv = SoapTestPortTypeRpc.new("http://localhost:#{Port}/")
drv.wiredump_dev = str = ''
# response contains only 1 part.
result = drv.echoStringArray(ArrayOfstring["a", "b", "c"])[0]
assert_equal(["a", "b", "c"], result.stringItem)
assert_equal(ECHO_STRING_ARRAY_REQUEST, parse_requestxml(str))
assert_equal(ECHO_STRING_ARRAY_RESPONSE, parse_responsexml(str))
end
ECHO_STRING_ARRAY_INLINE_REQUEST =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<n1:echoStringArrayInline xmlns:n1="http://soapbuilders.org/rpc-lit-test">
<inputStringArray>
<stringItem>a</stringItem>
<stringItem>b</stringItem>
<stringItem>c</stringItem>
</inputStringArray>
</n1:echoStringArrayInline>
</env:Body>
</env:Envelope>]
ECHO_STRING_ARRAY_INLINE_RESPONSE =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<n1:echoStringArrayInlineResponse xmlns:n1="http://soapbuilders.org/rpc-lit-test">
<return>
<stringItem>a</stringItem>
<stringItem>b</stringItem>
<stringItem>c</stringItem>
</return>
</n1:echoStringArrayInlineResponse>
</env:Body>
</env:Envelope>]
def test_stub_echoStringArrayInline
drv = SoapTestPortTypeRpc.new("http://localhost:#{Port}/")
drv.wiredump_dev = str = ''
# response contains only 1 part.
result = drv.echoStringArrayInline(ArrayOfstringInline["a", "b", "c"])[0]
assert_equal(["a", "b", "c"], result.stringItem)
assert_equal(ECHO_STRING_ARRAY_INLINE_REQUEST, parse_requestxml(str))
assert_equal(ECHO_STRING_ARRAY_INLINE_RESPONSE, parse_responsexml(str))
end
ECHO_NESTED_STRUCT_REQUEST =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<n1:echoNestedStruct xmlns:n1="http://soapbuilders.org/rpc-lit-test">
<inputStruct xmlns:n2="http://soapbuilders.org/rpc-lit-test/types">
<varString>str</varString>
<varInt>1</varInt>
<varFloat>+1</varFloat>
<n2:structItem>
<varString>str</varString>
<varInt>1</varInt>
<varFloat>+1</varFloat>
</n2:structItem>
</inputStruct>
</n1:echoNestedStruct>
</env:Body>
</env:Envelope>]
ECHO_NESTED_STRUCT_RESPONSE =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<n1:echoNestedStructResponse xmlns:n1="http://soapbuilders.org/rpc-lit-test">
<return xmlns:n2="http://soapbuilders.org/rpc-lit-test/types">
<varString>str</varString>
<varInt>1</varInt>
<varFloat>+1</varFloat>
<n2:structItem>
<varString>str</varString>
<varInt>1</varInt>
<varFloat>+1</varFloat>
</n2:structItem>
</return>
</n1:echoNestedStructResponse>
</env:Body>
</env:Envelope>]
def test_wsdl_echoNestedStruct
wsdl = pathname('test-rpc-lit.wsdl')
@client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
@client.endpoint_url = "http://localhost:#{Port}/"
@client.wiredump_dev = str = ''
# response contains only 1 part.
result = @client.echoNestedStruct(SOAPStructStruct.new("str", 1, 1.0, SOAPStruct.new("str", 1, 1.0)))[0]
assert_equal('str', result.varString)
assert_equal('1', result.varInt)
assert_equal('+1', result.varFloat)
assert_equal('str', result.structItem.varString)
assert_equal('1', result.structItem.varInt)
assert_equal('+1', result.structItem.varFloat)
assert_equal(ECHO_NESTED_STRUCT_REQUEST, parse_requestxml(str))
assert_equal(ECHO_NESTED_STRUCT_RESPONSE, parse_responsexml(str))
end
def test_stub_echoNestedStruct
drv = SoapTestPortTypeRpc.new("http://localhost:#{Port}/")
drv.wiredump_dev = str = ''
# response contains only 1 part.
result = drv.echoNestedStruct(SOAPStructStruct.new("str", 1, 1.0, SOAPStruct.new("str", 1, 1.0)))[0]
assert_equal('str', result.varString)
assert_equal('1', result.varInt)
assert_equal('+1', result.varFloat)
assert_equal('str', result.structItem.varString)
assert_equal('1', result.structItem.varInt)
assert_equal('+1', result.structItem.varFloat)
assert_equal(ECHO_NESTED_STRUCT_REQUEST, parse_requestxml(str))
assert_equal(ECHO_NESTED_STRUCT_RESPONSE, parse_responsexml(str))
end
ECHO_STRUCT_ARRAY_REQUEST =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<n1:echoStructArray xmlns:n1="http://soapbuilders.org/rpc-lit-test">
<inputStructArray xmlns:n2="http://soapbuilders.org/rpc-lit-test/types">
<n2:structItem>
<varString>str</varString>
<varInt>2</varInt>
<varFloat>+2.1</varFloat>
</n2:structItem>
<n2:structItem>
<varString>str</varString>
<varInt>2</varInt>
<varFloat>+2.1</varFloat>
</n2:structItem>
</inputStructArray>
</n1:echoStructArray>
</env:Body>
</env:Envelope>]
ECHO_STRUCT_ARRAY_RESPONSE =
%q[<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<env:Body>
<n1:echoStructArrayResponse xmlns:n1="http://soapbuilders.org/rpc-lit-test">
<return xmlns:n2="http://soapbuilders.org/rpc-lit-test/types">
<n2:structItem>
<varString>str</varString>
<varInt>2</varInt>
<varFloat>+2.1</varFloat>
</n2:structItem>
<n2:structItem>
<varString>str</varString>
<varInt>2</varInt>
<varFloat>+2.1</varFloat>
</n2:structItem>
</return>
</n1:echoStructArrayResponse>
</env:Body>
</env:Envelope>]
def test_wsdl_echoStructArray
wsdl = pathname('test-rpc-lit.wsdl')
@client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
@client.endpoint_url = "http://localhost:#{Port}/"
@client.wiredump_dev = str = ''
# response contains only 1 part.
e = SOAPStruct.new("str", 2, 2.1)
result = @client.echoStructArray(ArrayOfSOAPStruct[e, e])
assert_equal(ECHO_STRUCT_ARRAY_REQUEST, parse_requestxml(str))
assert_equal(ECHO_STRUCT_ARRAY_RESPONSE, parse_responsexml(str))
end
def test_stub_echoStructArray
drv = SoapTestPortTypeRpc.new("http://localhost:#{Port}/")
drv.wiredump_dev = str = ''
# response contains only 1 part.
e = SOAPStruct.new("str", 2, 2.1)
result = drv.echoStructArray(ArrayOfSOAPStruct[e, e])
assert_equal(ECHO_STRUCT_ARRAY_REQUEST, parse_requestxml(str))
assert_equal(ECHO_STRUCT_ARRAY_RESPONSE, parse_responsexml(str))
end
def parse_requestxml(str)
str.split(/\r?\n\r?\n/)[3]
end
def parse_responsexml(str)
str.split(/\r?\n\r?\n/)[6]
end
end
end; end
end

34
test/wsdl/simpletype/rpc/expectedClient.rb Normal file
View file

@ -0,0 +1,34 @@
#!/usr/bin/env ruby
require 'echo_versionDriver.rb'
endpoint_url = ARGV.shift
obj = Echo_version_port_type.new(endpoint_url)
# run ruby with -d to see SOAP wiredumps.
obj.wiredump_dev = STDERR if $DEBUG
# SYNOPSIS
# echo_version(version)
#
# ARGS
# version Version - {urn:example.com:simpletype-rpc-type}version
#
# RETURNS
# version_struct Version_struct - {urn:example.com:simpletype-rpc-type}version_struct
#
version = nil
puts obj.echo_version(version)
# SYNOPSIS
# echo_version_r(version_struct)
#
# ARGS
# version_struct Version_struct - {urn:example.com:simpletype-rpc-type}version_struct
#
# RETURNS
# version Version - {urn:example.com:simpletype-rpc-type}version
#
version_struct = nil
puts obj.echo_version_r(version_struct)

62
test/wsdl/simpletype/rpc/expectedDriver.rb Normal file
View file

@ -0,0 +1,62 @@
require 'echo_version.rb'
require 'soap/rpc/driver'
class Echo_version_port_type < ::SOAP::RPC::Driver
DefaultEndpointUrl = "http://localhost:10080"
MappingRegistry = ::SOAP::Mapping::Registry.new
MappingRegistry.set(
Version_struct,
::SOAP::SOAPStruct,
::SOAP::Mapping::Registry::TypedStructFactory,
{ :type => XSD::QName.new("urn:example.com:simpletype-rpc-type", "version_struct") }
)
Methods = [
[ XSD::QName.new("urn:example.com:simpletype-rpc", "echo_version"),
"urn:example.com:simpletype-rpc",
"echo_version",
[ ["in", "version", ["::SOAP::SOAPString"]],
["retval", "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]] ],
{ :request_style => :rpc, :request_use => :encoded,
:response_style => :rpc, :response_use => :encoded }
],
[ XSD::QName.new("urn:example.com:simpletype-rpc", "echo_version_r"),
"urn:example.com:simpletype-rpc",
"echo_version_r",
[ ["in", "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]],
["retval", "version", ["::SOAP::SOAPString"]] ],
{ :request_style => :rpc, :request_use => :encoded,
:response_style => :rpc, :response_use => :encoded }
]
]
def initialize(endpoint_url = nil)
endpoint_url ||= DefaultEndpointUrl
super(endpoint_url, nil)
self.mapping_registry = MappingRegistry
init_methods
end
private
def init_methods
Methods.each do |definitions|
opt = definitions.last
if opt[:request_style] == :document
add_document_operation(*definitions)
else
add_rpc_operation(*definitions)
qname = definitions[0]
name = definitions[2]
if qname.name != name and qname.name.capitalize == name.capitalize
::SOAP::Mapping.define_singleton_method(self, qname.name) do |*arg|
__send__(name, *arg)
end
end
end
end
end
end

23
test/wsdl/simpletype/rpc/expectedEchoVersion.rb Normal file
View file

@ -0,0 +1,23 @@
require 'xsd/qname'
# {urn:example.com:simpletype-rpc-type}version_struct
class Version_struct
@@schema_type = "version_struct"
@@schema_ns = "urn:example.com:simpletype-rpc-type"
@@schema_element = [["version", ["SOAP::SOAPString", XSD::QName.new(nil, "version")]], ["msg", ["SOAP::SOAPString", XSD::QName.new(nil, "msg")]]]
attr_accessor :version
attr_accessor :msg
def initialize(version = nil, msg = nil)
@version = version
@msg = msg
end
end
# {urn:example.com:simpletype-rpc-type}version
module Version
C_16 = "1.6"
C_18 = "1.8"
C_19 = "1.9"
end

32
test/wsdl/simpletype/rpc/expectedServant.rb Normal file
View file

@ -0,0 +1,32 @@
require 'echo_version.rb'
class Echo_version_port_type
# SYNOPSIS
# echo_version(version)
#
# ARGS
# version Version - {urn:example.com:simpletype-rpc-type}version
#
# RETURNS
# version_struct Version_struct - {urn:example.com:simpletype-rpc-type}version_struct
#
def echo_version(version)
p [version]
raise NotImplementedError.new
end
# SYNOPSIS
# echo_version_r(version_struct)
#
# ARGS
# version_struct Version_struct - {urn:example.com:simpletype-rpc-type}version_struct
#
# RETURNS
# version Version - {urn:example.com:simpletype-rpc-type}version
#
def echo_version_r(version_struct)
p [version_struct]
raise NotImplementedError.new
end
end

60
test/wsdl/simpletype/rpc/expectedService.rb Normal file
View file

@ -0,0 +1,60 @@
#!/usr/bin/env ruby
require 'echo_versionServant.rb'
require 'soap/rpc/standaloneServer'
require 'soap/mapping/registry'
class Echo_version_port_type
MappingRegistry = ::SOAP::Mapping::Registry.new
MappingRegistry.set(
Version_struct,
::SOAP::SOAPStruct,
::SOAP::Mapping::Registry::TypedStructFactory,
{ :type => XSD::QName.new("urn:example.com:simpletype-rpc-type", "version_struct") }
)
Methods = [
[ XSD::QName.new("urn:example.com:simpletype-rpc", "echo_version"),
"urn:example.com:simpletype-rpc",
"echo_version",
[ ["in", "version", ["::SOAP::SOAPString"]],
["retval", "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]] ],
{ :request_style => :rpc, :request_use => :encoded,
:response_style => :rpc, :response_use => :encoded }
],
[ XSD::QName.new("urn:example.com:simpletype-rpc", "echo_version_r"),
"urn:example.com:simpletype-rpc",
"echo_version_r",
[ ["in", "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]],
["retval", "version", ["::SOAP::SOAPString"]] ],
{ :request_style => :rpc, :request_use => :encoded,
:response_style => :rpc, :response_use => :encoded }
]
]
end
class Echo_version_port_typeApp < ::SOAP::RPC::StandaloneServer
def initialize(*arg)
super(*arg)
servant = Echo_version_port_type.new
Echo_version_port_type::Methods.each do |definitions|
opt = definitions.last
if opt[:request_style] == :document
@router.add_document_operation(servant, *definitions)
else
@router.add_rpc_operation(servant, *definitions)
end
end
self.mapping_registry = Echo_version_port_type::MappingRegistry
end
end
if $0 == __FILE__
# Change listen port.
server = Echo_version_port_typeApp.new('app', nil, '0.0.0.0', 10080)
trap(:INT) do
server.shutdown
end
server.start
end

80
test/wsdl/simpletype/rpc/rpc.wsdl Normal file
View file

@ -0,0 +1,80 @@
<?xml version="1.0" encoding="utf-8"?>
<definitions name="echo_version"
xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:tns="urn:example.com:simpletype-rpc"
xmlns:txd="urn:example.com:simpletype-rpc-type"
targetNamespace="urn:example.com:simpletype-rpc"
xmlns="http://schemas.xmlsoap.org/wsdl/">
<types>
<xsd:schema targetNamespace="urn:example.com:simpletype-rpc-type">
<xsd:complexType name="version_struct">
<xsd:all>
<xsd:element name="version" type="txd:version" />
<xsd:element name="msg" type="xsd:string" />
</xsd:all>
</xsd:complexType>
<xsd:simpleType name="version">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="1.6"/>
<xsd:enumeration value="1.8"/>
<xsd:enumeration value="1.9"/>
</xsd:restriction>
</xsd:simpleType>
</xsd:schema>
</types>
<message name="msg_version">
<part name="version" type="txd:version"/>
</message>
<message name="msg_version_struct">
<part name="version_struct" type="txd:version_struct"/>
</message>
<portType name="echo_version_port_type">
<operation name="echo_version">
<input message="tns:msg_version"/>
<output message="tns:msg_version_struct"/>
</operation>
<operation name="echo_version_r">
<input message="tns:msg_version_struct"/>
<output message="tns:msg_version"/>
</operation>
</portType>
<binding name="echo_version_binding" type="tns:echo_version_port_type">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="rpc"/>
<operation name="echo_version">
<soap:operation soapAction="urn:example.com:simpletype-rpc"/>
<input>
<soap:body use="encoded" namespace="urn:example.com:simpletype-rpc"
encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
</input>
<output>
<soap:body use="encoded" namespace="urn:example.com:simpletype-rpc"
encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
</output>
</operation>
<operation name="echo_version_r">
<soap:operation soapAction="urn:example.com:simpletype-rpc"/>
<input>
<soap:body use="encoded" namespace="urn:example.com:simpletype-rpc"
encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
</input>
<output>
<soap:body use="encoded" namespace="urn:example.com:simpletype-rpc"
encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
</output>
</operation>
</binding>
<service name="echo_version_service">
<port name="echo_version_port" binding="tns:echo_version_binding">
<soap:address location="http://localhost:10080"/>
</port>
</service>
</definitions>

50
test/wsdl/simpletype/rpc/test_rpc.rb Normal file
View file

@ -0,0 +1,50 @@
require 'test/unit'
require 'wsdl/parser'
require 'wsdl/soap/wsdl2ruby'
module WSDL; module SimpleType
class TestRPC < Test::Unit::TestCase
DIR = File.dirname(File.expand_path(__FILE__))
def pathname(filename)
File.join(DIR, filename)
end
def test_rpc
gen = WSDL::SOAP::WSDL2Ruby.new
gen.location = pathname("rpc.wsdl")
gen.basedir = DIR
gen.logger.level = Logger::FATAL
gen.opt['classdef'] = nil
gen.opt['driver'] = nil
gen.opt['client_skelton'] = nil
gen.opt['servant_skelton'] = nil
gen.opt['standalone_server_stub'] = nil
gen.opt['force'] = true
gen.run
compare("expectedEchoVersion.rb", "echo_version.rb")
compare("expectedDriver.rb", "echo_versionDriver.rb")
compare("expectedService.rb", "echo_version_service.rb")
compare("expectedClient.rb", "echo_version_serviceClient.rb")
compare("expectedServant.rb", "echo_versionServant.rb")
File.unlink(pathname("echo_version.rb"))
File.unlink(pathname("echo_versionDriver.rb"))
File.unlink(pathname("echo_version_service.rb"))
File.unlink(pathname("echo_version_serviceClient.rb"))
File.unlink(pathname("echo_versionServant.rb"))
end
def compare(expected, actual)
assert_equal(loadfile(expected), loadfile(actual), actual)
end
def loadfile(file)
File.open(pathname(file)) { |f| f.read }
end
end
end; end