normalizers.cpp

Go to the documentation of this file.

#include <fe/term.h>
 
#include <mim/tuple.h>
#include <mim/world.h>
 
#include "mim/plug/refly/refly.h"
 
using namespace std::string_literals;
 
namespace mim::plug::refly {
 
static_assert(sizeof(void*) <= sizeof(u64), "pointer doesn't fit into Lit");
 
namespace {
 
// The trick is that we simply "box" the pointer of @p def inside a Lit of type `refly.Code`.
const Def* do_reify(const Def* def) {
    auto& world = def->world();
    return world.lit(world.call<Code>(def->type()), reinterpret_cast<u64>(def));
}
 
void debug_print(const Def* lvl, const Def* def) {
    auto& world = def->world();
    auto level  = fe::Log::Level::Debug;
    if (auto l = Lit::isa(lvl)) {
        level = std::to_underlying(fe::Log::Level::Error) <= int(*l)
                     && int(*l) <= std::to_underlying(fe::Log::Level::Debug)
                  ? static_cast<fe::Log::Level>(*l)
                  : fe::Log::Level::Debug;
    }
    world.log().log(level, "{}debug_print: {}{}", fe::term::FG::Yellow, def, fe::term::FG::Reset);
    world.log().log(level, def->loc(), "def : {}", def);
    world.log().log(level, def->loc(), "id  : {}", def->unique_name());
    world.log().log(level, def->type()->loc(), "type: {}", def->type());
    world.log().log(level, def->loc(), "node: {}", def->node_name());
    world.log().log(level, def->loc(), "ops : {}", def->num_ops());
    world.log().log(level, def->loc(), "proj: {}", def->num_projs());
    world.log().log(level, def->loc(), "eops: {}", def->num_deps());
}
 
} // namespace
 
template<dbg id>
const Def* normalize_dbg(const Def*, const Def*, const Def* arg) {
    auto [lvl, x] = arg->projs<2>();
    debug_print(lvl, x);
    return id == dbg::perm ? nullptr : x;
}
 
const Def* normalize_reify(const Def*, const Def*, const Def* arg) { return do_reify(arg); }
 
const Def* normalize_reflect(const Def*, const Def*, const Def* arg) {
    if (auto l = Lit::isa(arg)) return reinterpret_cast<const Def*>(*l);
    return {};
}
 
const Def* normalize_type(const Def*, const Def*, const Def* arg) { return arg->type(); }
const Def* normalize_gid(const Def*, const Def*, const Def* arg) { return arg->world().lit_nat(arg->gid()); }
 
template<struc id>
const Def* normalize_struc(const Def*, const Def*, const Def* arg) {
    auto [a, b] = arg->projs<2>();
    auto res    = a == b;
    if (res ^ (id == struc::e)) arg->blame("'{}' and '{}' {}structural-equivalent", a, b, !res ? "not " : "").bail();
    return a;
}
 
template<alpha id>
const Def* normalize_alpha(const Def*, const Def*, const Def* arg) {
    auto [a, b] = arg->projs<2>();
    auto res    = Check::test_alpha(a, b);
    if (res ^ (id == alpha::e)) arg->blame("'{}' and '{}' {}alpha-equivalent", a, b, !res ? "not " : "").bail();
    return a;
}
 
const Def* normalize_check_bot(const Def*, const Def* c, const Def* arg) {
    if (!arg->isa<Bot>()) c->blame("'{}' is not bottom", arg).bail();
    return arg;
}
 
const Def* normalize_check(const Def* type, const Def*, const Def* arg) {
    auto& w               = type->world();
    auto [cond, val, msg] = arg->projs<3>();
 
    if (cond == w.lit_tt()) return val;
    if (cond == w.lit_ff()) {
        auto s = tuple2str(msg);
        if (s.empty()) s = "unknown error"s;
        w.log().e("{}", s);
    }
 
    return nullptr;
}
 
MIM_refly_NORMALIZER_IMPL
 
} // namespace mim::plug::refly