user: 请从给定的汇编指令推导出C源代码:

```asm
<get_string_pair>:
  endbr64
  push   %r15
  lea    D58(%rip),%r15
  push   %r14
  push   %r13
  push   %r12
  mov    %rdi,%r12
  push   %rbp
  push   %rbx
  mov    %r8,%rbx
  sub    $0x138,%rsp
  mov    %rsi,0x8(%rsp)
  lea    0x20(%rsp),%rbp
  mov    %rdx,0x10(%rsp)
  mov    %rcx,0x18(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x128(%rsp)
  xor    %eax,%eax
  nopl   0x0(%rax)
L183:
  mov    %r12,%rdx
  mov    $0x100,%esi
  mov    %rbp,%rdi
  call   <fgets@plt>
  test   %rax,%rax
  je     L122
  addl   $0x1,(%rbx)
  mov    $0x5,%edx
  mov    %r15,%rsi
  mov    %rbp,%rdi
  call   <strnicmp@plt>
  test   %eax,%eax
  jne    L139
  mov    %rbx,%rsi
  mov    %r12,%rdi
  call   <read_until_blank_line@plt>
  mov    0x8(%rsp),%rcx
  mov    %rax,(%rcx)
  jmp    L183
  nopl   (%rax)
L139:
  mov    $0xc,%edx
  lea    D36(%rip),%rsi
  mov    %rbp,%rdi
  call   <strnicmp@plt>
  test   %eax,%eax
  jne    L195
  mov    %r12,%rdi
  mov    %rbx,%rsi
  call   <read_until_blank_line@plt>
  mov    0x10(%rsp),%rcx
  mov    %rax,(%rcx)
  mov    0x8(%rsp),%rcx
  mov    (%rcx),%rdi
  test   %rdi,%rdi
  je     L183
  test   %rax,%rax
  je     L17
L186:
  mov    0x18(%rsp),%rax
  mov    $0x1,%r12d
  mov    (%rax),%edx
  test   %edx,%edx
  je     L208
  mov    (%rbx),%ecx
  mov    0x10(%rsp),%rsi
  mov    0x8(%rsp),%rdi
  call   <do_options@plt>
  jmp    L208
  nopl   0x0(%rax)
L195:
  mov    $0x9,%edx
  lea    D48(%rip),%rsi
  mov    %rbp,%rdi
  call   <strnicmp@plt>
  test   %eax,%eax
  jne    L183
  mov    %rbx,%rsi
  mov    %r12,%rdi
  call   <read_until_blank_line@plt>
  mov    %rax,%r14
  test   %rax,%rax
  je     L183
  xor    %r13d,%r13d
  jmp    L167
L130:
  add    $0x1,%r13
L167:
  mov    %r14,%rdi
  call   <strlen@plt>
  cmp    %r13d,%eax
  jle    L28
  movsbl (%r14,%r13,1),%edi
  call   <isupper@plt>
  test   %rax,%rax
  je     L130
  movsbl (%r14,%r13,1),%edi
  call   <_tolower@plt>
  mov    %al,(%r14,%r13,1)
  jmp    L130
L122:
  xor    %r12d,%r12d
L208:
  mov    0x128(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L11
  add    $0x138,%rsp
  mov    %r12d,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nop
L28:
  lea    D0(%rip),%rsi
  mov    %r14,%rdi
  call   <strstr@plt>
  test   %rax,%rax
  je     L47
  mov    0x18(%rsp),%rax
  orl    $0x1,(%rax)
L47:
  lea    D27(%rip),%rsi
  mov    %r14,%rdi
  call   <strstr@plt>
  test   %rax,%rax
  je     L147
  mov    0x18(%rsp),%rax
  orl    $0x2,(%rax)
L147:
  lea    D24(%rip),%rsi
  mov    %r14,%rdi
  call   <strstr@plt>
  test   %rax,%rax
  je     L165
  mov    0x18(%rsp),%rax
  orl    $0x4,(%rax)
L165:
  lea    D31(%rip),%rsi
  mov    %r14,%rdi
  call   <strstr@plt>
  test   %rax,%rax
  je     L54
  mov    0x18(%rsp),%rax
  orl    $0x8,(%rax)
L54:
  mov    %r14,%rdi
  call   <free@plt>
  jmp    L183
L17:
  call   <strlen@plt>
  lea    0x1(%rax),%rdi
  call   <malloc@plt>
  mov    %rax,%rdi
  mov    0x10(%rsp),%rax
  mov    %rdi,(%rax)
  test   %rdi,%rdi
  je     L122
  mov    0x8(%rsp),%rax
  mov    (%rax),%rsi
  call   <strcpy@plt>
  jmp    L186
L11:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: label: D58
datatype: string
name: unpack_data
arguments: label: D36
datatype: string
name: unpack_data
arguments: label: D48
datatype: string
name: unpack_data
arguments: label: D0
datatype: string
name: unpack_data
arguments: label: D27
datatype: string
name: unpack_data
arguments: label: D24
datatype: string
name: unpack_data
arguments: label: D31
datatype: string

tool: D58: :KEY:

tool: D36: :TRANSLATED:

tool: D48: :OPTIONS:

tool: D0: elbonian

tool: D27: stars

tool: D24: linenum

tool: D31: xtdelbon

assistant: ```c
int get_string_pair(FILE *fp, char **english, char **xlation, int *xlat_options, int *line_num) {
  char buffer[256];
  while (fgets(buffer, 256, fp)) {
    ++*line_num;
    if (!strnicmp(buffer, ":KEY:", 5)) {
      *english = read_until_blank_line(fp, line_num);
    } else if (!strnicmp(buffer, ":TRANSLATED:", 12)) {
      *xlation = read_until_blank_line(fp, line_num);
      if (*english) {
        if (!*xlation) {
          if (!(*xlation = malloc(strlen(*english) + 1)))
            return 0;
          strcpy(*xlation, *english);
        }
        if (*xlat_options) {
          do_options(english, xlation, *xlat_options, *line_num);
        }
        return 1;
      }
    } else if (!strnicmp(buffer, ":OPTIONS:", 9)) {
      char *optstr = read_until_blank_line(fp, line_num);
      if (optstr) {
        int i;
        for (i = 0; i < (int)strlen(optstr); i++) {
          if (isupper(optstr[i]))
            optstr[i] = _tolower(optstr[i]);
        }
        if (strstr(optstr, "elbonian"))
          *xlat_options |= 1;
        if (strstr(optstr, "stars"))
          *xlat_options |= 2;
        if (strstr(optstr, "linenum"))
          *xlat_options |= 4;
        if (strstr(optstr, "xtdelbon"))
          *xlat_options |= 8;
        free(optstr);
      }
    }
  }
  return 0;
}
```