DefV-soap4r 1.5.8.2

data/lib/wsdl/xmlSchema/any.rb

@@ -0,0 +1,61 @@
+# WSDL4R - XMLSchema any 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 Any < Info
+  attr_accessor :maxoccurs
+  attr_accessor :minoccurs
+  attr_accessor :namespace
+  attr_accessor :process_contents
+
+  def initialize
+    super()
+    @maxoccurs = 1
+    @minoccurs = 1
+    @namespace = '##any'
+    @process_contents = 'strict'
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def parse_element(element)
+    nil
+  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)
+    when NamespaceAttrName
+      @namespace = value.source
+    when ProcessContentsAttrName
+      @process_contents = value.source
+    else
+      nil
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/anyAttribute.rb

@@ -0,0 +1,48 @@
+# WSDL4R - XMLSchema anyAttribute 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 AnyAttribute < Info
+  attr_accessor :namespace
+  attr_accessor :processcontents
+
+  def initialize
+    super()
+    @namespace = '##any'
+    @processcontents = 'strict'
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def parse_element(element)
+    nil
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when NamespaceAttrName
+      @namespace = value.source
+    when ProcessContentsAttrName
+      @processcontents = value.source
+    else
+      nil
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/attribute.rb

@@ -0,0 +1,104 @@
+# WSDL4R - XMLSchema attribute 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/ref'
+
+
+module WSDL
+module XMLSchema
+
+
+class Attribute < Info
+  include Ref
+
+  attr_writer :use
+  attr_writer :form
+  attr_writer :name
+  attr_writer :type
+  attr_writer :local_simpletype
+  attr_writer :default
+  attr_writer :fixed
+
+  attr_reader_ref :use
+  attr_reader_ref :form
+  attr_reader_ref :name
+  attr_reader_ref :type
+  attr_reader_ref :local_simpletype
+  attr_reader_ref :default
+  attr_reader_ref :fixed
+
+  attr_accessor :arytype
+
+  def initialize
+    super
+    @use = nil
+    @form = nil
+    @name = nil
+    @type = nil
+    @local_simpletype = nil
+    @default = nil
+    @fixed = nil
+    @ref = nil
+    @refelement = nil
+    @arytype = nil
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def parse_element(element)
+    case element
+    when SimpleTypeName
+      @local_simpletype = SimpleType.new
+      @local_simpletype
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when RefAttrName
+      @ref = value
+    when UseAttrName
+      @use = value.source
+    when FormAttrName
+      @form = value.source
+    when NameAttrName
+      if directelement?
+        @name = XSD::QName.new(targetnamespace, value.source)
+      else
+        @name = XSD::QName.new(nil, value.source)
+      end
+    when TypeAttrName
+      @type = value
+    when DefaultAttrName
+      @default = value.source
+    when FixedAttrName
+      @fixed = value.source
+    when ArrayTypeAttrName
+      @arytype = value
+    else
+      nil
+    end
+  end
+
+private
+
+  def directelement?
+    parent.is_a?(Schema)
+  end
+
+  def refelement
+    @refelement ||= root.collect_attributes[@ref]
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/attributeGroup.rb

@@ -0,0 +1,68 @@
+# WSDL4R - XMLSchema attributeGroup 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/ref'
+
+
+module WSDL
+module XMLSchema
+
+
+class AttributeGroup < Info
+  include Ref
+
+  attr_writer :name	# required
+  attr_writer :attributes
+
+  attr_reader_ref :name
+  attr_reader_ref :attributes
+
+  def initialize
+    super
+    @name = nil
+    @attributes = nil
+    @ref = nil
+    @refelement = nil
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def parse_element(element)
+    case element
+    when AttributeName
+      @attributes ||= XSD::NamedElements.new
+      o = Attribute.new
+      @attributes << o
+      o
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when NameAttrName
+      @name = XSD::QName.new(targetnamespace, value.source)
+    when RefAttrName
+      @ref = value
+    else
+      nil
+    end
+  end
+
+private
+
+  def refelement
+    @refelement ||= root.collect_attributegroups[@ref]
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/choice.rb

@@ -0,0 +1,58 @@
+# 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/xmlSchema/content'
+
+
+module WSDL
+module XMLSchema
+
+
+class Choice < Content
+  attr_reader :any
+
+  def initialize
+    super()
+    @any = nil
+  end
+
+  def have_any?
+    !!@any
+  end
+
+  def choice?
+    true
+  end
+
+  def parse_element(element)
+    case element
+    when SequenceName
+      o = Sequence.new
+      @elements << o
+      o
+    when ChoiceName
+      o = Choice.new
+      @elements << o
+      o
+    when GroupName
+      o = Group.new
+      @elements << o
+      o
+    when AnyName
+      @any = Any.new
+      @elements << @any
+      @any
+    else
+      super(element)
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/complexContent.rb

@@ -0,0 +1,97 @@
+# WSDL4R - XMLSchema complexContent 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 ComplexContent < Info
+  attr_accessor :restriction
+  attr_accessor :extension
+  attr_accessor :mixed
+
+  def initialize
+    super
+    @restriction = nil
+    @extension = nil
+    @mixed = false
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def elementformdefault
+    parent.elementformdefault
+  end
+
+  def content
+    @extension || @restriction
+  end
+
+  def base
+    content ? content.base : nil
+  end
+
+  def have_any?
+    content ? content.have_any? : nil
+  end
+
+  def choice?
+    content ? content.choice? : nil
+  end
+
+  def elements
+    content ? content.elements : XSD::NamedElements::Empty
+  end
+
+  def attributes
+    content ? content.attributes : XSD::NamedElements::Empty
+  end
+
+  def nested_elements
+    # restrict and extension does not have particle.
+    content ? content.nested_elements : XSD::NamedElements::Empty
+  end
+
+  def check_type
+    if content
+      content.check_type
+    else
+      raise ArgumentError.new("incomplete complexContent")
+    end
+  end
+
+  def parse_element(element)
+    case element
+    when RestrictionName
+      raise ArgumentError.new("incomplete complexContent") if content
+      @restriction = ComplexRestriction.new
+    when ExtensionName
+      raise ArgumentError.new("incomplete complexContent") if content
+      @extension = ComplexExtension.new
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when MixedAttrName
+      @mixed = to_boolean(value)
+    else
+      nil
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/complexExtension.rb

@@ -0,0 +1,119 @@
+# 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