Get all ancestors and descendants including modules in Crystal

x.cr

# https://carc.in/#/r/620u

module Foo
end

module Bar
  include Foo
end

class Baz
  include Bar
end

abstract struct Qux
  include Bar
end

struct Quux < Qux
  end

class X(T)
  def initialize
    {% puts "descendants or self (modules + objects):" %}
    {% for type in Class.all_subclasses.select { |t| t.instance <= T}.map(&.instance)  %}
      {% pp type %}
    {% end %}
    {% puts "ancestors (modules + objects):" %}
    {% for type in (Class.all_subclasses.select { |t| t.instance > T && !(t.instance <= Object) }.map(&.instance) + Object.all_subclasses.select { |t| t > T && (t < Reference || t < Struct) }).uniq  %}
      {% pp type %}
    {% end %}
  end
end

X(Qux).new