214 lines
4.9 KiB
Ruby
214 lines
4.9 KiB
Ruby
# SOAP4R - ASP.NET EncodingStyle handler library
|
|
# 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;
|
|
# either the dual license version in 2003, or any later version.
|
|
|
|
|
|
require 'soap/encodingstyle/handler'
|
|
|
|
|
|
module SOAP
|
|
module EncodingStyle
|
|
|
|
|
|
class ASPDotNetHandler < Handler
|
|
Namespace = 'http://tempuri.org/ASP.NET'
|
|
add_handler
|
|
|
|
def initialize(charset = nil)
|
|
super(charset)
|
|
@textbuf = ''
|
|
@decode_typemap = nil
|
|
end
|
|
|
|
|
|
###
|
|
## encode interface.
|
|
#
|
|
def encode_data(generator, ns, data, parent)
|
|
attrs = {}
|
|
# 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)
|
|
when XSD::XSDAnySimpleType
|
|
generator.encode_tag(name, attrs)
|
|
generator.encode_string(data.to_s)
|
|
when SOAPStruct
|
|
generator.encode_tag(name, attrs)
|
|
data.each do |key, value|
|
|
generator.encode_child(ns, value, data)
|
|
end
|
|
when SOAPArray
|
|
generator.encode_tag(name, attrs)
|
|
data.traverse do |child, *rank|
|
|
data.position = nil
|
|
generator.encode_child(ns, child, data)
|
|
end
|
|
else
|
|
raise EncodingStyleError.new(
|
|
"unknown object:#{data} in this encodingStyle")
|
|
end
|
|
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
|
|
|
|
|
|
###
|
|
## decode interface.
|
|
#
|
|
class SOAPTemporalObject
|
|
attr_accessor :parent
|
|
|
|
def initialize
|
|
@parent = nil
|
|
end
|
|
end
|
|
|
|
class SOAPUnknown < SOAPTemporalObject
|
|
def initialize(handler, elename)
|
|
super()
|
|
@handler = handler
|
|
@elename = elename
|
|
end
|
|
|
|
def as_struct
|
|
o = SOAPStruct.decode(@elename, XSD::AnyTypeName)
|
|
o.parent = @parent
|
|
o.type.name = @name
|
|
@handler.decode_parent(@parent, o)
|
|
o
|
|
end
|
|
|
|
def as_string
|
|
o = SOAPString.decode(@elename)
|
|
o.parent = @parent
|
|
@handler.decode_parent(@parent, o)
|
|
o
|
|
end
|
|
|
|
def as_nil
|
|
o = SOAPNil.decode(@elename)
|
|
o.parent = @parent
|
|
@handler.decode_parent(@parent, o)
|
|
o
|
|
end
|
|
end
|
|
|
|
def decode_tag(ns, elename, attrs, parent)
|
|
@textbuf = ''
|
|
o = SOAPUnknown.new(self, elename)
|
|
o.parent = parent
|
|
o
|
|
end
|
|
|
|
def decode_tag_end(ns, node)
|
|
o = node.node
|
|
if o.is_a?(SOAPUnknown)
|
|
newnode = o.as_string
|
|
# if /\A\s*\z/ =~ @textbuf
|
|
# o.as_struct
|
|
# else
|
|
# o.as_string
|
|
# end
|
|
node.replace_node(newnode)
|
|
o = node.node
|
|
end
|
|
|
|
decode_textbuf(o)
|
|
@textbuf = ''
|
|
end
|
|
|
|
def decode_text(ns, text)
|
|
# @textbuf is set at decode_tag_end.
|
|
@textbuf << text
|
|
end
|
|
|
|
def decode_prologue
|
|
end
|
|
|
|
def decode_epilogue
|
|
end
|
|
|
|
def decode_parent(parent, node)
|
|
case parent.node
|
|
when SOAPUnknown
|
|
newparent = parent.node.as_struct
|
|
node.parent = newparent
|
|
parent.replace_node(newparent)
|
|
decode_parent(parent, node)
|
|
|
|
when SOAPStruct
|
|
data = parent.node[node.elename.name]
|
|
case data
|
|
when nil
|
|
parent.node.add(node.elename.name, node)
|
|
when SOAPArray
|
|
name, type_ns = node.elename.name, node.type.namespace
|
|
data.add(node)
|
|
node.elename, node.type.namespace = name, type_ns
|
|
else
|
|
parent.node[node.elename.name] = SOAPArray.new
|
|
name, type_ns = data.elename.name, data.type.namespace
|
|
parent.node[node.elename.name].add(data)
|
|
data.elename.name, data.type.namespace = name, type_ns
|
|
name, type_ns = node.elename.name, node.type.namespace
|
|
parent.node[node.elename.name].add(node)
|
|
node.elename.name, node.type.namespace = name, type_ns
|
|
end
|
|
|
|
when SOAPArray
|
|
if node.position
|
|
parent.node[*(decode_arypos(node.position))] = node
|
|
parent.node.sparse = true
|
|
else
|
|
parent.node.add(node)
|
|
end
|
|
|
|
when SOAPBasetype
|
|
raise EncodingStyleError.new("SOAP base type must not have a child")
|
|
|
|
else
|
|
# SOAPUnknown does not have parent.
|
|
# raise EncodingStyleError.new("illegal parent: #{parent}")
|
|
end
|
|
end
|
|
|
|
private
|
|
|
|
def decode_textbuf(node)
|
|
if node.is_a?(XSD::XSDString)
|
|
if @charset
|
|
node.set(XSD::Charset.encoding_from_xml(@textbuf, @charset))
|
|
else
|
|
node.set(@textbuf)
|
|
end
|
|
else
|
|
# Nothing to do...
|
|
end
|
|
end
|
|
end
|
|
|
|
ASPDotNetHandler.new
|
|
|
|
|
|
end
|
|
end
|