Gwarf/inter/interpreter.c

#include <stdio.h>
#include <stdlib.h>
#include <math.h>

#include "interpreter.h"

double log_(double base, double num){  // 自己定义一次log
    return log(num) / log(base);
}

double sqrt_(double base, double num){  // 定义根号sqrt
    return pow(base, (1 / num));
}

bool is_space(GWARF_result *tmp){  // 使用指针是不想复制数据
    if(tmp->u == cycle_break || tmp->u == code_broken || tmp->u == cycle_continue || tmp->u == code_continued || 
            tmp->u == cycle_restart || tmp->u == code_restarted || tmp->u == code_rego || tmp->u == code_rewent){
        return true;
    }
    if(tmp->u == return_def && tmp->return_times != 0){  // return def
        return true;
    }
    return false;
}

bool is_error(GWARF_result *tmp){  // 判断是否为error
    if(tmp->u == error){
        return true;
    }
    return false;
}

bool to_bool(GWARF_value value, inter *global_inter){
    double bool_double = 1;  // if bool_double == 0则返回false其他返回true
    if(value.type == OBJECT_value){  // 调用左add方法
        bool_double = to_bool(get__bool__(&value, NULL, global_inter).value, global_inter);  // to_bool不会引起错误(理论上不存在没有__bool__的情况，若存在也无视)
    }
    else{
        if(value.type == INT_value || value.type == BOOL_value){
            bool_double = (double)value.value.int_value;
        }
        else if(value.type == NUMBER_value){
            bool_double = value.value.double_value;
        }
        else if(value.type == STRING_value){
            bool_double = (double)strlen(value.value.string);
        }
        else if(value.type == NULL_value){
            bool_double = 0;
        }
    }
    // 返回值
    if(bool_double){
        return true;
    }
    else{
        return false;
    }
}


