user: Translate the below assembly code into C programming language:

```asm
<ParseOptGeometry>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x28,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x18(%rsp)
  xor    %eax,%eax
  test   %rdi,%rdi
  je     L100
  mov    %rdi,%rbx
  lea    D28(%rip),%r14
  lea    D57(%rip),%r12
  lea    D49(%rip),%r13
  lea    D10(%rip),%rbp
  jmp    L4
L104:
  mov    0x8(%rsp),%rdx
  lea    D38(%rip),%rsi
  mov    $0x2,%edi
  mov    $0x0,%eax
  call   <diagnostics@plt>
  mov    $0x0,%edx
  mov    $0x0,%esi
  mov    0x8(%rsp),%rdi
  call   <ExecGeomOptions@plt>
  jmp    L76
L20:
  mov    %rdi,%rsi
  mov    $0x0,%edi
  call   <PushSource@plt>
  mov    0x10(%rsp),%rdi
  call   <free@plt>
  mov    $0x0,%eax
  call   <getBraceParam@plt>
  mov    %rax,0x10(%rsp)
  mov    $0x0,%eax
  call   <PopSource@plt>
  mov    %rbp,%rsi
  mov    0x10(%rsp),%rdi
  call   <strtok@plt>
  mov    %rax,0x10(%rsp)
  mov    %rbp,%rsi
  mov    $0x0,%edi
  call   <strtok@plt>
  mov    %rax,%r15
  mov    %rax,%r8
  mov    0x10(%rsp),%rcx
  mov    0x8(%rsp),%rdx
  lea    D4(%rip),%rsi
  mov    $0x2,%edi
  mov    $0x0,%eax
  call   <diagnostics@plt>
  mov    %r15,%rdx
  mov    0x10(%rsp),%rsi
  mov    0x8(%rsp),%rdi
  call   <ExecGeomOptions@plt>
  mov    0x10(%rsp),%rdi
  call   <free@plt>
L76:
  mov    0x8(%rsp),%rdi
  test   %rdi,%rdi
  je     L18
  call   <free@plt>
L18:
  test   %rbx,%rbx
  je     L100
L4:
  lea    0x10(%rsp),%rdx
  lea    0x8(%rsp),%rsi
  mov    %rbx,%rdi
  call   <keyvalue_pair@plt>
  mov    %rax,%rbx
  mov    0x10(%rsp),%rdi
  test   %rdi,%rdi
  je     L104
  cmpb   $0x7b,(%rdi)
  je     L20
  mov    $0x3a,%esi
  call   <strchr@plt>
  test   %rax,%rax
  je     L57
  mov    %r12,%rsi
  mov    0x10(%rsp),%rdi
  call   <strtok@plt>
  mov    %rax,0x10(%rsp)
  mov    %r12,%rsi
  mov    $0x0,%edi
  call   <strtok@plt>
  mov    %rax,%r15
  mov    %rax,%r8
  mov    0x10(%rsp),%rcx
  mov    0x8(%rsp),%rdx
  mov    %r13,%rsi
  mov    $0x2,%edi
  mov    $0x0,%eax
  call   <diagnostics@plt>
  mov    %r15,%rdx
  mov    0x10(%rsp),%rsi
  mov    0x8(%rsp),%rdi
  call   <ExecGeomOptions@plt>
  mov    0x10(%rsp),%rdi
  call   <free@plt>
  jmp    L76
L57:
  mov    0x10(%rsp),%rcx
  mov    0x8(%rsp),%rdx
  mov    %r14,%rsi
  mov    $0x2,%edi
  mov    $0x0,%eax
  call   <diagnostics@plt>
  mov    0x10(%rsp),%rsi
  mov    %rsi,%rdx
  mov    0x8(%rsp),%rdi
  call   <ExecGeomOptions@plt>
  mov    0x10(%rsp),%rdi
  call   <free@plt>
  jmp    L76
L100:
  mov    0x18(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L24
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L24:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: tag: D28
data_type: string
name: extract_symbolic_data
arguments: tag: D57
data_type: string
name: extract_symbolic_data
arguments: tag: D49
data_type: string
name: extract_symbolic_data
arguments: tag: D10
data_type: string
name: extract_symbolic_data
arguments: tag: D38
data_type: string
name: extract_symbolic_data
arguments: tag: D4
data_type: string

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

tool: D57: : 

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

tool: D10: , 

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

tool: D4: option=%s with values %s and %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;
  }
}
```