wsdl-mapper 0.0.7

data/lib/wsdl_mapper/svc_generation/documented_operation_generator.rb

@@ -0,0 +1,104 @@
+require 'wsdl_mapper/svc_generation/operation_generator'
+require 'wsdl_mapper/generation/yard_doc_formatter'
+
+module WsdlMapper
+  module SvcGeneration
+    class DocumentedOperationGenerator < OperationGenerator
+      def generate_header_accessors(f, parts)
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        parts.each do |p|
+          attr_name = p.property_name.attr_name
+          type = p.name.name
+          yard.attribute! attr_name, type, nil
+          f.attr_accessors p.property_name.attr_name
+        end
+      end
+
+      def generate_new_input(f, service, port, op)
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        header_name = service_namer.get_input_header_name(service.type, port.type, op.type)
+        body_name = service_namer.get_input_body_name(service.type, port.type, op.type)
+        f.blank_line
+        generate_new_documentation body_name, header_name, yard
+        super
+      end
+
+      def generate_new_output(f, service, port, op)
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        header_name = service_namer.get_output_header_name(service.type, port.type, op.type)
+        body_name = service_namer.get_output_body_name(service.type, port.type, op.type)
+        f.blank_line
+        generate_new_documentation body_name, header_name, yard
+        super
+      end
+
+      def generate_input_s8r(f, service, port, op)
+        f.blank_line
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        name = service_namer.get_input_s8r_name(service.type, port.type, op.type).name
+        yard.type_tag :return, name, 'The input serializer'
+        yard.blank_line
+        super
+      end
+
+      def generate_new_documentation(body_name, header_name, yard)
+        yard.params [:header, '::Hash', "Keyword arguments for {#{header_name.name}.new}"],
+         [:body, '::Hash', "Keyword arguments for {#{body_name.name}.new}"]
+        yard.type_tag :return, @generator.runtime_base('Message', 'message').name, 'A new SOAP message'
+        yard.blank_line
+      end
+
+      def generate_output_s8r(f, service, port, op)
+        f.blank_line
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        name = service_namer.get_output_s8r_name(service.type, port.type, op.type).name
+        yard.type_tag :return, name, 'The output serializer'
+        yard.blank_line
+        super
+      end
+
+      def generate_input_d10r(f, service, port, op)
+        f.blank_line
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        name = service_namer.get_input_d10r_name(service.type, port.type, op.type).name
+        yard.type_tag :return, name, 'The input deserializer'
+        yard.blank_line
+        super
+      end
+
+      def generate_output_d10r(f, service, port, op)
+        f.blank_line
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        name = service_namer.get_output_d10r_name(service.type, port.type, op.type).name
+        yard.type_tag :return, name, 'The output deserializer'
+        yard.blank_line
+        super
+      end
+
+      def generate_accessors(f, parts)
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        parts.each do |p|
+          attr_name = p.property_name.attr_name
+          type = @generator.get_ruby_type_name p.type
+
+          yard.attribute! attr_name, type, '' do
+          end
+          f.attr_accessors attr_name
+        end
+      end
+
+      def generate_ctr(f, parts)
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        f.blank_line
+        params = parts.map do |p|
+          attr_name = p.property_name.attr_name
+          type = @generator.get_ruby_type_name p.type
+
+          [attr_name, type, '']
+        end
+        yard.params(*params)
+        super
+      end
+    end
+  end
+end

data/lib/wsdl_mapper/svc_generation/documented_port_generator.rb

@@ -0,0 +1,19 @@
+require 'wsdl_mapper/svc_generation/port_generator'
+
+module WsdlMapper
+  module SvcGeneration
+    class DocumentedPortGenerator < PortGenerator
+      def generate_port_operation_accessors(f, ops)
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        ops.map do |op|
+          attr_name = op.property_name.attr_name
+          type = op.name.name
+          yard.attribute! attr_name, type, nil do
+            yard.tag :soap_name, op.type.name.name
+          end
+          f.attr_readers attr_name
+        end
+      end
+    end
+  end
+end

data/lib/wsdl_mapper/svc_generation/documented_proxy_generator.rb