GWARF_result read_statement(statement *the_statement, var_list *the_var, var_list *the_login_var, var_list *out_var, int key_token, inter *global_inter){  // read the statement list with case to run by func
    if(the_login_var == NULL){
        the_login_var = the_var;
    }
    if(out_var == NULL){
        out_var = the_var;
    }
    GWARF_result return_value = GWARF_result_reset;
    return_value.u = statement_end;  // 正常设置[正常语句结束]
    return_value.value.type = NULL_value;  // 默认设置
    return_value.value.value.int_value = 0;  // 默认设置
    switch (the_statement->type)
    {
        case operation:  // 表达式运算
            fputs("----code----\n", inter_info);
            return_value = operation_func(the_statement, the_var, the_login_var, global_inter);
            if(return_value.value.type == INT_value){
                fprintf(inter_info, "operation value = %d\n", return_value.value.value.int_value);
            }
            else if(return_value.value.type == BOOL_value){
                if(return_value.value.value.bool_value){
                    fprintf(inter_info, "operation value = true\n");
                }
                else{
                    fprintf(inter_info, "operation value = false\n");
                } 
            }
            else if(return_value.value.type == NUMBER_value){
                fprintf(inter_info, "operation value = %f\n", return_value.value.value.double_value);
            }
            else if(return_value.value.type == NULL_value){
                fprintf(inter_info, "operation value = None\n");
            }
            else if(return_value.value.type == STRING_value){
                fprintf(inter_info, "operation value = %s\n", return_value.value.value.string);
            }
            else{
                fprintf(inter_info, "operation value = other[%d]\n", return_value.value.type);
            }
            fputs("----stop code----\n", inter_info);
            break;
        case chose_exp:{
            GWARF_result tmp_result = traverse(the_statement->code.chose_exp.condition, the_var, false, global_inter);
            if(is_error(&tmp_result)){  // Name Error错误
                return_value = tmp_result;
                break;
            }
            else if(is_space(&tmp_result)){
                return_value = tmp_result;
                break;
            }
            if(to_bool(tmp_result.value,global_inter)){
                return_value = traverse(the_statement->code.chose_exp.true_do, the_var, false, global_inter);
            }
            else{
                return_value = traverse(the_statement->code.chose_exp.false_do, the_var, false, global_inter);
            }
            if(!(is_error(&return_value) || is_space(&return_value))){  // Name Error错误
                return_value = to_object(return_value,global_inter);
            }
            break;
        }
        case call:
            return_value = call_back(the_statement, the_var, global_inter);
            break;
        case while_cycle:
            fputs("----while code----\n", inter_info);
            return_value = while_func(the_statement, the_var, global_inter);
            fputs("----stop while code----\n", inter_info);
            if(return_value.u == statement_end){  // while循环不需要返回值[避免GWARF_value 进入 the_var]
                return_value.value.type = NULL_value;
                return_value.value.value.int_value = 0;
            }
            break;
        case for_cycle:
            fputs("----for code----\n", inter_info);
            return_value = for_func(the_statement, the_var, global_inter);
            fputs("----for while code----\n", inter_info);
            if(return_value.u == statement_end){  // while循环不需要返回值[避免GWARF_value 进入 the_var]
                return_value.value.type = NULL_value;
                return_value.value.value.int_value = 0;
            }
            break;
        case for_in_cycle:
            fputs("----for code----\n", inter_info);
            return_value = forin_func(the_statement, the_var, global_inter);
            fputs("----for while code----\n", inter_info);
            if(return_value.u == statement_end){  // while循环不需要返回值[避免GWARF_value 进入 the_var]
                return_value.value.type = NULL_value;
                return_value.value.value.int_value = 0;
            }
            break;
        case if_branch:
            fputs("----if code----\n", inter_info);
            return_value = if_func(the_statement->code.if_branch.done, the_var, global_inter);
            fprintf(inter_info, "return_value.u = %d\n", return_value.u);
            fputs("----stop if code----\n", inter_info);
            if(return_value.u == statement_end){  // while循环不需要返回值[避免GWARF_value 进入 the_var]
                return_value.value.type = NULL_value;
                return_value.value.value.int_value = 0;
            }
            break;
        case pack_eq:
            login_var(the_login_var, the_var, the_statement->code.pack_eq.left, the_statement->code.pack_eq.right, global_inter);
            break;
        case base_value:  // get value[所有字面量均为这个表达式]
            return_value.value = (the_statement->code).base_value.value;  // code
            if((return_value.value.type == INT_value) || (return_value.value.type == BOOL_value)){
                fprintf(inter_info, "get value = %d\n", return_value.value.value.int_value);
            }
            else if(return_value.value.type == NUMBER_value){
                fprintf(inter_info, "get value = %f\n", return_value.value.value.double_value);
            }
            else if(return_value.value.type == NULL_value){
                fprintf(inter_info, "get value = None\n");
            }
            else if(return_value.value.type == STRING_value){
                fprintf(inter_info, "get value = %s\n", return_value.value.value.string);
            }
            else{
                fprintf(inter_info, "get value = other[%d]\n", return_value.value.type);
            }
            // base_value返回字面量 -> 主要返回object类型，还会返回GWARF_value的其他类型供生成object类型
            break;
        case base_tuple:{  // get value[所有字面量均为这个表达式]
            GWARF_result tmp = parameter_to_list(the_statement->code.base_tuple.value, the_var,global_inter);
            error_space(tmp, return_result, return_value);
            return_value = to_tuple(tmp.value, global_inter);  // 相当于to_object，但是把LIST_value解析为tuple
            break;
        }
        case base_list:{  // get value[所有字面量均为这个表达式]
            GWARF_result tmp = parameter_to_list(the_statement->code.base_tuple.value, the_var,global_inter);
            error_space(tmp, return_result, return_value);
            return_value = to_object(tmp,global_inter);  // code
            break;
        }
        case base_dict:{  // get value[所有字面量均为这个表达式]
            GWARF_result tmp = parameter_to_dict(the_statement->code.base_tuple.value, the_var,global_inter);
            error_space(tmp, return_result, return_value);
            return_value = to_object(tmp,global_inter);  // code
            break;
        }
        case slice:{  // get value[所有字面量均为这个表达式]
            GWARF_result tmp_result = traverse((the_statement->code).slice.base_var, the_var, false, global_inter), get;  // 把a[1:2:3]的a取出来
            error_space(tmp_result, the_break_slice, return_value);
            GWARF_value base_the_var = tmp_result.value;
            if(base_the_var.type == CLASS_value){  // is class so that can use "."
                var *tmp = find_var(base_the_var.value.class_value->the_var, 0, "__slice__", NULL);
                if(tmp != NULL){
                    get.value = tmp->value;
                    get.father = &base_the_var;  // 设置father
                    return_value = call_back_core(get, the_var, the_statement->code.slice.value, global_inter);
                    goto the_break_slice;
                }
                else{  // TODO :: Name Not Found

                }
            }
            else if(base_the_var.type == OBJECT_value){
                var *tmp = find_var(base_the_var.value.object_value->the_var, 0, "__slice__", NULL);
                if(tmp != NULL){
                    get.value = tmp->value;
                    get.father = &base_the_var;  // 设置father
                    return_value = call_back_core(get, the_var, the_statement->code.slice.value, global_inter);
                    goto the_break_slice;
                }
                else{  // TODO :: Name Not Found

                }
            }

            the_break_slice: 
            return_value = to_object(return_value, global_inter);
            // fprintf(inter_info, "return_value.value.type = %d\n", return_value.value);
            break;
        }
        case base_var:{  // 访问变量
            int from = 0;
            if(the_statement->code.base_var.from == NULL){
                from = 0;
            }
            else{
                GWARF_result tmp_result, tmp_object = traverse(the_statement->code.base_var.from, out_var, false, global_inter);
                error_space(tmp_object, return_result, return_value);
                
                tmp_result = get__value__(&(tmp_object.value), the_var, global_inter);  // 从object中提取value
                error_space(tmp_result, return_result, return_value);
                
                if(tmp_result.value.type == INT_value){
                    from = tmp_result.value.value.int_value;
                }
                else if(tmp_result.value.type == NUMBER_value){
                    from = (int)tmp_result.value.value.double_value;
                }
                else{  // TODO :: 不支持的类型
                    from = 0;
                }
            }
            
            int index = 0, max_object = -1, max_class = -1, max = 0;
            var_list *start = the_var;
            while (1)
            {
                if(start == NULL){  // don't get the var and not next
                    if(max_class == -1) max_class = max;
                    if(max_object == -1) max_object = max;
                    break;
                }
                else if(start->tag == run_class && max_class == -1){  // don't get the var but can next
                    max_class = max;
                    break;
                }
                else if(start->tag == run_object && max_object == -1){  // don't get the var but can next
                    max_object = max;
                }
                if(max_object != -1 && max_class != -1){
                    break;
                }
                start = start->next;
                max += 1;
            }

            var *tmp = find_var(the_var, from, (the_statement->code).base_var.var_name, &index);
            // 检查权限
            char *str_tmp;  // 因为goto语句，所以声明放到外面
            if(tmp == NULL){
                var_error:
                str_tmp = malloc((size_t)( 21 + strlen(the_statement->code.base_var.var_name) ));
                sprintf(str_tmp, "name not found [%s]", the_statement->code.base_var.var_name);
                return_value = to_error(str_tmp, "NameException",global_inter);
            }
            else if(tmp->lock == protect && the_statement->code.base_var.lock_token == public_token){  // 权限不够
                // 企图使用public权限访问protect
                str_tmp = malloc((size_t)( 21 + strlen(the_statement->code.base_var.var_name) ));
                sprintf(str_tmp, "var is protect [%s]", the_statement->code.base_var.var_name);
                return_value = to_error(str_tmp, "VarException",global_inter);
            }
            else if(tmp->lock == private && the_statement->code.base_var.lock_token == protect && index > max_object && index > max_class){
                // 企图使用不合法的protect权限访问private
                str_tmp = malloc((size_t)( 21 + strlen(the_statement->code.base_var.var_name) ));
                sprintf(str_tmp, "var is private [%s]", the_statement->code.base_var.var_name);
                return_value = to_error(str_tmp, "VarException",global_inter);
            }
            else if(tmp->lock == private && the_statement->code.base_var.lock_token == public_token){
                // 企图使用public权限访问private
                str_tmp = malloc((size_t)( 21 + strlen(the_statement->code.base_var.var_name) ));
                sprintf(str_tmp, "var is private [%s]", the_statement->code.base_var.var_name);
                return_value = to_error(str_tmp, "VarException",global_inter);
            }
            else{
                return_value.value = tmp->value;  // get_var
            }
            break;
        }
        case base_svar:{
            int from = 0;
            if(the_statement->code.base_svar.from == NULL){
                from = 0;
            }
            else{
                GWARF_result tmp_result, tmp_object = traverse(the_statement->code.base_svar.from, out_var, false, global_inter);
                error_space(tmp_object, return_result, return_value);
                
                tmp_result = get__value__(&(tmp_object.value), out_var, global_inter);  // 从object中提取value
                error_space(tmp_result, return_result, return_value);

                if(tmp_result.value.type == INT_value){
                    from = tmp_result.value.value.int_value;
                }
                else if(tmp_result.value.type == NUMBER_value){
                    from = (int)tmp_result.value.value.double_value;
                }
                else{  // TODO :: 不支持的类型
                    from = 0;
                }
            }
            GWARF_result eq_object = traverse(the_statement->code.base_svar.var, out_var, false, global_inter);
            error_space(eq_object, return_result, return_value);

            int index = 0, max_object = -1, max_class = -1, max = 0;
            var_list *start = the_var;
            while (1)
            {
                if(start == NULL){  // don't get the var and not next
                    if(max_class == -1) max_class = max;
                    if(max_object == -1) max_object = max;
                    break;
                }
                else if(start->tag == run_class && max_class == -1){  // don't get the var but can next
                    max_class = max;
                    break;
                }
                else if(start->tag == run_object && max_object == -1){  // don't get the var but can next
                    max_object = max;
                }
                if(max_object != -1 && max_class != -1){
                    break;
                }
                start = start->next;
                max += 1;
            }

            GWARF_result key_tmp = to_str_dict(eq_object.value, out_var, global_inter);
            error_space(key_tmp, return_result, return_value);

            char *str = key_tmp.value.value.string;
            fprintf(inter_info, "str = %s\n", str);


            var *tmp = find_var(the_var, from, str, &index);
            // 检查权限
            char *str_tmp;  // 因为goto语句，所以声明放到外面
            if(tmp == NULL){
                svar_error:
                str_tmp = malloc((size_t)( 21 + strlen(str) ));
                sprintf(str_tmp, "name not found [%s]\n", str);
                return_value = to_error(str_tmp, "NameException",global_inter);
            }
            else if(tmp->lock == protect && the_statement->code.base_var.lock_token == public_token){  // 权限不够
                str_tmp = malloc((size_t)( 21 + strlen(the_statement->code.base_var.var_name) ));
                sprintf(str_tmp, "var is protect [%s]\n", the_statement->code.base_var.var_name);
                return_value = to_error(str_tmp, "VarException",global_inter);
            }
            else if(tmp->lock == private && the_statement->code.base_var.lock_token == protect && index > max_object && index > max_class){
                str_tmp = malloc((size_t)( 21 + strlen(the_statement->code.base_var.var_name) ));
                sprintf(str_tmp, "var is private [%s]\n", the_statement->code.base_var.var_name);
                return_value = to_error(str_tmp, "VarException",global_inter);
            }
            else if(tmp->lock == private && the_statement->code.base_var.lock_token == public_token){
                str_tmp = malloc((size_t)( 21 + strlen(the_statement->code.base_var.var_name) ));
                sprintf(str_tmp, "var is private [%s]\n", the_statement->code.base_var.var_name);
                return_value = to_error(str_tmp, "VarException",global_inter);
            }
            else{
                return_value.value = tmp->value;  // get_var
            }
            break;
        }
        case point:{
            GWARF_result tmp_result = traverse((the_statement->code).point.base_var, the_var, false, global_inter);
            error_space(tmp_result, the_break, return_value);

            GWARF_value base_the_var = tmp_result.value;
            // 设定访问权限
            // (the_statement->code).point.child_var->code.base_var.lock_token == auto_token 代表base_var采用自动访问权限
            // tmp_result.value.lock_token 当其为self的时候会升级成为lock权限
            if((the_statement->code).point.child_var->type == base_var && (the_statement->code).point.child_var->code.base_var.lock_token == auto_token){  // 需要调整权限
                switch (tmp_result.value.lock_token)
                {
                case lock:
                    (the_statement->code).point.child_var->code.base_var.lock_token = protect_token;  // 修改权限
                    break;
                default:
                    (the_statement->code).point.child_var->code.base_var.lock_token = public_token;  // 默认权限
                    break;
                }
            }
            if((the_statement->code).point.child_var->type == base_svar && (the_statement->code).point.child_var->code.base_var.lock_token == auto_token){  // 需要调整权限
                switch (tmp_result.value.lock_token)
                {
                case lock:
                    (the_statement->code).point.child_var->code.base_svar.lock_token = protect_token;  // 修改权限
                    break;
                default:
                    (the_statement->code).point.child_var->code.base_svar.lock_token = public_token;  // 默认权限
                    break;
                }
            }
            if(base_the_var.type == CLASS_value){  // is class so that can use "."
                return_value = traverse_get_value((the_statement->code).point.child_var, base_the_var.value.class_value->the_var, out_var, global_inter);
            }
            else if(base_the_var.type == OBJECT_value){
                return_value = traverse_get_value((the_statement->code).point.child_var, base_the_var.value.object_value->the_var, out_var, global_inter);
            }
            else if(base_the_var.type == FUNC_value){
                var_list *old_tmp = base_the_var.value.func_value->self->next;
                base_the_var.value.func_value->self->next = NULL;  // 暂时断链
                return_value = traverse_get_value((the_statement->code).point.child_var, base_the_var.value.func_value->self, out_var, global_inter);
                base_the_var.value.func_value->self->next = old_tmp;  // 恢复
            }
            else if(base_the_var.type == NULL_value){
                goto the_break;  // NULL的point运算返回NULL (感觉起来NULL也是一个类)
            }
            else{
                return_value = to_error("Get a Not Support Type", "TypeException", global_inter);
                goto the_break;
            }
            if(is_error(&return_value) || is_space(&return_value)){  // Name Error错误
                goto the_break;
            }

            return_value.father = malloc(sizeof(return_value.father));  // 记录father的值
            *(return_value.father) = base_the_var;

            the_break: 
            return_value = to_object(return_value,global_inter);
            break;
        }
        case down:{
            GWARF_result tmp_result = traverse((the_statement->code).down.base_var, the_var, false, global_inter), get;
            error_space(tmp_result, the_break_down, return_value);

            GWARF_value base_the_var = tmp_result.value;
            if(base_the_var.type == CLASS_value){  // is class so that can use "."
                var *tmp = find_var(base_the_var.value.class_value->the_var, 0, "__down__", NULL);
                if(tmp != NULL){
                    get.value = tmp->value;
                    get.father = &base_the_var;  // 设置father
                    return_value = call_back_core(get, the_var, (the_statement->code).down.child_var, global_inter);
                }
                else{
                    return_value = to_error("Don't Support Down Number", "TypeException", global_inter);
                }
            }
            else if(base_the_var.type == OBJECT_value){
                var *tmp = find_var(base_the_var.value.object_value->the_var, 0, "__down__", NULL);
                if(tmp != NULL){
                    get.value = tmp->value;
                    get.father = &base_the_var;  // 设置father
                    fputs("case down\n", inter_info);
                    return_value = call_back_core(get, the_var, (the_statement->code).down.child_var, global_inter);
                }
                else{
                    return_value = to_error("Don't Support Down Number", "TypeException", global_inter);
                }
            }
            else{
                return_value = to_error("Don't Support Down Number", "TypeException", global_inter);
            }

            the_break_down: 
            return_value = to_object(return_value,global_inter);  // call_back_core 返回值是object
            break;
        }
        case def:{
            GWARF_result func_value = GWARF_result_reset;
            func *func_tmp = malloc(sizeof(func));
            func_tmp->done = the_statement->code.def.done;
            func_tmp->parameter_list = the_statement->code.def.parameter_list;
            func_tmp->self = make_var_base(make_hash_var());
            func_tmp->self->tag = run_object;
            if(the_statement->code.def.is_inline){  // inline函数
                func_tmp->the_var = NULL;
                goto make_func;  // 跳过其他设置
            }

            func_tmp->the_var = copy_var_list(the_var);
            if(the_statement->code.def.setup != NULL){  // 存在setup的内容
                append_by_var_list(func_tmp->self, func_tmp->the_var);
                GWARF_result tmp = GWARF_result_reset;
                tmp = traverse(the_statement->code.def.setup, func_tmp->self, false, global_inter);
                error_space(tmp, return_result, return_value);
                func_tmp->the_var = func_tmp->self;
            }

            make_func:
            func_tmp->type = customize;  // func by user
            if((the_login_var != the_var && the_statement->code.def.type == auto_func) || the_statement->code.def.type == action){  // 定义为实例方法
                func_tmp->is_class = action;
            }
            else if(the_statement->code.def.type == cls){  // 定义为对象方法
                func_tmp->is_class = cls;
            }
            else{
                func_tmp->is_class = function;  // 定义为普通方法
            }
            func_tmp->is_lambda = false;

            func_value.value.type = FUNC_value;
            func_value.value.value.func_value = func_tmp;
            fprintf(inter_info, "the_statement->code.def.var = %d\n", the_statement->code.def.var->type);
            GWARF_result assignment_tmp = assignment_statement_core(the_statement->code.def.var, the_var, the_login_var, func_value, true, auto_public, global_inter);  // 注册函数到指定的位置
            error_space(assignment_tmp, return_result, return_value);
            // 无返回值
            break;
        }
        case lambda_func:{
            func *func_tmp = malloc(sizeof(func));

            func_tmp->done = the_statement->code.lambda_func.done;
            func_tmp->parameter_list = the_statement->code.lambda_func.parameter_list;
            func_tmp->the_var = copy_var_list(the_var);
            func_tmp->self = make_var_base(make_hash_var());  // 默认设置为run_func
            func_tmp->type = customize;  // func by user
            func_tmp->is_class = auto_func;
            func_tmp->is_lambda = true;

            return_value.value.type = FUNC_value;
            return_value.value.value.func_value = func_tmp;
            return_value.u = statement_end;
            break;
        }
        case set_class:{
            fputs("----set class----\n", inter_info);
            GWARF_result class_value = GWARF_result_reset;
            class_object *class_tmp = malloc(sizeof(class_object));

            class_tmp->the_var = make_var_base(make_hash_var());  // make class var list
            class_tmp->the_var->tag = run_class;
            class_value.value.value.class_value = class_tmp;

            // 获取father  -- append_by_var_list[拼凑]
            GWARF_result father_tmp = GWARF_result_reset;
            parameter *tmp_s = the_statement->code.set_class.father_list;
            if(tmp_s != NULL){
                while(1){  // 继承
                    father_tmp = traverse(tmp_s->u.value, the_var, false, global_inter);  // 执行
                    error_space(father_tmp, return_result, return_value);
                    if(father_tmp.value.type == CLASS_value){  // 可以通过class继承, 也可以通过object.cls继承
                        append_by_var_list(class_tmp->the_var, copy_var_list(father_tmp.value.value.class_value->the_var));
                    }
                    else if(father_tmp.value.type == OBJECT_value){
                        append_by_var_list(class_tmp->the_var, copy_var_list(father_tmp.value.value.object_value->cls));
                    }
                    else{
                        ;  // 不支持的类型
                    }
                    if (tmp_s->next == NULL){  // the last
                        break;
                    }
                    tmp_s = tmp_s->next;
                }
                // 去除重复
                var_list *base_list = class_tmp->the_var, *last_list = NULL;
                while(1){
                    if(base_list == NULL){
                        break;
                    }
                    var_list *next_list = base_list->next;
                    while(1){
                        if(next_list == NULL){
                            break;  // 无重复
                        }
                        else if(next_list->hash_var_base == base_list->hash_var_base){  // 有重复
                            if(last_list != NULL){
                                last_list->next = base_list->next;
                                goto free_one;
                            }
                            break;
                        }
                        next_list = next_list->next;
                    }
                    // exit(1);

                    last_list = base_list;
                    base_list = base_list->next;
                    continue;

                    free_one:
                    free(base_list);  // var_list是复制的，可以free，但里面的var不可以free
                    base_list = last_list->next;
                    continue;
                }
            }
            else{
                var *object_tmp = find_var(the_var, 0, "object", NULL);
                if(object_tmp != NULL){
                    father_tmp.value = object_tmp->value;
                    append_by_var_list(class_tmp->the_var, father_tmp.value.value.class_value->the_var);
                }
                else{
                    // TODO::返回error -> var_list错误
                }
            }

            class_tmp->out_var = copy_var_list(the_var);  //TODO::class_tmp->out_var = copy_var_list(the_var);
            // 执行done
            statement *tmp = the_statement->code.set_class.done;
            GWARF_result result = GWARF_result_reset;
            restart_again: 
            while(1){
                if(tmp == NULL){
                    break;  // off
                }
                result = read_statement(tmp, the_var, class_tmp->the_var, NULL, lock, global_inter);
                if(result.u == error){  // Name Error错误
                    break;
                }
                else if(result.u == return_def && result.return_times != 0){  // return def
                    result.return_times -= 1;
                    break;
                }
                else if((result.u == cycle_break) || (result.u == code_broken)){
                    if(result.value.type != INT_value){
                        result.value.type = INT_value;
                        result.value.value.int_value = 0;
                    }
                    if(result.value.value.int_value <= 0){
                        result.u = statement_end;  // 正常设置[正常语句结束]
                    }
                    else{
                        result.value.value.int_value -= 1;
                    }
                    break;
                }
                else if((result.u == cycle_continue) || (result.u == code_continued) || (result.u == cycle_restart) || (result.u == code_restarted)){
                    if(result.value.type != INT_value){
                        result.value.type = INT_value;
                        result.value.value.int_value = 0;
                    }
                    if(result.value.value.int_value <= 0){
                        result.u = statement_end;
                        goto restart_again;
                    }
                    else{
                        result.value.value.int_value -= 1;
                        break;
                    }
                }
                else if(is_space(&result)){
                    break;
                }
                error_space(father_tmp, return_result, return_value);
                tmp = tmp->next;
            }

            class_value.value.type = CLASS_value;
            GWARF_result tmp_assignment = assignment_statement_core(the_statement->code.set_class.var, the_var,the_login_var, class_value, true, auto_public, global_inter);  // 注册class 的 位置
            error_space(tmp_assignment, return_result, return_value);
            fputs("----stop set class----\n", inter_info);
            // 无返回值
            break;
        }
        case break_cycle:
            return_value.value.type = INT_value;
            if(the_statement->code.break_cycle.times == NULL){
                return_value.value.value.int_value = 0;
            }
            else{
                int int_tmp;
                GWARF_result tmp_result, tmp_object = traverse(the_statement->code.break_cycle.times, the_var, false, global_inter);
                error_space(tmp_object, return_result, return_value);
                tmp_result = get__value__(&(tmp_object.value), the_var, global_inter);  // 从object中提取value
                error_space(tmp_result, return_result, return_value);
                if(tmp_result.value.type == INT_value){
                    int_tmp = tmp_result.value.value.int_value;
                }
                else if(tmp_result.value.type == NUMBER_value){
                    int_tmp = (int)tmp_result.value.value.double_value;
                }
                else{
                    int_tmp = 0;
                }
                return_value.value.value.int_value = int_tmp;
            }
            return_value.u = cycle_break;
            break;
        case broken:
            return_value.value.type = INT_value;
            if(the_statement->code.broken.times == NULL){
                return_value.value.value.int_value = 0;
            }
            else{
                int int_tmp;
                GWARF_result tmp_result, tmp_object = traverse(the_statement->code.broken.times, the_var, false, global_inter);
                error_space(tmp_object, return_result, return_value);
                tmp_result = get__value__(&(tmp_object.value), the_var, global_inter);  // 从object中提取value
                error_space(tmp_result, return_result, return_value);
                if(tmp_result.value.type == INT_value){
                    int_tmp = tmp_result.value.value.int_value;
                }
                else if(tmp_result.value.type == NUMBER_value){
                    int_tmp = (int)tmp_result.value.value.double_value;
                }
                else{
                    int_tmp = 0;
                }
                return_value.value.value.int_value = int_tmp;
            }
            return_value.u = code_broken;
            break;
        case continue_cycle:
            return_value.value.type = INT_value;
            if(the_statement->code.continue_cycle.times == NULL){
                return_value.value.value.int_value = 0;
            }
            else{
                int int_tmp;
                GWARF_result tmp_result, tmp_object = traverse(the_statement->code.continue_cycle.times, the_var, false, global_inter);
                error_space(tmp_object, return_result, return_value);
                tmp_result = get__value__(&(tmp_object.value), the_var, global_inter);  // 从object中提取value
                error_space(tmp_result, return_result, return_value);
                if(tmp_result.value.type == INT_value){
                    int_tmp = tmp_result.value.value.int_value;
                }
                else if(tmp_result.value.type == NUMBER_value){
                    int_tmp = (int)tmp_result.value.value.double_value;
                }
                else{
                    int_tmp = 0;
                }
                return_value.value.value.int_value = int_tmp;
            }
            return_value.u = cycle_continue;
            break;
        case continued:
            return_value.value.type = INT_value;
            if(the_statement->code.continued.times == NULL){
                return_value.value.value.int_value = 0;
            }
            else{
                int int_tmp;
                GWARF_result tmp_result, tmp_object = traverse(the_statement->code.continued.times, the_var, false, global_inter);
                error_space(tmp_object, return_result, return_value);
                tmp_result = get__value__(&(tmp_object.value), the_var, global_inter);  // 从object中提取value
                error_space(tmp_result, return_result, return_value);
                if(tmp_result.value.type == INT_value){
                    int_tmp = tmp_result.value.value.int_value;
                }
                else if(tmp_result.value.type == NUMBER_value){
                    int_tmp = (int)tmp_result.value.value.double_value;
                }
                else{
                    int_tmp = 0;
                }
                return_value.value.value.int_value = int_tmp;
            }
            return_value.u = code_continued;
            break;
        case restart:
            return_value.value.type = INT_value;
            if(the_statement->code.restart.times == NULL){
                return_value.value.value.int_value = 0;
            }
            else{
                int int_tmp;
                GWARF_result tmp_result, tmp_object = traverse(the_statement->code.restart.times, the_var, false, global_inter);
                error_space(tmp_object, return_result, return_value);
                tmp_result = get__value__(&(tmp_object.value), the_var, global_inter);  // 从object中提取value
                error_space(tmp_result, return_result, return_value);
                if(tmp_result.value.type == INT_value){
                    int_tmp = tmp_result.value.value.int_value;
                }
                else if(tmp_result.value.type == NUMBER_value){
                    int_tmp = (int)tmp_result.value.value.double_value;
                }
                else{
                    int_tmp = 0;
                }
                return_value.value.value.int_value = int_tmp;
            }
            return_value.u = cycle_restart;
            break;
        case restarted:
            return_value.value.type = INT_value;
            if(the_statement->code.restarted.times == NULL){
                return_value.value.value.int_value = 0;
            }
            else{
                int int_tmp;
                GWARF_result tmp_result, tmp_object = traverse(the_statement->code.restarted.times, the_var, false, global_inter);
                error_space(tmp_object, return_result, return_value);
                tmp_result = get__value__(&(tmp_object.value), the_var, global_inter);  // 从object中提取value
                error_space(tmp_result, return_result, return_value);
                if(tmp_result.value.type == INT_value){
                    int_tmp = tmp_result.value.value.int_value;
                }
                else if(tmp_result.value.type == NUMBER_value){
                    int_tmp = (int)tmp_result.value.value.double_value;
                }
                else{
                    int_tmp = 0;
                }
                return_value.value.value.int_value = int_tmp;
            }
            return_value.u = code_restarted;
            break;
        case return_code:
            if(the_statement->code.return_code.times == NULL){
                return_value.return_times = 0;
            }
            else{
                int int_tmp;
                GWARF_result tmp_result, tmp_object = traverse(the_statement->code.return_code.times, the_var, false, global_inter);
                error_space(tmp_object, return_result, return_value);
                tmp_result = get__value__(&(tmp_object.value), the_var, global_inter);  // 从object中提取value
                if(tmp_result.value.type == INT_value){
                    int_tmp = tmp_result.value.value.int_value;
                }
                else if(tmp_result.value.type == NUMBER_value){
                    int_tmp = (int)tmp_result.value.value.double_value;
                }
                else{
                    int_tmp = 0;
                }
                return_value.return_times = int_tmp;
            }
            if(the_statement->code.return_code.value == NULL){  // return NULL
                return_value.value.type = NULL_value;
                return_value.value.value.double_value = 0;
            }
            else{
                GWARF_result tmp_result = traverse(the_statement->code.return_code.value, the_var, false, global_inter);
                error_space(tmp_result, return_result, return_value);
                return_value = to_object(tmp_result,global_inter);
            }
            return_value.u = return_def;
            return_value.value.lock_token = base;
            fprintf(inter_info, "code :: return_value.u = %d\n", return_value.u);
            break;
        case rewent:
            return_value.u = code_rewent;  // rego but not now
            break;
        case rego:
            return_value.u = code_rego;  // rego now
            break;
        case set_default:{
            char *name = the_statement->code.set_default.name;
            int base_from = 0;
            GWARF_result tmp_result, tmp_object = traverse(the_statement->code.set_default.times, the_var, false, global_inter);
            error_space(tmp_object, return_result, return_value);
            tmp_result = get__value__(&(tmp_object.value), the_var, global_inter);  // 从object中提取value
            if(tmp_result.value.type == INT_value){
                base_from = tmp_result.value.value.int_value;
            }
            else if(tmp_result.value.type == NUMBER_value){
                base_from = (int)tmp_result.value.value.double_value;
            }
            else{
                base_from = 0;
            }

            append_default_var_base(name, base_from, the_var->default_list);
            fprintf(inter_info, "set_default for %s\n", name);
            break;
        }
        case set_global:{
            char *name = the_statement->code.set_global.name;
            int base_from = get_var_list_len(the_var);
            append_default_var_base(name, base_from, the_var->default_list);
            fprintf(inter_info, "global for %s\n", name);
            break;
        }
        case set_nonlocal:{
            char *name = the_statement->code.set_global.name;
            append_default_var_base(name, 1, the_var->default_list);
            fprintf(inter_info, "nonlocal for %s\n", name);
            break;
        }
        case code_block:
            fputs("----block code----\n", inter_info);
            return_value = block_func(the_statement, the_var, global_inter);
            fputs("----stop block code----\n", inter_info);
            break;
        case try_code:
            return_value = try_func(the_statement, the_var, global_inter);
            break;
        case raise_e:
            return_value = raise_func(the_statement, the_var, true, global_inter);
            break;
        case throw_e:
            return_value = raise_func(the_statement, the_var, false, global_inter);
            break;
        case import_class:  // import xxx as xxx 语句
            return_value = import_func(the_statement, the_var, global_inter);
            break;
        case include_import:  // import xxx as xxx 语句
            return_value = include_func(the_statement, the_var, global_inter);
            break;
        case assert_e:  // import xxx as xxx 语句
            return_value = assert_func(the_statement, the_var, global_inter);
            break;
        default:
            fputs("default\n", inter_info);
            break;
    }
    return_result: return return_value;
}


