int DetermineNumberOfDimensions(char *expression, int LastPosition) {
  int ParenLevel = 0;
  int NumDimensions = 1;
  int Loop = -1;
  bwx_DEBUG(__FUNCTION__);
  while (Loop == -1) {
    char C;
    C = expression[LastPosition];
    switch (C) {
    case '\0':
      return 0;
      break;
    case '=':
      Loop = 0;
      break;
    case '(':
      LastPosition++;
      ParenLevel++;
      break;
    case ')':
      LastPosition++;
      ParenLevel--;
      if (ParenLevel == 0) {
        Loop = 0;
      }
      break;
    case ',':
      LastPosition++;
      if (ParenLevel == 1) {
        NumDimensions++;
      }
      break;
    case '\"':
      LastPosition++;
      while ((expression[LastPosition] != '\"') &&
             (expression[LastPosition] != '\0')) {
        LastPosition++;
      }
      if (expression[LastPosition] == '\"') {
        LastPosition++;
      }
      break;
    default:
      LastPosition++;
    }
  }
  return NumDimensions;
}


x86 assembly (clang, -O0):
<DetermineNumberOfDimensions>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
movl   $0x1,-0x1c(%rbp)
movl   $0xffffffff,-0x20(%rbp)
lea    0xec5(%rip),%rdi
mov    $0x0,%al
call   1030 <bwx_DEBUG@plt>
cmpl   $0xffffffff,-0x20(%rbp)
jne    12c2 <DetermineNumberOfDimensions+0x1b2>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x21(%rbp)
movsbl -0x21(%rbp),%eax
mov    %eax,-0x28(%rbp)
test   %eax,%eax
je     11c3 <DetermineNumberOfDimensions+0xb3>
jmp    116e <DetermineNumberOfDimensions+0x5e>
mov    -0x28(%rbp),%eax
sub    $0x22,%eax
je     123b <DetermineNumberOfDimensions+0x12b>
jmp    117f <DetermineNumberOfDimensions+0x6f>
mov    -0x28(%rbp),%eax
sub    $0x28,%eax
je     11db <DetermineNumberOfDimensions+0xcb>
jmp    1190 <DetermineNumberOfDimensions+0x80>
mov    -0x28(%rbp),%eax
sub    $0x29,%eax
je     11f2 <DetermineNumberOfDimensions+0xe2>
jmp    11a1 <DetermineNumberOfDimensions+0x91>
mov    -0x28(%rbp),%eax
sub    $0x2c,%eax
je     121a <DetermineNumberOfDimensions+0x10a>
jmp    11b2 <DetermineNumberOfDimensions+0xa2>
mov    -0x28(%rbp),%eax
sub    $0x3d,%eax
je     11cf <DetermineNumberOfDimensions+0xbf>
jmp    12b4 <DetermineNumberOfDimensions+0x1a4>
movl   $0x0,-0x4(%rbp)
jmp    12c8 <DetermineNumberOfDimensions+0x1b8>
movl   $0x0,-0x20(%rbp)
jmp    12bd <DetermineNumberOfDimensions+0x1ad>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    12bd <DetermineNumberOfDimensions+0x1ad>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x18(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x18(%rbp)
cmpl   $0x0,-0x18(%rbp)
jne    1215 <DetermineNumberOfDimensions+0x105>
movl   $0x0,-0x20(%rbp)
jmp    12bd <DetermineNumberOfDimensions+0x1ad>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
cmpl   $0x1,-0x18(%rbp)
jne    1236 <DetermineNumberOfDimensions+0x126>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    12bd <DetermineNumberOfDimensions+0x1ad>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%ecx
xor    %eax,%eax
cmp    $0x22,%ecx
mov    %al,-0x29(%rbp)
je     1273 <DetermineNumberOfDimensions+0x163>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x0,%eax
setne  %al
mov    %al,-0x29(%rbp)
mov    -0x29(%rbp),%al
test   $0x1,%al
jne    1283 <DetermineNumberOfDimensions+0x173>
jmp    1291 <DetermineNumberOfDimensions+0x181>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    1244 <DetermineNumberOfDimensions+0x134>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x22,%eax
jne    12af <DetermineNumberOfDimensions+0x19f>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    12bd <DetermineNumberOfDimensions+0x1ad>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    1142 <DetermineNumberOfDimensions+0x32>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<DetermineNumberOfDimensions>:
push   %rbp
push   %r14
push   %rbx
mov    %esi,%ebx
mov    %rdi,%r14
lea    0xf50(%rip),%rdi
xor    %ebp,%ebp
xor    %eax,%eax
call   1030 <bwx_DEBUG@plt>
lea    0x1(%r14),%r8
mov    $0x1,%eax
lea    0xec7(%rip),%rdx
jmp    1159 <DetermineNumberOfDimensions+0x49>
add    $0x1,%ebx
xor    %esi,%esi
add    $0xffffffff,%ebp
setne  %sil
neg    %esi
nopl   0x0(%rax)
cmp    $0xffffffff,%esi
jne    11d9 <DetermineNumberOfDimensions+0xc9>
movslq %ebx,%rsi
movsbl (%r14,%rsi,1),%ecx
lea    -0x22(%rcx),%edi
cmp    $0x1b,%edi
ja     11c6 <DetermineNumberOfDimensions+0xb6>
movslq (%rdx,%rdi,4),%rcx
add    %rdx,%rcx
jmp    *%rcx
add    %r8,%rsi
cs nopw 0x0(%rax,%rax,1)
nop
movzbl (%rsi),%ecx
add    $0x1,%ebx
cmp    $0x22,%cl
je     1193 <DetermineNumberOfDimensions+0x83>
add    $0x1,%rsi
test   %cl,%cl
jne    1180 <DetermineNumberOfDimensions+0x70>
lea    0x1(%rbx),%edi
cmp    $0x22,%cl
cmovne %ebx,%edi
mov    $0xffffffff,%esi
mov    %edi,%ebx
jmp    1150 <DetermineNumberOfDimensions+0x40>
add    $0x1,%ebx
add    $0x1,%ebp
mov    $0xffffffff,%esi
jmp    1150 <DetermineNumberOfDimensions+0x40>
add    $0x1,%ebx
xor    %ecx,%ecx
cmp    $0x1,%ebp
sete   %cl
add    %ecx,%eax
mov    $0xffffffff,%esi
jmp    1150 <DetermineNumberOfDimensions+0x40>
test   %ecx,%ecx
je     11d7 <DetermineNumberOfDimensions+0xc7>
add    $0x1,%ebx
mov    $0xffffffff,%esi
jmp    1150 <DetermineNumberOfDimensions+0x40>
mov    %ecx,%eax
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
@__FUNCTION__.DetermineNumberOfDimensions = [28 x i8] c"DetermineNumberOfDimensions\00"
define i32 @DetermineNumberOfDimensions(i8* %0, i32 %1) {
%3 = alloca i32
%4 = alloca i8*
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i8
store i8* %0, i8** %4
store i32 %1, i32* %5
store i32 0, i32* %6
store i32 1, i32* %7
store i32 -1, i32* %8
%10 = call i32 (i8*, ...) bitcast (i32 (...)* @bwx_DEBUG to i32 (i8*, ...)*)(i8* getelementptr inbounds ([28 x i8], [28 x i8]* @__FUNCTION__.DetermineNumberOfDimensions, i64 0, i64 0))
br label %11
11: ; preds = %86, %2
%12 = load i32, i32* %8
%13 = icmp eq i32 %12, -1
br i1 %13, label %14, label %87
14: ; preds = %11
%15 = load i8*, i8** %4
%16 = load i32, i32* %5
%17 = sext i32 %16 to i64
%18 = getelementptr inbounds i8, i8* %15, i64 %17
%19 = load i8, i8* %18
store i8 %19, i8* %9
%20 = load i8, i8* %9
%21 = sext i8 %20 to i32
switch i32 %21, label %83 [
i32 0, label %22
i32 61, label %23
i32 40, label %24
i32 41, label %29
i32 44, label %38
i32 34, label %47
]
22: ; preds = %14
store i32 0, i32* %3
br label %89
23: ; preds = %14
store i32 0, i32* %8
br label %86
24: ; preds = %14
%25 = load i32, i32* %5
%26 = add nsw i32 %25, 1
store i32 %26, i32* %5
%27 = load i32, i32* %6
%28 = add nsw i32 %27, 1
store i32 %28, i32* %6
br label %86
29: ; preds = %14
%30 = load i32, i32* %5
%31 = add nsw i32 %30, 1
store i32 %31, i32* %5
%32 = load i32, i32* %6
%33 = add nsw i32 %32, -1
store i32 %33, i32* %6
%34 = load i32, i32* %6
%35 = icmp eq i32 %34, 0
br i1 %35, label %36, label %37
36: ; preds = %29
store i32 0, i32* %8
br label %37
37: ; preds = %36, %29
br label %86
38: ; preds = %14
%39 = load i32, i32* %5
%40 = add nsw i32 %39, 1
store i32 %40, i32* %5
%41 = load i32, i32* %6
%42 = icmp eq i32 %41, 1
br i1 %42, label %43, label %46
43: ; preds = %38
%44 = load i32, i32* %7
%45 = add nsw i32 %44, 1
store i32 %45, i32* %7
br label %46
46: ; preds = %43, %38
br label %86
47: ; preds = %14
%48 = load i32, i32* %5
%49 = add nsw i32 %48, 1
store i32 %49, i32* %5
br label %50
50: ; preds = %68, %47
%51 = load i8*, i8** %4
%52 = load i32, i32* %5
%53 = sext i32 %52 to i64
%54 = getelementptr inbounds i8, i8* %51, i64 %53
%55 = load i8, i8* %54
%56 = sext i8 %55 to i32
%57 = icmp ne i32 %56, 34
br i1 %57, label %58, label %66
58: ; preds = %50
%59 = load i8*, i8** %4
%60 = load i32, i32* %5
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds i8, i8* %59, i64 %61
%63 = load i8, i8* %62
%64 = sext i8 %63 to i32
%65 = icmp ne i32 %64, 0
br label %66
66: ; preds = %58, %50
%67 = phi i1 [ false, %50 ], [ %65, %58 ]
br i1 %67, label %68, label %71
68: ; preds = %66
%69 = load i32, i32* %5
%70 = add nsw i32 %69, 1
store i32 %70, i32* %5
br label %50
71: ; preds = %66
%72 = load i8*, i8** %4
%73 = load i32, i32* %5
%74 = sext i32 %73 to i64
%75 = getelementptr inbounds i8, i8* %72, i64 %74
%76 = load i8, i8* %75
%77 = sext i8 %76 to i32
%78 = icmp eq i32 %77, 34
br i1 %78, label %79, label %82
79: ; preds = %71
%80 = load i32, i32* %5
%81 = add nsw i32 %80, 1
store i32 %81, i32* %5
br label %82
82: ; preds = %79, %71
br label %86
83: ; preds = %14
%84 = load i32, i32* %5
%85 = add nsw i32 %84, 1
store i32 %85, i32* %5
br label %86
86: ; preds = %83, %82, %46, %37, %24, %23
br label %11
87: ; preds = %11
%88 = load i32, i32* %7
store i32 %88, i32* %3
br label %89
89: ; preds = %87, %22
%90 = load i32, i32* %3
ret i32 %90
}

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