@@ -0,0 +1,36 @@
+require 'wsdl_mapper/svc_generation/proxy_generator'
+
+module WsdlMapper
+  module SvcGeneration
+    class DocumentedProxyGenerator < ProxyGenerator
+
+      def generate_operation(f, op)
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        f.blank_line
+        yard.text op.type.name.name
+        yard.blank_line
+        yard.tag :xml_name, op.type.name.name
+        yard.tag :xml_namespace, op.type.name.ns
+        yard.param :body, '::Hash', 'Keyword arguments for the InputBody constructor'
+        get_body_parts(op.type.input).each do |part|
+          type = @generator.get_ruby_type_name part.type
+          yard.option :body, type, part.property_name.attr_name
+        end
+        yard.blank_line
+        super
+      end
+
+      def generate_async_operation(f, op)
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        f.blank_line
+        yard.text op.type.name.name
+        yard.blank_line
+        yard.tag :xml_name, op.type.name.name
+        yard.tag :xml_namespace, op.type.name.ns
+        yard.param :body_promise, 'Concurrent::Promise', 'Promise delivering keyword arguments (Hash) for the InputBody constructor'
+        yard.blank_line
+        super
+      end
+    end
+  end
+end

data/lib/wsdl_mapper/svc_generation/documented_service_generator.rb

@@ -0,0 +1,20 @@
+require 'wsdl_mapper/svc_generation/service_generator'
+
+module WsdlMapper
+  module SvcGeneration
+    class DocumentedServiceGenerator < ServiceGenerator
+      def generate_service_port_accessors(f, ports)
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        ports.map do |p|
+          attr_name = p.property_name.attr_name
+          type = p.name.name
+          yard.attribute! attr_name, type, nil do
+            yard.tag :soap_name, p.type.name.name
+            yard.tag :soap_binding, p.type.binding_name.name
+          end
+          f.attr_readers attr_name
+        end
+      end
+    end
+  end
+end

data/lib/wsdl_mapper/svc_generation/documented_svc_generator.rb

@@ -0,0 +1,38 @@
+require 'wsdl_mapper/svc_generation/svc_generator'
+require 'wsdl_mapper/svc_generation/documented_port_generator'
+require 'wsdl_mapper/svc_generation/documented_service_generator'
+require 'wsdl_mapper/svc_generation/documented_operation_generator'
+require 'wsdl_mapper/svc_generation/documented_proxy_generator'
+require 'wsdl_mapper/generation/yard_doc_formatter'
+
+module WsdlMapper
+  module SvcGeneration
+    class DocumentedSvcGenerator < SvcGenerator
+      def initialize(context,
+        formatter_factory: DefaultFormatter,
+        namer: WsdlMapper::Naming::DefaultNamer.new,
+        service_namer: WsdlMapper::Naming::DefaultServiceNamer.new,
+        service_generator_factory: DocumentedServiceGenerator,
+        port_generator_factory: DocumentedPortGenerator,
+        proxy_generator_factory: DocumentedProxyGenerator,
+        operation_generator_factory: DocumentedOperationGenerator,
+        operation_s8r_generator_factory: OperationS8rGenerator,
+        operation_d10r_generator_factory: OperationD10rGenerator,
+        schema_generator: nil)
+        super
+      end
+
+      def generate_api_service_accessors(f, services)
+        yard = WsdlMapper::Generation::YardDocFormatter.new f
+        services.each do |s|
+          attr_name = s.property_name.attr_name
+          type = s.name.name
+          yard.attribute! attr_name, type, nil do
+            yard.tag :soap_name, s.type.name.name
+          end
+          f.attr_readers attr_name
+        end
+      end
+    end
+  end
+end

data/lib/wsdl_mapper/svc_generation/facade.rb

