soybean 1.0.0

data/vendor/soap4r/wsdl/documentation.rb

@@ -0,0 +1,33 @@
+# encoding: ASCII-8BIT
+# WSDL4R - WSDL SOAP documentation element.
+# Copyright (C) 2000-2007  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 'wsdl/info'
+
+
+module WSDL
+
+
+class Documentation < Info
+  def initialize
+    super
+  end
+
+  def parse_element(element)
+    # Accepts any element.
+    self
+  end
+
+  def parse_attr(attr, value)
+    # Accepts any attribute.
+    true
+  end
+end
+
+
+end

data/vendor/soap4r/wsdl/import.rb

@@ -0,0 +1,81 @@
+# encoding: ASCII-8BIT
+# WSDL4R - WSDL import definition.
+# Copyright (C) 2000-2007  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 'wsdl/info'
+require 'wsdl/importer'
+
+
+module WSDL
+
+
+class Import < Info
+  attr_reader :namespace
+  attr_reader :location
+  attr_reader :content
+
+  def initialize
+    super
+    @namespace = nil
+    @location = nil
+    @content = nil
+    @web_client = nil
+  end
+
+  def parse_element(element)
+    case element
+    when DocumentationName
+      o = Documentation.new
+      o
+    else
+      nil
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when NamespaceAttrName
+      @namespace = value.source
+      if @content
+	@content.targetnamespace = @namespace
+      end
+      @namespace
+    when LocationAttrName
+      @location = URI.parse(value.source)
+      if @location.relative? and !parent.location.nil? and
+          !parent.location.relative?
+        @location = parent.location + @location
+      end
+      if root.importedschema.key?(@location)
+        @content = root.importedschema[@location]
+      else
+        root.importedschema[@location] = nil      # placeholder
+        @content = import(@location)
+        if @content.is_a?(Definitions)
+          @content.root = root
+          if @namespace
+            @content.targetnamespace = @namespace
+          end
+        end
+        root.importedschema[@location] = @content
+      end
+      @location
+    else
+      nil
+    end
+  end
+
+private
+
+  def import(location)
+    Importer.import(location, root)
+  end
+end
+
+
+end

data/vendor/soap4r/wsdl/importer.rb

@@ -0,0 +1,39 @@
+# encoding: ASCII-8BIT
+# WSDL4R - WSDL importer library.
+# Copyright (C) 2000-2007  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 'wsdl/xml_schema/importer'
+require 'wsdl/parser'
+
+
+module WSDL
+
+
+class Importer < WSDL::XMLSchema::Importer
+  def self.import(location, originalroot = nil)
+    new.import(location, originalroot)
+  end
+
+private
+
+  def parse(content, location, originalroot)
+    opt = {
+      :location => location,
+      :originalroot => originalroot
+    }
+    begin
+      WSDL::Parser.new(opt).parse(content)
+    rescue WSDL::Parser::ParseError
+      super(content, location, originalroot)
+    end
+  end
+
+end
+
+
+end

data/vendor/soap4r/wsdl/info.rb

@@ -0,0 +1,51 @@
+# encoding: ASCII-8BIT
+# WSDL4R - WSDL information base.
+# Copyright (C) 2000-2007  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.
+
+
+module WSDL
+
+
+class Info
+  attr_accessor :root
+  attr_accessor :parent
+  attr_accessor :id
+
+  def initialize
+    @root = nil
+    @parent = nil
+    @id = nil
+  end
+
+  def inspect
+    if self.respond_to?(:name)
+      sprintf("#<%s:0x%x %s>", self.class.name, __id__, self.name)
+    else
+      sprintf("#<%s:0x%x>", self.class.name, __id__)
+    end
+  end
+
+  def parse_element(element); end	# abstract
+  
+  def parse_attr(attr, value); end	# abstract
+
+  def parse_epilogue; end		# abstract
+
+private
+
+  def to_int(value)
+    Integer(value.source)
+  end
+
+  def to_boolean(value)
+    s = value.source
+    s == "true" or s == "1"
+  end
+end
+
+
+end

data/vendor/soap4r/wsdl/message.rb

