user: 请显示与下面列出的汇编代码相匹配的C语言实现：

```asm
<get_annotation>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  lea    -0x3d000(%rsp),%r11
L195:
  sub    $0x1000,%rsp
  orq    $0x0,(%rsp)
  cmp    %r11,%rsp
  jne    L195
  sub    $0x5b8,%rsp
  mov    %rdi,%rbp
  mov    %rsi,%r12
  mov    %fs:0x28,%rax
  mov    %rax,0x3d5a8(%rsp)
  xor    %eax,%eax
  lea    0x120(%rsp),%rbx
  mov    %rsi,%rdx
  lea    D57(%rip),%rsi
  mov    %rbx,%rdi
  call   <sprintf@plt>
  mov    %rbx,%rdi
  call   <system@plt>
  movabs $0x2720692d20646573,%rax
  movabs $0x2f2f7268635e2f73,%rdx
  mov    %rax,0x120(%rsp)
  mov    %rdx,0x128(%rsp)
  movabs $0x672e706d74202767,%rax
  mov    %rax,0x130(%rsp)
  movw   $0x6674,0x138(%rsp)
  movb   $0x0,0x13a(%rsp)
  mov    %rbx,%rdi
  call   <system@plt>
  mov    %r12,%rsi
  lea    D249(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    %rbp,%rdx
  lea    D90(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  mov    %rbx,%rdi
  call   <system@plt>
  mov    %rbp,%rdx
  lea    D130(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  mov    %rbx,%rdi
  call   <system@plt>
  mov    %rbp,%rdx
  lea    D271(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  mov    %rbx,%rdi
  call   <system@plt>
  mov    %rbp,%rdx
  lea    D41(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  mov    %rbx,%rdi
  call   <system@plt>
  mov    %rbp,%rdx
  lea    D221(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  mov    %rbx,%rdi
  call   <system@plt>
  mov    %rbp,%rdx
  lea    D106(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  mov    %rbx,%rdi
  call   <system@plt>
  mov    %rbp,%rdx
  lea    D121(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  mov    %rbx,%rdi
  call   <system@plt>
  lea    0x31250(%rsp),%rbx
  mov    %rbp,%rdx
  lea    D71(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  lea    D224(%rip),%rsi
  mov    %rbx,%rdi
  call   <fopen@plt>
  mov    %rax,0x48(%rsp)
  test   %rax,%rax
  je     L236
  lea    D224(%rip),%rsi
  lea    D170(%rip),%rdi
  call   <fopen@plt>
  mov    %rax,0x50(%rsp)
  test   %rax,%rax
  je     L70
  lea    0x31250(%rsp),%rbx
  mov    %rbp,%rdx
  lea    D222(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  lea    D59(%rip),%rsi
  mov    %rbx,%rdi
  call   <fopen@plt>
  mov    %rax,0x58(%rsp)
  test   %rax,%rax
  je     L126
L89:
  lea    0x510(%rsp),%rbx
  mov    0x48(%rsp),%rdx
  mov    $0xc350,%esi
  mov    %rbx,%rdi
  call   <fgets@plt>
  lea    0x18bb0(%rsp),%rdi
  mov    %rbx,%rsi
  call   <strcpy@plt>
  lea    0xa0(%rsp),%r12
  mov    %r12,%rdx
  lea    D236(%rip),%r13
  mov    %r13,%rsi
  mov    %rbx,%rdi
  call   <strtok_r@plt>
  mov    $0x0,%edx
  mov    $0x0,%esi
  mov    %rax,0x18(%rsp)
  mov    %rax,%rdi
  call   <strtol@plt>
  mov    %rax,0x98(%rsp)
  mov    %r12,%rdx
  mov    %r13,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,0x20(%rsp)
  mov    $0x0,%edx
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <strtol@plt>
  mov    %rax,%rbx
  mov    %r12,%rdx
  mov    %r13,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,0x28(%rsp)
  mov    $0x0,%edx
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <strtol@plt>
  mov    %rax,%rbp
  mov    %r12,%rdx
  mov    %r13,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,0x30(%rsp)
  mov    %r12,%rdx
  mov    %r13,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,0x38(%rsp)
  mov    %r12,%rdx
  mov    %r13,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,0x40(%rsp)
  lea    0xc860(%rsp),%r12
  mov    0x50(%rsp),%rdx
  mov    $0x2710,%esi
  mov    %r12,%rdi
  call   <fgets@plt>
  lea    0x24f00(%rsp),%rdi
  mov    %r12,%rsi
  call   <strcpy@plt>
  lea    0xa8(%rsp),%r14
  mov    %r14,%rdx
  lea    D108(%rip),%r15
  mov    %r15,%rsi
  mov    %r12,%rdi
  call   <strtok_r@plt>
  mov    %rax,0x70(%rsp)
  mov    $0x0,%edx
  mov    $0x0,%esi
  mov    0x18(%rsp),%rdi
  call   <strtol@plt>
  mov    %rax,%r12
  mov    %r14,%rdx
  mov    %r15,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,%rdi
  mov    %rax,0x80(%rsp)
  mov    $0x0,%edx
  mov    $0x0,%esi
  call   <strtol@plt>
  mov    %rax,(%rsp)
  mov    %r14,%rdx
  mov    %r15,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,%rdi
  mov    %rax,0x88(%rsp)
  mov    $0x0,%edx
  mov    $0x0,%esi
  call   <strtol@plt>
  mov    %rax,0x8(%rsp)
  mov    %r14,%rdx
  mov    %r15,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,%r15
  mov    %rax,0x68(%rsp)
  mov    %r14,%rdx
  mov    %r13,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  lea    0xb0(%rsp),%rdi
  mov    %r15,%rsi
  call   <strcpy@plt>
  mov    %rbx,%rcx
  mov    (%rsp),%r10
  sub    %r10,%rcx
  mov    %rcx,%rax
  mov    %rbx,%rdx
  mov    0x8(%rsp),%rdi
  sub    %rdi,%rdx
  mov    %rbp,%rcx
  sub    %r10,%rcx
  mov    %rbp,%rsi
  sub    %rdi,%rsi
  mov    %r12,0x78(%rsp)
  mov    %rdi,0x60(%rsp)
  mov    %r10,0x90(%rsp)
  mov    $0x1,%r13d
  lea    D236(%rip),%r15
  mov    %r13d,0x14(%rsp)
  mov    0x98(%rsp),%r13
  jmp    L183
L236:
  lea    D238(%rip),%rdi
  call   <puts@plt>
  mov    $0x1,%eax
  jmp    L44
L70:
  lea    D133(%rip),%rdi
  call   <puts@plt>
  mov    $0x1,%eax
  jmp    L44
L126:
  lea    D34(%rip),%rdi
  call   <puts@plt>
  jmp    L89
L43:
  mov    %rbx,%rdi
  mov    0x60(%rsp),%r14
  sub    %r14,%rdi
  call   <abs@plt>
  sub    $0x8,%rsp
  add    $0x1,%eax
  push   %rax
  lea    0xc0(%rsp),%rax
  push   %rax
  push   %r14
  push   0xb0(%rsp)
  push   0xa0(%rsp)
  push   0x70(%rsp)
  push   0x70(%rsp)
  mov    0x70(%rsp),%r9
  mov    0x68(%rsp),%r8
  mov    0x60(%rsp),%rcx
  mov    0x58(%rsp),%rdx
  lea    D193(%rip),%rsi
  mov    0x98(%rsp),%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  add    $0x40,%rsp
L118:
  lea    0x510(%rsp),%rdi
  mov    0x48(%rsp),%rdx
  mov    $0xc350,%esi
  call   <fgets@plt>
  test   %rax,%rax
  je     L25
  lea    0x510(%rsp),%rbx
  lea    0x18bb0(%rsp),%rdi
  mov    %rbx,%rsi
  call   <strcpy@plt>
  lea    0xa0(%rsp),%r14
  mov    %r14,%rdx
  mov    %r15,%rsi
  mov    %rbx,%rdi
  call   <strtok_r@plt>
  mov    %rax,0x18(%rsp)
  mov    $0x0,%edx
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <strtol@plt>
  mov    %rax,%r13
  mov    %r14,%rdx
  mov    %r15,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,0x20(%rsp)
  mov    $0x0,%edx
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <strtol@plt>
  mov    %rax,%rbx
  mov    %r14,%rdx
  mov    %r15,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,0x28(%rsp)
  mov    $0x0,%edx
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <strtol@plt>
  mov    %rax,%rbp
  mov    %r14,%rdx
  mov    %r15,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,0x30(%rsp)
  mov    %r14,%rdx
  mov    %r15,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,0x38(%rsp)
  mov    %r14,%rdx
  mov    %r15,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,0x40(%rsp)
L244:
  mov    %rbx,%rax
  mov    (%rsp),%rsi
  sub    %rsi,%rax
  mov    %rbx,%rdx
  mov    0x8(%rsp),%rdi
  sub    %rdi,%rdx
  mov    %rbp,%rcx
  sub    %rsi,%rcx
  mov    %rbp,%rsi
  sub    %rdi,%rsi
  cmpl   $0x0,0x14(%rsp)
  jle    L242
L183:
  cmp    %r12,%r13
  jl     L43
  jg     L140
  test   %rax,%rax
  jle    L239
  test   %rdx,%rdx
  jle    L239
  test   %rcx,%rcx
  jle    L110
  test   %rsi,%rsi
  jg     L261
L110:
  push   0x68(%rsp)
  push   0x90(%rsp)
  push   0x90(%rsp)
  push   0x88(%rsp)
  push   0x60(%rsp)
  push   0x60(%rsp)
  mov    0x60(%rsp),%r9
  mov    0x58(%rsp),%r8
  mov    0x50(%rsp),%rcx
  mov    0x48(%rsp),%rdx
  lea    D110(%rip),%rsi
  mov    0x88(%rsp),%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  add    $0x30,%rsp
  jmp    L118
L261:
  lea    0xb0(%rsp),%rdi
  mov    0x68(%rsp),%rsi
  call   <strcpy@plt>
  mov    %r12,0x78(%rsp)
  mov    0x8(%rsp),%rax
  mov    %rax,0x60(%rsp)
  mov    (%rsp),%rax
  mov    %rax,0x90(%rsp)
L140:
  lea    0xc860(%rsp),%rdi
  mov    0x50(%rsp),%rdx
  mov    $0x2710,%esi
  call   <fgets@plt>
  test   %rax,%rax
  je     L50
  lea    0xc860(%rsp),%r12
  lea    0x24f00(%rsp),%rdi
  mov    %r12,%rsi
  call   <strcpy@plt>
  lea    0xa8(%rsp),%r14
  mov    %r14,%rdx
  lea    D108(%rip),%rsi
  mov    %r12,%rdi
  call   <strtok_r@plt>
  mov    %rax,0x70(%rsp)
  mov    $0x0,%edx
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <strtol@plt>
  mov    %rax,%r12
  mov    %r14,%rdx
  lea    D108(%rip),%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,0x80(%rsp)
  mov    $0x0,%edx
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <strtol@plt>
  mov    %rax,(%rsp)
  mov    %r14,%rdx
  lea    D108(%rip),%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,0x88(%rsp)
  mov    $0x0,%edx
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <strtol@plt>
  mov    %rax,0x8(%rsp)
  mov    %r14,%rdx
  mov    %r15,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  mov    %rax,0x68(%rsp)
  mov    %r14,%rdx
  mov    %r15,%rsi
  mov    $0x0,%edi
  call   <strtok_r@plt>
  jmp    L244
L239:
  and    %rdx,%rax
  and    %rcx,%rax
  test   %rsi,%rax
  jns    L110
  mov    (%rsp),%rdi
  sub    %rbp,%rdi
  mov    %rbx,%rax
  sub    0x60(%rsp),%rax
  cmp    %rax,%rdi
  jl     L132
  cmp    0x78(%rsp),%r12
  je     L6
  call   <abs@plt>
  sub    $0x8,%rsp
  add    $0x1,%eax
  push   %rax
  push   0x78(%rsp)
  push   0xa0(%rsp)
  push   0xa0(%rsp)
  push   0x98(%rsp)
  push   0x70(%rsp)
  push   0x70(%rsp)
  mov    0x70(%rsp),%r9
  mov    0x68(%rsp),%r8
  mov    0x60(%rsp),%rcx
  mov    0x58(%rsp),%rdx
  lea    D178(%rip),%rsi
  mov    0x98(%rsp),%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  add    $0x40,%rsp
  jmp    L118
L132:
  call   <abs@plt>
  sub    $0x8,%rsp
  add    $0x1,%eax
  push   %rax
  push   0x78(%rsp)
  push   0xa0(%rsp)
  push   0xa0(%rsp)
  push   0x98(%rsp)
  push   0x70(%rsp)
  push   0x70(%rsp)
  mov    0x70(%rsp),%r9
  mov    0x68(%rsp),%r8
  mov    0x60(%rsp),%rcx
  mov    0x58(%rsp),%rdx
  lea    D178(%rip),%rsi
  mov    0x98(%rsp),%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  add    $0x40,%rsp
  jmp    L118
L6:
  mov    %rax,%rdi
  call   <abs@plt>
  sub    $0x8,%rsp
  add    $0x1,%eax
  push   %rax
  lea    0xc0(%rsp),%rax
  push   %rax
  push   0x78(%rsp)
  push   0xb0(%rsp)
  push   0x98(%rsp)
  push   0x70(%rsp)
  push   0x70(%rsp)
  mov    0x70(%rsp),%r9
  mov    0x68(%rsp),%r8
  mov    0x60(%rsp),%rcx
  mov    0x58(%rsp),%rdx
  lea    D212(%rip),%rsi
  mov    0x98(%rsp),%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  add    $0x40,%rsp
  jmp    L118
L242:
  mov    0x48(%rsp),%rdi
  call   <fclose@plt>
  mov    0x50(%rsp),%rdi
  call   <fclose@plt>
  mov    $0x0,%eax
L44:
  mov    0x3d5a8(%rsp),%rdx
  sub    %fs:0x28,%rdx
  jne    L165
  add    $0x3d5b8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L25:
  movl   $0x0,0x14(%rsp)
  jmp    L244
L50:
  movl   $0x0,0x14(%rsp)
  jmp    L244
L165:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: data_label: D57
type: string
name: extract_symbolic_data
arguments: data_label: D249
type: string
name: extract_symbolic_data
arguments: data_label: D90
type: string
name: extract_symbolic_data
arguments: data_label: D130
type: string
name: extract_symbolic_data
arguments: data_label: D271
type: string
name: extract_symbolic_data
arguments: data_label: D41
type: string
name: extract_symbolic_data
arguments: data_label: D221
type: string
name: extract_symbolic_data
arguments: data_label: D106
type: string
name: extract_symbolic_data
arguments: data_label: D121
type: string
name: extract_symbolic_data
arguments: data_label: D71
type: string
name: extract_symbolic_data
arguments: data_label: D224
type: string
name: extract_symbolic_data
arguments: data_label: D170
type: string
name: extract_symbolic_data
arguments: data_label: D222
type: string
name: extract_symbolic_data
arguments: data_label: D59
type: string
name: extract_symbolic_data
arguments: data_label: D236
type: string
name: extract_symbolic_data
arguments: data_label: D108
type: string
name: extract_symbolic_data
arguments: data_label: D238
type: string
name: extract_symbolic_data
arguments: data_label: D133
type: string
name: extract_symbolic_data
arguments: data_label: D34
type: string
name: extract_symbolic_data
arguments: data_label: D193
type: string
name: extract_symbolic_data
arguments: data_label: D110
type: string
name: extract_symbolic_data
arguments: data_label: D178
type: string
name: extract_symbolic_data
arguments: data_label: D212
type: string

tool: D57: awk -F "\t" '$3 == "gene" { print $1 "\t" $4 "\t" $5 "\t" $9 }' %s > tmp.gtf

tool: D249: we have a gtf file with the name of %s


tool: D90: sed -i 's/^chr//g' %s.tmp2

tool: D130: sed -i 's/^X/23/g' %s.tmp2

tool: D271: sed -i 's/^Y/24/g' %s.tmp2

tool: D41: sed -i 's/^M/25/g' %s.tmp2

tool: D221: sed -i 's/^MT/25/g' %s.tmp2

tool: D106: sort -k1,1n -k2,2n %s.tmp2 > tmp.tmp2

tool: D121: mv tmp.tmp2 %s.tmp2

tool: D71: %s.tmp2

tool: D224: r

tool: D170: tmp.gtf

tool: D222: %s.tmp3

tool: D59: w

tool: D236: 	


tool: D108: 	

tool: D238: Problem opening variant file

tool: D133: Problem opening vcf file

tool: D34: Problem opening output file

tool: D193: %s	%s	%s	%s	%s	%s	%d	%d	%d	%s	%d


tool: D110: %s	%s	%s	%s	%s	%s	%s	%s	%s	%s	0


tool: D178: %s	%s	%s	%s	%s	%s	%s	%s	%s	%s	%d


tool: D212: %s	%s	%s	%s	%s	%s	%s	%d	%d	%s	%d


assistant: ```c
int get_annotation(char *input_filename, char *gtf) {
  char system_command[1000];
  sprintf(system_command, "awk -F \"\\t\" '$3 == \"gene\" { print $1 \"\\t\" $4 \"\\t\" $5 \"\\t\" $9 }' %s > tmp.gtf", gtf);
  system(system_command);
  sprintf(system_command, "sed -i 's/^chr//g' tmp.gtf");
  system(system_command);
  printf("we have a gtf file with the name of %s\n", gtf);
  char varstr[50000];
  char vcfstr[50000];
  char varstr1[50000];
  char vcfstr1[50000];
  char tempstring[50000];
  char col1[100];
  char col2[100];
  char col3[100];
  char col4[100];
  char col5[100];
  char *pvarcol1;
  char *pvarcol2;
  char *pvarcol3;
  char *pvarcol4;
  char *pvarcol5;
  char *pvarcol6;
  char *pvcfcol1_1;
  char *pvcfcol2_2;
  char *pvcfcol3_3;
  char *pvcfcol4_4;
  char *pvcfcol5_5;
  char *pvcfcol1;
  char *pvcfcol2;
  char *pvcfcol3;
  char *pvcfcol4;
  char *pvcfcol5;
  char *end_str;
  char *end_str2;
  char *commentptr;
  FILE *vcffp;
  FILE *varfp;
  FILE *outfp;
  long i;
  long j;
  long j_1;
  long k;
  long l;
  long l_1;
  long m;
  long n;
  long n_1;
  long v1;
  long v2;
  long v3;
  long v4;
  int zero_count;
  int pflag;
  int wflag;
  wflag = 1;
  zero_count = 0;
  pflag = 0;
  sprintf(system_command, "sed -i 's/^chr//g' %s.tmp2", input_filename);
  system(system_command);
  sprintf(system_command, "sed -i 's/^X/23/g' %s.tmp2", input_filename);
  system(system_command);
  sprintf(system_command, "sed -i 's/^Y/24/g' %s.tmp2", input_filename);
  system(system_command);
  sprintf(system_command, "sed -i 's/^M/25/g' %s.tmp2", input_filename);
  system(system_command);
  sprintf(system_command, "sed -i 's/^MT/25/g' %s.tmp2", input_filename);
  system(system_command);
  sprintf(system_command, "sort -k1,1n -k2,2n %s.tmp2 > tmp.tmp2", input_filename);
  system(system_command);
  sprintf(system_command, "mv tmp.tmp2 %s.tmp2", input_filename);
  system(system_command);
  sprintf(tempstring, "%s.tmp2", input_filename);
  varfp = fopen(tempstring, "r");
  if (varfp == NULL) {
    printf("Problem opening variant file\n");
    return 1;
  }
  vcffp = fopen("tmp.gtf", "r");
  if (vcffp == NULL) {
    printf("Problem opening vcf file\n");
    return 1;
  }
  sprintf(tempstring, "%s.tmp3", input_filename);
  outfp = fopen(tempstring, "w");
  if (outfp == NULL) {
    printf("Problem opening output file\n");
  }
  fgets(varstr, 50000, varfp);
  strcpy(varstr1, varstr);
  pvarcol1 = strtok_r(varstr, "\t\n", &end_str);
  k = strtol(pvarcol1, NULL, 0);
  pvarcol2 = strtok_r(NULL, "\t\n", &end_str);
  i = strtol(pvarcol2, NULL, 0);
  pvarcol3 = strtok_r(NULL, "\t\n", &end_str);
  m = strtol(pvarcol3, NULL, 0);
  pvarcol4 = strtok_r(NULL, "\t\n", &end_str);
  pvarcol5 = strtok_r(NULL, "\t\n", &end_str);
  pvarcol6 = strtok_r(NULL, "\t\n", &end_str);
  fgets(vcfstr, 10000, vcffp);
  strcpy(vcfstr1, vcfstr);
  pvcfcol1 = strtok_r(vcfstr, "\t", &end_str2);
  n = strtol(pvarcol1, NULL, 0);
  pvcfcol2 = strtok_r(NULL, "\t", &end_str2);
  j = strtol(pvcfcol2, NULL, 0);
  pvcfcol3 = strtok_r(NULL, "\t", &end_str2);
  l = strtol(pvcfcol3, NULL, 0);
  pvcfcol4 = strtok_r(NULL, "\t", &end_str2);
  pvcfcol5 = strtok_r(NULL, "\t\n", &end_str2);
  pvcfcol1_1 = pvcfcol1;
  pvcfcol2_2 = pvcfcol2;
  pvcfcol3_3 = pvcfcol3;
  pvcfcol4_4 = pvcfcol4;
  pvcfcol5_5 = pvcfcol5;
  strcpy(col1, pvcfcol4);
  n_1 = n;
  j_1 = j;
  l_1 = l;
  v1 = i - j;
  v2 = i - l;
  v3 = m - j;
  v4 = m - l;
  while (wflag > 0) {
    if (k < n) {
      fprintf(outfp, "%s\t%s\t%s\t%s\t%s\t%s\t%d\t%d\t%d\t%s\t%d\n", pvarcol1, pvarcol2, pvarcol3, pvarcol4, pvarcol5, pvarcol6, n_1, j_1, l_1, col1, abs((i - l_1)) + 1);
      pflag = 1;
    } else if (k > n) {
      pflag = 2;
    } else {
      if ((v1 > 0) && (v2 > 0) && (v3 > 0) && (v4 > 0)) {
        pvcfcol1_1 = pvcfcol1;
        pvcfcol2_2 = pvcfcol2;
        pvcfcol3_3 = pvcfcol3;
        pvcfcol4_4 = pvcfcol4;
        strcpy(col1, pvcfcol4);
        n_1 = n;
        j_1 = j;
        l_1 = l;
        pflag = 2;
      } else if ((v1 < 0) && (v2 < 0) && (v3 < 0) && (v4 < 0)) {
        if ((j - m) < (i - l_1)) {
          fprintf(outfp, "%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%d\n", pvarcol1, pvarcol2, pvarcol3, pvarcol4, pvarcol5, pvarcol6, pvcfcol1, pvcfcol2, pvcfcol3, pvcfcol4, abs((j - m)) + 1);
        } else {
          if (n_1 == n) {
            fprintf(outfp, "%s\t%s\t%s\t%s\t%s\t%s\t%s\t%d\t%d\t%s\t%d\n", pvarcol1, pvarcol2, pvarcol3, pvarcol4, pvarcol5, pvarcol6, pvcfcol1, j_1, l_1, col1, abs((i - l_1)) + 1);
          } else {
            fprintf(outfp, "%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%d\n", pvarcol1, pvarcol2, pvarcol3, pvarcol4, pvarcol5, pvarcol6, pvcfcol1, pvcfcol2, pvcfcol3, pvcfcol4, abs((j - m)) + 1);
          }
        }
        pflag = 1;
      } else {
        zero_count = zero_count + 1;
        fprintf(outfp, "%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t0\n", pvarcol1, pvarcol2, pvarcol3, pvarcol4, pvarcol5, pvarcol6, pvcfcol1, pvcfcol2, pvcfcol3, pvcfcol4);
        pflag = 1;
      }
    }
    switch (pflag) {
    case 1:
      if (fgets(varstr, 50000, varfp) != NULL) {
        strcpy(varstr1, varstr);
        pvarcol1 = strtok_r(varstr, "\t\n", &end_str);
        k = strtol(pvarcol1, NULL, 0);
        pvarcol2 = strtok_r(NULL, "\t\n", &end_str);
        i = strtol(pvarcol2, NULL, 0);
        pvarcol3 = strtok_r(NULL, "\t\n", &end_str);
        m = strtol(pvarcol3, NULL, 0);
        pvarcol4 = strtok_r(NULL, "\t\n", &end_str);
        pvarcol5 = strtok_r(NULL, "\t\n", &end_str);
        pvarcol6 = strtok_r(NULL, "\t\n", &end_str);
      } else {
        wflag = 0;
      };
      break;
    case 2:
      if (fgets(vcfstr, 10000, vcffp) != NULL) {
        strcpy(vcfstr1, vcfstr);
        pvcfcol1 = strtok_r(vcfstr, "\t", &end_str2);
        n = strtol(pvcfcol1, NULL, 0);
        pvcfcol2 = strtok_r(NULL, "\t", &end_str2);
        j = strtol(pvcfcol2, NULL, 0);
        pvcfcol3 = strtok_r(NULL, "\t", &end_str2);
        l = strtol(pvcfcol3, NULL, 0);
        pvcfcol4 = strtok_r(NULL, "\t\n", &end_str2);
        pvcfcol5 = strtok_r(NULL, "\t\n", &end_str2);
      } else {
        wflag = 0;
      }
      break;
    }
    v1 = i - j;
    v2 = i - l;
    v3 = m - j;
    v4 = m - l;
  }
  fclose(varfp);
  fclose(vcffp);
  return 0;
}
```