user: Please show me the C implementation that matches the assembly code listed below:

```asm
<extract_ra_dec>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x40,%rsp
  mov    %rdi,-0x28(%rbp)
  mov    %esi,-0x2c(%rbp)
  movl   $0x0,-0x14(%rbp)
  mov    -0x28(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x2d,%al
  jne    L79
  movl   $0x1,-0x14(%rbp)
  addq   $0x1,-0x28(%rbp)
  jmp    L64
L79:
  mov    -0x28(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x2b,%al
  jne    L64
  addq   $0x1,-0x28(%rbp)
L64:
  mov    -0x28(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  cmp    $0x5,%eax
  jle    L42
  mov    -0x28(%rbp),%rax
  add    $0x6,%rax
  movzbl (%rax),%eax
  cmp    $0x2e,%al
  jne    L42
  mov    -0x28(%rbp),%rax
  mov    %rax,%rdi
  call   <atol@plt>
  mov    %rax,-0x8(%rbp)
  mov    -0x8(%rbp),%rcx
  movabs $0x346dc5d63886594b,%rdx
  mov    %rcx,%rax
  imul   %rdx
  mov    %rdx,%rax
  sar    $0xb,%rax
  sar    $0x3f,%rcx
  mov    %rcx,%rdx
  sub    %rdx,%rax
  pxor   %xmm1,%xmm1
  cvtsi2sd %rax,%xmm1
  mov    -0x8(%rbp),%rcx
  movabs $0xa3d70a3d70a3d70b,%rdx
  mov    %rcx,%rax
  imul   %rdx
  lea    (%rdx,%rcx,1),%rax
  sar    $0x6,%rax
  sar    $0x3f,%rcx
  mov    %rcx,%rdx
  sub    %rdx,%rax
  mov    %rax,%rcx
  movabs $0xa3d70a3d70a3d70b,%rdx
  mov    %rcx,%rax
  imul   %rdx
  lea    (%rdx,%rcx,1),%rax
  sar    $0x6,%rax
  mov    %rcx,%rsi
  sar    $0x3f,%rsi
  sub    %rsi,%rax
  mov    %rax,%rdx
  mov    %rdx,%rax
  shl    $0x2,%rax
  add    %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  add    %rdx,%rax
  shl    $0x2,%rax
  sub    %rax,%rcx
  mov    %rcx,%rdx
  pxor   %xmm0,%xmm0
  cvtsi2sd %rdx,%xmm0
  movsd  D4(%rip),%xmm2
  divsd  %xmm2,%xmm0
  addsd  %xmm0,%xmm1
  movsd  %xmm1,-0x38(%rbp)
  mov    -0x28(%rbp),%rax
  add    $0x4,%rax
  mov    %rax,%rdi
  call   <atof@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  movsd  D7(%rip),%xmm1
  divsd  %xmm1,%xmm0
  addsd  -0x38(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  cmpl   $0x0,-0x2c(%rbp)
  je     L9
  movsd  -0x10(%rbp),%xmm1
  movsd  D5(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  jmp    L9
L42:
  mov    -0x28(%rbp),%rax
  mov    %rax,%rdi
  call   <atof@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  jmp    L89
L9:
  nop
L89:
  cmpl   $0x0,-0x14(%rbp)
  je     L77
  movsd  -0x10(%rbp),%xmm0
  movq   D30(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
L77:
  movsd  -0x10(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  leave
  ret
```

tool_calls: name: parse_data
arguments: tag: D4
data_type: f64
name: parse_data
arguments: tag: D7
data_type: f64
name: parse_data
arguments: tag: D5
data_type: f64
name: parse_data
arguments: tag: D30
data_type: byte[8]

tool: D4: 60

tool: D7: 3600

tool: D5: 15

tool: {"D30": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80]}

assistant: ```c
double extract_ra_dec(const char *str, const bool is_ra) {
  double rval;
  bool is_negative = false;
  if (*str == '-') {
    is_negative = true;
    str++;
  } else if (*str == '+')
    str++;
  if (strlen(str) > 5 && str[6] == '.') {
    const long seconds = atol(str);
    rval = (double)(seconds / 10000L) + (double)((seconds / 100L) % 100L) / 60. + atof(str + 4) / 3600.;
    if (is_ra)
      rval *= 15.;
  } else
    rval = atof(str);
  if (is_negative)
    rval = -rval;
  return (rval);
}
```