wsdl-mapper 0.0.7

data/lib/wsdl_mapper/svc_generation/port_generator.rb

@@ -0,0 +1,56 @@
+require 'wsdl_mapper/svc_generation/generator_base'
+
+module WsdlMapper
+  module SvcGeneration
+    class PortGenerator < GeneratorBase
+      def generate_port(service, port, result)
+        modules = get_module_names service.name
+        ops = port.type.binding.each_operation.map do |op|
+          TypeToGenerate.new op, service_namer.get_operation_name(service.type, port.type, op), service_namer.get_property_name(op)
+        end
+
+        proxy_generator.generate_proxy service, port, ops, result
+
+        ops.each do |op|
+          operation_generator.generate_operation service, port, op, result
+        end
+
+        type_file_for port.name, result do |f|
+          f.requires port_base.require_path
+
+          f.in_modules modules do
+            f.in_class service.name.class_name do
+              generate_port_class f, ops, port
+            end
+          end
+        end
+      end
+
+      def generate_port_class(f, ops, port)
+        f.in_sub_class port.name.class_name, port_base.name do
+          f.requires(*ops.map { |op| op.name.require_path })
+          generate_port_operation_accessors f, ops
+          generate_port_ctr f, ops, port
+        end
+      end
+
+      def generate_port_ctr(f, ops, port)
+        f.in_def :initialize, 'api', 'service' do
+          f.call :super, 'api', 'service'
+          f.assignment '@_style', port.type.binding.style.inspect
+          f.assignment '@_transport', port.type.binding.transport.inspect
+          f.assignment '@_soap_address', port.type.address_location.inspect
+
+          ops.each do |op|
+            f.assignment op.property_name.var_name, op.name.name + '.new(api, service, self)'
+            f.statement "@_operations << #{op.property_name.var_name}"
+          end
+        end
+      end
+
+      def generate_port_operation_accessors(f, ops)
+        f.attr_readers(*ops.map { |op| op.property_name.attr_name })
+      end
+    end
+  end
+end

data/lib/wsdl_mapper/svc_generation/proxy_generator.rb

@@ -0,0 +1,51 @@
+require 'wsdl_mapper/svc_generation/generator_base'
+
+module WsdlMapper
+  module SvcGeneration
+    class ProxyGenerator < GeneratorBase
+      def generate_proxy(service, port, ops, result)
+        modules = get_module_names service.name
+        proxy_name = service_namer.get_proxy_name(service.type, port.type)
+
+        type_file_for proxy_name, result do |f|
+          f.requires proxy_base.require_path,
+            port.name.require_path,
+            *operation_requires(ops)
+
+          f.in_modules modules do
+            f.in_class service.name.class_name do
+              generate_proxy_class f, ops, proxy_name, port
+            end
+          end
+        end
+      end
+
+      def operation_requires(_ops)
+        []
+      end
+
+      def generate_proxy_class(f, ops, proxy_name, _port)
+        f.in_sub_class proxy_name.class_name, proxy_base.name do
+          ops.each do |op|
+            generate_operation f, op
+            generate_async_operation f, op
+          end
+        end
+      end
+
+      def generate_async_operation(f, op)
+        name = op.property_name.attr_name
+        f.in_def name + '_async', ['args_promise'] do
+          f.call '@_api._call_async', "@_port.#{name}", 'args_promise'
+        end
+      end
+
+      def generate_operation(f, op)
+        name = op.property_name.attr_name
+        f.in_def name, ['body, *args'] do
+          f.call '@_api._call', "@_port.#{name}", 'body', '*args'
+        end
+      end
+    end
+  end
+end

data/lib/wsdl_mapper/svc_generation/service_generator.rb

@@ -0,0 +1,49 @@
+require 'wsdl_mapper/svc_generation/generator_base'
+
+module WsdlMapper
+  module SvcGeneration
+    class ServiceGenerator < GeneratorBase
+
+      def generate_service(service, result)
+        modules = get_module_names service.name
+        ports = service.type.each_port.map do |port|
+          TypeToGenerate.new port, service_namer.get_port_name(service.type, port), service_namer.get_property_name(port)
+        end
+
+        ports.each do |port|
+          port_generator.generate_port service, port, result
+        end
+
+        type_file_for service.name, result do |f|
+          f.requires service_base.require_path
+
+          f.in_modules modules do
+            generate_service_class f, ports, service
+          end
+        end
+      end
+
+      def generate_service_class(f, ports, service)
+        f.in_sub_class service.name.class_name, service_base.name do
+          f.requires(*ports.map { |p| p.name.require_path })
+          generate_service_port_accessors f, ports
+          generate_service_ctr f, ports
+        end
+      end
+
+      def generate_service_port_accessors(f, ports)
+        f.attr_readers(*ports.map { |p| p.property_name.attr_name })
+      end
+
+      def generate_service_ctr(f, ports)
+        f.in_def :initialize, 'api' do
+          f.call :super, 'api'
+          ports.each do |p|
+            f.assignment p.property_name.var_name, "#{p.name.name}.new(api, self)"
+            f.statement "@_ports << #{p.property_name.var_name}"
+          end
+        end
+      end
+    end
+  end
+end

