soap4r 1.5.5.20061022

data/lib/wsdl/xmlSchema/attribute.rb

@@ -0,0 +1,123 @@
+# WSDL4R - XMLSchema attribute definition for WSDL.
+# Copyright (C) 2002, 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 'wsdl/info'
+
+
+module WSDL
+module XMLSchema
+
+
+class Attribute < Info
+  class << self
+    if RUBY_VERSION > "1.7.0"
+      def attr_reader_ref(symbol)
+        name = symbol.to_s
+        define_method(name) {
+          instance_variable_get("@#{name}") ||
+            (refelement ? refelement.__send__(name) : nil)
+        }
+      end
+    else
+      def attr_reader_ref(symbol)
+        name = symbol.to_s
+        module_eval <<-EOS
+          def #{name}
+            @#{name} || (refelement ? refelement.#{name} : nil)
+          end
+        EOS
+      end
+    end
+  end
+
+  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 :ref
+  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 refelement
+    @refelement ||= root.collect_attributes[@ref]
+  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
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/choice.rb

@@ -0,0 +1,55 @@
+# WSDL4R - XMLSchema complexType definition for WSDL.
+# Copyright (C) 2002, 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 '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 AnyName
+      raise ElementConstraintError.new("duplicated element: any") if @any
+      @any = Any.new
+      @elements << @any
+      @any
+    else
+      super(element)
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/complexContent.rb

@@ -0,0 +1,88 @@
+# WSDL4R - XMLSchema complexContent definition for WSDL.
+# Copyright (C) 2002, 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 '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 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.attributes
+  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 = (value.source == 'true')
+    else
+      nil
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/complexExtension.rb

@@ -0,0 +1,104 @@
+# WSDL4R - XMLSchema complexType extension definition for WSDL.
+# Copyright (C) 2005, 2006  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 attributes
+    basetype.attributes + @attributes
+  end
+
+  def check_type
+    if @base == ::SOAP::ValueArrayName
+      :TYPE_ARRAY
+    elsif content
+      :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
+    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,92 @@
+# WSDL4R - XMLSchema complexType restriction definition for WSDL.
+# Copyright (C) 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 '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 check_type
+    if @base == ::SOAP::ValueArrayName
+      :TYPE_ARRAY
+    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
+    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