rtiss_soap4r 1.6.0

data/lib/wsdl/xmlSchema/group.rb

@@ -0,0 +1,101 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema group definition.
+# 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 Group < Info
+  include Ref
+
+  attr_writer :name	# required
+  attr_accessor :maxoccurs
+  attr_accessor :minoccurs
+  attr_writer :content
+
+  attr_reader_ref :name
+  attr_reader_ref :content
+
+  def initialize(name = nil)
+    super()
+    @name = name
+    @maxoccurs = 1
+    @minoccurs = 1
+    @content = nil
+    @ref = nil
+    @refelement = nil
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def elementformdefault
+    parent.elementformdefault
+  end
+
+  def parse_element(element)
+    case element
+    when AllName
+      @content = All.new
+    when SequenceName
+      @content = Sequence.new
+    when ChoiceName
+      @content = Choice.new
+    else
+      nil
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when NameAttrName
+      @name = XSD::QName.new(targetnamespace, value.source)
+    when RefAttrName
+      @ref = value
+    when MaxOccursAttrName
+      if parent.is_a?(All)
+	if value.source != '1'
+	  raise Parser::AttributeConstraintError.new(
+            "cannot parse #{value} for #{attr}")
+	end
+      end
+      if value.source == 'unbounded'
+        @maxoccurs = nil
+      else
+        @maxoccurs = Integer(value.source)
+      end
+      value.source
+    when MinOccursAttrName
+      if parent.is_a?(All)
+	unless ['0', '1'].include?(value.source)
+	  raise Parser::AttributeConstraintError.new(
+            "cannot parse #{value} for #{attr}")
+	end
+      end
+      @minoccurs = Integer(value.source)
+    else
+      nil
+    end
+  end
+
+private
+
+  def refelement
+    @refelement ||= (@ref ? root.collect_modelgroups[@ref] : nil)
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/import.rb

@@ -0,0 +1,54 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema import definition.
+# 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/importer'
+require 'wsdl/xmlSchema/importHandler'
+
+
+module WSDL
+module XMLSchema
+
+
+class Import < Info
+  attr_reader :namespace
+
+  def initialize
+    super
+    @namespace = nil
+    @handler = ImportHandler.new
+  end
+
+  def schemalocation
+    @handler.schemalocation
+  end
+
+  def content
+    @handler.content
+  end
+
+  def parse_element(element)
+    nil
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when NamespaceAttrName
+      @namespace = value.source
+    when SchemaLocationAttrName
+      @handler.parse_schemalocation(value.source, root, parent)
+    else
+      nil
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/importHandler.rb

@@ -0,0 +1,46 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema import handler.
+# 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/importer'
+
+
+module WSDL
+module XMLSchema
+
+
+class ImportHandler
+  attr_reader :schemalocation
+  attr_reader :content
+
+  def initialize
+    @schemalocation = nil
+    @content = nil
+  end
+
+  def parse_schemalocation(location, root, parent)
+    @schemalocation = URI.parse(location)
+    if @schemalocation.relative? and !parent.location.nil? and
+        !parent.location.relative?
+      @schemalocation = parent.location + @schemalocation
+    end
+    if root.importedschema.key?(@schemalocation)
+      @content = root.importedschema[@schemalocation]
+    else
+      root.importedschema[@schemalocation] = nil      # placeholder
+      @content = Importer.import(@schemalocation, root)
+      root.importedschema[@schemalocation] = @content
+    end
+    @schemalocation
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/importer.rb

