// File: /workspace/github_c_makefile_star2_O0/blakemcbride[P]LISP9/ls9.c
// Function: meta
cell meta(void) {
	int	c, cmd, i;
	cell	n, cmdsym;
	char	s[128];

	cmd = tolower(readc());
	c = readc();
	while (' ' == c) c = readc();
	i = 0;
	while (c != '\n' && c != EOF) {
		if (i < sizeof(s) - 6)
			s[i++] = c;
		c = readc();
	}
	rejectc(c);
	s[i] = 0;
	if ('l' == cmd) strcat(s, ".ls9");
	n = mkstr(s, strlen(s));
	n = 0 == i? NIL: cons(n, NIL);
	protect(n);
	switch (cmd) {
	case 'c':	cmdsym = symref("syscmd"); break;
	case 'h':	cmdsym = symref("help"); break;
	case 'l':	cmdsym = P_load; break;
	default: 	prints(",c = syscmd"); nl();
			prints(",h = help"); nl();
			prints(",l = load"); nl();
			return NIL;
	}
	unprot(1);
	return cons(cmdsym, n);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0xc0, %rsp
callq 0x29f0
movl %eax, %edi
callq 0x2160
movl %eax, -0xc(%rbp)
callq 0x29f0
movl %eax, -0x8(%rbp)
movl $0x20, %eax
cmpl -0x8(%rbp), %eax
jne 0x6846
callq 0x29f0
movl %eax, -0x8(%rbp)
jmp 0x6832
movl $0x0, -0x10(%rbp)
xorl %eax, %eax
cmpl $0xa, -0x8(%rbp)
movb %al, -0xa1(%rbp)
je 0x6868
cmpl $-0x1, -0x8(%rbp)
setne %al
movb %al, -0xa1(%rbp)
movb -0xa1(%rbp), %al
testb $0x1, %al
jne 0x6874
jmp 0x68a1
movslq -0x10(%rbp), %rax
cmpq $0x7a, %rax
jae 0x6897
movl -0x8(%rbp), %eax
movb %al, %cl
movl -0x10(%rbp), %eax
movl %eax, %edx
addl $0x1, %edx
movl %edx, -0x10(%rbp)
cltq
movb %cl, -0xa0(%rbp,%rax)
callq 0x29f0
movl %eax, -0x8(%rbp)
jmp 0x684d
movl -0x8(%rbp), %edi
callq 0x2ab0
movslq -0x10(%rbp), %rax
movb $0x0, -0xa0(%rbp,%rax)
movl $0x6c, %eax
cmpl -0xc(%rbp), %eax
jne 0x68d2
leaq -0xa0(%rbp), %rdi
leaq 0x158af(%rip), %rsi     # 0x1c17c
callq 0x21e0
leaq -0xa0(%rbp), %rax
movq %rax, -0xb0(%rbp)
leaq -0xa0(%rbp), %rdi
callq 0x2090
movq -0xb0(%rbp), %rdi
movl %eax, %esi
callq 0x2880
movl %eax, -0x14(%rbp)
xorl %eax, %eax
cmpl -0x10(%rbp), %eax
jne 0x6911
movl $0xffffffff, %eax       # imm = 0xFFFFFFFF
movl %eax, -0xb4(%rbp)
jmp 0x6926
movl -0x14(%rbp), %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
xorl %edx, %edx
callq 0x3990
movl %eax, -0xb4(%rbp)
movl -0xb4(%rbp), %eax
movl %eax, -0x14(%rbp)
movl -0x14(%rbp), %edi
movl 0x19838(%rip), %esi     # 0x20170
xorl %edx, %edx
callq 0x3990
movl %eax, 0x1982b(%rip)     # 0x20170
movl -0xc(%rbp), %eax
movl %eax, -0xb8(%rbp)
subl $0x63, %eax
je 0x696f
jmp 0x6955
movl -0xb8(%rbp), %eax
subl $0x68, %eax
je 0x6980
jmp 0x6962
movl -0xb8(%rbp), %eax
subl $0x6c, %eax
je 0x6991
jmp 0x699c
leaq 0x14ca7(%rip), %rdi     # 0x1b61d
callq 0x4d90
movl %eax, -0x18(%rbp)
jmp 0x69ed
leaq 0x14ca2(%rip), %rdi     # 0x1b629
callq 0x4d90
movl %eax, -0x18(%rbp)
jmp 0x69ed
movl 0x19c9d(%rip), %eax     # 0x20634
movl %eax, -0x18(%rbp)
jmp 0x69ed
leaq 0x14c75(%rip), %rdi     # 0x1b618
callq 0x25a0
leaq 0x158d1(%rip), %rdi     # 0x1c280
callq 0x25a0
leaq 0x14c69(%rip), %rdi     # 0x1b624
callq 0x25a0
leaq 0x158b9(%rip), %rdi     # 0x1c280
callq 0x25a0
leaq 0x14c5b(%rip), %rdi     # 0x1b62e
callq 0x25a0
leaq 0x158a1(%rip), %rdi     # 0x1c280
callq 0x25a0
movl $0xffffffff, -0x4(%rbp) # imm = 0xFFFFFFFF
jmp 0x6a07
movl $0x1, %edi
callq 0x3d00
movl -0x18(%rbp), %edi
movl -0x14(%rbp), %esi
xorl %edx, %edx
callq 0x3990
movl %eax, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0xc0, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)