@@ -0,0 +1,55 @@
+# encoding: ASCII-8BIT
+# WSDL4R - WSDL message definition.
+# Copyright (C) 2000-2007  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 'wsdl/info'
+
+
+module WSDL
+
+
+class Message < Info
+  attr_reader :name	# required
+  attr_reader :parts
+
+  def initialize
+    super
+    @name = nil
+    @parts = []
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def parse_element(element)
+    case element
+    when PartName
+      o = Part.new
+      @parts << o
+      o
+    when DocumentationName
+      o = Documentation.new
+      o
+    else
+      nil
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when NameAttrName
+      @name = XSD::QName.new(parent.targetnamespace, value.source)
+    else
+      nil
+    end
+  end
+end
+
+
+end

data/vendor/soap4r/wsdl/operation.rb

@@ -0,0 +1,152 @@
+# encoding: ASCII-8BIT
+# WSDL4R - WSDL operation definition.
+# Copyright (C) 2000-2007  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 'wsdl/info'
+
+
+module WSDL
+
+
+class Operation < Info
+  attr_reader :name		# required
+  attr_reader :parameter_order	# optional
+  attr_reader :input
+  attr_reader :output
+  attr_reader :fault
+  attr_reader :type		# required
+
+  def initialize
+    super
+    @name = nil
+    @type = nil
+    @parameter_order = nil
+    @input = nil
+    @output = nil
+    @fault = []
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def operationname
+    as_operationname(@name)
+  end
+
+  EMPTY = [].freeze
+  # TODO: remove once after OperationInfo created
+  def inputparts
+    if message = input_message
+      sort_parts(message.parts)
+    else
+      EMPTY
+    end
+  end
+
+  def inputname
+    if input
+      as_operationname(input.name ? input.name.name : @name)
+    else
+      nil
+    end
+  end
+
+  # TODO: remove once after OperationInfo created
+  def outputparts
+    if message = output_message
+      sort_parts(message.parts)
+    else
+      EMPTY
+    end
+  end
+
+  def outputname
+    if output
+      as_operationname(output.name ? output.name.name : @name + 'Response')
+    else
+      nil
+    end
+  end
+
+  def parse_element(element)
+    case element
+    when InputName
+      o = Param.new
+      @input = o
+      o
+    when OutputName
+      o = Param.new
+      @output = o
+      o
+    when FaultName
+      o = Param.new
+      @fault << o
+      o
+    when DocumentationName
+      o = Documentation.new
+      o
+    else
+      nil
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when NameAttrName
+      @name = value.source
+    when TypeAttrName
+      @type = value
+    when ParameterOrderAttrName
+      @parameter_order = value.source.split(/\s+/)
+    else
+      nil
+    end
+  end
+
+private
+
+  def input_message
+    if input and message = input.find_message
+      message
+    else
+      nil
+    end
+  end
+
+  def output_message
+    if output and message = output.find_message
+      message
+    else
+      nil
+    end
+  end
+
+  def sort_parts(parts)
+    return parts.dup unless parameter_order
+    result = []
+    parameter_order.each do |orderitem|
+      if (ele = parts.find { |part| part.name == orderitem })
+	result << ele
+      end
+    end
+    if result.length == 0
+      return parts.dup
+    end
+    # result length can be shorter than parts's.
+    # return part must not be a part of the parameterOrder.
+    result
+  end
+
+  def as_operationname(name)
+    XSD::QName.new(targetnamespace, name)
+  end
+end
+
+
+end

data/vendor/soap4r/wsdl/operation_binding.rb

