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

```asm
<main>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  mov    %rsi,%r12
  push   %rbp
  mov    %edi,%ebp
  push   %rbx
  sub    $0x8,%rsp
  cmp    $0x1,%edi
  jg     L97
L13:
  xor    %r13d,%r13d
L102:
  mov    %r12,%rdx
  mov    %ebp,%esi
  mov    %r13d,%edi
  call   <rcmdfn@plt>
  mov    %eax,%edi
  call   <exit@plt>
  add    $0x8,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L97:
  mov    0x8(%rsi),%rdi
  lea    D117(%rip),%rsi
  call   <strcmp@plt>
  test   %rax,%rax
  jne    L151
L61:
  mov    $0x1,%r13d
  jmp    L102
L151:
  mov    0x8(%r12),%rdi
  lea    D107(%rip),%rsi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L61
  mov    $0x1,%ebx
  lea    D38(%rip),%r14
  jmp    L113
L141:
  add    $0x1,%rbx
  cmp    %ebx,%ebp
  jle    L13
L113:
  mov    (%r12,%rbx,8),%rdi
  mov    %r14,%rsi
  mov    %ebx,%r15d
  lea    0x1(%rbx),%r13d
  call   <strcmp@plt>
  test   %rax,%rax
  jne    L141
  xor    %ebx,%ebx
  cmp    $0x2,%r13d
  je     L102
L116:
  mov    0x8(%r12,%rbx,8),%r14
  lea    D37(%rip),%rsi
  mov    %r14,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L29
  lea    D60(%rip),%rsi
  mov    %r14,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  jne    L132
L29:
  lea    D11(%rip),%rdi
  call   <putenv@plt>
L132:
  lea    D42(%rip),%rsi
  mov    %r14,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L135
  lea    D60(%rip),%rsi
  mov    %r14,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  jne    L16
L135:
  lea    D46(%rip),%rdi
  call   <putenv@plt>
L16:
  lea    D125(%rip),%rsi
  mov    %r14,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L130
  lea    D60(%rip),%rsi
  mov    %r14,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  jne    L144
L130:
  lea    D56(%rip),%rdi
  call   <putenv@plt>
  lea    D109(%rip),%rdi
  call   <putenv@plt>
L144:
  add    $0x1,%rbx
  cmp    %ebx,%r15d
  jg     L116
  jmp    L102
```

tool_calls: name: unpack_data
arguments: data_tag: D117
type: string
name: unpack_data
arguments: data_tag: D107
type: string
name: unpack_data
arguments: data_tag: D38
type: string
name: unpack_data
arguments: data_tag: D37
type: string
name: unpack_data
arguments: data_tag: D60
type: string
name: unpack_data
arguments: data_tag: D11
type: string
name: unpack_data
arguments: data_tag: D42
type: string
name: unpack_data
arguments: data_tag: D46
type: string
name: unpack_data
arguments: data_tag: D125
type: string
name: unpack_data
arguments: data_tag: D56
type: string
name: unpack_data
arguments: data_tag: D109
type: string

tool: D117: -h

tool: D107: --help

tool: D38: CMD

tool: D37: --no-init-file

tool: D60: --vanilla

tool: D11: R_PROFILE_USER=

tool: D42: --no-site-file

tool: D46: R_RPOFILE=

tool: D125: --no-environ

tool: D56: R_ENVIRON=

tool: D109: R_ENVIRON_USER=

assistant: ```c
int main(int argc, char **argv) {
  int cmdarg = 0;
  if (argc > 1) {
    if (strcmp(argv[1], "-h") == 0 || strcmp(argv[1], "--help") == 0)
      cmdarg = 1;
    else {
      for (int i = 1; i < argc; i++)
        if (strcmp(argv[i], "CMD") == 0) {
          cmdarg = i + 1;
          break;
        }
      if (cmdarg >= 3) {
        char *Init = "R_PROFILE_USER=\r", *Site = "R_RPOFILE=\r", *Env1 = "R_ENVIRON=\r", *Env2 = "R_ENVIRON_USER=\r";
        for (int i = 1; i < cmdarg; i++) {
          char *a = argv[i];
          if (strcmp(a, "--no-init-file") == 0 || strcmp(a, "--vanilla") == 0)
            putenv(Init);
          if (strcmp(a, "--no-site-file") == 0 || strcmp(a, "--vanilla") == 0)
            putenv(Site);
          if (strcmp(a, "--no-environ") == 0 || strcmp(a, "--vanilla") == 0) {
            putenv(Env1);
            putenv(Env2);
          }
        }
      }
    }
  }
  exit(rcmdfn(cmdarg, argc, argv));
}
```