rtiss_soap4r 1.6.0

data/lib/wsdl/soap/element.rb

@@ -0,0 +1,34 @@
+# encoding: ASCII-8BIT
+# WSDL4R - XMLSchema element 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/element'
+
+
+module WSDL
+module XMLSchema
+
+
+class Element < Info
+  def map_as_array?
+    # parent sequence / choice may be marked as maxOccurs="unbounded"
+    maxoccurs.nil? or maxoccurs != 1 or (parent and parent.map_as_array?)
+  end
+
+  def anonymous_type?
+    !@ref and @name and @local_complextype
+  end
+
+  def attributes
+    @local_complextype.attributes
+  end
+end
+
+
+end
+end

data/lib/wsdl/soap/encodedMappingRegistryCreator.rb

@@ -0,0 +1,74 @@
+# encoding: ASCII-8BIT
+# WSDL4R - Creating EncodedMappingRegistry code from 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/soap/mappingRegistryCreatorSupport'
+
+
+module WSDL
+module SOAP
+
+
+class EncodedMappingRegistryCreator
+  include MappingRegistryCreatorSupport
+
+  attr_reader :definitions
+
+  def initialize(definitions, name_creator, modulepath, defined_const)
+    @definitions = definitions
+    @name_creator = name_creator
+    @modulepath = modulepath
+    @simpletypes = definitions.collect_simpletypes
+    @simpletypes.uniq!
+    @complextypes = definitions.collect_complextypes
+    @complextypes.uniq!
+    @varname = nil
+    @defined_const = defined_const
+  end
+
+  def dump(varname)
+    @varname = varname
+    result = ''
+    str = dump_complextype
+    unless str.empty?
+      result << "\n" unless result.empty?
+      result << str
+    end
+    str = dump_simpletype
+    unless str.empty?
+      result << "\n" unless result.empty?
+      result << str
+    end
+    result
+  end
+
+private
+
+  def dump_complextype
+    @complextypes.collect { |type|
+      unless type.abstract
+        dump_with_inner {
+          dump_complextypedef(@modulepath, type.name, type, nil, :encoded => true)
+        }
+      end
+    }.compact.join("\n")
+  end
+
+  def dump_simpletype
+    @simpletypes.collect { |type|
+      dump_with_inner {
+        dump_simpletypedef(@modulepath, type.name, type, nil, :encoded => true)
+      }
+    }.compact.join("\n")
+  end
+end
+
+
+end
+end

data/lib/wsdl/soap/fault.rb

@@ -0,0 +1,57 @@
+# encoding: ASCII-8BIT
+# WSDL4R - WSDL SOAP body 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'
+
+
+module WSDL
+module SOAP
+
+
+class Fault < Info
+  attr_reader :name	# required
+  attr_reader :use	# required
+  attr_reader :encodingstyle
+  attr_reader :namespace
+
+  def initialize
+    super
+    @name = nil
+    @use = nil
+    @encodingstyle = nil
+    @namespace = nil
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def parse_element(element)
+    nil
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when NameAttrName
+      @name = XSD::QName.new(targetnamespace, value.source)
+    when UseAttrName
+      @use = value.source
+    when EncodingStyleAttrName
+      @encodingstyle = value.source
+    when NamespaceAttrName
+      @namespace = value.source
+    else
+      nil
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/soap/header.rb

@@ -0,0 +1,87 @@
+# encoding: ASCII-8BIT
+# WSDL4R - WSDL SOAP body 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'
+
+
+module WSDL
+module SOAP
+
+
+class Header < Info
+  attr_reader :headerfault
+
+  attr_reader :message	# required
+  attr_reader :part	# required
+  attr_reader :use	# required
+  attr_reader :encodingstyle
+  attr_reader :namespace
+
+  def initialize
+    super
+    @message = nil
+    @part = nil
+    @use = nil
+    @encodingstyle = nil
+    @namespace = nil
+    @headerfault = nil
+  end
+
+  def targetnamespace
+    parent.targetnamespace
+  end
+
+  def find_message
+    root.message(@message) or raise RuntimeError.new("#{@message} not found")
+  end
+
+  def find_part
+    find_message.parts.each do |part|
+      if part.name == @part
+	return part
+      end
+    end
+    raise RuntimeError.new("#{@part} not found")
+  end
+
+  def parse_element(element)
+    case element
+    when HeaderFaultName
+      o = WSDL::SOAP::HeaderFault.new
+      @headerfault = o
+      o
+    else
+      nil
+    end
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when MessageAttrName
+      if value.namespace.nil?
+        value = XSD::QName.new(targetnamespace, value.source)
+      end
+      @message = value
+    when PartAttrName
+      @part = value.source
+    when UseAttrName
+      @use = value.source
+    when EncodingStyleAttrName
+      @encodingstyle = value.source
+    when NamespaceAttrName
+      @namespace = value.source
+    else
+      nil
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/soap/headerfault.rb

@@ -0,0 +1,57 @@
+# encoding: ASCII-8BIT
+# WSDL4R - WSDL SOAP body 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'
+
+
+module WSDL
+module SOAP
+
+
+class HeaderFault < Info
+  attr_reader :message	# required
+  attr_reader :part	# required
+  attr_reader :use	# required
+  attr_reader :encodingstyle
+  attr_reader :namespace
+
+  def initialize
+    super
+    @message = nil
+    @part = nil
+    @use = nil
+    @encodingstyle = nil
+    @namespace = nil
+  end
+
+  def parse_element(element)
+    nil
+  end
+
+  def parse_attr(attr, value)
+    case attr
+    when MessageAttrName
+      @message = value
+    when PartAttrName
+      @part = value.source
+    when UseAttrName
+      @use = value.source
+    when EncodingStyleAttrName
+      @encodingstyle = value.source
+    when NamespaceAttrName
+      @namespace = value.source
+    else
+      nil
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/soap/literalMappingRegistryCreator.rb

