1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
require 'soap/marshal'
include SOAP
class DummyStruct
include Enumerable
QName = XSD::QName.new(nil, 'DummyStruct')
def initialize(hash = nil)
@hash = {}
@hash.update(hash) if hash
end
def [](key)
@hash[key]
end
def []=(key, value)
@hash[key] = value
end
def each
@hash.each do |key, value|
yield(key, value)
end
end
end
class DummyStructFactory
def obj2soap(soap_class, obj, info, map)
unless obj.is_a?(DummyStruct)
return nil
end
soap_obj = soap_class.new(DummyStruct::QName)
obj.each do |key, value|
soap_obj[key] = SOAPString.new(value.to_s)
end
soap_obj
end
def soap2obj(obj_class, node, info, map)
unless node.type == DummyStruct::QName
return false
end
obj = obj_class.new
node.each do |key, value|
obj[key] = value.data
end
return true, obj
end
end
class ExplicitTypedArrayFactory < SOAP::Mapping::Factory
def obj2soap(soap_class, obj, info, map)
unless obj.respond_to?(:arytype)
return nil
end
soap_obj = soap_class.new(ValueArrayName, 1, obj.arytype)
mark_marshalled_obj(obj, soap_obj)
obj.each do |item|
soap_obj.add(Mapping._obj2soap(item, map))
end
soap_obj
end
# let default TypedArrayFactory handle that.
def soap2obj(obj_class, node, info, map)
return false
end
end
map = Mapping::Registry.new
map.set(DummyStruct, SOAPStruct, DummyStructFactory.new)
map.set(Array, SOAPArray, ExplicitTypedArrayFactory.new)
puts
puts "== DummyStruct =="
puts
obj = DummyStruct.new('family' => 'Na', 'given' => 'Hi')
puts marshalledstring = SOAPMarshal.marshal(obj, map)
p SOAPMarshal.unmarshal(marshalledstring, map)
puts
puts "== Custom array =="
puts
obj1 = [1, 2, 3]
obj2 = [4, 5, 6]
def obj1.arytype
XSD::XSDInt::Type
end
puts marshalledstring = SOAPMarshal.marshal(obj1, map)
p SOAPMarshal.unmarshal(marshalledstring, map)
puts marshalledstring = SOAPMarshal.marshal(obj2, map)
p SOAPMarshal.unmarshal(marshalledstring, map)
|
