int tkfat_name2sfn(char *name, char *sfn) {
  char *s, *t;
  int i, j, k;
  for (i = 0; i < 11; i++)
    sfn[i] = ' ';
  s = name;
  t = sfn;
  for (i = 0; i < 8; i++) {
    if (!(*s) || (*s == '.'))
      break;
    j = *s++;
    if ((j >= 'a') && (j <= 'z'))
      j = 'A' + (j - 'a');
    *t++ = j;
  }
  if (!(*s))
    return (0);
  if (*s != '.')
    return (-1);
  s++;
  t = sfn + 8;
  for (i = 0; i < 3; i++) {
    if (!(*s) || (*s == '.'))
      break;
    j = *s++;
    if ((j >= 'a') && (j <= 'z'))
      j = 'A' + (j - 'a');
    *t++ = j;
  }
  if (*s)
    return (-1);
  return (0);
}


x86 assembly (clang, -O0):
<tkfat_name2sfn>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
movl   $0x0,-0x2c(%rbp)
cmpl   $0xb,-0x2c(%rbp)
jge    1137 <tkfat_name2sfn+0x37>
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movb   $0x20,(%rax,%rcx,1)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1113 <tkfat_name2sfn+0x13>
mov    -0x10(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
cmpl   $0x8,-0x2c(%rbp)
jge    11d3 <tkfat_name2sfn+0xd3>
mov    -0x20(%rbp),%rax
cmpb   $0x0,(%rax)
je     1175 <tkfat_name2sfn+0x75>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    117a <tkfat_name2sfn+0x7a>
jmp    11d3 <tkfat_name2sfn+0xd3>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x20(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x30(%rbp)
cmpl   $0x61,-0x30(%rbp)
jl     11af <tkfat_name2sfn+0xaf>
cmpl   $0x7a,-0x30(%rbp)
jg     11af <tkfat_name2sfn+0xaf>
mov    -0x30(%rbp),%eax
sub    $0x61,%eax
add    $0x41,%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
mov    %al,%cl
mov    -0x28(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x28(%rbp)
mov    %cl,(%rax)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    114e <tkfat_name2sfn+0x4e>
mov    -0x20(%rbp),%rax
cmpb   $0x0,(%rax)
jne    11ec <tkfat_name2sfn+0xec>
movl   $0x0,-0x4(%rbp)
jmp    12cc <tkfat_name2sfn+0x1cc>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
je     1208 <tkfat_name2sfn+0x108>
movl   $0xffffffff,-0x4(%rbp)
jmp    12cc <tkfat_name2sfn+0x1cc>
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
cmpl   $0x3,-0x2c(%rbp)
jge    12ac <tkfat_name2sfn+0x1ac>
mov    -0x20(%rbp),%rax
cmpb   $0x0,(%rax)
je     124e <tkfat_name2sfn+0x14e>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    1253 <tkfat_name2sfn+0x153>
jmp    12ac <tkfat_name2sfn+0x1ac>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x20(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x30(%rbp)
cmpl   $0x61,-0x30(%rbp)
jl     1288 <tkfat_name2sfn+0x188>
cmpl   $0x7a,-0x30(%rbp)
jg     1288 <tkfat_name2sfn+0x188>
mov    -0x30(%rbp),%eax
sub    $0x61,%eax
add    $0x41,%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
mov    %al,%cl
mov    -0x28(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x28(%rbp)
mov    %cl,(%rax)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1227 <tkfat_name2sfn+0x127>
mov    -0x20(%rbp),%rax
cmpb   $0x0,(%rax)
je     12c5 <tkfat_name2sfn+0x1c5>
movl   $0xffffffff,-0x4(%rbp)
jmp    12cc <tkfat_name2sfn+0x1cc>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<tkfat_name2sfn>:
movabs $0x2020202020202020,%rax
20 20 20
mov    %rax,(%rsi)
movl   $0x20202020,0x7(%rsi)
mov    (%rdi),%al
test   %al,%al
je     123c <tkfat_name2sfn+0x13c>
cmp    $0x2e,%al
je     123c <tkfat_name2sfn+0x13c>
lea    -0x61(%rax),%ecx
lea    -0x20(%rax),%edx
cmp    $0x1a,%cl
movzbl %al,%eax
movzbl %dl,%edx
cmovae %eax,%edx
lea    0x1(%rdi),%rcx
mov    %dl,(%rsi)
mov    0x1(%rdi),%al
test   %al,%al
je     1239 <tkfat_name2sfn+0x139>
cmp    $0x2e,%al
je     1239 <tkfat_name2sfn+0x139>
lea    -0x61(%rax),%ecx
lea    -0x20(%rax),%edx
cmp    $0x1a,%cl
movzbl %al,%eax
movzbl %dl,%edx
cmovae %eax,%edx
lea    0x2(%rdi),%rcx
mov    %dl,0x1(%rsi)
mov    0x2(%rdi),%al
test   %al,%al
je     1239 <tkfat_name2sfn+0x139>
cmp    $0x2e,%al
je     1239 <tkfat_name2sfn+0x139>
lea    -0x61(%rax),%ecx
lea    -0x20(%rax),%edx
cmp    $0x1a,%cl
movzbl %al,%eax
movzbl %dl,%edx
cmovae %eax,%edx
lea    0x3(%rdi),%rcx
mov    %dl,0x2(%rsi)
mov    0x3(%rdi),%al
test   %al,%al
je     1239 <tkfat_name2sfn+0x139>
cmp    $0x2e,%al
je     1239 <tkfat_name2sfn+0x139>
lea    -0x61(%rax),%ecx
lea    -0x20(%rax),%edx
cmp    $0x1a,%cl
movzbl %al,%eax
movzbl %dl,%edx
cmovae %eax,%edx
lea    0x4(%rdi),%rcx
mov    %dl,0x3(%rsi)
mov    0x4(%rdi),%al
test   %al,%al
je     1239 <tkfat_name2sfn+0x139>
cmp    $0x2e,%al
je     1239 <tkfat_name2sfn+0x139>
lea    -0x61(%rax),%ecx
lea    -0x20(%rax),%edx
cmp    $0x1a,%cl
movzbl %al,%eax
movzbl %dl,%edx
cmovae %eax,%edx
lea    0x5(%rdi),%rcx
mov    %dl,0x4(%rsi)
mov    0x5(%rdi),%al
test   %al,%al
je     1239 <tkfat_name2sfn+0x139>
cmp    $0x2e,%al
je     1239 <tkfat_name2sfn+0x139>
lea    -0x61(%rax),%ecx
lea    -0x20(%rax),%edx
cmp    $0x1a,%cl
movzbl %al,%eax
movzbl %dl,%edx
cmovae %eax,%edx
lea    0x6(%rdi),%rcx
mov    %dl,0x5(%rsi)
mov    0x6(%rdi),%al
test   %al,%al
je     1239 <tkfat_name2sfn+0x139>
cmp    $0x2e,%al
je     1239 <tkfat_name2sfn+0x139>
lea    -0x61(%rax),%ecx
lea    -0x20(%rax),%edx
cmp    $0x1a,%cl
movzbl %al,%eax
movzbl %dl,%edx
cmovae %eax,%edx
lea    0x7(%rdi),%rcx
mov    %dl,0x6(%rsi)
mov    0x7(%rdi),%al
test   %al,%al
je     1239 <tkfat_name2sfn+0x139>
cmp    $0x2e,%al
jne    12b6 <tkfat_name2sfn+0x1b6>
mov    %rcx,%rdi
test   %al,%al
je     12da <tkfat_name2sfn+0x1da>
cmp    $0x2e,%al
jne    12b0 <tkfat_name2sfn+0x1b0>
mov    0x1(%rdi),%al
test   %al,%al
je     12ab <tkfat_name2sfn+0x1ab>
cmp    $0x2e,%al
je     12ab <tkfat_name2sfn+0x1ab>
lea    -0x61(%rax),%ecx
lea    -0x20(%rax),%edx
cmp    $0x1a,%cl
movzbl %al,%eax
movzbl %dl,%ecx
cmovae %eax,%ecx
mov    %cl,0x8(%rsi)
mov    0x2(%rdi),%al
test   %al,%al
je     12ab <tkfat_name2sfn+0x1ab>
cmp    $0x2e,%al
je     12ab <tkfat_name2sfn+0x1ab>
lea    -0x61(%rax),%ecx
lea    -0x20(%rax),%edx
cmp    $0x1a,%cl
movzbl %al,%eax
movzbl %dl,%ecx
cmovae %eax,%ecx
mov    %cl,0x9(%rsi)
mov    0x3(%rdi),%al
test   %al,%al
je     12ab <tkfat_name2sfn+0x1ab>
cmp    $0x2e,%al
je     12ab <tkfat_name2sfn+0x1ab>
lea    -0x61(%rax),%ecx
lea    -0x20(%rax),%edx
cmp    $0x1a,%cl
movzbl %al,%eax
movzbl %dl,%ecx
cmovae %eax,%ecx
mov    %cl,0xa(%rsi)
mov    0x4(%rdi),%al
neg    %al
sbb    %eax,%eax
ret
mov    $0xffffffff,%eax
ret
lea    -0x61(%rax),%ecx
lea    -0x20(%rax),%edx
cmp    $0x1a,%cl
movzbl %al,%eax
movzbl %dl,%ecx
cmovae %eax,%ecx
mov    %cl,0x7(%rsi)
mov    0x8(%rdi),%al
add    $0x8,%rdi
test   %al,%al
jne    1244 <tkfat_name2sfn+0x144>
xor    %eax,%eax
ret

LLVM IR (-O0):
define i32 @tkfat_name2sfn(i8* %0, i8* %1) {
%3 = alloca i32
%4 = alloca i8*
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i8*
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
store i8* %0, i8** %4
store i8* %1, i8** %5
store i32 0, i32* %8
br label %11
11: ; preds = %19, %2
%12 = load i32, i32* %8
%13 = icmp slt i32 %12, 11
br i1 %13, label %14, label %22
14: ; preds = %11
%15 = load i8*, i8** %5
%16 = load i32, i32* %8
%17 = sext i32 %16 to i64
%18 = getelementptr inbounds i8, i8* %15, i64 %17
store i8 32, i8* %18
br label %19
19: ; preds = %14
%20 = load i32, i32* %8
%21 = add nsw i32 %20, 1
store i32 %21, i32* %8
br label %11
22: ; preds = %11
%23 = load i8*, i8** %4
store i8* %23, i8** %6
%24 = load i8*, i8** %5
store i8* %24, i8** %7
store i32 0, i32* %8
br label %25
25: ; preds = %57, %22
%26 = load i32, i32* %8
%27 = icmp slt i32 %26, 8
br i1 %27, label %28, label %60
28: ; preds = %25
%29 = load i8*, i8** %6
%30 = load i8, i8* %29
%31 = icmp ne i8 %30, 0
br i1 %31, label %32, label %37
32: ; preds = %28
%33 = load i8*, i8** %6
%34 = load i8, i8* %33
%35 = sext i8 %34 to i32
%36 = icmp eq i32 %35, 46
br i1 %36, label %37, label %38
37: ; preds = %32, %28
br label %60
38: ; preds = %32
%39 = load i8*, i8** %6
%40 = getelementptr inbounds i8, i8* %39, i32 1
store i8* %40, i8** %6
%41 = load i8, i8* %39
%42 = sext i8 %41 to i32
store i32 %42, i32* %9
%43 = load i32, i32* %9
%44 = icmp sge i32 %43, 97
br i1 %44, label %45, label %52
45: ; preds = %38
%46 = load i32, i32* %9
%47 = icmp sle i32 %46, 122
br i1 %47, label %48, label %52
48: ; preds = %45
%49 = load i32, i32* %9
%50 = sub nsw i32 %49, 97
%51 = add nsw i32 65, %50
store i32 %51, i32* %9
br label %52
52: ; preds = %48, %45, %38
%53 = load i32, i32* %9
%54 = trunc i32 %53 to i8
%55 = load i8*, i8** %7
%56 = getelementptr inbounds i8, i8* %55, i32 1
store i8* %56, i8** %7
store i8 %54, i8* %55
br label %57
57: ; preds = %52
%58 = load i32, i32* %8
%59 = add nsw i32 %58, 1
store i32 %59, i32* %8
br label %25
60: ; preds = %37, %25
%61 = load i8*, i8** %6
%62 = load i8, i8* %61
%63 = icmp ne i8 %62, 0
br i1 %63, label %65, label %64
64: ; preds = %60
store i32 0, i32* %3
br label %117
65: ; preds = %60
%66 = load i8*, i8** %6
%67 = load i8, i8* %66
%68 = sext i8 %67 to i32
%69 = icmp ne i32 %68, 46
br i1 %69, label %70, label %71
70: ; preds = %65
store i32 -1, i32* %3
br label %117
71: ; preds = %65
%72 = load i8*, i8** %6
%73 = getelementptr inbounds i8, i8* %72, i32 1
store i8* %73, i8** %6
%74 = load i8*, i8** %5
%75 = getelementptr inbounds i8, i8* %74, i64 8
store i8* %75, i8** %7
store i32 0, i32* %8
br label %76
76: ; preds = %108, %71
%77 = load i32, i32* %8
%78 = icmp slt i32 %77, 3
br i1 %78, label %79, label %111
79: ; preds = %76
%80 = load i8*, i8** %6
%81 = load i8, i8* %80
%82 = icmp ne i8 %81, 0
br i1 %82, label %83, label %88
83: ; preds = %79
%84 = load i8*, i8** %6
%85 = load i8, i8* %84
%86 = sext i8 %85 to i32
%87 = icmp eq i32 %86, 46
br i1 %87, label %88, label %89
88: ; preds = %83, %79
br label %111
89: ; preds = %83
%90 = load i8*, i8** %6
%91 = getelementptr inbounds i8, i8* %90, i32 1
store i8* %91, i8** %6
%92 = load i8, i8* %90
%93 = sext i8 %92 to i32
store i32 %93, i32* %9
%94 = load i32, i32* %9
%95 = icmp sge i32 %94, 97
br i1 %95, label %96, label %103
96: ; preds = %89
%97 = load i32, i32* %9
%98 = icmp sle i32 %97, 122
br i1 %98, label %99, label %103
99: ; preds = %96
%100 = load i32, i32* %9
%101 = sub nsw i32 %100, 97
%102 = add nsw i32 65, %101
store i32 %102, i32* %9
br label %103
103: ; preds = %99, %96, %89
%104 = load i32, i32* %9
%105 = trunc i32 %104 to i8
%106 = load i8*, i8** %7
%107 = getelementptr inbounds i8, i8* %106, i32 1
store i8* %107, i8** %7
store i8 %105, i8* %106
br label %108
108: ; preds = %103
%109 = load i32, i32* %8
%110 = add nsw i32 %109, 1
store i32 %110, i32* %8
br label %76
111: ; preds = %88, %76
%112 = load i8*, i8** %6
%113 = load i8, i8* %112
%114 = icmp ne i8 %113, 0
br i1 %114, label %115, label %116
115: ; preds = %111
store i32 -1, i32* %3
br label %117
116: ; preds = %111
store i32 0, i32* %3
br label %117
117: ; preds = %116, %115, %70, %64
%118 = load i32, i32* %3
ret i32 %118
}

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