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