#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ lua_arg_check(int, char *);
char *lua_check_string(int, char *);
scalar_t__ lua_getparam(int);
int lua_opt_number(int, int, char *);
int /*<<< orphan*/ lua_pushnumber(int);
char *match(char *, char *, int /*<<< orphan*/);
int /*<<< orphan*/ push_captures();
int strlen(char *);
int /*<<< orphan*/ *strpbrk(char *, char *);
char *strstr(char *, char *);
void str_find(void) {
  char *s = lua_check_string(1, "strfind");
  char *p = lua_check_string(2, "strfind");
  long init = lua_opt_number(3, 1, "strfind") - 1;
  lua_arg_check(0 <= init && init <= strlen(s), "strfind");
  if (lua_getparam(4) != 0 || strpbrk(p, "^$*?.([%") == NULL) {
    char *s2 = strstr(s + init, p);
    if (s2) {
      lua_pushnumber(s2 - s + 1);
      lua_pushnumber(s2 - s + strlen(p));
    }
  } else {
    int anchor = (*p == '^') ? (p++, 1) : 0;
    char *s1 = s + init;
    do {
      char *res;
      if ((res = match(s1, p, 0)) != NULL) {
        lua_pushnumber(s1 - s + 1);
        lua_pushnumber(res - s);
        push_captures();
        return;
      }
    } while (*s1++ && !anchor);
  }
}


