user: 请从给定的汇编指令推导出C源代码：

```asm
<evaluate_unary_expression>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  mov    %rdi,%r12
  lea    D18(%rip),%rdi
  push   %rbx
  sub    $0x28,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x38(%rbp)
  xor    %eax,%eax
  call   <strlen@plt>
  mov    %rsp,%rcx
  add    $0x1,%eax
  cltq
  add    $0xf,%rax
  mov    %rax,%rdx
  and    $0xfffffffffffff000,%rax
  sub    %rax,%rcx
  and    $0xfffffffffffffff0,%rdx
  cmp    %rcx,%rsp
  je     L123
L54:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rcx,%rsp
  jne    L54
L123:
  and    $0xfff,%edx
  sub    %rdx,%rsp
  test   %rdx,%rdx
  jne    L184
L24:
  movzbl (%r12),%r15d
  mov    %rsp,%r13
  test   %r15b,%r15b
  je     L180
  xor    %ebx,%ebx
  jmp    L143
L53:
  test   %rax,%rax
  jne    L36
  mov    %r14d,%edi
  call   <isalpha@plt>
  test   %rax,%rax
  je     L171
  test   %ebx,%ebx
  jne    L80
  mov    $0x1,%ebx
  nop
L171:
  add    $0x1,%r12
L176:
  movzbl (%r12),%r15d
  test   %r15b,%r15b
  je     L180
L143:
  movsbl %r15b,%r14d
  mov    %r14d,%edi
  call   <isdigit@plt>
  cmp    $0x2d,%r15b
  jne    L53
L36:
  test   %ebx,%ebx
  jne    L46
  mov    %r14d,%edi
  xor    %ebx,%ebx
  call   <isalpha@plt>
  test   %rax,%rax
  setne  %bl
  jmp    L171
  cs nopw 0x0(%rax,%rax,1)
L46:
  mov    %r12,%rdi
  xor    %ebx,%ebx
  call   <skip_gcode_digits@plt>
  mov    %rax,%r12
  movzbl (%r12),%r15d
  test   %r15b,%r15b
  jne    L143
  nopw   0x0(%rax,%rax,1)
L180:
  mov    -0x38(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L173
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
  nopw   0x0(%rax,%rax,1)
L80:
  mov    %r12,%r15
  xor    %r14d,%r14d
  xchg   %ax,%ax
L73:
  movzbl (%r15),%eax
  add    $0x1,%r14
  add    $0x1,%r15
  mov    %al,-0x1(%r13,%r14,1)
  movsbl (%r15),%edi
  call   <isalpha@plt>
  test   %rax,%rax
  jne    L73
  mov    %r15,%rdi
  movb   $0x0,0x0(%r13,%r14,1)
  call   <read_gcode_real@plt>
  mov    %r15,%rdi
  movsd  %xmm0,-0x48(%rbp)
  call   <skip_gcode_digits@plt>
  cmpb   $0x2f,(%rax)
  mov    %rax,%r15
  je     L33
L88:
  mov    %r15,%rdi
  call   <strlen@plt>
  lea    D10(%rip),%rdi
  mov    %eax,%r14d
  call   <strlen@plt>
  mov    $0x1,%edi
  lea    0x1(%r14,%rax,1),%esi
  call   <calloc@plt>
  lea    D10(%rip),%rsi
  mov    %rax,%r14
  mov    %rax,%rdi
  call   <strcpy@plt>
  mov    %r15,%rsi
  mov    %r14,%rdi
  call   <strcat@plt>
  movsd  -0x50(%rbp),%xmm1
  movsd  -0x48(%rbp),%xmm0
  mov    %r13,%rdi
  call   <_do_function@plt>
  mov    %r12,%rdi
  mov    %eax,%r15d
  call   <strlen@plt>
  mov    %r15d,%ecx
  mov    %r14,%rdx
  mov    %r12,%rdi
  mov    %eax,%esi
  call   <snprintf@plt>
  mov    %r14,%rdi
  call   <free@plt>
  mov    %r12,%rdi
  call   <skip_gcode_digits@plt>
  mov    %rax,%r12
  jmp    L176
  xchg   %ax,%ax
L184:
  orq    $0x0,-0x8(%rsp,%rdx,1)
  jmp    L24
  nopl   0x0(%rax,%rax,1)
L33:
  add    $0x1,%r15
  mov    %r15,%rdi
  call   <read_gcode_real@plt>
  mov    %r15,%rdi
  movsd  %xmm0,-0x50(%rbp)
  call   <skip_gcode_digits@plt>
  mov    %rax,%r15
  jmp    L88
L173:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: disassemble_data
arguments: data_label: D18
datatype: string
name: disassemble_data
arguments: data_label: D10
datatype: string

tool: D18: ROUND

tool: D10: %4.4f

assistant: ```c
void evaluate_unary_expression(char *line) {
  bool seenWord = false;
  char fname[strlen("ROUND") + 1], *sptr, *buf, c;
  uint8_t fni;
  double arg, sar;
  while ((c = *line)) {
    if ((isdigit(c) || c == '-') && seenWord) {
      line = (char *)skip_gcode_digits(line);
      seenWord = false;
      continue;
    } else if (isalpha(c)) {
      if (seenWord) {
        fni = 0;
        sptr = line;
        do {
          fname[fni++] = *line;
        } while (isalpha(*(++line)));
        fname[fni] = '\0';
        arg = read_gcode_real(line);
        line = (char *)skip_gcode_digits(line);
        if (*line == '/') {
          sar = read_gcode_real(++line);
          line = (char *)skip_gcode_digits(line);
        }
        buf = (char *)calloc(1, strlen(line) + strlen("%4.4f") + 1);
        strcpy(buf, "%4.4f");
        strcat(buf, line);
        line = sptr;
        snprintf(line, strlen(line), buf, _do_function(fname, arg, sar));
        free((void *)buf);
        line = (char *)skip_gcode_digits(line);
        continue;
      } else
        seenWord = true;
    }
    line++;
  }
  return;
}
```