data/lib/wsdl_mapper/svc_generation/svc_generator.rb

@@ -0,0 +1,172 @@
+require 'wsdl_mapper/generation/base'
+require 'wsdl_mapper/generation/type_to_generate'
+
+require 'wsdl_mapper/generation/default_formatter'
+require 'wsdl_mapper/generation/result'
+require 'wsdl_mapper/naming/type_name'
+require 'wsdl_mapper/naming/default_service_namer'
+require 'wsdl_mapper/naming/default_namer'
+
+require 'wsdl_mapper/dom_parsing/parser'
+require 'wsdl_mapper/dom_generation/schema_generator'
+require 'wsdl_mapper/dom_generation/default_ctr_generator'
+
+require 'wsdl_mapper/svc_generation/type_to_generate'
+require 'wsdl_mapper/svc_generation/service_generator'
+require 'wsdl_mapper/svc_generation/port_generator'
+require 'wsdl_mapper/svc_generation/proxy_generator'
+require 'wsdl_mapper/svc_generation/operation_generator'
+require 'wsdl_mapper/svc_generation/operation_s8r_generator'
+require 'wsdl_mapper/svc_generation/operation_d10r_generator'
+
+module WsdlMapper
+  module SvcGeneration
+    class SvcGenerator < WsdlMapper::Generation::Base
+      include WsdlMapper::Generation
+
+      attr_reader :context, :service_generator, :service_namer, :namer, :port_generator, :proxy_generator, :operation_generator, :schema_generator, :operation_s8r_generator, :operation_d10r_generator
+
+      def initialize(context,
+        formatter_factory: DefaultFormatter,
+        service_namer: WsdlMapper::Naming::DefaultServiceNamer.new,
+        namer: WsdlMapper::Naming::DefaultNamer.new,
+        service_generator_factory: ServiceGenerator,
+        port_generator_factory: PortGenerator,
+        proxy_generator_factory: ProxyGenerator,
+        operation_generator_factory: OperationGenerator,
+        operation_s8r_generator_factory: OperationS8rGenerator,
+        operation_d10r_generator_factory: OperationD10rGenerator,
+        schema_generator: nil)
+
+        super(context)
+
+        @formatter_factory = formatter_factory
+        @service_namer = service_namer
+        @namer = namer
+        @service_generator = service_generator_factory.new(self)
+        @port_generator = port_generator_factory.new(self)
+        @proxy_generator = proxy_generator_factory.new(self)
+        @operation_generator = operation_generator_factory.new(self)
+        @operation_s8r_generator = operation_s8r_generator_factory.new(self)
+        @operation_d10r_generator = operation_d10r_generator_factory.new(self)
+        @schema_generator = schema_generator || WsdlMapper::DomGeneration::SchemaGenerator.new(context,
+          ctr_generator_factory: WsdlMapper::DomGeneration::DefaultCtrGenerator,
+          namer: namer
+        )
+      end
+
+      def generate(desc)
+        result = Result.new description: desc
+
+        generate_api desc, result
+
+        result
+      end
+
+      def get_formatter(io)
+        @formatter_factory.new io
+      end
+
+      def generate_api(desc, result)
+        name = @service_namer.get_api_name
+        modules = get_module_names name
+        services = desc.each_service.map do |service|
+          TypeToGenerate.new service, @service_namer.get_service_name(service), @service_namer.get_property_name(service)
+        end
+
+        services.each do |service|
+          @service_generator.generate_service service, result
+        end
+
+        type_file_for name, result do |f|
+          f.requires api_base.require_path
+          f.requires(*services.map { |s| s.name.require_path })
+
+          f.in_modules modules do
+            generate_api_class f, name, services
+          end
+        end
+      end
+
+      def generate_api_class(f, name, services)
+        f.in_sub_class name.class_name, api_base.name do
+          generate_api_service_accessors f, services
+          generate_api_ctr f, services
+        end
+      end
+
+      def generate_api_service_accessors(f, services)
+        f.attr_readers(*services.map { |s| s.property_name.attr_name })
+      end
+
+      def generate_api_ctr(f, services)
+        f.in_def :initialize, 'backend' do
+          f.call :super, 'backend'
+          services.each do |s|
+            f.assignment s.property_name.var_name, "#{s.name.name}.new(self)"
+            f.statement "@_services << #{s.property_name.var_name}"
+          end
+        end
+      end
+
+      def in_classes(f, *names, &block)
+        next_block = if names.length > 1
+          proc do
+            in_classes f, *names.drop(1), &block
+          end
+        else
+          block
+        end
+        f.in_class names.first, &next_block
+      end
+
+      def api_base
+        @api_base ||= runtime_base 'Api', 'api'
+      end
+
+      def service_base
+        @service_base ||= runtime_base 'Service', 'service'
+      end
+
+      def port_base
+        @port_base ||= runtime_base 'Port', 'port'
+      end
+
+      def proxy_base
+        @proxy_base ||= runtime_base 'Proxy', 'proxy'
+      end
+
+      def operation_base
+        @operation_base ||= runtime_base 'Operation', 'operation'
+      end
+
+      def header_base
+        @header_base ||= runtime_base 'Header', 'header'
+      end
+
+      def body_base
+        @body_base ||= runtime_base 'Body', 'body'
+      end
+
+      def runtime_base(name, file_name)
+        WsdlMapper::Naming::TypeName.new name, runtime_modules, "#{file_name}.rb", runtime_path
+      end
+
+      def runtime_modules
+        @runtime_modules ||= %w[WsdlMapper Runtime]
+      end
+
+      def runtime_path
+        @runtime_path ||= %w[wsdl_mapper runtime]
+      end
+
+      def get_type_name(type)
+        @schema_generator.get_type_name type
+      end
+
+      def get_ruby_type_name(type)
+        @schema_generator.get_ruby_type_name type
+      end
+    end
+  end
+end

