morpher 0.2.6

data/lib/morpher/compiler/preprocessor.rb

@@ -0,0 +1,29 @@
+module Morpher
+  class Compiler
+    # AST preprocessor
+    class Preprocessor < self
+      include Concord.new(:emitters)
+
+      # Call preprocessor
+      #
+      # @param [Node] node
+      #   the raw AST node after DSL
+      #
+      # @return [Node]
+      #   the transformed ast node
+      #
+      # @api private
+      #
+      def call(node)
+        loop do
+          emitter = emitters.fetch(node.type, Emitter::Noop)
+          node = emitter.call(self, node)
+          break if emitter.equal?(Emitter::Noop)
+        end
+
+        node
+      end
+
+    end # Preprocessor
+  end # Compiler
+end # Morpher

data/lib/morpher/compiler/preprocessor/emitter.rb

@@ -0,0 +1,54 @@
+module Morpher
+  class Compiler
+    class Preprocessor
+      # Abstract preprocessor emitter
+      class Emitter < Compiler::Emitter
+        include Registry, Concord.new(:preprocessor, :node)
+
+        # Return output
+        #
+        # @return [AST::Node]
+        #
+        # @api private
+        #
+        def output
+          validate_node
+          processed_node
+        end
+        memoize :output
+
+      private
+
+        # Visit node
+        #
+        # @param [Node] node
+        #   original untransformed node
+        #
+        # @return [Node]
+        #   transformed node
+        #
+        # @api private
+        #
+        def visit(node)
+          preprocessor.call(node)
+        end
+
+        # Validate node
+        #
+        # @return [undefined]
+        #   if successful
+        #
+        # @raise [Error]
+        #   otherwise
+        #
+        # @api private
+        #
+        def validate_node
+          assert_children_amount(named_children.length)
+        end
+
+      end # Emitter
+
+    end # Preprocessor
+  end # Compiler
+end # Morpher

data/lib/morpher/compiler/preprocessor/emitter/anima.rb

@@ -0,0 +1,69 @@
+module Morpher
+  class Compiler
+    class Preprocessor
+      class Emitter
+        # Abstract base class for anima emitters
+        class Anima < self
+          include AbstractType
+
+          children :model
+
+        private
+
+          # Return domain param
+          #
+          # @return [Transformer::Domain::Param]
+          #
+          # @api private
+          #
+          def param
+            Morpher::Evaluator::Transformer::Domain::Param.new(
+              model,
+              model.anima.attribute_names
+            )
+          end
+
+          class Dump < self
+
+            register :anima_dump
+
+          private
+
+            # Return transformed node
+            #
+            # @param [Node] node
+            #
+            # @return [Node]
+            #
+            # @api private
+            #
+            def processed_node
+              s(:dump_attribute_hash, param)
+            end
+
+          end # Dump
+
+          class Load < self
+
+            register :anima_load
+
+          private
+
+            # Return transformed node
+            #
+            # @param [Node] node
+            #
+            # @return [Node]
+            #
+            # @api private
+            #
+            def processed_node
+              s(:load_attribute_hash, param)
+            end
+
+          end # Load
+        end # Anima
+      end # Emitter
+    end # Preprocessor
+  end # Compiler
+end # Morpher

data/lib/morpher/compiler/preprocessor/emitter/boolean.rb

@@ -0,0 +1,31 @@
+module Morpher
+  class Compiler
+    class Preprocessor
+      class Emitter
+        # Preprocessor for boolean primitive
+        class Boolean < self
+          register :boolean
+
+          children
+
+          NODE = s(:xor, s(:primitive, TrueClass), s(:primitive, FalseClass))
+
+        private
+
+          # Return transformed node
+          #
+          # @param [Node] node
+          #
+          # @return [Node]
+          #
+          # @api private
+          #
+          def processed_node
+            NODE
+          end
+
+        end # Boolean
+      end # Emitter
+    end # Preprocessor
+  end # Compiler
+end # Morpher

data/lib/morpher/compiler/preprocessor/emitter/key.rb

@@ -0,0 +1,87 @@
+module Morpher
+  class Compiler
+    class Preprocessor
+      class Emitter
+
+        # Namespace class for key preprocessors
+        class Key < self
+          include AbstractType
+
+          # Key symbolization preprocessor
+          class Symbolize < self
+
+            register :key_symbolize
+
+            children :key, :operand
+
+          private
+
+            # Return transformed node
+            #
+            # @param [Node] node
+            #
+            # @return [Node]
+            #
+            # @api private
+            #
+            def processed_node
+              s(:key_transform, key.to_s, key.to_sym, operand)
+            end
+
+          end # Symbolize
+
+          # Neutral key preprocessor
+          class Neutral < self
+
+            register :key
+
+            children :key, :operand
+
+          private
+
+            # Return transformed node
+            #
+            # @param [Node] node
+            #
+            # @return [Node]
+            #
+            # @api private
+            #
+            def processed_node
+              s(:key_transform, key, key, operand)
+            end
+
+          end # Neutral
+
+          # Key transformation preprocessor
+          class Transform < self
+            register :key_transform
+
+            children :from, :to, :operand
+
+          private
+
+            # Return transformed node
+            #
+            # @param [Node] node
+            #
+            # @return [Node]
+            #
+            # @api private
+            #
+            def processed_node
+              s(
+                :block,
+                s(:key_fetch, from),
+                visit(operand),
+                s(:key_dump, to)
+              )
+            end
+
+          end # Transform
+
+        end # Key
+      end # Emitter
+    end # Preprocessor
+  end # Compiler
+end # Morpher

