#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
char *get_charset_aliases();
char *getenv(char *);
scalar_t__ strcmp(char const *, char const *);
int strlen(char const *);
const char *locale_charset() {
  const char *codeset;
  const char *aliases;
  const char *locale = NULL;
  if (locale == NULL || locale[0] == '\0') {
    locale = getenv("LC_ALL");
    if (locale == NULL || locale[0] == '\0') {
      locale = getenv("LC_CTYPE");
      if (locale == NULL || locale[0] == '\0')
        locale = getenv("LANG");
    }
  }
  codeset = locale;
  if (codeset == NULL)
    codeset = "";
  for (aliases = get_charset_aliases(); *aliases != '\0';
       aliases += strlen(aliases) + 1, aliases += strlen(aliases) + 1)
    if (strcmp(codeset, aliases) == 0 ||
        (aliases[0] == '*' && aliases[1] == '\0')) {
      codeset = aliases + strlen(aliases) + 1;
      break;
    }
  if (codeset[0] == '\0')
    codeset = "ASCII";
  return codeset;
}


x86 assembly (clang, -O0):
<locale_charset>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
movq   $0x0,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
je     116b <locale_charset+0x2b>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    11db <locale_charset+0x9b>
lea    0xe8e(%rip),%rdi
call   1030 <getenv@plt>
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
je     1196 <locale_charset+0x56>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    11d6 <locale_charset+0x96>
lea    0xe6a(%rip),%rdi
call   1030 <getenv@plt>
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
je     11c1 <locale_charset+0x81>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    11d1 <locale_charset+0x91>
lea    0xe48(%rip),%rdi
call   1030 <getenv@plt>
mov    %rax,-0x18(%rbp)
jmp    11d6 <locale_charset+0x96>
jmp    11db <locale_charset+0x9b>
mov    -0x18(%rbp),%rax
mov    %rax,-0x8(%rbp)
cmpq   $0x0,-0x8(%rbp)
jne    11f9 <locale_charset+0xb9>
lea    0xe1a(%rip),%rax
mov    %rax,-0x8(%rbp)
mov    $0x0,%al
call   1060 <get_charset_aliases@plt>
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     12b8 <locale_charset+0x178>
mov    -0x8(%rbp),%rdi
mov    -0x10(%rbp),%rsi
call   1050 <strcmp@plt>
cmp    $0x0,%rax
je     124c <locale_charset+0x10c>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2a,%eax
jne    1276 <locale_charset+0x136>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x0,%eax
jne    1276 <locale_charset+0x136>
mov    -0x10(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,%ecx
mov    -0x20(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
jmp    12b8 <locale_charset+0x178>
jmp    127b <locale_charset+0x13b>
mov    -0x10(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,%ecx
add    $0x1,%ecx
mov    -0x10(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,%ecx
add    $0x1,%ecx
mov    -0x10(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x10(%rbp)
jmp    1204 <locale_charset+0xc4>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    12d3 <locale_charset+0x193>
lea    0xd46(%rip),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<locale_charset>:
push   %r15
push   %r14
push   %rbx
lea    0xeb4(%rip),%rdi
call   1030 <getenv@plt>
test   %rax,%rax
je     115b <locale_charset+0x1b>
cmpb   $0x0,(%rax)
jne    117d <locale_charset+0x3d>
lea    0xea5(%rip),%rdi
call   1030 <getenv@plt>
test   %rax,%rax
je     1171 <locale_charset+0x31>
cmpb   $0x0,(%rax)
jne    117d <locale_charset+0x3d>
lea    0xe98(%rip),%rdi
call   1030 <getenv@plt>
test   %rax,%rax
lea    0xe88(%rip),%r14
cmovne %rax,%r14
xor    %eax,%eax
call   1060 <get_charset_aliases@plt>
cmpb   $0x0,(%rax)
je     11fa <locale_charset+0xba>
mov    %rax,%rbx
jmp    11cd <locale_charset+0x8d>
nopl   0x0(%rax)
mov    %rbx,%rdi
call   1040 <strlen@plt>
cltq
lea    (%rax,%rbx,1),%r15
lea    (%rax,%rbx,1),%rdi
add    $0x1,%rdi
call   1040 <strlen@plt>
cltq
lea    (%rax,%r15,1),%rbx
add    $0x2,%rbx
cmpb   $0x0,0x2(%rax,%r15,1)
je     11fa <locale_charset+0xba>
mov    %r14,%rdi
mov    %rbx,%rsi
call   1050 <strcmp@plt>
test   %rax,%rax
je     11e8 <locale_charset+0xa8>
cmpb   $0x2a,(%rbx)
jne    11a0 <locale_charset+0x60>
cmpb   $0x0,0x1(%rbx)
jne    11a0 <locale_charset+0x60>
mov    %rbx,%rdi
call   1040 <strlen@plt>
cltq
lea    (%rbx,%rax,1),%r14
add    $0x1,%r14
cmpb   $0x0,(%r14)
lea    0xe10(%rip),%rax
cmovne %r14,%rax
pop    %rbx
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
@.str = [7 x i8] c"LC_ALL\00"
@.str.1 = [9 x i8] c"LC_CTYPE\00"
@.str.2 = [5 x i8] c"LANG\00"
@.str.3 = [1 x i8] zeroinitializer
@.str.4 = [6 x i8] c"ASCII\00"
define i8* @locale_charset() {
%1 = alloca i8*
%2 = alloca i8*
%3 = alloca i8*
store i8* null, i8** %3
%4 = load i8*, i8** %3
%5 = icmp eq i8* %4, null
br i1 %5, label %12, label %6
6: ; preds = %0
%7 = load i8*, i8** %3
%8 = getelementptr inbounds i8, i8* %7, i64 0
%9 = load i8, i8* %8
%10 = sext i8 %9 to i32
%11 = icmp eq i32 %10, 0
br i1 %11, label %12, label %36
12: ; preds = %6, %0
%13 = call i8* @getenv(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0))
store i8* %13, i8** %3
%14 = load i8*, i8** %3
%15 = icmp eq i8* %14, null
br i1 %15, label %22, label %16
16: ; preds = %12
%17 = load i8*, i8** %3
%18 = getelementptr inbounds i8, i8* %17, i64 0
%19 = load i8, i8* %18
%20 = sext i8 %19 to i32
%21 = icmp eq i32 %20, 0
br i1 %21, label %22, label %35
22: ; preds = %16, %12
%23 = call i8* @getenv(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.1, i64 0, i64 0))
store i8* %23, i8** %3
%24 = load i8*, i8** %3
%25 = icmp eq i8* %24, null
br i1 %25, label %32, label %26
26: ; preds = %22
%27 = load i8*, i8** %3
%28 = getelementptr inbounds i8, i8* %27, i64 0
%29 = load i8, i8* %28
%30 = sext i8 %29 to i32
%31 = icmp eq i32 %30, 0
br i1 %31, label %32, label %34
32: ; preds = %26, %22
%33 = call i8* @getenv(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.2, i64 0, i64 0))
store i8* %33, i8** %3
br label %34
34: ; preds = %32, %26
br label %35
35: ; preds = %34, %16
br label %36
36: ; preds = %35, %6
%37 = load i8*, i8** %3
store i8* %37, i8** %1
%38 = load i8*, i8** %1
%39 = icmp eq i8* %38, null
br i1 %39, label %40, label %41
40: ; preds = %36
store i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0), i8** %1
br label %41
41: ; preds = %40, %36
%42 = call i8* (...) @get_charset_aliases()
store i8* %42, i8** %2
br label %43
43: ; preds = %73, %41
%44 = load i8*, i8** %2
%45 = load i8, i8* %44
%46 = sext i8 %45 to i32
%47 = icmp ne i32 %46, 0
br i1 %47, label %48, label %86
48: ; preds = %43
%49 = load i8*, i8** %1
%50 = load i8*, i8** %2
%51 = call i64 @strcmp(i8* %49, i8* %50)
%52 = icmp eq i64 %51, 0
br i1 %52, label %65, label %53
53: ; preds = %48
%54 = load i8*, i8** %2
%55 = getelementptr inbounds i8, i8* %54, i64 0
%56 = load i8, i8* %55
%57 = sext i8 %56 to i32
%58 = icmp eq i32 %57, 42
br i1 %58, label %59, label %72
59: ; preds = %53
%60 = load i8*, i8** %2
%61 = getelementptr inbounds i8, i8* %60, i64 1
%62 = load i8, i8* %61
%63 = sext i8 %62 to i32
%64 = icmp eq i32 %63, 0
br i1 %64, label %65, label %72
65: ; preds = %59, %48
%66 = load i8*, i8** %2
%67 = load i8*, i8** %2
%68 = call i32 @strlen(i8* %67)
%69 = sext i32 %68 to i64
%70 = getelementptr inbounds i8, i8* %66, i64 %69
%71 = getelementptr inbounds i8, i8* %70, i64 1
store i8* %71, i8** %1
br label %86
72: ; preds = %59, %53
br label %73
73: ; preds = %72
%74 = load i8*, i8** %2
%75 = call i32 @strlen(i8* %74)
%76 = add nsw i32 %75, 1
%77 = load i8*, i8** %2
%78 = sext i32 %76 to i64
%79 = getelementptr inbounds i8, i8* %77, i64 %78
store i8* %79, i8** %2
%80 = load i8*, i8** %2
%81 = call i32 @strlen(i8* %80)
%82 = add nsw i32 %81, 1
%83 = load i8*, i8** %2
%84 = sext i32 %82 to i64
%85 = getelementptr inbounds i8, i8* %83, i64 %84
store i8* %85, i8** %2
br label %43
86: ; preds = %65, %43
%87 = load i8*, i8** %1
%88 = getelementptr inbounds i8, i8* %87, i64 0
%89 = load i8, i8* %88
%90 = sext i8 %89 to i32
%91 = icmp eq i32 %90, 0
br i1 %91, label %92, label %93
92: ; preds = %86
store i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.4, i64 0, i64 0), i8** %1
br label %93
93: ; preds = %92, %86
%94 = load i8*, i8** %1
ret i8* %94
}

