soap4r-straightjacket 1.5.8

data/lib/wsdl/xmlSchema/pattern.rb

@@ -0,0 +1,36 @@
+# WSDL4R - XMLSchema pattern 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 Pattern < Info
+  def initialize
+    super
+  end
+
+  def parse_element(element)
+    nil
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when ValueAttrName
+      parent.pattern = /\A#{value.source}\z/n
+      value.source
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/ref.rb

@@ -0,0 +1,33 @@
+# WSDL4R - XMLSchema ref support.
+# 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
+module XMLSchema
+
+
+module Ref
+  def self.included(klass)
+    klass.extend(RefClassSupport)
+  end
+
+  module RefClassSupport
+    def attr_reader_ref(symbol)
+      name = symbol.to_s
+      define_method(name) {
+        instance_variable_get("@#{name}") ||
+          (refelement ? refelement.__send__(name) : nil)
+      }
+    end
+  end
+
+  attr_accessor :ref
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/schema.rb

@@ -0,0 +1,178 @@
+# WSDL4R - XMLSchema schema 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 Schema < Info
+  attr_reader :targetnamespace	# required
+  attr_reader :complextypes
+  attr_reader :simpletypes
+  attr_reader :elements
+  attr_reader :attributes
+  attr_reader :modelgroups
+  attr_reader :attributegroups
+  attr_reader :imports
+  attr_accessor :attributeformdefault
+  attr_accessor :elementformdefault
+  attr_accessor :version
+
+  attr_reader :importedschema
+
+  def initialize
+    super
+    @targetnamespace = nil
+    @complextypes = XSD::NamedElements.new
+    @simpletypes = XSD::NamedElements.new
+    @elements = XSD::NamedElements.new
+    @attributes = XSD::NamedElements.new
+    @modelgroups = XSD::NamedElements.new
+    @attributegroups = XSD::NamedElements.new
+    @imports = []
+    @attributeformdefault = "unqualified"
+    @elementformdefault = "unqualified"
+    @importedschema = {}
+    @location = nil
+    @root = self
+    @version = nil
+  end
+
+  def location
+    @location || (root.nil? ? nil : root.location)
+  end
+
+  def location=(location)
+    @location = location
+  end
+
+  def parse_element(element)
+    case element
+    when ImportName
+      o = Import.new
+      @imports << o
+      o
+    when IncludeName
+      o = Include.new
+      @imports << o
+      o
+    when ComplexTypeName
+      o = ComplexType.new
+      @complextypes << o
+      o
+    when SimpleTypeName
+      o = SimpleType.new
+      @simpletypes << o
+      o
+    when ElementName
+      o = Element.new
+      o.form = 'qualified'      # root element is qualified
+      @elements << o
+      o
+    when AttributeName
+      o = Attribute.new
+      @attributes << o
+      o
+    when GroupName
+      o = Group.new
+      @modelgroups << o
+      o
+    when AttributeGroupName
+      o = AttributeGroup.new
+      @attributegroups << o
+      o
+    else
+      nil
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when TargetNamespaceAttrName
+      @targetnamespace = value.source
+    when AttributeFormDefaultAttrName
+      @attributeformdefault = value.source
+    when ElementFormDefaultAttrName
+      @elementformdefault = value.source
+    when VersionAttrName
+      @version = value.source
+    else
+      nil
+    end
+  end
+
+  def collect_attributes
+    result = XSD::NamedElements.new
+    result.concat(@attributes)
+    @imports.each do |import|
+      result.concat(import.content.collect_attributes) if import.content
+    end
+    result
+  end
+
+  def collect_modelgroups
+    result = XSD::NamedElements.new
+    result.concat(@modelgroups)
+    @imports.each do |import|
+      result.concat(import.content.collect_modelgroups) if import.content
+    end
+    result
+  end
+
+  def collect_attributegroups
+    result = XSD::NamedElements.new
+    result.concat(@attributegroups)
+    @imports.each do |import|
+      result.concat(import.content.collect_attributegroups) if import.content
+    end
+    result
+  end
+
+  def collect_elements
+    result = XSD::NamedElements.new
+    result.concat(@elements)
+    @imports.each do |import|
+      result.concat(import.content.collect_elements) if import.content
+    end
+    result
+  end
+
+  def collect_complextypes
+    result = XSD::NamedElements.new
+    result.concat(@complextypes)
+    @imports.each do |import|
+      result.concat(import.content.collect_complextypes) if import.content
+    end
+    result
+  end
+
+  def collect_simpletypes
+    result = XSD::NamedElements.new
+    result.concat(@simpletypes)
+    @imports.each do |import|
+      result.concat(import.content.collect_simpletypes) if import.content
+    end
+    result
+  end
+
+  def self.parse_element(element)
+    if element == SchemaName
+      Schema.new
+    else
+      nil
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/sequence.rb

@@ -0,0 +1,54 @@
+# 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,69 @@
+# 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,62 @@
+# 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,132 @@
+# 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