soap4r-sgonyea 1.5.9

data/lib/wsdl/xmlSchema/complexExtension.rb

@@ -0,0 +1,120 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema complexType extension definition for WSDL.
+# 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 'xsd/namedelements'
+
+
+module WSDL
+module XMLSchema
+
+
+class ComplexExtension < Info
+  attr_accessor :base
+  attr_reader :content
+
+  def initialize
+    super
+    @base = nil
+    @basetype = nil
+    @content = nil
+    @attributes = XSD::NamedElements.new
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def elementformdefault
+    parent.elementformdefault
+  end
+
+  def have_any?
+    basetype.have_any? or (content && content.have_any?)
+  end
+
+  def choice?
+    content and content.choice?
+  end
+
+  def elements
+    result = XSD::NamedElements.new
+    result.concat(basetype.elements)
+    result.concat(content.elements) if content
+    result
+  end
+
+  def nested_elements
+    result = XSD::NamedElements.new
+    result.concat(basetype.nested_elements)
+    result.concat(content.nested_elements) if content
+    result
+  end
+
+  def attributes
+    basetype.attributes + @attributes
+  end
+
+  def check_type
+    if @base == ::SOAP::ValueArrayName
+      :TYPE_ARRAY
+    elsif content or !@attributes.empty?
+      :TYPE_STRUCT
+    else
+      basetype.check_type
+    end
+  end
+  
+  def parse_element(element)
+    case element
+    when AllName
+      @content = All.new
+      @content
+    when SequenceName
+      @content = Sequence.new
+      @content
+    when ChoiceName
+      @content = Choice.new
+      @content
+    when AttributeName
+      o = Attribute.new
+      @attributes << o
+      o
+    when AttributeGroupName
+      o = AttributeGroup.new
+      @attributes << o
+      o
+    when AnyAttributeName
+      o = AnyAttribute.new
+      @attributes << o
+      o
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when BaseAttrName
+      @base = value
+    end
+  end
+
+private
+
+  def basetype
+    @basetype ||= root.collect_complextypes[@base]
+    unless @basetype
+      raise RuntimeError.new("base type definition not found: #{@base}")
+    end
+    @basetype
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/complexRestriction.rb

@@ -0,0 +1,105 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema complexType restriction definition for WSDL.
+# 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 'xsd/namedelements'
+
+
+module WSDL
+module XMLSchema
+
+
+class ComplexRestriction < Info
+  attr_accessor :base
+  attr_reader :content
+  attr_reader :attributes
+
+  def initialize
+    super
+    @base = nil
+    @basetype = nil
+    @content = nil
+    @attributes = XSD::NamedElements.new
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def elementformdefault
+    parent.elementformdefault
+  end
+
+  def have_any?
+    @content and @content.have_any?
+  end
+
+  def choice?
+    @content and @content.choice?
+  end
+
+  def elements
+    @content ? @content.elements : XSD::NamedElements::Empty
+  end
+
+  def nested_elements
+    @content ? @content.nested_elements : XSD::NamedElements::Empty
+  end
+
+  def check_type
+    if @base == ::SOAP::ValueArrayName
+      :TYPE_ARRAY
+    else
+      basetype.check_type if basetype
+    end
+  end
+  
+  def parse_element(element)
+    case element
+    when AllName
+      @content = All.new
+      @content
+    when SequenceName
+      @content = Sequence.new
+      @content
+    when ChoiceName
+      @content = Choice.new
+      @content
+    when AttributeName
+      o = Attribute.new
+      @attributes << o
+      o
+    when AttributeGroupName
+      o = AttributeGroup.new
+      @attributes << o
+      o
+    when AnyAttributeName
+      o = AnyAttribute.new
+      @attributes << o
+      o
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when BaseAttrName
+      @base = value
+    end
+  end
+
+private
+
+  def basetype
+    @basetype ||= root.collect_complextypes[@base]
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/complexType.rb

