rtiss_soap4r 1.6.0

data/lib/wsdl/soap/classDefCreator.rb

@@ -0,0 +1,434 @@
+# encoding: ASCII-8BIT
+# WSDL4R - Creating class definition 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/data'
+require 'wsdl/soap/classDefCreatorSupport'
+require 'xsd/codegen'
+require 'set'
+
+
+module WSDL
+module SOAP
+
+
+class ClassDefCreator
+  include ClassDefCreatorSupport
+  include XSD::CodeGen
+
+  def initialize(definitions, name_creator, modulepath = nil)
+    @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!
+    @modelgroups = definitions.collect_modelgroups
+    @modelgroups.uniq!
+    @faulttypes = nil
+    if definitions.respond_to?(:collect_faulttypes)
+      @faulttypes = definitions.collect_faulttypes
+    end
+    @defined_const = {}
+  end
+
+  def dump(type = nil)
+    result = "require 'xsd/qname'\n"
+    # cannot use @modulepath because of multiple classes
+    if @modulepath
+      result << "\n"
+      result << modulepath_split(@modulepath).collect { |ele| "module #{ele}" }.join("; ")
+      result << "\n\n"
+    end
+    str = dump_group(type)
+    unless str.empty?
+      result << "\n" unless result.empty?
+      result << str
+    end
+    str = dump_complextype(type)
+    unless str.empty?
+      result << "\n" unless result.empty?
+      result << str
+    end
+    str = dump_simpletype(type)
+    unless str.empty?
+      result << "\n" unless result.empty?
+      result << str
+    end
+    str = dump_element(type)
+    unless str.empty?
+      result << "\n" unless result.empty?
+      result << str
+    end
+    str = dump_attribute(type)
+    unless str.empty?
+      result << "\n" unless result.empty?
+      result << str
+    end
+    if @modulepath
+      result << "\n\n"
+      result << modulepath_split(@modulepath).collect { |ele| "end" }.join("; ")
+      result << "\n"
+    end
+    result
+  end
+
+private
+
+  def dump_element(target = nil)
+    @elements.collect { |ele|
+      next if @complextypes[ele.name]
+      next if target and target != ele.name
+      c = create_elementdef(@modulepath, ele)
+      c ? c.dump : nil
+    }.compact.join("\n")
+  end
+
+  def dump_attribute(target = nil)
+    @attributes.collect { |attribute|
+      next if target and target != attribute.name
+      if attribute.local_simpletype
+        c = create_simpletypedef(@modulepath, attribute.name, attribute.local_simpletype)
+      end
+      c ? c.dump : nil
+    }.compact.join("\n")
+  end
+
+  def dump_simpletype(target = nil)
+    @simpletypes.collect { |type|
+      next if target and target != type.name
+      c = create_simpletypedef(@modulepath, type.name, type)
+      c ? c.dump : nil
+    }.compact.join("\n")
+  end
+
+  def dump_complextype(target = nil)
+    definitions = sort_dependency(@complextypes).collect { |type|
+      next if target and target != type.name
+      c = create_complextypedef(@modulepath, type.name, type)
+      c ? c.dump : nil
+    }.compact.join("\n")
+  end
+
+  def dump_group(target = nil)
+    definitions = @modelgroups.collect { |group|
+      # TODO: not dumped for now but may be useful in the future
+    }.compact.join("\n")
+  end
+
+  def create_elementdef(mpath, ele)
+    qualified = (ele.elementform == 'qualified')
+    if ele.local_complextype
+      create_complextypedef(mpath, ele.name, ele.local_complextype, qualified)
+    elsif ele.local_simpletype
+      create_simpletypedef(mpath, ele.name, ele.local_simpletype, qualified)
+    elsif ele.empty?
+      create_simpleclassdef(mpath, ele.name, nil)
+    else
+      # ignores type only element
+      nil
+    end
+  end
+
+  def create_simpletypedef(mpath, qname, simpletype, qualified = false)
+    if simpletype.restriction
+      create_simpletypedef_restriction(mpath, qname, simpletype, qualified)
+    elsif simpletype.list
+      create_simpletypedef_list(mpath, qname, simpletype, qualified)
+    elsif simpletype.union
+      create_simpletypedef_union(mpath, qname, simpletype, qualified)
+    else
+      raise RuntimeError.new("unknown kind of simpletype: #{simpletype}")
+    end
+  end
+
+  def create_simpletypedef_restriction(mpath, qname, typedef, qualified)
+    restriction = typedef.restriction
+    unless restriction.enumeration?
+      # not supported.  minlength?
+      return nil
+    end
+    classname = mapped_class_basename(qname, mpath)
+    c = ClassDef.new(classname, '::String')
+    c.comment = "#{qname}"
+    define_classenum_restriction(c, classname, restriction.enumeration)
+    c
+  end
+
+  def create_simpletypedef_list(mpath, qname, typedef, qualified)
+    list = typedef.list
+    classname = mapped_class_basename(qname, mpath)
+    c = ClassDef.new(classname, '::Array')
+    c.comment = "#{qname}"
+    if simpletype = list.local_simpletype
+      if simpletype.restriction.nil?
+        raise RuntimeError.new(
+          "unknown kind of simpletype: #{simpletype}")
+      end
+      define_stringenum_restriction(c, simpletype.restriction.enumeration)
+      c.comment << "\n  contains list of #{classname}::*"
+    elsif list.itemtype
+      c.comment << "\n  contains list of #{mapped_class_basename(list.itemtype, mpath)}::*"
+    else
+      raise RuntimeError.new("unknown kind of list: #{list}")
+    end
+    c
+  end
+
+  def create_simpletypedef_union(mpath, qname, typedef, qualified)
+    union = typedef.union
+    classname = mapped_class_basename(qname, mpath)
+    c = ClassDef.new(classname, '::String')
+    c.comment = "#{qname}"
+    if union.member_types
+      # fixme
+      c.comment << "\n any of #{union.member_types}"
+    end
+    c
+  end
+
+  def define_stringenum_restriction(c, enumeration)
+    const = {}
+    enumeration.each do |value|
+      constname = safeconstname(value)
+      const[constname] ||= 0
+      if (const[constname] += 1) > 1
+        constname += "_#{const[constname]}"
+      end
+      c.def_const(constname, ndq(value))
+    end
+  end
+
+  def define_classenum_restriction(c, classname, enumeration)
+    const = {}
+    enumeration.each do |value|
+      constname = safeconstname(value)
+      const[constname] ||= 0
+      if (const[constname] += 1) > 1
+        constname += "_#{const[constname]}"
+      end
+      c.def_const(constname, "new(#{ndq(value)})")
+    end
+  end
+
+  def create_simpleclassdef(mpath, qname, type_or_element)
+    classname = mapped_class_basename(qname, mpath)
+    c = ClassDef.new(classname, '::String')
+    c.comment = "#{qname}"
+    init_lines = []
+    if type_or_element and !type_or_element.attributes.empty?
+      define_attribute(c, type_or_element.attributes)
+      init_lines << "@__xmlattr = {}"
+    end
+    c.def_method('initialize', '*arg') do
+      "super\n" + init_lines.join("\n")
+    end
+    c
+  end
+
+  def create_complextypedef(mpath, qname, type, qualified = false)
+    case type.compoundtype
+    when :TYPE_STRUCT, :TYPE_EMPTY
+      create_structdef(mpath, qname, type, qualified)
+    when :TYPE_ARRAY
+      create_arraydef(mpath, qname, type)
+    when :TYPE_SIMPLE
+      create_simpleclassdef(mpath, qname, type)
+    when :TYPE_MAP
+      # mapped as a general Hash
+      nil
+    else
+      raise RuntimeError.new(
+        "unknown kind of complexContent: #{type.compoundtype}")
+    end
+  end
+
+  def create_structdef(mpath, qname, typedef, qualified = false)
+    classname = mapped_class_basename(qname, mpath)
+    baseclassname = nil
+    if typedef.complexcontent
+      if base = typedef.complexcontent.base
+        # :TYPE_ARRAY must not be derived (#424)
+        basedef = @complextypes[base]
+        if basedef and basedef.compoundtype != :TYPE_ARRAY
+          # baseclass should be a toplevel complexType
+          baseclassname = mapped_class_basename(base, @modulepath)
+        end
+      end
+    end
+    if @faulttypes and @faulttypes.index(qname)
+      c = ClassDef.new(classname, '::StandardError')
+    else
+      c = ClassDef.new(classname, baseclassname)
+    end
+    c.comment = "#{qname}"
+    c.comment << "\nabstract" if typedef.abstract
+    parentmodule = mapped_class_name(qname, mpath)
+    init_lines, init_params =
+      parse_elements(c, typedef.elements, qname.namespace, parentmodule)
+    unless typedef.attributes.empty?
+      define_attribute(c, typedef.attributes)
+      init_lines << "@__xmlattr = {}"
+    end
+    c.def_method('initialize', *init_params) do
+      init_lines.join("\n")
+    end
+    c
+  end
+
+  def parse_elements(c, elements, base_namespace, mpath, as_array = false)
+    init_lines = []
+    init_params = []
+    any = false
+    elements.each do |element|
+      case element
+      when XMLSchema::Any
+        # only 1 <any/> is allowed for now.
+        raise RuntimeError.new("duplicated 'any'") if any
+        any = true
+        attrname = '__xmlele_any'
+        c.def_attr(attrname, false, attrname)
+        c.def_method('set_any', 'elements') do
+          '@__xmlele_any = elements'
+        end
+        init_lines << "@__xmlele_any = nil"
+      when XMLSchema::Element
+        next if element.ref == SchemaName
+        name = name_element(element).name
+        typebase = @modulepath
+        if element.anonymous_type?
+          inner = create_elementdef(mpath, element)
+          unless as_array
+            inner.comment = "inner class for member: #{name}\n" + inner.comment
+          end
+          c.innermodule << inner
+          typebase = mpath
+        end
+        unless as_array
+          attrname = safemethodname(name)
+          varname = safevarname(name)
+          c.def_attr(attrname, true, varname)
+          init_lines << "@#{varname} = #{varname}"
+          if element.map_as_array?
+            init_params << "#{varname} = []"
+          else
+            init_params << "#{varname} = nil"
+          end
+          c.comment << "\n  #{attrname} - #{create_type_name(typebase, element) || '(any)'}"
+        end
+      when WSDL::XMLSchema::Sequence
+        child_init_lines, child_init_params =
+          parse_elements(c, element.elements, base_namespace, mpath, as_array)
+        init_lines.concat(child_init_lines)
+        init_params.concat(child_init_params)
+      when WSDL::XMLSchema::Choice
+        child_init_lines, child_init_params =
+          parse_elements(c, element.elements, base_namespace, mpath, as_array)
+        init_lines.concat(child_init_lines)
+        init_params.concat(child_init_params)
+      when WSDL::XMLSchema::Group
+        if element.content.nil?
+          warn("no group definition found: #{element}")
+          next
+        end
+        child_init_lines, child_init_params =
+          parse_elements(c, element.content.elements, base_namespace, mpath, as_array)
+        init_lines.concat(child_init_lines)
+        init_params.concat(child_init_params)
+      else
+        raise RuntimeError.new("unknown type: #{element}")
+      end
+    end
+    [init_lines, init_params]
+  end
+
+  def define_attribute(c, attributes)
+    const = {}
+    unless attributes.empty?
+      c.def_method("__xmlattr") do <<-__EOD__
+          @__xmlattr ||= {}
+        __EOD__
+      end
+    end
+    attributes.each do |attribute|
+      name = name_attribute(attribute)
+      methodname = safemethodname('xmlattr_' + name.name)
+      constname = 'Attr' + safeconstname(name.name)
+      const[constname] ||= 0
+      if (const[constname] += 1) > 1
+        constname += "_#{const[constname]}"
+      end
+      c.def_const(constname, dqname(name))
+      c.def_method(methodname) do <<-__EOD__
+          __xmlattr[#{constname}]
+        __EOD__
+      end
+      c.def_method(methodname + '=', 'value') do <<-__EOD__
+          __xmlattr[#{constname}] = value
+        __EOD__
+      end
+      c.comment << "\n  #{methodname} - #{attribute_basetype(attribute) || '(any)'}"
+    end
+  end
+
+  def create_arraydef(mpath, qname, typedef)
+    classname = mapped_class_basename(qname, mpath)
+    c = ClassDef.new(classname, '::Array')
+    c.comment = "#{qname}"
+    parentmodule = mapped_class_name(qname, mpath)
+    parse_elements(c, typedef.elements, qname.namespace, parentmodule, true)
+    c
+  end
+
+  def sort_dependency(types)
+    dep = {}
+    root = []
+    types.each do |type|
+      if type.complexcontent and (base = type.complexcontent.base)
+        dep[base] ||= []
+        dep[base] << type
+      else
+        root << type
+      end
+    end
+    sorted = []
+    root.each do |type|
+      sorted.concat(collect_dependency(type, dep))
+    end
+    sorted.concat(dep.values.flatten)
+    sorted
+  end
+
+  # removes collected key from dep
+  def collect_dependency(type, dep)
+    result = [type]
+    return result unless dep.key?(type.name)
+    dep[type.name].each do |deptype|
+      result.concat(collect_dependency(deptype, dep))
+    end
+    dep.delete(type.name)
+    result
+  end
+
+  def modulepath_split(modulepath)
+    if modulepath.is_a?(::Array)
+      modulepath
+    else
+      modulepath.to_s.split('::')
+    end
+  end
+end
+
+
+end
+end

data/lib/wsdl/soap/classDefCreatorSupport.rb

@@ -0,0 +1,241 @@
+# encoding: ASCII-8BIT
+# WSDL4R - Creating class code support 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 'soap/mapping'
+require 'soap/mapping/typeMap'
+require 'xsd/codegen/gensupport'
+
+
+module WSDL
+module SOAP
+
+
+# requires @defined_const, @simpletypes, @name_creator
+module ClassDefCreatorSupport
+  include XSD::CodeGen::GenSupport
+
+  def mapped_class_name(qname, modulepath)
+    @name_creator.assign_name(qname, modulepath)
+  end
+
+  def mapped_class_basename(qname, modulepath)
+    classname = @name_creator.assign_name(qname, modulepath)
+    classname.sub(/\A.*:/, '')
+  end
+
+  def basetype_mapped_class(name)
+    ::SOAP::TypeMap[name]
+  end
+
+  def dump_method_signature(name, operation, element_definitions)
+    methodname = safemethodname(name)
+    input = operation.input
+    output = operation.output
+    fault = operation.fault
+    signature = "#{methodname}#{dump_inputparam(input)}"
+    str = <<__EOD__
+# SYNOPSIS
+#   #{methodname}#{dump_inputparam(input)}
+#
+# ARGS
+#{dump_inout_type(input, element_definitions).chomp}
+#
+# RETURNS
+#{dump_inout_type(output, element_definitions).chomp}
+#
+__EOD__
+    unless fault.empty?
+      str += <<__EOD__
+# RAISES
+#{dump_fault_type(fault, element_definitions)}
+#
+__EOD__
+    end
+    str
+  end
+
+  def dq(ele)
+    ele.dump
+  end
+
+  def ndq(ele)
+    ele.nil? ? 'nil' : dq(ele)
+  end
+
+  def sym(ele)
+    ':' + ele.id2name
+  end
+
+  def nsym(ele)
+    ele.nil? ? 'nil' : sym(ele)
+  end
+
+  def dqname(qname)
+    if @defined_const.key?(qname.namespace)
+      qname.dump(@defined_const[qname.namespace])
+    else
+      qname.dump
+    end
+  end
+
+  def assign_const(value, prefix = '')
+    return if value.nil? or @defined_const.key?(value)
+    name = value.scan(/[^:\/]+\/?\z/)[0] || 'C'
+    tag = prefix + safeconstname(name)
+    if @defined_const.value?(tag)
+      idx = 0
+      while true
+        tag = prefix + safeconstname(name + "_#{idx}")
+        break unless @defined_const.value?(tag)
+        idx += 1
+        raise RuntimeError.new("too much similar names") if idx > 100
+      end
+    end
+    @defined_const[value] = tag
+  end
+
+  def create_type_name(modulepath, element)
+    if element.type == XSD::AnyTypeName
+      # nil means anyType.
+      nil
+    elsif simpletype = @simpletypes[element.type]
+      if simpletype.restriction and simpletype.restriction.enumeration?
+        mapped_class_name(element.type, modulepath)
+      else
+        nil
+      end
+    elsif klass = element_basetype(element)
+      klass.name
+    elsif element.type
+      mapped_class_name(element.type, modulepath)
+    elsif element.ref
+      mapped_class_name(element.ref, modulepath)
+    elsif element.anonymous_type?
+      # inner class
+      mapped_class_name(element.name, modulepath)
+    else
+      nil
+    end
+  end
+
+private
+
+  def dump_inout_type(param, element_definitions)
+    if param
+      message = param.find_message
+      params = ""
+      message.parts.each do |part|
+        name = safevarname(part.name)
+        if part.type
+          typename = safeconstname(part.type.name)
+          qname = part.type
+          params << add_at("#   #{name}", "#{typename} - #{qname}\n", 20)
+        elsif part.element
+          ele = element_definitions[part.element]
+          if ele.type
+            typename = safeconstname(ele.type.name)
+            qname = ele.type
+          else
+            typename = safeconstname(ele.name.name)
+            qname = ele.name
+          end
+          params << add_at("#   #{name}", "#{typename} - #{qname}\n", 20)
+        end
+      end
+      unless params.empty?
+        return params
+      end
+    end
+    "#   N/A\n"
+  end
+
+  def dump_inputparam(input)
+    message = input.find_message
+    params = ""
+    message.parts.each do |part|
+      params << ", " unless params.empty?
+      params << safevarname(part.name)
+    end
+    if params.empty?
+      ""
+    else
+      "(#{ params })"
+    end
+  end
+
+  def add_at(base, str, pos)
+    if base.size >= pos
+      base + ' ' + str
+    else
+      base + ' ' * (pos - base.size) + str
+    end
+  end
+
+  def dump_fault_type(fault, element_definitions)
+    fault.collect { |ele|
+      dump_inout_type(ele, element_definitions).chomp
+    }.join("\n")
+  end
+
+  def element_basetype(ele)
+    if klass = basetype_class(ele.type)
+      klass
+    elsif ele.local_simpletype
+      basetype_class(ele.local_simpletype.base)
+    else
+      nil
+    end
+  end
+
+  def attribute_basetype(attr)
+    if klass = basetype_class(attr.type)
+      klass
+    elsif attr.local_simpletype
+      basetype_class(attr.local_simpletype.base)
+    else
+      nil
+    end
+  end
+
+  def basetype_class(type)
+    return nil if type.nil?
+    if simpletype = @simpletypes[type]
+      basetype_mapped_class(simpletype.base)
+    else
+      basetype_mapped_class(type)
+    end
+  end
+
+  def name_element(element)
+    return element.name if element.name 
+    return element.ref if element.ref
+    raise RuntimeError.new("cannot define name of #{element}")
+  end
+
+  def name_attribute(attribute)
+    return attribute.name if attribute.name 
+    return attribute.ref if attribute.ref
+    raise RuntimeError.new("cannot define name of #{attribute}")
+  end
+
+  # TODO: run MethodDefCreator just once in 1.6.X.
+  # MethodDefCreator should return parsed struct, not a String.
+  def collect_assigned_method(wsdl, porttypename, modulepath = nil)
+    name_creator = WSDL::SOAP::ClassNameCreator.new
+    methoddefcreator =
+      WSDL::SOAP::MethodDefCreator.new(wsdl, name_creator, modulepath, {})
+    methoddefcreator.dump(porttypename)
+    methoddefcreator.assigned_method
+  end
+end
+
+
+end
+end