// -----------------include func
GWARF_result include_func(statement *the_statement, var_list *the_var, inter *global_inter){
    GWARF_result return_value = GWARF_result_reset;
    statement *file_statement = the_statement->code.include_import.file;

    GWARF_result file = to_str(traverse(file_statement, the_var, false, global_inter).value, the_var, global_inter);
    error_space(file, return_result, return_value);

    inter *new_global_inter = get_inter();  // 拿全局解释器[并声明全局变量]
    free(new_global_inter->global_var);  // 不需要新的the_var
    new_global_inter->global_var = the_var->hash_var_base;
    
    int status = parser(file.value.value.string, new_global_inter);
    if(status){
        return to_error("Include Error", "IncludeException", global_inter);
    }

    fprintf(inter_info, "----start run----\n");
    traverse_global(new_global_inter->global_code, the_var, new_global_inter);
    fprintf(inter_info, "code end...\n");

    return_value.u = statement_end;
    return_value.value.type = NULL_value;
    return_value.value.value.int_value = 0;
    return_result: return return_value;
}

// -----------------import func
GWARF_result import_func(statement *the_statement, var_list *the_var, inter *global_inter){
    GWARF_result return_value = GWARF_result_reset;
    statement *file_statement = the_statement->code.import_class.file;
    
    GWARF_result file = to_str(traverse(file_statement, the_var, false, global_inter).value, the_var, global_inter);
    error_space(file, return_result, return_value);

    inter *new_global_inter = get_inter();  // 拿全局解释器[并声明全局变量]
    var_list *new_the_var = make_var_base(global_inter->global_var);
    new_the_var->tag = run_class;
    
    login(new_the_var, new_global_inter);
    
    int status = parser(file.value.value.string, new_global_inter);
    if(status){
        return to_error("Import Error", "ImportException", global_inter);
    }
    fprintf(inter_info, "----start run----\n");
    traverse_global(new_global_inter->global_code, new_the_var, new_global_inter);
    fprintf(inter_info, "code end...\n");

    GWARF_result import_result = GWARF_result_reset;
    import_result.value.type = CLASS_value;
    
    class_object *class_tmp = malloc(sizeof(class_object));
    class_tmp->the_var = new_the_var;  // make class var list
    class_tmp->out_var = copy_var_list(the_var);  // make class var list with out var

    import_result.value.value.class_value = class_tmp;
    assignment_statement_core(the_statement->code.import_class.var, the_var, the_var, import_result, 2, auto_public, global_inter);

    return_value.u = statement_end;
    return_value.value.type = NULL_value;
    return_value.value.value.int_value = 0;
    return_result: return return_value;
}

// -----------------if func

GWARF_result if_func(if_list *if_base, var_list *the_var, inter *global_inter){  // read the statement list with case to run by func
    GWARF_result value = GWARF_result_reset;
    if_list *start;
    again: start = if_base;
    bool rego = false;  // switch...case...
    while(1){
        if(start->condition  == NULL){  // else
            else_restart:
            fputs("----else----\n", inter_info);
            value = traverse(start->done, the_var, true, global_inter);
            fputs("----stop else----\n", inter_info);
            
            // restarted操作
            // TODO::可以检查值类型，如果不正确则是解释器错误
            if(value.u == code_restarted){
                if(value.value.type != INT_value){
                    value.value.type = INT_value;
                    value.value.value.int_value = 0;
                }
                if(value.value.value.int_value <= 0){
                    fputs("----restarted real----\n", inter_info);
                    value.u = statement_end;
                    goto else_restart;
                }
                else{
                    value.value.value.int_value -= 1;
                    break;
                }
            }

            // continued操作
            else if(value.u == code_continued){
                if(value.value.type != INT_value){
                    value.value.type = INT_value;
                    value.value.value.int_value = 0;
                }
                if(value.value.value.int_value <= 0){
                    fputs("----if continue real----\n", inter_info);
                    value.u = statement_end;
                    goto again;
                }
                else{
                    value.value.value.int_value -= 1;
                }
                break;
            }

            // broken操作
            else if(value.u == code_broken){
                if(value.value.type != INT_value){
                    value.value.type = INT_value;
                    value.value.value.int_value = 0;
                }
                if(value.value.value.int_value <= 0){
                    value.u = statement_end;  // 正常设置[正常语句结束]
                }
                else{
                    value.value.value.int_value -= 1;
                }
                break;
            }

            // rego操作
            // else层的rego和rewent是可以往上层遗传的[也就是else如果显式指定rego和rewent是会遗传的，但是如果是if或elif指定rego是不会遗传的]
            else if((value.u == code_rewent) || (value.u == code_rego)){
                ;
            }
            else{
                error_space(value, to_break, value)
            }

            break;  // else not next and don't need rego
        }
        else{  // not else
            bool condition;
            GWARF_result tmp_result = traverse(start->condition, the_var, false, global_inter);
            if(is_error(&tmp_result)){  // Name Error错误
                // fputs("STOP:: Name No Found!\n", inter_info);
                value = tmp_result;
                break;
            }
            else if(is_space(&tmp_result)){
                value = tmp_result;
                break;
            }

            condition = to_bool(tmp_result.value, global_inter);
            fprintf(inter_info, "if condition = %d\n", condition);
            if(rego || (condition)){  // condition run success or rego(condition won't do) bug rewent can
                if_restart:
                fputs("----if----\n", inter_info);
                value = traverse(start->done, the_var, true, global_inter);
                fprintf(inter_info, "value.u = %d\n", value.u);
                fputs("----stop if----\n", inter_info);

                // restarted操作
                if(value.u == code_restarted){
                    if(value.value.type != INT_value){
                        value.value.type = INT_value;
                        value.value.value.int_value = 0;
                    }
                    if(value.value.value.int_value <= 0){
                        fputs("----restarted real----\n", inter_info);
                        value.u = statement_end;
                        goto if_restart;
                    }
                    else{
                        value.value.value.int_value -= 1;
                        break;
                    }
                }
                
                // continued操作 [设在在rewent和rego前面]
                else if(value.u == code_continued){
                    if(value.value.type != INT_value){
                        value.value.type = INT_value;
                        value.value.value.int_value = 0;
                    }
                    if(value.value.value.int_value <= 0){
                        fputs("----if continue real----\n", inter_info);
                        value.u = statement_end;
                        goto again;
                    }
                    else{
                        value.value.value.int_value -= 1;
                    }
                    break;
                }

                // broken操作
                else if(value.u == code_broken){
                    if(value.value.type != INT_value){
                        value.value.type = INT_value;
                        value.value.value.int_value = 0;
                    }
                    value.value.value.int_value -= 1;
                    if(value.value.value.int_value < 0){
                        value.u = statement_end;  // 正常设置[正常语句结束]
                    }
                    break;
                }
                
                // rego操作
                else if((value.u == code_rewent) || (value.u == code_rego)){
                    value.u = statement_end;  // 设置为正常语句
                    rego = true;
                }
                else{
                    error_space(value, to_break, value)
                }

                // not restarted -> if is rego
                if(!rego){
                    fprintf(inter_info, "value.u = %d\n", value.u);
                    break;  // don't rego
                }
            }
        }
        if(start->next  == NULL){  // not next
            break;
        }
        start = start->next;
    }
    to_break: 
    if((value.u == cycle_continue) || (value.u == cycle_restart) || (value.u == cycle_break)){  // if不处理也不计入层次 同break一样
        ;
    }
    return value;
}

// -----------------for func
GWARF_result for_func(statement *the_statement, var_list *the_var, inter *global_inter){  // read the statement list with case to run by func
    GWARF_result value = GWARF_result_reset;
    hash_var *tmp = make_hash_var();  // base_var
    the_var = append_var_list(tmp, the_var);
    the_var->tag = run_while;
    bool condition, do_else = true;
    if(the_statement->code.for_cycle.first != NULL){
        GWARF_result tmp_result = traverse(the_statement->code.for_cycle.first, the_var, false, global_inter); // first to do
        error_space(tmp_result, return_value, value);
    }
    while (1){
        if(the_statement->code.for_cycle.condition != NULL){  // 检查是否存在循环条件
            GWARF_result tmp_result = traverse(the_statement->code.for_cycle.condition, the_var, false, global_inter);
            error_space(tmp_result, return_value, value);
            condition = to_bool(tmp_result.value, global_inter);
            fprintf(inter_info, "for condition = %d\n", condition);
            if(!condition){
                break;
            }
        }
        restart_again: 
        fputs("----for----\n", inter_info);
        value = traverse(the_statement->code.for_cycle.done, the_var, false, global_inter);

        //break操作
        if((value.u == cycle_break) || (value.u == code_broken)){
            do_else = false;
            if(value.value.type != INT_value){
                value.value.type = INT_value;
                value.value.value.int_value = 0;
            }
            if(value.value.value.int_value <= 0){
                value.u = statement_end;  // 正常设置[正常语句结束]
            }
            else{
                value.value.value.int_value -= 1;
            }
            break;  // break don't need after do
        }
        fputs("----stop for----\n", inter_info);

        // after do
        if(the_statement->code.for_cycle.after != NULL){
            GWARF_result tmp_result = traverse(the_statement->code.for_cycle.after, the_var, false, global_inter);
            error_space(tmp_result, return_value, value);
        }
        // continue操作
        if((value.u == cycle_continue) || (value.u == code_continued)){
            if(value.value.type != INT_value){
                value.value.type = INT_value;
                value.value.value.int_value = 0;
            }
            if(value.value.value.int_value <= 0){
                fputs("----continue real----\n", inter_info);
                value.u = statement_end;
                continue;
            }
            else{
                value.value.value.int_value -= 1;
                do_else = false;
                break;
            }
        }

        // restart操作
        else if((value.u == cycle_restart) || (value.u == code_restarted)){
            if(value.value.type != INT_value){
                value.value.type = INT_value;
                value.value.value.int_value = 0;
            }
            if(value.value.value.int_value <= 0){
                fputs("----restart real----\n", inter_info);
                value.u = statement_end;
                goto restart_again;
            }
            else{
                value.value.value.int_value -= 1;
                do_else = false;
                break;
            }
        }
        else if(value.u == rego){  // rewent认为是正常执行
            do_else = false;
        }
        else{
            error_space(value, return_value, value);
        }
    }
    if(do_else){
        GWARF_result tmp_result = traverse(the_statement->code.for_cycle.else_do, the_var, false, global_inter);
        error_space(tmp_result, return_value, value);   
    }
    return_value: 
    the_var = free_var_list(the_var);  // free the new var
    return value;
}

// -----------------assert func
GWARF_result assert_func(statement *the_statement, var_list *the_var, inter *global_inter){  // read the statement list with case to run by func
    GWARF_result error_value = GWARF_result_reset, info = GWARF_result_reset;

    GWARF_result tmp_result = traverse(the_statement->code.assert_e.condition, the_var, false, global_inter);
    error_space(tmp_result, return_value, error_value);
    if(to_bool(tmp_result.value, global_inter)){
        error_value.u = statement_end;
        error_value.value.type = NULL_value;
        error_value.value.value.int_value = 0;
        goto return_value;
    }

    GWARF_result tmp_info = traverse(the_statement->code.assert_e.info, the_var, false, global_inter);
    error_space(tmp_info, return_value, error_value);

    info = to_str(tmp_info.value, the_var, global_inter);
    error_space(info, return_value, error_value);
    error_value = to_error(info.value.value.string , "AssertException",global_inter);
    error_value.u = error;

    return_value: return error_value;
}

// -----------------raise func
GWARF_result raise_func(statement *the_statement, var_list *the_var, bool not_class, inter *global_inter){  // read the statement list with case to run by func
    GWARF_result error_value = GWARF_result_reset, info = GWARF_result_reset;

    if(not_class){  // raise
        error_value = traverse(the_statement->code.raise_e.done, the_var, false, global_inter);
        error_space(error_value, return_value, error_value);
        
        info = to_str(traverse(the_statement->code.raise_e.info, the_var, false, global_inter).value, the_var, global_inter);
        error_space(info, return_value, error_value);
    }
    else{  // raise
        GWARF_value tmp = GWARF_value_reset;
        tmp.type = STRING_value;
        tmp.value.string = "throw by user";
        error_value = traverse(the_statement->code.throw_e.done, the_var, false, global_inter);
        error_space(error_value, return_value, error_value);
        
        info = to_str(tmp, the_var, global_inter);
        error_space(info, return_value, error_value);
    }

    error_value.u = error;
    error_value.error_info = info.value.value.string;

    if(error_value.value.type == CLASS_value && not_class){  // class类型
        error_value = call_back_core(error_value, the_var, pack_value_parameter(info.value), global_inter);
    }
    else{
        error_value = to_object(error_value,global_inter);  // 直接返回
    }

    return_value: return error_value;
}

// -----------------try func
GWARF_result try_func(statement *the_statement, var_list *the_var, inter *global_inter){  // read the statement list with case to run by func
    GWARF_result value = GWARF_result_reset;
    bool do_else = true;
    hash_var *tmp = make_hash_var();  // base_var
    the_var = append_var_list(tmp, the_var);  // run func

    again: 
    fputs("----try----\n", inter_info);
    value = traverse(the_statement->code.try_code.try, the_var, false, global_inter);
    fputs("----stop try----\n", inter_info);

    // restart操作[和continue效果相同]

    if(is_error(&value)){  // 遇到错误->执行except语句[不需要再检查break...]
        do_else = false;
        assignment_statement(the_statement->code.try_code.var, the_var, the_var, value,global_inter);
        fputs("----except----\n", inter_info);
        value = traverse(the_statement->code.try_code.except, the_var, false, global_inter);
        fputs("----stop except----\n", inter_info);
    }

    // 不使用else
    if(value.u == code_restarted){
        if(value.value.type != INT_value){
            value.value.type = INT_value;
            value.value.value.int_value = 0;
        }
        if(value.value.value.int_value <= 0){
            fputs("----restarted real----\n", inter_info);
            value.u = statement_end;
            goto again;
        }
        else{
            value.value.value.int_value -= 1;
        }
    }
    
    // continued操作
    else if(value.u == code_continued){
        if(value.value.type != INT_value){
            value.value.type = INT_value;
            value.value.value.int_value = 0;
        }
        if(value.value.value.int_value <= 0){
            fputs("----block continue real----\n", inter_info);
            value.u = statement_end;
            goto again;
        }
        else{
            value.value.value.int_value -= 1;
        }
    }

    // broken操作
    else if(value.u == code_broken){
        if(value.value.type != INT_value){
            value.value.type = INT_value;
            value.value.value.int_value = 0;
        }
        if(value.value.value.int_value <= 0){
            value.u = statement_end;  // 正常设置[正常语句结束]
        }
        else{
            value.value.value.int_value -= 1;
        }
    }

    if(do_else){  // 不会捕捉break等
        GWARF_result tmp_result = traverse(the_statement->code.try_code.else_do, the_var, false, global_inter);
        error_space(tmp_result, return_value, value);   
    }
    return_value: 
    // 执行finally[必须会执行]
    {
        GWARF_result tmp_result = traverse(the_statement->code.try_code.finally_do, the_var, false, global_inter);
        error_space(tmp_result, to_finally, value);   
    }

    to_finally:
    the_var = free_var_list(the_var);  // free the new var
    return value;
}