@@ -0,0 +1,194 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema complexType definition for WSDL.
+# 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/xmlSchema/element'
+require 'xsd/namedelements'
+
+
+module WSDL
+module XMLSchema
+
+
+class ComplexType < Info
+  attr_accessor :name
+  attr_accessor :complexcontent
+  attr_accessor :simplecontent
+  attr_reader :content
+  attr_accessor :final
+  attr_accessor :mixed
+  attr_accessor :abstract
+
+  def initialize(name = nil)
+    super()
+    @name = name
+    @complexcontent = nil
+    @simplecontent = nil
+    @content = nil
+    @final = nil
+    @mixed = false
+    @abstract = false
+    @attributes = XSD::NamedElements.new
+  end
+
+  def targetnamespace
+    # inner elements can be qualified
+    # parent.is_a?(WSDL::XMLSchema::Element) ? nil : parent.targetnamespace
+    parent.targetnamespace
+  end
+
+  def elementformdefault
+    parent.elementformdefault
+  end
+
+  def have_any?
+    if c = @complexcontent || @content
+      c.have_any?
+    else
+      false
+    end
+  end
+
+  def choice?
+    if c = @complexcontent || @content
+      c.choice?
+    else
+      false
+    end
+  end
+
+  def base
+    if c = @complexcontent || @simplecontent
+      c.base
+    end
+  end
+
+  def elements
+    if c = @complexcontent || @content
+      c.elements
+    else
+      XSD::NamedElements::Empty
+    end
+  end
+
+  def attributes
+    attrs = nil
+    if @complexcontent
+      attrs = @complexcontent.attributes + @attributes
+    elsif @simplecontent
+      attrs = @simplecontent.attributes + @attributes
+    else
+      attrs = @attributes
+    end
+    found = XSD::NamedElements.new
+    attrs.each do |attr|
+      case attr
+      when Attribute
+        found << attr
+      when AttributeGroup
+        if attr.attributes
+          found.concat(attr.attributes)
+        end
+      when AnyAttribute
+        # ignored
+      else
+        warn("unknown attribute: #{attr}")
+      end
+    end
+    found
+  end
+
+  def nested_elements
+    if c = @complexcontent || @content
+      c.nested_elements
+    else
+      XSD::NamedElements::Empty
+    end
+  end
+
+  def find_element(name)
+    return nil if name.nil?
+    elements.each do |element|
+      return element if name == element.name
+    end
+    nil
+  end
+
+  def find_element_by_name(name)
+    return nil if name.nil?
+    elements.each do |element|
+      return element if name == element.name.name
+    end
+    nil
+  end
+
+  def sequence_elements=(elements)
+    @content = Sequence.new
+    elements.each do |element|
+      @content << element
+    end
+  end
+
+  def all_elements=(elements)
+    @content = All.new
+    elements.each do |element|
+      @content << element
+    end
+  end
+
+  def parse_element(element)
+    case element
+    when AllName
+      @content = All.new
+    when SequenceName
+      @content = Sequence.new
+    when ChoiceName
+      @content = Choice.new
+    when GroupName
+      @content = Group.new
+    when ComplexContentName
+      @complexcontent = ComplexContent.new
+    when SimpleContentName
+      @simplecontent = SimpleContent.new
+    when AttributeName
+      o = Attribute.new
+      @attributes << o
+      o
+    when AttributeGroupName
+      o = AttributeGroup.new
+      @attributes << o
+      o
+    when AnyAttributeName
+      o = AnyAttribute.new
+      @attributes << o
+      o
+    else
+      nil
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when AbstractAttrName
+      @abstract = to_boolean(value)
+    when FinalAttrName
+      @final = value.source
+    when MixedAttrName
+      @mixed = to_boolean(value)
+    when NameAttrName
+      @name = XSD::QName.new(targetnamespace, value.source)
+    else
+      nil
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/content.rb

@@ -0,0 +1,96 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema content base definition for WSDL.
+# 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
+module XMLSchema
+
+
+class Content < Info
+  attr_reader :minoccurs
+  attr_reader :maxoccurs
+  attr_reader :elements
+
+  def initialize
+    super()
+    @minoccurs = 1
+    @maxoccurs = 1
+    @elements = XSD::NamedElements.new
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def elementformdefault
+    parent.elementformdefault
+  end
+
+  def have_any?
+    false
+  end
+
+  def choice?
+    false
+  end
+
+  def map_as_array?
+    maxoccurs.nil? or maxoccurs != 1
+  end
+
+  def nested_elements
+    elements = XSD::NamedElements.new
+    @elements.each do |ele|
+      if ele.respond_to?(:nested_elements)
+        elements.concat(ele.nested_elements)
+      else
+        elements << ele
+      end
+    end
+    elements
+  end
+
+  def <<(element)
+    @elements << element
+  end
+
+  def parse_element(element)
+    case element
+    when ElementName
+      o = Element.new
+      o.form = elementformdefault
+      @elements << o
+      o
+    else
+      nil
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when MaxOccursAttrName
+      if value.source == 'unbounded'
+        @maxoccurs = nil
+      else
+        @maxoccurs = Integer(value.source)
+      end
+      value.source
+    when MinOccursAttrName
+      @minoccurs = Integer(value.source)
+    else
+      nil
+    end
+  end
+end
+
+
+end
+end