@@ -0,0 +1,78 @@
+require 'wsdl_mapper/generation/facade'
+require 'wsdl_mapper/svc_desc_parsing/parser'
+require 'wsdl_mapper/naming/default_service_namer'
+require 'wsdl_mapper/svc_generation/svc_generator'
+require 'wsdl_mapper/svc_generation/documented_svc_generator'
+require 'wsdl_mapper/dom_generation/schema_generator'
+require 'wsdl_mapper/dom_generation/documented_schema_generator'
+require 'wsdl_mapper/s8r_generation/s8r_generator'
+require 'wsdl_mapper/d10r_generation/d10r_generator'
+
+module WsdlMapper
+  module SvcGeneration
+    class Facade < WsdlMapper::Generation::Facade
+
+      def initialize(file:, out:, service_namer: nil, **args)
+        super file: file, out: out, **args
+        @service_namer = service_namer
+      end
+
+      def service_namer
+        @service_namer ||= WsdlMapper::Naming::DefaultServiceNamer.new(module_path: @module_path)
+      end
+
+      def schema_generator
+        @schema_generator ||= schema_generator_class.new context, namer: namer, ctr_generator_factory: ctr_generator_class, skip_modules: true
+      end
+
+      def ctr_generator_class
+        @ctr_generator_class ||= @docs ? WsdlMapper::DomGeneration::DocumentedCtrGenerator : WsdlMapper::DomGeneration::DefaultCtrGenerator
+      end
+
+      def schema_generator_class
+        @schema_generator_class ||= @docs ? WsdlMapper::DomGeneration::DocumentedSchemaGenerator : WsdlMapper::DomGeneration::SchemaGenerator
+      end
+
+      def s8r_generator
+        @s8r_generator ||= WsdlMapper::S8rGeneration::S8rGenerator.new context, namer: namer, skip_modules: true
+      end
+
+      def d10r_generator
+        @d10r_generator ||= WsdlMapper::D10rGeneration::D10rGenerator.new context, namer: namer, skip_modules: true
+      end
+
+      def svc_generator
+        @svc_generator ||= svc_generator_class.new context, namer: namer, service_namer: service_namer, schema_generator: schema_generator
+      end
+
+      def svc_generator_class
+        @svc_generator_class ||= @docs ? WsdlMapper::SvcGeneration::DocumentedSvcGenerator : WsdlMapper::SvcGeneration::SvcGenerator
+      end
+
+      def module_generator
+        @module_generator ||= WsdlMapper::Generation::DefaultModuleGenerator.new schema_generator
+      end
+
+      def generate
+        desc, schema = parser.parse document
+
+        schema_result = schema_generator.generate schema
+        s8r_result = s8r_generator.generate schema
+        d10r_result = d10r_generator.generate schema
+        svc_result = svc_generator.generate desc
+
+        result = WsdlMapper::Generation::Result.merge svc_result, schema_result, s8r_result, d10r_result
+
+        result.module_tree.each do |module_node|
+          module_generator.generate module_node, result
+        end
+
+        result
+      end
+
+      def parser
+        @parser ||= WsdlMapper::SvcDescParsing::Parser.new
+      end
+    end
+  end
+end

data/lib/wsdl_mapper/svc_generation/generator_base.rb

@@ -0,0 +1,111 @@
+require 'wsdl_mapper/generation/base'
+require 'wsdl_mapper/svc_generation/type_to_generate'
+
+module WsdlMapper
+  module SvcGeneration
+    class GeneratorBase < WsdlMapper::Generation::Base
+      include WsdlMapper::Generation
+
+      def initialize(generator)
+        @generator = generator
+        super(generator.context)
+      end
+
+      protected
+      def get_formatter(io)
+        @generator.get_formatter io
+      end
+
+      # @return [WsdlMapper::Naming::AbstractServiceNamer]
+      def service_namer
+        @generator.service_namer
+      end
+
+      # @return [WsdlMapper::Naming::AbstractNamer]
+      def namer
+        @generator.namer
+      end
+
+      def port_generator
+        @generator.port_generator
+      end
+
+      def proxy_generator
+        @generator.proxy_generator
+      end
+
+      def operation_generator
+        @generator.operation_generator
+      end
+
+      def operation_s8r_generator
+        @generator.operation_s8r_generator
+      end
+
+      def operation_d10r_generator
+        @generator.operation_d10r_generator
+      end
+
+      def port_base
+        @generator.port_base
+      end
+
+      def proxy_base
+        @generator.proxy_base
+      end
+
+      def service_base
+        @generator.service_base
+      end
+
+      def operation_base
+        @generator.operation_base
+      end
+
+      def header_base
+        @generator.header_base
+      end
+
+      def body_base
+        @generator.body_base
+      end
+
+      def in_classes(f, *names, &block)
+        @generator.in_classes f, *names, &block
+      end
+
+      def get_type_name(type)
+        @generator.get_type_name type
+      end
+
+      class PartToGenerate < Struct.new(:type, :name, :property_name, :part)
+      end
+
+      class HeaderToGenerate < Struct.new(:type, :name, :property_name, :header)
+      end
+
+      def get_body_parts(in_out)
+        parts = in_out.body.parts
+        parts = in_out.target.message.each_part.to_a if parts.empty?
+
+        parts.map do |part|
+          type = part.type || part.element.type
+          name = namer.get_type_name get_type_name type
+          property_name = service_namer.get_body_property_name part.name
+
+          PartToGenerate.new type, name, property_name, part
+        end
+      end
+
+      def get_header_parts(in_out)
+        in_out.each_header.map do |header|
+          type = header.part.type || header.part.element.type
+          name = namer.get_type_name get_type_name type
+          property_name = service_namer.get_header_property_name header.message_name, header.part_name
+
+          HeaderToGenerate.new type, name, property_name, header
+        end
+      end
+    end
+  end
+end

