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

```asm
<conv_cmor_table>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x70,%rsp
  mov    %rdi,-0x68(%rbp)
  movl   $0x0,-0x4c(%rbp)
  mov    -0x68(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <kvlParseFile@plt>
  cltq
  mov    %rax,-0x20(%rbp)
  mov    -0x20(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <kvlGetNumLists@plt>
  mov    %eax,-0x3c(%rbp)
  movl   $0x0,-0x54(%rbp)
  jmp    L235
L336:
  mov    -0x54(%rbp),%edx
  mov    -0x20(%rbp),%rax
  mov    %edx,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <kvlGetListName@plt>
  cltq
  mov    %rax,-0x18(%rbp)
  mov    -0x54(%rbp),%edx
  mov    -0x20(%rbp),%rax
  mov    %edx,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <kvlGetListNumElements@plt>
  mov    %eax,-0x38(%rbp)
  mov    -0x18(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  mov    %rax,%rdx
  mov    -0x18(%rbp),%rax
  mov    %rax,%rsi
  lea    D112(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  jne    L128
  movl   $0x0,-0x50(%rbp)
  jmp    L307
L209:
  mov    -0x50(%rbp),%edx
  mov    -0x54(%rbp),%ecx
  mov    -0x20(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <kvlGetListElementName@plt>
  cltq
  mov    %rax,-0x10(%rbp)
  mov    -0x50(%rbp),%edx
  mov    -0x54(%rbp),%ecx
  mov    -0x20(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <kvlGetListElementValue@plt>
  cltq
  mov    %rax,-0x28(%rbp)
  mov    -0x10(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  mov    %eax,-0x34(%rbp)
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D67(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  jne    L94
  mov    -0x28(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <atof@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movl   $0x1,-0x4c(%rbp)
L94:
  addl   $0x1,-0x50(%rbp)
L307:
  mov    -0x50(%rbp),%eax
  cmp    -0x38(%rbp),%eax
  jl     L209
  jmp    L275
L128:
  mov    -0x18(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  mov    %rax,%rdx
  mov    -0x18(%rbp),%rax
  mov    %rax,%rsi
  lea    D222(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  jne    L275
  lea    D148(%rip),%rax
  mov    %rax,%rsi
  lea    D103(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  movl   $0x0,-0x50(%rbp)
  jmp    L266
L125:
  mov    -0x50(%rbp),%edx
  mov    -0x54(%rbp),%ecx
  mov    -0x20(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <kvlGetListElementName@plt>
  cltq
  mov    %rax,-0x10(%rbp)
  mov    -0x50(%rbp),%edx
  mov    -0x54(%rbp),%ecx
  mov    -0x20(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <kvlGetListElementValue@plt>
  cltq
  mov    %rax,-0x28(%rbp)
  mov    -0x10(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  mov    %eax,-0x34(%rbp)
  mov    -0x28(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  mov    %eax,-0x48(%rbp)
  cmpl   $0x1,-0x48(%rbp)
  jle    L319
  mov    -0x28(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x22,%al
  jne    L319
  mov    -0x48(%rbp),%eax
  cltq
  lea    -0x1(%rax),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  cmp    $0x22,%al
  jne    L319
  subl   $0x2,-0x48(%rbp)
  addq   $0x1,-0x28(%rbp)
L319:
  mov    -0x28(%rbp),%rax
  mov    %rax,%rdi
  call   <strdup@plt>
  mov    %rax,-0x8(%rbp)
  movl   $0x1,-0x44(%rbp)
  jmp    L92
L231:
  mov    -0x44(%rbp),%eax
  cltq
  lea    -0x1(%rax),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  cmp    $0x22,%al
  jne    L6
  mov    -0x44(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  cmp    $0x22,%al
  jne    L6
  mov    -0x44(%rbp),%eax
  cltq
  lea    -0x1(%rax),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  movb   $0x27,(%rax)
  mov    -0x44(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x40(%rbp)
  jmp    L113
L310:
  mov    -0x40(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    -0x40(%rbp),%edx
  movslq %edx,%rdx
  lea    -0x1(%rdx),%rcx
  mov    -0x8(%rbp),%rdx
  add    %rcx,%rdx
  movzbl (%rax),%eax
  mov    %al,(%rdx)
  addl   $0x1,-0x40(%rbp)
L113:
  mov    -0x40(%rbp),%eax
  cmp    -0x48(%rbp),%eax
  jl     L310
  subl   $0x1,-0x48(%rbp)
L6:
  addl   $0x1,-0x44(%rbp)
L92:
  mov    -0x44(%rbp),%eax
  cmp    -0x48(%rbp),%eax
  jl     L231
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D108(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  je     L134
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D110(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  je     L134
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D71(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  je     L134
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D209(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  je     L134
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D188(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  je     L134
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D49(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  je     L134
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D52(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  je     L134
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D214(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  jne    L250
L134:
  mov    -0x8(%rbp),%rdx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D165(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  jmp    L253
L250:
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D106(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  je     L313
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D219(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  je     L313
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D229(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  je     L313
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D36(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  je     L313
  mov    -0x34(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D46(%rip),%rax
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %eax,%eax
  jne    L253
L313:
  mov    -0x8(%rbp),%rcx
  mov    -0x48(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D50(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
L253:
  mov    -0x8(%rbp),%rax
  mov    %rax,%rcx
  mov    $0x8e,%edx
  lea    D174(%rip),%rax
  mov    %rax,%rsi
  lea    D90(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <Free@plt>
  addl   $0x1,-0x50(%rbp)
L266:
  mov    -0x50(%rbp),%eax
  cmp    -0x38(%rbp),%eax
  jl     L125
  cmpl   $0x0,-0x4c(%rbp)
  je     L146
  mov    -0x30(%rbp),%rax
  movq   %rax,%xmm0
  lea    D67(%rip),%rax
  mov    %rax,%rsi
  lea    D88(%rip),%rax
  mov    %rax,%rdi
  mov    $0x1,%eax
  call   <printf@plt>
L146:
  lea    D0(%rip),%rax
  mov    %rax,%rdi
  call   <puts@plt>
L275:
  addl   $0x1,-0x54(%rbp)
L235:
  mov    -0x54(%rbp),%eax
  cmp    -0x3c(%rbp),%eax
  jl     L336
  mov    -0x20(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <kvlDelete@plt>
  mov    $0x0,%eax
  leave
  ret
```

