int is_character(s)
char *s;
{
  char *x;
  if ((*s == '\''))
    s++;
  else
    return (0);
  if ((*s == '\\')) {
    s++;
    if (((s[0] == '\\') || (s[0] == '\'') || !isdigit(s[0])) &&
        (s[1] == '\'') && !s[2])
      return (1);
    for (x = s; ('0' <= *s && *s <= '7'); s++)
      continue;
    return (x < s && s < (x + 4) && (s[0] == '\'') && !s[1]);
  } else if ((*s == '^'))
    s++;
  return (isprint(s[0]) && (s[1] == '\'') && !s[2]);
}


x86 assembly (clang, -O0):
<is_character>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x27,%eax
jne    114d <is_character+0x2d>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    1159 <is_character+0x39>
movl   $0x0,-0x4(%rbp)
jmp    12fc <is_character+0x1dc>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5c,%eax
jne    128e <is_character+0x16e>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5c,%eax
je     11aa <is_character+0x8a>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x27,%eax
je     11aa <is_character+0x8a>
mov    -0x10(%rbp),%rax
movsbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
jne    11d5 <is_character+0xb5>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x27,%eax
jne    11d5 <is_character+0xb5>
mov    -0x10(%rbp),%rax
cmpb   $0x0,0x2(%rax)
jne    11d5 <is_character+0xb5>
movl   $0x1,-0x4(%rbp)
jmp    12fc <is_character+0x1dc>
mov    -0x10(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%edx
xor    %eax,%eax
mov    $0x30,%ecx
cmp    %edx,%ecx
mov    %al,-0x19(%rbp)
jg     1206 <is_character+0xe6>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x37,%eax
setle  %al
mov    %al,-0x19(%rbp)
mov    -0x19(%rbp),%al
test   $0x1,%al
jne    1216 <is_character+0xf6>
jmp    122c <is_character+0x10c>
jmp    121b <is_character+0xfb>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    11dd <is_character+0xbd>
mov    -0x18(%rbp),%rcx
xor    %eax,%eax
cmp    -0x10(%rbp),%rcx
mov    %al,-0x1a(%rbp)
jae    127e <is_character+0x15e>
mov    -0x10(%rbp),%rcx
mov    -0x18(%rbp),%rdx
add    $0x4,%rdx
xor    %eax,%eax
cmp    %rdx,%rcx
mov    %al,-0x1a(%rbp)
jae    127e <is_character+0x15e>
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x27,%ecx
mov    %al,-0x1a(%rbp)
jne    127e <is_character+0x15e>
mov    -0x10(%rbp),%rax
cmpb   $0x0,0x1(%rax)
setne  %al
xor    $0xff,%al
mov    %al,-0x1a(%rbp)
mov    -0x1a(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x4(%rbp)
jmp    12fc <is_character+0x1dc>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5e,%eax
jne    12aa <is_character+0x18a>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    12af <is_character+0x18f>
mov    -0x10(%rbp),%rax
movsbl (%rax),%edi
call   1040 <isprint@plt>
mov    %eax,%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x1b(%rbp)
je     12f1 <is_character+0x1d1>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%ecx
xor    %eax,%eax
cmp    $0x27,%ecx
mov    %al,-0x1b(%rbp)
jne    12f1 <is_character+0x1d1>
mov    -0x10(%rbp),%rax
cmpb   $0x0,0x2(%rax)
setne  %al
xor    $0xff,%al
mov    %al,-0x1b(%rbp)
mov    -0x1b(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<is_character>:
push   %rbp
push   %rbx
push   %rax
xor    %ebp,%ebp
cmpb   $0x27,(%rdi)
jne    11c6 <is_character+0xb6>
mov    %rdi,%rbx
mov    0x1(%rdi),%al
cmp    $0x5e,%al
je     119a <is_character+0x8a>
cmp    $0x5c,%al
jne    11a3 <is_character+0x93>
movsbl 0x2(%rbx),%eax
cmp    $0x27,%eax
je     1143 <is_character+0x33>
cmp    $0x5c,%al
je     1143 <is_character+0x33>
mov    %eax,%ecx
add    $0xffffffd0,%ecx
cmp    $0xa,%ecx
jb     1153 <is_character+0x43>
cmpb   $0x27,0x3(%rbx)
jne    1153 <is_character+0x43>
cmpb   $0x0,0x4(%rbx)
je     11cf <is_character+0xbf>
mov    %eax,%edx
and    $0xf8,%dl
mov    $0x2,%ecx
cmp    $0x30,%dl
jne    1183 <is_character+0x73>
mov    $0x2,%ecx
nopw   0x0(%rax,%rax,1)
movzbl 0x1(%rbx,%rcx,1),%eax
mov    %eax,%edx
and    $0xf8,%dl
add    $0x1,%rcx
cmp    $0x30,%dl
je     1170 <is_character+0x60>
lea    -0x3(%rcx),%rdx
cmp    $0x2,%rdx
ja     11c6 <is_character+0xb6>
cmp    $0x27,%al
jne    11c6 <is_character+0xb6>
add    %rcx,%rbx
add    $0x1,%rbx
jmp    11bd <is_character+0xad>
mov    0x2(%rbx),%al
add    $0x2,%rbx
jmp    11a7 <is_character+0x97>
add    $0x1,%rbx
movsbl %al,%edi
call   1030 <isprint@plt>
test   %eax,%eax
je     11c6 <is_character+0xb6>
cmpb   $0x27,0x1(%rbx)
jne    11c6 <is_character+0xb6>
add    $0x2,%rbx
xor    %ebp,%ebp
cmpb   $0x0,(%rbx)
sete   %bpl
mov    %ebp,%eax
add    $0x8,%rsp
pop    %rbx
pop    %rbp
ret
mov    $0x1,%ebp
jmp    11c6 <is_character+0xb6>

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

LLVM IR (-O2):
define i32 @is_character(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = icmp eq i8 %2, 39
br i1 %3, label %4, label %62
4: ; preds = %1
%5 = getelementptr inbounds i8, i8* %0, i64 1
%6 = load i8, i8* %5
switch i8 %6, label %45 [
i8 92, label %7
i8 94, label %42
]
7: ; preds = %4
%8 = getelementptr inbounds i8, i8* %0, i64 2
%9 = load i8, i8* %8
switch i8 %9, label %10 [
i8 92, label %14
i8 39, label %14
]
10: ; preds = %7
%11 = sext i8 %9 to i32
%12 = add nsw i32 %11, -48
%13 = icmp ult i32 %12, 10
br i1 %13, label %22, label %14
14: ; preds = %7, %7, %10
%15 = getelementptr inbounds i8, i8* %0, i64 3
%16 = load i8, i8* %15
%17 = icmp eq i8 %16, 39
br i1 %17, label %18, label %22
18: ; preds = %14
%19 = getelementptr inbounds i8, i8* %0, i64 4
%20 = load i8, i8* %19
%21 = icmp eq i8 %20, 0
br i1 %21, label %62, label %22
22: ; preds = %18, %14, %10
%23 = and i8 %9, -8
%24 = icmp eq i8 %23, 48
br i1 %24, label %25, label %32
25: ; preds = %22, %25
%26 = phi i64 [ %31, %25 ], [ 3, %22 ]
%27 = getelementptr inbounds i8, i8* %0, i64 %26
%28 = load i8, i8* %27
%29 = and i8 %28, -8
%30 = icmp eq i8 %29, 48
%31 = add nuw nsw i64 %26, 1
br i1 %30, label %25, label %32
32: ; preds = %25, %22
%33 = phi i8 [ %9, %22 ], [ %28, %25 ]
%34 = phi i64 [ 2, %22 ], [ %26, %25 ]
%35 = add nsw i64 %34, -3
%36 = icmp ult i64 %35, 3
%37 = icmp eq i8 %33, 39
%38 = select i1 %36, i1 %37, i1 false
br i1 %38, label %39, label %62
39: ; preds = %32
%40 = getelementptr inbounds i8, i8* %0, i64 %34
%41 = getelementptr inbounds i8, i8* %40, i64 1
br label %57
42: ; preds = %4
%43 = getelementptr inbounds i8, i8* %0, i64 2
%44 = load i8, i8* %43
br label %45
45: ; preds = %4, %42
%46 = phi i8 [ %44, %42 ], [ %6, %4 ]
%47 = phi i8* [ %43, %42 ], [ %5, %4 ]
%48 = sext i8 %46 to i32
%49 = tail call i32 @isprint(i32 %48)
%50 = icmp eq i32 %49, 0
br i1 %50, label %62, label %51
51: ; preds = %45
%52 = getelementptr inbounds i8, i8* %47, i64 1
%53 = load i8, i8* %52
%54 = icmp eq i8 %53, 39
br i1 %54, label %55, label %62
55: ; preds = %51
%56 = getelementptr inbounds i8, i8* %47, i64 2
br label %57
57: ; preds = %39, %55
%58 = phi i8* [ %56, %55 ], [ %41, %39 ]
%59 = load i8, i8* %58
%60 = icmp eq i8 %59, 0
%61 = zext i1 %60 to i32
br label %62
62: ; preds = %57, %45, %51, %32, %18, %1
%63 = phi i32 [ 0, %1 ], [ 1, %18 ], [ 0, %32 ], [ 0, %51 ], [ 0, %45 ], [ %61, %57 ]
ret i32 %63
}