// -----------------block func

GWARF_result block_func(statement *the_statement, var_list *the_var, inter *global_inter){  // read the statement list with case to run by func
    GWARF_result value = GWARF_result_reset;
    again: 
    fputs("----block----\n", inter_info);
    value = traverse(the_statement->code.code_block.done, the_var, true, global_inter);
    fputs("----stop block----\n", inter_info);

    // restart操作[和continue效果相同]
    if(value.u == code_restarted){
        if(value.value.type != INT_value){
            value.value.type = INT_value;
            value.value.value.int_value = 0;
        }
        if(value.value.value.int_value <= 0){
            fputs("----restarted real----\n", inter_info);
            value.u = statement_end;
            goto again;
        }
        else{
            value.value.value.int_value -= 1;
        }
    }
    
    // continued操作
    else if(value.u == code_continued){
        if(value.value.type != INT_value){
            value.value.type = INT_value;
            value.value.value.int_value = 0;
        }
        if(value.value.value.int_value <= 0){
            fputs("----block continue real----\n", inter_info);
            value.u = statement_end;
            goto again;
        }
        else{
            value.value.value.int_value -= 1;
        }
    }

    // broken操作
    else if(value.u == code_broken){
        if(value.value.type != INT_value){
            value.value.type = INT_value;
            value.value.value.int_value = 0;
        }
        if(value.value.value.int_value <= 0){
            value.u = statement_end;  // 正常设置[正常语句结束]
        }
        else{
            value.value.value.int_value -= 1;
        }
    }
    return value;
}

// -----------------forin func

GWARF_result forin_func(statement *the_statement, var_list *the_var, inter *global_inter){  // read the statement list with case to run by func
    GWARF_result value = GWARF_result_reset;
    hash_var *tmp = make_hash_var();  // base_var
    the_var = append_var_list(tmp, the_var);
    the_var->tag = run_while;
    GWARF_result tmp_result = traverse(the_statement->code.for_in_cycle.iter, the_var, false, global_inter);  // 取得迭代器
    error_space(tmp_result, return_value, value);

    GWARF_result iter_value = get__iter__(&(tmp_result.value), the_var, global_inter);  // 获取迭代object，一般是返回self
    error_space(iter_value, return_value, value);
    
    bool do_else = true;
    while (1){
        GWARF_result tmp_next = get__next__(&(iter_value.value), the_var, global_inter);// 执行__next__的返回值
        if(is_error(&tmp_next)){  // TODO:: 检查是否为IterException
            value.u = statement_end;
            value.value.type = NULL_value;
            value.value.value.int_value = 0;
            break;  // goto return_value;
        }
        else{
            assignment_statement(the_statement->code.for_in_cycle.var, the_var, the_var,tmp_next,global_inter);  // 赋值
        }
        restart_again: 
        fputs("----for in----\n", inter_info);
        value = traverse(the_statement->code.for_in_cycle.done, the_var, false, global_inter);
        fputs("----stop for in----\n", inter_info);

        // break的操作
        if((value.u == cycle_break) || (value.u == code_broken)){
            do_else = false;
            if(value.value.type != INT_value){
                value.value.type = INT_value;
                value.value.value.int_value = 0;
            }
            if(value.value.value.int_value <= 0){
                value.u = statement_end;  // 正常设置[正常语句结束]
            }
            else{
                value.value.value.int_value -= 1;
            }
            break;
        }

        // continue的操作
        else if((value.u == cycle_continue) || (value.u == code_continued)){
            if(value.value.type != INT_value){
                value.value.type = INT_value;
                value.value.value.int_value = 0;
            }
            if(value.value.value.int_value <= 0){
                value.u = statement_end;
                continue;
            }
            else{
                value.value.value.int_value -= 1;
                do_else = false;
                break;
            }
        }

        // restart的操作
        else if((value.u == cycle_restart) || (value.u == code_restarted)){
            if(value.value.type != INT_value){
                value.value.type = INT_value;
                value.value.value.int_value = 0;
            }
            if(value.value.value.int_value <= 0){
                value.u = statement_end;
                goto restart_again;
            }
            else{
                value.value.value.int_value -= 1;
                do_else = false;
                break;
            }
        }
        else if(value.u == rego){  // rewent认为是正常执行
            do_else = false;
        }
        else{
            error_space(value, return_value, value);
        }
    }
    if(do_else){
        GWARF_result tmp_result = traverse(the_statement->code.for_in_cycle.else_do, the_var, false, global_inter);
        error_space(tmp_result, return_value, value);   
    }
    return_value: 
    the_var = free_var_list(the_var);  // free the new var
    return value;
}

// -----------------while func

GWARF_result while_func(statement *the_statement, var_list *the_var, inter *global_inter){  // read the statement list with case to run by func
    GWARF_result value = GWARF_result_reset;
    bool do_while = the_statement->code.while_cycle.first_do;  // 如果是do_while 则返回true

    hash_var *tmp = make_hash_var();  // base_var
    the_var = append_var_list(tmp, the_var);
    the_var->tag = run_while;
    bool condition, do_else = true;
    while (1){
        if(!do_while){  // do_while 为 true的时候跳过条件检查
            GWARF_result tmp_result = traverse(the_statement->code.while_cycle.condition, the_var, false, global_inter);
            error_space(tmp_result, return_value, value);
            condition = to_bool(tmp_result.value, global_inter);
            fprintf(inter_info, "while condition = %d\n", condition);
            if(!condition){
                break;
            }
        }
        else{
            do_while = false;  // 只有第一次循环可以跳过检查
        }
        
        restart_again: 
        fputs("----while----\n", inter_info);
        value = traverse(the_statement->code.while_cycle.done, the_var, false, global_inter);
        fputs("----stop while----\n", inter_info);

        // break的操作
        if((value.u == cycle_break) || (value.u == code_broken)){
            do_else = false;  // 不执行else部分
            if(value.value.type != INT_value){
                value.value.type = INT_value;
                value.value.value.int_value = 0;
            }
            if(value.value.value.int_value <= 0){
                value.u = statement_end;  // 正常设置[正常语句结束]
            }
            else{
                value.value.value.int_value -= 1;
            }
            break;
        }

        // continue的操作
        else if((value.u == cycle_continue) || (value.u == code_continued)){
            if(value.value.type != INT_value){
                value.value.type = INT_value;
                value.value.value.int_value = 0;
            }
            if(value.value.value.int_value <= 0){
                value.u = statement_end;
                continue;
            }
            else{
                value.value.value.int_value -= 1;
                do_else = false;
                break;
            }
        }

        // restart的操作
        else if((value.u == cycle_restart) || (value.u == code_restarted)){
            if(value.value.type != INT_value){
                value.value.type = INT_value;
                value.value.value.int_value = 0;
            }
            if(value.value.value.int_value <= 0){
                value.u = statement_end;
                goto restart_again;
            }
            else{
                value.value.value.int_value -= 1;
                do_else = false;
                break;
            }
        }
        else if(value.u == rego){  // rewent认为是正常执行
            do_else = false;
        }
        else{
            error_space(value, return_value, value);
        }
    }
    if(do_else){
        GWARF_result tmp_result = traverse(the_statement->code.while_cycle.else_do, the_var, false, global_inter);
        error_space(tmp_result, return_value, value);   
    }
    return_value: 
    the_var = free_var_list(the_var);  // free the new var
    return value;
}

// -----------------operation func
#define get_left_result \
do{ \
left_result = traverse(the_statement->code.operation.left_exp, the_var, false, global_inter); \
if(is_error(&left_result)){ \
    return left_result; \
} \
else if(is_space(&left_result)){ \
    return left_result; \
} \
}while(0);

#define get_right_result \
do{ \
right_result = traverse(the_statement->code.operation.right_exp, the_var, false, global_inter); \
if(is_error(&right_result)) \
{ \
    return right_result; \
} \
else if(right_result.u != return_def && is_space(&right_result)){ \
    return right_result; \
} \
}while(0);

#define get_operation(func) \
do{ \
GWARF_result tmp = func(left_result, right_result, the_var, global_inter); \
if(is_error(&tmp) || is_space(&tmp)){ \
    return tmp; \
} \
tmp = to_object(tmp, global_inter); \
if(is_error(&tmp) || is_space(&tmp)){ \
    return tmp; \
} \
value = assignment_statement_value(the_statement->code.operation.left_exp, the_var, login_var, tmp.value ,global_inter); \
}while(0)

GWARF_result operation_func(statement *the_statement, var_list *the_var, var_list *login_var, inter *global_inter){  // read the statement list with case to run by func
    GWARF_result value, left_result = GWARF_result_reset, right_result = GWARF_result_reset;
    int func_type = the_statement->code.operation.type;
    switch (func_type)  // 获取运算类型
    {
        case ADD_func:
            get_left_result;
            get_right_result;
            value = add_func(left_result, right_result, the_var, global_inter);
            break;
        case SUB_func:
            get_left_result;
            get_right_result;
            value = sub_func(left_result, right_result, the_var, global_inter);
            break;
        case MUL_func:
            get_left_result;
            fputs("Get Left\n", inter_info);
            get_right_result;
            fputs("Get Right\n", inter_info);
            value = mul_func(left_result, right_result, the_var, global_inter);
            break;
        case DIV_func:
            get_left_result;
            get_right_result;
            value = div_func(left_result, right_result, the_var, global_inter);
            break;
        case AADD_func:
            get_left_result;
            get_right_result;
            get_operation(add_func);
            break;
        case ASUB_func:
            get_left_result;
            get_right_result;
            get_operation(sub_func);
            break;
        case AMUL_func:
            get_left_result;
            get_right_result;
            get_operation(mul_func);
            break;
        case ADIV_func:
            get_left_result;
            get_right_result;
            get_operation(div_func);
            break;
        case AMOD_func:
            get_left_result;
            get_right_result;
            get_operation(mod_func);
            break;
        case AINTDIV_func:
            get_left_result;
            get_right_result;
            get_operation(int_div_func);
            break;
        case APOW_func:
            get_left_result;
            get_right_result;
            get_operation(pow_func);
            break;
        case ABITAND_func:
            get_left_result;
            get_right_result;
            get_operation(bit_and_func);
            break;
        case ABITOR_func:
            get_left_result;
            get_right_result;
            get_operation(bit_or_func);
            break;
        case ABITNOTOR_func:
            get_left_result;
            get_right_result;
            get_operation(bit_notor_func);
            break;
        case ABITRIGHT_func:
            get_left_result;
            get_right_result;
            get_operation(bit_right_func);
            break;
        case ABITLEFT_func:
            get_left_result;
            get_right_result;
            get_operation(bit_left_func);
            break;
        case LADD_func:  // a++
            get_left_result;
            right_result.u = statement_end;
            right_result.value.type = INT_value;
            right_result.value.value.int_value = 1;
            value = left_result;  // 先返回值，后自增
            get_operation(add_func);
            break;
        case FADD_func:  // ++a
            get_right_result;
            left_result.u = statement_end;
            left_result.value.type = INT_value;
            left_result.value.value.int_value = 1;
            get_operation(add_func);
            break;
        case LSUB_func:  // a--
            get_left_result;
            right_result.u = statement_end;
            right_result.value.type = INT_value;
            right_result.value.value.int_value = 1;
            value = left_result;  // 先返回值，后自增
            get_operation(sub_func);
            break;
        case FSUB_func:  // --a
            get_right_result;
            left_result = right_result;
            right_result.u = statement_end;
            right_result.value.type = INT_value;
            right_result.value.value.int_value = 1;
            get_operation(sub_func);
            break;
        case NEGATIVE_func:
            get_right_result;
            value = negative_func(right_result, the_var, global_inter);
            break;
        case ASSIGnMENT_func:{  // because the var char, we should ues a {} to make a block[name space] for the tmp var;
            get_right_result;
            value = assignment_statement_eq(the_statement->code.operation.left_exp, the_var, login_var, right_result, global_inter);
            break;
        }
        case IS_func:
            get_left_result;
            get_right_result;
            value = is_func(left_result, right_result, the_var, global_inter);
            break;
        case IN_func:
            get_left_result;
            get_right_result;
            value = in_func(left_result, right_result, the_var, global_inter);
            break;
        case EQUAL_func:
            get_left_result;
            get_right_result;
            value = equal_func(left_result, right_result, the_var, 0, global_inter);
            break;
        case MORE_func:
            get_left_result;
            get_right_result;
            value = equal_func(left_result, right_result, the_var, 1, global_inter);
            break;
        case LESS_func:
            get_left_result;
            get_right_result;
            value = equal_func(left_result, right_result, the_var, 2, global_inter);
            break;
        case MOREEQ_func:
            get_left_result;
            get_right_result;
            value = equal_func(left_result, right_result, the_var, 3, global_inter);
            break;
        case LESSEQ_func:
            get_left_result;
            get_right_result;
            value = equal_func(left_result, right_result, the_var, 4, global_inter);
            break;
        case NOTEQ_func:
            get_left_result;
            get_right_result;
            value = equal_func(left_result, right_result, the_var, 5, global_inter);
            break;
        case POW_func:
            get_left_result;
            get_right_result;
            value = pow_func(left_result, right_result, the_var, global_inter);
            break;
        case LOG_func:
            get_left_result;
            get_right_result;
            value = log_func(left_result, right_result, the_var, global_inter);
            break;
        case SQRT_func:
            get_left_result;
            get_right_result;
            value = sqrt_func(left_result, right_result, the_var, global_inter);
            break;
        case AND_func:
            value = and_func(the_statement->code.operation.left_exp, the_statement->code.operation.right_exp, the_var, global_inter);
            break;
        case OR_func:
            value = or_func(the_statement->code.operation.left_exp, the_statement->code.operation.right_exp, the_var, global_inter);
            break;
        case NOT_func:
            get_left_result;
            get_right_result;
            value = not_func(right_result, the_var, global_inter);
            break;
        case MOD_func:
            get_left_result;
            get_right_result;
            value = mod_func(left_result, right_result, the_var, global_inter);
            break;
        case INTDIV_func:
            get_left_result;
            get_right_result;
            value = int_div_func(left_result, right_result, the_var, global_inter);
            break;
        case BITAND_func:
            get_left_result;
            get_right_result;
            value = bit_and_func(left_result, right_result, the_var, global_inter);
            break;
        case BITOR_func:
            get_left_result;
            get_right_result;
            value = bit_or_func(left_result, right_result, the_var, global_inter);
            break;
        case BITNOTOR_func:
            get_left_result;
            get_right_result;
            value = bit_notor_func(left_result, right_result, the_var, global_inter);
            break;
        case BITRIGHT_func:
            get_left_result;
            get_right_result;
            value = bit_right_func(left_result, right_result, the_var, global_inter);
            break;
        case BITLEFT_func:
            get_left_result;
            get_right_result;
            value = bit_left_func(left_result, right_result, the_var, global_inter);
            break;
        case BITNOT_func:
            get_left_result;
            get_right_result;
            value = bit_not_func(right_result, the_var, global_inter);
            break;
        case BOOLSAND_func:
            value = matchbool_func(the_statement->code.operation.left_exp, the_statement->code.operation.right_exp, the_var, 1, global_inter);
            break;
        case BOOLSOR_func:
            value = matchbool_func(the_statement->code.operation.left_exp, the_statement->code.operation.right_exp, the_var, 2, global_inter);
            break;
        case BOOLNOTOR_func:
            value = matchbool_func(the_statement->code.operation.left_exp, the_statement->code.operation.right_exp, the_var, 3, global_inter);
            break;
        case BOOLIS_func:
            value = matchbool_func(the_statement->code.operation.left_exp, the_statement->code.operation.right_exp, the_var, 4, global_inter);
            break;
        case IRIGHT_func:
            value = matchbool_func(the_statement->code.operation.left_exp, the_statement->code.operation.right_exp, the_var, 4, global_inter);
            break;
        case ILEFT_func:
            value = matchbool_func(the_statement->code.operation.left_exp, the_statement->code.operation.right_exp, the_var, 4, global_inter);
            break;
        case ISRIGHT_func:  // a =:> b
            value = sright_func(the_statement->code.operation.left_exp, the_statement->code.operation.right_exp, the_var, global_inter);
            break;
        case ISLEFT_func:  // a <:= b
            value = sleft_func(the_statement->code.operation.left_exp, the_statement->code.operation.right_exp, the_var, global_inter);
            break;
        default:
            break;
    }
    value = to_object(value,global_inter);  // 返回类型是object[不下放到add func等]
    return value;
}

