zltor(name, name2) char *name, *name2;
{
  char work[100], *cp, *pp;
  int dc = 0;
  {};
  pp = work;
  for (cp = name; *cp != '\0'; cp++) {
    if (*cp == '/') {
      dc = 0;
      pp = work;
    } else if (islower(*cp))
      *pp++ = toupper(*cp);
    else if (*cp == '~')
      *pp++ = 'X';
    else if (*cp == '#')
      *pp++ = 'X';
    else if ((*cp == '.') && (++dc > 1))
      *pp++ = 'X';
    else
      *pp++ = *cp;
  }
  *pp = '\0';
  cp = name2;
  if (*work == '.')
    *cp++ = 'X';
  strcpy(cp, work);
  {};
}


x86 assembly (clang, -O0):
<zltor>:
push   %rbp
mov    %rsp,%rbp
sub    $0xa0,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
movl   $0x0,-0x94(%rbp)
lea    -0x80(%rbp),%rax
mov    %rax,-0x90(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x88(%rbp)
mov    -0x88(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     12e0 <zltor+0x1b0>
mov    -0x88(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2f,%eax
jne    11a3 <zltor+0x73>
movl   $0x0,-0x94(%rbp)
lea    -0x80(%rbp),%rax
mov    %rax,-0x90(%rbp)
jmp    12c4 <zltor+0x194>
mov    -0x88(%rbp),%rax
movsbl (%rax),%edi
call   1040 <islower@plt>
cmp    $0x0,%eax
je     11e8 <zltor+0xb8>
mov    -0x88(%rbp),%rax
movsbl (%rax),%edi
call   1050 <toupper@plt>
mov    %al,%cl
mov    -0x90(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x90(%rbp)
mov    %cl,(%rax)
jmp    12bf <zltor+0x18f>
mov    -0x88(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x7e,%eax
jne    1218 <zltor+0xe8>
mov    -0x90(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x90(%rbp)
movb   $0x58,(%rax)
jmp    12ba <zltor+0x18a>
mov    -0x88(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x23,%eax
jne    1248 <zltor+0x118>
mov    -0x90(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x90(%rbp)
movb   $0x58,(%rax)
jmp    12b5 <zltor+0x185>
mov    -0x88(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    1290 <zltor+0x160>
mov    -0x94(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x94(%rbp)
cmp    $0x1,%eax
jle    1290 <zltor+0x160>
mov    -0x90(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x90(%rbp)
movb   $0x58,(%rax)
jmp    12b0 <zltor+0x180>
mov    -0x88(%rbp),%rax
mov    (%rax),%cl
mov    -0x90(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x90(%rbp)
mov    %cl,(%rax)
jmp    12b5 <zltor+0x185>
jmp    12ba <zltor+0x18a>
jmp    12bf <zltor+0x18f>
jmp    12c4 <zltor+0x194>
jmp    12c9 <zltor+0x199>
mov    -0x88(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x88(%rbp)
jmp    1163 <zltor+0x33>
mov    -0x90(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x18(%rbp),%rax
mov    %rax,-0x88(%rbp)
movsbl -0x80(%rbp),%eax
cmp    $0x2e,%eax
jne    131a <zltor+0x1ea>
mov    -0x88(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x88(%rbp)
movb   $0x58,(%rax)
mov    -0x88(%rbp),%rdi
lea    -0x80(%rbp),%rsi
call   1030 <strcpy@plt>
mov    -0x4(%rbp),%eax
add    $0xa0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<zltor>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x68,%rsp
mov    %rsi,%r14
mov    %rdi,%r12
mov    %rsp,%r15
xor    %r13d,%r13d
mov    %r15,%rbx
jmp    116d <zltor+0x3d>
nop
mov    %ebp,%edi
call   1050 <toupper@plt>
mov    %al,(%rbx)
add    $0x1,%rbx
mov    %rbx,%rax
mov    %r13d,%ecx
add    $0x1,%r12
mov    %rax,%rbx
mov    %ecx,%r13d
movsbl (%r12),%ebp
mov    %r15,%rax
mov    $0x0,%ecx
cmp    $0x2f,%ebp
je     1163 <zltor+0x33>
test   %bpl,%bpl
je     11b3 <zltor+0x83>
mov    %ebp,%edi
call   1040 <islower@plt>
test   %eax,%eax
jne    1150 <zltor+0x20>
mov    $0x58,%al
cmp    $0x23,%bpl
je     1157 <zltor+0x27>
cmp    $0x7e,%bpl
je     1157 <zltor+0x27>
cmp    $0x2e,%bpl
jne    11af <zltor+0x7f>
lea    0x1(%r13),%ecx
test   %r13d,%r13d
mov    %ecx,%r13d
jg     1157 <zltor+0x27>
mov    %ebp,%eax
jmp    1157 <zltor+0x27>
movb   $0x0,(%rbx)
cmpb   $0x2e,(%rsp)
jne    11c4 <zltor+0x94>
movb   $0x58,(%r14)
add    $0x1,%r14
mov    %rsp,%rsi
mov    %r14,%rdi
call   1030 <strcpy@plt>
add    $0x68,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define i32 @zltor(i8* nocapture %0, i8* %1) {
%3 = alloca [100 x i8]
%4 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
br label %5
5: ; preds = %27, %2
%6 = phi i8* [ %0, %2 ], [ %30, %27 ]
%7 = phi i8* [ %4, %2 ], [ %28, %27 ]
%8 = phi i32 [ 0, %2 ], [ %29, %27 ]
%9 = load i8, i8* %6
%10 = sext i8 %9 to i32
switch i8 %9, label %11 [
i8 0, label %31
i8 47, label %27
]
11: ; preds = %5
%12 = tail call i32 @islower(i32 %10)
%13 = icmp eq i32 %12, 0
br i1 %13, label %17, label %14
14: ; preds = %11
%15 = tail call i32 @toupper(i32 %10)
%16 = trunc i32 %15 to i8
br label %23
17: ; preds = %11
switch i8 %9, label %21 [
i8 126, label %23
i8 35, label %23
i8 46, label %18
]
18: ; preds = %17
%19 = add nsw i32 %8, 1
%20 = icmp sgt i32 %8, 0
br i1 %20, label %23, label %21
21: ; preds = %17, %18
%22 = phi i32 [ %19, %18 ], [ %8, %17 ]
br label %23
23: ; preds = %18, %17, %17, %14, %21
%24 = phi i8 [ %9, %21 ], [ %16, %14 ], [ 88, %17 ], [ 88, %17 ], [ 88, %18 ]
%25 = phi i32 [ %22, %21 ], [ %8, %14 ], [ %8, %17 ], [ %8, %17 ], [ %19, %18 ]
%26 = getelementptr inbounds i8, i8* %7, i64 1
store i8 %24, i8* %7
br label %27
27: ; preds = %23, %5
%28 = phi i8* [ %4, %5 ], [ %26, %23 ]
%29 = phi i32 [ 0, %5 ], [ %25, %23 ]
%30 = getelementptr inbounds i8, i8* %6, i64 1
br label %5
31: ; preds = %5
store i8 0, i8* %7
%32 = load i8, i8* %4
%33 = icmp eq i8 %32, 46
br i1 %33, label %34, label %36
34: ; preds = %31
%35 = getelementptr inbounds i8, i8* %1, i64 1
store i8 88, i8* %1
br label %36
36: ; preds = %34, %31
%37 = phi i8* [ %35, %34 ], [ %1, %31 ]
%38 = call i8* @strcpy(i8* dereferenceable(1) %37, i8* %4)
ret i32 undef
}