#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 *_strdup(char *);
scalar_t__ isalnum(int);
int /*<<< orphan*/ strcat(char *, char *);
int /*<<< orphan*/ strlen(char *);
char *env_scan(register char *str) {
  extern char *getenv();
  char buf[1024];
  register char *p = buf;
  char var[50];
  char *val;
  while (*str)
    if (*str == '$') {
      if (*++str == '$') {
        *p++ = *str++;
        continue;
      }
      val = var;
      while (isalnum((int)*str) || *str == '_')
        *val++ = *str++;
      *p = '\0';
      val = (val == var) ? "$" : getenv(var);
      if (val) {
        strcat(p, val);
        p += strlen(val);
      }
    } else
      *p++ = *str++;
  *p = '\0';
  return _strdup(buf);
}


x86 assembly (clang, -O0):
<env_scan>:
push   %rbp
mov    %rsp,%rbp
sub    $0x470,%rsp
mov    %rdi,-0x8(%rbp)
lea    -0x410(%rbp),%rax
mov    %rax,-0x418(%rbp)
mov    -0x8(%rbp),%rax
cmpb   $0x0,(%rax)
je     1321 <env_scan+0x1d1>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x24,%eax
jne    12f4 <env_scan+0x1a4>
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movsbl 0x1(%rax),%eax
cmp    $0x24,%eax
jne    11d3 <env_scan+0x83>
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
mov    (%rax),%cl
mov    -0x418(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x418(%rbp)
mov    %cl,(%rax)
jmp    116d <env_scan+0x1d>
lea    -0x450(%rbp),%rax
mov    %rax,-0x458(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%edi
call   1050 <isalnum@plt>
mov    %rax,%rcx
mov    $0x1,%al
cmp    $0x0,%rcx
mov    %al,-0x459(%rbp)
jne    1215 <env_scan+0xc5>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5f,%eax
sete   %al
mov    %al,-0x459(%rbp)
mov    -0x459(%rbp),%al
test   $0x1,%al
jne    1228 <env_scan+0xd8>
jmp    1255 <env_scan+0x105>
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
mov    (%rax),%cl
mov    -0x458(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x458(%rbp)
mov    %cl,(%rax)
jmp    11e1 <env_scan+0x91>
mov    -0x418(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x458(%rbp),%rax
lea    -0x450(%rbp),%rcx
cmp    %rcx,%rax
jne    1289 <env_scan+0x139>
lea    0xd83(%rip),%rax
mov    %rax,-0x468(%rbp)
jmp    129e <env_scan+0x14e>
lea    -0x450(%rbp),%rdi
mov    $0x0,%al
call   1030 <getenv@plt>
mov    %rax,-0x468(%rbp)
mov    -0x468(%rbp),%rax
mov    %rax,-0x458(%rbp)
cmpq   $0x0,-0x458(%rbp)
je     12ef <env_scan+0x19f>
mov    -0x418(%rbp),%rdi
mov    -0x458(%rbp),%rsi
call   1060 <strcat@plt>
mov    -0x458(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,%ecx
mov    -0x418(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x418(%rbp)
jmp    131c <env_scan+0x1cc>
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
mov    (%rax),%cl
mov    -0x418(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x418(%rbp)
mov    %cl,(%rax)
jmp    116d <env_scan+0x1d>
mov    -0x418(%rbp),%rax
movb   $0x0,(%rax)
lea    -0x410(%rbp),%rdi
call   1070 <_strdup@plt>
add    $0x470,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<env_scan>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x448,%rsp
mov    %rdi,%rbx
lea    0x40(%rsp),%r15
mov    %rsp,%r14
jmp    1180 <env_scan+0x30>
add    $0x2,%rbp
movb   $0x24,(%r15)
add    $0x1,%r15
mov    %rbp,%rbx
nopl   (%rax)
mov    %rbx,%rbp
mov    (%rbx),%al
cmp    $0x24,%al
jne    11e7 <env_scan+0x97>
mov    0x1(%rbp),%al
cmp    $0x24,%al
je     116e <env_scan+0x1e>
lea    0x1(%rbp),%rbx
xor    %r13d,%r13d
jmp    11ae <env_scan+0x5e>
nopl   0x0(%rax)
mov    %cl,(%rsp,%r13,1)
movzbl 0x1(%rbx,%r13,1),%eax
add    $0x1,%r13
movsbl %al,%edi
call   1050 <isalnum@plt>
movzbl (%rbx,%r13,1),%ecx
test   %rax,%rax
jne    11a0 <env_scan+0x50>
cmp    $0x5f,%cl
mov    $0x5f,%cl
je     11a0 <env_scan+0x50>
movb   $0x0,(%r15)
test   %r13,%r13
je     11f4 <env_scan+0xa4>
add    %r13,%rbx
mov    %r14,%rdi
xor    %eax,%eax
call   1030 <getenv@plt>
test   %rax,%rax
je     1180 <env_scan+0x30>
mov    %rax,%r12
jmp    11fb <env_scan+0xab>
test   %al,%al
je     1223 <env_scan+0xd3>
add    $0x1,%rbp
mov    %al,(%r15)
jmp    1176 <env_scan+0x26>
lea    0xe05(%rip),%r12
mov    %r15,%rdi
mov    %r12,%rsi
call   1060 <strcat@plt>
mov    %r12,%rdi
call   1040 <strlen@plt>
cltq
add    %rax,%r15
lea    0x1(,%r13,1),%rbx
add    %rbp,%rbx
jmp    1180 <env_scan+0x30>
movb   $0x0,(%r15)
lea    0x40(%rsp),%rdi
call   1070 <_strdup@plt>
add    $0x448,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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