GWARF_result assignment_statement_value(statement *the_statement, var_list *the_var, var_list *login_var, GWARF_value right_value, inter *global_inter){
    GWARF_result tmp = GWARF_result_reset;
    tmp.u = statement_end;
    tmp.value = right_value;
    return assignment_statement_core(the_statement, the_var, login_var, tmp, false, auto_public, global_inter);
}

GWARF_result assignment_statement_core(statement *the_statement, var_list *the_var, var_list *login_var, GWARF_result right_result, bool self, int the_lock, inter *global_inter){  // int lock代表的是注册权限，如果是auto_public则根据the_statement来决定权限
    GWARF_result value = GWARF_result_reset;
    value.u = statement_end;
    value.value.type = NULL_value;
    value.value.value.int_value = 0;
    value.base_name = NULL;  // 默认是NULL
    if(self == false || right_result.value.lock_token == lock){  // 函数声明的时候使用self
        if(right_result.value.type == OBJECT_value || right_result.value.type == CLASS_value){  // 比如a = q, q是一个object, 若他的__assignment__方法返回的是数字5, 那么a的赋值就相当与a = 5了而不是a = q
            right_result = get__assignment__(&(right_result.value), the_var, global_inter);
            error_space(right_result, return_result, value);
            if(!self) right_result.value.lock_token = base;
        }
        else{
            if(!self) right_result.value.lock_token = base;
        }

    }
    else if(self == 2){  // import和include语句
        right_result.value.lock_token = base;
    }

    if(the_statement == NULL){
        value = right_result;
        value.base_name = NULL;  // 默认是NULL
    }
    else if(the_statement->type == base_var){  // 通过base_var赋值
        char *left = the_statement->code.base_var.var_name;  // get var name but not value
        int from = 0;
        if(the_statement->code.base_var.from == NULL){
            from = 0;
        }
        else{
            GWARF_result tmp_result, tmp_object = traverse(the_statement->code.base_var.from, the_var, false, global_inter);
            error_space(tmp_object, return_result, value);
            
            tmp_result = get__value__(&(tmp_object.value), the_var, global_inter);  // 从object中提取value
            error_space(tmp_result, return_result, value);
            
            if(tmp_result.value.type == INT_value){
                from = tmp_result.value.value.int_value;
            }
            else if(tmp_result.value.type == NUMBER_value){
                from = (int)tmp_result.value.value.double_value;
            }
            else{
                from = 0;
            }
        }
        if(the_lock == auto_public){  // 调整注册权限
            switch(the_statement->code.base_var.lock_token){
                case public_token:
                the_lock = public;
                break;
                case protect_token:
                the_lock = protect;
                break;
                case private_token:
                the_lock = private;
                break;
                default:
                break;
            }
        }
        value = assignment_func(left, right_result, login_var, from, the_lock);
        value.base_name = left;
    }
    else if(the_statement->type == point){  // 通过point赋值
        GWARF_result tmp_result = traverse(the_statement->code.point.base_var, the_var, false, global_inter);  // 不用取value
        error_space(tmp_result, return_result, value);

        if((the_statement->code).point.child_var->type == base_var && (the_statement->code).point.child_var->code.base_var.lock_token == auto_token){  // 需要调整权限
            switch (tmp_result.value.lock_token)
            {
            case lock:
                (the_statement->code).point.child_var->code.base_var.lock_token = protect_token;  // 修改权限
                break;
            default:
                (the_statement->code).point.child_var->code.base_var.lock_token = public_token;  // 默认权限
                break;
            }
        }
        
        GWARF_value base_the_var = tmp_result.value;  // 不用取value
        if(base_the_var.type == CLASS_value){
            value = assignment_statement_eq(the_statement->code.point.child_var, the_var, base_the_var.value.class_value->the_var, right_result,global_inter);
            value.base_name = NULL;  // 默认是NULL
        }
        else if(base_the_var.type == OBJECT_value){
            value = assignment_statement_eq(the_statement->code.point.child_var, the_var, base_the_var.value.object_value->the_var, right_result,global_inter);
            value.base_name = NULL;  // 默认是NULL
        }
        else if(base_the_var.type == FUNC_value){
            value = assignment_statement_eq(the_statement->code.point.child_var, the_var, base_the_var.value.func_value->self, right_result,global_inter);
            value.base_name = NULL;  // 默认是NULL
        }
        else if(base_the_var.type == NULL_value){
            return value;  // 对NONE的point运算均为NULL
        }
        else{
            value = to_error("Type Not Support The Point", "TypeException",global_inter);  // 赋值错误
            value.base_name = NULL;  // 默认是NULL
        }
    }
    else if(the_statement->type == down){  // 通过down赋值
        GWARF_result tmp_result = traverse(the_statement->code.down.base_var, the_var, false, global_inter), get;  // 不用取value
        error_space(tmp_result, return_result, value);

        GWARF_value base_the_var = tmp_result.value;  // 不用取value
        if(base_the_var.type == CLASS_value){  // is class so that can use "."
            var *tmp = find_var(base_the_var.value.class_value->the_var, 0, "__set__", NULL);
            if(tmp != NULL){
                get.value = tmp->value;
                get.father = &base_the_var;  // 设置father
                parameter *tmp = the_statement->code.down.child_var;
                tmp->next = pack_value_parameter(right_result.value);
                value = call_back_core(get, the_var, tmp, global_inter);
                value.base_name = NULL;  // 默认是NULL
                goto the_else;
            }
        }
        else if(base_the_var.type == OBJECT_value){
            var *tmp = find_var(base_the_var.value.object_value->the_var, 0, "__set__", NULL);
            if(tmp != NULL){
                get.value = tmp->value;
                get.father = &base_the_var;  // 设置father
                parameter *tmp = the_statement->code.down.child_var;
                tmp->next = pack_value_parameter(right_result.value);
                value = call_back_core(get, the_var, tmp, global_inter);
                value.base_name = NULL;  // 默认是NULL
            }
            else{
                goto the_else;
            }
        }
        else{
            the_else: value = to_error("Bad Assignment", "AssignmentException",global_inter);  // 赋值错误
            value.base_name = NULL;  // 默认是NULL
        }
    }
    else if(the_statement->type == base_svar){  // 通过base_svar赋值
        int from = 0;
        if(the_statement->code.base_svar.from == NULL){
            from = 0;
        }
        else{
            GWARF_result tmp_result, tmp_object = traverse(the_statement->code.base_svar.from, the_var, false, global_inter);
            error_space(tmp_object, return_result, value);
            
            tmp_result = get__value__(&(tmp_object.value), the_var, global_inter);  // 从object中提取value
            error_space(tmp_result, return_result, value);
            
            if(tmp_result.value.type == INT_value){
                from = tmp_result.value.value.int_value;
            }
            else if(tmp_result.value.type == NUMBER_value){
                from = (int)tmp_result.value.value.double_value;
            }
            else{
                from = 0;
            }
        }

        GWARF_result eq_object = traverse(the_statement->code.base_svar.var, the_var, false, global_inter);
        error_space(eq_object, return_result, value);
        if(eq_object.value.type == NULL_value){  // NULL value 不赋值
            return right_result;
        }
        GWARF_result key_str_tmp = to_str_dict(eq_object.value, the_var, global_inter);
        error_space(key_str_tmp, return_result, value);
        char *str = key_str_tmp.value.value.string;

        if(the_lock == auto_public){  // 调整注册权限
            switch(the_statement->code.base_var.lock_token){
                case public_token:
                the_lock = public;
                break;
                case protect_token:
                the_lock = protect;
                break;
                case private_token:
                the_lock = private;
                break;
                default:
                break;
            }
        }

        fprintf(inter_info, "set : %s\n", str);
        value = assignment_func(str, right_result, login_var, from, the_lock);
        value.base_name = str;  // str来自value，本身就是malloc申请的内存
    }
    else{  // 非标准赋值
        GWARF_result eq_object = traverse(the_statement, the_var, false, global_inter);
        error_space(eq_object, return_result, value);

        if(eq_object.value.type == NULL_value){  // NULL value 不赋值
            return right_result;
        }
        GWARF_result key_str_tmp = to_str_dict(eq_object.value, the_var, global_inter);
        error_space(key_str_tmp, return_result, value);
        char *str = key_str_tmp.value.value.string;

        value = assignment_func(str, right_result, login_var, 0, the_lock);
        value.base_name = str;
    }
    return_result: return value;
}

GWARF_result call_back(statement *the_statement, var_list *the_var, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result get = traverse(the_statement->code.call.func, the_var, false, global_inter), result;
    error_space(get, return_result, result);

    result = call_back_core(get, the_var, the_statement->code.call.parameter_list, global_inter);
    error_space(get, return_result, result);
    result = to_object(result,global_inter);  // 返回类型是object
    return_result: return result;
}

GWARF_result login_var(var_list *the_var, var_list *old_var_list, parameter *tmp_x, parameter *tmp_s, inter *global_inter){
    GWARF_result return_result = GWARF_result_reset;
    return_result.u = statement_end;
    return_result.value.type = NULL_value;
    return_result.value.value.int_value = 0;

    int assignment_type = 0;  // 0-根据tmp_x进行赋值，1-根据tmp_s赋值，2-赋值到kwargs
    var_list *tmp_var = make_var_base(make_hash_var());  // 为1-模式准备[默认为run_func]

    while(1){
        if ((tmp_x == NULL)&&(tmp_s == NULL)){  // the last
            break;
        }
        if(assignment_type == 0){  // 对位赋值
            if ((tmp_x == NULL)&&(tmp_s != NULL)){  // 参数过多
                return to_error("Too Many Args", "ArgsException", global_inter);
                break;
            }
            else if ((tmp_x != NULL)&&(tmp_s == NULL)){  // 使用默认值
                while(1){  // 如果是name_value类型则继续赋值
                    if(tmp_x == NULL){
                        break;
                    }
                    else if(tmp_x->type == name_value){
                        GWARF_result tmp = traverse(tmp_x->u.value, the_var, false, global_inter);  // 执行形参
                        error_space(tmp, return_base_result, return_result);
                        GWARF_result tmp_assignment = assignment_statement_eq(tmp_x->u.var, the_var, the_var, tmp,global_inter);  // 赋值带等号
                        error_space(tmp_assignment, return_base_result, return_result);
                        tmp_x = tmp_x->next;  // get the next to iter
                    }
                    else if(tmp_x->type == put_args){  // args默认为[]
                        GWARF_result func_result = GWARF_result_reset;
                        var *list_init;
                        func_result.u = statement_end;
                        list_init = find_var(old_var_list, 0, "list", NULL);
                        if(list_init != NULL){
                            func_result.value = list_init->value;
                        }
                        GWARF_result tmp_assignment = assignment_statement_eq(tmp_x->u.var, the_var, the_var,call_back_core(func_result, old_var_list, NULL, global_inter), global_inter);  // old_var_list用于计算from等
                        error_space(tmp_assignment, return_base_result, return_result);
                        tmp_x = tmp_x->next;  // get the next to iter
                    }
                    else{
                        return to_error("Too Little Args", "ArgsException", global_inter);
                        break;
                    }

                }
                break;
            }
        }
        else if(assignment_type == 1){  // 根据实参  a = b 来赋值
            if ((tmp_x != NULL)&&(tmp_s == NULL)){  // 实参录入完毕
                while(1){
                    if(tmp_x == NULL){
                        break;  // 形参录入完毕
                    }
                    if(tmp_x->type == put_kwargs){  // 如果遇到了**kwargs，直接把tmp_var中的哈希表合并
                        GWARF_value dict_tmp = get_object(NULL, "dict", old_var_list, global_inter).value;// 生成一个空的dict
                        hash_var *var_dict = tmp_var->hash_var_base;
                        for(int i = 0;i < MAX_SIZE;i += 1){  // 迭代哈希表
                            var *dict_var_tmp = var_dict->hash[i];
                            if(dict_var_tmp != NULL){
                                dict_var_tmp = dict_var_tmp->next;
                            }
                            else{
                                continue;
                            }
                            while (1)
                            {
                                if(dict_var_tmp == NULL){  // 不是空的，迭代var
                                    break;
                                }
                                // 设置值
                                GWARF_value parameter_key = GWARF_value_reset;
                                parameter_key.type = STRING_value;
                                parameter_key.value.string = dict_var_tmp->name;
                                parameter *tmp = pack_value_parameter(parameter_key);  // 索引
                                tmp->next = pack_value_parameter(dict_var_tmp->value);  // 赋值内容
                                
                                GWARF_result get = GWARF_result_reset;
                                var_list *call_var = dict_tmp.value.object_value->the_var;

                                var *__set__tmp = find_var(call_var, 0, "__set__", NULL);
                                if(__set__tmp != NULL){
                                    get.value = __set__tmp->value;
                                    get.father = &(dict_tmp);  // 设置father
                                    GWARF_result call_tmp = call_back_core(get, old_var_list, tmp, global_inter);  // 赋值
                                    error_space(call_tmp, return_base_result, return_result);
                                }
                                dict_var_tmp = dict_var_tmp->next;  // 迭代到下一个
                            }
                            
                        }
                        GWARF_result dict_result = GWARF_result_reset;
                        dict_result.value = dict_tmp;
                        GWARF_result assignment_tmp = assignment_statement_eq(tmp_x->u.var, the_var, the_var, dict_result,global_inter);
                        error_space(assignment_tmp, return_base_result, return_result);
                        tmp_x->next = NULL;  // 理论上没有下一个
                    }
                    else{
                        GWARF_result tmp_x_var = traverse_get_value(tmp_x->u.var, tmp_var, the_var, global_inter);  // 使用tmp_x->u.var在tmp_var中获取变量的值
                        if((!is_error(&tmp_x_var)) && (!is_space(&tmp_x_var))){  // 如果找到了，就赋值
                            GWARF_result tmp = assignment_statement_eq(tmp_x->u.var, the_var, the_var, tmp_x_var,global_inter);  // tmp_x的外部变量使用the_var
                            error_space(tmp, return_base_result, return_result);
                            if(tmp.base_name != NULL){  // 删除变量
                                del_var_var_list(tmp_var, 0, tmp.base_name);  // 从中删除变量
                            }
                        }
                        else if(tmp_x->type == name_value){  // 没找到就检查是否为name_value类型，给默认值
                            GWARF_result tmp = traverse(tmp_x->u.value, the_var, false, global_inter);  // 执行形参
                            error_space(tmp, return_base_result, return_result);

                            tmp = assignment_statement_eq(tmp_x->u.var, the_var, the_var, tmp,global_inter);  // 带等于号的赋值
                            error_space(tmp, return_base_result, return_result);
                        }
                        else{
                            return tmp_x_var;
                        }
                    }
                    tmp_x = tmp_x->next;
                }
                break;
            }
        }

        // 默认处理程序
        GWARF_result tmp = traverse(tmp_s->u.value, old_var_list, false, global_inter);  // 不需要取__value__
        error_space(tmp, return_base_result, return_result);
        if(tmp_s->type == put_kwargs){  // 实参出现**kwargs
            parameter *before = tmp_s, *after = tmp_s->next;
            GWARF_result iter_value = get__iter__(&(tmp.value), old_var_list, global_inter);  // 获取迭代object，一般是返回self
            error_space(iter_value, return_base_result, return_result);
            while (1){
                GWARF_result tmp_next = get__next__(&(iter_value.value), old_var_list, global_inter), tmp_next_down;// 执行__next__的返回值
                if(is_error(&tmp_next)){  // TODO:: 检查是否为IterException
                    break;  // goto return_value;
                }
                if(is_space(&tmp_next)){
                    return tmp_next;
                }

                GWARF_result get = GWARF_result_reset;
                var_list *call_var = tmp.value.value.object_value->the_var;

                var *__down__tmp = find_var(call_var, 0, "__down__", NULL);
                if(__down__tmp != NULL){
                    get.value = __down__tmp->value;
                    get.father = &(tmp.value);  // 设置father
                    tmp_next_down = call_back_core(get, the_var, pack_value_parameter(tmp_next.value), global_inter);
                    error_space(tmp_next_down, return_base_result, return_result);
                }

                before->next = pack_value_parameter(tmp_next_down.value);
                before->next->u.var = make_statement();
                before->next->u.var->type = base_var;
                GWARF_result key_str_tmp = to_str(tmp_next.value, old_var_list, global_inter);
                error_space(key_str_tmp, return_base_result, return_result)
                before->next->u.var->code.base_var.var_name = key_str_tmp.value.value.string;
                before->next->u.var->code.base_var.from = NULL;
                before->next->type = name_value;
                before = before->next;
            }
            before->next = after;
            tmp_s = tmp_s->next;  // 实参去下一位, 形参不变

            assignment_type = 1;
        }
        else if(assignment_type == 0 && tmp_x->type == put_kwargs){  // tmp_s还没到根据name_value的阶段, 遇到了**kwargs，则把后面的所有直接变成dict
            // 放入list中
            GWARF_result dict_tmp = parameter_to_dict(tmp_s, old_var_list, global_inter);
            error_space(dict_tmp, return_base_result, return_result);
            dict_tmp = to_object(dict_tmp, global_inter);  // 把所有name_value变成dict
            error_space(dict_tmp, return_base_result, return_result);
            
            GWARF_result assignment_tmp = assignment_statement(tmp_x->u.var, the_var, the_var, dict_tmp,global_inter);
            error_space(assignment_tmp, return_base_result, return_result);
            assignment_type = 1;  // 进入根据实参赋值模式
            tmp_x = NULL;  // 已经到最后一个了
            tmp_s = NULL;
        }
        else if(assignment_type == 1 || tmp_s->type == name_value){  // 根据tmp_s赋值，同时也是进入assignment_type == 1模式的入口，进入前提是：tmp_x不是put_kwargs[否则直接全部赋值到put_kwargs上即可]
            if(tmp_s->type != name_value){
                return to_error("Miss '=' in Args", "ArgsException", global_inter);
            }
            assignment_type = 1;
            GWARF_result assignment_tmp = assignment_statement(tmp_s->u.var, old_var_list, tmp_var, tmp,global_inter);  // 先赋值到tmp_var上（先不用EQ，后面赋值在用EQ）
            error_space(assignment_tmp, return_base_result, return_result);
            tmp_s = tmp_s->next;
        }
        else if(tmp_s->type == put_args){  // assignment_type不在1模式 -> 把tmp_s列表解释为参数
            parameter *before = tmp_s, *after = tmp_s->next;
            GWARF_result iter_value = get__iter__(&(tmp.value), old_var_list, global_inter);  // 获取迭代object，一般是返回self
            error_space(iter_value, return_base_result, return_result);
            while (1){
                GWARF_result tmp_next = get__next__(&(iter_value.value), old_var_list, global_inter);// 执行__next__的返回值
                if(is_error(&tmp_next)){  // TODO:: 检查是否为IterException
                    break;  // goto return_value;
                }
                if(is_space(&tmp_next)){  // TODO:: 检查是否为IterException
                    return tmp_next;
                }
                before->next = pack_value_parameter(tmp_next.value);
                before = before->next;
            }
            before->next = after;
            tmp_s = tmp_s->next;  // 实参去下一位, 形参不变
        }
        else if(assignment_type == 0 && tmp_x->type == put_args){  // 形参出现了*args，收归所有无默认值的实参[如果以及开始了根据tmp_s赋值模式，则*args无效]
            // 放入list中
            GWARF_result list_tmp = parameter_to_list(tmp_s, old_var_list, global_inter);
            error_space(list_tmp, return_base_result, return_result);
            list_tmp = to_object(list_tmp, global_inter);  // 把所有only_value变成list
            error_space(list_tmp, return_base_result, return_result);

            GWARF_result assignment_tmp = assignment_statement(tmp_x->u.var, old_var_list, the_var, list_tmp,global_inter);
            error_space(assignment_tmp, return_base_result, return_result);

            assignment_type = 1;  // 进入根据实参赋值模式
            tmp_x = tmp_x->next;
            while(1){
                if(tmp_s == NULL){
                    break;
                }
                if(tmp_s->type != only_value && tmp_s->type != put_args){
                    break;
                }
                tmp_s = tmp_s->next;  // tmp_s迭代到only_value的最后一个
            }
        }
        else if(assignment_type == 0){
            GWARF_result assignment_tmp = assignment_statement(tmp_x->u.var, old_var_list, the_var, tmp,global_inter);
            error_space(assignment_tmp, return_base_result, return_result);
            tmp_x = tmp_x->next;  // get the next to iter
            tmp_s = tmp_s->next;
        }
    }
    return_base_result: return return_result;
}