@@ -0,0 +1,241 @@
+# encoding: ASCII-8BIT
+# WSDL4R - WSDL bound operation definition.
+# Copyright (C) 2000-2007  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 'wsdl/info'
+
+
+module WSDL
+
+
+class OperationBinding < Info
+  attr_reader :name		# required
+  attr_reader :input
+  attr_reader :output
+  attr_reader :fault
+  attr_reader :soapoperation
+
+  class OperationInfo
+    attr_reader :boundid
+    attr_reader :qname
+    attr_reader :style
+    attr_accessor :inputuse
+    attr_accessor :outputuse
+    attr_reader :parts
+    attr_reader :faults
+
+    def initialize(boundid, qname, style, inputuse, outputuse)
+      @boundid = boundid
+      @qname = qname
+      @style = style
+      @inputuse = inputuse
+      @outputuse = outputuse
+      @parts = []
+      @faults = {}
+    end
+  end
+
+  class Part
+    attr_reader :io_type
+    attr_reader :name
+    attr_reader :type
+    attr_reader :element
+
+    def initialize(io_type, name, type, element)
+      @io_type = io_type
+      @name = name
+      @type = type
+      @element = element
+    end
+  end
+
+  class BoundId
+    attr_reader :name
+    attr_reader :soapaction
+
+    def initialize(name, soapaction)
+      @name = name
+      @soapaction = soapaction
+    end
+
+    def ==(rhs)
+      !rhs.nil? and @name == rhs.name and @soapaction == rhs.soapaction
+    end
+
+    def eql?(rhs)
+      (self == rhs)
+    end
+
+    def hash
+      @name.hash ^ @soapaction.hash
+    end
+  end
+
+  def initialize
+    super
+    @name = nil
+    @input = nil
+    @output = nil
+    @fault = []
+    @soapoperation = nil
+  end
+
+  def operation_info
+    qname = soapoperation_name()
+    style = soapoperation_style()
+    use_input = soapbody_use(@input)
+    use_output = soapbody_use(@output)
+    info = OperationInfo.new(boundid, qname, style, use_input, use_output)
+    op = find_operation()
+    if style == :rpc
+      info.parts.concat(collect_rpcparameter(op))
+    else
+      info.parts.concat(collect_documentparameter(op))
+    end
+    @fault.each do |fault|
+      op_fault = {}
+      soapfault = fault.soapfault
+      next if soapfault.nil?
+      op_fault[:ns] = fault.name.namespace
+      op_fault[:name] = fault.name.name
+      op_fault[:namespace] = soapfault.namespace
+      op_fault[:use] = soapfault.use || "literal"
+      op_fault[:encodingstyle] = soapfault.encodingstyle || "document"
+      info.faults[fault.name] = op_fault
+    end
+    info
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def porttype
+    root.porttype(parent.type)
+  end
+
+  def boundid
+    BoundId.new(name, soapaction)
+  end
+
+  def find_operation
+    porttype.operations.each do |op|
+      next if op.name != @name
+      next if op.input and @input and op.input.name and @input.name and
+        op.input.name != @input.name
+      next if op.output and @output and op.output.name and @output.name and
+        op.output.name != @output.name
+      return op
+    end
+    raise RuntimeError.new("#{@name} not found")
+  end
+
+  def soapoperation_name
+    op_name = find_operation.operationname
+    if @input and @input.soapbody and @input.soapbody.namespace
+      op_name = XSD::QName.new(@input.soapbody.namespace, op_name.name)
+    end
+    op_name
+  end
+
+  def soapoperation_style
+    style = nil
+    if @soapoperation
+      style = @soapoperation.operation_style
+    elsif parent.soapbinding
+      style = parent.soapbinding.style
+    else
+      raise TypeError.new("operation style definition not found")
+    end
+    style || :document
+  end
+
+  def soapaction
+    if @soapoperation
+      @soapoperation.soapaction
+    else
+      nil
+    end
+  end
+
+  def parse_element(element)
+    case element
+    when InputName
+      o = Param.new
+      @input = o
+      o
+    when OutputName
+      o = Param.new
+      @output = o
+      o
+    when FaultName
+      o = Param.new
+      @fault << o
+      o
+    when SOAPOperationName
+      o = WSDL::SOAP::Operation.new
+      @soapoperation = o
+      o
+    when DocumentationName
+      o = Documentation.new
+      o
+    else
+      nil
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when NameAttrName
+      @name = value.source
+    else
+      nil
+    end
+  end
+
+private
+
+  def soapbody_use(param)
+    param ? param.soapbody_use : nil
+  end
+
+  def collect_rpcparameter(operation)
+    result = operation.inputparts.collect { |part|
+      Part.new(:in, part.name, part.type, part.element)
+    }
+    outparts = operation.outputparts
+    if outparts.size > 0
+      retval = outparts[0]
+      result << Part.new(:retval, retval.name, retval.type, retval.element)
+      cdr(outparts).each { |part|
+	result << Part.new(:out, part.name, part.type, part.element)
+      }
+    end
+    result
+  end
+
+  def collect_documentparameter(operation)
+    param = []
+    operation.inputparts.each do |input|
+      param << Part.new(:in, input.name, input.type, input.element)
+    end
+    operation.outputparts.each do |output|
+      param << Part.new(:out, output.name, output.type, output.element)
+    end
+    param
+  end
+
+  def cdr(ary)
+    result = ary.dup
+    result.shift
+    result
+  end
+end
+
+
+end