// File: /workspace/github_cpp_makefile_star2_O1/BlinfoldKing[P]lisval/src/lib/evaluator.cpp
// Function: Evaluator::eq()
pair<Token*, function<Token*(Token*)>> Evaluator::eq() {
    Token* op = new BinaryOperator(BinaryOperatorType::EQ);
    Token* var1 = new Variable("L");
    Token* var2 = new Variable("R");
    List* signature = new List();
    signature->list.push_back(op);
    signature->list.push_back(var1);
    signature->list.push_back(var2);
    Token* token = signature;
    auto res = make_pair(token, [this](Token* input) {
            List* list = static_cast<List*>(input);

            Token* a_token = this->eval(list->list[1]);
            Token* b_token = this->eval(list->list[2]);

            if (a_token->type != b_token->type) {
                if (a_token->type == TokenType::VARIABLE
                        || b_token->type == TokenType::VARIABLE) {
                    Token* t = new Error("cannot check equality of variable", input);
                    return t;
                }
            }

            if (a_token->type == TokenType::NUMBER) {
                Number* a = static_cast<Number*>(a_token);
                Number* b = static_cast<Number*>(b_token);

                Token* t = new Boolean(a->value == b->value);
                return t;
            }

            if (a_token->type == TokenType::ATOM) {
                Atom* a = static_cast<Atom*>(a_token);
                Atom* b = static_cast<Atom*>(b_token);

                Token* t = new Boolean(a->str == b->str);
                return t;
            }

            if (a_token->type == TokenType::BOOLEAN) {
                Boolean* a = static_cast<Boolean*>(a_token);
                Boolean* b = static_cast<Boolean*>(b_token);

                Token* t = new Boolean(a->value == b->value);
                return t;
            }

            Token* t = new Error("unsupported equality", input);
            return t;
    });

    return res;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
subq $0x60, %rsp
movq %rsi, %r14
movq %rdi, %rbx
movl $0x8, %edi
callq 0x31b0
movabsq $0x700000005, %rcx      # imm = 0x700000005
movq %rcx, (%rax)
movq %rax, -0x38(%rbp)
movl $0x28, %edi
callq 0x31b0
movq %rax, %r15
leaq -0x68(%rbp), %r12
movq %r12, -0x10(%r12)
leaq 0xb15e(%rip), %rsi      # 0xf2fb
leaq 0xb158(%rip), %rdx      # 0xf2fc
leaq -0x78(%rbp), %rdi
callq 0x3ba8
movl $0x3, (%r15)
leaq 0x8(%r15), %rdi
movq %r15, %rax
addq $0x18, %rax
movq %rax, 0x8(%r15)
movq -0x78(%rbp), %rsi
movq -0x70(%rbp), %rdx
addq %rsi, %rdx
callq 0x3a18
movq -0x78(%rbp), %rdi
cmpq %r12, %rdi
je 0x41e8
movq -0x68(%rbp), %rsi
incq %rsi
callq 0x31c0
movq %r15, -0x30(%rbp)
movl $0x28, %edi
callq 0x31b0
movq %rax, %r15
leaq -0x48(%rbp), %r12
movq %r12, -0x10(%r12)
leaq 0xb36a(%rip), %rsi      # 0xf573
leaq 0xb364(%rip), %rdx      # 0xf574
leaq -0x58(%rbp), %rdi
callq 0x3ba8
movl $0x3, (%r15)
leaq 0x8(%r15), %rdi
movq %r15, %rax
addq $0x18, %rax
movq %rax, 0x8(%r15)
movq -0x58(%rbp), %rsi
movq -0x50(%rbp), %rdx
addq %rsi, %rdx
callq 0x3a18
movq -0x58(%rbp), %rdi
cmpq %r12, %rdi
je 0x4254
movq -0x48(%rbp), %rsi
incq %rsi
callq 0x31c0
movq %r15, -0x28(%rbp)
movl $0x20, %edi
callq 0x31b0
movq %rax, %r15
movl $0x1, (%rax)
leaq 0x8(%rax), %r12
xorps %xmm0, %xmm0
movups %xmm0, 0x8(%rax)
movq $0x0, 0x18(%rax)
movq 0x10(%rax), %rsi
testq %rsi, %rsi
je 0x4295
movq -0x38(%rbp), %rax
movq %rax, (%rsi)
addq $0x8, 0x10(%r15)
jmp 0x42a1
leaq -0x38(%rbp), %rdx
movq %r12, %rdi
callq 0x9bf4
movq 0x10(%r15), %rsi
cmpq 0x18(%r15), %rsi
je 0x42b9
movq -0x30(%rbp), %rax
movq %rax, (%rsi)
addq $0x8, 0x10(%r15)
jmp 0x42c5
leaq -0x30(%rbp), %rdx
movq %r12, %rdi
callq 0x9bf4
movq 0x10(%r15), %rsi
cmpq 0x18(%r15), %rsi
je 0x42dd
movq -0x28(%rbp), %rax
movq %rax, (%rsi)
addq $0x8, 0x10(%r15)
jmp 0x42e9
leaq -0x28(%rbp), %rdx
movq %r12, %rdi
callq 0x9bf4
movq %r15, (%rbx)
xorps %xmm0, %xmm0
movups %xmm0, 0x8(%rbx)
movups %xmm0, 0x18(%rbx)
movq %r14, 0x8(%rbx)
leaq 0x33fa(%rip), %rax      # 0x76fc
movq %rax, 0x20(%rbx)
leaq 0x3653(%rip), %rax      # 0x7960
movq %rax, 0x18(%rbx)
movq %rbx, %rax
addq $0x60, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
movq %rax, %rbx
movq -0x58(%rbp), %rdi
cmpq %r12, %rdi
je 0x4352
movq -0x48(%rbp), %rsi
jmp 0x4345
jmp 0x434f
movq %rax, %rbx
movq -0x78(%rbp), %rdi
cmpq %r12, %rdi
je 0x4352
movq -0x68(%rbp), %rsi
incq %rsi
callq 0x31c0
jmp 0x4352
movq %rax, %rbx
movl $0x28, %esi
movq %r15, %rdi
callq 0x31c0
movq %rbx, %rdi
callq 0x32e0
nop