x86 assembly (clang, -O0):
<str_find>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    $0x1,%edi
lea    0xe4c(%rip),%rsi
call   1030 <lua_check_string@plt>
mov    %rax,-0x8(%rbp)
mov    $0x2,%edi
lea    0xe37(%rip),%rsi
call   1030 <lua_check_string@plt>
mov    %rax,-0x10(%rbp)
mov    $0x3,%edi
mov    $0x1,%esi
lea    0xe1d(%rip),%rdx
call   1050 <lua_opt_number@plt>
sub    $0x1,%eax
cltq
mov    %rax,-0x18(%rbp)
xor    %eax,%eax
xor    %ecx,%ecx
cmp    -0x18(%rbp),%rcx
mov    %al,-0x39(%rbp)
jg     1225 <str_find+0x85>
mov    -0x18(%rbp),%rax
mov    %rax,-0x48(%rbp)
mov    -0x8(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,%ecx
mov    -0x48(%rbp),%rax
movslq %ecx,%rcx
cmp    %rcx,%rax
setle  %al
mov    %al,-0x39(%rbp)
mov    -0x39(%rbp),%al
and    $0x1,%al
movzbl %al,%edi
lea    0xdcc(%rip),%rsi
call   10b0 <lua_arg_check@plt>
mov    $0x4,%edi
call   10a0 <lua_getparam@plt>
cmp    $0x0,%rax
jne    1267 <str_find+0xc7>
mov    -0x10(%rbp),%rdi
lea    0xdb0(%rip),%rsi
call   1080 <strpbrk@plt>
cmp    $0x0,%rax
jne    12cd <str_find+0x12d>
mov    -0x8(%rbp),%rdi
add    -0x18(%rbp),%rdi
mov    -0x10(%rbp),%rsi
call   10c0 <strstr@plt>
mov    %rax,-0x20(%rbp)
cmpq   $0x0,-0x20(%rbp)
je     12c8 <str_find+0x128>
mov    -0x20(%rbp),%rax
mov    -0x8(%rbp),%rcx
sub    %rcx,%rax
add    $0x1,%rax
mov    %eax,%edi
call   1060 <lua_pushnumber@plt>
mov    -0x20(%rbp),%rax
mov    -0x8(%rbp),%rcx
sub    %rcx,%rax
mov    %rax,-0x50(%rbp)
mov    -0x10(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,%ecx
mov    -0x50(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %eax,%edi
call   1060 <lua_pushnumber@plt>
jmp    13a4 <str_find+0x204>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5e,%eax
jne    12f6 <str_find+0x156>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
mov    $0x1,%eax
mov    %eax,-0x54(%rbp)
jmp    1300 <str_find+0x160>
xor    %eax,%eax
mov    %eax,-0x54(%rbp)
jmp    1300 <str_find+0x160>
mov    -0x54(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x8(%rbp),%rax
add    -0x18(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rdi
mov    -0x10(%rbp),%rsi
xor    %edx,%edx
call   1090 <match@plt>
mov    %rax,-0x38(%rbp)
cmp    $0x0,%rax
je     1363 <str_find+0x1c3>
mov    -0x30(%rbp),%rax
mov    -0x8(%rbp),%rcx
sub    %rcx,%rax
add    $0x1,%rax
mov    %eax,%edi
call   1060 <lua_pushnumber@plt>
mov    -0x38(%rbp),%rax
mov    -0x8(%rbp),%rcx
sub    %rcx,%rax
mov    %eax,%edi
call   1060 <lua_pushnumber@plt>
mov    $0x0,%al
call   1070 <push_captures@plt>
jmp    13a4 <str_find+0x204>
jmp    1368 <str_find+0x1c8>
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x30(%rbp)
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x55(%rbp)
je     1394 <str_find+0x1f4>
cmpl   $0x0,-0x24(%rbp)
setne  %al
xor    $0xff,%al
mov    %al,-0x55(%rbp)
mov    -0x55(%rbp),%al
test   $0x1,%al
jne    1312 <str_find+0x172>
jmp    13a4 <str_find+0x204>
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<str_find>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
lea    0xe4e(%rip),%rbx
mov    $0x1,%edi
mov    %rbx,%rsi
call   1030 <lua_check_string@plt>
mov    %rax,%r14
mov    $0x2,%edi
mov    %rbx,%rsi
call   1030 <lua_check_string@plt>
mov    %rax,%r15
mov    $0x3,%edi
mov    $0x1,%esi
mov    %rbx,%rdx
call   1050 <lua_opt_number@plt>
mov    %eax,%r12d
lea    -0x1(%r12),%ebx
test   %eax,%eax
jle    1202 <str_find+0x62>
mov    %r14,%rdi
call   1040 <strlen@plt>
xor    %edi,%edi
cmp    %eax,%ebx
setle  %dil
jmp    1204 <str_find+0x64>
xor    %edi,%edi
movslq %ebx,%r13
lea    0xdf2(%rip),%rsi
call   10b0 <lua_arg_check@plt>
mov    $0x4,%edi
call   10a0 <lua_getparam@plt>
test   %rax,%rax
je     1266 <str_find+0xc6>
mov    %r14,%rdi
add    %r13,%rdi
mov    %r15,%rsi
call   10c0 <strstr@plt>
test   %rax,%rax
je     12b5 <str_find+0x115>
mov    %rax,%rbx
sub    %r14d,%ebx
lea    0x1(%rbx),%edi
call   1060 <lua_pushnumber@plt>
mov    %r15,%rdi
call   1040 <strlen@plt>
add    %eax,%ebx
mov    %ebx,%edi
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1060 <lua_pushnumber@plt>
lea    0xd9b(%rip),%rsi
mov    %r15,%rdi
call   1080 <strpbrk@plt>
test   %rax,%rax
je     1222 <str_find+0x82>
xor    %eax,%eax
cmpb   $0x5e,(%r15)
setne  %bpl
sete   %al
add    %rax,%r15
mov    %r14,%rbx
add    %r13,%rbx
mov    %rbx,%rdi
mov    %r15,%rsi
xor    %edx,%edx
call   1090 <match@plt>
test   %rax,%rax
jne    12c4 <str_find+0x124>
cmpb   $0x0,(%rbx)
lea    0x1(%rbx),%rbx
setne  %al
add    $0x1,%r12d
test   %bpl,%al
jne    1290 <str_find+0xf0>
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
mov    %rax,%r13
mov    %r12d,%edi
call   1060 <lua_pushnumber@plt>
sub    %r14d,%r13d
mov    %r13d,%edi
call   1060 <lua_pushnumber@plt>
xor    %eax,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1070 <push_captures@plt>

LLVM IR (-O0):
@.str = [8 x i8] c"strfind\00"
@.str.1 = [9 x i8] c"^$*?.([%\00"
define void @str_find() {
%1 = alloca i8*
%2 = alloca i8*
%3 = alloca i64
%4 = alloca i8*
%5 = alloca i32
%6 = alloca i8*
%7 = alloca i8*
%8 = call i8* @lua_check_string(i32 1, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0))
store i8* %8, i8** %1
%9 = call i8* @lua_check_string(i32 2, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0))
store i8* %9, i8** %2
%10 = call i32 @lua_opt_number(i32 3, i32 1, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0))
%11 = sub nsw i32 %10, 1
%12 = sext i32 %11 to i64
store i64 %12, i64* %3
%13 = load i64, i64* %3
%14 = icmp sle i64 0, %13
br i1 %14, label %15, label %21
15: ; preds = %0
%16 = load i64, i64* %3
%17 = load i8*, i8** %1
%18 = call i32 @strlen(i8* %17)
%19 = sext i32 %18 to i64
%20 = icmp sle i64 %16, %19
br label %21
21: ; preds = %15, %0
%22 = phi i1 [ false, %0 ], [ %20, %15 ]
%23 = zext i1 %22 to i32
%24 = call i32 @lua_arg_check(i32 %23, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0))
%25 = call i64 @lua_getparam(i32 4)
%26 = icmp ne i64 %25, 0
br i1 %26, label %31, label %27
27: ; preds = %21
%28 = load i8*, i8** %2
%29 = call i32* @strpbrk(i8* %28, i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.1, i64 0, i64 0))
%30 = icmp eq i32* %29, null
br i1 %30, label %31, label %60
31: ; preds = %27, %21
%32 = load i8*, i8** %1
%33 = load i64, i64* %3
%34 = getelementptr inbounds i8, i8* %32, i64 %33
%35 = load i8*, i8** %2
%36 = call i8* @strstr(i8* %34, i8* %35)
store i8* %36, i8** %4
%37 = load i8*, i8** %4
%38 = icmp ne i8* %37, null
br i1 %38, label %39, label %59
39: ; preds = %31
%40 = load i8*, i8** %4
%41 = load i8*, i8** %1
%42 = ptrtoint i8* %40 to i64
%43 = ptrtoint i8* %41 to i64
%44 = sub i64 %42, %43
%45 = add nsw i64 %44, 1
%46 = trunc i64 %45 to i32
%47 = call i32 @lua_pushnumber(i32 %46)
%48 = load i8*, i8** %4
%49 = load i8*, i8** %1
%50 = ptrtoint i8* %48 to i64
%51 = ptrtoint i8* %49 to i64
%52 = sub i64 %50, %51
%53 = load i8*, i8** %2
%54 = call i32 @strlen(i8* %53)
%55 = sext i32 %54 to i64
%56 = add nsw i64 %52, %55
%57 = trunc i64 %56 to i32
%58 = call i32 @lua_pushnumber(i32 %57)
br label %59
59: ; preds = %39, %31
br label %110
60: ; preds = %27
%61 = load i8*, i8** %2
%62 = load i8, i8* %61
%63 = sext i8 %62 to i32
%64 = icmp eq i32 %63, 94
br i1 %64, label %65, label %68
65: ; preds = %60
%66 = load i8*, i8** %2
%67 = getelementptr inbounds i8, i8* %66, i32 1
store i8* %67, i8** %2
br label %69
68: ; preds = %60
br label %69
69: ; preds = %68, %65
%70 = phi i32 [ 1, %65 ], [ 0, %68 ]
store i32 %70, i32* %5
%71 = load i8*, i8** %1
%72 = load i64, i64* %3
%73 = getelementptr inbounds i8, i8* %71, i64 %72
store i8* %73, i8** %6
br label %74
74: ; preds = %107, %69
%75 = load i8*, i8** %6
%76 = load i8*, i8** %2
%77 = call i8* @match(i8* %75, i8* %76, i32 0)
store i8* %77, i8** %7
%78 = icmp ne i8* %77, null
br i1 %78, label %79, label %96
79: ; preds = %74
%80 = load i8*, i8** %6
%81 = load i8*, i8** %1
%82 = ptrtoint i8* %80 to i64
%83 = ptrtoint i8* %81 to i64
%84 = sub i64 %82, %83
%85 = add nsw i64 %84, 1
%86 = trunc i64 %85 to i32
%87 = call i32 @lua_pushnumber(i32 %86)
%88 = load i8*, i8** %7
%89 = load i8*, i8** %1
%90 = ptrtoint i8* %88 to i64
%91 = ptrtoint i8* %89 to i64
%92 = sub i64 %90, %91
%93 = trunc i64 %92 to i32
%94 = call i32 @lua_pushnumber(i32 %93)
%95 = call i32 (...) @push_captures()
br label %110
96: ; preds = %74
br label %97
97: ; preds = %96
%98 = load i8*, i8** %6
%99 = getelementptr inbounds i8, i8* %98, i32 1
store i8* %99, i8** %6
%100 = load i8, i8* %98
%101 = sext i8 %100 to i32
%102 = icmp ne i32 %101, 0
br i1 %102, label %103, label %107
103: ; preds = %97
%104 = load i32, i32* %5
%105 = icmp ne i32 %104, 0
%106 = xor i1 %105, true
br label %107
107: ; preds = %103, %97
%108 = phi i1 [ false, %97 ], [ %106, %103 ]
br i1 %108, label %74, label %109
109: ; preds = %107
br label %110
110: ; preds = %79, %109, %59
ret void
}

