// File: /workspace/github_c_makefile_star2_O3/aquaxis[P]synverll/src/parser.c
// Function: parser_c_source
int parser_c_source()
{
    char *token;
    TOKEN_ORDER *token_order_now, *token_order_next;
//    PARSER_TREE *now_parser_tree;
    int level = 0;
    int procvalid = 0;
//    int iflevel = 0;
    int i, max, leng;

	token = calloc(STR_MAX, 1);

    parser_level ++;

    printf(" -> Parser for C Source\n");

    while(!read_token(token)){
        insert_parser_tree(token);
        if(!strcmp(token,"#")){
            // 宣言文の処理
            // 宣言文には以下のものがある
            //  #define     : 定義宣言
            //  #include    : インクルードファイル宣言
            read_token(token);
            if(!strcmp(token,"define")){
                // #defineの取得
                // #defineは基本的に取得しない
                // 一行を読み込む
                parser_tree_current->flag = PARSER_FLAG_DEFINE;
                parser_tree_current->level = parser_level;
				read_token(token);
                strcat(parser_tree_current->define.name,token);
                while(strcmp(token,"\n")){
					read_token(token);
					strcat(parser_tree_current->define.value,token);
				}
            }else if(!strcmp(token,"include")){
                // #includeの取得
                // #inculdeの場合、標準ヘッダやシステムで提供されているヘッダは読み込まず、ユーザー定義のインクルードファイルのみ読み込む
                read_token(token);
                if(!strcmp(token,"<")){
                    // 標準インクルード・ヘッダ
                    parser_tree_current->flag = PARSER_FLAG_INCLUDE_SYS;
                    parser_tree_current->level = parser_level;
                    do{
                        read_token(token);
                        if(strcmp(token,">")){
                            strcat(parser_tree_current->include.filename,token);
                        }
                    }while(strcmp(token,">"));
                }else{
                    // ユーザー・インクルード・ヘッダ
                    // ユーザー・インクルード・ヘッダはソースの一部として抜き出し、追加する
                    parser_tree_current->flag   = PARSER_FLAG_INCLUDE_USER;
                    parser_tree_current->level  = parser_level;
                    strcat(parser_tree_current->include.filename, token);

                    //
                    max = strlen(token);
                    for(i=1;i<max-1;i++){
                        token[i-1] = token[i];
                    }
                    token[i-1] = 0x00;
//                    printf(" - include file: %s\n",token);

                    token_order_now     = get_token_order_prev();
                    token_order_next    = get_token_order_current();
                    set_token_order_current(token_order_now);
                    // ユーザー・インクルード・ヘッダの読み込み
                    read_file(token);
                    set_token_order_current_next(token_order_next);
                    set_token_order_current(token_order_now->next_ptr);
                }
            }
        }
		else if((level == 0) && !strcmp(token,"\n")){
			// 行頭で改行コードなら無視する
		}
        else{
			// この時点でフラグは確定しない
            parser_tree_current->flag = PARSER_FLAG_NOP;
            parser_tree_current->level = parser_level;
//            leng = strlen(token) + 1;
            parser_tree_current->line.body = charalloc(token);
//            memset(parser_tree_current->line.body, 0, leng);
//            strcat(parser_tree_current->line.body, token);
			while(1){
                read_token(token);
                if(token == NULL) break;
				leng = strlen(parser_tree_current->line.body) + strlen(token) + 2;
                parser_tree_current->line.body = realloc(parser_tree_current->line.body, leng);
				parser_tree_current->line.body[leng-1] = 0;
				strcat(parser_tree_current->line.body, " ");
				strcat(parser_tree_current->line.body, token);
                if(!strcmp(token,"(")){
					if(level == 0){
						// 関数検出（引数宣言開始）
						procvalid = 1;
					}
				}else if(!strcmp(token,")")){
					// 関数：引数宣言終了
				}else if(!strcmp(token,"{")){
					level++;
				}else if(!strcmp(token,"}")){
					level--;
					if((procvalid == 1) && (level == 0)){
						// 関数確定
						parser_tree_current->flag = PARSER_FLAG_PROCESS;
						break;
					}
				}else if(!strcmp(token,";")){
					if(level == 0){
						if(procvalid == 0){
							// 通常文として確定
							parser_tree_current->flag = PARSER_FLAG_LINE;
						}else{
							// 関数宣言と判断する
							parser_tree_current->flag = PARSER_FLAG_NOP;
						}
							break;
					}
				}
			}
        }
    }
    parser_level --;

    free(token);

    return 0;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movl $0x400, %edi            # imm = 0x400
movl $0x1, %esi
callq 0x10f0
movq %rax, %rbx
incl 0x1267e(%rip)           # 0x14108
leaq 0xc64f(%rip), %rdi      # 0xe0e0
callq 0x1070
movq %rbx, %rdi
callq 0xc95d
testl %eax, %eax
jne 0x1ea0
movl $0xfffffffe, %r12d      # imm = 0xFFFFFFFE
leaq 0x1(%rbx), %rax
movq %rax, 0x8(%rsp)
leaq 0xc5d8(%rip), %r15      # 0xe094
leaq 0xe4ff(%rip), %r13      # 0xffc2
movl $0x420, %ebp            # imm = 0x420
leaq 0xe6fd(%rip), %r14      # 0x101cc
movl $0x0, 0x4(%rsp)
movq %rbx, %rdi
callq 0x1434
movq %rbx, %rdi
movq %r15, %rsi
callq 0x1100
movq %rbx, %rdi
testl %eax, %eax
je 0x1c75
movq %r13, %rsi
callq 0x1100
testl %eax, %eax
je 0x1e90
movq 0x1260c(%rip), %rax     # 0x14118
movl $0x0, 0x10(%rax)
movl 0x125ef(%rip), %ecx     # 0x14108
movl %ecx, 0x14(%rax)
movq %rbx, %rdi
callq 0x137c
movq 0x125ed(%rip), %rcx     # 0x14118
movq %rax, 0x6c50(%rcx)
movq %rbx, %rdi
callq 0xc95d
testq %rbx, %rbx
je 0x1e90
xorl %ebp, %ebp
movq 0x125cc(%rip), %rax     # 0x14118
movq 0x6c50(%rax), %r13
movq %r13, %rdi
callq 0x1090
movq %rax, %r14
movq %rbx, %rdi
callq 0x1090
movq %rax, %r15
addl %r14d, %r15d
shlq $0x20, %r15
movabsq $0x200000000, %rax      # imm = 0x200000000
leaq (%r15,%rax), %rsi
sarq $0x20, %rsi
movq %r13, %rdi
callq 0x1140
movq 0x12587(%rip), %rcx     # 0x14118
movq %rax, 0x6c50(%rcx)
leaq (%r12,%r15), %rdx
addq $0x2, %rdx
sarq $0x20, %rdx
movb $0x0, (%rax,%rdx)
movq 0x6c50(%rcx), %r14
movq %r14, %rdi
callq 0x1090
movw $0x20, (%r14,%rax)
movq 0x12553(%rip), %rax     # 0x14118
movq 0x6c50(%rax), %rdi
movq %rbx, %rsi
callq 0x1190
movq %rbx, %rdi
leaq 0xc4c9(%rip), %rsi      # 0xe0a7
callq 0x1100
testl %eax, %eax
je 0x1c3f
movq %rbx, %rdi
leaq 0xcd9f(%rip), %rsi      # 0xe990
callq 0x1100
testl %eax, %eax
leaq 0xe5cd(%rip), %r14      # 0x101cc
je 0x1c68
movq %rbx, %rdi
leaq 0xc49e(%rip), %rsi      # 0xe0a9
callq 0x1100
testl %eax, %eax
je 0x1c53
movq %rbx, %rdi
leaq 0xc48d(%rip), %rsi      # 0xe0ab
callq 0x1100
testl %eax, %eax
je 0x1c57
movq %rbx, %rdi
leaq 0xda4e(%rip), %rsi      # 0xf67f
callq 0x1100
orl %ebp, %eax
jne 0x1c68
jmp 0x1d75
testl %ebp, %ebp
movl $0x1, %eax
movl 0x4(%rsp), %ecx
cmovel %eax, %ecx
movl %ecx, 0x4(%rsp)
jmp 0x1c68
incl %ebp
jmp 0x1c68
decl %ebp
movl 0x4(%rsp), %eax
xorl $0x1, %eax
orl %ebp, %eax
je 0x1e07
movq %rbx, %rdi
callq 0xc95d
jmp 0x1b45
callq 0xc95d
movq %rbx, %rdi
leaq 0xc412(%rip), %rsi      # 0xe096
callq 0x1100
testl %eax, %eax
je 0x1dae
movq %rbx, %rdi
leaq 0xc402(%rip), %rsi      # 0xe09d
callq 0x1100
testl %eax, %eax
jne 0x1e90
movq %rbx, %rdi
callq 0xc95d
movq %rbx, %rdi
leaq 0xc3eb(%rip), %rsi      # 0xe0a5
callq 0x1100
movq 0x12452(%rip), %rdi     # 0x14118
testl %eax, %eax
je 0x1e43
movl $0x2, 0x10(%rdi)
movl 0x1242d(%rip), %eax     # 0x14108
movl %eax, 0x14(%rdi)
addq $0x820, %rdi            # imm = 0x820
movq %rbx, %rsi
callq 0x1190
movq %rbx, %rdi
callq 0x1090
movl $0x1, %ecx
cmpl $0x3, %eax
jl 0x1d2c
movl $0xfffffffe, %r15d      # imm = 0xFFFFFFFE
leal (%r15,%rax), %edx
movq %rbx, %rdi
movq 0x8(%rsp), %rsi
movq %rax, %r14
callq 0x1150
movl $0xfffffffe, %r12d      # imm = 0xFFFFFFFE
leal (%r15,%r14), %ecx
incl %ecx
leaq 0xe4a0(%rip), %r14      # 0x101cc
movb $0x0, -0x1(%rbx,%rcx)
xorl %eax, %eax
callq 0xc9ab
movq %rax, %r15
xorl %eax, %eax
callq 0xc99b
movq %rax, 0x10(%rsp)
movq %r15, %rdi
callq 0xc9b3
movq %rbx, %rdi
callq 0xc9d7
movq 0x10(%rsp), %rdi
callq 0xc9bd
movq (%r15), %rdi
callq 0xc9b3
leaq 0xc324(%rip), %r15      # 0xe094
jmp 0x1e90
movq 0x1239c(%rip), %rax     # 0x14118
cmpl $0x0, 0x4(%rsp)
leaq 0xc30c(%rip), %r15      # 0xe094
leaq 0xe233(%rip), %r13      # 0xffc2
movl $0x420, %ebp            # imm = 0x420
je 0x1e32
movl $0x0, 0x10(%rax)
movl $0x1, 0x4(%rsp)
jmp 0x1e90
movq 0x12363(%rip), %rax     # 0x14118
movl $0x3, 0x10(%rax)
movl 0x12346(%rip), %ecx     # 0x14108
movl %ecx, 0x14(%rax)
movq %rbx, %rdi
callq 0xc95d
movq 0x12344(%rip), %rdi     # 0x14118
addq $0x20, %rdi
movq %rbx, %rsi
callq 0x1190
movq %rbx, %rdi
movq %r13, %rsi
callq 0x1100
testl %eax, %eax
je 0x1e90
movq %rbx, %rdi
callq 0xc95d
movq 0x12316(%rip), %rdi     # 0x14118
addq %rbp, %rdi
jmp 0x1dd8
movq 0x1230a(%rip), %rax     # 0x14118
movl $0x19, 0x10(%rax)
movl $0x1, 0x4(%rsp)
leaq 0xc270(%rip), %r15      # 0xe094
leaq 0xe197(%rip), %r13      # 0xffc2
movl $0x420, %ebp            # imm = 0x420
jmp 0x1e90
movl $0x3d, 0x10(%rax)
movl $0x0, 0x4(%rsp)
jmp 0x1e90
movl $0x1, 0x10(%rdi)
movl 0x122b8(%rip), %eax     # 0x14108
movl %eax, 0x14(%rdi)
movq %rbx, %rdi
callq 0xc95d
movq %rbx, %rdi
movq %r14, %rsi
callq 0x1100
testl %eax, %eax
je 0x1e81
movq 0x122a7(%rip), %rdi     # 0x14118
movl $0x820, %eax            # imm = 0x820
addq %rax, %rdi
movq %rbx, %rsi
callq 0x1190
movq %rbx, %rdi
movq %r14, %rsi
callq 0x1100
testl %eax, %eax
jne 0x1e53
movq %rbx, %rdi
callq 0xc95d
testl %eax, %eax
je 0x1ad7
decl 0x12262(%rip)           # 0x14108
movq %rbx, %rdi
callq 0x1030
xorl %eax, %eax
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
nop