int promptlen(cp, spp) const char *cp;
const char **spp;
{
  int count = 0;
  const char *sp = cp;
  char delimiter = 0;
  int indelimit = 0;
  if (*cp && cp[1] == '\r') {
    delimiter = *cp;
    cp += 2;
  }
  for (; *cp; cp++) {
    if (indelimit && *cp != delimiter)
      ;
    else if (*cp == '\n' || *cp == '\r') {
      count = 0;
      sp = cp + 1;
    } else if (*cp == '\t') {
      count = (count | 7) + 1;
    } else if (*cp == '\b') {
      if (count > 0)
        count--;
    } else if (*cp == delimiter)
      indelimit = !indelimit;
    else
      count++;
  }
  if (spp)
    *spp = sp;
  return count;
}


x86 assembly (clang, -O0):
<promptlen>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x20(%rbp)
movb   $0x0,-0x21(%rbp)
movl   $0x0,-0x28(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     115c <promptlen+0x5c>
mov    -0x8(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0xd,%eax
jne    115c <promptlen+0x5c>
mov    -0x8(%rbp),%rax
mov    (%rax),%al
mov    %al,-0x21(%rbp)
mov    -0x8(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x8(%rbp)
jmp    1161 <promptlen+0x61>
mov    -0x8(%rbp),%rax
cmpb   $0x0,(%rax)
je     126d <promptlen+0x16d>
cmpl   $0x0,-0x28(%rbp)
je     1190 <promptlen+0x90>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
movsbl -0x21(%rbp),%ecx
cmp    %ecx,%eax
je     1190 <promptlen+0x90>
jmp    1257 <promptlen+0x157>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0xa,%eax
je     11b0 <promptlen+0xb0>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0xd,%eax
jne    11c8 <promptlen+0xc8>
movl   $0x0,-0x14(%rbp)
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    1252 <promptlen+0x152>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x9,%eax
jne    11e9 <promptlen+0xe9>
mov    -0x14(%rbp),%eax
or     $0x7,%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    124d <promptlen+0x14d>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x8,%eax
jne    1211 <promptlen+0x111>
cmpl   $0x0,-0x14(%rbp)
jle    120c <promptlen+0x10c>
mov    -0x14(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x14(%rbp)
jmp    1248 <promptlen+0x148>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
movsbl -0x21(%rbp),%ecx
cmp    %ecx,%eax
jne    123a <promptlen+0x13a>
cmpl   $0x0,-0x28(%rbp)
setne  %al
xor    $0xff,%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x28(%rbp)
jmp    1243 <promptlen+0x143>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    1248 <promptlen+0x148>
jmp    124d <promptlen+0x14d>
jmp    1252 <promptlen+0x152>
jmp    1257 <promptlen+0x157>
jmp    125c <promptlen+0x15c>
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
jmp    1161 <promptlen+0x61>
cmpq   $0x0,-0x10(%rbp)
je     1283 <promptlen+0x183>
mov    -0x20(%rbp),%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x14(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<promptlen>:
movsbl (%rdi),%eax
test   %eax,%eax
je     11a1 <promptlen+0xa1>
xor    %r10d,%r10d
cmpb   $0xd,0x1(%rdi)
mov    $0x0,%r8d
mov    %rdi,%rdx
mov    %eax,%ecx
jne    1131 <promptlen+0x31>
mov    0x2(%rdi),%cl
test   %cl,%cl
je     11ac <promptlen+0xac>
lea    0x2(%rdi),%rdx
mov    %eax,%r8d
add    $0x1,%rdx
lea    0xec4(%rip),%r9
xor    %eax,%eax
jmp    1151 <promptlen+0x51>
mov    $0x1,%r10d
movzbl (%rdx),%ecx
add    $0x1,%rdx
test   %cl,%cl
je     11a3 <promptlen+0xa3>
movsbl %cl,%r11d
test   %r10d,%r10d
je     115f <promptlen+0x5f>
cmp    %r11d,%r8d
jne    1140 <promptlen+0x40>
add    $0xf8,%cl
cmp    $0x5,%cl
ja     118a <promptlen+0x8a>
movzbl %cl,%ecx
movslq (%r9,%rcx,4),%rcx
add    %r9,%rcx
jmp    *%rcx
xor    %eax,%eax
mov    %rdx,%rdi
jmp    1146 <promptlen+0x46>
xor    %ecx,%ecx
test   %eax,%eax
setg   %cl
sub    %ecx,%eax
jmp    1146 <promptlen+0x46>
or     $0x7,%eax
jmp    119c <promptlen+0x9c>
cmp    %r11d,%r8d
jne    119c <promptlen+0x9c>
xor    %ecx,%ecx
test   %r10d,%r10d
sete   %cl
mov    %ecx,%r10d
jmp    1146 <promptlen+0x46>
add    $0x1,%eax
jmp    1146 <promptlen+0x46>
xor    %eax,%eax
test   %rsi,%rsi
je     11ab <promptlen+0xab>
mov    %rdi,(%rsi)
ret
xor    %eax,%eax
test   %rsi,%rsi
jne    11a8 <promptlen+0xa8>
jmp    11ab <promptlen+0xab>

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

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