#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 */
char *get_identifier(char const **);
int /*<<< orphan*/ get_num(char const **);
int /*<<< orphan*/ skip_space(char const **);
int /*<<< orphan*/ strcpy(char *, char const *);
int /*<<< orphan*/ ugl_bytecode_constant_value(int /*<<< orphan*/);
int /*<<< orphan*/ ugl_call_proc(char *, int, int);
int /*<<< orphan*/ ugl_err(char *);
scalar_t__ ugl_is_buildin_cmd(char const *);
int /*<<< orphan*/ ugl_plog(char *, char const *);
void ugl_parse_proc(const char **s, const char *id, int is_toplevel) {
  char procname[63];
  int arg_cnt = 0;
  ugl_plog("parse procedure '%s'", id);
  strcpy(procname, id);
  if (ugl_is_buildin_cmd(id) == 0) {
    ugl_bytecode_constant_value(0);
  }
  if (**s == '(') {
    const char *name;
    for (;;) {
      (*s)++;
      skip_space(s);
      if (**s == ')')
        break;
      if ((**s >= '0' && **s <= '9') || **s == '$' || **s == '\'') {
        ugl_bytecode_constant_value(get_num(s));
      } else {
        name = get_identifier(s);
        ugl_parse_proc(s, name, 0);
      }
      arg_cnt++;
      if (**s != ',')
        break;
    }
    if (**s != ')')
      ugl_err("missing ')'");
    (*s)++;
    skip_space(s);
    ugl_call_proc(procname, is_toplevel, arg_cnt);
  } else {
    ugl_call_proc(procname, is_toplevel, 0);
  }
}