data/lib/wsdl_mapper/svc_generation/operation_d10r_generator.rb

@@ -0,0 +1,171 @@
+require 'wsdl_mapper/svc_generation/operation_generator_base'
+require 'wsdl_mapper/dom/name'
+
+module WsdlMapper
+  module SvcGeneration
+    class OperationD10rGenerator < OperationGeneratorBase
+      include WsdlMapper::Dom
+
+      SOAP_ENV_NS = 'http://schemas.xmlsoap.org/soap/envelope/'
+      SOAP_BODY = Name.get SOAP_ENV_NS, 'Body'
+      SOAP_HEADER = Name.get SOAP_ENV_NS, 'Header'
+
+      def initialize(generator)
+        super generator
+        @schema_type_directory_name = namer.get_d10r_type_directory_name
+        @schema_element_directory_name = namer.get_d10r_element_directory_name
+      end
+
+      def generate_operation_d10r(service, port, op, result)
+        generate_op_input_d10r service, port, op, result
+        generate_op_output_d10r service, port, op, result
+      end
+
+      def generate_op_input_d10r(service, port, op, result)
+        name = service_namer.get_input_d10r_name service.type, port.type, op.type
+
+        type_directory_name = service_namer.get_input_type_directory_name
+        header_d10r_name = service_namer.get_input_header_d10r_name
+        body_d10r_name = service_namer.get_input_body_d10r_name
+        header_name = service_namer.get_input_header_name service.type, port.type, op.type
+        body_name = service_namer.get_input_body_name service.type, port.type, op.type
+        element_directory_name = service_namer.get_input_element_directory_name
+
+        generate_op_d10r service, port, op, name, op.type.input,
+          header_name, header_d10r_name, body_name, body_d10r_name, type_directory_name, element_directory_name, result
+      end
+
+      def generate_op_output_d10r(service, port, op, result)
+        name = service_namer.get_output_d10r_name service.type, port.type, op.type
+
+        type_directory_name = service_namer.get_output_type_directory_name
+        header_d10r_name = service_namer.get_output_header_d10r_name
+        body_d10r_name = service_namer.get_output_body_d10r_name
+        header_name = service_namer.get_output_header_name service.type, port.type, op.type
+        body_name = service_namer.get_output_body_name service.type, port.type, op.type
+        element_directory_name = service_namer.get_output_element_directory_name
+
+        generate_op_d10r service, port, op, name, op.type.output,
+          header_name, header_d10r_name, body_name, body_d10r_name, type_directory_name, element_directory_name, result
+      end
+
+      def generate_op_d10r(service, port, op, name, in_out,
+        header_name, header_d10r_name, body_name, body_d10r_name,
+        type_directory_name, element_directory_name, result)
+
+        parts = get_header_parts(in_out) + get_body_parts(in_out)
+        required_d10rs = parts.map do |part|
+          next if WsdlMapper::Dom::BuiltinType.builtin? get_type_name(part.type).name
+          namer.get_d10r_name(get_type_name(part.type))
+        end
+        modules = get_module_names service.name
+
+        type_file_for name, result do |f|
+          f.requires envelope_type.require_path,
+            type_directory_base.require_path,
+            element_directory_base.require_path,
+            deserializer_type.require_path,
+            soap_type_directory.require_path,
+            soap_element_directory.require_path,
+            @schema_type_directory_name.require_path,
+            @schema_element_directory_name.require_path,
+            header_name.require_path,
+            body_name.require_path
+          f.requires(*required_d10rs.compact.map(&:require_path))
+
+          f.in_modules modules do
+            in_classes f, service.name.class_name, port.name.class_name, op.name.class_name do
+              generate_type_directory f, type_directory_name
+              generate_header_d10r f, header_d10r_name, type_directory_name, header_name, in_out
+              generate_body_d10r f, body_d10r_name, type_directory_name, body_name, port, op, in_out
+              generate_element_directory f, element_directory_name, type_directory_name
+              generate_d10r f, name, element_directory_name
+            end
+          end
+        end
+      end
+
+      def generate_d10r(f, input_d10r_name, element_directory_name)
+        f.assignment input_d10r_name.class_name, "#{deserializer_type.name}.new(#{element_directory_name})"
+      end
+
+      def generate_element_directory(f, element_directory_name, type_directory_name)
+        f.assignment element_directory_name, "#{element_directory_base.name}.new(#{type_directory_name}, #{@schema_element_directory_name.name}, #{soap_element_directory.name})"
+      end
+
+      def generate_body_d10r(f, body_deserializer_name, type_directory_name, input_body_name, port, op, in_out)
+        parts = get_body_parts in_out
+        f.block "#{body_deserializer_name} = #{type_directory_name}.register_type(#{generate_name(SOAP_BODY)}, #{input_body_name.name})", [] do
+          op_name = get_op_name op.type, in_out
+          if port.type.binding.style == 'rpc'
+            f.call :register_wrapper, generate_name(op_name)
+          end
+          parts.each do |part|
+            name = get_type_name(part.type).name
+            element_name = if port.type.binding.style == 'rpc'
+              part.part.name
+            else
+              if part.part.element
+                part.part.element.name
+              else
+                part.part.name
+              end
+            end
+            f.call :register_prop, ":#{part.property_name.attr_name}", generate_name(element_name), generate_name(name)
+          end
+          f.call :register_prop, ':fault', fault_name, fault_name
+        end
+      end
+
+      def fault_name
+        @fault_name ||= generate_name WsdlMapper::Dom::Name.get('http://schemas.xmlsoap.org/soap/envelope/', 'Fault')
+      end
+
+      def get_op_name(op, in_out)
+        if in_out == op.input
+          op.name
+        else
+          WsdlMapper::Dom::Name.get op.name.ns, "#{op.name.name}Response"
+        end
+      end
+
+      def generate_header_d10r(f, header_deserializer_name, type_directory_name, input_header_name, in_out)
+        parts = get_header_parts in_out
+        f.block "#{header_deserializer_name} = #{type_directory_name}.register_type(#{generate_name(SOAP_HEADER)}, #{input_header_name.name})", [] do
+          parts.each do |part|
+            name = get_type_name(part.type).name
+            f.call :register_prop, ":#{part.property_name.attr_name}", generate_name(part.header.part.name), generate_name(name)
+          end
+        end
+      end
+
+      def generate_type_directory(f, type_directory_name)
+        f.assignment type_directory_name, "#{type_directory_base.name}.new(#{soap_type_directory.name}, #{@schema_type_directory_name.name})"
+      end
+
+      def type_directory_base
+        @type_directory_base ||= WsdlMapper::Naming::TypeName.new 'TypeDirectory', %w[WsdlMapper Deserializers], 'type_directory.rb', %w[wsdl_mapper deserializers]
+      end
+
+      def element_directory_base
+        @element_directory_base ||= WsdlMapper::Naming::TypeName.new 'ElementDirectory', %w[WsdlMapper Deserializers], 'element_directory.rb', %w[wsdl_mapper deserializers]
+      end
+
+      def soap_type_directory
+        @soap_type_directory ||= WsdlMapper::Naming::TypeName.new 'SoapTypeDirectory', %w[WsdlMapper SvcDesc], 'soap_type_directory.rb', %w[wsdl_mapper svc_desc]
+      end
+
+      def soap_element_directory
+        @soap_element_directory ||= WsdlMapper::Naming::TypeName.new 'SoapElementDirectory', %w[WsdlMapper SvcDesc], 'soap_element_directory.rb', %w[wsdl_mapper svc_desc]
+      end
+
+      def deserializer_type
+        @deserializer_type ||= WsdlMapper::Naming::TypeName.new 'LazyLoadingDeserializer', %w[WsdlMapper Deserializers], 'lazy_loading_deserializer.rb', %w[wsdl_mapper deserializers]
+      end
+
+      def envelope_type
+        @envelope_type ||= WsdlMapper::Naming::TypeName.new 'Envelope', %w[WsdlMapper SvcDesc], 'envelope.rb', %w[wsdl_mapper svc_desc]
+      end
+    end
+  end
+end