int isperiod(ptr)
char *ptr;
{
  if (*ptr != '.' && *ptr != '?' && *ptr != '!') {
    return 0;
  }
  do {
    ptr++;
  } while (*ptr == ')' || *ptr == ']' || *ptr == '"');
  if (!*ptr || ptr[0] == ' ' && ptr[1] == ' ') {
    return 1;
  }
  return 0;
}


x86 assembly (clang, -O0):
<isperiod>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
je     1144 <isperiod+0x44>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x3f,%eax
je     1144 <isperiod+0x44>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x21,%eax
je     1144 <isperiod+0x44>
movl   $0x0,-0x4(%rbp)
jmp    11db <isperiod+0xdb>
jmp    1149 <isperiod+0x49>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x29,%ecx
mov    %al,-0x11(%rbp)
je     118f <isperiod+0x8f>
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x5d,%ecx
mov    %al,-0x11(%rbp)
je     118f <isperiod+0x8f>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x22,%eax
sete   %al
mov    %al,-0x11(%rbp)
mov    -0x11(%rbp),%al
test   $0x1,%al
jne    1149 <isperiod+0x49>
mov    -0x10(%rbp),%rax
cmpb   $0x0,(%rax)
je     11c8 <isperiod+0xc8>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x20,%eax
jne    11d4 <isperiod+0xd4>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x20,%eax
jne    11d4 <isperiod+0xd4>
movl   $0x1,-0x4(%rbp)
jmp    11db <isperiod+0xdb>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<isperiod>:
movzbl (%rdi),%ecx
xor    %eax,%eax
cmp    $0x3f,%rcx
ja     1164 <isperiod+0x64>
movabs $0x8000400200000000,%rdx
bt     %rcx,%rdx
jae    1164 <isperiod+0x64>
add    $0x2,%rdi
jmp    1138 <isperiod+0x38>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
cmp    $0x22,%al
jne    114a <isperiod+0x4a>
add    $0x1,%rdi
movzbl -0x1(%rdi),%eax
cmp    $0x28,%al
jle    1130 <isperiod+0x30>
cmp    $0x5d,%al
je     1134 <isperiod+0x34>
cmp    $0x29,%al
je     1134 <isperiod+0x34>
jmp    115c <isperiod+0x5c>
test   %al,%al
je     115f <isperiod+0x5f>
cmp    $0x20,%al
jne    115c <isperiod+0x5c>
mov    $0x1,%eax
cmpb   $0x20,(%rdi)
je     1164 <isperiod+0x64>
xor    %eax,%eax
ret
mov    $0x1,%eax
ret

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

LLVM IR (-O2):
define i32 @isperiod(i8* nocapture %0) {
%2 = load i8, i8* %0
switch i8 %2, label %14 [
i8 46, label %3
i8 63, label %3
i8 33, label %3
]
3: ; preds = %1, %1, %1
br label %4
4: ; preds = %8, %3
%5 = phi i8* [ %0, %3 ], [ %6, %8 ]
%6 = getelementptr inbounds i8, i8* %5, i64 1
%7 = load i8, i8* %6
switch i8 %7, label %13 [
i8 41, label %8
i8 93, label %8
i8 34, label %8
i8 0, label %14
i8 32, label %9
]
8: ; preds = %4, %4, %4
br label %4
9: ; preds = %4
%10 = getelementptr inbounds i8, i8* %5, i64 2
%11 = load i8, i8* %10
%12 = icmp eq i8 %11, 32
br i1 %12, label %14, label %13
13: ; preds = %4, %9
br label %14
14: ; preds = %4, %9, %1, %13
%15 = phi i32 [ 0, %13 ], [ 0, %1 ], [ 1, %9 ], [ 1, %4 ]
ret i32 %15
}