data/lib/wsdl_mapper/svc_generation/type_to_generate.rb

@@ -0,0 +1,6 @@
+module WsdlMapper
+  module SvcGeneration
+    class TypeToGenerate < Struct.new(:type, :name, :property_name)
+    end
+  end
+end

data/lib/wsdl_mapper/type_mapping.rb

@@ -0,0 +1,21 @@
+require 'wsdl_mapper/type_mapping/mapping_set'
+require 'wsdl_mapper/type_mapping/base'
+require 'wsdl_mapper/type_mapping/base64_binary'
+require 'wsdl_mapper/type_mapping/boolean'
+require 'wsdl_mapper/type_mapping/date'
+require 'wsdl_mapper/type_mapping/date_parts'
+require 'wsdl_mapper/type_mapping/date_time'
+require 'wsdl_mapper/type_mapping/decimal'
+require 'wsdl_mapper/type_mapping/duration'
+require 'wsdl_mapper/type_mapping/float'
+require 'wsdl_mapper/type_mapping/hex_binary'
+require 'wsdl_mapper/type_mapping/integer'
+require 'wsdl_mapper/type_mapping/string'
+require 'wsdl_mapper/type_mapping/time'
+require 'wsdl_mapper/type_mapping/uri'
+
+module WsdlMapper
+  module TypeMapping
+    DEFAULT = MappingSet.default
+  end
+end

data/lib/wsdl_mapper/type_mapping/base.rb

@@ -0,0 +1,48 @@
+require 'wsdl_mapper/dom/name'
+require 'wsdl_mapper/dom/builtin_type'
+require 'wsdl_mapper/type_mapping/mapping_set'
+
+module WsdlMapper
+  module TypeMapping
+    class Base
+      attr_accessor :xml_types
+
+      def initialize(&block)
+        instance_exec(&block)
+        MappingSet.default << self
+      end
+
+      def register_xml_types(names)
+        self.xml_types ||= []
+        names.each do |name_or_qname|
+          qname = name_or_qname.is_a?(WsdlMapper::Dom::Name) ? name_or_qname : WsdlMapper::Dom::BuiltinType[name_or_qname].name
+          self.xml_types << qname
+        end
+      end
+
+      def maps?(t)
+        if t.is_a?(WsdlMapper::Dom::Name)
+          xml_types.include? t
+        elsif t.is_a?(WsdlMapper::Dom::TypeBase)
+          xml_types.include? t.name
+        end
+      end
+
+      def to_ruby(_string)
+        raise NotImplementedError
+      end
+
+      def to_xml(_object)
+        raise NotImplementedError
+      end
+
+      def ruby_type
+        raise NotImplementedError
+      end
+
+      def requires
+        []
+      end
+    end
+  end
+end

data/lib/wsdl_mapper/type_mapping/base64_binary.rb

@@ -0,0 +1,31 @@
+require 'wsdl_mapper/type_mapping/base'
+require 'wsdl_mapper/dom/builtin_type'
+
+require 'base64'
+require 'stringio'
+
+module WsdlMapper
+  module TypeMapping
+    Base64Binary = Base.new do
+      register_xml_types %w[
+        base64Binary
+      ]
+
+      def to_ruby(string)
+        StringIO.new Base64.decode64 string
+      end
+
+      def to_xml(io)
+        Base64.encode64 io.read
+      end
+
+      def ruby_type
+        ::StringIO
+      end
+
+      def requires
+        ['stringio']
+      end
+    end
+  end
+end

data/lib/wsdl_mapper/type_mapping/boolean.rb

@@ -0,0 +1,31 @@
+require 'wsdl_mapper/type_mapping/base'
+require 'wsdl_mapper/dom/builtin_type'
+
+require 'bigdecimal'
+
+module WsdlMapper
+  module TypeMapping
+    Boolean = Base.new do
+      register_xml_types %w[
+        boolean
+      ]
+
+      def to_ruby(string)
+        case string.to_s
+        when 'true', '1'
+          true
+        when 'false', '0'
+          false
+        end
+      end
+
+      def to_xml(object)
+        object ? 'true' : 'false'
+      end
+
+      def ruby_type
+        nil
+      end
+    end
+  end
+end