soap4r 1.5.5.20061022

data/lib/soap/cgistub.rb

@@ -0,0 +1,9 @@
+# SOAP4R - CGI stub library
+# Copyright (C) 2001, 2003  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/compat'

data/lib/soap/charset.rb

@@ -0,0 +1,9 @@
+# SOAP4R - Charset encoding handler.
+# Copyright (C) 2003  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/compat'

data/lib/soap/compat.rb

@@ -0,0 +1,182 @@
+# SOAP4R - Compatibility definitions.
+# Copyright (C) 2003  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.
+
+
+STDERR.puts "Loading compatibility library..."
+
+
+require 'xsd/qname'
+require 'xsd/ns'
+require 'xsd/charset'
+require 'soap/mapping'
+require 'soap/rpc/rpc'
+require 'soap/rpc/element'
+require 'soap/rpc/driver'
+require 'soap/rpc/cgistub'
+require 'soap/rpc/router'
+require 'soap/rpc/standaloneServer'
+
+
+module SOAP
+
+
+module RPC
+  RubyTypeNamespace = Mapping::RubyTypeNamespace
+  RubyTypeInstanceNamespace = Mapping::RubyTypeInstanceNamespace
+  RubyCustomTypeNamespace = Mapping::RubyCustomTypeNamespace
+  ApacheSOAPTypeNamespace = Mapping::ApacheSOAPTypeNamespace
+
+  DefaultMappingRegistry = Mapping::DefaultRegistry
+
+  def self.obj2soap(*arg); Mapping.obj2soap(*arg); end
+  def self.soap2obj(*arg); Mapping.soap2obj(*arg); end
+  def self.ary2soap(*arg); Mapping.ary2soap(*arg); end
+  def self.ary2md(*arg); Mapping.ary2md(*arg); end
+  def self.fault2exception(*arg); Mapping.fault2exception(*arg); end
+
+  def self.defined_methods(obj)
+    if obj.is_a?(Module)
+      obj.methods - Module.methods
+    else
+      obj.methods - Kernel.instance_methods(true)
+    end
+  end
+end
+
+
+NS = XSD::NS
+Charset = XSD::Charset
+RPCUtils = RPC
+RPCServerException = RPC::ServerException
+RPCRouter = RPC::Router
+
+
+class StandaloneServer < RPC::StandaloneServer
+  def initialize(*arg)
+    super
+    @router = @soaplet.app_scope_router
+    methodDef if respond_to?('methodDef')
+  end
+
+  alias addServant add_servant
+  alias addMethod add_method
+  alias addMethodAs add_method_as
+end
+
+
+class CGIStub < RPC::CGIStub
+  def initialize(*arg)
+    super
+    methodDef if respond_to?('methodDef')
+  end
+
+  alias addServant add_servant
+
+  def addMethod(receiver, methodName, *paramArg)
+    addMethodWithNSAs(@default_namespace, receiver, methodName, methodName, *paramArg)
+  end
+
+  def addMethodAs(receiver, methodName, methodNameAs, *paramArg)
+    addMethodWithNSAs(@default_namespace, receiver, methodName, methodNameAs, *paramArg)
+  end
+
+  def addMethodWithNS(namespace, receiver, methodName, *paramArg)
+    addMethodWithNSAs(namespace, receiver, methodName, methodName, *paramArg)
+  end
+
+  def addMethodWithNSAs(namespace, receiver, methodName, methodNameAs, *paramArg)
+    add_method_with_namespace_as(namespace, receiver, methodName, methodNameAs, *paramArg)
+  end
+end
+
+
+class Driver < RPC::Driver
+  include Logger::Severity
+
+  attr_accessor :logdev
+  alias logDev= logdev=
+  alias logDev logdev
+  alias setWireDumpDev wiredump_dev=
+  alias setDefaultEncodingStyle default_encodingstyle=
+  alias mappingRegistry= mapping_registry=
+  alias mappingRegistry mapping_registry
+
+  def initialize(log, logid, namespace, endpoint_url, httpproxy = nil, soapaction = nil)
+    super(endpoint_url, namespace, soapaction)
+    @logdev = log
+    @logid = logid
+    @logid_prefix = "<#{ @logid }> "
+    self.httpproxy = httpproxy if httpproxy
+    log(INFO) { 'initialize: initializing SOAP driver...' }
+  end
+
+  def invoke(headers, body)
+    log(INFO) { "invoke: invoking message '#{ body.type }'." }
+    super
+  end
+
+  def call(name, *params)
+    log(INFO) { "call: calling method '#{ name }'." }
+    log(DEBUG) { "call: parameters '#{ params.inspect }'." }
+    log(DEBUG) {
+      params = Mapping.obj2soap(params, @mapping_registry).to_a
+      "call: parameters '#{ params.inspect }'."
+    }
+    super
+  end
+
+  def addMethod(name, *params)
+    addMethodWithSOAPActionAs(name, name, nil, *params)
+  end
+
+  def addMethodAs(name_as, name, *params)
+    addMethodWithSOAPActionAs(name_as, name, nil, *params)
+  end
+
+  def addMethodWithSOAPAction(name, soapaction, *params)
+    addMethodWithSOAPActionAs(name, name, soapaction, *params)
+  end
+
+  def addMethodWithSOAPActionAs(name_as, name, soapaction, *params)
+    add_method_with_soapaction_as(name, name_as, soapaction, *params)
+  end
+
+  def setLogDev(logdev)
+    self.logdev = logdev
+  end
+
+private
+
+  def log(sev)
+    @logdev.add(sev, nil, self.class) { @logid_prefix + yield } if @logdev
+  end
+end
+
+
+module RPC
+  class MappingRegistry < SOAP::Mapping::Registry
+    def initialize(*arg)
+      super
+    end
+
+    def add(obj_class, soap_class, factory, info = nil)
+      if (info.size > 1)
+	raise RuntimeError.new("Parameter signature changed.  [namespace, name] should be { :type => XSD::QName.new(namespace, name) } from 1.5.0.")
+      end
+      @map.add(obj_class, soap_class, factory, { :type => info[0] })
+    end
+    alias set add
+  end
+
+  class Router
+    alias mappingRegistry mapping_registry
+    alias mappingRegistry= mapping_registry=
+  end
+end
+
+
+end