data/lib/morpher/compiler/preprocessor/emitter/noop.rb

@@ -0,0 +1,45 @@
+module Morpher
+  class Compiler
+    class Preprocessor
+      class Emitter
+
+        # Noop emitter just descending into children
+        class Noop < self
+
+        private
+
+          # Return output
+          #
+          # @return [Node]
+          #
+          # @api private
+          #
+          def processed_node
+            mapped_children = node.children.map do |child|
+              if child.kind_of?(node.class)
+                visit(child)
+              else
+                child
+              end
+            end
+            s(node.type, *mapped_children)
+          end
+
+          # Validate node
+          #
+          # @return [undefined]
+          #   if successful
+          #
+          # @raise [Error]
+          #   otherwise
+          #
+          # @api private
+          #
+          def validate_node
+          end
+
+        end # Noop
+      end # Emitter
+    end # Preprocessor
+  end # Compiler
+end # Morpher

data/lib/morpher/compiler/preprocessor/emitter/param.rb

@@ -0,0 +1,50 @@
+module Morpher
+  class Compiler
+    class Preprocessor
+      class Emitter
+
+        # Param domain transformer specific emitter
+        class Param < self
+
+          register :param
+
+          children :model
+
+        private
+
+          # Return output
+          #
+          # @return [Node]
+          #
+          # @api private
+          #
+          def processed_node
+            param = Morpher::Evaluator::Transformer::Domain::Param.new(
+              model,
+              remaining_children
+            )
+            s(:raw, param)
+          end
+
+          # Validate node
+          #
+          # @return [undefined]
+          #   if successful
+          #
+          # @raise [Error]
+          #   otherwise
+          #
+          # @api private
+          #
+          def validate_node
+            remaining_children.each_with_index do |child, index|
+              next if child.kind_of?(Symbol)
+              fail Error::ChildType, Symbol, child, index
+            end
+          end
+
+        end # Noop
+      end # Emitter
+    end # Preprocessor
+  end # Compiler
+end # Morpher

data/lib/morpher/evaluation.rb

@@ -0,0 +1,118 @@
+module Morpher
+  # Abstract namespace class for evaluation states
+  class Evaluation
+    include AbstractType, Printer::Mixin, Adamantium::Flat, Anima.new(
+      :evaluator,
+      :input,
+      :output,
+      :success
+    )
+
+    private :success
+
+    # Test if evaluation was successful
+    #
+    # @return [true]
+    #   if evaluation was successful
+    #
+    # @return [false]
+    #   otherwise
+    #
+    # @api private
+    #
+    alias_method :success?, :success
+    public :success?
+
+    ERROR_DEFAULTS = IceNine.deep_freeze(
+      output: Undefined,
+      success: false
+    )
+
+    SUCCESS_DEFAULTS = IceNine.deep_freeze(
+      success: true
+    )
+
+    # Return error instance
+    #
+    # @param [Hash<Symbol, Object>] attributes
+    #
+    # @return [Evaluation]
+    #
+    # @api private
+    #
+    def self.error(attributes)
+      new(ERROR_DEFAULTS.merge(attributes))
+    end
+
+    # Return successful instance
+    #
+    # @param [Hash<Symbol, Object>] attributes
+    #
+    # @return [Evaluation]
+    #
+    # @api private
+    #
+    def self.success(attributes)
+      new(SUCCESS_DEFAULTS.merge(attributes))
+    end
+
+    # Evaluation state for nullary evaluators
+    class Nullary < self
+
+      printer do
+        name
+        indent do
+          attributes :input, :output, :success?
+          visit :evaluator
+        end
+      end
+
+    end
+
+    # Evaluation state for nary evaluators
+    class Nary < self
+      include anima.add(:evaluations)
+
+      printer do
+        name
+        indent do
+          attributes :input, :output, :success?
+          attribute_class :evaluator
+          visit_many :evaluations
+        end
+      end
+
+    end # Evaluation
+
+    # Evaluation state for unary evaluators
+    class Binary < self
+      include anima.add(:left_evaluation, :right_evaluation)
+
+      printer do
+        name
+        indent do
+          attributes :input, :output, :success?
+          visit :left_evaluation
+          visit :right_evaluation
+        end
+      end
+
+    end # Unary
+
+    # Evaluation state for unary evaluators
+    class Unary < self
+      include anima.add(:operand_evaluation)
+
+      printer do
+        name
+        indent do
+          attributes :input, :output, :success?
+          visit :operand_evaluation
+          visit :evaluator
+        end
+      end
+
+    end # Unary
+
+  end # Evaluation
+end # Morpher