GWARF_result call_back_core(GWARF_result get, var_list *the_var, parameter *tmp_s, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result result = GWARF_result_reset;
    var_list *old_var_list = the_var;
    if(get.value.type == FUNC_value){
        func *func_ = get.value.value.func_value;
        parameter *tmp_x = func_->parameter_list;
        bool new_var_list = false;
        if(func_->the_var != NULL){
            the_var = func_->the_var;  // inline则不需要设置
            new_var_list = true;
        }
        // tmp_x:形参，tmp_s:实参

        if(new_var_list){
            hash_var *tmp = make_hash_var();  // base_var
            the_var = append_var_list(tmp, the_var);  // run func
        }

        if(func_->type == customize){  // 用户定义的方法
            // 赋值self
            GWARF_result father = GWARF_result_reset;
            if(func_->is_class == action){
                if(get.father != NULL && get.father->type == OBJECT_value){
                    father.value = *(get.father);
                    father.value.lock_token = lock;
                    GWARF_result assignment_tmp = assignment_statement_core(tmp_x->u.var, old_var_list, the_var, father, true, auto_public, global_inter);
                    if(is_error(&assignment_tmp) || is_space(&assignment_tmp)){  // Name Error错误
                        the_var = free_var_list(the_var);  // free the new var
                        return result;
                    }
                    tmp_x = tmp_x->next;  // get the next to iter
                }
                // 支持没有father的手动调用
            }
            else if(func_->is_class == cls){
                if(get.father != NULL){
                    if(get.father->type == CLASS_value){
                        father.value = *(get.father);
                    }
                    else if(get.father->type == OBJECT_value){
                        class_object *class_tmp = malloc(sizeof(class_object));
                        father.value.value.class_value = class_tmp;
                        father.value.type = CLASS_value;
                        class_tmp->the_var = get.father->value.object_value->cls;
                        class_tmp->out_var = old_var_list;
                    }
                    else{
                        goto out;
                    }
                    GWARF_result assignment_tmp = assignment_statement_core(tmp_x->u.var, old_var_list, the_var, father, true, auto_public, global_inter);
                    if(is_error(&assignment_tmp) || is_space(&assignment_tmp)){  // Name Error错误
                        the_var = free_var_list(the_var);  // free the new var
                        return result;
                    }
                    tmp_x = tmp_x->next;  // get the next to iter
                }
                out:
                ;
            }
            GWARF_result tmp_return = login_var(the_var, old_var_list, tmp_x, tmp_s, global_inter);
            if(tmp_return.u != statement_end){
                the_var = free_var_list(the_var);  // free the new var
                return tmp_return;
            }
            fputs("----start func----\n", inter_info);
            result = traverse(func_->done, the_var, false, global_inter);  // 执行func_value->done
            if(is_error(&result) || is_space(&result)){  // Name Error错误
                the_var = free_var_list(the_var);  // free the new var
                return result;
            }

            if(func_->is_lambda){
                result.return_times = 0;
                result.u = return_def;
            }
            fputs("----stop start func----\n", inter_info);
        }
        else{
            result = func_->paser(func_, tmp_s, the_var, get, old_var_list, global_inter);
        }
        if(new_var_list){
            the_var = free_var_list(the_var);  // free the new var
        }
        goto back;
    }
    else if(get.value.type == CLASS_value){  // 生成实例
        the_object *object_tmp = malloc(sizeof(the_object));  // 生成object的空间
        object_tmp->cls = get.value.value.class_value->the_var;
        var_list *tmp_var_list = make_var_base(make_hash_var());
        object_tmp->the_var = append_by_var_list(tmp_var_list, object_tmp->cls);
        object_tmp->the_var->tag = run_object;
        GWARF_value tmp = GWARF_value_reset;
        tmp.type = OBJECT_value;
        tmp.value.object_value = object_tmp;

        // 执行__init__
        var *init_tmp = find_var(object_tmp->cls, 0, "__init__", NULL);
        if(init_tmp != NULL){  // 找到了__init__
            func *func_ = init_tmp->value.value.func_value;
            parameter *tmp_x = func_->parameter_list;
            the_var = func_->the_var;
            // tmp_x:形参，tmp_s:实参

            hash_var *tmp = make_hash_var();  // base_var
            the_var = append_var_list(tmp, the_var);  // 默认设置为run func

            if(func_->type == customize){  // 用户定义的方法
                GWARF_result father = GWARF_result_reset;
                father.value.type = OBJECT_value;
                father.value.value.object_value = object_tmp;
                if(func_->is_class == action){
                    GWARF_result assignment_tmp = assignment_statement_core(tmp_x->u.var, old_var_list, the_var, father, true, auto_public, global_inter);
                    if(is_error(&assignment_tmp) || is_space(&assignment_tmp)){  // Name Error错误
                        the_var = free_var_list(the_var);  // free the new var
                        return result;
                    }
                    tmp_x = tmp_x->next;  // get the next to iter
                }
                else if(func_->is_class == cls){
                    GWARF_result assignment_tmp = assignment_statement_core(tmp_x->u.var, old_var_list, the_var, get, true, auto_public, global_inter);  // 传入父亲
                    if(is_error(&assignment_tmp) || is_space(&assignment_tmp)){  // Name Error错误
                        the_var = free_var_list(the_var);  // free the new var
                        return result;
                    }
                    tmp_x = tmp_x->next;  // get the next to iter
                }

                GWARF_result tmp_return = login_var(the_var, old_var_list, tmp_x, tmp_s, global_inter);
                if(tmp_return.u != statement_end){
                    the_var = free_var_list(the_var);  // free the new var
                    return tmp_return;
                }

                fputs("----start func----\n", inter_info);
                {
                    GWARF_result tmp = traverse(func_->done, the_var, false, global_inter);  // 执行func_value->done
                    if(is_error(&tmp) || is_space(&tmp)){  // Name Error错误
                        the_var = free_var_list(the_var);  // free the new var
                        return tmp;
                    }
                }
                fputs("----stop start func----\n", inter_info);
            }
            else{
                GWARF_result tmp_get = GWARF_result_reset;
                GWARF_value father = GWARF_value_reset;
                father.type = OBJECT_value;
                father.value.object_value = object_tmp;
                tmp_get.father = &father;
                GWARF_result tmp = func_->paser(func_, tmp_s, the_var, tmp_get, old_var_list, global_inter);   // 返回值不记录
                if(is_error(&tmp) || is_space(&tmp)){  // Name Error错误
                    the_var = free_var_list(the_var);  // free the new var
                    return tmp;
                }
            }
            the_var = free_var_list(the_var);  // free the new var
        }
        // 记录返回值
        result.u = statement_end;
        result.value = tmp;
    }
    else if(get.value.type == OBJECT_value){  // 调用__call__方法
        // 执行__init__
        var *call_tmp = find_var(get.value.value.object_value->the_var, 0, "__call__", NULL);
        if(call_tmp != NULL){  // 找到了__init__
            func *func_ = call_tmp->value.value.func_value;
            parameter *tmp_x = func_->parameter_list;
            the_var = func_->the_var;
            // tmp_x:形参，tmp_s:实参

            hash_var *tmp = make_hash_var();  // base_var
            the_var = append_var_list(tmp, the_var);

            if(func_->type == customize){  // 用户定义的方法
                if(func_->is_class == action){
                    GWARF_result assignment_tmp = assignment_statement_core(tmp_x->u.var, old_var_list, the_var, get, true, auto_public, global_inter);
                    if(is_error(&assignment_tmp) || is_space(&assignment_tmp)){  // Name Error错误
                        the_var = free_var_list(the_var);  // free the new var
                        return result;
                    }
                    tmp_x = tmp_x->next;  // get the next to iter
                }
                else if(func_->is_class == cls){
                    GWARF_result father = GWARF_result_reset;
                    class_object *class_tmp = malloc(sizeof(class_object));

                    father.value.type = CLASS_value;
                    father.value.value.class_value = class_tmp;
                    class_tmp->the_var = get.value.value.object_value->cls;
                    class_tmp->out_var = old_var_list;
                    GWARF_result assignment_tmp = assignment_statement_core(tmp_x->u.var, old_var_list, the_var, father, true, auto_public, global_inter);
                    if(is_error(&assignment_tmp) || is_space(&assignment_tmp)){  // Name Error错误
                        the_var = free_var_list(the_var);  // free the new var
                        return result;
                    }
                    tmp_x = tmp_x->next;  // get the next to iter
                }

                GWARF_result tmp_return = login_var(the_var, old_var_list, tmp_x, tmp_s, global_inter);
                if(tmp_return.u != statement_end){
                    the_var = free_var_list(the_var);  // free the new var
                    return tmp_return;
                }

                fputs("----start func----\n", inter_info);
                result = traverse(func_->done, the_var, false, global_inter);  // 执行func_value->done
                if(is_error(&result) || is_space(&result)){  // Name Error错误
                    the_var = free_var_list(the_var);  // free the new var
                    return result;
                }

                if(func_->is_lambda){
                    result.return_times = 0;
                    result.u = return_def;
                }
                fputs("----stop start func----\n", inter_info);
            }
            else{  // 官方方法
                GWARF_result tmp_get = GWARF_result_reset;
                GWARF_value father = GWARF_value_reset;
                father.type = OBJECT_value;
                father.value.object_value = get.value.value.object_value;
                tmp_get.father = &father;
                GWARF_result tmp = func_->paser(func_, tmp_s, the_var, tmp_get, old_var_list, global_inter);   // 返回值不记录
                if(is_error(&tmp)){  // Name Error错误
                    the_var = free_var_list(the_var);  // free the new var
                    // fputs("STOP:: Name No Found!\n", inter_info);
                    return tmp;
                }
                else if(is_space(&tmp)){
                    the_var = free_var_list(the_var);  // free the new var
                    return tmp;
                }
            }
            the_var = free_var_list(the_var);  // free the new var
        }
        else{
            return to_error("Don't Support to CallBack", "ValueException", global_inter);
        }
    }
    back:
    if(result.u == return_def){
        if(result.return_times <= 0){
            result.u = statement_end;
        }
        else{
            result.return_times -= 1; 
        }
    }
    return result;
}

// ---------  AND
GWARF_result and_func(statement *left_statement, statement *right_statement, var_list *the_var, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result return_value, get;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for and
    return_value.u = statement_end;
    return_value.value.type = BOOL_value;

    bool left = to_bool(traverse(left_statement, the_var, false, global_inter).value, global_inter), right;
    if(left){
        right = to_bool(traverse(right_statement, the_var, false, global_inter).value, global_inter);
        if(right){
            return_value.value.value.bool_value = true;
        }
        else{
            return_value.value.value.bool_value = false;
        }
    }
    else{
        return_value.value.value.bool_value = false;
    }
    return_back: return return_value;
}

// ---------  SBOOL
// 1- and
// 2- or
// 3- not or(不能相等)
// 4- is(相等)
// 5- left ==> right
// 6- left <== right
GWARF_result matchbool_func(statement *left_statement, statement *right_statement, var_list *the_var, int type, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result return_value, get;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for and
    return_value.u = statement_end;
    return_value.value.type = BOOL_value;

    GWARF_result left_result, right_result;
    left_result = traverse(left_statement, the_var, false, global_inter);
    error_space(left_result, return_back, return_value);
    right_result = traverse(right_statement, the_var, false, global_inter);
    error_space(left_result, return_back, return_value);

    bool left = to_bool(left_result.value, global_inter), right = to_bool(right_result.value, global_inter);
    if((left + right == 2 && type == 1) || (left + right >= 1 && type == 2) || (left != right && type == 3) || (left == right && type == 4)|| ((!left || right) && type == 5) || ((left || !right) && type == 4)){
        return_value.value.value.bool_value = true;
    }
    else{
        return_value.value.value.bool_value = false;
    }
    return_back: return return_value;
}

// ---------  OR
GWARF_result or_func(statement *left_statement, statement *right_statement, var_list *the_var, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result return_value, get;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for and
    return_value.u = statement_end;
    return_value.value.type = BOOL_value;

    GWARF_result left_result, right_result;
    left_result = traverse(left_statement, the_var, false, global_inter);
    error_space(left_result, return_back, return_value);
    bool left = to_bool(left_result.value, global_inter), right;
    if(left){
        return_value.value.value.bool_value = true;
    }
    else{
        right_result = traverse(right_statement, the_var, false, global_inter);
        error_space(left_result, return_back, return_value);
        right = to_bool(right_result.value, global_inter);
        if(right){
            return_value.value.value.bool_value = true;
        }
        else{
            return_value.value.value.bool_value = false;
        }
    }
    return_back: return return_value;
}

