// File: /workspace/github_c_makefile_star2_O1/jiribenes[P]scheme/src/read.c
// Function: read1
static void read1(reader_t *reader) {
    eat_whitespace(reader);

    if (reader->toktype == TOK_EOF) {
        return;
    } else if (reader->toktype == TOK_LPAREN) {
        next_char(reader);
        read_list(reader);
    } else if (reader->toktype == TOK_NUMBER) {
        read_number(reader);
    } else if (reader->toktype == TOK_STRING) {
        read_string(reader);
    } else if (reader->toktype == TOK_QUOTE) {
        read_quote(reader);
    } else if (reader->toktype == TOK_HASH) {
        if (peek_next_char(reader) == 't') {
            next_char(reader);
            next_char(reader);
            reader->tokval = TRUE_VAL;
        } else if (peek_next_char(reader) == 'f') {
            next_char(reader);
            next_char(reader);
            reader->tokval = FALSE_VAL;
        } else if (peek_next_char(reader) == '(') {
            // vector => #(elem1 elem2 elem3 ... )
            read_vector(reader);
        } else {
            error_print(reader, "Invalid token beginning with # - "
                                "only #t, #f and #(...) are supported");
        }
    } else if (reader->toktype == TOK_RPAREN) {
        error_print(reader, "Unexpected ')'");
        next_char(reader);
        return;
    } else if (reader->toktype == TOK_DOT) {
        error_print(reader, "Unexpected '.'");
        next_char(reader);
        return;
    } else if (reader->toktype == TOK_SYMBOL) {
        read_symbol(reader);
        return;
    }

    next_token(reader);
}