@@ -0,0 +1,103 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XSD importer library.
+# 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 'soap/soap'
+require 'soap/httpconfigloader'
+require 'wsdl/xmlSchema/parser'
+
+
+module WSDL
+module XMLSchema
+
+
+class Importer
+  DO_NOT_IMPORT = [::SOAP::EncodingNamespace]
+
+  def self.import(location, originalroot = nil)
+    new.import(location, originalroot)
+  end
+
+  def initialize
+    @web_client = nil
+  end
+
+  def import(location, originalroot = nil)
+    if DO_NOT_IMPORT.include?(location.to_s)
+      return nil
+    end
+    unless location.is_a?(URI)
+      location = URI.parse(location)
+    end
+    source, normalizedlocation = fetch(location)
+    content = parse(source, normalizedlocation, originalroot)
+    content.location = normalizedlocation
+    content
+  end
+
+private
+
+  def parse(content, location, originalroot)
+    opt = {
+      :location => location,
+      :originalroot => originalroot
+    }
+    WSDL::XMLSchema::Parser.new(opt).parse(content)
+  end
+
+  def fetch(location)
+    warn("importing: #{location}") if $DEBUG
+    content = nil
+    normalizedlocation = location
+    if location.scheme == 'file' or
+        (location.relative? and FileTest.exist?(location.path))
+      content = File.open(location.path).read
+      normalizedlocation = URI.parse('file://' + File.expand_path(location.path))
+    elsif location.scheme and location.scheme.size == 1 and
+        FileTest.exist?(location.to_s)
+      # ToDo: remove this ugly workaround for a path with drive letter
+      # (D://foo/bar)
+      content = File.open(location.to_s).read
+    else
+      client = web_client.new(nil, "WSDL4R")
+      client.proxy = ::SOAP::Env::HTTP_PROXY
+      client.no_proxy = ::SOAP::Env::NO_PROXY
+      if opt = ::SOAP::Property.loadproperty(::SOAP::PropertyName)
+        http_opt = opt["client.protocol.http"]
+        ::SOAP::HTTPConfigLoader.set_options(client, http_opt) if http_opt
+      end
+      content = client.get_content(location)
+    end
+    return content, normalizedlocation
+  end
+
+  def web_client
+    return @web_client if @web_client
+    begin
+      require 'httpclient'
+      @web_client = HTTPClient
+    rescue LoadError
+      begin
+        require 'http-access2'
+        if HTTPAccess2::VERSION < "2.0"
+          raise LoadError.new("http-access/2.0 or later is required.")
+        end
+        @web_client = HTTPAccess2::Client
+      rescue LoadError
+        warn("Loading http-access2 failed.  Net/http is used.") if $DEBUG
+        require 'soap/netHttpClient'
+        @web_client = ::SOAP::NetHttpClient
+      end
+    end
+    @web_client
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/include.rb

@@ -0,0 +1,49 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema include definition.
+# 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/importer'
+require 'wsdl/xmlSchema/importHandler'
+
+
+module WSDL
+module XMLSchema
+
+
+class Include < Info
+  def initialize
+    super
+    @handler = ImportHandler.new
+  end
+
+  def schemalocation
+    @handler.schemalocation
+  end
+
+  def content
+    @handler.content
+  end
+
+  def parse_element(element)
+    nil
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when SchemaLocationAttrName
+      @handler.parse_schemalocation(value.source, root, parent)
+    else
+      nil
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/length.rb

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

data/lib/wsdl/xmlSchema/list.rb

@@ -0,0 +1,49 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema list 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 List < Info
+  attr_reader :itemtype
+  attr_reader :local_simpletype
+
+  def initialize
+    super()
+    @itemtype = nil
+    @local_simpletype = nil
+  end
+
+  def parse_element(element)
+    case element
+    when SimpleTypeName
+      @local_simpletype = SimpleType.new
+      @local_simpletype
+    else
+      nil
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when ItemTypeAttrName
+      @itemtype = value
+    else
+      nil
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/xmlSchema/maxexclusive.rb

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

data/lib/wsdl/xmlSchema/maxinclusive.rb

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

data/lib/wsdl/xmlSchema/maxlength.rb

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

data/lib/wsdl/xmlSchema/minexclusive.rb

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

data/lib/wsdl/xmlSchema/mininclusive.rb

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

data/lib/wsdl/xmlSchema/minlength.rb

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