LLVM IR (-O2):
@.str = [7 x i8] c"LC_ALL\00"
@.str.1 = [9 x i8] c"LC_CTYPE\00"
@.str.2 = [5 x i8] c"LANG\00"
@.str.3 = [1 x i8] zeroinitializer
@.str.4 = [6 x i8] c"ASCII\00"
define i8* @locale_charset() {
%1 = tail call i8* @getenv(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0))
%2 = icmp eq i8* %1, null
br i1 %2, label %6, label %3
3: ; preds = %0
%4 = load i8, i8* %1
%5 = icmp eq i8 %4, 0
br i1 %5, label %6, label %14
6: ; preds = %3, %0
%7 = tail call i8* @getenv(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.1, i64 0, i64 0))
%8 = icmp eq i8* %7, null
br i1 %8, label %12, label %9
9: ; preds = %6
%10 = load i8, i8* %7
%11 = icmp eq i8 %10, 0
br i1 %11, label %12, label %14
12: ; preds = %9, %6
%13 = tail call i8* @getenv(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.2, i64 0, i64 0))
br label %14
14: ; preds = %3, %12, %9
%15 = phi i8* [ %13, %12 ], [ %7, %9 ], [ %1, %3 ]
%16 = icmp eq i8* %15, null
%17 = select i1 %16, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0), i8* %15
%18 = tail call i8* (...) @get_charset_aliases()
%19 = load i8, i8* %18
%20 = icmp eq i8 %19, 0
br i1 %20, label %48, label %21
21: ; preds = %14, %37
%22 = phi i8* [ %45, %37 ], [ %18, %14 ]
%23 = tail call i64 @strcmp(i8* %17, i8* %22)
%24 = icmp eq i64 %23, 0
br i1 %24, label %32, label %25
25: ; preds = %21
%26 = load i8, i8* %22
%27 = icmp eq i8 %26, 42
br i1 %27, label %28, label %37
28: ; preds = %25
%29 = getelementptr inbounds i8, i8* %22, i64 1
%30 = load i8, i8* %29
%31 = icmp eq i8 %30, 0
br i1 %31, label %32, label %37
32: ; preds = %28, %21
%33 = tail call i32 @strlen(i8* %22)
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds i8, i8* %22, i64 %34
%36 = getelementptr inbounds i8, i8* %35, i64 1
br label %48
37: ; preds = %25, %28
%38 = tail call i32 @strlen(i8* %22)
%39 = add nsw i32 %38, 1
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds i8, i8* %22, i64 %40
%42 = tail call i32 @strlen(i8* %41)
%43 = add nsw i32 %42, 1
%44 = sext i32 %43 to i64
%45 = getelementptr inbounds i8, i8* %41, i64 %44
%46 = load i8, i8* %45
%47 = icmp eq i8 %46, 0
br i1 %47, label %48, label %21
48: ; preds = %37, %14, %32
%49 = phi i8* [ %36, %32 ], [ %17, %14 ], [ %17, %37 ]
%50 = load i8, i8* %49
%51 = icmp eq i8 %50, 0
%52 = select i1 %51, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.4, i64 0, i64 0), i8* %49
ret i8* %52
}