soap4r-ng 2.0.1

Sign up to get free protection for your applications and to get access to all the features.
Files changed (164) hide show
  1. checksums.yaml +15 -0
  2. data/bin/wsdl2ruby.rb +140 -0
  3. data/bin/xsd2ruby.rb +92 -0
  4. data/lib/soap/attachment.rb +109 -0
  5. data/lib/soap/attrproxy.rb +35 -0
  6. data/lib/soap/baseData.rb +1095 -0
  7. data/lib/soap/element.rb +278 -0
  8. data/lib/soap/encodingstyle/aspDotNetHandler.rb +208 -0
  9. data/lib/soap/encodingstyle/handler.rb +121 -0
  10. data/lib/soap/encodingstyle/literalHandler.rb +196 -0
  11. data/lib/soap/encodingstyle/soapHandler.rb +560 -0
  12. data/lib/soap/filter.rb +14 -0
  13. data/lib/soap/filter/filterchain.rb +52 -0
  14. data/lib/soap/filter/handler.rb +32 -0
  15. data/lib/soap/filter/streamhandler.rb +30 -0
  16. data/lib/soap/generator.rb +299 -0
  17. data/lib/soap/header/handler.rb +62 -0
  18. data/lib/soap/header/handlerset.rb +71 -0
  19. data/lib/soap/header/mappinghandler.rb +48 -0
  20. data/lib/soap/header/simplehandler.rb +45 -0
  21. data/lib/soap/httpconfigloader.rb +140 -0
  22. data/lib/soap/mapping.rb +13 -0
  23. data/lib/soap/mapping/encodedregistry.rb +541 -0
  24. data/lib/soap/mapping/factory.rb +389 -0
  25. data/lib/soap/mapping/literalregistry.rb +392 -0
  26. data/lib/soap/mapping/mapping.rb +577 -0
  27. data/lib/soap/mapping/registry.rb +296 -0
  28. data/lib/soap/mapping/rubytypeFactory.rb +446 -0
  29. data/lib/soap/mapping/schemadefinition.rb +171 -0
  30. data/lib/soap/mapping/typeMap.rb +107 -0
  31. data/lib/soap/mapping/wsdlencodedregistry.rb +212 -0
  32. data/lib/soap/mapping/wsdlliteralregistry.rb +249 -0
  33. data/lib/soap/marshal.rb +60 -0
  34. data/lib/soap/mimemessage.rb +243 -0
  35. data/lib/soap/nestedexception.rb +43 -0
  36. data/lib/soap/netHttpClient.rb +242 -0
  37. data/lib/soap/ns.rb +39 -0
  38. data/lib/soap/parser.rb +253 -0
  39. data/lib/soap/processor.rb +67 -0
  40. data/lib/soap/property.rb +330 -0
  41. data/lib/soap/proxy.rb +15 -0
  42. data/lib/soap/rpc/cgistub.rb +249 -0
  43. data/lib/soap/rpc/driver.rb +222 -0
  44. data/lib/soap/rpc/element.rb +375 -0
  45. data/lib/soap/rpc/httpserver.rb +144 -0
  46. data/lib/soap/rpc/methodDef.rb +69 -0
  47. data/lib/soap/rpc/proxy.rb +573 -0
  48. data/lib/soap/rpc/router.rb +663 -0
  49. data/lib/soap/rpc/rpc.rb +26 -0
  50. data/lib/soap/rpc/soaplet.rb +201 -0
  51. data/lib/soap/rpc/standaloneServer.rb +44 -0
  52. data/lib/soap/soap.rb +154 -0
  53. data/lib/soap/streamHandler.rb +302 -0
  54. data/lib/soap/version.rb +9 -0
  55. data/lib/soap/wsdlDriver.rb +165 -0
  56. data/lib/wsdl/binding.rb +66 -0
  57. data/lib/wsdl/data.rb +65 -0
  58. data/lib/wsdl/definitions.rb +237 -0
  59. data/lib/wsdl/documentation.rb +33 -0
  60. data/lib/wsdl/import.rb +81 -0
  61. data/lib/wsdl/importer.rb +39 -0
  62. data/lib/wsdl/info.rb +51 -0
  63. data/lib/wsdl/message.rb +55 -0
  64. data/lib/wsdl/operation.rb +152 -0
  65. data/lib/wsdl/operationBinding.rb +241 -0
  66. data/lib/wsdl/param.rb +94 -0
  67. data/lib/wsdl/parser.rb +180 -0
  68. data/lib/wsdl/part.rb +53 -0
  69. data/lib/wsdl/port.rb +67 -0
  70. data/lib/wsdl/portType.rb +76 -0
  71. data/lib/wsdl/service.rb +62 -0
  72. data/lib/wsdl/soap/address.rb +41 -0
  73. data/lib/wsdl/soap/binding.rb +50 -0
  74. data/lib/wsdl/soap/body.rb +59 -0
  75. data/lib/wsdl/soap/cgiStubCreator.rb +93 -0
  76. data/lib/wsdl/soap/classDefCreator.rb +434 -0
  77. data/lib/wsdl/soap/classDefCreatorSupport.rb +241 -0
  78. data/lib/wsdl/soap/classNameCreator.rb +55 -0
  79. data/lib/wsdl/soap/clientSkeltonCreator.rb +107 -0
  80. data/lib/wsdl/soap/complexType.rb +174 -0
  81. data/lib/wsdl/soap/data.rb +43 -0
  82. data/lib/wsdl/soap/definitions.rb +201 -0
  83. data/lib/wsdl/soap/driverCreator.rb +121 -0
  84. data/lib/wsdl/soap/element.rb +34 -0
  85. data/lib/wsdl/soap/encodedMappingRegistryCreator.rb +74 -0
  86. data/lib/wsdl/soap/fault.rb +57 -0
  87. data/lib/wsdl/soap/header.rb +87 -0
  88. data/lib/wsdl/soap/headerfault.rb +57 -0
  89. data/lib/wsdl/soap/literalMappingRegistryCreator.rb +116 -0
  90. data/lib/wsdl/soap/mappingRegistryCreator.rb +59 -0
  91. data/lib/wsdl/soap/mappingRegistryCreatorSupport.rb +377 -0
  92. data/lib/wsdl/soap/methodDefCreator.rb +200 -0
  93. data/lib/wsdl/soap/operation.rb +113 -0
  94. data/lib/wsdl/soap/servantSkeltonCreator.rb +92 -0
  95. data/lib/wsdl/soap/servletStubCreator.rb +105 -0
  96. data/lib/wsdl/soap/standaloneServerStubCreator.rb +101 -0
  97. data/lib/wsdl/soap/wsdl2ruby.rb +227 -0
  98. data/lib/wsdl/types.rb +45 -0
  99. data/lib/wsdl/wsdl.rb +25 -0
  100. data/lib/wsdl/xmlSchema/all.rb +25 -0
  101. data/lib/wsdl/xmlSchema/annotation.rb +35 -0
  102. data/lib/wsdl/xmlSchema/any.rb +62 -0
  103. data/lib/wsdl/xmlSchema/anyAttribute.rb +49 -0
  104. data/lib/wsdl/xmlSchema/attribute.rb +105 -0
  105. data/lib/wsdl/xmlSchema/attributeGroup.rb +69 -0
  106. data/lib/wsdl/xmlSchema/choice.rb +59 -0
  107. data/lib/wsdl/xmlSchema/complexContent.rb +98 -0
  108. data/lib/wsdl/xmlSchema/complexExtension.rb +120 -0
  109. data/lib/wsdl/xmlSchema/complexRestriction.rb +105 -0
  110. data/lib/wsdl/xmlSchema/complexType.rb +194 -0
  111. data/lib/wsdl/xmlSchema/content.rb +96 -0
  112. data/lib/wsdl/xmlSchema/data.rb +117 -0
  113. data/lib/wsdl/xmlSchema/element.rb +154 -0
  114. data/lib/wsdl/xmlSchema/enumeration.rb +37 -0
  115. data/lib/wsdl/xmlSchema/fractiondigits.rb +38 -0
  116. data/lib/wsdl/xmlSchema/group.rb +101 -0
  117. data/lib/wsdl/xmlSchema/import.rb +53 -0
  118. data/lib/wsdl/xmlSchema/importHandler.rb +45 -0
  119. data/lib/wsdl/xmlSchema/importer.rb +103 -0
  120. data/lib/wsdl/xmlSchema/include.rb +48 -0
  121. data/lib/wsdl/xmlSchema/length.rb +38 -0
  122. data/lib/wsdl/xmlSchema/list.rb +49 -0
  123. data/lib/wsdl/xmlSchema/maxexclusive.rb +38 -0
  124. data/lib/wsdl/xmlSchema/maxinclusive.rb +38 -0
  125. data/lib/wsdl/xmlSchema/maxlength.rb +38 -0
  126. data/lib/wsdl/xmlSchema/minexclusive.rb +38 -0
  127. data/lib/wsdl/xmlSchema/mininclusive.rb +38 -0
  128. data/lib/wsdl/xmlSchema/minlength.rb +38 -0
  129. data/lib/wsdl/xmlSchema/parser.rb +168 -0
  130. data/lib/wsdl/xmlSchema/pattern.rb +37 -0
  131. data/lib/wsdl/xmlSchema/ref.rb +34 -0
  132. data/lib/wsdl/xmlSchema/schema.rb +179 -0
  133. data/lib/wsdl/xmlSchema/sequence.rb +55 -0
  134. data/lib/wsdl/xmlSchema/simpleContent.rb +70 -0
  135. data/lib/wsdl/xmlSchema/simpleExtension.rb +63 -0
  136. data/lib/wsdl/xmlSchema/simpleRestriction.rb +133 -0
  137. data/lib/wsdl/xmlSchema/simpleType.rb +88 -0
  138. data/lib/wsdl/xmlSchema/totaldigits.rb +38 -0
  139. data/lib/wsdl/xmlSchema/union.rb +36 -0
  140. data/lib/wsdl/xmlSchema/unique.rb +35 -0
  141. data/lib/wsdl/xmlSchema/whitespace.rb +38 -0
  142. data/lib/wsdl/xmlSchema/xsd2ruby.rb +177 -0
  143. data/lib/xsd/charset.rb +190 -0
  144. data/lib/xsd/codegen.rb +13 -0
  145. data/lib/xsd/codegen/classdef.rb +209 -0
  146. data/lib/xsd/codegen/commentdef.rb +35 -0
  147. data/lib/xsd/codegen/gensupport.rb +277 -0
  148. data/lib/xsd/codegen/methoddef.rb +71 -0
  149. data/lib/xsd/codegen/moduledef.rb +209 -0
  150. data/lib/xsd/datatypes.rb +1465 -0
  151. data/lib/xsd/datatypes1999.rb +21 -0
  152. data/lib/xsd/iconvcharset.rb +33 -0
  153. data/lib/xsd/mapping.rb +69 -0
  154. data/lib/xsd/namedelements.rb +133 -0
  155. data/lib/xsd/ns.rb +183 -0
  156. data/lib/xsd/qname.rb +80 -0
  157. data/lib/xsd/xmlparser.rb +81 -0
  158. data/lib/xsd/xmlparser/libxmlparser.rb +135 -0
  159. data/lib/xsd/xmlparser/nokogiriparser.rb +58 -0
  160. data/lib/xsd/xmlparser/ogaparser.rb +63 -0
  161. data/lib/xsd/xmlparser/oxparser.rb +101 -0
  162. data/lib/xsd/xmlparser/parser.rb +101 -0
  163. data/lib/xsd/xmlparser/rexmlparser.rb +58 -0
  164. metadata +236 -0
