int GetWordType(fptr, tbuf, cflag)
char **fptr;
char *tbuf;
int *cflag;
{
  int alpha, digit, other, got;
  char *f, *t;
  *tbuf = '\0';
  for (got = 0, alpha = 0, digit = 0, other = 0, f = *fptr, *tbuf = '\0',
      t = tbuf;
       (*f != '\0') && (*f != ',') && (*f != ']'); got++) {
    if (isdigit((unsigned int)*f)) {
      digit++;
      *t++ = *f++;
    } else if (isalpha((unsigned int)*f) || (*f == '_') || (*f == '$')) {
      alpha++;
      *t++ = *f++;
    } else if ((*f == '+') &&
               ((*(f + 1) == '\0') || (*(f + 1) == ',') || (*(f + 1) == ']'))) {
      f++;
      *cflag = 1;
    } else {
      if ((*f == '-') && got && !other)
        alpha++;
      else
        other++;
      *t++ = *f++;
    }
  }
  *t = '\0';
  *fptr = f;
  if (got == 0)
    return (0);
  else if (other > 0)
    return (3);
  else if ((digit > 0) && (alpha == 0))
    return (2);
  else
    return (1);
}


x86 assembly (clang, -O0):
<GetWordType>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    -0x18(%rbp),%rax
movb   $0x0,(%rax)
movl   $0x0,-0x30(%rbp)
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x38(%rbp)
mov    -0x18(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x18(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x38(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x41(%rbp)
je     11ab <GetWordType+0x8b>
mov    -0x38(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x2c,%ecx
mov    %al,-0x41(%rbp)
je     11ab <GetWordType+0x8b>
mov    -0x38(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5d,%eax
setne  %al
mov    %al,-0x41(%rbp)
mov    -0x41(%rbp),%al
test   $0x1,%al
jne    11bb <GetWordType+0x9b>
jmp    133d <GetWordType+0x21d>
mov    -0x38(%rbp),%rax
movsbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
je     1200 <GetWordType+0xe0>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
mov    -0x38(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x38(%rbp)
mov    (%rax),%cl
mov    -0x40(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x40(%rbp)
mov    %cl,(%rax)
jmp    132a <GetWordType+0x20a>
mov    -0x38(%rbp),%rax
movsbl (%rax),%edi
call   1040 <isalpha@plt>
cmp    $0x0,%eax
jne    1235 <GetWordType+0x115>
mov    -0x38(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5f,%eax
je     1235 <GetWordType+0x115>
mov    -0x38(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x24,%eax
jne    1265 <GetWordType+0x145>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
mov    -0x38(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x38(%rbp)
mov    (%rax),%cl
mov    -0x40(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x40(%rbp)
mov    %cl,(%rax)
jmp    1325 <GetWordType+0x205>
mov    -0x38(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2b,%eax
jne    12c3 <GetWordType+0x1a3>
mov    -0x38(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x0,%eax
je     12a8 <GetWordType+0x188>
mov    -0x38(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x2c,%eax
je     12a8 <GetWordType+0x188>
mov    -0x38(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x5d,%eax
jne    12c3 <GetWordType+0x1a3>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
mov    -0x20(%rbp),%rax
movl   $0x1,(%rax)
jmp    1320 <GetWordType+0x200>
mov    -0x38(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2d,%eax
jne    12f5 <GetWordType+0x1d5>
cmpl   $0x0,-0x30(%rbp)
je     12f5 <GetWordType+0x1d5>
cmpl   $0x0,-0x2c(%rbp)
jne    12f5 <GetWordType+0x1d5>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    12fe <GetWordType+0x1de>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x38(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x38(%rbp)
mov    (%rax),%cl
mov    -0x40(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x40(%rbp)
mov    %cl,(%rax)
jmp    1325 <GetWordType+0x205>
jmp    132a <GetWordType+0x20a>
jmp    132f <GetWordType+0x20f>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1171 <GetWordType+0x51>
mov    -0x40(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x38(%rbp),%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,(%rax)
cmpl   $0x0,-0x30(%rbp)
jne    1365 <GetWordType+0x245>
movl   $0x0,-0x4(%rbp)
jmp    13a2 <GetWordType+0x282>
cmpl   $0x0,-0x2c(%rbp)
jle    137b <GetWordType+0x25b>
movl   $0x3,-0x4(%rbp)
jmp    13a2 <GetWordType+0x282>
cmpl   $0x0,-0x28(%rbp)
jle    139b <GetWordType+0x27b>
cmpl   $0x0,-0x24(%rbp)
jne    139b <GetWordType+0x27b>
movl   $0x2,-0x4(%rbp)
jmp    13a2 <GetWordType+0x282>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<GetWordType>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %rdx,0x8(%rsp)
mov    %rsi,%r15
movb   $0x0,(%rsi)
mov    %rdi,0x10(%rsp)
mov    (%rdi),%r12
xor    %ebp,%ebp
xor    %edi,%edi
xor    %r14d,%r14d
xor    %r13d,%r13d
nopl   0x0(%rax,%rax,1)
movsbl (%r12,%rbp,1),%ebx
test   %ebx,%ebx
je     1218 <GetWordType+0x108>
cmp    $0x2c,%bl
je     1218 <GetWordType+0x108>
cmp    $0x5d,%bl
je     1218 <GetWordType+0x108>
lea    -0x30(%rbx),%eax
cmp    $0x9,%eax
ja     1180 <GetWordType+0x70>
add    $0x1,%r14d
mov    %bl,(%r15)
add    $0x1,%r15
add    $0x1,%rbp
jmp    1140 <GetWordType+0x30>
nopl   0x0(%rax,%rax,1)
mov    %r14d,0x4(%rsp)
mov    %edi,%r14d
mov    %ebx,%edi
call   1030 <isalpha@plt>
mov    %r14d,%edi
test   %eax,%eax
je     11ab <GetWordType+0x9b>
add    $0x1,%edi
mov    %bl,(%r15)
add    $0x1,%r15
add    $0x1,%rbp
mov    0x4(%rsp),%r14d
jmp    1140 <GetWordType+0x30>
cmp    $0x5f,%bl
je     1196 <GetWordType+0x86>
cmp    $0x2b,%bl
je     11bc <GetWordType+0xac>
cmp    $0x24,%bl
je     1196 <GetWordType+0x86>
jmp    11db <GetWordType+0xcb>
movzbl 0x1(%r12,%rbp,1),%eax
test   %al,%al
je     11ce <GetWordType+0xbe>
cmp    $0x5d,%al
je     11ce <GetWordType+0xbe>
cmp    $0x2c,%al
jne    11db <GetWordType+0xcb>
mov    0x8(%rsp),%rax
movl   $0x1,(%rax)
jmp    11a0 <GetWordType+0x90>
cmp    $0x2d,%bl
setne  %r8b
test   %ebp,%ebp
sete   %r9b
test   %r13d,%r13d
setne  %al
or     %r9b,%al
or     %r8b,%al
mov    %eax,%r8d
xor    $0x1,%r8b
test   %al,%al
jne    1204 <GetWordType+0xf4>
xor    %r13d,%r13d
jmp    1208 <GetWordType+0xf8>
add    $0x1,%r13d
mov    0x4(%rsp),%r14d
movzbl %r8b,%eax
add    %eax,%edi
jmp    116b <GetWordType+0x5b>
movb   $0x0,(%r15)
add    %rbp,%r12
mov    0x10(%rsp),%rax
mov    %r12,(%rax)
test   %ebp,%ebp
je     124a <GetWordType+0x13a>
mov    $0x3,%eax
test   %r13d,%r13d
jg     124c <GetWordType+0x13c>
test   %r14d,%r14d
setg   %al
test   %edi,%edi
sete   %cl
and    %al,%cl
movzbl %cl,%eax
add    $0x1,%eax
jmp    124c <GetWordType+0x13c>
xor    %eax,%eax
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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