// ---------  SLEFT
// left =:> right
GWARF_result sleft_func(statement *left_statement, statement *right_statement, var_list *the_var, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result return_value, get;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for and
    return_value.u = statement_end;
    return_value.value.type = BOOL_value;

    GWARF_result left_result, right_result;
    left_result = traverse(left_statement, the_var, false, global_inter);
    error_space(left_result, return_back, return_value);
    bool left = to_bool(left_result.value, global_inter), right;
    if(left){
        right_result = traverse(right_statement, the_var, false, global_inter);
        error_space(left_result, return_back, return_value);
        right = to_bool(right_result.value, global_inter);
        if(right){
            return_value.value.value.bool_value = true;
        }
        else{
            return_value.value.value.bool_value = false;
        }
    }
    else{
        return_value.value.value.bool_value = true;
    }
    return_back: return return_value;
}

// ---------  SRIGHT
// left <:= right
GWARF_result sright_func(statement *left_statement, statement *right_statement, var_list *the_var, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result return_value, get;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for and
    return_value.u = statement_end;
    return_value.value.type = BOOL_value;

    GWARF_result left_result, right_result;
    left_result = traverse(left_statement, the_var, false, global_inter);
    error_space(left_result, return_back, return_value);
    bool left = to_bool(left_result.value, global_inter), right;
    if(left){
        return_value.value.value.bool_value = true;
    }
    else{
        right_result = traverse(right_statement, the_var, false, global_inter);
        error_space(left_result, return_back, return_value);
        right = to_bool(right_result.value, global_inter);
        if(!right){
            return_value.value.value.bool_value = true;
        }
        else{
            return_value.value.value.bool_value = false;
        }
    }
    return_back: return return_value;
}

// ---------  NOT
GWARF_result not_func(GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result return_value, get;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for and
    return_value.u = statement_end;
    return_value.value.type = BOOL_value;
    bool right = to_bool(right_result.value, global_inter);
    if(right)
    {
        return_value.value.value.bool_value = false;
    }
    else{
        return_value.value.value.bool_value = true;
    }
    return_back: return return_value;
}

#define NotSupportCul() \
else{ \
    return to_error("Don't Support to Calculation", "TypeException", global_inter); \
}

// ---------  BITAND &
GWARF_result bit_and_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result return_value, get;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for add
    if(left_result.value.type == OBJECT_value){  // 调用左add方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__bitand__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
        // goto next if
    }
    if(right_result.value.type == OBJECT_value){  // 调用右add方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__bitand__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }

    {
        // 理论上用户是不可以直接调用下面的基类的，计算过程中万物皆类
        if(left_result.value.type == NULL_value){
            left_result.value.type = INT_value;  // NULL相当于0
            left_result.value.value.int_value = 0;  // NULL相当于0
        }
        else if(right_result.value.type == NULL_value){
            right_result.value.type = INT_value;  // NULL相当于0
            right_result.value.value.int_value = 0;  // NULL相当于0
        }

        if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = left_result.value.value.int_value & right_result.value.value.int_value;
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)left_result.value.value.double_value & (int)right_result.value.value.double_value;
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = left_result.value.value.int_value & (int)right_result.value.value.double_value;
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)left_result.value.value.double_value & right_result.value.value.int_value;
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

// ---------  BITOR |
GWARF_result bit_or_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result return_value, get;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for add
    if(left_result.value.type == OBJECT_value){  // 调用左add方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__bitor__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
        // goto next if
    }
    if(right_result.value.type == OBJECT_value){  // 调用右add方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__bitor__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }

    {
        // 理论上用户是不可以直接调用下面的基类的，计算过程中万物皆类
        if(left_result.value.type == NULL_value){
            left_result.value.type = INT_value;  // NULL相当于0
            left_result.value.value.int_value = 0;  // NULL相当于0
        }
        else if(right_result.value.type == NULL_value){
            right_result.value.type = INT_value;  // NULL相当于0
            right_result.value.value.int_value = 0;  // NULL相当于0
        }

        if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = left_result.value.value.int_value | right_result.value.value.int_value;
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)left_result.value.value.double_value | (int)right_result.value.value.double_value;
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = left_result.value.value.int_value | (int)right_result.value.value.double_value;
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)left_result.value.value.double_value | right_result.value.value.int_value;
        }
        NotSupportCul();
    }
    return_back: return return_value;
}


// ---------  BITNOTOR ^
GWARF_result bit_notor_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result return_value, get;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for add
    if(left_result.value.type == OBJECT_value){  // 调用左add方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__bitnotor__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
        // goto next if
    }
    if(right_result.value.type == OBJECT_value){  // 调用右add方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__bitnotor__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }

    {
        // 理论上用户是不可以直接调用下面的基类的，计算过程中万物皆类
        if(left_result.value.type == NULL_value){
            left_result.value.type = INT_value;  // NULL相当于0
            left_result.value.value.int_value = 0;  // NULL相当于0
        }
        else if(right_result.value.type == NULL_value){
            right_result.value.type = INT_value;  // NULL相当于0
            right_result.value.value.int_value = 0;  // NULL相当于0
        }

        if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = left_result.value.value.int_value ^ right_result.value.value.int_value;
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)left_result.value.value.double_value ^ (int)right_result.value.value.double_value;
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = left_result.value.value.int_value ^ (int)right_result.value.value.double_value;
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)left_result.value.value.double_value ^ right_result.value.value.int_value;
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

// ---------  BITLEFT <<
GWARF_result bit_left_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result return_value, get;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for add
    if(left_result.value.type == OBJECT_value){  // 调用左add方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__bitleft__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
        // goto next if
    }
    if(right_result.value.type == OBJECT_value){  // 调用右add方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__bitleftr__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }

    {
        // 理论上用户是不可以直接调用下面的基类的，计算过程中万物皆类
        if(left_result.value.type == NULL_value){
            left_result.value.type = INT_value;  // NULL相当于0
            left_result.value.value.int_value = 0;  // NULL相当于0
        }
        else if(right_result.value.type == NULL_value){
            right_result.value.type = INT_value;  // NULL相当于0
            right_result.value.value.int_value = 0;  // NULL相当于0
        }

        if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = left_result.value.value.int_value << right_result.value.value.int_value;
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)left_result.value.value.double_value << (int)right_result.value.value.double_value;
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = left_result.value.value.int_value << (int)right_result.value.value.double_value;
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)left_result.value.value.double_value << right_result.value.value.int_value;
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

// ---------  BITRIGHT >>
GWARF_result bit_right_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result return_value, get;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for add
    if(left_result.value.type == OBJECT_value){  // 调用左add方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__bitright__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
        // goto next if
    }
    if(right_result.value.type == OBJECT_value){  // 调用右add方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__bitrightr__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }

    {
        // 理论上用户是不可以直接调用下面的基类的，计算过程中万物皆类
        if(left_result.value.type == NULL_value){
            left_result.value.type = INT_value;  // NULL相当于0
            left_result.value.value.int_value = 0;  // NULL相当于0
        }
        else if(right_result.value.type == NULL_value){
            right_result.value.type = INT_value;  // NULL相当于0
            right_result.value.value.int_value = 0;  // NULL相当于0
        }

        if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = left_result.value.value.int_value >> right_result.value.value.int_value;
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)left_result.value.value.double_value >> (int)right_result.value.value.double_value;
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = left_result.value.value.int_value >> (int)right_result.value.value.double_value;
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)left_result.value.value.double_value >> right_result.value.value.int_value;
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

// ---------  BITNOT ~
GWARF_result bit_not_func(GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for negative and call from read_statement_list
    GWARF_result return_value;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for negative
    if(right_result.value.type == OBJECT_value){  // 调用右sub方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__bitnot__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.bool_value = 1;
        }
    }
    else{
        if(right_result.value.type == NULL_value){  // 返回bool true
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = 1;
        }
        else if(right_result.value.type == INT_value){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = ~right_result.value.value.int_value;
        }
        else if(right_result.value.type == BOOL_value){
            return_value.u = statement_end;
            return_value.value.type = BOOL_value;
            if(right_result.value.value.bool_value)
            {
                return_value.value.value.bool_value = false;
            }
            else{
                return_value.value.value.bool_value = true;
            }
        }
        else if(right_result.value.type == NUMBER_value){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = ~((int)right_result.value.value.double_value);
        }
        NotSupportCul();
    }
    return return_value;
}

