soap4r-ng 2.0.1

data/lib/wsdl/xmlSchema/sequence.rb

@@ -0,0 +1,55 @@
+# encoding: UTF-8
+# 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 Sequence < Content
+  attr_reader :any
+
+  def initialize
+    super()
+    @any = nil
+  end
+
+  def have_any?
+    !!@any
+  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/simpleContent.rb

@@ -0,0 +1,70 @@
+# encoding: UTF-8
+# WSDL4R - XMLSchema simpleContent 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 SimpleContent < Info
+  attr_reader :restriction
+  attr_reader :extension
+
+  def check_lexical_format(value)
+    check(value)
+  end
+
+  def initialize
+    super
+    @restriction = nil
+    @extension = nil
+  end
+
+  def base
+    content.base
+  end
+
+  def attributes
+    content.attributes
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def parse_element(element)
+    case element
+    when RestrictionName
+      @restriction = SimpleRestriction.new
+      @restriction
+    when ExtensionName
+      @extension = SimpleExtension.new
+      @extension
+    end
+  end
+
+private
+
+  def content
+    @restriction || @extension
+  end
+
+  def check(value)
+    unless content.valid?(value)
+      raise XSD::ValueSpaceError.new("#{@name}: cannot accept '#{value}'")
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/simpleExtension.rb

@@ -0,0 +1,63 @@
+# encoding: UTF-8
+# WSDL4R - XMLSchema simpleType 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 SimpleExtension < Info
+  attr_reader :base
+  attr_reader :attributes
+
+  def initialize
+    super
+    @base = nil
+    @attributes = XSD::NamedElements.new
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+  
+  def valid?(value)
+    true
+  end
+
+  def parse_element(element)
+    case element
+    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
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/simpleRestriction.rb

@@ -0,0 +1,133 @@
+# encoding: UTF-8
+# WSDL4R - XMLSchema simpleContent 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 SimpleRestriction < Info
+  attr_reader :base
+  attr_accessor :length
+  attr_accessor :minlength
+  attr_accessor :maxlength
+  attr_accessor :pattern
+  attr_reader :enumeration
+  attr_accessor :whitespace
+  attr_accessor :maxinclusive
+  attr_accessor :maxexclusive
+  attr_accessor :minexclusive
+  attr_accessor :mininclusive
+  attr_accessor :totaldigits
+  attr_accessor :fractiondigits
+  attr_reader :fixed
+  attr_reader :attributes
+
+  def initialize
+    super
+    @base = nil
+    @enumeration = []   # NamedElements?
+    @length = nil
+    @maxlength = nil
+    @minlength = nil
+    @pattern = nil
+    @fixed = {}
+    @attributes = XSD::NamedElements.new
+  end
+  
+  def valid?(value)
+    return false unless check_restriction(value)
+    return false unless check_length(value)
+    return false unless check_maxlength(value)
+    return false unless check_minlength(value)
+    return false unless check_pattern(value)
+    true
+  end
+
+  def enumeration?
+    !@enumeration.empty?
+  end
+
+  def parse_element(element)
+    case element
+    when LengthName
+      Length.new
+    when MinLengthName
+      MinLength.new
+    when MaxLengthName
+      MaxLength.new
+    when PatternName
+      Pattern.new
+    when EnumerationName
+      Enumeration.new
+    when WhiteSpaceName
+      WhiteSpace.new
+    when MaxInclusiveName
+      MaxInclusive.new
+    when MaxExclusiveName
+      MaxExclusive.new
+    when MinExclusiveName
+      MinExclusive.new
+    when MinInclusiveName
+      MinInclusive.new
+    when TotalDigitsName
+      TotalDigits.new
+    when FractionDigitsName
+      FractionDigits.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
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when BaseAttrName
+      @base = value
+    end
+  end
+
+private
+
+  def check_restriction(value)
+    @enumeration.empty? or @enumeration.include?(value)
+  end
+
+  def check_length(value)
+    @length.nil? or value.size == @length
+  end
+
+  def check_maxlength(value)
+    @maxlength.nil? or value.size <= @maxlength
+  end
+
+  def check_minlength(value)
+    @minlength.nil? or value.size >= @minlength
+  end
+
+  def check_pattern(value)
+    @pattern.nil? or @pattern =~ value
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/simpleType.rb

@@ -0,0 +1,88 @@
+# encoding: UTF-8
+# WSDL4R - XMLSchema simpleType 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 SimpleType < Info
+  attr_accessor :name
+  attr_reader :restriction
+  attr_reader :list
+  attr_reader :union
+
+  def check_lexical_format(value)
+    if @restriction
+      check_restriction(value)
+    elsif @list
+      # TODO: check
+    elsif @union
+      # TODO: check
+    else
+      raise ArgumentError.new("incomplete simpleType")
+    end
+  end
+
+  def base
+    if @restriction
+      @restriction.base
+    else
+      nil
+    end
+  end
+
+  def initialize(name = nil)
+    super()
+    @name = name
+    @restriction = nil
+    @list = nil
+    @union = nil
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def parse_element(element)
+    case element
+    when RestrictionName
+      @restriction = SimpleRestriction.new
+      @restriction
+    when ListName
+      @list = List.new
+      @list
+    when UnionName
+      @union = Union.new
+      @union
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when NameAttrName
+      @name = XSD::QName.new(targetnamespace, value.source)
+    end
+  end
+
+private
+
+  def check_restriction(value)
+    unless @restriction.valid?(value)
+      raise XSD::ValueSpaceError.new("#{@name}: cannot accept '#{value}'")
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/totaldigits.rb

@@ -0,0 +1,38 @@
+# encoding: UTF-8
+# WSDL4R - XMLSchema totalDigits 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 TotalDigits < Info
+  def initialize
+    super
+  end
+
+  def parse_element(element)
+    nil
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when FixedAttrName
+      parent.fixed[:totaldigits] = to_boolean(value)
+    when ValueAttrName
+      parent.totaldigits = to_int(value)
+    end
+  end
+end
+
+
+end
+end