x86 assembly (clang, -O0):
<ugl_parse_proc>:
push   %rbp
mov    %rsp,%rbp
sub    $0x70,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movl   $0x0,-0x64(%rbp)
mov    -0x10(%rbp),%rsi
lea    0xe3b(%rip),%rdi
call   1070 <ugl_plog@plt>
lea    -0x60(%rbp),%rdi
mov    -0x10(%rbp),%rsi
call   1040 <strcpy@plt>
mov    -0x10(%rbp),%rdi
call   1090 <ugl_is_buildin_cmd@plt>
cmp    $0x0,%rax
jne    11f1 <ugl_parse_proc+0x51>
xor    %edi,%edi
call   10a0 <ugl_bytecode_constant_value@plt>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movsbl (%rax),%eax
cmp    $0x28,%eax
jne    1325 <ugl_parse_proc+0x185>
jmp    1209 <ugl_parse_proc+0x69>
mov    -0x8(%rbp),%rax
mov    (%rax),%rcx
add    $0x1,%rcx
mov    %rcx,(%rax)
mov    -0x8(%rbp),%rdi
call   1060 <skip_space@plt>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movsbl (%rax),%eax
cmp    $0x29,%eax
jne    1238 <ugl_parse_proc+0x98>
jmp    12db <ugl_parse_proc+0x13b>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
jl     125e <ugl_parse_proc+0xbe>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movsbl (%rax),%eax
cmp    $0x39,%eax
jle    1284 <ugl_parse_proc+0xe4>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movsbl (%rax),%eax
cmp    $0x24,%eax
je     1284 <ugl_parse_proc+0xe4>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movsbl (%rax),%eax
cmp    $0x27,%eax
jne    1299 <ugl_parse_proc+0xf9>
mov    -0x8(%rbp),%rdi
call   1050 <get_num@plt>
mov    %eax,%edi
call   10a0 <ugl_bytecode_constant_value@plt>
jmp    12b5 <ugl_parse_proc+0x115>
mov    -0x8(%rbp),%rdi
call   1080 <get_identifier@plt>
mov    %rax,-0x70(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x70(%rbp),%rsi
xor    %edx,%edx
call   10b0 <ugl_parse_proc@plt>
mov    -0x64(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x64(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movsbl (%rax),%eax
cmp    $0x2c,%eax
je     12d6 <ugl_parse_proc+0x136>
jmp    12db <ugl_parse_proc+0x13b>
jmp    1209 <ugl_parse_proc+0x69>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movsbl (%rax),%eax
cmp    $0x29,%eax
je     12fa <ugl_parse_proc+0x15a>
lea    0xd20(%rip),%rdi
call   1030 <ugl_err@plt>
mov    -0x8(%rbp),%rax
mov    (%rax),%rcx
add    $0x1,%rcx
mov    %rcx,(%rax)
mov    -0x8(%rbp),%rdi
call   1060 <skip_space@plt>
lea    -0x60(%rbp),%rdi
mov    -0x14(%rbp),%esi
mov    -0x64(%rbp),%edx
call   10c0 <ugl_call_proc@plt>
jmp    1333 <ugl_parse_proc+0x193>
lea    -0x60(%rbp),%rdi
mov    -0x14(%rbp),%esi
xor    %edx,%edx
call   10c0 <ugl_call_proc@plt>
add    $0x70,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ugl_parse_proc>:
push   %rbp
push   %r14
push   %rbx
sub    $0x40,%rsp
mov    %edx,%r14d
mov    %rsi,%rbp
mov    %rdi,%rbx
lea    0xe48(%rip),%rdi
call   1070 <ugl_plog@plt>
mov    %rsp,%rdi
mov    %rbp,%rsi
call   1040 <strcpy@plt>
mov    %rbp,%rdi
call   1090 <ugl_is_buildin_cmd@plt>
test   %rax,%rax
jne    11dc <ugl_parse_proc+0x3c>
xor    %edi,%edi
call   10a0 <ugl_bytecode_constant_value@plt>
mov    (%rbx),%rax
xor    %ebp,%ebp
cmpb   $0x28,(%rax)
jne    1279 <ugl_parse_proc+0xd9>
xor    %ebp,%ebp
nopl   0x0(%rax)
add    $0x1,%rax
mov    %rax,(%rbx)
mov    %rbx,%rdi
call   1060 <skip_space@plt>
mov    (%rbx),%rax
movzbl (%rax),%ecx
cmp    $0x29,%cl
je     126a <ugl_parse_proc+0xca>
lea    -0x30(%rcx),%eax
cmp    $0xa,%al
jb     1220 <ugl_parse_proc+0x80>
cmp    $0x27,%cl
je     1220 <ugl_parse_proc+0x80>
cmp    $0x24,%cl
jne    123f <ugl_parse_proc+0x9f>
nopl   0x0(%rax,%rax,1)
mov    %rbx,%rdi
call   1050 <get_num@plt>
mov    %eax,%edi
call   10a0 <ugl_bytecode_constant_value@plt>
add    $0x1,%ebp
mov    (%rbx),%rax
movzbl (%rax),%ecx
cmp    $0x2c,%cl
je     11f0 <ugl_parse_proc+0x50>
jmp    1256 <ugl_parse_proc+0xb6>
mov    %rbx,%rdi
call   1080 <get_identifier@plt>
mov    %rbx,%rdi
mov    %rax,%rsi
xor    %edx,%edx
call   10b0 <ugl_parse_proc@plt>
jmp    122f <ugl_parse_proc+0x8f>
cmp    $0x29,%cl
je     126a <ugl_parse_proc+0xca>
lea    0xdb3(%rip),%rdi
call   1030 <ugl_err@plt>
mov    (%rbx),%rax
add    $0x1,%rax
mov    %rax,(%rbx)
mov    %rbx,%rdi
call   1060 <skip_space@plt>
mov    %rsp,%rdi
mov    %r14d,%esi
mov    %ebp,%edx
call   10c0 <ugl_call_proc@plt>
add    $0x40,%rsp
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
@.str = [21 x i8] c"parse procedure '%s'\00"
@.str.1 = [12 x i8] c"missing ')'\00"
define void @ugl_parse_proc(i8** %0, i8* %1, i32 %2) {
%4 = alloca i8**
%5 = alloca i8*
%6 = alloca i32
%7 = alloca [63 x i8]
%8 = alloca i32
%9 = alloca i8*
store i8** %0, i8*** %4
store i8* %1, i8** %5
store i32 %2, i32* %6
store i32 0, i32* %8
%10 = load i8*, i8** %5
%11 = call i32 @ugl_plog(i8* getelementptr inbounds ([21 x i8], [21 x i8]* @.str, i64 0, i64 0), i8* %10)
%12 = getelementptr inbounds [63 x i8], [63 x i8]* %7, i64 0, i64 0
%13 = load i8*, i8** %5
%14 = call i32 @strcpy(i8* %12, i8* %13)
%15 = load i8*, i8** %5
%16 = call i64 @ugl_is_buildin_cmd(i8* %15)
%17 = icmp eq i64 %16, 0
br i1 %17, label %18, label %20
18: ; preds = %3
%19 = call i32 @ugl_bytecode_constant_value(i32 0)
br label %20
20: ; preds = %18, %3
%21 = load i8**, i8*** %4
%22 = load i8*, i8** %21
%23 = load i8, i8* %22
%24 = sext i8 %23 to i32
%25 = icmp eq i32 %24, 40
br i1 %25, label %26, label %100
26: ; preds = %20
br label %27
27: ; preds = %81, %26
%28 = load i8**, i8*** %4
%29 = load i8*, i8** %28
%30 = getelementptr inbounds i8, i8* %29, i32 1
store i8* %30, i8** %28
%31 = load i8**, i8*** %4
%32 = call i32 @skip_space(i8** %31)
%33 = load i8**, i8*** %4
%34 = load i8*, i8** %33
%35 = load i8, i8* %34
%36 = sext i8 %35 to i32
%37 = icmp eq i32 %36, 41
br i1 %37, label %38, label %39
38: ; preds = %27
br label %82
39: ; preds = %27
%40 = load i8**, i8*** %4
%41 = load i8*, i8** %40
%42 = load i8, i8* %41
%43 = sext i8 %42 to i32
%44 = icmp sge i32 %43, 48
br i1 %44, label %45, label %51
45: ; preds = %39
%46 = load i8**, i8*** %4
%47 = load i8*, i8** %46
%48 = load i8, i8* %47
%49 = sext i8 %48 to i32
%50 = icmp sle i32 %49, 57
br i1 %50, label %63, label %51
51: ; preds = %45, %39
%52 = load i8**, i8*** %4
%53 = load i8*, i8** %52
%54 = load i8, i8* %53
%55 = sext i8 %54 to i32
%56 = icmp eq i32 %55, 36
br i1 %56, label %63, label %57
57: ; preds = %51
%58 = load i8**, i8*** %4
%59 = load i8*, i8** %58
%60 = load i8, i8* %59
%61 = sext i8 %60 to i32
%62 = icmp eq i32 %61, 39
br i1 %62, label %63, label %67
63: ; preds = %57, %51, %45
%64 = load i8**, i8*** %4
%65 = call i32 @get_num(i8** %64)
%66 = call i32 @ugl_bytecode_constant_value(i32 %65)
br label %72
67: ; preds = %57
%68 = load i8**, i8*** %4
%69 = call i8* @get_identifier(i8** %68)
store i8* %69, i8** %9
%70 = load i8**, i8*** %4
%71 = load i8*, i8** %9
br label %72
72: ; preds = %67, %63
%73 = load i32, i32* %8
%74 = add nsw i32 %73, 1
store i32 %74, i32* %8
%75 = load i8**, i8*** %4
%76 = load i8*, i8** %75
%77 = load i8, i8* %76
%78 = sext i8 %77 to i32
%79 = icmp ne i32 %78, 44
br i1 %79, label %80, label %81
80: ; preds = %72
br label %82
81: ; preds = %72
br label %27
82: ; preds = %80, %38
%83 = load i8**, i8*** %4
%84 = load i8*, i8** %83
%85 = load i8, i8* %84
%86 = sext i8 %85 to i32
%87 = icmp ne i32 %86, 41
br i1 %87, label %88, label %90
88: ; preds = %82
%89 = call i32 @ugl_err(i8* getelementptr inbounds ([12 x i8], [12 x i8]* @.str.1, i64 0, i64 0))
br label %90
90: ; preds = %88, %82
%91 = load i8**, i8*** %4
%92 = load i8*, i8** %91
%93 = getelementptr inbounds i8, i8* %92, i32 1
store i8* %93, i8** %91
%94 = load i8**, i8*** %4
%95 = call i32 @skip_space(i8** %94)
%96 = getelementptr inbounds [63 x i8], [63 x i8]* %7, i64 0, i64 0
%97 = load i32, i32* %6
%98 = load i32, i32* %8
%99 = call i32 @ugl_call_proc(i8* %96, i32 %97, i32 %98)
br label %104
100: ; preds = %20
%101 = getelementptr inbounds [63 x i8], [63 x i8]* %7, i64 0, i64 0
%102 = load i32, i32* %6
%103 = call i32 @ugl_call_proc(i8* %101, i32 %102, i32 0)
br label %104
104: ; preds = %100, %90
ret void
}

LLVM IR (-O2):
@.str = [21 x i8] c"parse procedure '%s'\00"
@.str.1 = [12 x i8] c"missing ')'\00"
define void @ugl_parse_proc(i8** %0, i8* %1, i32 %2) {
%4 = alloca [63 x i8]
%5 = getelementptr inbounds [63 x i8], [63 x i8]* %4, i64 0, i64 0
%6 = tail call i32 @ugl_plog(i8* getelementptr inbounds ([21 x i8], [21 x i8]* @.str, i64 0, i64 0), i8* %1)
%7 = call i32 @strcpy(i8* %5, i8* %1)
%8 = call i64 @ugl_is_buildin_cmd(i8* %1)
%9 = icmp eq i64 %8, 0
br i1 %9, label %10, label %12
10: ; preds = %3
%11 = call i32 @ugl_bytecode_constant_value(i32 0)
br label %12
12: ; preds = %10, %3
%13 = load i8*, i8** %0
%14 = load i8, i8* %13
%15 = icmp eq i8 %14, 40
br i1 %15, label %16, label %45
16: ; preds = %12, %33
%17 = phi i8* [ %35, %33 ], [ %13, %12 ]
%18 = phi i32 [ %34, %33 ], [ 0, %12 ]
%19 = getelementptr inbounds i8, i8* %17, i64 1
store i8* %19, i8** %0
%20 = call i32 @skip_space(i8** %0)
%21 = load i8*, i8** %0
%22 = load i8, i8* %21
%23 = icmp eq i8 %22, 41
br i1 %23, label %40, label %24
24: ; preds = %16
%25 = add i8 %22, -48
%26 = icmp ult i8 %25, 10
br i1 %26, label %28, label %27
27: ; preds = %24
switch i8 %22, label %31 [
i8 36, label %28
i8 39, label %28
]
28: ; preds = %27, %27, %24
%29 = call i32 @get_num(i8** %0)
%30 = call i32 @ugl_bytecode_constant_value(i32 %29)
br label %33
31: ; preds = %27
%32 = call i8* @get_identifier(i8** %0)
br label %33
33: ; preds = %31, %28
%34 = add nuw nsw i32 %18, 1
%35 = load i8*, i8** %0
%36 = load i8, i8* %35
switch i8 %36, label %37 [
i8 44, label %16
i8 41, label %40
]
37: ; preds = %33
%38 = call i32 @ugl_err(i8* getelementptr inbounds ([12 x i8], [12 x i8]* @.str.1, i64 0, i64 0))
%39 = load i8*, i8** %0
br label %40
40: ; preds = %16, %33, %37
%41 = phi i32 [ %34, %37 ], [ %18, %16 ], [ %34, %33 ]
%42 = phi i8* [ %39, %37 ], [ %21, %16 ], [ %35, %33 ]
%43 = getelementptr inbounds i8, i8* %42, i64 1
store i8* %43, i8** %0
%44 = call i32 @skip_space(i8** %0)
br label %45
45: ; preds = %12, %40
%46 = phi i32 [ %41, %40 ], [ 0, %12 ]
%47 = call i32 @ugl_call_proc(i8* %5, i32 %2, i32 %46)
ret void
}