// File: /workspace/github_c_makefile_star2_O0/eiselekd[P]MinimalLisp/./f1.c
// Function: word
v *
word(fctx *cctx)
{
    int c, l = 0, bc = 0; char *n = 0; v *s;
retry:
    while(strchr(" \n\t",(c = key(cctx))));
    if (c == '(') { /* eat comments */
        cctx->b[l++] = c; 
        if (strchr(" \t",(c = key(cctx)))) {
            l--; bc = 1;
            do { 
                c = key(cctx);
                switch(c) {
                case ')': bc--; break;
                case '(': bc++; break;
                };
            } while(!(bc <= 0 || c == EOF));
            goto retry;
        };
    } else if (c == '\\') {
        do {
            c = key(cctx);
        } while(!(c == '\n' || c == EOF));
        goto retry;
    } 
    do {
        cctx->b[l++] = c; 
        c = key(cctx);
    } while(!(c == ' ' || c == '\n' || c == EOF));
    s = unique(&cctx->lctx, cctx->b, l);
    return s;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x8(%rbp)
movl $0x0, -0x10(%rbp)
movl $0x0, -0x14(%rbp)
movq $0x0, -0x20(%rbp)
jmp 0xefe4
movq -0x8(%rbp), %rdi
callq 0x7b60
movl %eax, %esi
movl %esi, -0xc(%rbp)
leaq 0x153f(%rip), %rdi      # 0x10538
callq 0x1050
cmpq $0x0, %rax
je 0xf006
jmp 0xefe4
cmpl $0x28, -0xc(%rbp)
jne 0xf0bc
movl -0xc(%rbp), %eax
movb %al, %dl
movq -0x8(%rbp), %rax
movl -0x10(%rbp), %ecx
movl %ecx, %esi
addl $0x1, %esi
movl %esi, -0x10(%rbp)
movslq %ecx, %rcx
movb %dl, 0x98(%rax,%rcx)
movq -0x8(%rbp), %rdi
callq 0x7b60
movl %eax, %esi
movl %esi, -0xc(%rbp)
leaq 0x14f9(%rip), %rdi      # 0x1053c
callq 0x1050
cmpq $0x0, %rax
je 0xf0ba
movl -0x10(%rbp), %eax
addl $-0x1, %eax
movl %eax, -0x10(%rbp)
movl $0x1, -0x14(%rbp)
movq -0x8(%rbp), %rdi
callq 0x7b60
movl %eax, -0xc(%rbp)
movl -0xc(%rbp), %eax
movl %eax, -0x2c(%rbp)
subl $0x28, %eax
je 0xf08c
jmp 0xf077
movl -0x2c(%rbp), %eax
subl $0x29, %eax
jne 0xf095
jmp 0xf081
movl -0x14(%rbp), %eax
addl $-0x1, %eax
movl %eax, -0x14(%rbp)
jmp 0xf095
movl -0x14(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x14(%rbp)
jmp 0xf097
movb $0x1, %al
cmpl $0x0, -0x14(%rbp)
movb %al, -0x2d(%rbp)
jle 0xf0ac
cmpl $-0x1, -0xc(%rbp)
sete %al
movb %al, -0x2d(%rbp)
movb -0x2d(%rbp), %al
xorb $-0x1, %al
testb $0x1, %al
jne 0xf05e
jmp 0xefe2
jmp 0xf0f5
cmpl $0x5c, -0xc(%rbp)
jne 0xf0f3
jmp 0xf0c4
movq -0x8(%rbp), %rdi
callq 0x7b60
movl %eax, -0xc(%rbp)
movb $0x1, %al
cmpl $0xa, -0xc(%rbp)
movb %al, -0x2e(%rbp)
je 0xf0e5
cmpl $-0x1, -0xc(%rbp)
sete %al
movb %al, -0x2e(%rbp)
movb -0x2e(%rbp), %al
xorb $-0x1, %al
testb $0x1, %al
jne 0xf0c4
jmp 0xefe2
jmp 0xf0f5
jmp 0xf0f7
movl -0xc(%rbp), %eax
movb %al, %dl
movq -0x8(%rbp), %rax
movl -0x10(%rbp), %ecx
movl %ecx, %esi
addl $0x1, %esi
movl %esi, -0x10(%rbp)
movslq %ecx, %rcx
movb %dl, 0x98(%rax,%rcx)
movq -0x8(%rbp), %rdi
callq 0x7b60
movl %eax, -0xc(%rbp)
movb $0x1, %al
cmpl $0x20, -0xc(%rbp)
movb %al, -0x2f(%rbp)
je 0xf141
movb $0x1, %al
cmpl $0xa, -0xc(%rbp)
movb %al, -0x2f(%rbp)
je 0xf141
cmpl $-0x1, -0xc(%rbp)
sete %al
movb %al, -0x2f(%rbp)
movb -0x2f(%rbp), %al
xorb $-0x1, %al
testb $0x1, %al
jne 0xf0f7
movq -0x8(%rbp), %rdi
movq -0x8(%rbp), %rsi
addq $0x98, %rsi
movl -0x10(%rbp), %edx
callq 0x2f70
movq %rax, -0x28(%rbp)
movq -0x28(%rbp), %rax
addq $0x30, %rsp
popq %rbp
retq
nop