char *token(src, tok)
char *src, *tok;
{
  register int quotef;
  while (*src == ' ' || *src == '\t')
    ++src;
  quotef = 0;
  while (*src) {
    if (*src == '~') {
      ++src;
      if (*src == 0)
        break;
      switch (*src++) {
      case 'r':
        *tok++ = 13;
        break;
      case 'n':
        *tok++ = 10;
        break;
      case 't':
        *tok++ = 9;
        break;
      case 'b':
        *tok++ = 8;
        break;
      case 'f':
        *tok++ = 12;
        break;
      default:
        *tok++ = *(src - 1);
      }
    } else {
      if (quotef) {
        if (*src == '"')
          break;
      } else {
        if (*src == ' ' || *src == '\t')
          break;
      }
      if (*src == '"')
        quotef = 1;
      *tok++ = *src++;
    }
  }
  if (*src)
    ++src;
  *tok = 0;
  return (src);
}


x86 assembly (clang, -O0):
<token>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x20,%ecx
mov    %al,-0x15(%rbp)
je     1131 <token+0x31>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x9,%eax
sete   %al
mov    %al,-0x15(%rbp)
mov    -0x15(%rbp),%al
test   $0x1,%al
jne    1141 <token+0x41>
jmp    1152 <token+0x52>
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
jmp    110c <token+0xc>
movl   $0x0,-0x14(%rbp)
mov    -0x8(%rbp),%rax
cmpb   $0x0,(%rax)
je     12eb <token+0x1eb>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x7e,%eax
jne    125f <token+0x15f>
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    1197 <token+0x97>
jmp    12eb <token+0x1eb>
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movsbl (%rax),%eax
add    $0xffffff9e,%eax
mov    %eax,%ecx
mov    %rcx,-0x20(%rbp)
sub    $0x12,%eax
ja     1242 <token+0x142>
mov    -0x20(%rbp),%rax
lea    0xe3a(%rip),%rcx
movslq (%rcx,%rax,4),%rax
add    %rcx,%rax
jmp    *%rax
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movb   $0xd,(%rax)
jmp    125a <token+0x15a>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movb   $0xa,(%rax)
jmp    125a <token+0x15a>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movb   $0x9,(%rax)
jmp    125a <token+0x15a>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movb   $0x8,(%rax)
jmp    125a <token+0x15a>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movb   $0xc,(%rax)
jmp    125a <token+0x15a>
mov    -0x8(%rbp),%rax
mov    -0x1(%rax),%cl
mov    -0x10(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
mov    %cl,(%rax)
jmp    12e6 <token+0x1e6>
cmpl   $0x0,-0x14(%rbp)
je     1283 <token+0x183>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x22,%eax
jne    127e <token+0x17e>
jmp    12eb <token+0x1eb>
jmp    12ad <token+0x1ad>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x20,%eax
je     12a3 <token+0x1a3>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x9,%eax
jne    12a8 <token+0x1a8>
jmp    12eb <token+0x1eb>
jmp    12ad <token+0x1ad>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x22,%eax
jne    12c4 <token+0x1c4>
movl   $0x1,-0x14(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
mov    (%rax),%cl
mov    -0x10(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
mov    %cl,(%rax)
jmp    1159 <token+0x59>
mov    -0x8(%rbp),%rax
cmpb   $0x0,(%rax)
je     1304 <token+0x204>
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
mov    -0x10(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<token>:
mov    %rdi,%rax
jmp    1114 <token+0x14>
cs nopw 0x0(%rax,%rax,1)
nop
add    $0x1,%rax
movzbl (%rax),%ecx
cmp    $0x9,%cl
je     1110 <token+0x10>
cmp    $0x20,%cl
je     1110 <token+0x10>
xor    %r10d,%r10d
lea    0xed5(%rip),%r9
mov    $0x1,%r8d
jmp    1159 <token+0x59>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
cmp    $0x22,%cl
je     11bf <token+0xbf>
cmp    $0x22,%cl
cmove  %r8d,%r10d
add    $0x1,%rax
mov    %cl,(%rsi)
add    $0x1,%rsi
movzbl (%rax),%ecx
cmp    $0x7e,%cl
je     1180 <token+0x80>
test   %cl,%cl
je     11c1 <token+0xc1>
test   %r10d,%r10d
jne    1140 <token+0x40>
cmp    $0x9,%cl
je     11c1 <token+0xc1>
cmp    $0x20,%cl
jne    1145 <token+0x45>
jmp    11c1 <token+0xc1>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsbl 0x1(%rax),%edi
test   %edi,%edi
je     11b7 <token+0xb7>
add    $0x2,%rax
mov    %edi,%edx
add    $0xffffff9e,%edx
ror    %edx
cmp    $0x9,%edx
ja     11a7 <token+0xa7>
mov    $0xd,%cl
movslq (%r9,%rdx,4),%rdx
add    %r9,%rdx
jmp    *%rdx
mov    $0x8,%cl
jmp    1150 <token+0x50>
mov    %edi,%ecx
jmp    1150 <token+0x50>
mov    $0xc,%cl
jmp    1150 <token+0x50>
mov    $0xa,%cl
jmp    1150 <token+0x50>
mov    $0x9,%cl
jmp    1150 <token+0x50>
add    $0x1,%rax
xor    %ecx,%ecx
jmp    11c1 <token+0xc1>
mov    $0x22,%cl
cmp    $0x1,%cl
sbb    $0xffffffffffffffff,%rax
movb   $0x0,(%rsi)
ret

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

LLVM IR (-O2):
define i8* @token(i8* %0, i8* nocapture writeonly %1) {
br label %3
3: ; preds = %6, %2
%4 = phi i8* [ %0, %2 ], [ %7, %6 ]
%5 = load i8, i8* %4
switch i8 %5, label %8 [
i8 32, label %6
i8 9, label %6
]
6: ; preds = %3, %3
%7 = getelementptr inbounds i8, i8* %4, i64 1
br label %3
8: ; preds = %3, %36
%9 = phi i8 [ %41, %36 ], [ %5, %3 ]
%10 = phi i8* [ %38, %36 ], [ %4, %3 ]
%11 = phi i8* [ %40, %36 ], [ %1, %3 ]
%12 = phi i32 [ %39, %36 ], [ 0, %3 ]
switch i8 %9, label %27 [
i8 0, label %44
i8 126, label %13
]
13: ; preds = %8
%14 = getelementptr inbounds i8, i8* %10, i64 1
%15 = load i8, i8* %14
%16 = icmp eq i8 %15, 0
br i1 %16, label %42, label %17
17: ; preds = %13
%18 = sext i8 %15 to i32
%19 = getelementptr inbounds i8, i8* %10, i64 2
%20 = add nsw i32 %18, -98
%21 = tail call i32 @llvm.fshl.i32(i32 %20, i32 %20, i32 31)
switch i32 %21, label %26 [
i32 8, label %36
i32 6, label %22
i32 9, label %23
i32 0, label %24
i32 2, label %25
]
22: ; preds = %17
br label %36
23: ; preds = %17
br label %36
24: ; preds = %17
br label %36
25: ; preds = %17
br label %36
26: ; preds = %17
br label %36
27: ; preds = %8
%28 = icmp eq i32 %12, 0
br i1 %28, label %31, label %29
29: ; preds = %27
%30 = icmp eq i8 %9, 34
br i1 %30, label %44, label %32
31: ; preds = %27
switch i8 %9, label %32 [
i8 32, label %44
i8 9, label %44
]
32: ; preds = %31, %29
%33 = icmp eq i8 %9, 34
%34 = select i1 %33, i32 1, i32 %12
%35 = getelementptr inbounds i8, i8* %10, i64 1
br label %36
36: ; preds = %17, %22, %23, %24, %25, %26, %32
%37 = phi i8 [ 10, %22 ], [ 9, %23 ], [ 8, %24 ], [ 12, %25 ], [ %15, %26 ], [ %9, %32 ], [ 13, %17 ]
%38 = phi i8* [ %19, %22 ], [ %19, %23 ], [ %19, %24 ], [ %19, %25 ], [ %19, %26 ], [ %35, %32 ], [ %19, %17 ]
%39 = phi i32 [ %12, %22 ], [ %12, %23 ], [ %12, %24 ], [ %12, %25 ], [ %12, %26 ], [ %34, %32 ], [ %12, %17 ]
store i8 %37, i8* %11
%40 = getelementptr inbounds i8, i8* %11, i64 1
%41 = load i8, i8* %38
br label %8
42: ; preds = %13
%43 = getelementptr inbounds i8, i8* %10, i64 1
br label %44
44: ; preds = %31, %31, %8, %29, %42
%45 = phi i8 [ 0, %42 ], [ 34, %29 ], [ %9, %8 ], [ %9, %31 ], [ %9, %31 ]
%46 = phi i8* [ %43, %42 ], [ %10, %29 ], [ %10, %8 ], [ %10, %31 ], [ %10, %31 ]
%47 = icmp ne i8 %45, 0
%48 = zext i1 %47 to i64
%49 = getelementptr i8, i8* %46, i64 %48
store i8 0, i8* %11
ret i8* %49
}