user: 请将以下的汇编代码转换成C语言代码：

```asm
<get_string_pair>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x128,%rsp
  mov    %rdi,%rbp
  mov    %rsi,%r15
  mov    %rdx,(%rsp)
  mov    %rcx,0x8(%rsp)
  mov    %r8,%rbx
  mov    %fs:0x28,%rax
  mov    %rax,0x118(%rsp)
  xor    %eax,%eax
  lea    D18(%rip),%r14
  jmp    L48
L146:
  lea    0x10(%rsp),%rdi
  mov    $0xc,%edx
  lea    D38(%rip),%rsi
  call   <strnicmp@plt>
  mov    %eax,%r12d
  test   %eax,%eax
  jne    L148
  mov    %rbx,%rsi
  mov    %rbp,%rdi
  call   <read_until_blank_line@plt>
  mov    (%rsp),%rcx
  mov    %rax,(%rcx)
  mov    (%r15),%rdi
  test   %rdi,%rdi
  jne    L151
L48:
  lea    0x10(%rsp),%rdi
  mov    %rbp,%rdx
  mov    $0x100,%esi
  call   <fgets@plt>
  test   %rax,%rax
  je     L17
  addl   $0x1,(%rbx)
  lea    0x10(%rsp),%rdi
  mov    $0x5,%edx
  mov    %r14,%rsi
  call   <strnicmp@plt>
  test   %eax,%eax
  jne    L146
  mov    %rbx,%rsi
  mov    %rbp,%rdi
  call   <read_until_blank_line@plt>
  mov    %rax,(%r15)
  jmp    L48
L151:
  test   %rax,%rax
  je     L201
L193:
  mov    0x8(%rsp),%rax
  mov    (%rax),%edx
  mov    $0x1,%r12d
  test   %edx,%edx
  je     L200
  mov    (%rbx),%ecx
  mov    (%rsp),%rsi
  mov    %r15,%rdi
  call   <do_options@plt>
  jmp    L200
L201:
  call   <strlen@plt>
  lea    0x1(%rax),%rdi
  call   <malloc@plt>
  mov    %rax,%rdi
  mov    (%rsp),%rax
  mov    %rdi,(%rax)
  test   %rdi,%rdi
  je     L200
  mov    (%r15),%rsi
  call   <strcpy@plt>
  jmp    L193
L148:
  lea    0x10(%rsp),%rdi
  mov    $0x9,%edx
  lea    D12(%rip),%rsi
  call   <strnicmp@plt>
  test   %eax,%eax
  jne    L48
  mov    %rbx,%rsi
  mov    %rbp,%rdi
  call   <read_until_blank_line@plt>
  mov    %rax,%r13
  test   %rax,%rax
  je     L48
  mov    $0x0,%r12d
  jmp    L227
L79:
  add    $0x1,%r12
L227:
  mov    %r13,%rdi
  call   <strlen@plt>
  cmp    %r12d,%eax
  jle    L118
  movsbl 0x0(%r13,%r12,1),%edi
  call   <isupper@plt>
  test   %rax,%rax
  je     L79
  movsbl 0x0(%r13,%r12,1),%edi
  call   <_tolower@plt>
  mov    %al,0x0(%r13,%r12,1)
  jmp    L79
L118:
  lea    D61(%rip),%rsi
  mov    %r13,%rdi
  call   <strstr@plt>
  test   %rax,%rax
  je     L108
  mov    0x8(%rsp),%rax
  orl    $0x1,(%rax)
L108:
  lea    D44(%rip),%rsi
  mov    %r13,%rdi
  call   <strstr@plt>
  test   %rax,%rax
  je     L186
  mov    0x8(%rsp),%rax
  orl    $0x2,(%rax)
L186:
  lea    D35(%rip),%rsi
  mov    %r13,%rdi
  call   <strstr@plt>
  test   %rax,%rax
  je     L210
  mov    0x8(%rsp),%rax
  orl    $0x4,(%rax)
L210:
  lea    D1(%rip),%rsi
  mov    %r13,%rdi
  call   <strstr@plt>
  test   %rax,%rax
  je     L206
  mov    0x8(%rsp),%rax
  orl    $0x8,(%rax)
L206:
  mov    %r13,%rdi
  call   <free@plt>
  jmp    L48
L17:
  mov    $0x0,%r12d
L200:
  mov    0x118(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L6
  mov    %r12d,%eax
  add    $0x128,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L6:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: retrieve_data
arguments: data_label: D18
type_infered: string
name: retrieve_data
arguments: data_label: D38
type_infered: string
name: retrieve_data
arguments: data_label: D12
type_infered: string
name: retrieve_data
arguments: data_label: D61
type_infered: string
name: retrieve_data
arguments: data_label: D44
type_infered: string
name: retrieve_data
arguments: data_label: D35
type_infered: string
name: retrieve_data
arguments: data_label: D1
type_infered: string

tool: D18: :KEY:

tool: D38: :TRANSLATED:

tool: D12: :OPTIONS:

tool: D61: elbonian

tool: D44: stars

tool: D35: linenum

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