module Vool
  class Statement
    def slot_class
      Mom::SlotMove
    end
  end
  class ConstantStatement < Statement
    def slot_class
      Mom::SlotConstant
    end
  end

  class IntegerStatement < ConstantStatement
    attr_reader :value
    def initialize(value)
      @value = value
    end
    def to_mom(method)
      return Mom::IntegerConstant.new(@value)
    end
    def ct_type
      Parfait.object_space.get_class_by_name(:Integer).instance_type
    end
  end
  class FloatStatement < ConstantStatement
    attr_reader :value
    def initialize(value)
      @value = value
    end
    def ct_type
      true
    end
  end
  class TrueStatement < ConstantStatement
    def ct_type
      Parfait.object_space.get_class_by_name(:True).instance_type
    end
  end
  class FalseStatement < ConstantStatement
    def ct_type
      Parfait.object_space.get_class_by_name(:False).instance_type
    end
  end
  class NilStatement < ConstantStatement
    def ct_type
      Parfait.object_space.get_class_by_name(:Nil).instance_type
    end
  end
  class SelfStatement < Statement
    attr_reader :clazz
    def set_class(clazz)
      @clazz = clazz
    end
    def to_mom(in_method)
      Mom::SlotDefinition.new(:message , [:self])
    end
    def ct_type
      @clazz.instance_type
    end
  end
  class SuperStatement < Statement
  end
  class StringStatement < ConstantStatement
    attr_reader :value
    def initialize(value)
      @value = value
    end
    def to_mom(method)
      return Mom::StringConstant.new(@value)
    end
    def ct_type
      Parfait.object_space.get_class_by_name(:Word).instance_type
    end
  end
  class SymbolStatement < StringStatement
    def ct_type
      Parfait.object_space.get_class_by_name(:Word).instance_type
    end
  end
end