user: 请将以下的汇编代码转换成C语言代码:

```asm
<evaluate_unary_expression>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  mov    %rdi,%r12
  lea    D0(%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     L157
L2:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rcx,%rsp
  jne    L2
L157:
  and    $0xfff,%edx
  sub    %rdx,%rsp
  test   %rdx,%rdx
  jne    L156
L36:
  movzbl (%r12),%r15d
  mov    %rsp,%r13
  test   %r15b,%r15b
  je     L87
  xor    %ebx,%ebx
  jmp    L44
L112:
  test   %rax,%rax
  jne    L93
  mov    %r14d,%edi
  call   <isalpha@plt>
  test   %rax,%rax
  je     L168
  test   %ebx,%ebx
  jne    L39
  mov    $0x1,%ebx
  nop
L168:
  add    $0x1,%r12
L154:
  movzbl (%r12),%r15d
  test   %r15b,%r15b
  je     L87
L44:
  movsbl %r15b,%r14d
  mov    %r14d,%edi
  call   <isdigit@plt>
  cmp    $0x2d,%r15b
  jne    L112
L93:
  test   %ebx,%ebx
  jne    L0
  mov    %r14d,%edi
  xor    %ebx,%ebx
  call   <isalpha@plt>
  test   %rax,%rax
  setne  %bl
  jmp    L168
  cs nopw 0x0(%rax,%rax,1)
L0:
  mov    %r12,%rdi
  xor    %ebx,%ebx
  call   <skip_gcode_digits@plt>
  mov    %rax,%r12
  movzbl (%r12),%r15d
  test   %r15b,%r15b
  jne    L44
  nopw   0x0(%rax,%rax,1)
L87:
  mov    -0x38(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L50
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
  nopw   0x0(%rax,%rax,1)
L39:
  mov    %r12,%r15
  xor    %r14d,%r14d
  xchg   %ax,%ax
L1:
  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    L1
  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     L30
L98:
  mov    %r15,%rdi
  call   <strlen@plt>
  lea    D2(%rip),%rdi
  mov    %eax,%r14d
  call   <strlen@plt>
  mov    $0x1,%edi
  lea    0x1(%r14,%rax,1),%esi
  call   <calloc@plt>
  lea    D2(%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    L154
  xchg   %ax,%ax
L156:
  orq    $0x0,-0x8(%rsp,%rdx,1)
  jmp    L36
  nopl   0x0(%rax,%rax,1)
L30:
  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    L98
L50:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: parse_data
arguments: tag: D0
datatype: string
name: parse_data
arguments: tag: D2
datatype: string

tool: D0: ROUND

tool: D2: %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;
}
```