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

```asm
<ParseOptGeometry>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x38,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x28(%rsp)
  xor    %eax,%eax
  test   %rdi,%rdi
  je     L34
  mov    %rdi,%rbp
  lea    0x20(%rsp),%r12
  lea    0x18(%rsp),%rbx
  lea    D39(%rip),%r15
  lea    D14(%rip),%r14
  lea    D38(%rip),%r13
  jmp    L0
  nopw   0x0(%rax,%rax,1)
L67:
  mov    $0x3a,%esi
  call   <strchr@plt>
  test   %rax,%rax
  je     L62
  mov    0x20(%rsp),%rdi
  mov    %r14,%rsi
  call   <strtok@plt>
  mov    %r14,%rsi
  xor    %edi,%edi
  mov    %rax,0x20(%rsp)
  call   <strtok@plt>
  mov    0x20(%rsp),%rcx
  mov    0x18(%rsp),%rdx
  lea    D5(%rip),%rsi
  mov    %rax,0x8(%rsp)
  mov    %rax,%r8
L93:
  mov    $0x2,%edi
  xor    %eax,%eax
  call   <diagnostics@plt>
  mov    0x18(%rsp),%rdi
  mov    0x8(%rsp),%rdx
  mov    0x20(%rsp),%rsi
  call   <ExecGeomOptions@plt>
  mov    0x20(%rsp),%rdi
  call   <free@plt>
L87:
  mov    0x18(%rsp),%rdi
  test   %rdi,%rdi
  je     L49
  call   <free@plt>
L49:
  test   %rbp,%rbp
  je     L34
L0:
  mov    %rbp,%rdi
  mov    %r12,%rdx
  mov    %rbx,%rsi
  call   <keyvalue_pair@plt>
  mov    0x20(%rsp),%rdi
  mov    %rax,%rbp
  test   %rdi,%rdi
  je     L84
  cmpb   $0x7b,(%rdi)
  jne    L67
  mov    %rdi,%rsi
  xor    %edi,%edi
  call   <PushSource@plt>
  mov    0x20(%rsp),%rdi
  call   <free@plt>
  xor    %eax,%eax
  call   <getBraceParam@plt>
  mov    %rax,0x20(%rsp)
  xor    %eax,%eax
  call   <PopSource@plt>
  mov    0x20(%rsp),%rdi
  mov    %r13,%rsi
  call   <strtok@plt>
  mov    %r13,%rsi
  xor    %edi,%edi
  mov    %rax,0x20(%rsp)
  call   <strtok@plt>
  mov    0x20(%rsp),%rcx
  mov    0x18(%rsp),%rdx
  lea    D25(%rip),%rsi
  mov    %rax,0x8(%rsp)
  mov    %rax,%r8
  jmp    L93
  nopl   0x0(%rax,%rax,1)
L62:
  mov    0x20(%rsp),%rcx
  mov    0x18(%rsp),%rdx
  mov    %r15,%rsi
  xor    %eax,%eax
  mov    $0x2,%edi
  call   <diagnostics@plt>
  mov    0x20(%rsp),%rsi
  mov    0x18(%rsp),%rdi
  mov    %rsi,%rdx
  call   <ExecGeomOptions@plt>
  mov    0x20(%rsp),%rdi
  call   <free@plt>
  jmp    L87
  nopw   0x0(%rax,%rax,1)
L84:
  mov    0x18(%rsp),%rdx
  lea    D52(%rip),%rsi
  mov    $0x2,%edi
  xor    %eax,%eax
  call   <diagnostics@plt>
  mov    0x18(%rsp),%rdi
  xor    %edx,%edx
  xor    %esi,%esi
  call   <ExecGeomOptions@plt>
  jmp    L87
  nopl   0x0(%rax,%rax,1)
L34:
  mov    0x28(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L106
  add    $0x38,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L106:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: tag: D39
type: string
name: extract_symbolic_data
arguments: tag: D14
type: string
name: extract_symbolic_data
arguments: tag: D38
type: string
name: extract_symbolic_data
arguments: tag: D5
type: string
name: extract_symbolic_data
arguments: tag: D25
type: string
name: extract_symbolic_data
arguments: tag: D52
type: string

tool: D39: geometry package, option=[%s], value=%s

tool: D14: : 

tool: D38: , 

tool: D5: option=%s with ratio '%s:%s'

tool: D25: option=%s with values %s and %s

tool: D52: geometry package, single option=[%s]

assistant: ```c
void ParseOptGeometry(char *options) {
  char *key, *value1, *value2, *next, *comma = ", ", *colon = ": ";
  while (options) {
    next = keyvalue_pair(options, &key, &value1);
    if (value1 == NULL) {
      diagnostics(2, "geometry package, single option=[%s]", key);
      ExecGeomOptions(key, NULL, NULL);
    } else if (*value1 == '{') {
      PushSource(NULL, value1);
      free(value1);
      value1 = getBraceParam();
      PopSource();
      value1 = strtok(value1, comma);
      value2 = strtok(NULL, comma);
      diagnostics(2, "option=%s with values %s and %s", key, value1, value2);
      ExecGeomOptions(key, value1, value2);
      free(value1);
    } else if (strchr(value1, ':')) {
      value1 = strtok(value1, colon);
      value2 = strtok(NULL, colon);
      diagnostics(2, "option=%s with ratio '%s:%s'", key, value1, value2);
      ExecGeomOptions(key, value1, value2);
      free(value1);
    } else {
      diagnostics(2, "geometry package, option=[%s], value=%s", key, value1);
      value2 = value1;
      ExecGeomOptions(key, value1, value2);
      free(value1);
    }
    if (key)
      free(key);
    options = next;
  }
}
```