user: Demonstrate the C code that generates the assembly output 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     L14
  mov    %rdi,%rbp
  lea    0x20(%rsp),%r12
  lea    0x18(%rsp),%rbx
  lea    D6(%rip),%r15
  lea    D57(%rip),%r14
  lea    D17(%rip),%r13
  jmp    L101
  nopw   0x0(%rax,%rax,1)
L48:
  mov    $0x3a,%esi
  call   <strchr@plt>
  test   %rax,%rax
  je     L49
  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    D50(%rip),%rsi
  mov    %rax,0x8(%rsp)
  mov    %rax,%r8
L72:
  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>
L44:
  mov    0x18(%rsp),%rdi
  test   %rdi,%rdi
  je     L11
  call   <free@plt>
L11:
  test   %rbp,%rbp
  je     L14
L101:
  mov    %rbp,%rdi
  mov    %r12,%rdx
  mov    %rbx,%rsi
  call   <keyvalue_pair@plt>
  mov    0x20(%rsp),%rdi
  mov    %rax,%rbp
  test   %rdi,%rdi
  je     L25
  cmpb   $0x7b,(%rdi)
  jne    L48
  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    D28(%rip),%rsi
  mov    %rax,0x8(%rsp)
  mov    %rax,%r8
  jmp    L72
  nopl   0x0(%rax,%rax,1)
L49:
  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    L44
  nopw   0x0(%rax,%rax,1)
L25:
  mov    0x18(%rsp),%rdx
  lea    D10(%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    L44
  nopl   0x0(%rax,%rax,1)
L14:
  mov    0x28(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L13
  add    $0x38,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L13:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: data_label: D6
type: string
name: read_data
arguments: data_label: D57
type: string
name: read_data
arguments: data_label: D17
type: string
name: read_data
arguments: data_label: D50
type: string
name: read_data
arguments: data_label: D28
type: string
name: read_data
arguments: data_label: D10
type: string

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

tool: D57: : 

tool: D17: , 

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

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

tool: D10: 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;
  }
}
```