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

```asm
<create_clone_filename_get_clone_application_compressed_filename>:
  endbr64
  push   %r13
  mov    %ecx,%r13d
  push   %r12
  mov    %rsi,%r12
  push   %rbp
  mov    %r8,%rbp
  push   %rbx
  mov    %rdi,%rbx
  mov    %rdx,%rdi
  sub    $0x418,%rsp
  mov    (%rbx),%rsi
  mov    %fs:0x28,%rax
  mov    %rax,0x408(%rsp)
  xor    %eax,%eax
  call   <create_clone_filename_get_directory_name@plt>
  mov    %rax,(%rbx)
  cmp    $0x79,%r13b
  je     L128
  mov    %rax,%rdx
  test   %rbp,%rbp
  je     L10
  lea    D31(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L4
  lea    D82(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L109
  mov    (%rbx),%rdx
L10:
  mov    %rsp,%rbp
  mov    %r12,%rcx
  lea    D6(%rip),%rsi
  mov    %rbp,%rdi
  call   <sprintf@plt>
L28:
  mov    %rbp,%rdi
  call   <strdup@plt>
  mov    0x408(%rsp),%rdx
  sub    %fs:0x28,%rdx
  jne    L18
  add    $0x418,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  ret
  nopl   (%rax)
L128:
  test   %rbp,%rbp
  je     L74
  lea    D31(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L70
  lea    D82(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  jne    L74
  mov    %rsp,%rbp
  mov    (%rbx),%rdx
  mov    %r12,%rcx
  lea    D91(%rip),%rsi
  mov    %rbp,%rdi
  call   <sprintf@plt>
  jmp    L28
  nopl   0x0(%rax,%rax,1)
L74:
  mov    %rsp,%rbp
  mov    (%rbx),%rdx
  mov    %r12,%rcx
  lea    D63(%rip),%rsi
  mov    %rbp,%rdi
  call   <sprintf@plt>
  jmp    L28
  nopl   (%rax)
L109:
  mov    %rsp,%rbp
  mov    (%rbx),%rdx
  mov    %r12,%rcx
  lea    D39(%rip),%rsi
  mov    %rbp,%rdi
  call   <sprintf@plt>
  jmp    L28
  nopl   (%rax)
L4:
  mov    %rsp,%rbp
  mov    (%rbx),%rdx
  mov    %r12,%rcx
  lea    D52(%rip),%rsi
  mov    %rbp,%rdi
  call   <sprintf@plt>
  jmp    L28
  nopl   (%rax)
L70:
  mov    %rsp,%rbp
  mov    (%rbx),%rdx
  mov    %r12,%rcx
  lea    D20(%rip),%rsi
  mov    %rbp,%rdi
  call   <sprintf@plt>
  jmp    L28
L18:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: retrieve_data
arguments: label: D31
type_infered: string
name: retrieve_data
arguments: label: D82
type_infered: string
name: retrieve_data
arguments: label: D6
type_infered: string
name: retrieve_data
arguments: label: D91
type_infered: string
name: retrieve_data
arguments: label: D63
type_infered: string
name: retrieve_data
arguments: label: D39
type_infered: string
name: retrieve_data
arguments: label: D52
type_infered: string
name: retrieve_data
arguments: label: D20
type_infered: string

tool: D31: shell_script

tool: D82: spreadsheet

tool: D6: %s/insert_%s_application.sql.gz

tool: D91: %s/%s_appaserver.csv.gz

tool: D63: %s/insert_%s_appaserver.sql.gz

tool: D39: %s/%s.csv.gz

tool: D52: %s/insert_%s_application.sh.gz

tool: D20: %s/insert_%s_appaserver.sh.gz

assistant: ```c
char *create_clone_filename_get_clone_application_compressed_filename(char **directory_name, char *application_name, char *appaserver_data_directory, char system_folders_yn, char *export_output) {
  char buffer[1024];
  *directory_name = create_clone_filename_get_directory_name(appaserver_data_directory, *directory_name);
  if (system_folders_yn == 'y') {
    if (export_output && strcmp(export_output, "shell_script") == 0) {
      sprintf(buffer, "%s/insert_%s_appaserver.sh.gz", *directory_name, application_name);
    } else if (export_output && strcmp(export_output, "spreadsheet") == 0) {
      sprintf(buffer, "%s/%s_appaserver.csv.gz", *directory_name, application_name);
    } else {
      sprintf(buffer, "%s/insert_%s_appaserver.sql.gz", *directory_name, application_name);
    }
  } else {
    if (export_output && strcmp(export_output, "shell_script") == 0) {
      sprintf(buffer, "%s/insert_%s_application.sh.gz", *directory_name, application_name);
    } else if (export_output && strcmp(export_output, "spreadsheet") == 0) {
      sprintf(buffer, "%s/%s.csv.gz", *directory_name, application_name);
    } else {
      sprintf(buffer, "%s/insert_%s_application.sql.gz", *directory_name, application_name);
    }
  }
  return strdup(buffer);
}
```