project-eutopia/keisan

require "date"
require "time"

module Keisan
  module AST
    def self.parse(expression)
      AST::Builder.new(string: expression).ast
    end
  end
end

module KeisanNumeric
  def to_node
    Keisan::AST::Number.new(self)
  end

  def value(context = nil)
    self
  end
end

module KeisanString
  def to_node
    Keisan::AST::String.new(self)
  end

  def value(context = nil)
    self
  end
end

module KeisanTrueClass
  def to_node
    Keisan::AST::Boolean.new(true)
  end

  def value(context = nil)
    self
  end
end

module KeisanFalseClass
  def to_node
    Keisan::AST::Boolean.new(false)
  end

  def value(context = nil)
    self
  end
end

module KeisanNilClass
  def to_node
    Keisan::AST::Null.new
  end

  def value(context = nil)
    self
  end
end

module KeisanArray
  def to_node
    Keisan::AST::List.new(map {|n| n.to_node})
  end

  def value(context = nil)
    self
  end
end

module KeisanHash
  def to_node
    Keisan::AST::Hash.new(map {|k,v| [k.to_node, v.to_node]})
  end

  def value(context = nil)
    self
  end
end

module KeisanDate
  def to_node
    Keisan::AST::Date.new(self)
  end

  def value(context = nil)
    self
  end
end

module KeisanTime
  def to_node
    Keisan::AST::Time.new(self)
  end

  def value(context = nil)
    self
  end
end

class Numeric; prepend KeisanNumeric; end
class String; prepend KeisanString; end
class TrueClass; prepend KeisanTrueClass; end
class FalseClass; prepend KeisanFalseClass; end
class NilClass; prepend KeisanNilClass; end
class Array; prepend KeisanArray; end
class Hash; prepend KeisanHash; end
class Date; prepend KeisanDate; end
class Time; prepend KeisanTime; end