# Author::    Eric Crane  (mailto:eric.crane@mac.com)
# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
#
# An Expression that can be evaluated.
#

module Gloo
  module Expr
    class Expression

      # Create the expression from a list of tokens.
      def initialize( tokens )
        @tokens = tokens
        @symbols = []
        @left = nil
        @right = nil
        @op = nil
      end

      # Evaluate the expression and return the value.
      def evaluate
        identify_tokens

        @symbols.each do |sym|
          if sym.is_a? Gloo::Core::Op
            @op = sym
          elsif @left.nil?
            @left = sym
          else
            @right = sym
          end

          perform_op if @left && @right
        end

        return @left.value if @left.is_a? Gloo::Core::Literal
        return resolve_ref @left if @left.is_a? Gloo::Core::Pn

        return @left
      end

      # Perform the operation.
      def perform_op
        @op ||= Gloo::Core::Op.default_op
        l = evaluate_sym @left
        r = evaluate_sym @right
        @left = @op.perform l, r
        @right = nil
        @op = nil
      end

      # Evaluate the symbol and get a simple value.
      def evaluate_sym( sym )
        return sym.value if sym.is_a? Gloo::Core::Literal
        return resolve_ref sym if sym.is_a? Gloo::Core::Pn

        return sym
      end

      # resolve an object reference and get the value.
      def resolve_ref( ref )
        return ref.src if ref.named_color?

        ob = ref.resolve
        return ob.value if ob
      end

      # Identify each token in the list.
      def identify_tokens
        @tokens.each do |o|
          @symbols << identify_token( o )
        end

        # @symbols.each do |o|
        #   puts o.class.name
        # end
      end

      #
      # Identify the tokens and create appropriate symbols.
      #
      def identify_token( token )
        return Gloo::Core::Op.create_op( token ) if Gloo::Core::Op.op?( token )

        return LBoolean.new( token ) if LBoolean.boolean?( token )
        return LInteger.new( token ) if LInteger.integer?( token )
        return LString.new( token ) if LString.string?( token )
        return LDecimal.new( token ) if LDecimal.decimal?( token )

        # last chance: an Object reference
        return Gloo::Core::Pn.new( token )
      end

    end
  end
end