72 lines
2.1 KiB
Ruby
72 lines
2.1 KiB
Ruby
=begin
|
|
SOAP4R - Marshalling/Unmarshalling Ruby's object using SOAP Encoding.
|
|
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
|
|
|
|
|
|
# The original version of the marshal.rb to marshal/unmarshal Ruby's object
|
|
# using SOAP Encoding was written by Michael Neumann. His valuable comments
|
|
# and his program inspired me to write this. Thanks.
|
|
|
|
|
|
require "soap/mapping"
|
|
require "soap/processor"
|
|
|
|
|
|
module SOAP
|
|
|
|
|
|
module Marshal
|
|
# Trying xsd:dateTime data to be recovered as aTime. aDateTime if it fails.
|
|
MarshalMappingRegistry = Mapping::Registry.new(:allow_original_mapping => true)
|
|
MarshalMappingRegistry.add(
|
|
Time,
|
|
::SOAP::SOAPDateTime,
|
|
::SOAP::Mapping::Registry::DateTimeFactory
|
|
)
|
|
|
|
class << self
|
|
public
|
|
def dump(obj, io = nil)
|
|
marshal(obj, MarshalMappingRegistry, io)
|
|
end
|
|
|
|
def load(stream)
|
|
unmarshal(stream, MarshalMappingRegistry)
|
|
end
|
|
|
|
def marshal(obj, mapping_registry = MarshalMappingRegistry, io = nil)
|
|
elename = Mapping.name2elename(obj.class.to_s)
|
|
soap_obj = Mapping.obj2soap(obj, mapping_registry)
|
|
body = SOAPBody.new
|
|
body.add(elename, soap_obj)
|
|
SOAP::Processor.marshal(nil, body, {}, io)
|
|
end
|
|
|
|
def unmarshal(stream, mapping_registry = MarshalMappingRegistry)
|
|
header, body = SOAP::Processor.unmarshal(stream)
|
|
#Mapping.soap2obj(body.root_node, mapping_registry)
|
|
Mapping.soap2obj(body.root_node, mapping_registry)
|
|
end
|
|
end
|
|
end
|
|
|
|
|
|
end
|
|
|
|
|
|
SOAPMarshal = SOAP::Marshal
|