toddcox-visualize/tc/src/lang.cpp

#include <vector>
#include <stack>
#include <string>
#include <cassert>

#include <tc/util.hpp>
#include <tc/group.hpp>
#include <tc/groups.hpp>

#include <peglib.h>

#include <fmt/core.h>
#include <fmt/ranges.h>

struct Op {
    enum Code {
        LINK,
        PUSH,
        POP,
        LOOP,
        FREE,
    };

    Code code: 4;
    unsigned int value: 12;

    explicit Op(Code code, unsigned int value = 0)
        : code(code), value(value) {}
};

template<>
struct fmt::formatter<Op> {
    template<typename ParseContext>
    constexpr auto parse(ParseContext &ctx) {
        return ctx.begin();
    }

    template<typename FormatContext>
    auto format(const Op &op, FormatContext &ctx) {
        switch (op.code) {
            case Op::LINK:
                return fmt::format_to(ctx.out(), "link({})",
                                      (unsigned int) op.value);
            case Op::PUSH:
                return fmt::format_to(ctx.out(), "push()");
            case Op::POP:
                return fmt::format_to(ctx.out(), "pop()");
            case Op::LOOP:
                return fmt::format_to(ctx.out(), "loop()");
            case Op::FREE:
                return fmt::format_to(ctx.out(), "free()");
            default:
                return fmt::format_to(ctx.out(), "[{}]({})",
                                      (unsigned int) op.code,
                                      (unsigned int) op.value);
        }
    }
};

struct Factor {
    unsigned int mode;
    std::vector<unsigned int> orders;
};

struct codegen {
    std::vector<Op> ops;

    void link(unsigned int order) {
        ops.emplace_back(Op::LINK, order);
    }

    void push() {
        ops.emplace_back(Op::PUSH);
    }

    void pop() {
        ops.emplace_back(Op::POP);
    }

    void loop() {
        ops.emplace_back(Op::LOOP);
    }
    
    void free() {
        ops.emplace_back(Op::FREE);
    }

    template<typename It>
    void insert(It begin, It end) {
        std::copy(begin, end, std::back_inserter(ops));
    }

    void insert(const codegen &o) {
        insert(o.ops.begin(), o.ops.end());
    }
};

static const std::string GRAMMAR = R"(
    root    <- term+
    term    <- product / op
    op      <- block / link
    block   <- '(' root ')' / '{' root '}' / '[' root ']'
    link    <- int / '-'
    product <- op '*' factor
    factor  <- int / '{' int+ '}' / '[' int+ ']'
    int     <- < [0-9]+ >

    %whitespace <- [ \t\n\r]*
)";

peg::parser build_parser() {
    peg::parser parser;
    parser.set_logger([](size_t line, size_t col, const std::string &msg, const std::string &rule) {
        fmt::print(stderr, "{}:{} [{}] {}\n", line, col, rule, msg);
    });
    auto ok = parser.load_grammar(GRAMMAR);
    assert(ok);

    parser["int"] = [](const peg::SemanticValues &vs) -> std::any {
        return vs.token_to_number<unsigned int>();
    };

    parser["link"] = [](const peg::SemanticValues &vs) -> std::any {
        codegen cg;

        if (vs.choice() == 0) {
            auto order = std::any_cast<unsigned int>(vs[0]);
            cg.link(order);
        } else {
            cg.free();
        }

        return cg;
    };

    parser["root"] = [](const peg::SemanticValues &vs) -> std::any {
        codegen cg;

        for (const auto &sub: vs) {
            cg.insert(std::any_cast<codegen>(sub));
        }

        return cg;
    };

    parser["block"] = [](const peg::SemanticValues &vs) -> std::any {
        if (vs.choice() == 0) return vs[0];

        codegen cg;

        cg.push();
        cg.insert(std::any_cast<codegen>(vs[0]));
        if (vs.choice() == 1) cg.loop();
        cg.pop();

        return cg;
    };

    parser["factor"] = [](const peg::SemanticValues &vs) -> std::any {
        return Factor{
            (unsigned int) vs.choice(),
            vs.transform<unsigned int>(),
        };
    };

    parser["product"] = [](const peg::SemanticValues &vs) -> std::any {
        auto sub = std::any_cast<codegen>(vs[0]);
        auto fac = std::any_cast<Factor>(vs[1]);

        codegen cg;

        for (const auto &order: fac.orders) {
            if (fac.mode == 0) {
                for (unsigned int i = 0; i < order; ++i) {
                    cg.insert(sub);
                }
            } else {
                cg.push();
                for (unsigned int i = 0; i < order; ++i) {
                    cg.insert(sub);
                }
                if (fac.mode == 1) cg.loop();
                cg.pop();
            }
        }

        return cg;
    };

    return parser;
}

#ifndef NDEBUG
peg::parser build_ast_parser() {
    peg::parser parser;
    parser.set_logger([](size_t line, size_t col, const std::string &msg, const std::string &rule) {
        fmt::print(stderr, "{}:{} [{}] {}\n", line, col, rule, msg);
    });
    auto ok = parser.load_grammar(GRAMMAR);
    assert(ok);

    parser.enable_ast();

    return parser;
}
#endif

std::vector<Op> compile(const std::string &source) {
#ifndef NDEBUG
    static peg::parser ast_parser = build_ast_parser();
    std::shared_ptr<peg::Ast> ast;
    bool ast_ok = ast_parser.parse(source, ast);
    assert(ast_ok);
    std::cout << peg::ast_to_s(ast) << std::endl;
#endif

    static peg::parser parser = build_parser();
    codegen cg;
    bool ok = parser.parse(source, cg);
    assert(ok);
    return cg.ops;
}

struct Graph {
    size_t rank{};
    std::vector<tc::Rel> edges{};
};

Graph eval(const std::vector<Op> &ops) {
    std::vector<std::stack<size_t>> stacks(1);

    Graph g;
    stacks.back().emplace(g.rank++);

    for (const auto &op: ops) {
        switch (op.code) {
            case Op::FREE: 
            case Op::LINK: {
                tc::Mult order = tc::FREE;
                
                if (op.code == Op::LINK) {
                    order = op.value;
                }

                auto top = stacks.back().top();
                auto curr = g.rank++;

                stacks.back().emplace(curr);
                g.edges.emplace_back(top, curr, order);

                break;
            }
            case Op::PUSH: {
                stacks.emplace_back();

                auto ptop = stacks[stacks.size() - 2].top();
                stacks.back().emplace(ptop);

                break;
            }
            case Op::POP: {
                stacks.pop_back();

                break;
            }
            case Op::LOOP: {
                g.rank--;

                auto ptop = stacks[stacks.size() - 2].top();
                auto &[top, _, order] = g.edges.back();

                stacks.back().pop();
                g.edges.pop_back();

                g.edges.emplace_back(top, ptop, order);

                break;
            }
            default:
                throw std::runtime_error("Invalid opcode");
        }
    }

    return g;
}

namespace tc {
    Group coxeter(const std::string &symbol) {
        auto ops = compile(symbol);

//        fmt::print("#ops: {}\n", ops.size());
//        for (const auto &op: ops) {
//            fmt::print(" {}\n", op);
//        }
        
        auto diagram = eval(ops);

        Group res((int) diagram.rank);

        for (const auto &[i, j, order]: diagram.edges) {
            res.set({i, j, order});
        }

        return res;
    }
}