char *env_scan(str)
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     1317 <env_scan+0x1c7>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x24,%eax
jne    12ea <env_scan+0x19a>
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    %eax,%ecx
mov    $0x1,%al
cmp    $0x0,%ecx
mov    %al,-0x459(%rbp)
jne    1213 <env_scan+0xc3>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5f,%eax
sete   %al
mov    %al,-0x459(%rbp)
mov    -0x459(%rbp),%al
test   $0x1,%al
jne    1226 <env_scan+0xd6>
jmp    1253 <env_scan+0x103>
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    1287 <env_scan+0x137>
lea    0xd85(%rip),%rax
mov    %rax,-0x468(%rbp)
jmp    129c <env_scan+0x14c>
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     12e5 <env_scan+0x195>
mov    -0x418(%rbp),%rdi
mov    -0x458(%rbp),%rsi
call   1060 <strcat@plt>
mov    -0x458(%rbp),%rdi
call   1040 <strlen@plt>
add    -0x418(%rbp),%rax
mov    %rax,-0x418(%rbp)
jmp    1312 <env_scan+0x1c2>
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,%r13
lea    0x40(%rsp),%r14
lea    0xe90(%rip),%r12
mov    %rsp,%r15
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    0x0(%r13),%al
cmp    $0x24,%al
jne    11f3 <env_scan+0xa3>
movsbl 0x1(%r13),%ebp
cmp    $0x24,%ebp
je     1207 <env_scan+0xb7>
add    $0x1,%r13
mov    %ebp,%edi
call   1050 <isalnum@plt>
test   %eax,%eax
jne    11a7 <env_scan+0x57>
cmp    $0x5f,%bpl
jne    1218 <env_scan+0xc8>
mov    $0x2,%ebx
nopl   0x0(%rax)
mov    %bpl,-0x2(%rsp,%rbx,1)
movzbl 0x1(%r13),%ebp
add    $0x1,%r13
movsbl %bpl,%edi
call   1050 <isalnum@plt>
add    $0x1,%rbx
test   %eax,%eax
jne    11b0 <env_scan+0x60>
cmp    $0x5f,%bpl
je     11b0 <env_scan+0x60>
movb   $0x0,(%r14)
cmp    $0x2,%rbx
je     121c <env_scan+0xcc>
mov    %r15,%rdi
xor    %eax,%eax
call   1030 <getenv@plt>
test   %rax,%rax
je     1180 <env_scan+0x30>
mov    %rax,%rbp
jmp    121f <env_scan+0xcf>
test   %al,%al
je     123a <env_scan+0xea>
add    $0x1,%r13
mov    %al,(%r14)
add    $0x1,%r14
jmp    1180 <env_scan+0x30>
add    $0x2,%r13
movb   $0x24,(%r14)
add    $0x1,%r14
jmp    1180 <env_scan+0x30>
movb   $0x0,(%r14)
mov    %r12,%rbp
mov    %r14,%rdi
mov    %rbp,%rsi
call   1060 <strcat@plt>
mov    %rbp,%rdi
call   1040 <strlen@plt>
add    %rax,%r14
jmp    1180 <env_scan+0x30>
movb   $0x0,(%r14)
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 = %78, %23, %1
%9 = load i8*, i8** %2
%10 = load i8, i8* %9
%11 = icmp ne i8 %10, 0
br i1 %11, label %12, label %79
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 %72
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 i32 @isalnum(i32 %34)
%36 = icmp ne i32 %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 %71
63: ; preds = %59
%64 = load i8*, i8** %4
%65 = load i8*, i8** %6
%66 = call i8* @strcat(i8* %64, i8* %65)
%67 = load i8*, i8** %6
%68 = call i64 @strlen(i8* %67)
%69 = load i8*, i8** %4
%70 = getelementptr inbounds i8, i8* %69, i64 %68
store i8* %70, i8** %4
br label %71
71: ; preds = %63, %59
br label %78
72: ; preds = %12
%73 = load i8*, i8** %2
%74 = getelementptr inbounds i8, i8* %73, i32 1
store i8* %74, i8** %2
%75 = load i8, i8* %73
%76 = load i8*, i8** %4
%77 = getelementptr inbounds i8, i8* %76, i32 1
store i8* %77, i8** %4
store i8 %75, i8* %76
br label %78
78: ; preds = %72, %71
br label %8
79: ; preds = %8
%80 = load i8*, i8** %4
store i8 0, i8* %80
%81 = getelementptr inbounds [1024 x i8], [1024 x i8]* %3, i64 0, i64 0
%82 = call i8* @strdup(i8* %81)
ret i8* %82
}

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 = %26, %1
%7 = phi i8* [ %0, %1 ], [ %27, %26 ]
%8 = phi i8* [ %4, %1 ], [ %28, %26 ]
br label %9
9: ; preds = %6, %43
%10 = phi i8* [ %33, %43 ], [ %7, %6 ]
%11 = load i8, i8* %10
switch i8 %11, label %52 [
i8 0, label %55
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 %23, label %16
16: ; preds = %12
%17 = sext i8 %14 to i32
%18 = call i32 @isalnum(i32 %17)
%19 = icmp ne i32 %18, 0
%20 = icmp eq i8 %14, 95
%21 = select i1 %19, i1 true, i1 %20
br i1 %21, label %29, label %22
22: ; preds = %16
store i8 0, i8* %8
br label %46
23: ; preds = %12
%24 = getelementptr inbounds i8, i8* %10, i64 2
%25 = getelementptr inbounds i8, i8* %8, i64 1
store i8 36, i8* %8
br label %26
26: ; preds = %23, %46, %52
%27 = phi i8* [ %53, %52 ], [ %47, %46 ], [ %24, %23 ]
%28 = phi i8* [ %54, %52 ], [ %51, %46 ], [ %25, %23 ]
br label %6
29: ; preds = %16, %29
%30 = phi i8 [ %35, %29 ], [ %14, %16 ]
%31 = phi i8* [ %34, %29 ], [ %5, %16 ]
%32 = phi i8* [ %33, %29 ], [ %13, %16 ]
%33 = getelementptr inbounds i8, i8* %32, i64 1
%34 = getelementptr inbounds i8, i8* %31, i64 1
store i8 %30, i8* %31
%35 = load i8, i8* %33
%36 = sext i8 %35 to i32
%37 = call i32 @isalnum(i32 %36)
%38 = icmp ne i32 %37, 0
%39 = icmp eq i8 %35, 95
%40 = select i1 %38, i1 true, i1 %39
br i1 %40, label %29, label %41
41: ; preds = %29
store i8 0, i8* %8
%42 = icmp eq i8* %34, %5
br i1 %42, label %46, label %43
43: ; preds = %41
%44 = call i8* (i8*, ...) bitcast (i8* (...)* @getenv to i8* (i8*, ...)*)(i8* %5)
%45 = icmp eq i8* %44, null
br i1 %45, label %9, label %46
46: ; preds = %41, %43, %22
%47 = phi i8* [ %13, %22 ], [ %33, %43 ], [ %33, %41 ]
%48 = phi i8* [ getelementptr inbounds ([2 x i8], [2 x i8]* @.str, i64 0, i64 0), %22 ], [ getelementptr inbounds ([2 x i8], [2 x i8]* @.str, i64 0, i64 0), %41 ], [ %44, %43 ]
%49 = call i8* @strcat(i8* %8, i8* %48)
%50 = call i64 @strlen(i8* %48)
%51 = getelementptr inbounds i8, i8* %8, i64 %50
br label %26
52: ; preds = %9
%53 = getelementptr inbounds i8, i8* %10, i64 1
%54 = getelementptr inbounds i8, i8* %8, i64 1
store i8 %11, i8* %8
br label %26
55: ; preds = %9
store i8 0, i8* %8
%56 = call i8* @strdup(i8* %4)
ret i8* %56
}