module Sol
  module Named
    attr_reader :name
    def initialize name
      @name = name
    end
    def each(&block)
    end
  end

  class LocalVariable < Expression
    include Named
    def to_slot_definition(compiler)
      slot_def = compiler.slot_type_for(@name)
      SlotMachine::SlotDefinition.for(:message , slot_def)
    end
    def to_s(depth = 0)
      name.to_s
    end
    def each(&block)
      block.call(self)
    end
  end

  class InstanceVariable < Expression
    include Named
    def to_slot_definition(_)
      SlotMachine::SlotDefinition.for(:message , [ :receiver , @name] )
    end
    # used to collect type information
    def add_ivar( array )
      array << @name
    end
    def to_s(depth = 0)
      at_depth(depth , "@#{name}")
    end
    def each(&block)
      block.call(self)
    end
  end

  class ClassVariable < Expression
    include Named
    def each(&block)
      block.call(self)
    end
  end

  class ModuleName < Expression
    include Named
    def ct_type
      get_named_class.single_class.instance_type
    end
    def to_slot_definition(_)
      return SlotMachine::SlotDefinition.for( get_named_class, [])
    end
    def get_named_class
      Parfait.object_space.get_class_by_name(self.name)
    end
    def each(&block)
      block.call(self)
    end
    def to_s
      @name.to_s
    end
  end
end