user: 请显示与下面列出的汇编代码相匹配的C语言实现：

```asm
<atof>:
  endbr64
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x40,%rsp
  mov    %rdi,%rbp
  mov    %fs:0x28,%rax
  mov    %rax,0x38(%rsp)
  xor    %eax,%eax
  mov    $0x0,%ebx
L216:
  mov    %ebx,%r14d
  movzbl 0x0(%rbp,%rbx,1),%r12d
  movsbl %r12b,%edi
  call   <isspace@plt>
  add    $0x1,%rbx
  test   %eax,%eax
  jne    L216
  cmp    $0x2d,%r12b
  je     L265
  sub    $0x2b,%r12d
  mov    $0x1,%r13d
  test   $0xfd,%r12b
  je     L46
L234:
  movslq %r14d,%rax
  movzbl 0x0(%rbp,%rax,1),%eax
  movsbl %al,%edx
  sub    $0x30,%edx
  cmp    $0x9,%edx
  ja     L5
  lea    0x1(%r14),%edx
  movslq %edx,%rdx
  mov    D69(%rip),%rbx
  movsd  D79(%rip),%xmm2
L302:
  movq   %rbx,%xmm0
  mulsd  %xmm2,%xmm0
  movsbl %al,%eax
  sub    $0x30,%eax
  pxor   %xmm1,%xmm1
  cvtsi2sd %eax,%xmm1
  addsd  %xmm0,%xmm1
  movq   %xmm1,%rbx
  mov    %edx,%r14d
  movzbl 0x0(%rbp,%rdx,1),%eax
  add    $0x1,%rdx
  movsbl %al,%ecx
  sub    $0x30,%ecx
  cmp    $0x9,%ecx
  jbe    L302
L207:
  cmp    $0x2e,%al
  jne    L96
  lea    0x1(%r14),%ecx
  movslq %ecx,%rax
  movzbl 0x0(%rbp,%rax,1),%eax
  movsbl %al,%edx
  sub    $0x30,%edx
  cmp    $0x9,%edx
  ja     L141
  lea    0x2(%r14),%edx
  movslq %edx,%rdx
  mov    D26(%rip),%r12
  movsd  D79(%rip),%xmm0
L22:
  movq   %rbx,%xmm1
  mulsd  %xmm0,%xmm1
  movsbl %al,%eax
  sub    $0x30,%eax
  pxor   %xmm2,%xmm2
  cvtsi2sd %eax,%xmm2
  addsd  %xmm1,%xmm2
  movq   %xmm2,%rbx
  movq   %r12,%xmm3
  mulsd  %xmm0,%xmm3
  movq   %xmm3,%r12
  mov    %edx,%r14d
  movzbl 0x0(%rbp,%rdx,1),%eax
  add    $0x1,%rdx
  movsbl %al,%ecx
  sub    $0x30,%ecx
  cmp    $0x9,%ecx
  jbe    L22
L317:
  and    $0xffffffdf,%eax
  cmp    $0x45,%al
  sete   %al
  movzbl %al,%eax
  add    %eax,%r14d
  movslq %r14d,%rdx
  movzbl 0x0(%rbp,%rdx,1),%eax
  cmp    $0x2b,%al
  je     L124
  cmp    $0x2d,%al
  je     L127
  movsbl %al,%esi
  sub    $0x30,%esi
  lea    0x1(%rbp,%rdx,1),%rcx
  cmp    $0x9,%esi
  ja     L101
L9:
  mov    %eax,%esi
  movzbl (%rcx),%eax
  add    $0x1,%rcx
  movsbl %al,%edx
  sub    $0x30,%edx
  cmp    $0x9,%edx
  jbe    L9
  mov    %sil,(%rsp)
L101:
  mov    %rsp,%rdi
  mov    $0x0,%eax
  call   <strtoi@plt>
  test   %eax,%eax
  jle    L212
  movsd  D26(%rip),%xmm1
  movsd  D79(%rip),%xmm0
L66:
  mulsd  %xmm0,%xmm1
  sub    $0x1,%eax
  jne    L66
  jmp    L51
L265:
  mov    $0xffffffff,%r13d
L46:
  add    $0x1,%r14d
  jmp    L234
L141:
  mov    %ecx,%r14d
  mov    D26(%rip),%r12
  jmp    L317
L127:
  lea    0x1(%r14),%edx
  movslq %edx,%rdx
  add    %rbp,%rdx
  movzbl (%rdx),%ecx
  movsbl %cl,%eax
  sub    $0x30,%eax
  cmp    $0x9,%eax
  ja     L75
L41:
  mov    %ecx,%esi
  movzbl 0x1(%rdx),%ecx
  add    $0x1,%rdx
  movsbl %cl,%eax
  sub    $0x30,%eax
  cmp    $0x9,%eax
  jbe    L41
  mov    %sil,(%rsp)
L75:
  mov    %rsp,%rdi
  mov    $0x0,%eax
  call   <strtoi@plt>
  test   %eax,%eax
  jle    L166
  movsd  D26(%rip),%xmm1
  movsd  D106(%rip),%xmm0
L130:
  mulsd  %xmm0,%xmm1
  sub    $0x1,%eax
  jne    L130
L51:
  pxor   %xmm0,%xmm0
  cvtsi2sd %r13d,%xmm0
  movq   %rbx,%xmm2
  movq   %r12,%xmm4
  divsd  %xmm4,%xmm2
  mulsd  %xmm2,%xmm0
  mulsd  %xmm1,%xmm0
  mov    0x38(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L80
  add    $0x40,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
L124:
  lea    0x1(%r14),%edx
  movslq %edx,%rdx
  add    %rbp,%rdx
  movzbl (%rdx),%ecx
  movsbl %cl,%eax
  sub    $0x30,%eax
  cmp    $0x9,%eax
  ja     L290
L76:
  mov    %ecx,%esi
  movzbl 0x1(%rdx),%ecx
  add    $0x1,%rdx
  movsbl %cl,%eax
  sub    $0x30,%eax
  cmp    $0x9,%eax
  jbe    L76
  mov    %sil,(%rsp)
L290:
  mov    %rsp,%rdi
  mov    $0x0,%eax
  call   <strtoi@plt>
  test   %eax,%eax
  jle    L77
  movsd  D26(%rip),%xmm1
  movsd  D79(%rip),%xmm0
L318:
  mulsd  %xmm0,%xmm1
  sub    $0x1,%eax
  jne    L318
  jmp    L51
L166:
  movsd  D26(%rip),%xmm1
  jmp    L51
L77:
  movsd  D26(%rip),%xmm1
  jmp    L51
L212:
  movsd  D26(%rip),%xmm1
  jmp    L51
L96:
  movslq %r14d,%rax
  movzbl 0x0(%rbp,%rax,1),%eax
  mov    D26(%rip),%r12
  jmp    L317
L5:
  mov    D69(%rip),%rbx
  jmp    L207
L80:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: data_tag: D69
type: f64
name: extract_symbolic_data
arguments: data_tag: D79
type: f64
name: extract_symbolic_data
arguments: data_tag: D26
type: f64
name: extract_symbolic_data
arguments: data_tag: D106
type: byte[8]

tool: D69: 0

tool: D79: 10

tool: D26: 1

tool: {"D106": [0x9a,0x99,0x99,0x99,0x99,0x99,0xb9,0x3f]}

assistant: ```c
double atof(char s[]) {
  int i, j, sign, factor;
  double value, power, expo;
  char factor_string[50];
  j = 0;
  for (i = 0; isspace(s[i]); i++)
    ;
  sign = (s[i] == '-') ? -1 : 1;
  if (s[i] == '+' || s[i] == '-')
    i++;
  for (value = 0.0; isdigit(s[i]); i++)
    value = 10.0 * value + (s[i] - '0');
  if (s[i] == '.')
    i++;
  for (power = 1.0; isdigit(s[i]); i++) {
    value = 10.0 * value + (s[i] - '0');
    power = 10.0 * power;
  }
  if (s[i] == 'e' || s[i] == 'E')
    i++;
  switch (s[i]) {
  case '-':
    i++;
    for (; isdigit(s[i]); i++) {
      factor_string[j] = s[i];
    }
    factor = strtoi(factor_string);
    for (expo = 1.0; factor > 0; factor--)
      expo = expo * (1 / 10.0);
    break;
  case '+':
    i++;
    for (; isdigit(s[i]); i++) {
      factor_string[j] = s[i];
    }
    factor = strtoi(factor_string);
    for (expo = 1.0; factor > 0; factor--)
      expo = expo * 10.0;
    break;
  default:
    for (; isdigit(s[i]); i++) {
      factor_string[j] = s[i];
    }
    factor = strtoi(factor_string);
    for (expo = 1.0; factor > 0; factor--)
      expo = expo * 10.0;
    break;
  }
  return ((sign) * (value / power) * (expo));
}
```