// File: /workspace/github_c_makefile_star2_O0/samsonjs[P]lake/src/eval.c
// Function: eval
LakeVal *eval(LakeCtx *ctx, Env *env, LakeVal *expr)
{
    LakeVal *result;
    LakeList *list;

    switch (expr->type)
    {

    /* self evaluating types */
    case TYPE_BOOL:
    case TYPE_INT:
    case TYPE_STR:
        result = expr;
        break;

    case TYPE_SYM:
        result = env_get(env, (void *)SYM(expr));
        if (!result)
        {
            ERR("undefined variable: %s", sym_repr(SYM(expr)));
        }
        break;

    case TYPE_DLIST:
        ERR("malformed function call");
        result = NULL;
        break;

    case TYPE_COMM:
        result = NULL;
        break;

    case TYPE_LIST:
        list = LIST(expr);

        if (LIST_N(list) == 0)
        {
            result = expr;
        }
        else
        {
            if (is_special_form(ctx, list))
            {
                result = eval_special_form(ctx, env, list);
            }
            else
            {
                LakeVal *fn = eval(ctx, env, LIST_VAL(list, 0));
                if (!fn)
                {
                    return NULL;
                }
                LakeList *args = list_make_with_capacity(LIST_N(list) - 1);
                int i;
                LakeVal *v;
                for (i = 1; i < LIST_N(list); ++i)
                {
                    v = eval(ctx, env, LIST_VAL(list, i));
                    if (v != NULL)
                    {
                        list_append(args, v);
                    }
                    else
                    {
                        list_free(args);
                        result = NULL;
                        goto done;
                    }
                }
                result = apply(ctx, fn, args);
            }
        }
        break;

    default:
        ERR("unrecognized value, type %d, size %zu bytes", expr->type,
            expr->size);
        DIE("we don't eval that around here!");
    }

done:
    return result;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x90, %rsp
movq %rdi, -0x10(%rbp)
movq %rsi, -0x18(%rbp)
movq %rdx, -0x20(%rbp)
movq -0x20(%rbp), %rax
movl (%rax), %eax
decl %eax
movl %eax, %ecx
movq %rcx, -0x58(%rbp)
subl $0x8, %eax
ja 0x2b06
movq -0x58(%rbp), %rax
leaq 0x6797(%rip), %rcx      # 0x9010
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq -0x20(%rbp), %rax
movq %rax, -0x28(%rbp)
jmp 0x2bb4
movq -0x18(%rbp), %rdi
movq -0x20(%rbp), %rsi
callq 0x1ae0
movq %rax, -0x28(%rbp)
cmpq $0x0, -0x28(%rbp)
jne 0x2907
jmp 0x28a9
movq 0xa748(%rip), %rax      # 0xcff8
movq (%rax), %rdi
leaq 0x67a4(%rip), %rsi      # 0x905e
movb $0x0, %al
callq 0x1160
movq 0xa730(%rip), %rax      # 0xcff8
movq (%rax), %rax
movq %rax, -0x60(%rbp)
movq -0x20(%rbp), %rdi
callq 0x80a0
movq -0x60(%rbp), %rdi
movq %rax, %rdx
leaq 0x6780(%rip), %rsi      # 0x9066
movb $0x0, %al
callq 0x1160
movq 0xa704(%rip), %rax      # 0xcff8
movq (%rax), %rdi
leaq 0x6ae2(%rip), %rsi      # 0x93e0
movb $0x0, %al
callq 0x1160
jmp 0x2907
jmp 0x2bb4
jmp 0x290e
movq 0xa6e3(%rip), %rax      # 0xcff8
movq (%rax), %rdi
leaq 0x673f(%rip), %rsi      # 0x905e
movb $0x0, %al
callq 0x1160
movq 0xa6cb(%rip), %rax      # 0xcff8
movq (%rax), %rdi
leaq 0x6746(%rip), %rsi      # 0x907d
movb $0x0, %al
callq 0x1160
movq 0xa6b3(%rip), %rax      # 0xcff8
movq (%rax), %rdi
leaq 0x6a91(%rip), %rsi      # 0x93e0
movb $0x0, %al
callq 0x1160
movq $0x0, -0x28(%rbp)
jmp 0x2bb4
movq $0x0, -0x28(%rbp)
jmp 0x2bb4
movq -0x20(%rbp), %rax
movq %rax, -0x30(%rbp)
movq -0x30(%rbp), %rax
cmpq $0x0, 0x18(%rax)
jne 0x2990
movq -0x20(%rbp), %rax
movq %rax, -0x28(%rbp)
jmp 0x2b01
movq -0x10(%rbp), %rdi
movq -0x30(%rbp), %rsi
callq 0x2750
cmpl $0x0, %eax
je 0x29bc
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rsi
movq -0x30(%rbp), %rdx
callq 0x2bd0
movq %rax, -0x28(%rbp)
jmp 0x2aff
movq -0x10(%rbp), %rax
movq %rax, -0x70(%rbp)
movq -0x18(%rbp), %rax
movq %rax, -0x68(%rbp)
movq -0x30(%rbp), %rcx
xorl %eax, %eax
cmpq 0x18(%rcx), %rax
jae 0x29e9
movq -0x30(%rbp), %rax
movq 0x20(%rax), %rax
movq (%rax), %rax
movq %rax, -0x78(%rbp)
jmp 0x29f1
xorl %eax, %eax
movq %rax, -0x78(%rbp)
jmp 0x29f1
movq -0x68(%rbp), %rsi
movq -0x70(%rbp), %rdi
movq -0x78(%rbp), %rdx
callq 0x2840
movq %rax, -0x38(%rbp)
cmpq $0x0, -0x38(%rbp)
jne 0x2a1a
movq $0x0, -0x8(%rbp)
jmp 0x2bbe
movq -0x30(%rbp), %rax
movq 0x18(%rax), %rdi
subq $0x1, %rdi
callq 0x4680
movq %rax, -0x40(%rbp)
movl $0x1, -0x44(%rbp)
movslq -0x44(%rbp), %rax
movq -0x30(%rbp), %rcx
cmpq 0x18(%rcx), %rax
jae 0x2aea
movq -0x10(%rbp), %rax
movq %rax, -0x88(%rbp)
movq -0x18(%rbp), %rax
movq %rax, -0x80(%rbp)
cmpl $0x0, -0x44(%rbp)
jl 0x2a88
movslq -0x44(%rbp), %rax
movq -0x30(%rbp), %rcx
cmpq 0x18(%rcx), %rax
jae 0x2a88
movq -0x30(%rbp), %rax
movq 0x20(%rax), %rax
movslq -0x44(%rbp), %rcx
movq (%rax,%rcx,8), %rax
movq %rax, -0x90(%rbp)
jmp 0x2a93
xorl %eax, %eax
movq %rax, -0x90(%rbp)
jmp 0x2a93
movq -0x80(%rbp), %rsi
movq -0x88(%rbp), %rdi
movq -0x90(%rbp), %rdx
callq 0x2840
movq %rax, -0x50(%rbp)
cmpq $0x0, -0x50(%rbp)
je 0x2ac4
movq -0x40(%rbp), %rdi
movq -0x50(%rbp), %rsi
callq 0x47f0
jmp 0x2ada
movq -0x40(%rbp), %rdi
callq 0x4610
movq $0x0, -0x28(%rbp)
jmp 0x2bb6
jmp 0x2adc
movl -0x44(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x44(%rbp)
jmp 0x2a36
movq -0x10(%rbp), %rdi
movq -0x38(%rbp), %rsi
movq -0x40(%rbp), %rdx
callq 0x2ce0
movq %rax, -0x28(%rbp)
jmp 0x2b01
jmp 0x2bb4
jmp 0x2b08
movq 0xa4e9(%rip), %rax      # 0xcff8
movq (%rax), %rdi
leaq 0x6545(%rip), %rsi      # 0x905e
movb $0x0, %al
callq 0x1160
movq 0xa4d1(%rip), %rax      # 0xcff8
movq (%rax), %rdi
movq -0x20(%rbp), %rax
movl (%rax), %edx
movq -0x20(%rbp), %rax
movq 0x8(%rax), %rcx
leaq 0x67b8(%rip), %rsi      # 0x92f7
movb $0x0, %al
callq 0x1160
movq 0xa4ab(%rip), %rax      # 0xcff8
movq (%rax), %rdi
leaq 0x6889(%rip), %rsi      # 0x93e0
movb $0x0, %al
callq 0x1160
jmp 0x2b60
jmp 0x2b62
movq 0xa48f(%rip), %rax      # 0xcff8
movq (%rax), %rdi
leaq 0x64eb(%rip), %rsi      # 0x905e
movb $0x0, %al
callq 0x1160
movq 0xa477(%rip), %rax      # 0xcff8
movq (%rax), %rdi
leaq 0x650a(%rip), %rsi      # 0x9095
movb $0x0, %al
callq 0x1160
movq 0xa45f(%rip), %rax      # 0xcff8
movq (%rax), %rdi
leaq 0x683d(%rip), %rsi      # 0x93e0
movb $0x0, %al
callq 0x1160
movl $0x1, %edi
callq 0x11c0
jmp 0x2bb6
movq -0x28(%rbp), %rax
movq %rax, -0x8(%rbp)
movq -0x8(%rbp), %rax
addq $0x90, %rsp
popq %rbp
retq
nopl (%rax,%rax)