@@ -0,0 +1,296 @@
1
+ # encoding: UTF-8
2
+ # SOAP4R - Mapping registry.
3
+ # Copyright (C) 2000-2007 NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
4
+
5
+ # This program is copyrighted free software by NAKAMURA, Hiroshi. You can
6
+ # redistribute it and/or modify it under the same terms of Ruby's license;
7
+ # either the dual license version in 2003, or any later version.
8
+
9
+
10
+ require 'soap/baseData'
11
+ require 'soap/mapping/mapping'
12
+
13
+
14
+ module SOAP
15
+
16
+
17
+ module Marshallable
18
+ # @@type_ns = Mapping::RubyCustomTypeNamespace
19
+ end
20
+
21
+
22
+ module Mapping
23
+
24
+
25
+ module MappedException; end
26
+
27
+
28
+ RubyTypeName = XSD::QName.new(RubyTypeInstanceNamespace, 'rubyType')
29
+ RubyExtendName = XSD::QName.new(RubyTypeInstanceNamespace, 'extends')
30
+ RubyIVarName = XSD::QName.new(RubyTypeInstanceNamespace, 'ivars')
31
+
32
+
33
+ # For anyType object: SOAP::Mapping::Object not ::Object
34
+ class Object
35
+ def initialize
36
+ @__xmlele_type = {}
37
+ @__xmlele = []
38
+ @__xmlattr = {}
39
+ end
40
+
41
+ def inspect
42
+ sprintf("#<%s:0x%x%s>", self.class.name, __id__,
43
+ @__xmlele.collect { |name, value| " #{name}=#{value.inspect}" }.join)
44
+ end
45
+
46
+ def __xmlattr
47
+ @__xmlattr
48
+ end
49
+
50
+ def __xmlele
51
+ @__xmlele
52
+ end
53
+
54
+ def [](qname)
55
+ qname = Mapping.to_qname(qname)
56
+ @__xmlele.each do |k, v|
57
+ return v if k == qname
58
+ end
59
+ # fallback
60
+ @__xmlele.each do |k, v|
61
+ return v if k.name == qname.name
62
+ end
63
+ nil
64
+ end
65
+
66
+ def []=(qname, value)
67
+ qname = Mapping.to_qname(qname)
68
+ found = false
69
+ @__xmlele.each do |pair|
70
+ if pair[0] == qname
71
+ found = true
72
+ pair[1] = value
73
+ end
74
+ end
75
+ unless found
76
+ __define_attr_accessor(qname)
77
+ @__xmlele << [qname, value]
78
+ end
79
+ @__xmlele_type[qname] = :single
80
+ end
81
+
82
+ def __add_xmlele_value(qname, value)
83
+ found = false
84
+ @__xmlele.map! do |k, v|
85
+ if k == qname
86
+ found = true
87
+ [k, __set_xmlele_value(k, v, value)]
88
+ else
89
+ [k, v]
90
+ end
91
+ end
92
+ unless found
93
+ __define_attr_accessor(qname)
94
+ @__xmlele << [qname, value]
95
+ @__xmlele_type[qname] = :single
96
+ end
97
+ value
98
+ end
99
+
100
+ def marshal_load(dumpobj)
101
+ __import(dumpobj)
102
+ end
103
+
104
+ private
105
+
106
+ # Mapping.define_attr_accessor calls define_method with proc and it exhausts
107
+ # much memory for each singleton Object. just instance_eval instead of it.
108
+ def __define_attr_accessor(qname)
109
+ # untaint depends GenSupport.safemethodname
110
+ name = Mapping.safemethodname(qname.name).untaint
111
+ # untaint depends on QName#dump
112
+ qnamedump = qname.dump.untaint
113
+ singleton = false
114
+ unless self.respond_to?(name)
115
+ singleton = true
116
+ instance_eval <<-EOS
117
+ def #{name}
118
+ self[#{qnamedump}]
119
+ end
120
+ EOS
121
+ end
122
+ unless self.respond_to?(name + "=")
123
+ singleton = true
124
+ instance_eval <<-EOS
125
+ def #{name}=(value)
126
+ self[#{qnamedump}] = value
127
+ end
128
+ EOS
129
+ end
130
+ if singleton && !self.respond_to?(:marshal_dump)
131
+ instance_eval <<-EOS
132
+ def marshal_dump
133
+ __export
134
+ end
135
+ EOS
136
+ end
137
+ end
138
+
139
+ def __set_xmlele_value(key, org, value)
140
+ case @__xmlele_type[key]
141
+ when :multi
142
+ org << value
143
+ org
144
+ when :single
145
+ @__xmlele_type[key] = :multi
146
+ [org, value]
147
+ else
148
+ raise RuntimeError.new("unknown type")
149
+ end
150
+ end
151
+
152
+ def __export
153
+ dumpobj = ::SOAP::Mapping::Object.new
154
+ dumpobj.__xmlele.replace(@__xmlele)
155
+ dumpobj.__xmlattr.replace(@__xmlattr)
156
+ dumpobj
157
+ end
158
+
159
+ def __import(dumpobj)
160
+ @__xmlele_type = {}
161
+ @__xmlele = []
162
+ @__xmlattr = {}
163
+ dumpobj.__xmlele.each do |qname, value|
164
+ __add_xmlele_value(qname, value)
165
+ end
166
+ @__xmlattr.replace(dumpobj.__xmlattr)
167
+ end
168
+ end
169
+
170
+
171
+ class MappingError < Error; end
172
+
173
+
174
+ module RegistrySupport
175
+ def initialize
176
+ super()
177
+ @class_schema_definition = {}
178
+ @class_elename_schema_definition = {}
179
+ @elename_schema_definition = {}
180
+ @type_schema_definition = {}
181
+ end
182
+
183
+ def register(definition)
184
+ obj_class = definition[:class]
185
+ definition = Mapping.create_schema_definition(obj_class, definition)
186
+ # give complexType definition a priority explicitly
187
+ if !@class_schema_definition[obj_class] or definition.type
188
+ @class_schema_definition[obj_class] = definition
189
+ end
190
+ if definition.elename and !definition.is_anonymous?
191
+ @class_elename_schema_definition[obj_class] = definition
192
+ @elename_schema_definition[definition.elename] = definition
193
+ end
194
+ if definition.type
195
+ @type_schema_definition[definition.type] = definition
196
+ end
197
+ end
198
+
199
+ def schema_definition_from_class(klass)
200
+ @class_schema_definition[klass] || Mapping.schema_definition_classdef(klass)
201
+ end
202
+
203
+ def elename_schema_definition_from_class(klass)
204
+ @class_elename_schema_definition[klass]
205
+ end
206
+
207
+ def schema_definition_from_elename(qname)
208
+ @elename_schema_definition[qname]
209
+ end
210
+
211
+ def schema_definition_from_type(type)
212
+ @type_schema_definition[type]
213
+ end
214
+
215
+ def find_node_definition(node)
216
+ schema_definition_from_type(node.type) ||
217
+ schema_definition_from_elename(node.elename) ||
218
+ find_schema_definition(node.elename.name) ||
219
+ find_schema_definition(node.type.name)
220
+ end
221
+
222
+ def find_schema_definition(name)
223
+ return nil unless name
224
+ typestr = Mapping.safeconstname(name)
225
+ obj_class = Mapping.class_from_name(typestr)
226
+ if obj_class
227
+ schema_definition_from_class(obj_class)
228
+ end
229
+ end
230
+
231
+ def add_attributes2soap(obj, ele)
232
+ if definition = Mapping.schema_definition_classdef(obj.class)
233
+ add_definedattributes2soap(obj, ele, definition)
234
+ elsif obj.respond_to?(:__xmlattr)
235
+ obj.__xmlattr.each do |key, value|
236
+ ele.extraattr[key] = value
237
+ end
238
+ end
239
+ end
240
+
241
+ def add_definedattributes2soap(obj, ele, typedef)
242
+ if typedef.attributes
243
+ typedef.attributes.each do |qname, param|
244
+ value = get_xmlattr_value(obj, qname)
245
+ ele.extraattr[qname] = value unless value.nil?
246
+ end
247
+ end
248
+ end
249
+
250
+ def get_xmlattr_value(obj, qname)
251
+ attrname = 'xmlattr_' + qname.name
252
+ value = Mapping.get_attribute(obj, attrname)
253
+ if value.nil?
254
+ attrname = Mapping.safemethodname('xmlattr_' + qname.name)
255
+ value = Mapping.get_attribute(obj, attrname)
256
+ end
257
+ value
258
+ end
259
+
260
+ def base2soap(obj, type, qualified = nil)
261
+ return SOAPNil.new if obj.nil?
262
+ soap_obj = nil
263
+ if type <= XSD::XSDString
264
+ str = XSD::Charset.encoding_conv(obj.to_s, Mapping.external_ces,
265
+ XSD::Charset.encoding)
266
+ soap_obj = type.new(str)
267
+ else
268
+ soap_obj = type.new(obj)
269
+ end
270
+ soap_obj.qualified = qualified
271
+ soap_obj
272
+ end
273
+
274
+ def base2obj(value, klass)
275
+ v = if value.respond_to?(:data)
276
+ value.data
277
+ elsif value.respond_to?(:text)
278
+ value.text
279
+ else
280
+ nil
281
+ end
282
+ if value.is_a?(klass)
283
+ v
284
+ else
285
+ klass.to_data(v)
286
+ end
287
+ end
288
+
289
+ def is_stubobj_elements_for_array(vars)
290
+ vars.keys.size == 1 and vars.values[0].is_a?(::Array)
291
+ end
292
+ end
293
+
294
+
295
+ end
296
+ end
@@ -0,0 +1,446 @@
1
+ # encoding: UTF-8
2
+ # SOAP4R - Ruby type mapping factory.
3
+ # Copyright (C) 2000-2007 NAKAMURA, Hiroshi <nahi@ruby-lang.org>.
4
+
5
+ # This program is copyrighted free software by NAKAMURA, Hiroshi. You can
6
+ # redistribute it and/or modify it under the same terms of Ruby's license;
7
+ # either the dual license version in 2003, or any later version.
8
+
9
+
10
+ module SOAP
11
+ module Mapping
12
+
13
+
14
+ class RubytypeFactory < Factory
15
+ TYPE_STRING = XSD::QName.new(RubyTypeNamespace, 'String')
16
+ TYPE_TIME = XSD::QName.new(RubyTypeNamespace, 'Time')
17
+ TYPE_ARRAY = XSD::QName.new(RubyTypeNamespace, 'Array')
18
+ TYPE_REGEXP = XSD::QName.new(RubyTypeNamespace, 'Regexp')
19
+ TYPE_RANGE = XSD::QName.new(RubyTypeNamespace, 'Range')
20
+ TYPE_CLASS = XSD::QName.new(RubyTypeNamespace, 'Class')
21
+ TYPE_MODULE = XSD::QName.new(RubyTypeNamespace, 'Module')
22
+ TYPE_SYMBOL = XSD::QName.new(RubyTypeNamespace, 'Symbol')
23
+ TYPE_STRUCT = XSD::QName.new(RubyTypeNamespace, 'Struct')
24
+ TYPE_HASH = XSD::QName.new(RubyTypeNamespace, 'Map')
25
+
26
+ def initialize(config = {})
27
+ @config = config
28
+ @allow_untyped_struct = @config.key?(:allow_untyped_struct) ?
29
+ @config[:allow_untyped_struct] : true
30
+ @allow_original_mapping = @config.key?(:allow_original_mapping) ?
31
+ @config[:allow_original_mapping] : false
32
+ @string_factory = StringFactory_.new(true)
33
+ @basetype_factory = BasetypeFactory_.new(true)
34
+ @datetime_factory = DateTimeFactory_.new(true)
35
+ @array_factory = ArrayFactory_.new(true)
36
+ @hash_factory = HashFactory_.new(true)
37
+ end
38
+
39
+ def obj2soap(soap_class, obj, info, map)
40
+ param = nil
41
+ case obj
42
+ when ::String
43
+ unless @allow_original_mapping
44
+ return nil
45
+ end
46
+ param = @string_factory.obj2soap(SOAPString, obj, info, map)
47
+ if obj.class != String
48
+ param.extraattr[RubyTypeName] = obj.class.name
49
+ end
50
+ addiv2soapattr(param, obj, map)
51
+ when ::Time
52
+ unless @allow_original_mapping
53
+ return nil
54
+ end
55
+ param = @datetime_factory.obj2soap(SOAPDateTime, obj, info, map)
56
+ if obj.class != Time
57
+ param.extraattr[RubyTypeName] = obj.class.name
58
+ end
59
+ addiv2soapattr(param, obj, map)
60
+ when ::Array
61
+ unless @allow_original_mapping
62
+ return nil
63
+ end
64
+ param = @array_factory.obj2soap(nil, obj, info, map)
65
+ if obj.class != Array
66
+ param.extraattr[RubyTypeName] = obj.class.name
67
+ end
68
+ addiv2soapattr(param, obj, map)
69
+ when ::NilClass
70
+ unless @allow_original_mapping
71
+ return nil
72
+ end
73
+ param = @basetype_factory.obj2soap(SOAPNil, obj, info, map)
74
+ addiv2soapattr(param, obj, map)
75
+ when ::FalseClass, ::TrueClass
76
+ unless @allow_original_mapping
77
+ return nil
78
+ end
79
+ param = @basetype_factory.obj2soap(SOAPBoolean, obj, info, map)
80
+ addiv2soapattr(param, obj, map)
81
+ when ::Integer
82
+ unless @allow_original_mapping
83
+ return nil
84
+ end
85
+ param = @basetype_factory.obj2soap(SOAPInt, obj, info, map)
86
+ param ||= @basetype_factory.obj2soap(SOAPInteger, obj, info, map)
87
+ param ||= @basetype_factory.obj2soap(SOAPDecimal, obj, info, map)
88
+ addiv2soapattr(param, obj, map)
89
+ when ::Float
90
+ unless @allow_original_mapping
91
+ return nil
92
+ end
93
+ param = @basetype_factory.obj2soap(SOAPDouble, obj, info, map)
94
+ if obj.class != Float
95
+ param.extraattr[RubyTypeName] = obj.class.name
96
+ end
97
+ addiv2soapattr(param, obj, map)
98
+ when ::Hash
99
+ unless @allow_original_mapping
100
+ return nil
101
+ end
102
+ if obj.respond_to?(:default_proc) && obj.default_proc
103
+ raise TypeError.new("cannot dump hash with default proc")
104
+ end
105
+ param = SOAPStruct.new(TYPE_HASH)
106
+ mark_marshalled_obj(obj, param)
107
+ if obj.class != Hash
108
+ param.extraattr[RubyTypeName] = obj.class.name
109
+ end
110
+ obj.each do |key, value|
111
+ elem = SOAPStruct.new # Undefined type.
112
+ elem.add("key", Mapping._obj2soap(key, map))
113
+ elem.add("value", Mapping._obj2soap(value, map))
114
+ param.add("item", elem)
115
+ end
116
+ param.add('default', Mapping._obj2soap(obj.default, map))
117
+ addiv2soapattr(param, obj, map)
118
+ when ::Regexp
119
+ unless @allow_original_mapping
120
+ return nil
121
+ end
122
+ param = SOAPStruct.new(TYPE_REGEXP)
123
+ mark_marshalled_obj(obj, param)
124
+ if obj.class != Regexp
125
+ param.extraattr[RubyTypeName] = obj.class.name
126
+ end
127
+ param.add('source', SOAPBase64.new(obj.source))
128
+ options = obj.options
129
+ param.add('options', SOAPInt.new(options))
130
+ addiv2soapattr(param, obj, map)
131
+ when ::Range
132
+ unless @allow_original_mapping
133
+ return nil
134
+ end
135
+ param = SOAPStruct.new(TYPE_RANGE)
136
+ mark_marshalled_obj(obj, param)
137
+ if obj.class != Range
138
+ param.extraattr[RubyTypeName] = obj.class.name
139
+ end
140
+ param.add('begin', Mapping._obj2soap(obj.begin, map))
141
+ param.add('end', Mapping._obj2soap(obj.end, map))
142
+ param.add('exclude_end', SOAP::SOAPBoolean.new(obj.exclude_end?))
143
+ addiv2soapattr(param, obj, map)
144
+ when ::Class
145
+ unless @allow_original_mapping
146
+ return nil
147
+ end
148
+ if obj.to_s[0] == ?#
149
+ raise TypeError.new("can't dump anonymous class #{obj}")
150
+ end
151
+ param = SOAPStruct.new(TYPE_CLASS)
152
+ mark_marshalled_obj(obj, param)
153
+ param.add('name', SOAPString.new(obj.name))
154
+ addiv2soapattr(param, obj, map)
155
+ when ::Module
156
+ unless @allow_original_mapping
157
+ return nil
158
+ end
159
+ if obj.to_s[0] == ?#
160
+ raise TypeError.new("can't dump anonymous module #{obj}")
161
+ end
162
+ param = SOAPStruct.new(TYPE_MODULE)
163
+ mark_marshalled_obj(obj, param)
164
+ param.add('name', SOAPString.new(obj.name))
165
+ addiv2soapattr(param, obj, map)
166
+ when ::Symbol
167
+ unless @allow_original_mapping
168
+ return nil
169
+ end
170
+ param = SOAPStruct.new(TYPE_SYMBOL)
171
+ mark_marshalled_obj(obj, param)
172
+ param.add('id', SOAPString.new(obj.id2name))
173
+ addiv2soapattr(param, obj, map)
174
+ when ::Struct
175
+ unless @allow_original_mapping
176
+ # treat it as an user defined class. [ruby-talk:104980]
177
+ #param = unknownobj2soap(soap_class, obj, info, map)
178
+ param = SOAPStruct.new(XSD::AnyTypeName)
179
+ mark_marshalled_obj(obj, param)
180
+ obj.members.each do |member|
181
+ param.add(Mapping.name2elename(member),
182
+ Mapping._obj2soap(obj[member], map))
183
+ end
184
+ else
185
+ param = SOAPStruct.new(TYPE_STRUCT)
186
+ mark_marshalled_obj(obj, param)
187
+ param.add('type', ele_type = SOAPString.new(obj.class.to_s))
188
+ ele_member = SOAPStruct.new
189
+ obj.members.each do |member|
190
+ ele_member.add(Mapping.name2elename(member),
191
+ Mapping._obj2soap(obj[member], map))
192
+ end
193
+ param.add('member', ele_member)
194
+ addiv2soapattr(param, obj, map)
195
+ end
196
+ when ::IO, ::Binding, ::Data, ::Dir, ::File::Stat,
197
+ ::MatchData, Method, ::Proc, ::Process::Status, ::Thread,
198
+ ::ThreadGroup, ::UnboundMethod
199
+ return nil
200
+ when ::SOAP::Mapping::Object
201
+ param = SOAPStruct.new(XSD::AnyTypeName)
202
+ mark_marshalled_obj(obj, param)
203
+ obj.__xmlele.each do |key, value|
204
+ param.add(key.name, Mapping._obj2soap(value, map))
205
+ end
206
+ obj.__xmlattr.each do |key, value|
207
+ param.extraattr[key] = value
208
+ end
209
+ when ::Exception
210
+ typestr = Mapping.name2elename(obj.class.to_s)
211
+ param = SOAPStruct.new(XSD::QName.new(RubyTypeNamespace, typestr))
212
+ mark_marshalled_obj(obj, param)
213
+ param.add('message', Mapping._obj2soap(obj.message, map))
214
+ param.add('backtrace', Mapping._obj2soap(obj.backtrace, map))
215
+ addiv2soapattr(param, obj, map)
216
+ else
217
+ param = unknownobj2soap(soap_class, obj, info, map)
218
+ end
219
+ param
220
+ end
221
+
222
+ def soap2obj(obj_class, node, info, map)
223
+ rubytype = node.extraattr[RubyTypeName]
224
+ if rubytype or node.type.namespace == RubyTypeNamespace
225
+ rubytype2obj(node, info, map, rubytype)
226
+ elsif node.type == XSD::AnyTypeName or node.type == XSD::AnySimpleTypeName
227
+ anytype2obj(node, info, map)
228
+ else
229
+ unknowntype2obj(node, info, map)
230
+ end
231
+ end
232
+
233
+ private
234
+
235
+ def addiv2soapattr(node, obj, map)
236
+ return if obj.instance_variables.empty?
237
+ ivars = SOAPStruct.new # Undefined type.
238
+ setiv2soap(ivars, obj, map)
239
+ node.extraattr[RubyIVarName] = ivars
240
+ end
241
+
242
+ def unknownobj2soap(soap_class, obj, info, map)
243
+ if anonymous_class?(obj)
244
+ raise TypeError.new("can't dump anonymous class #{obj}")
245
+ end
246
+ singleton_class = class << obj; self; end
247
+ if !obj.singleton_methods(true).empty? or
248
+ !singleton_class.instance_variables.empty?
249
+ raise TypeError.new("singleton can't be dumped #{obj}")
250
+ end
251
+ if !(singleton_class.ancestors - obj.class.ancestors).empty?
252
+ typestr = Mapping.name2elename(obj.class.to_s)
253
+ type = XSD::QName.new(RubyTypeNamespace, typestr)
254
+ else
255
+ type = Mapping.class2element(obj.class)
256
+ end
257
+ param = SOAPStruct.new(type)
258
+ mark_marshalled_obj(obj, param)
259
+ setiv2soap(param, obj, map)
260
+ param
261
+ end
262
+
263
+ def rubytype2obj(node, info, map, rubytype)
264
+ klass = rubytype ? Mapping.class_from_name(rubytype) : nil
265
+ obj = nil
266
+ case node
267
+ when SOAPString
268
+ return @string_factory.soap2obj(klass || String, node, info, map)
269
+ when SOAPDateTime
270
+ #return @datetime_factory.soap2obj(klass || Time, node, info, map)
271
+ klass ||= Time
272
+ t = node.to_time
273
+ arg = [t.year, t.month, t.mday, t.hour, t.min, t.sec, t.usec]
274
+ obj = t.gmt? ? klass.gm(*arg) : klass.local(*arg)
275
+ mark_unmarshalled_obj(node, obj)
276
+ return true, obj
277
+ when SOAPArray
278
+ return @array_factory.soap2obj(klass || Array, node, info, map)
279
+ when SOAPNil, SOAPBoolean, SOAPInt, SOAPInteger, SOAPDecimal, SOAPDouble
280
+ return @basetype_factory.soap2obj(nil, node, info, map)
281
+ when SOAPStruct
282
+ return rubytypestruct2obj(node, info, map, rubytype)
283
+ else
284
+ raise
285
+ end
286
+ end
287
+
288
+ def rubytypestruct2obj(node, info, map, rubytype)
289
+ klass = rubytype ? Mapping.class_from_name(rubytype) : nil
290
+ obj = nil
291
+ case node.type
292
+ when TYPE_HASH
293
+ klass = rubytype ? Mapping.class_from_name(rubytype) : Hash
294
+ obj = Mapping.create_empty_object(klass)
295
+ mark_unmarshalled_obj(node, obj)
296
+ node.each do |key, value|
297
+ next unless key == 'item'
298
+ obj[Mapping._soap2obj(value['key'], map)] =
299
+ Mapping._soap2obj(value['value'], map)
300
+ end
301
+ if node.key?('default')
302
+ obj.default = Mapping._soap2obj(node['default'], map)
303
+ end
304
+ when TYPE_REGEXP
305
+ klass = rubytype ? Mapping.class_from_name(rubytype) : Regexp
306
+ obj = Mapping.create_empty_object(klass)
307
+ mark_unmarshalled_obj(node, obj)
308
+ source = node['source'].string
309
+ options = node['options'].data || 0
310
+ Regexp.instance_method(:initialize).bind(obj).call(source, options)
311
+ when TYPE_RANGE
312
+ klass = rubytype ? Mapping.class_from_name(rubytype) : Range
313
+ obj = Mapping.create_empty_object(klass)
314
+ mark_unmarshalled_obj(node, obj)
315
+ first = Mapping._soap2obj(node['begin'], map)
316
+ last = Mapping._soap2obj(node['end'], map)
317
+ exclude_end = node['exclude_end'].data
318
+ Range.instance_method(:initialize).bind(obj).call(first, last, exclude_end)
319
+ when TYPE_CLASS
320
+ obj = Mapping.class_from_name(node['name'].data)
321
+ when TYPE_MODULE
322
+ obj = Mapping.class_from_name(node['name'].data)
323
+ when TYPE_SYMBOL
324
+ obj = node['id'].data.intern
325
+ when TYPE_STRUCT
326
+ typestr = Mapping.elename2name(node['type'].data)
327
+ klass = Mapping.class_from_name(typestr)
328
+ if klass.nil?
329
+ return false
330
+ end
331
+ unless klass <= ::Struct
332
+ return false
333
+ end
334
+ obj = Mapping.create_empty_object(klass)
335
+ mark_unmarshalled_obj(node, obj)
336
+ node['member'].each do |name, value|
337
+ obj[Mapping.elename2name(name)] = Mapping._soap2obj(value, map)
338
+ end
339
+ else
340
+ return unknowntype2obj(node, info, map)
341
+ end
342
+ return true, obj
343
+ end
344
+
345
+ def anytype2obj(node, info, map)
346
+ case node
347
+ when SOAPBasetype
348
+ return true, node.data
349
+ when SOAPStruct
350
+ klass = ::SOAP::Mapping::Object
351
+ obj = klass.new
352
+ mark_unmarshalled_obj(node, obj)
353
+ node.each do |name, value|
354
+ obj.__add_xmlele_value(XSD::QName.new(nil, name),
355
+ Mapping._soap2obj(value, map))
356
+ end
357
+ unless node.extraattr.empty?
358
+ obj.instance_variable_set('@__xmlattr', node.extraattr)
359
+ end
360
+ return true, obj
361
+ else
362
+ return false
363
+ end
364
+ end
365
+
366
+ def unknowntype2obj(node, info, map)
367
+ case node
368
+ when SOAPBasetype
369
+ return true, node.data
370
+ when SOAPArray
371
+ return @array_factory.soap2obj(Array, node, info, map)
372
+ when SOAPStruct
373
+ obj = unknownstruct2obj(node, info, map)
374
+ return true, obj if obj
375
+ if !@allow_untyped_struct
376
+ return false
377
+ end
378
+ return anytype2obj(node, info, map)
379
+ else
380
+ # Basetype which is not defined...
381
+ return false
382
+ end
383
+ end
384
+
385
+ def unknownstruct2obj(node, info, map)
386
+ unless node.type.name
387
+ return nil
388
+ end
389
+ typestr = Mapping.elename2name(node.type.name)
390
+ klass = Mapping.class_from_name(typestr)
391
+ if klass.respond_to?(:soap_marshallable) and !klass.soap_marshallable
392
+ return nil
393
+ end
394
+ if klass.nil? and @allow_untyped_struct
395
+ klass = Mapping.class_from_name(typestr, true) # lenient
396
+ end
397
+ if klass.nil?
398
+ return nil
399
+ end
400
+ if klass <= ::Exception
401
+ return exception2obj(klass, node, map)
402
+ end
403
+ klass_type = Mapping.class2qname(klass)
404
+ return nil unless node.type.match(klass_type)
405
+ obj = nil
406
+ begin
407
+ obj = Mapping.create_empty_object(klass)
408
+ rescue
409
+ # type name "data" tries Data.new which raises TypeError
410
+ nil
411
+ end
412
+ mark_unmarshalled_obj(node, obj)
413
+ setiv2obj(obj, node, map)
414
+ obj
415
+ end
416
+
417
+ def exception2obj(klass, node, map)
418
+ message = Mapping._soap2obj(node['message'], map)
419
+ backtrace = Mapping._soap2obj(node['backtrace'], map)
420
+ obj = Mapping.create_empty_object(klass)
421
+ obj = obj.exception(message)
422
+ mark_unmarshalled_obj(node, obj)
423
+ obj.set_backtrace(backtrace)
424
+ obj
425
+ end
426
+
427
+ # Only creates empty array. Do String#replace it with real string.
428
+ def array2obj(node, map, rubytype)
429
+ klass = rubytype ? Mapping.class_from_name(rubytype) : Array
430
+ obj = Mapping.create_empty_object(klass)
431
+ mark_unmarshalled_obj(node, obj)
432
+ obj
433
+ end
434
+
435
+ # Only creates empty string. Do String#replace it with real string.
436
+ def string2obj(node, map, rubytype)
437
+ klass = rubytype ? Mapping.class_from_name(rubytype) : String
438
+ obj = Mapping.create_empty_object(klass)
439
+ mark_unmarshalled_obj(node, obj)
440
+ obj
441
+ end
442
+ end
443
+
444
+
445
+ end
446
+ end