// ---------  ADD
GWARF_result add_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for add and call from read_statement_list
    GWARF_result return_value, get;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for add
    if(left_result.value.type == OBJECT_value){  // 调用左add方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__add__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
        // goto next if
    }
    if(right_result.value.type == OBJECT_value){  // 调用右add方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__add__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }

    {
        // 理论上用户是不可以直接调用下面的基类的，计算过程中万物皆类
        if(left_result.value.type == NULL_value){
            return_value.u = statement_end;
            return_value.value = right_result.value;  // NULL加法相当于0
        }
        else if(right_result.value.type == NULL_value){
            return_value.u = statement_end;
            return_value.value = left_result.value;  // NULL加法相当于0
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)(left_result.value.value.int_value + right_result.value.value.int_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)(left_result.value.value.double_value + right_result.value.value.double_value);
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)(left_result.value.value.int_value + right_result.value.value.double_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)(left_result.value.value.double_value + right_result.value.value.int_value);
        }
        else if((left_result.value.type == STRING_value) && (right_result.value.type == STRING_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = STRING_value;
            char *l = left_result.value.value.string;
            char *r = right_result.value.value.string;
            return_value.value.value.string = malloc(strlen(l) + strlen(r));  // 创建新空间
            strcpy(return_value.value.value.string, l);  // 复制字符串
            strcat(return_value.value.value.string, r);  // 追加字符串
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

// ---------  SUB
GWARF_result sub_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for sub and call from read_statement_list
    GWARF_result return_value;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for sub
    if(left_result.value.type == OBJECT_value){  // 调用左sub方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__sub__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
    }
    if(right_result.value.type == OBJECT_value){  // 调用右sub方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__subr__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }
    {
        if(left_result.value.type == NULL_value){
            return_value.u = statement_end;
            return negative_func(right_result, the_var, global_inter);  // NULL减法相当于0
        }
        else if(right_result.value.type == NULL_value){
            return_value.u = statement_end;
            return_value.value = left_result.value;  // NULL减法相当于0
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)(left_result.value.value.int_value - right_result.value.value.int_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)(left_result.value.value.double_value - right_result.value.value.double_value);
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)(left_result.value.value.int_value - right_result.value.value.double_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)(left_result.value.value.double_value - right_result.value.value.int_value);
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

// ---------  negative
GWARF_result negative_func(GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for negative and call from read_statement_list
    GWARF_result return_value;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for negative
    if(right_result.value.type == OBJECT_value){  // 调用右sub方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__negative__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value.type = BOOL_value;
            return_value.value.value.bool_value = true;
        }
    }
    else{
        if(right_result.value.type == NULL_value){  // 返回bool true
            return_value.u = statement_end;
            return_value.value.type = BOOL_value;
            return_value.value.value.bool_value = true;
        }
        else if(right_result.value.type == INT_value){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)(-1 * right_result.value.value.int_value);
        }
        else if(right_result.value.type == BOOL_value){
            return_value.u = statement_end;
            return_value.value.type = BOOL_value;
            if(right_result.value.value.bool_value)
            {
                return_value.value.value.bool_value = false;
            }
            else{
                return_value.value.value.bool_value = true;
            }
        }
        else if(right_result.value.type == NUMBER_value){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)(-1 * right_result.value.value.double_value);
        }
        else if(right_result.value.type == STRING_value){  // 字符串
            return_value.u = statement_end;
            return_value.value.type = STRING_value;
            char *r = right_result.value.value.string;
            return_value.value.value.string = malloc(strlen(r));  // 创建新空间
            char *tmp = malloc(strlen(r));
            strcpy(tmp, r);  // 复制字符串
            for(int i=0;i<strlen(tmp);i += 1){
                return_value.value.value.string[i] = tmp[strlen(tmp) - i - 1];  // 反转
            }
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

// ---------  MUL
GWARF_result mul_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for mul and call from read_statement_list
    GWARF_result return_value;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for mul
    if(left_result.value.type == OBJECT_value){  // 调用左mul方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__mul__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
    }
    if(right_result.value.type == OBJECT_value){  // 调用右mul方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__mul__", NULL);
        if(tmp != NULL){
            fputs("FWW\n", inter_info);
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }
    {
        if(left_result.value.type == NULL_value){
            return_value.value = right_result.value;  // NULL乘法相当于1
        }
        else if(right_result.value.type == NULL_value){
            return_value.value = left_result.value;  // NULL乘法相当于1
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)(left_result.value.value.int_value * right_result.value.value.int_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)(left_result.value.value.double_value * right_result.value.value.double_value);
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)(left_result.value.value.int_value * right_result.value.value.double_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)(left_result.value.value.double_value * right_result.value.value.int_value);
        }
        else if((left_result.value.type == INT_value) && (right_result.value.type == STRING_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = STRING_value;
            int l = left_result.value.value.int_value;
            char *r = right_result.value.value.string;
            if(l == 0){
                return_value.value.value.string = (char *)malloc(0);  // NULL string
            }
            else if(l > 0){
                return_value.value.value.string = malloc(strlen(r) * l);  // 创建新空间
                strcpy(return_value.value.value.string, r);  // 复制字符串
                l -= 1;
                for(;l>0;l -= 1){
                    strcat(return_value.value.value.string, r);  // 追加字符串
                }
            }
            else{
                return_value.value.value.string = malloc(strlen(r) * (-l));  // 创建新空间
                char *tmp = malloc(strlen(r) * (-l));
                strcpy(tmp, r);  // 复制字符串
                l += 1;
                for(;l<0;l += 1){
                    strcat(tmp, r);  // 追加字符串
                }
                for(int i=0;i<strlen(tmp);i += 1){
                    return_value.value.value.string[i] = tmp[strlen(tmp) - i - 1];  // 反转
                }
                free(tmp);
            }
        }
        else if((left_result.value.type == STRING_value) && (right_result.value.type == INT_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = STRING_value;
            int l = right_result.value.value.int_value;
            char *r = left_result.value.value.string;
            if(l == 0){
                return_value.value.value.string = (char *)malloc(0);  // NULL string
            }
            else if(l > 0){
                return_value.value.value.string = malloc(strlen(r) * l);  // 创建新空间
                strcpy(return_value.value.value.string, r);  // 复制字符串
                l -= 1;
                for(;l>0;l -= 1){
                    strcat(return_value.value.value.string, r);  // 追加字符串
                }
            }
            else{
                return_value.value.value.string = malloc(strlen(r) * (-l));  // 创建新空间
                char *tmp = malloc(strlen(r) * (-l));
                strcpy(tmp, r);  // 复制字符串
                l += 1;
                for(;l<0;l += 1){
                    strcat(tmp, r);  // 追加字符串
                }
                for(int i=0;i<strlen(tmp);i += 1){
                    return_value.value.value.string[i] = tmp[strlen(tmp) - i - 1];  // 反转
                }
                free(tmp);
            }
            
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

#define div_zero_check(value) \
if(value == 0){ \
    return_value = to_error("Try to Div Zero", "DivZeroException", global_inter); \
    goto return_back; \
}

// ---------  DIV
GWARF_result div_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for div and call from read_statement_list
    GWARF_result return_value;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for div
    if(left_result.value.type == OBJECT_value){  // 调用左div方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__div__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
    }
    if(right_result.value.type == OBJECT_value){  // 调用右div方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__divr__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }
    {
        if(left_result.value.type == NULL_value){
            left_result.value.type = INT_value;
            left_result.value.value.int_value = 1;
        }
        else if(right_result.value.type == NULL_value){
            return_value.value = left_result.value;  // NULL除发相当于1
            goto return_back;
        }
        // 此处不是else if
        if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;  // 除 无int
            div_zero_check(right_result.value.value.int_value);
            return_value.value.value.double_value = ((double)left_result.value.value.int_value / (double)right_result.value.value.int_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            div_zero_check(right_result.value.value.double_value);
            return_value.value.value.double_value = (left_result.value.value.double_value / right_result.value.value.double_value);
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            div_zero_check(right_result.value.value.double_value);
            return_value.value.value.double_value = ((double)left_result.value.value.int_value / right_result.value.value.double_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            div_zero_check(right_result.value.value.int_value);
            return_value.value.value.double_value = (left_result.value.value.double_value / (double)right_result.value.value.int_value);
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

// ---------  MOD_func
GWARF_result mod_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for div and call from read_statement_list
    GWARF_result return_value;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for div
    if(left_result.value.type == OBJECT_value){  // 调用左div方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__mod__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
    }
    if(right_result.value.type == OBJECT_value){  // 调用右div方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__modr__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }
    {
        if(left_result.value.type == NULL_value){
            left_result.value.type = INT_value;
            left_result.value.value.int_value = 1;
        }
        else if(right_result.value.type == NULL_value){
            return_value.value = left_result.value;  // NULL除 相当于1
            goto return_back;
        }
        // 此处不是else if
        if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            div_zero_check(right_result.value.value.int_value);
            return_value.value.value.int_value = (left_result.value.value.int_value % right_result.value.value.int_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            div_zero_check(right_result.value.value.double_value);
            return_value.value.value.int_value = ((int)left_result.value.value.double_value % (int)right_result.value.value.double_value);
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            div_zero_check(right_result.value.value.double_value);
            return_value.value.value.int_value = (left_result.value.value.int_value % (int)right_result.value.value.double_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            div_zero_check(right_result.value.value.int_value);
            return_value.value.value.int_value = ((int)left_result.value.value.double_value % right_result.value.value.int_value);
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

// ---------  int_div[整除]
GWARF_result int_div_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for div and call from read_statement_list
    GWARF_result return_value;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for div
    if(left_result.value.type == OBJECT_value){  // 调用左div方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__idiv__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
    }
    if(right_result.value.type == OBJECT_value){  // 调用右div方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__idivr__", NULL);  // 整除
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }
    {
        if(left_result.value.type == NULL_value){
            left_result.value.type = INT_value;
            left_result.value.value.int_value = 1;
        }
        else if(right_result.value.type == NULL_value){
            return_value.value = left_result.value;  // NULL除发相当于1
            goto return_back;
        }
        // 此处不是else if
        if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;  // 除 无int
            div_zero_check(right_result.value.value.int_value);
            return_value.value.value.int_value = ((int)left_result.value.value.int_value / (int)right_result.value.value.int_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            div_zero_check(right_result.value.value.double_value);
            return_value.value.value.int_value = ((int)left_result.value.value.double_value / (int)right_result.value.value.double_value);
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            div_zero_check(right_result.value.value.double_value);
            return_value.value.value.int_value = ((int)left_result.value.value.int_value / (int)right_result.value.value.double_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            div_zero_check(right_result.value.value.int_value);
            return_value.value.value.int_value = ((int)left_result.value.value.double_value / (int)right_result.value.value.int_value);
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

// ---------  POW
GWARF_result pow_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for div and call from read_statement_list
    GWARF_result return_value;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for div
    if(left_result.value.type == OBJECT_value){  // 调用左pow方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__pow__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
    }
    if(right_result.value.type == OBJECT_value){  // 调用右pow方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__powr__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }
    {
        if(left_result.value.type == NULL_value){
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = 1;
        }
        else if(right_result.value.type == NULL_value){
            return_value.value = left_result.value;  // NULL乘方相当于1
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)pow((double)left_result.value.value.int_value, (double)right_result.value.value.int_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)pow(left_result.value.value.double_value, right_result.value.value.double_value);
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)pow((double)left_result.value.value.int_value, (double)right_result.value.value.double_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)pow((double)left_result.value.value.double_value, (double)right_result.value.value.int_value);
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

#define log_check(left, right) \
if(left <= 0){ \
    return_value = to_error("Logarithm Base Can't Be Less Than 0", "ValueException", global_inter); \
    goto return_back; \
} \
if(left == 1){ \
    return_value = to_error("Logarithm Base Can't be 1", "ValueException", global_inter); \
    goto return_back; \
} \
if(right <= 0){ \
    return_value = to_error("Logarithmic True Number Can't Be Less Than 0", "ValueException", global_inter); \
    goto return_back; \
}

// ---------  LOG
GWARF_result log_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for div and call from read_statement_list
    GWARF_result return_value;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for div
    if(left_result.value.type == OBJECT_value){  // 调用左log方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__log__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
    }
    if(right_result.value.type == OBJECT_value){  // 调用右log方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__logr__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }
    {
        if(left_result.value.type == NULL_value){
            return_value.value = left_result.value;  // 返回NULL
        }
        else if(right_result.value.type == NULL_value){
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = 0;
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            log_check(left_result.value.value.int_value, right_result.value.value.int_value);
            return_value.value.value.int_value = (int)log_((double)left_result.value.value.int_value, (double)right_result.value.value.int_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            log_check(left_result.value.value.double_value, right_result.value.value.double_value);
            return_value.value.value.double_value = (double)log_(left_result.value.value.double_value, right_result.value.value.double_value);
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            log_check(left_result.value.value.int_value, right_result.value.value.double_value);
            return_value.value.value.double_value = (double)log_((double)left_result.value.value.int_value, (double)right_result.value.value.double_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            log_check(left_result.value.value.double_value, right_result.value.value.int_value);
            return_value.value.value.double_value = (double)log_((double)left_result.value.value.double_value, (double)right_result.value.value.int_value);
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

// ---------  SQRT
GWARF_result sqrt_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for div and call from read_statement_list
    GWARF_result return_value;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for div
    if(left_result.value.type == OBJECT_value){  // 调用左sqrt方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__sqrt__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
    }
    if(right_result.value.type == OBJECT_value){  // 调用右sqrt方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__sqrtr__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value = left_result.value;
        }
        goto return_back;
    }
    {
        if(left_result.value.type == NULL_value){
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = 0;
        }
        else if(right_result.value.type == NULL_value){
            return_value.value = right_result.value;  // 返回NULL
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            return_value.u = statement_end;
            return_value.value.type = INT_value;
            return_value.value.value.int_value = (int)sqrt_((double)left_result.value.value.int_value, (double)right_result.value.value.int_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)sqrt_(left_result.value.value.double_value, right_result.value.value.double_value);
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)sqrt_((double)left_result.value.value.int_value, (double)right_result.value.value.double_value);
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            return_value.u = statement_end;
            return_value.value.type = NUMBER_value;
            return_value.value.value.double_value = (double)sqrt_((double)left_result.value.value.double_value, (double)right_result.value.value.int_value);
        }
        NotSupportCul();
    }
    return_back: return return_value;
}

// ---------  IN
GWARF_result in_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){  // the func for div and call from read_statement_list
    GWARF_result return_value;  // the result by call read_statement_list with left and right = GWARF_result_reset; value is the result for div
    if(right_result.value.type == OBJECT_value){  // 调用右sqrt方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, "__in__", NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        NotSupportCul();
    }
    NotSupportCul();
    return_back: return return_value;
}

// ---------  ASSIGnMENT
GWARF_result assignment_func(char *left, GWARF_result right_result, var_list *the_var, int from, int lock){  // lock代表变量的权限
    add_var(the_var, from, left, right_result.value, lock);
    return right_result;
}

// ---------  EQUAL
GWARF_result equal_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, int type, inter *global_inter){  // the func for equal and call from read_statement_list
    GWARF_result return_value = GWARF_result_reset;
    int return_bool = false;
    char *left_func_list[] = {"__eq__", "__more__", "__less__", "__eqmore__", "__eqless__","__noteq__"};  // bool 运算符
    char *right_func_list[] = {"__eq__", "__more__", "__less__", "__eqmore__", "__eqless__","__noteq__"};  // bool 运算符

    if(left_result.value.type == OBJECT_value){  // 调用左div方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = left_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, left_func_list[type], NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(right_result.value), global_inter);
            goto return_back;
        }
    }
    if(right_result.value.type == OBJECT_value){  // 调用右div方法
        GWARF_result get = GWARF_result_reset;
        GWARF_value base_the_var = right_result.value;  // 只有一个参数
        var_list *call_var = base_the_var.value.object_value->the_var;

        var *tmp = find_var(call_var, 0, right_func_list[type], NULL);
        if(tmp != NULL){
            get.value = tmp->value;
            get.father = &base_the_var;  // 设置father
            return_value = call_back_core(get, the_var, pack_value_parameter(left_result.value), global_inter);
        }
        else{
            return_value.u = statement_end;
            return_value.value.value.bool_value = true;
            return_value.value.type = BOOL_value;
        }
        goto return_back;
    }
    else{
        return_value.u = statement_end;
        if(left_result.value.type == NULL_value || right_result.value.type == NULL_value){
            return_bool = false;  // 无论什么都返回false NULL != NULL
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is INT
            if ((left_result.value.value.int_value == right_result.value.value.int_value) && (type == 0)){  // 如果相等:: __eq__
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.int_value > right_result.value.value.int_value) && (type == 1)){  // 如果大于::__more__
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.int_value < right_result.value.value.int_value) && (type == 2)){  // 如果小于::__less__
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.int_value >= right_result.value.value.int_value) && (type == 3)){  // 如果大于等于::__eqmore__
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.int_value <= right_result.value.value.int_value) && (type == 4)){  // 如果小于等于::__eqless__
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.int_value != right_result.value.value.int_value) && (type == 5)){  // 如果不相等::__noteq__
                return_bool = true;  // 返回1 否则(默认)为0
            }
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            if ((left_result.value.value.double_value == right_result.value.value.double_value) && (type == 0)){  // 如果相等
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.double_value > right_result.value.value.double_value) && (type == 1)){  // 如果大于
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.double_value < right_result.value.value.double_value) && (type == 2)){  // 如果小于
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.double_value >= right_result.value.value.double_value) && (type == 3)){  // 如果大于等于
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.double_value <= right_result.value.value.double_value) && (type == 4)){  // 如果小于等于
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.double_value != right_result.value.value.double_value) && (type == 5)){  // 如果不相等
                return_bool = true;  // 返回1 否则(默认)为0
            }
        }
        else if((left_result.value.type == NUMBER_value) && (right_result.value.type == INT_value || right_result.value.type == BOOL_value)){  // all is NUMBER
            if ((left_result.value.value.double_value == right_result.value.value.int_value) && (type == 0)){  // 如果相等
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.double_value > right_result.value.value.int_value) && (type == 1)){  // 如果大于
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.double_value < right_result.value.value.int_value) && (type == 2)){  // 如果小于
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.double_value >= right_result.value.value.int_value) && (type == 3)){  // 如果大于等于
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.double_value <= right_result.value.value.int_value) && (type == 4)){  // 如果小于等于
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.double_value != right_result.value.value.int_value) && (type == 5)){  // 如果不相等
                return_bool = true;  // 返回1 否则(默认)为0
            }
        }
        else if((left_result.value.type == INT_value || left_result.value.type == BOOL_value) && (right_result.value.type == NUMBER_value)){  // all is NUMBER
            if ((left_result.value.value.int_value == right_result.value.value.double_value) && (type == 0)){  // 如果相等
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.int_value > right_result.value.value.double_value) && (type == 1)){  // 如果大于
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.int_value < right_result.value.value.double_value) && (type == 2)){  // 如果小于
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.int_value >= right_result.value.value.double_value) && (type == 3)){  // 如果大于等于
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.int_value <= right_result.value.value.double_value) && (type == 4)){  // 如果小于等于
                return_bool = true;  // 返回1 否则(默认)为0
            }
            else if ((left_result.value.value.int_value != right_result.value.value.double_value) && (type == 5)){  // 如果不相等
                return_bool = true;  // 返回1 否则(默认)为0
            }
        }
        else if(left_result.value.type == STRING_value && right_result.value.type == STRING_value){
            if ((type == 0) && !strcmp(left_result.value.value.string, right_result.value.value.string)){  // 如果相等
                return_bool = true;  // 返回1 否则(默认)为0
            }
        }
        NotSupportCul();
        return_value.value.value.bool_value = return_bool;
        return_value.value.type = BOOL_value;
    }
    return_back: return return_value;
}

// ---------  IS
GWARF_result is_func(GWARF_result left_result, GWARF_result right_result, var_list *the_var, inter *global_inter){
    GWARF_result return_value = GWARF_result_reset;
    unsigned long int left, right;
    if(left_result.value.type == OBJECT_value){  // 调用左div方法
        left = (unsigned long int)left_result.value.value.object_value;
    }
    else if(left_result.value.type == CLASS_value){
        left = (unsigned long int)left_result.value.value.class_value;
    }
    else if(left_result.value.type == FUNC_value){
        left = (unsigned long int)left_result.value.value.func_value;
    }
    else if(left_result.value.type == NULL_value){
        left = (unsigned long int)0;
    }
    NotSupportCul();

    if(right_result.value.type == OBJECT_value){  // 调用左div方法
        right = (unsigned long int)right_result.value.value.object_value;
    }
    else if(right_result.value.type == CLASS_value){
        right = (unsigned long int)right_result.value.value.class_value;
    }
    else if(right_result.value.type == FUNC_value){
        right = (unsigned long int)right_result.value.value.func_value;
    }
    else if(right_result.value.type == NULL_value){
        right = (unsigned long int)0;
    }
    NotSupportCul();
    return_value.value.type = BOOL_value;
    if(left == right){
        return_value.value.value.bool_value = true;
    }
    else{
        return_value.value.value.bool_value = false;
    }
    
    return_back: return return_value;
}

// --------- traverse[iter]
GWARF_result traverse(statement *the_statement, var_list *the_var, bool new, inter *global_inter){  // traverse the statement
    statement *tmp = the_statement;
    GWARF_result result, result2 = GWARF_result_reset;
    if(the_statement == NULL){
        result.u = statement_end;  // 正常设置[正常语句结束]
        result.value.type = NULL_value;  // 默认设置
        result.value.value.int_value = 0;  // 默认设置
        goto return_back;
    }
    bool lock = false;
    if(new){  // need to make new var
        hash_var *tmp = make_hash_var();  // base_var
        the_var = append_var_list(tmp, the_var);
    }
    while(1){
        if(tmp == NULL){
            break;  // off
        }
        result2 = read_statement_list(tmp, the_var,global_inter);

        // 错误停止
        if(result2.u == error){  // Name Error错误
            result = result2;
            break;
        }
        else if(result2.u == return_def && result2.return_times != 0){  // return def
            result = result2;
            result.return_times -= 1;
            break;
        }
        else if(result2.u == return_def && result2.return_times == 0){  // return def
            result = result2;
            break;
        }
        else if(result2.u == code_rewent){
            lock = true;  // keep the result is rewent for return
            result = result2;
        }
        else if(is_space(&result2)){
            result = result2;
            break;
        }
        
        if(!lock){
            result = result2;
        }
        tmp = tmp->next;
    }
    if(new){  // need to make new var
        the_var = free_var_list(the_var);  // free the new var
    }
    return_back: return result;
}

GWARF_result traverse_global(statement *the_statement, var_list *the_var, inter *global_inter){  // traverse the statement[not break、broken、and others] but error
    statement *tmp = the_statement;
    GWARF_result result = GWARF_result_reset;
    if(the_statement == NULL){
        result.u = statement_end;  // 正常设置[正常语句结束]
        result.value.type = NULL_value;  // 默认设置
        result.value.value.int_value = 0;  // 默认设置
        goto return_back;
    }
    while(1){
        if(tmp == NULL){
            break;  // off
        }
        result = read_statement_list(tmp, the_var, global_inter);
        if(result.u == error){  // Name Error错误
            fprintf(inter_info, "Exception: %s\n", result.error_info);
            printf("Exception: %s\n", result.error_info);
            break;
        }
        tmp = tmp->next;
    }
    return_back: return result;
}

GWARF_result traverse_get_value(statement *the_statement, var_list *the_var, var_list *out_var, inter *global_inter){  // traverse the statement[not break、broken、and others] but error
    statement *tmp = the_statement;
    GWARF_result result = GWARF_result_reset;
    if(the_statement == NULL){
        result.u = statement_end;  // 正常设置[正常语句结束]
        result.value.type = NULL_value;  // 默认设置
        result.value.value.int_value = 0;  // 默认设置
        goto return_back;
    }
    while(1){
        if(tmp == NULL){
            break;  // off
        }
        result = read_statement(tmp, the_var, NULL, out_var, lock, global_inter);
        if(result.u == error){  // Name Error错误
            fprintf(inter_info, "%s\n", result.error_info);
            break;
        }
        else if(result.u == return_def && result.return_times != 0){  // return def
            result.return_times -= 1;
            break;
        }
        else if(result.u == return_def && result.return_times == 0){  // return def
            break;
        }
        else if(is_space(&result)){
            break;
        }
        tmp = tmp->next;
    }
    return_back: return result;
}

inter *get_inter(){
    inter *tmp;
    tmp = malloc(sizeof(inter));  // get an address for base var
    tmp->global_var = make_hash_var();
    tmp->global_code = make_statement();
    return tmp;
}