@@ -0,0 +1,116 @@
+# encoding: ASCII-8BIT
+# WSDL4R - Creating LiteralMappingRegistry code from 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/soap/mappingRegistryCreatorSupport'
+
+
+module WSDL
+module SOAP
+
+
+class LiteralMappingRegistryCreator
+  include MappingRegistryCreatorSupport
+
+  def initialize(definitions, name_creator, modulepath, defined_const)
+    @definitions = definitions
+    @name_creator = name_creator
+    @modulepath = modulepath
+    @elements = definitions.collect_elements
+    @elements.uniq!
+    @attributes = definitions.collect_attributes
+    @attributes.uniq!
+    @simpletypes = definitions.collect_simpletypes
+    @simpletypes.uniq!
+    @complextypes = definitions.collect_complextypes
+    @complextypes.uniq!
+    @varname = nil
+    @defined_const = defined_const
+  end
+
+  def dump(varname)
+    @varname = varname
+    result = ''
+    str = dump_complextype
+    unless str.empty?
+      result << "\n" unless result.empty?
+      result << str
+    end
+    str = dump_simpletype
+    unless str.empty?
+      result << "\n" unless result.empty?
+      result << str
+    end
+    str = dump_element
+    unless str.empty?
+      result << "\n" unless result.empty?
+      result << str
+    end
+    str = dump_attribute
+    unless str.empty?
+      result << "\n" unless result.empty?
+      result << str
+    end
+    result
+  end
+
+private
+
+  def dump_element
+    @elements.collect { |ele|
+      # has the definition different from the complexType of the same name
+      next if ele.type.nil? and @complextypes[ele.name]
+      dump_with_inner {
+        if typedef = ele.local_complextype
+          dump_complextypedef(@modulepath, ele.name, typedef)
+        elsif typedef = ele.local_simpletype
+          dump_simpletypedef(@modulepath, ele.name, typedef)
+        elsif ele.type
+          if typedef = @complextypes[ele.type]
+            dump_complextypedef(@modulepath, ele.type, typedef, ele.name)
+          elsif typedef = @simpletypes[ele.type]
+            dump_simpletypedef(@modulepath, ele.type, typedef, ele.name)
+          end
+        end
+      }
+    }.compact.join("\n")
+  end
+
+  def dump_attribute
+    @attributes.collect { |attr|
+      if attr.local_simpletype
+        dump_with_inner {
+          dump_simpletypedef(@modulepath, attr.name, attr.local_simpletype)
+        }
+      end
+    }.compact.join("\n")
+  end
+
+  def dump_simpletype
+    @simpletypes.collect { |type|
+      dump_with_inner {
+        dump_simpletypedef(@modulepath, type.name, type)
+      }
+    }.compact.join("\n")
+  end
+
+  def dump_complextype
+    @complextypes.collect { |type|
+      unless type.abstract
+        dump_with_inner {
+          dump_complextypedef(@modulepath, type.name, type)
+        }
+      end
+    }.compact.join("\n")
+  end
+end
+
+
+end
+end

data/lib/wsdl/soap/mappingRegistryCreator.rb

@@ -0,0 +1,59 @@
+# encoding: ASCII-8BIT
+# WSDL4R - Creating MappingRegistry code from 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/soap/classDefCreatorSupport'
+require 'wsdl/soap/encodedMappingRegistryCreator'
+require 'wsdl/soap/literalMappingRegistryCreator'
+require 'xsd/codegen/moduledef.rb'
+
+
+module WSDL
+module SOAP
+
+
+class MappingRegistryCreator
+  include ClassDefCreatorSupport
+
+  attr_reader :definitions
+
+  def initialize(definitions, name_creator, modulepath = nil)
+    @definitions = definitions
+    @name_creator = name_creator
+    @modulepath = modulepath
+  end
+
+  def dump
+    defined_const = {}
+    encoded_creator = EncodedMappingRegistryCreator.new(@definitions, @name_creator, @modulepath, defined_const)
+    literal_creator = LiteralMappingRegistryCreator.new(@definitions, @name_creator, @modulepath, defined_const)
+    wsdl_name = @definitions.name ? @definitions.name.name : 'default'
+    module_name = safeconstname(wsdl_name + 'MappingRegistry')
+    if @modulepath
+      module_name = [@modulepath, module_name].join('::')
+    end
+    m = XSD::CodeGen::ModuleDef.new(module_name)
+    m.def_require("soap/mapping")
+    varname = 'EncodedRegistry'
+    m.def_const(varname, '::SOAP::Mapping::EncodedRegistry.new')
+    m.def_code(encoded_creator.dump(varname))
+    varname = 'LiteralRegistry'
+    m.def_const(varname, '::SOAP::Mapping::LiteralRegistry.new')
+    m.def_code(literal_creator.dump(varname))
+    #
+    defined_const.each do |ns, tag|
+      m.def_const(tag, dq(ns))
+    end
+    m.dump
+  end
+end
+
+
+end
+end