module RKelly
  module Nodes
    class Node
      include RKelly::Visitable
      include RKelly::Visitors
      include Enumerable

      attr_accessor :value, :comments, :line, :filename
      def initialize(value)
        @value = value
        @comments = []
        @filename = @line = nil
      end

      def ==(other)
        other.is_a?(self.class) && @value == other.value
      end
      alias :=~ :==

      def ===(other)
        other.is_a?(self.class) && @value === other.value
      end

      def pointcut(pattern)
        case pattern
        when String
          ast = RKelly::Parser.new.parse(pattern)
          # Only take the first statement
          finder = ast.value.first.class.to_s =~ /StatementNode$/ ?
            ast.value.first.value : ast.value.first
          visitor = PointcutVisitor.new(finder)
        else
          visitor = PointcutVisitor.new(pattern)
        end

        visitor.accept(self)
        visitor
      end
      alias :/ :pointcut

      def to_sexp
        SexpVisitor.new.accept(self)
      end

      def to_ecma
        ECMAVisitor.new.accept(self)
      end

      def to_dots
        visitor = DotVisitor.new
        visitor.accept(self)
        header = <<-END
digraph g {
graph [ rankdir = "TB" ];
node [
  fontsize = "16"
  shape = "ellipse"
];
edge [ ];
        END
        nodes = visitor.nodes.map { |x| x.to_s }.join("\n")
        counter = 0
        arrows = visitor.arrows.map { |x|
          s = "#{x} [\nid = #{counter}\n];"
          counter += 1
          s
        }.join("\n")
        "#{header}\n#{nodes}\n#{arrows}\n}"
      end

      def each(&block)
        EnumerableVisitor.new(block).accept(self)
      end

      def to_real_sexp
        RealSexpVisitor.new.accept(self)
      end
    end

    %w[EmptyStatement Parenthetical ExpressionStatement True Delete Return TypeOf
       SourceElements Number LogicalNot AssignExpr FunctionBody
       ObjectLiteral UnaryMinus Throw This BitwiseNot Element String
       Array CaseBlock Null Break Parameter Block False Void Regexp
       Arguments Attr Continue ConstStatement UnaryPlus VarStatement].each do |node|
      eval "class #{node}Node < Node; end"
    end
  end
end