// Assembly:
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
movq %rdi, %rbx
callq 0x40c9
movl 0x30(%rbx), %eax
cmpq $0x9, %rax
ja 0x404e
leaq 0x3c90(%rip), %rcx      # 0x7750
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq 0x10(%rbx), %rax
movb (%rax), %cl
incq %rax
movq %rax, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %cl
jne 0x3ae8
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movq %rbx, %rdi
callq 0x40c9
movq %rbx, %rdi
callq 0x39a0
movl 0x30(%rbx), %eax
testl %eax, %eax
je 0x4020
cmpl $0x4, %eax
je 0x3f8a
cmpl $0x3, %eax
jne 0x3f96
movq 0x10(%rbx), %rax
movb (%rax), %cl
incq %rax
movq %rax, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %cl
jne 0x3b34
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movabsq $0x7ffc000000000001, %rax # imm = 0x7FFC000000000001
jmp 0x3d7d
leaq 0x3c95(%rip), %rsi      # 0x77df
jmp 0x3cd0
movq 0x10(%rbx), %rax
movb (%rax), %cl
leaq 0x1(%rax), %rsi
movq %rsi, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %cl
jne 0x3b6f
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movq %rsi, 0x18(%rbx)
movb (%rsi), %dl
cmpb $0x22, %dl
je 0x3bac
movl 0x24(%rbx), %ecx
addq $0x2, %rax
movq %rax, 0x10(%rbx)
incl %ecx
movl %ecx, 0x24(%rbx)
cmpb $0xa, %dl
jne 0x3b9e
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movl $0x1, %ecx
movb (%rax), %dl
incq %rax
cmpb $0x22, %dl
jne 0x3b81
addq $-0x2, %rax
leaq 0x2(%rax), %rcx
movq %rcx, 0x10(%rbx)
incl 0x24(%rbx)
movq %rsi, %rcx
notq %rcx
leaq (%rax,%rcx), %rdx
addq $0x2, %rdx
movq (%rbx), %rdi
callq 0x4839
movabsq $-0x4000000000000, %rcx # imm = 0xFFFC000000000000
orq %rax, %rcx
movq %rcx, 0x28(%rbx)
jmp 0x404e
movq 0x10(%rbx), %rdx
leaq 0x1(%rdx), %rax
movabsq $0x600000007a005639, %rcx # imm = 0x600000007A005639
movzbl -0x1(%rax), %esi
leal -0x30(%rsi), %edi
cmpb $0xa, %dil
jb 0x3c20
movl %esi, %edi
andb $-0x21, %dil
addb $-0x41, %dil
cmpb $0x1a, %dil
jb 0x3c20
leal -0x21(%rsi), %edi
cmpl $0x3e, %edi
ja 0x3c3e
btq %rdi, %rcx
jae 0x3c3e
movq %rax, 0x10(%rbx)
incl 0x24(%rbx)
cmpl $0xa, %esi
jne 0x3c36
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
incq %rdx
incq %rax
jmp 0x3bf5
cmpl $0x7e, %esi
je 0x3c20
movq (%rbx), %rdi
movq 0x18(%rbx), %rsi
subq %rsi, %rdx
callq 0x4af4
movabsq $-0x4000000000000, %rcx # imm = 0xFFFC000000000000
orq %rax, %rcx
movq %rcx, 0x28(%rbx)
jmp 0x3cf9
movq 0x10(%rbx), %rax
movb (%rax), %cl
testb %cl, %cl
je 0x403d
cmpb $0x74, 0x1(%rax)
jne 0x3f2e
leaq 0x1(%rax), %rdx
movq %rdx, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %cl
jne 0x3c9a
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movb 0x1(%rax), %cl
addq $0x2, %rax
movq %rax, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %cl
jne 0x3cb7
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movabsq $0x7ffc000000000001, %rax # imm = 0x7FFC000000000001
incq %rax
jmp 0x3d7d
leaq 0x3b1e(%rip), %rsi      # 0x77ee
movq %rbx, %rdi
xorl %eax, %eax
callq 0x4150
movq 0x10(%rbx), %rax
movb (%rax), %cl
incq %rax
movq %rax, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %cl
jne 0x3cf9
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
retq
movq 0x10(%rbx), %rax
movb (%rax), %cl
incq %rax
movq %rax, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %cl
jne 0x3d22
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movq %rbx, %rdi
callq 0x39a0
movq (%rbx), %rdi
leaq 0x3481(%rip), %rsi      # 0x71b5
movl $0x5, %edx
callq 0x4af4
movq %rax, %r14
movq %rbx, %rdi
callq 0x3a9b
movq (%rbx), %r15
movq 0x28(%rbx), %rsi
movabsq $-0x4000000000000, %r12 # imm = 0xFFFC000000000000
orq %r14, %r12
movabsq $0x7ffc000000000001, %rdx # imm = 0x7FFC000000000001
movq %r15, %rdi
callq 0x4b63
movq %r15, %rdi
movq %r12, %rsi
movq %rax, %rdx
callq 0x4b63
movq %rax, 0x28(%rbx)
jmp 0x404e
callq 0x1040
movq %rax, %r14
movl $0x0, (%rax)
movq 0x18(%rbx), %rdi
xorl %esi, %esi
callq 0x1070
movq 0x10(%rbx), %rcx
movzbl (%rcx), %eax
cmpl $0x2d, %eax
je 0x3db0
cmpl $0x2b, %eax
jne 0x3dc8
incq %rcx
movq %rcx, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %al
jne 0x3dc8
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movq 0x10(%rbx), %rax
movb (%rax), %cl
leal -0x30(%rcx), %edx
cmpb $0x9, %dl
ja 0x3e0a
movl 0x24(%rbx), %edx
incq %rax
movq %rax, 0x10(%rbx)
incl %edx
movl %edx, 0x24(%rbx)
cmpb $0xa, %cl
jne 0x3df9
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movl $0x1, %edx
movb (%rax), %cl
leal -0x30(%rcx), %esi
incq %rax
cmpb $0xa, %sil
jb 0x3ddc
decq %rax
cmpb $0x2e, %cl
jne 0x3e64
movb 0x1(%rax), %cl
addb $-0x30, %cl
cmpb $0x9, %cl
ja 0x3e64
leaq 0x1(%rax), %rdx
movq %rdx, 0x10(%rbx)
movl 0x24(%rbx), %ecx
incl %ecx
movl %ecx, 0x24(%rbx)
movb (%rdx), %dl
leal -0x30(%rdx), %esi
cmpb $0x9, %sil
ja 0x3e64
addq $0x2, %rax
movq %rax, 0x10(%rbx)
incl %ecx
movl %ecx, 0x24(%rbx)
cmpb $0xa, %dl
jne 0x3e56
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movl $0x1, %ecx
movb (%rax), %dl
leal -0x30(%rdx), %esi
incq %rax
cmpb $0xa, %sil
jb 0x3e39
movq 0x10(%rbx), %rax
movzbl (%rax), %ecx
movl %ecx, %edx
orl $0x20, %edx
cmpl $0x65, %edx
jne 0x3ef9
leaq 0x1(%rax), %rdx
movq %rdx, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %cl
jne 0x3e93
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movzbl (%rdx), %ecx
cmpl $0x2d, %ecx
je 0x3ea0
cmpl $0x2b, %ecx
jne 0x3eba
addq $0x2, %rax
movq %rax, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %cl
jne 0x3eba
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movq 0x10(%rbx), %rax
movb (%rax), %cl
leal -0x30(%rcx), %edx
cmpb $0x9, %dl
ja 0x3ef9
movl 0x24(%rbx), %edx
incq %rax
movq %rax, 0x10(%rbx)
incl %edx
movl %edx, 0x24(%rbx)
cmpb $0xa, %cl
jne 0x3eeb
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movl $0x1, %edx
movb (%rax), %cl
leal -0x30(%rcx), %esi
incq %rax
cmpb $0xa, %sil
jb 0x3ece
cmpl $0x22, (%r14)
jne 0x3f24
movq 0x18(%rbx), %rax
movsbl (%rax), %edx
leaq 0x3924(%rip), %rsi      # 0x7831
movq %rbx, %rdi
xorl %eax, %eax
callq 0x4150
movq $0x0, 0x28(%rbx)
jmp 0x404e
movsd %xmm0, 0x28(%rbx)
jmp 0x404e
testb %cl, %cl
je 0x403d
cmpb $0x66, 0x1(%rax)
jne 0x4029
leaq 0x1(%rax), %rdx
movq %rdx, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %cl
jne 0x3f5a
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movb 0x1(%rax), %cl
addq $0x2, %rax
movq %rax, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %cl
jne 0x3f77
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movabsq $0x7ffc000000000001, %rax # imm = 0x7FFC000000000001
orq $0x2, %rax
jmp 0x3d7d
leaq 0x3889(%rip), %rsi      # 0x781a
jmp 0x4044
movabsq $0x7ffc000000000001, %r15 # imm = 0x7FFC000000000001
movq %rbx, %rdi
callq 0x3a9b
movq %rbx, %rdi
callq 0x40c9
movq (%rbx), %rdi
movq 0x28(%rbx), %rsi
movq %r15, %rdx
callq 0x4b63
cmpl $0x0, 0x30(%rbx)
je 0x404e
movq %rax, %r14
movabsq $0x3ffffffffffff, %r13  # imm = 0x3FFFFFFFFFFFF
movq %rax, %r12
movq %rbx, %rdi
callq 0x39a0
movl 0x30(%rbx), %eax
testl %eax, %eax
je 0x4020
andq %r13, %r12
cmpl $0x4, %eax
je 0x405f
cmpl $0x3, %eax
je 0x4097
movq %rbx, %rdi
callq 0x3a9b
movq (%rbx), %rdi
movq 0x28(%rbx), %rsi
movq %r15, %rdx
callq 0x4b63
movq %rax, 0x18(%r12)
cmpl $0x0, 0x30(%rbx)
movq %rax, %r12
jne 0x3fd9
jmp 0x404e
leaq 0x37d6(%rip), %rsi      # 0x77fd
jmp 0x4044
testb %cl, %cl
je 0x403d
cmpb $0x28, 0x1(%rax)
jne 0x403d
movq %rbx, %rdi
callq 0x4217
jmp 0x404e
leaq 0x3755(%rip), %rsi      # 0x7799
movq %rbx, %rdi
xorl %eax, %eax
callq 0x4150
movq %rbx, %rdi
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
jmp 0x39a0
movq 0x10(%rbx), %rax
movb (%rax), %cl
incq %rax
movq %rax, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %cl
jne 0x407e
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
movq %rbx, %rdi
callq 0x39a0
movq %rbx, %rdi
callq 0x3a9b
movq 0x28(%rbx), %rax
movq %rax, 0x18(%r12)
movabsq $-0x4000000000000, %rax # imm = 0xFFFC000000000000
orq %rax, %r14
movq %r14, 0x28(%rbx)
movq 0x10(%rbx), %rax
movb (%rax), %cl
incq %rax
movq %rax, 0x10(%rbx)
incl 0x24(%rbx)
cmpb $0xa, %cl
jne 0x404e
incl 0x20(%rbx)
movl $0x1, 0x24(%rbx)
jmp 0x404e