tool_calls: name: retrieve_data
arguments: data_tag: D112
datatype: string
name: retrieve_data
arguments: data_tag: D67
datatype: string
name: retrieve_data
arguments: data_tag: D222
datatype: string
name: retrieve_data
arguments: data_tag: D148
datatype: string
name: retrieve_data
arguments: data_tag: D103
datatype: string
name: retrieve_data
arguments: data_tag: D108
datatype: string
name: retrieve_data
arguments: data_tag: D110
datatype: string
name: retrieve_data
arguments: data_tag: D71
datatype: string
name: retrieve_data
arguments: data_tag: D209
datatype: string
name: retrieve_data
arguments: data_tag: D188
datatype: string
name: retrieve_data
arguments: data_tag: D49
datatype: string
name: retrieve_data
arguments: data_tag: D52
datatype: string
name: retrieve_data
arguments: data_tag: D214
datatype: string
name: retrieve_data
arguments: data_tag: D165
datatype: string
name: retrieve_data
arguments: data_tag: D106
datatype: string
name: retrieve_data
arguments: data_tag: D219
datatype: string
name: retrieve_data
arguments: data_tag: D229
datatype: string
name: retrieve_data
arguments: data_tag: D36
datatype: string
name: retrieve_data
arguments: data_tag: D46
datatype: string
name: retrieve_data
arguments: data_tag: D50
datatype: string
name: retrieve_data
arguments: data_tag: D174
datatype: string
name: retrieve_data
arguments: data_tag: D90
datatype: string
name: retrieve_data
arguments: data_tag: D88
datatype: string
name: retrieve_data
arguments: data_tag: D0
datatype: string