LLVM IR (-O2):
@.str = [8 x i8] c"strfind\00"
@.str.1 = [9 x i8] c"^$*?.([%\00"
define void @str_find() {
%1 = tail call i8* @lua_check_string(i32 1, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0))
%2 = tail call i8* @lua_check_string(i32 2, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0))
%3 = tail call i32 @lua_opt_number(i32 3, i32 1, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0))
%4 = add nsw i32 %3, -1
%5 = sext i32 %4 to i64
%6 = icmp sgt i32 %3, 0
br i1 %6, label %7, label %11
7: ; preds = %0
%8 = tail call i32 @strlen(i8* %1)
%9 = icmp sle i32 %4, %8
%10 = zext i1 %9 to i32
br label %11
11: ; preds = %7, %0
%12 = phi i32 [ 0, %0 ], [ %10, %7 ]
%13 = tail call i32 @lua_arg_check(i32 %12, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0))
%14 = tail call i64 @lua_getparam(i32 4)
%15 = icmp eq i64 %14, 0
br i1 %15, label %16, label %19
16: ; preds = %11
%17 = tail call i32* @strpbrk(i8* %2, i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.1, i64 0, i64 0))
%18 = icmp eq i32* %17, null
br i1 %18, label %19, label %33
19: ; preds = %16, %11
%20 = getelementptr inbounds i8, i8* %1, i64 %5
%21 = tail call i8* @strstr(i8* dereferenceable(1) %20, i8* dereferenceable(1) %2)
%22 = icmp eq i8* %21, null
br i1 %22, label %61, label %23
23: ; preds = %19
%24 = ptrtoint i8* %21 to i64
%25 = ptrtoint i8* %1 to i64
%26 = sub i64 %24, %25
%27 = trunc i64 %26 to i32
%28 = add i32 %27, 1
%29 = tail call i32 @lua_pushnumber(i32 %28)
%30 = tail call i32 @strlen(i8* %2)
%31 = add i32 %30, %27
%32 = tail call i32 @lua_pushnumber(i32 %31)
br label %61
33: ; preds = %16
%34 = load i8, i8* %2
%35 = icmp eq i8 %34, 94
%36 = zext i1 %35 to i64
%37 = getelementptr i8, i8* %2, i64 %36
%38 = xor i1 %35, true
%39 = getelementptr inbounds i8, i8* %1, i64 %5
br label %40
40: ; preds = %56, %33
%41 = phi i8* [ %39, %33 ], [ %57, %56 ]
%42 = tail call i8* @match(i8* %41, i8* %37, i32 0)
%43 = icmp eq i8* %42, null
br i1 %43, label %56, label %44
44: ; preds = %40
%45 = ptrtoint i8* %41 to i64
%46 = ptrtoint i8* %1 to i64
%47 = sub i64 %45, %46
%48 = trunc i64 %47 to i32
%49 = add i32 %48, 1
%50 = tail call i32 @lua_pushnumber(i32 %49)
%51 = ptrtoint i8* %42 to i64
%52 = sub i64 %51, %46
%53 = trunc i64 %52 to i32
%54 = tail call i32 @lua_pushnumber(i32 %53)
%55 = tail call i32 (...) @push_captures()
br label %61
56: ; preds = %40
%57 = getelementptr inbounds i8, i8* %41, i64 1
%58 = load i8, i8* %41
%59 = icmp ne i8 %58, 0
%60 = select i1 %59, i1 %38, i1 false
br i1 %60, label %40, label %61
61: ; preds = %56, %44, %23, %19
ret void
}