aFunlang/include/core/inter.hpp

#ifndef AFUN_INTER_HPP
#define AFUN_INTER_HPP
#include <list>
#include "tool.hpp"
#include "aFunCoreExport.h"

namespace aFuncore {
    class Inter;

    enum InterStatus {
        inter_creat = 0,
        inter_init = 1,  // 执行初始化程序
        inter_normal = 2,  // 正常执行
        inter_stop = 3,  // 当前运算退出
        inter_exit = 4,  // 解释器退出
    };
    typedef enum InterStatus InterStatus;

    typedef enum ExitFlat {
        ef_activity = 0,  // 主动退出
        ef_passive = 1,  // 被动退出
        ef_none = 2,
    } ExitFlat;

    typedef enum ExitMode {
        em_activity = ef_activity,  // 主动退出
        em_passive = ef_passive,  // 被动退出
    } ExitMode;

    static const int PrefixCount = 2;
    typedef enum Prefix {
        prefix_quote = 0,  // 变量引用
        prefix_exec_first = 1,
    } Prefix;
    static const std::string E_PREFIX = "$`'";  /* NOLINT element前缀 */
    static const std::string B_PREFIX = "$`'%^&<?>";  /* NOLINT block前缀 */

}

#include "env-var.hpp"
#include "code.hpp"
#include "var.hpp"
#include "value.hpp"
#include "activation.hpp"

namespace aFuncore {
    class Inter {
        friend class Object;
        friend class Var;
        friend class VarSpace;

        /* 解释器原信息记录 */
        pthread_mutex_t status_lock;  // status 可能被外部使用, 因此需要用锁保护
        InterStatus status;

        /* GC 记录器 */
        struct GcRecord {
            Object *obj;
            Var *var;
            VarSpace *varspace;
        } *gc;
        [[nodiscard]] struct GcRecord *getGcRecord() const {return gc;}

        /* 运行相关 */
        ProtectVarSpace *protect;  // 保护变量空间
        VarSpace *global;  // 全局变量空间
        VarList *global_varlist;  // global + protect
        Activation *activation;  // 活动记录

        struct LiteralRegex {
            Regex *rg;
            std::string pattern;  // 派生 LiteralRegex 时使用
            char *func;  // 调用的函数
            bool in_protect;  // 是否在protect空间
        };
        std::list<LiteralRegex> *literal;

        /* 配置信息记录器 */
        EnvVarSpace *envvar;

        /* 线程信息 */
    public:
        const bool is_derive;  // 是否派生
        Inter *const base;  // 主线程
    private:
        Object *result;  // 线程执行的结果
        std::list<Inter *> *son_inter;  // 派生线程链表, 由主线程负责管理

        pthread_t monitor;  // 守护线程
        ExitFlat exit_flat;  // 外部设置退出
        ExitMode exit_mode;  // 退出模式
        pthread_mutex_t monitor_lock;
        pthread_cond_t monitor_cond;
    public:
        explicit Inter(int argc=0, char **argv=nullptr, ExitMode em=em_activity);
        ~Inter();
        void enable();

        [[nodiscard]] InterStatus getStatus() const {return status;}
        [[nodiscard]] bool isExit() const {return (status == inter_exit || status == inter_stop);}

        [[nodiscard]] VarList *getGlobalVarlist() const {return global_varlist;}
        [[nodiscard]] Activation *getActivation() const {return activation;}
        [[nodiscard]] bool checkLiteral(const std::string &element, std::string &func, bool &in_protect) const;

        [[nodiscard]] EnvVarSpace *getEnvVarSpace() const {return envvar;}
        [[nodiscard]] int getGcRuntime() const {return gc_runtime->num;}
        [[nodiscard]] char getPrefx(enum Prefix pre) const {return prefix->str[pre];}
        [[nodiscard]] int getExitCode() const {return exit_code->num;}
        [[nodiscard]] int getArgc() const {return argc->num;}
        [[nodiscard]] int getErrorStd() const {return error_std->num == 1;}

        void pushActivation(Activation *new_activation) {activation = new_activation;}

        bool runCode();
        bool runCode(Code *code);
    };
}

#endif //AFUN_INTER_HPP