user: What is the c source code of the assembly code below:

```asm
<GeogProjSetFmStr>:
  endbr64
  push   %r14
  push   %r13
  mov    %rsi,%r13
  lea    D98(%rip),%rsi
  push   %r12
  push   %rbp
  mov    %rdi,%rbp
  sub    $0x38,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x28(%rsp)
  xor    %eax,%eax
  lea    0x10(%rsp),%r14
  lea    0x8(%rsp),%r12
  mov    %r14,%rcx
  mov    %r12,%rdx
  call   <sscanf@plt>
  cmp    $0x2,%eax
  je     L24
  xor    %eax,%eax
  mov    %r12,%rdx
  lea    D46(%rip),%rsi
  mov    %rbp,%rdi
  call   <sscanf@plt>
  cmp    $0x1,%eax
  je     L68
  xor    %eax,%eax
  mov    %r12,%rdx
  lea    D44(%rip),%rsi
  mov    %rbp,%rdi
  call   <sscanf@plt>
  cmp    $0x1,%eax
  je     L140
  xor    %eax,%eax
  lea    0x20(%rsp),%r9
  lea    0x18(%rsp),%r8
  mov    %r14,%rcx
  mov    %r12,%rdx
  lea    D9(%rip),%rsi
  mov    %rbp,%rdi
  call   <sscanf@plt>
  cmp    $0x4,%eax
  je     L50
  xor    %eax,%eax
  mov    %r14,%rcx
  mov    %r12,%rdx
  mov    %rbp,%rdi
  lea    D0(%rip),%rsi
  call   <sscanf@plt>
  cmp    $0x2,%eax
  je     L45
  xor    %eax,%eax
  mov    %r14,%rcx
  mov    %r12,%rdx
  mov    %rbp,%rdi
  lea    D113(%rip),%rsi
  call   <sscanf@plt>
  cmp    $0x2,%eax
  je     L44
  mov    %r14,%rcx
  mov    %r12,%rdx
  lea    D95(%rip),%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <sscanf@plt>
  mov    %eax,%r8d
  xor    %eax,%eax
  cmp    $0x2,%r8d
  je     L70
L128:
  mov    0x28(%rsp),%rdx
  sub    %fs:0x28,%rdx
  jne    L99
  add    $0x38,%rsp
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
  nopl   0x0(%rax)
L24:
  movsd  D85(%rip),%xmm1
  movsd  0x8(%rsp),%xmm0
  mov    %r13,%rdi
  mulsd  %xmm1,%xmm0
  mulsd  0x10(%rsp),%xmm1
  call   <GeogProjSetCylEqDist@plt>
  jmp    L128
  nopw   0x0(%rax,%rax,1)
L140:
  movsd  D85(%rip),%xmm0
  mulsd  0x8(%rsp),%xmm0
  mov    %r13,%rdi
  call   <GeogProjSetMercator@plt>
  jmp    L128
  nopl   0x0(%rax,%rax,1)
L68:
  movsd  D85(%rip),%xmm0
  mulsd  0x8(%rsp),%xmm0
  mov    %r13,%rdi
  call   <GeogProjSetCylEqArea@plt>
  jmp    L128
  nopl   0x0(%rax,%rax,1)
L50:
  movsd  0x8(%rsp),%xmm0
  movsd  0x20(%rsp),%xmm3
  mov    %r13,%rdi
  movsd  D85(%rip),%xmm1
  movsd  0x18(%rsp),%xmm2
  mulsd  %xmm1,%xmm0
  mulsd  %xmm1,%xmm3
  mulsd  %xmm1,%xmm2
  mulsd  0x10(%rsp),%xmm1
  call   <GeogProjSetLambertConfConic@plt>
  jmp    L128
  nopl   0x0(%rax)
L45:
  movsd  D85(%rip),%xmm1
  movsd  0x8(%rsp),%xmm0
  mov    %r13,%rdi
  mulsd  %xmm1,%xmm0
  mulsd  0x10(%rsp),%xmm1
  call   <GeogProjSetLambertEqArea@plt>
  jmp    L128
  nopl   (%rax)
L44:
  movsd  D85(%rip),%xmm1
  movsd  0x8(%rsp),%xmm0
  mov    %r13,%rdi
  mulsd  %xmm1,%xmm0
  mulsd  0x10(%rsp),%xmm1
  call   <GeogProjSetStereographic@plt>
  jmp    L128
  nopl   (%rax)
L70:
  movsd  D85(%rip),%xmm1
  movsd  0x8(%rsp),%xmm0
  mov    %r13,%rdi
  mulsd  %xmm1,%xmm0
  mulsd  0x10(%rsp),%xmm1
  call   <GeogProjSetOrthographic@plt>
  jmp    L128
L99:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: data_label: D98
type: string
name: unpack_data
arguments: data_label: D46
type: string
name: unpack_data
arguments: data_label: D44
type: string
name: unpack_data
arguments: data_label: D9
type: string
name: unpack_data
arguments: data_label: D0
type: string
name: unpack_data
arguments: data_label: D113
type: string
name: unpack_data
arguments: data_label: D95
type: string
name: unpack_data
arguments: data_label: D85
type: f64

tool: D98: CylEqDist %lf %lf

tool: D46: CylEqArea %lf

tool: D44: Mercator %lf

tool: D9: LambertConfConic %lf %lf %lf %lf

tool: D0: LambertEqArea %lf %lf

tool: D113: Stereographic %lf %lf

tool: D95: Orthographic %lf %lf

tool: D85: 0.017453292519943295

assistant: ```c
int GeogProjSetFmStr(char *l, struct GeogProj *projPtr) {
  double lon0, lat0, lat1, lat2;
  if (sscanf(l, "CylEqDist %lf %lf", &lon0, &lat0) == 2) {
    return GeogProjSetCylEqDist(lon0 * 0.01745329251994329576, lat0 * 0.01745329251994329576, projPtr);
  } else if (sscanf(l, "CylEqArea %lf", &lon0) == 1) {
    return GeogProjSetCylEqArea(lon0 * 0.01745329251994329576, projPtr);
  } else if (sscanf(l, "Mercator %lf", &lon0) == 1) {
    return GeogProjSetMercator(lon0 * 0.01745329251994329576, projPtr);
  } else if (sscanf(l, "LambertConfConic %lf %lf %lf %lf", &lon0, &lat0, &lat1, &lat2) == 4) {
    return GeogProjSetLambertConfConic(lon0 * 0.01745329251994329576, lat0 * 0.01745329251994329576, lat1 * 0.01745329251994329576, lat2 * 0.01745329251994329576, projPtr);
  } else if (sscanf(l, "LambertEqArea %lf %lf", &lon0, &lat0) == 2) {
    return GeogProjSetLambertEqArea(lon0 * 0.01745329251994329576, lat0 * 0.01745329251994329576, projPtr);
  } else if (sscanf(l, "Stereographic %lf %lf", &lon0, &lat0) == 2) {
    return GeogProjSetStereographic(lon0 * 0.01745329251994329576, lat0 * 0.01745329251994329576, projPtr);
  } else if (sscanf(l, "Orthographic %lf %lf", &lon0, &lat0) == 2) {
    return GeogProjSetOrthographic(lon0 * 0.01745329251994329576, lat0 * 0.01745329251994329576, projPtr);
  }
  return 0;
}
```