// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: prefixform
void
prefixform(struct atom *p)
{
	char *s;
	switch (p->atomtype) {
	case CONS:
		outbuf_puts("(");
		prefixform(car(p));
		p = cdr(p);
		while (iscons(p)) {
			outbuf_puts(" ");
			prefixform(car(p));
			p = cdr(p);
		}
		if (p != symbol(NIL)) {
			outbuf_puts(" . ");
			prefixform(p);
		}
		outbuf_puts(")");
		break;
	case STR:
		outbuf_puts("\"");
		outbuf_puts(p->u.str);
		outbuf_puts("\"");
		break;
	case RATIONAL:
		if (p->sign == MMINUS)
			outbuf_puts("-");
		s = mstr(p->u.q.a);
		outbuf_puts(s);
		s = mstr(p->u.q.b);
		if (strcmp(s, "1") == 0)
			break;
		outbuf_puts("/");
		outbuf_puts(s);
		break;
	case DOUBLE:
		snprintf(strbuf, STRBUFLEN, "%g", p->u.d);
		outbuf_puts(strbuf);
		if (!strchr(strbuf, '.') && !strchr(strbuf, 'e'))
			outbuf_puts(".0");
		break;
	case KSYM:
	case USYM:
		outbuf_puts(printname(p));
		break;
	case TENSOR:
		outbuf_puts("(tensor)");
		break;
	default:
		outbuf_puts("(?)");
		break;
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movzbl 0x10(%rdi), %eax
decl %eax
cmpl $0x6, %eax
ja 0x1c46a
movq %rdi, %rbx
leaq 0x9c78(%rip), %rcx      # 0x26078
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq (%rbx), %rdi
jmp 0x1c531
cmpb $0x1, 0x12(%rbx)
jne 0x1c423
leaq 0x9f9e(%rip), %rdi      # 0x263bc
callq 0x14c8d
movq (%rbx), %rdi
callq 0x7d27
movq %rax, %rdi
callq 0x14c8d
movq 0x8(%rbx), %rdi
callq 0x7d27
movq %rax, %rbx
leaq 0xacd6(%rip), %rsi      # 0x2711c
movq %rax, %rdi
callq 0x71e0
testl %eax, %eax
je 0x1c591
leaq 0x9f54(%rip), %rdi      # 0x263b1
callq 0x14c8d
movq %rbx, %rdi
jmp 0x1c531
leaq 0xe49c(%rip), %rdi      # 0x2a90d
jmp 0x1c531
leaq 0x9f25(%rip), %rdi      # 0x263a2
callq 0x14c8d
cmpb $0x1, 0x10(%rbx)
leaq 0x24573(%rip), %r15     # 0x40a00
movq %r15, %rax
cmoveq %rbx, %rax
movq (%rax), %rdi
callq 0x1c3e1
leaq 0x8(%rbx), %rax
cmpb $0x1, 0x10(%rbx)
cmovneq %r15, %rax
movq (%rax), %rbx
cmpb $0x1, 0x10(%rbx)
jne 0x1c4e8
leaq 0x9ebf(%rip), %r14      # 0x26377
movq %r14, %rdi
callq 0x14c8d
cmpb $0x1, 0x10(%rbx)
movq %r15, %rax
cmoveq %rbx, %rax
movq (%rax), %rdi
callq 0x1c3e1
leaq 0x8(%rbx), %rax
cmpb $0x1, 0x10(%rbx)
cmovneq %r15, %rax
movq (%rax), %rbx
cmpb $0x1, 0x10(%rbx)
je 0x1c4b8
cmpq 0x24511(%rip), %rbx     # 0x40a00
je 0x1c505
leaq 0xe403(%rip), %rdi      # 0x2a8fb
callq 0x14c8d
movq %rbx, %rdi
callq 0x1c3e1
leaq 0xcf0e(%rip), %rdi      # 0x2941a
jmp 0x1c531
leaq 0xe3ea(%rip), %r14      # 0x2a8ff
movq %r14, %rdi
callq 0x14c8d
movq (%rbx), %rdi
callq 0x14c8d
movq %r14, %rdi
jmp 0x1c531
leaq 0xe3d3(%rip), %rdi      # 0x2a904
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x14c8d
movsd (%rbx), %xmm0
leaq 0xf53c5(%rip), %rbx     # 0x111910
leaq 0x9e61(%rip), %rdx      # 0x263b3
movl $0x3e8, %esi            # imm = 0x3E8
movq %rbx, %rdi
movb $0x1, %al
callq 0x7100
movq %rbx, %rdi
callq 0x14c8d
movq %rbx, %rdi
movl $0x2e, %esi
callq 0x70f0
testq %rax, %rax
jne 0x1c591
leaq 0xf538e(%rip), %rdi     # 0x111910
movl $0x65, %esi
callq 0x70f0
testq %rax, %rax
je 0x1c59c
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
leaq 0xe35e(%rip), %rdi      # 0x2a901
jmp 0x1c531