data/lib/soap/driver.rb

@@ -0,0 +1,9 @@
+# SOAP4R - SOAP driver
+# Copyright (C) 2003  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/compat'

data/lib/soap/element.rb

@@ -0,0 +1,266 @@
+# SOAP4R - SOAP elements library
+# Copyright (C) 2000, 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 'xsd/qname'
+require 'soap/baseData'
+
+
+module SOAP
+
+
+###
+## SOAP elements
+#
+module SOAPEnvelopeElement; end
+
+class SOAPFault < SOAPStruct
+  include SOAPEnvelopeElement
+  include SOAPCompoundtype
+
+public
+
+  def faultcode
+    self['faultcode']
+  end
+
+  def faultstring
+    self['faultstring']
+  end
+
+  def faultactor
+    self['faultactor']
+  end
+
+  def detail
+    self['detail']
+  end
+
+  def faultcode=(rhs)
+    self['faultcode'] = rhs
+  end
+
+  def faultstring=(rhs)
+    self['faultstring'] = rhs
+  end
+
+  def faultactor=(rhs)
+    self['faultactor'] = rhs
+  end
+
+  def detail=(rhs)
+    self['detail'] = rhs
+  end
+
+  def initialize(faultcode = nil, faultstring = nil, faultactor = nil, detail = nil)
+    super(EleFaultName)
+    @elename = EleFaultName
+    @encodingstyle = EncodingNamespace
+
+    if faultcode
+      self.faultcode = faultcode
+      self.faultstring = faultstring
+      self.faultactor = faultactor
+      self.detail = detail
+      self.faultcode.elename = EleFaultCodeName if self.faultcode
+      self.faultstring.elename = EleFaultStringName if self.faultstring
+      self.faultactor.elename = EleFaultActorName if self.faultactor
+      self.detail.elename = EleFaultDetailName if self.detail
+    end
+    faultcode.parent = self if faultcode
+    faultstring.parent = self if faultstring
+    faultactor.parent = self if faultactor
+    detail.parent = self if detail
+  end
+
+  def encode(generator, ns, attrs = {})
+    SOAPGenerator.assign_ns(attrs, ns, EnvelopeNamespace)
+    SOAPGenerator.assign_ns(attrs, ns, EncodingNamespace)
+    attrs[ns.name(AttrEncodingStyleName)] = EncodingNamespace
+    name = ns.name(@elename)
+    generator.encode_tag(name, attrs)
+    yield(self.faultcode)
+    yield(self.faultstring)
+    yield(self.faultactor)
+    yield(self.detail) if self.detail
+    generator.encode_tag_end(name, true)
+  end
+end
+
+
+class SOAPBody < SOAPStruct
+  include SOAPEnvelopeElement
+
+  def initialize(data = nil, is_fault = false)
+    super(nil)
+    @elename = EleBodyName
+    @encodingstyle = nil
+    if data
+      if data.respond_to?(:elename)
+        add(data.elename.name, data)
+      else
+        data.to_a.each do |datum|
+          add(datum.elename.name, datum)
+        end
+      end
+    end
+    @is_fault = is_fault
+  end
+
+  def encode(generator, ns, attrs = {})
+    name = ns.name(@elename)
+    generator.encode_tag(name, attrs)
+    if @is_fault
+      yield(@data)
+    else
+      @data.each do |data|
+	yield(data)
+      end
+    end
+    generator.encode_tag_end(name, true)
+  end
+
+  def root_node
+    @data.each do |node|
+      if node.root == 1
+	return node
+      end
+    end
+    # No specified root...
+    @data.each do |node|
+      if node.root != 0
+	return node
+      end
+    end
+
+    raise Parser::FormatDecodeError.new('no root element')
+  end
+end
+
+
+class SOAPHeaderItem < XSD::NSDBase
+  include SOAPEnvelopeElement
+  include SOAPCompoundtype
+
+public
+
+  attr_accessor :element
+  attr_accessor :mustunderstand
+  attr_accessor :encodingstyle
+  attr_accessor :actor
+
+  def initialize(element, mustunderstand = true, encodingstyle = nil, actor = nil)
+    super()
+    @type = nil
+    @element = element
+    @mustunderstand = mustunderstand
+    @encodingstyle = encodingstyle
+    @actor = actor
+    element.parent = self if element
+    element.qualified = true
+  end
+
+  def encode(generator, ns, attrs = {})
+    attrs.each do |key, value|
+      @element.extraattr[key] = value
+    end
+    @element.extraattr[AttrMustUnderstandName] = (@mustunderstand ? '1' : '0')
+    if @encodingstyle
+      @element.extraattr[AttrEncodingStyleName] = @encodingstyle
+    end
+    unless @element.encodingstyle
+      @element.encodingstyle = @encodingstyle
+    end
+    if @actor
+      @element.extraattr[AttrActorName] = @actor
+    end
+    yield(@element)
+  end
+end
+
+
+class SOAPHeader < SOAPStruct
+  include SOAPEnvelopeElement
+
+  def initialize
+    super(nil)
+    @elename = EleHeaderName
+    @encodingstyle = nil
+  end
+
+  def encode(generator, ns, attrs = {})
+    name = ns.name(@elename)
+    generator.encode_tag(name, attrs)
+    @data.each do |data|
+      yield(data)
+    end
+    generator.encode_tag_end(name, true)
+  end
+
+  def add(name, value)
+    actor = value.extraattr[AttrActorName]
+    mu = (value.extraattr[AttrMustUnderstandName] == '1')
+    encstyle = value.extraattr[AttrEncodingStyleName]
+    item = SOAPHeaderItem.new(value, mu, encstyle, actor)
+    super(name, item)
+  end
+
+  def length
+    @data.length
+  end
+  alias size length
+end
+
+
+class SOAPEnvelope < XSD::NSDBase
+  include SOAPEnvelopeElement
+  include SOAPCompoundtype
+
+  attr_reader :header
+  attr_reader :body
+  attr_reader :external_content
+
+  def initialize(header = nil, body = nil)
+    super()
+    @type = nil
+    @elename = EleEnvelopeName
+    @encodingstyle = nil
+    @header = header
+    @body = body
+    @external_content = {}
+    header.parent = self if header
+    body.parent = self if body
+  end
+
+  def header=(header)
+    header.parent = self
+    @header = header
+  end
+
+  def body=(body)
+    body.parent = self
+    @body = body
+  end
+
+  def encode(generator, ns, attrs = {})
+    SOAPGenerator.assign_ns(attrs, ns, elename.namespace, SOAPNamespaceTag)
+    name = ns.name(@elename)
+    generator.encode_tag(name, attrs)
+
+    yield(@header) if @header and @header.length > 0
+    yield(@body)
+
+    generator.encode_tag_end(name, true)
+  end
+
+  def to_ary
+    [header, body]
+  end
+end
+
+
+end