VirtualMath/src/inter.c

#include "__virtualmath.h"

Inter *runBaseInter(char *code_file, char *debug_dir, int *status) {
    Result global_result;
    return newInter(code_file, debug_dir, &global_result, status);
}

Inter *newInter(char *code_file, char *debug_dir, Result *global_result, int *status) {
    Inter *global_inter = NULL;
    ParserMessage *pm = NULL;
    *status = 0;

    if (checkFile(code_file) != 1){
        *status = 1;
        return NULL;
    }

    if (checkFile(debug_dir) != 1)
        debug_dir = NULL;

    global_inter = makeInter(code_file, debug_dir);
    pm = makeParserMessage(code_file, debug_dir);

    parserCommandList(pm, global_inter, true, global_inter->statement);
    if (pm->status != success){
        writeLog(stderr, ERROR, "Syntax Error: %s\n", pm->status_message);
        goto return_;
    }

    struct Statement *tmp = copyStatement(global_inter->statement);
    freeStatement(global_inter->statement);
    global_inter->statement = tmp;

    *global_result = globalIterStatement(global_inter);
    if (global_result->type == error_return)
        printError(global_result->error, global_inter, true);

    return_:
    freeParserMessage(pm, true);
    return global_inter;
}

Inter *makeInter(char *code_file, char *debug) {
    Inter *tmp = memCalloc(1, sizeof(Inter));
    setBaseInterData(tmp);
    tmp->base = NULL;
    tmp->link_base = NULL;
    tmp->statement = makeStatement(0, code_file);
    tmp->var_list = makeVarList(tmp);
    tmp->data.log_dir = memStrcpy(debug, 0, false, false);

    if (debug != NULL && !args.stdout_inter){
        char *debug_dir = memStrcat(debug, INTER_LOG, false), *error_dir = memStrcat(debug, INTER_ERROR, false);
        tmp->data.debug = fopen(debug_dir, "w");
        tmp->data.error = fopen(error_dir, "w");
        memFree(debug_dir);
        memFree(error_dir);
    }
    else {
        tmp->data.debug = stdout;
        tmp->data.error = stderr;
    }

    makeValue(tmp);  // 注册None值
    return tmp;
}

void setBaseInterData(struct Inter *inter){
    inter->data.var_str_prefix = memStrcpy("str_", 0, false, false);
    inter->data.var_num_prefix = memStrcpy("num_", 0, false, false);
    inter->data.var_defualt = memStrcpy("default_var", 0, false, false);
    inter->data.debug = NULL;
    inter->data.log_dir = NULL;
}

void freeInter(Inter *inter, bool self){
    freeBase(inter, return_);
    while (inter->base != NULL)
        freeValue(inter->base, inter);

    while (inter->link_base != NULL)
        freeLinkValue(inter->link_base, inter);

    while (inter->hash_base != NULL)
        freeHashTable(inter->hash_base, inter, true);

    freeStatement(inter->statement);
    freeVarList(inter->var_list, true);

    memFree(inter->data.var_defualt);
    memFree(inter->data.var_num_prefix);
    memFree(inter->data.var_str_prefix);

    memFree(inter->data.log_dir);

    if (inter->data.log_dir != NULL) {
        fclose(inter->data.debug);
        fclose(inter->data.error);
    }

    if (self)
        memFree(inter);
    return_:
    return;
}