tool: D112: global

tool: D67: missing_value

tool: D222: variable

tool: D148: parameter

tool: D103: &%s


tool: D108: name

tool: D110: standard_name

tool: D71: out_name

tool: D209: type

tool: D188: valid_min

tool: D49: valid_max

tool: D52: ok_min_mean_abs

tool: D214: ok_max_mean_abs

tool: D165:   %-15s = %s


tool: D106: long_name

tool: D219: units

tool: D229: cell_methods

tool: D36: cell_measures

tool: D46: comment

tool: D50:   %-15s = "%.*s"


tool: D174: /scratch/repos/new/home/jordi_armengol_estape/c-scraper/outputs/2022-01-22/02-19-57/repos/AZed/cdo/refs/heads/master/src/Kvl.c

tool: D90: conv_cmor_table

tool: D88:   %-15s = %g


tool: D0: /

assistant: ```c
int conv_cmor_table(const char *filename) {
  void *kvlist;
  int nlists, listID;
  int nelements, elemID;
  int len;
  int hasmissval = 0;
  double missval;
  const char *listname;
  const char *ename;
  const char *evalue;
  char *ovalue;
  kvlist = kvlParseFile(filename);
  nlists = kvlGetNumLists(kvlist);
  for (listID = 0; listID < nlists; ++listID) {
    listname = kvlGetListName(kvlist, listID);
    nelements = kvlGetListNumElements(kvlist, listID);
    if (strncmp("global", listname, strlen(listname)) == 0) {
      for (elemID = 0; elemID < nelements; ++elemID) {
        ename = kvlGetListElementName(kvlist, listID, elemID);
        evalue = kvlGetListElementValue(kvlist, listID, elemID);
        len = strlen(ename);
        if (strncmp("missing_value", ename, len) == 0) {
          missval = atof(evalue);
          hasmissval = 1;
        }
      }
    } else if (strncmp("variable", listname, strlen(listname)) == 0) {
      int vlen;
      printf("&%s\n", "parameter");
      for (elemID = 0; elemID < nelements; ++elemID) {
        ename = kvlGetListElementName(kvlist, listID, elemID);
        evalue = kvlGetListElementValue(kvlist, listID, elemID);
        len = strlen(ename);
        vlen = strlen(evalue);
        if (vlen > 1 && evalue[0] == '"' && evalue[vlen - 1] == '"') {
          vlen -= 2;
          evalue++;
        }
        ovalue = strdup(evalue);
        for (int i = 1; i < vlen; ++i) {
          if (ovalue[i - 1] == '"' && ovalue[i] == '"') {
            ovalue[i - 1] = '\'';
            for (int j = i + 1; j < vlen; ++j)
              ovalue[j - 1] = ovalue[j];
            vlen -= 1;
          }
        }
        if (strncmp("name", ename, len) == 0 || strncmp("standard_name", ename, len) == 0 || strncmp("out_name", ename, len) == 0 || strncmp("type", ename, len) == 0 || strncmp("valid_min", ename, len) == 0 || strncmp("valid_max", ename, len) == 0 || strncmp("ok_min_mean_abs", ename, len) == 0 || strncmp("ok_max_mean_abs", ename, len) == 0)
          printf("  %-15s = %s\n", ename, ovalue);
        else if (strncmp("long_name", ename, len) == 0 || strncmp("units", ename, len) == 0 || strncmp("cell_methods", ename, len) == 0 || strncmp("cell_measures", ename, len) == 0 || strncmp("comment", ename, len) == 0)
          printf("  %-15s = \"%.*s\"\n", ename, vlen, ovalue);
        Free(__func__, "/scratch/repos/new/home/jordi_armengol_estape/c-scraper/outputs/2022-01-22/02-19-57/repos/AZed/cdo/refs/heads/master/src/Kvl.c", 142, (ovalue));
      }
      if (hasmissval)
        printf("  %-15s = %g\n", "missing_value", missval);
      printf("/\n");
    }
  }
  kvlDelete(kvlist);
  return (0);
}
```