feat: 实现aFunlang可执行程序

实现run和help子程序

deps/fflags

@@ -1 +1 @@
-Subproject commit 87571d840bea9cff73b5ddb5ee9470d51990845a
+Subproject commit d1624b2c7050838099820c175d7a6326a0cb3417

include/core/env.h

@@ -92,6 +92,7 @@ AFUN_CORE_EXPORT af_Object *getBelong(af_Environment *env);
 AFUN_CORE_EXPORT FilePath getActivityFile(af_Environment *env);
 AFUN_CORE_EXPORT FileLine getActivityLine(af_Environment *env);
 AFUN_CORE_EXPORT af_VarSpaceListNode *getRunVarSpaceList(af_Environment *env);
+AFUN_CORE_EXPORT int isCoreExit(af_Environment *env);
 
 /* 消息 属性访问 */
 AFUN_CORE_EXPORT af_Object *getMsgNormalData(af_Message *msg);

src/__main_run.h

@@ -0,0 +1,30 @@
+#ifndef AFUN_MAIN_RUN_H_
+#define AFUN_MAIN_RUN_H_
+
+typedef struct RunList RunList;
+struct RunList {
+    enum RunListType {
+        rl_file,
+        rl_file_s,
+        rl_file_b,
+        rl_string
+    } type;
+
+    union {
+        FilePath file;
+        char *string;
+    };
+
+    struct RunList *next;
+};
+
+RunList *makeFileRunList(FilePath file);
+RunList *makeFileByteRunList(FilePath file);
+RunList *makeFileSourceRunList(FilePath file);
+RunList *makeStringRunList(char *string);
+void freeAllRunList(RunList *rl);
+RunList **pushRunList(RunList *rl, RunList **base);
+
+int runCodeFromRunList(RunList *run_list, RunList **bak, af_Environment *env);
+
+#endif //AFUN___MAIN_RUN_H

src/core/env.c

@@ -1457,3 +1457,11 @@ af_VarSpaceListNode *getRunVarSpaceList(af_Environment *env) {
     else
         return env->activity->vsl;
 }
+
+int isCoreExit(af_Environment *env) {
+    if (env->core->status == core_exit)
+        return 1;
+    else if (env->core->status == core_stop)
+        return -1;
+    return 0;
+}

src/core/parser.c

@@ -122,9 +122,24 @@ af_Parser *makeParserByFile(FilePath path, FILE *error) {
 }
 
 static size_t readFuncStdin(struct readerDataFile *data, char *dest, size_t len) {
-    if (fgets(dest, (int)(len + 1), stdin) == NULL)
-        return 0;
-    return strlen(dest);
+    size_t read_size = 0;
+    printf(">>> ");
+    while (1) {
+        if (fgets(dest, (int)((len - read_size) + 1), stdin) == NULL)  // + 1 是因为len不包含NUL的位置
+            break;
+        read_size += strlen(dest);
+        if (read_size == len)
+            break;
+        dest += strlen(dest);  // 移动的NUL的位置
+        printf("... ");
+
+        int ch = getc(stdin);
+        if (ch == '\n' || ch == EOF)
+            break;
+        else
+            ungetc(ch, stdin);
+    }
+    return read_size;
 }
 
 static void destructStdin(struct readerDataFile *data) {

src/main.c

@@ -1,1256 +1,167 @@
 #include <stdio.h>
 #include "aFun.h"
-
-size_t getSize(char *id, af_Object *obj) {
-    return sizeof(int *);
-}
-
-void initData(char *id, af_Object *obj, int **data, af_Environment *env) {
-    *data = calloc(1, sizeof(int));
-    **data = 100;
-}
-
-void freeData(char *id, af_Object *obj, int **data, af_Environment *env) {
-    printf("freeData(): **data = %d\n", **data);
-    free(*data);
-}
-
-size_t getSize2(char *id, af_Object *obj) {
-    return sizeof(af_VarSpaceListNode *);
-}
-
-void initData2(char *id, af_Object *obj, af_VarSpaceListNode **data, af_Environment *env) {
-    *data = makeVarSpaceList(getProtectVarSpace(env));
-}
-
-void freeData2(char *id, af_Object *obj, af_VarSpaceListNode **data, af_Environment *env) {
-    printf("freeData2(): vsl = %p\n", *data);
-    freeAllVarSpaceList(*data);
-}
-
-size_t getSize3(char *id, af_Object *obj) {
-    return sizeof(af_VarSpace *);
-}
-
-void initData3(char *id, af_Object *obj, af_VarSpace **data, af_Environment *env) {
-    *data = makeVarSpace(obj, 3, 2, 0, env);
-}
-
-void freeData3(char *id, af_Object *obj, af_VarSpace **data, af_Environment *env) {
-    printf("freeData(): *data = %p\n", *data);
-}
-
-af_GcList *getGcList3(char *id, af_Object *obj, void *data) {
-    af_GcList *gl = pushGcList(glt_vs, *(af_VarSpace **)data, NULL);
-    return gl;
-}
-
-
-af_VarSpace *getShareVS(char *id, af_Object *obj) {
-    return *(af_VarSpace **)getObjectData(obj);
-}
-
-bool getAcl(char *id, af_Object *obj, af_ArgCodeList **acl, af_Code *code, int **mark, af_Environment *env) {
-    *acl = makeArgCodeList(makeElementCode("object", NUL, 0, "Unknown"), 0, true, false);
-    *mark = calloc(1, sizeof(int));
-    **mark = 100;
-    return true;
-}
-
-bool getVsl(char *id, af_Object *obj, af_VarSpaceListNode **vsl, void *mark, af_Environment *env) {
-    *vsl = *(af_VarSpaceListNode **)getObjectData(obj);
-    return true;
-}
-
-af_GcList *getGcList(char *id, af_Object *obj, void *data) {
-    af_GcList *gl = pushGcList(glt_vsl, *(af_VarSpaceListNode **)data, NULL);
-    return gl;
-}
-
-bool getAl(char *id, af_Object *obj, af_ArgList **al, af_ArgCodeList *acl, void *mark, af_Environment *env) {
-    *al = makeArgList("test", getArgCodeListResult(acl));
-    return true;
-}
-
-void literalSet(char *id, af_Object *obj, void *data, char *str, af_Environment *env) {
-    printf("literalSet(): str = %s\n", str);
-}
-
-af_FuncBody *testFunc(int *mark, af_Environment *env) {  // 测试用函数
-    printf("testFunc(): I am testFunc\n");
-    af_Object *obj;
-
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        DLC_SYMBOL(objectAPIFunc) literal_set = MAKE_SYMBOL(literalSet, objectAPIFunc);
-        if (addAPI(literal_set, "obj_literalSetting", api) != 1)
-            return NULL;
-        obj = makeObject("func", true, api, true, NULL, NULL, env);
-        FREE_SYMBOL(literal_set);
-    }
-
-    pushMessageDown(makeNORMALMessage(obj), env);
-    return NULL;
-}
-
-bool getInfo(char *id, af_Object *obj, af_FuncInfo **fi, af_Code *code, void *mark, af_Environment *env) {
-    *fi = makeFuncInfo(normal_scope, not_embedded, false, true, true);
-    makeCodeFuncBodyToFuncInfo(makeElementCode("test", NUL, 0, "Unknown"), true, NULL, *fi);
-
-    DLC_SYMBOL(callFuncBody) func = MAKE_SYMBOL(testFunc, callFuncBody);
-    makeCFuncBodyToFuncInfo(func, NULL, *fi);
-    FREE_SYMBOL(func);
-    return true;
-}
-
-void freeMark(char *id, af_Object *obj, int *mark) {
-    printf("freeMark(): mark = %d\n", *mark);
-    free(mark);
-}
-
-af_FuncBody *testFunc2(int *mark, af_Environment *env) {  // 测试用函数
-    printf("testFunc2(): I am testFunc2\n");
-    af_Object *obj;
-
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        DLC_SYMBOL(objectAPIFunc) get_alc = MAKE_SYMBOL(getAcl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_vsl = MAKE_SYMBOL(getVsl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_al = MAKE_SYMBOL(getAl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_info = MAKE_SYMBOL(getInfo, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) free_mark = MAKE_SYMBOL(freeMark, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_gl = MAKE_SYMBOL(getGcList, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) getSize_2 = MAKE_SYMBOL(getSize2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) initData_2 = MAKE_SYMBOL(initData2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) freeData_2 = MAKE_SYMBOL(freeData2, objectAPIFunc);
-        if (addAPI(getSize_2, "obj_getDataSize", api) != 1)
-            return NULL;
-        if (addAPI(initData_2, "obj_initData", api) != 1)
-            return NULL;
-        if (addAPI(freeData_2, "obj_destructData", api) != 1)
-            return NULL;
-        if (addAPI(get_alc, "obj_funcGetArgCodeList", api) != 1)
-            return NULL;
-        if (addAPI(get_vsl, "obj_funcGetVarList", api) != 1)
-            return NULL;
-        if (addAPI(get_al, "obj_funcGetArgList", api) != 1)
-            return NULL;
-        if (addAPI(get_info, "obj_funcGetInfo", api) != 1)
-            return NULL;
-        if (addAPI(free_mark, "obj_funcFreeMask", api) != 1)
-            return NULL;
-        if (addAPI(get_gl, "obj_getGcList", api) != 1)
-            return NULL;
-
-        obj = makeObject("func", true, api, true, NULL, NULL, env);
-        FREE_SYMBOL(getSize_2);
-        FREE_SYMBOL(initData_2);
-        FREE_SYMBOL(freeData_2);
-        FREE_SYMBOL(get_alc);
-        FREE_SYMBOL(get_vsl);
-        FREE_SYMBOL(get_al);
-        FREE_SYMBOL(get_info);
-        FREE_SYMBOL(free_mark);
-        FREE_SYMBOL(get_gl);
-    }
-
-    pushMessageDown(makeNORMALMessage(obj), env);
-    return NULL;
-}
-
-bool getInfo2(char *id, af_Object *obj, af_FuncInfo **fi, af_Code *code, void *mark, af_Environment *env) {
-    *fi = makeFuncInfo(normal_scope, not_embedded, true, true, true);
-    makeCodeFuncBodyToFuncInfo(makeElementCode("test", NUL, 0, "Unknown"), true, NULL, *fi);
-    DLC_SYMBOL(callFuncBody) func = MAKE_SYMBOL(testFunc2, callFuncBody);
-    makeCFuncBodyToFuncInfo(func, NULL, *fi);
-    FREE_SYMBOL(func);
-    return true;
-}
-
-bool getInfo3(char *id, af_Object *obj, af_FuncInfo **fi, af_Code *code, void *mark, af_Environment *env) {
-    *fi = makeFuncInfo(normal_scope, not_embedded, false, true, true);
-    makeCodeFuncBodyToFuncInfo(makeElementCode("data3", NUL, 0, "Unknown"), true, NULL, *fi);
-    return true;
-}
-
-af_FuncBody *testFunc4(int *mark, af_Environment *env) {  // 测试用函数
-    printf("testFunc4(): I am testFunc4\n");
-    af_Object *obj;
-
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        DLC_SYMBOL(objectAPIFunc) literal_set = MAKE_SYMBOL(literalSet, objectAPIFunc);
-        if (addAPI(literal_set, "obj_literalSetting", api) != 1)
-            return NULL;
-        obj = makeObject("func", true, api, true, NULL, NULL, env);
-        FREE_SYMBOL(literal_set);
-    }
-
-    pushMessageDown(makeNORMALMessage(obj), env);
-    return NULL;
-}
-
-bool getInfo4(char *id, af_Object *obj, af_FuncInfo **fi, af_Code *code, void *mark, af_Environment *env) {
-    *fi = makeFuncInfo(normal_scope, not_embedded, false, true, true);
-    DLC_SYMBOL(callFuncBody) func = MAKE_SYMBOL(testFunc4, callFuncBody);
-    makeCFuncBodyToFuncInfo(func, NULL, *fi);
-    FREE_SYMBOL(func);
-    return true;
-}
-
-af_FuncBody *testFunc9(int *mark, af_Environment *env) {  // 测试用函数
-    af_Object *obj;
-    af_FuncBody *fb;
-    obj = makeObject("obj", true, makeObjectAPI(), true, NULL, NULL, env);
-    pushMessageDown(makeNORMALMessage(obj), env);
-    printf("testFunc9(%p): I am testFunc9\n", obj);
-
-    DLC_SYMBOL(callFuncBody) func1 = MAKE_SYMBOL(testFunc9, callFuncBody);
-    fb = makeCFuncBody(func1, NULL);
-    FREE_SYMBOL(func1);
-    
-    return fb;
-}
-
-bool getInfo9(char *id, af_Object *obj, af_FuncInfo **fi, af_Code *code, void *mark, af_Environment *env) {
-    *fi = makeFuncInfo(normal_scope, not_embedded, false, true, true);
-    DLC_SYMBOL(callFuncBody) func1 = MAKE_SYMBOL(testFunc9, callFuncBody);
-    makeCFuncBodyToFuncInfo(func1, NULL, *fi);
-    FREE_SYMBOL(func1);
-
-    makeDynamicFuncBodyToFuncInfo(*fi);
-    return true;
-}
-
-af_FuncBody *testFunc8(int *mark, af_Environment *env) {  // 测试用函数
-    af_Object *obj;
-    obj = makeObject("obj", true, makeObjectAPI(), true, NULL, NULL, env);
-    pushMessageDown(makeNORMALMessage(obj), env);
-    printf("testFunc8(%p): I am testFunc8\n", obj);
-    fflush(stdout);
-    return NULL;
+#include "__main_run.h"
+
+ff_defArg(help, true)
+                ff_argRule(h, help, not, 'h')
+                ff_argRule(v, version, not, 'v')
+ff_endArg(help, true);
+
+ff_defArg(run, false)
+                ff_argRule(e, eval, must, 'e')
+                ff_argRule(f, file, must, 'f')
+                ff_argRule(s, source, must, 's')
+                ff_argRule(b, byte, must, 'b')
+                ff_argRule(NUL, no-cl, not, 'n')
+ff_endArg(run, false);
+
+ff_defArg(build, false)
+                ff_argRule(o, out, not, 'o')
+                ff_argRule(f, fource, not, 'f')
+ff_endArg(build, false);
+
+// exe 是指可执行程序, 而非仅PE的可执行程序
+ff_childList(aFunlang_exe, ff_child(help), ff_child(run), ff_child(build));
+
+static const char *name = NULL;
+
+static int mainHelp(ff_FFlags *ff);
+static void printVersion(void);
+static void printHelp(void);
+static int mainRun(ff_FFlags *ff);
+
+int main(int argc, char **argv) {
+    int exit_code = EXIT_SUCCESS;
+    ff_FFlags *ff = ff_initFFlags(argc, argv, aFunlang_exe);
+    if (ff == NULL)
+        return EXIT_FAILURE;
+    char *child = ff_getChild(ff);
+    name = *argv;  // 获取第一个参数为name
+
+    if (EQ_STR(child, "run"))
+        exit_code = mainRun(ff);
+    else if (EQ_STR(child, "build"))
+        printf("build");
+    else
+        exit_code = mainHelp(ff);
+
+    ff_freeFFlags(ff);
+
+    printf("Enter any key to continue...");
+    getc(stdin);
+    return exit_code;
 }
 
-af_FuncBody *testFunc7(int *mark, af_Environment *env) {  // 测试用函数
-    af_Object *obj;
-    obj = makeObject("func", true, makeObjectAPI(), true, NULL, NULL, env);
-    pushMessageDown(makeNORMALMessage(obj), env);
-    printf("testFunc7[des](%p): I am testFunc7\n", obj);
-    fflush(stdout);
-    return NULL;
+static void printVersion(void) {
+    printf("aFunlang-varsion %s\n", name);
+    printf("0.0.1\n");
 }
 
-bool getInfo7(char *id, af_Object *obj, af_FuncInfo **fi, af_Code *code, void *mark, af_Environment *env) {
-    *fi = makeFuncInfo(normal_scope, not_embedded, false, true, true);
-    DLC_SYMBOL(callFuncBody) func = MAKE_SYMBOL(testFunc7, callFuncBody);
-    makeCFuncBodyToFuncInfo(func, NULL, *fi);
-    FREE_SYMBOL(func);
-    return true;
+static void printHelp(void) {
+    printf("aFunlang Usage:\n");
+    printf("Github: <https://github.com/aFun-org/aFunlang>\n");
 }
 
-af_FuncBody *testFunc6(int *mark, af_Environment *env) {  // 测试用函数
-    af_Object *obj;
-    af_Object *des;
-    obj = makeObject("func", true, makeObjectAPI(), true, NULL, NULL, env);
-
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        DLC_SYMBOL(objectAPIFunc) get_vsl = MAKE_SYMBOL(getVsl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_info7 = MAKE_SYMBOL(getInfo7, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_gl = MAKE_SYMBOL(getGcList, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) getSize_2 = MAKE_SYMBOL(getSize2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) initData_2 = MAKE_SYMBOL(initData2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) freeData_2 = MAKE_SYMBOL(freeData2, objectAPIFunc);
-        if (addAPI(getSize_2, "obj_getDataSize", api) != 1)
-            return NULL;
-        if (addAPI(initData_2, "obj_initData", api) != 1)
-            return NULL;
-        if (addAPI(freeData_2, "obj_destructData", api) != 1)
-            return NULL;
-        if (addAPI(get_vsl, "obj_funcGetVarList", api) != 1)
-            return NULL;
-        if (addAPI(get_info7, "obj_funcGetInfo", api) != 1)
-            return NULL;
-        if (addAPI(get_gl, "obj_getGcList", api) != 1)
-            return NULL;
-        des = makeObject("func-des", true, api, true, NULL, NULL, env);
-        FREE_SYMBOL(get_vsl);
-        FREE_SYMBOL(get_info7);
-        FREE_SYMBOL(get_gl);
-        FREE_SYMBOL(getSize_2);
-        FREE_SYMBOL(initData_2);
-        FREE_SYMBOL(freeData_2);
-    }
-
-    setObjectAttributes(mg_gc_destruct, 3, 3, 3, des, obj, obj, env);
-    pushMessageDown(makeNORMALMessage(obj), env);
-    printf("testFunc6[des](%p, %p): I am testFunc6\n", obj, des);
-    return NULL;
+/*
+ * 函数名: printError
+ * 目标: 打印参数错误信息
+ */
+static void printError(ff_FFlags *ff) {
+    fprintf(stderr, "Command line argumenterror (%s)\n", ff_getChild(ff));
+    printHelp();
 }
 
-bool getInfo6(char *id, af_Object *obj, af_FuncInfo **fi, af_Code *code, void *mark, af_Environment *env) {
-    *fi = makeFuncInfo(normal_scope, not_embedded, false, true, true);
-    DLC_SYMBOL(callFuncBody) func1 = MAKE_SYMBOL(testFunc6, callFuncBody);
-    makeCFuncBodyToFuncInfo(func1, NULL, *fi);
-    FREE_SYMBOL(func1);
+static int mainHelp(ff_FFlags *ff) {
+    char *text = NULL;
+    int mark;
+    bool have_opt = false;
 
-    DLC_SYMBOL(callFuncBody) func2 = MAKE_SYMBOL(testFunc8, callFuncBody);
-    makeCFuncBodyToFuncInfo(func2, NULL, *fi);
-    FREE_SYMBOL(func2);
-    return true;
-}
+    while (1) {
+        mark = ff_getopt(&text, ff);
 
-af_FuncBody *testFunc5(int *mark, af_Environment *env) {  // 测试用函数
-    af_Object *obj;
-    af_Object *des;
-    obj = makeObject("func", true, makeObjectAPI(), true, NULL, NULL, env);
+        switch (mark) {
+            case 'h':
+                printHelp();
+                break;
+            case 'v':
+                printVersion();
+                break;
+            case -1:
+                goto out;
+            default:
+                printError(ff);
+                return EXIT_FAILURE;
+        }
 
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        DLC_SYMBOL(objectAPIFunc) get_vsl = MAKE_SYMBOL(getVsl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_info6 = MAKE_SYMBOL(getInfo6, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_gl = MAKE_SYMBOL(getGcList, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) getSize_2 = MAKE_SYMBOL(getSize2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) initData_2 = MAKE_SYMBOL(initData2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) freeData_2 = MAKE_SYMBOL(freeData2, objectAPIFunc);
-        if (addAPI(getSize_2, "obj_getDataSize", api) != 1)
-            return NULL;
-        if (addAPI(initData_2, "obj_initData", api) != 1)
-            return NULL;
-        if (addAPI(freeData_2, "obj_destructData", api) != 1)
-            return NULL;
-        if (addAPI(get_vsl, "obj_funcGetVarList", api) != 1)
-            return NULL;
-        if (addAPI(get_info6, "obj_funcGetInfo", api) != 1)
-            return NULL;
-        if (addAPI(get_gl, "obj_getGcList", api) != 1)
-            return NULL;
-        des = makeObject("func-des", true, api, true, NULL, NULL, env);
-        FREE_SYMBOL(get_vsl);
-        FREE_SYMBOL(get_info6);
-        FREE_SYMBOL(get_gl);
-        FREE_SYMBOL(getSize_2);
-        FREE_SYMBOL(initData_2);
-        FREE_SYMBOL(freeData_2);
+        have_opt = true;  // 表示有实际参数
+    }
+out:
+    if (ff_getopt_wild(&text, ff))
+        return EXIT_FAILURE;
+
+    if (!have_opt) {
+        printHelp();
+        return EXIT_SUCCESS;
+    }
+
+    return EXIT_SUCCESS;
+}
+
+static RunList *getRunList(ff_FFlags *ff, bool *command_line) {
+    char *text = NULL;
+    RunList *run_list = NULL;
+    RunList **prl = &run_list;
+    int mark;
+
+    while (1) {
+        mark = ff_getopt(&text, ff);
+        switch (mark) {
+            case 'e':
+                prl = pushRunList(makeStringRunList(text), prl);
+                break;
+            case 'f':
+                prl = pushRunList(makeFileRunList(text), prl);
+                break;
+            case 's':
+                prl = pushRunList(makeFileSourceRunList(text), prl);
+                break;
+            case 'b':
+                prl = pushRunList(makeFileByteRunList(text), prl);
+                break;
+            case 'n':
+                *command_line = false;
+                break;
+            case -1:
+                goto out;
+            default:
+                printError(ff);
+                freeAllRunList(run_list);
+                return NULL;
+        }
     }
 
-    setObjectAttributes(mg_gc_destruct, 3, 3, 3, des, obj, obj, env);
-    pushMessageDown(makeNORMALMessage(obj), env);
-    printf("testFunc5(%p, %p): I am testFunc5\n", obj, des);
-    return NULL;
-}
-
-bool getInfo5(char *id, af_Object *obj, af_FuncInfo **fi, af_Code *code, void *mark, af_Environment *env) {
-    *fi = makeFuncInfo(normal_scope, not_embedded, false, true, true);
-    DLC_SYMBOL(callFuncBody) func = MAKE_SYMBOL(testFunc5, callFuncBody);
-    makeCFuncBodyToFuncInfo(func, NULL, *fi);
-    FREE_SYMBOL(func);
-    makeCodeFuncBodyToFuncInfo(makeElementCode("test", NUL, 0, "Unknown"), true, NULL, *fi);
-    return true;
+out:
+    while (ff_getopt_wild(&text, ff))
+        prl = pushRunList(makeFileRunList(text), prl);
+    return run_list;
 }
 
-bool getInfo10(char *id, af_Object *obj, af_FuncInfo **fi, af_Code *code, void *mark, af_Environment *env) {
-    *fi = makeFuncInfo(normal_scope, not_embedded, true, true, true);
-    makeCodeFuncBodyToFuncInfo(makeElementCode("no-var", NUL, 1, "func9.info.af"), true, NULL, *fi);
-    return true;
-}
-
-bool getInfo11(char *id, af_Object *obj, af_FuncInfo **fi, af_Code *code, void *mark, af_Environment *env) {
-    *fi = makeFuncInfo(normal_scope, not_embedded, false, true, true);
-    makeImportFuncBodyToFuncInfo(makeElementCode("global", NUL, 1, "func9.info.af"), true, NULL, *fi);
-    return true;
-}
-
-bool objFunc(char *id, af_Object *obj) {
-    return true;
-}
-
-bool infixFunc(char *id, af_Object *obj) {
-    return true;
-}
-
-int main() {
-    aFunInit();
-    printf("Hello World\n");
+static int mainRun(ff_FFlags *ff) {
+    bool command_line = true;
+    int exit_code;
+    RunList *rl = getRunList(ff, &command_line);
+    if (rl == NULL)
+        return EXIT_FAILURE;
 
     af_Environment *env = creatAFunEnviroment();
-    if(!pushLiteralRegex("data.*", "func", true, env)) {
-        fprintf(stderr, "pushLiteralRegex Error\n");
-        goto RETURN_1;
-    }
-
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        af_Object *obj;
-        DLC_SYMBOL(objectAPIFunc) getSize_3 = MAKE_SYMBOL(getSize3, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) initData_3 = MAKE_SYMBOL(initData3, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) freeData_3 = MAKE_SYMBOL(freeData3, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) getShareVS_ = MAKE_SYMBOL(getShareVS, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_gl3 = MAKE_SYMBOL(getGcList3, objectAPIFunc);
-        if (addAPI(getSize_3, "obj_getDataSize", api) != 1)
-            goto RETURN_2;
-        if (addAPI(initData_3, "obj_initData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(freeData_3, "obj_destructData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(getShareVS_, "obj_getShareVarSpace", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_gl3, "obj_getGcList", api) != 1)
-            goto RETURN_2;
-
-        addVarToProtectVarSpace(makeVar("object", 3, 3, 3,
-                                        (obj = makeObject("object", true, api, true, NULL, NULL, env)),
-                                        env),
-                                env);
-        FREE_SYMBOL(getSize_3);
-        FREE_SYMBOL(initData_3);
-        FREE_SYMBOL(freeData_3);
-        FREE_SYMBOL(getShareVS_);
-        FREE_SYMBOL(get_gl3);
-        printf("object(%p)\n", obj);
-    }
-
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        af_Object *obj;
-        DLC_SYMBOL(objectAPIFunc) get_alc = MAKE_SYMBOL(getAcl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_vsl = MAKE_SYMBOL(getVsl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_al = MAKE_SYMBOL(getAl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_info = MAKE_SYMBOL(getInfo, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) free_mark = MAKE_SYMBOL(freeMark, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_gl = MAKE_SYMBOL(getGcList, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) getSize_2 = MAKE_SYMBOL(getSize2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) initData_2 = MAKE_SYMBOL(initData2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) freeData_2 = MAKE_SYMBOL(freeData2, objectAPIFunc);
-        if (addAPI(getSize_2, "obj_getDataSize", api) != 1)
-            goto RETURN_2;
-        if (addAPI(initData_2, "obj_initData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(freeData_2, "obj_destructData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_alc, "obj_funcGetArgCodeList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_vsl, "obj_funcGetVarList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_al, "obj_funcGetArgList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_info, "obj_funcGetInfo", api) != 1)
-            goto RETURN_2;
-        if (addAPI(free_mark, "obj_funcFreeMask", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_gl, "obj_getGcList", api) != 1)
-            goto RETURN_2;
-
-        addVarToProtectVarSpace(makeVar("func", 3, 3, 3,
-                                        (obj = makeObject("func", true, api, true, NULL, NULL, env)), env),
-                                env);
-        FREE_SYMBOL(get_alc);
-        FREE_SYMBOL(get_vsl);
-        FREE_SYMBOL(get_al);
-        FREE_SYMBOL(get_info);
-        FREE_SYMBOL(free_mark);
-        FREE_SYMBOL(get_gl);
-        FREE_SYMBOL(getSize_2);
-        FREE_SYMBOL(initData_2);
-        FREE_SYMBOL(freeData_2);
-        printf("func(%p)\n", obj);
-    }
-
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        af_Object *obj;
-        DLC_SYMBOL(objectAPIFunc) get_alc = MAKE_SYMBOL(getAcl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_vsl = MAKE_SYMBOL(getVsl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_al = MAKE_SYMBOL(getAl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_info2 = MAKE_SYMBOL(getInfo2, objectAPIFunc);  // 宏函数
-        DLC_SYMBOL(objectAPIFunc) free_mark = MAKE_SYMBOL(freeMark, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_gl = MAKE_SYMBOL(getGcList, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) getSize_2 = MAKE_SYMBOL(getSize2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) initData_2 = MAKE_SYMBOL(initData2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) freeData_2 = MAKE_SYMBOL(freeData2, objectAPIFunc);
-        if (addAPI(getSize_2, "obj_getDataSize", api) != 1)
-            goto RETURN_2;
-        if (addAPI(initData_2, "obj_initData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(freeData_2, "obj_destructData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_gl, "obj_getGcList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_alc, "obj_funcGetArgCodeList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_vsl, "obj_funcGetVarList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_al, "obj_funcGetArgList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_info2, "obj_funcGetInfo", api) != 1)
-            goto RETURN_2;
-        if (addAPI(free_mark, "obj_funcFreeMask", api) != 1)
-            goto RETURN_2;
+    exit_code = runCodeFromRunList(rl, NULL, env);
 
-        addVarToProtectVarSpace(makeVar("func2", 3, 3, 3,
-                                        (obj = makeObject("func", true, api, true, NULL, NULL, env)), env),
-                                env);
-        FREE_SYMBOL(get_alc);
-        FREE_SYMBOL(get_vsl);
-        FREE_SYMBOL(get_al);
-        FREE_SYMBOL(get_info2);
-        FREE_SYMBOL(free_mark);
-        FREE_SYMBOL(get_gl);
-        FREE_SYMBOL(getSize_2);
-        FREE_SYMBOL(initData_2);
-        FREE_SYMBOL(freeData_2);
-        printf("func2(%p)\n", obj);
+    if (command_line) {
+        while (isCoreExit(env) != 1)
+            exit_code = runCodeFromStdin("stdin", stderr, env);
     }
 
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        af_Object *obj;
-        DLC_SYMBOL(objectAPIFunc) get_alc = MAKE_SYMBOL(getAcl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_vsl = MAKE_SYMBOL(getVsl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_al = MAKE_SYMBOL(getAl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_info3 = MAKE_SYMBOL(getInfo3, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) free_mark = MAKE_SYMBOL(freeMark, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_gl = MAKE_SYMBOL(getGcList, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) getSize_2 = MAKE_SYMBOL(getSize2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) initData_2 = MAKE_SYMBOL(initData2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) freeData_2 = MAKE_SYMBOL(freeData2, objectAPIFunc);
-        if (addAPI(getSize_2, "obj_getDataSize", api) != 1)
-            goto RETURN_2;
-        if (addAPI(initData_2, "obj_initData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(freeData_2, "obj_destructData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_gl, "obj_getGcList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_alc, "obj_funcGetArgCodeList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_vsl, "obj_funcGetVarList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_al, "obj_funcGetArgList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_info3, "obj_funcGetInfo", api) != 1)
-            goto RETURN_2;
-        if (addAPI(free_mark, "obj_funcFreeMask", api) != 1)
-            goto RETURN_2;
-
-        addVarToProtectVarSpace(makeVar("func3", 3, 3, 3,
-                                        (obj = makeObject("func", true, api, true, NULL, NULL, env)), env),
-                                env);
-        FREE_SYMBOL(get_alc);
-        FREE_SYMBOL(get_vsl);
-        FREE_SYMBOL(get_al);
-        FREE_SYMBOL(get_info3);
-        FREE_SYMBOL(free_mark);
-        FREE_SYMBOL(get_gl);
-        FREE_SYMBOL(getSize_2);
-        FREE_SYMBOL(initData_2);
-        FREE_SYMBOL(freeData_2);
-        printf("func3(%p)\n", obj);
-    }
-
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        af_Object *obj;
-        DLC_SYMBOL(objectAPIFunc) get_alc = MAKE_SYMBOL(getAcl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_vsl = MAKE_SYMBOL(getVsl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_al = MAKE_SYMBOL(getAl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_info4 = MAKE_SYMBOL(getInfo4, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) free_mark = MAKE_SYMBOL(freeMark, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) obj_func = MAKE_SYMBOL(objFunc, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_gl = MAKE_SYMBOL(getGcList, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) getSize_2 = MAKE_SYMBOL(getSize2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) initData_2 = MAKE_SYMBOL(initData2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) freeData_2 = MAKE_SYMBOL(freeData2, objectAPIFunc);
-        if (addAPI(getSize_2, "obj_getDataSize", api) != 1)
-            goto RETURN_2;
-        if (addAPI(initData_2, "obj_initData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(freeData_2, "obj_destructData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_gl, "obj_getGcList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_alc, "obj_funcGetArgCodeList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_vsl, "obj_funcGetVarList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_al, "obj_funcGetArgList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_info4, "obj_funcGetInfo", api) != 1)
-            goto RETURN_2;
-        if (addAPI(free_mark, "obj_funcFreeMask", api) != 1)
-            goto RETURN_2;
-        if (addAPI(obj_func, "obj_isObjFunc", api) != 1)
-            goto RETURN_2;
-
-        addVarToProtectVarSpace(makeVar("func4", 3, 3, 3,
-                                        (obj = makeObject("func", true, api, true, NULL, NULL, env)), env),
-                                env);
-        FREE_SYMBOL(get_alc);
-        FREE_SYMBOL(get_vsl);
-        FREE_SYMBOL(get_al);
-        FREE_SYMBOL(get_info4);
-        FREE_SYMBOL(free_mark);
-        FREE_SYMBOL(obj_func);
-        FREE_SYMBOL(get_gl);
-        FREE_SYMBOL(getSize_2);
-        FREE_SYMBOL(initData_2);
-        FREE_SYMBOL(freeData_2);
-        printf("func4(%p)\n", obj);
-    }
-
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        af_Object *obj;
-        DLC_SYMBOL(objectAPIFunc) get_alc = MAKE_SYMBOL(getAcl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_vsl = MAKE_SYMBOL(getVsl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_al = MAKE_SYMBOL(getAl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_info5 = MAKE_SYMBOL(getInfo5, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) free_mark = MAKE_SYMBOL(freeMark, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_gl = MAKE_SYMBOL(getGcList, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) getSize_2 = MAKE_SYMBOL(getSize2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) initData_2 = MAKE_SYMBOL(initData2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) freeData_2 = MAKE_SYMBOL(freeData2, objectAPIFunc);
-        if (addAPI(getSize_2, "obj_getDataSize", api) != 1)
-            goto RETURN_2;
-        if (addAPI(initData_2, "obj_initData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(freeData_2, "obj_destructData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_alc, "obj_funcGetArgCodeList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_vsl, "obj_funcGetVarList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_al, "obj_funcGetArgList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_info5, "obj_funcGetInfo", api) != 1)
-            goto RETURN_2;
-        if (addAPI(free_mark, "obj_funcFreeMask", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_gl, "obj_getGcList", api) != 1)
-            goto RETURN_2;
-
-        addVarToProtectVarSpace(makeVar("func5", 3, 3, 3,
-                                        (obj = makeObject("func", true, api, true, NULL, NULL, env)), env),
-                                env);
-        FREE_SYMBOL(get_alc);
-        FREE_SYMBOL(get_vsl);
-        FREE_SYMBOL(get_al);
-        FREE_SYMBOL(get_info5);
-        FREE_SYMBOL(free_mark);
-        FREE_SYMBOL(get_gl);
-        FREE_SYMBOL(getSize_2);
-        FREE_SYMBOL(initData_2);
-        FREE_SYMBOL(freeData_2);
-        printf("func5(%p)\n", obj);
-    }
-
-    {
-        af_Object *obj = makeObject("func", true, makeObjectAPI(), true, NULL, NULL, env);
-        af_Object *des;
-
-        {
-            af_ObjectAPI *api = makeObjectAPI();
-            DLC_SYMBOL(objectAPIFunc) get_vsl = MAKE_SYMBOL(getVsl, objectAPIFunc);
-            DLC_SYMBOL(objectAPIFunc) get_info6 = MAKE_SYMBOL(getInfo6, objectAPIFunc);
-            DLC_SYMBOL(objectAPIFunc) get_gl = MAKE_SYMBOL(getGcList, objectAPIFunc);
-            DLC_SYMBOL(objectAPIFunc) getSize_2 = MAKE_SYMBOL(getSize2, objectAPIFunc);
-            DLC_SYMBOL(objectAPIFunc) initData_2 = MAKE_SYMBOL(initData2, objectAPIFunc);
-            DLC_SYMBOL(objectAPIFunc) freeData_2 = MAKE_SYMBOL(freeData2, objectAPIFunc);
-            if (addAPI(getSize_2, "obj_getDataSize", api) != 1)
-                goto RETURN_2;
-            if (addAPI(initData_2, "obj_initData", api) != 1)
-                goto RETURN_2;
-            if (addAPI(freeData_2, "obj_destructData", api) != 1)
-                goto RETURN_2;
-            if (addAPI(get_vsl, "obj_funcGetVarList", api) != 1)
-                goto RETURN_2;
-            if (addAPI(get_info6, "obj_funcGetInfo", api) != 1)
-                goto RETURN_2;
-            if (addAPI(get_gl, "obj_getGcList", api) != 1)
-                goto RETURN_2;
-            des = makeObject("func-des", true, api, true, NULL, NULL, env);
-            FREE_SYMBOL(get_vsl);
-            FREE_SYMBOL(get_info6);
-            FREE_SYMBOL(get_gl);
-            FREE_SYMBOL(getSize_2);
-            FREE_SYMBOL(initData_2);
-            FREE_SYMBOL(freeData_2);
-        }
-
-        setObjectAttributes(mg_gc_destruct, 3, 3, 3, des, obj, obj, env);
-        addVarToProtectVarSpace(makeVar("func6", 3, 3, 3, obj, env), env);
-        printf("func6(%p)\n", obj);
-    }
-
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        af_Object *obj;
-        DLC_SYMBOL(objectAPIFunc) get_alc = MAKE_SYMBOL(getAcl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_vsl = MAKE_SYMBOL(getVsl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_al = MAKE_SYMBOL(getAl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_info9 = MAKE_SYMBOL(getInfo9, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) free_mark = MAKE_SYMBOL(freeMark, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_gl = MAKE_SYMBOL(getGcList, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) getSize_2 = MAKE_SYMBOL(getSize2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) initData_2 = MAKE_SYMBOL(initData2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) freeData_2 = MAKE_SYMBOL(freeData2, objectAPIFunc);
-        if (addAPI(getSize_2, "obj_getDataSize", api) != 1)
-            goto RETURN_2;
-        if (addAPI(initData_2, "obj_initData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(freeData_2, "obj_destructData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_alc, "obj_funcGetArgCodeList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_vsl, "obj_funcGetVarList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_al, "obj_funcGetArgList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_info9, "obj_funcGetInfo", api) != 1)
-            goto RETURN_2;
-        if (addAPI(free_mark, "obj_funcFreeMask", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_gl, "obj_getGcList", api) != 1)
-            goto RETURN_2;
-
-        addVarToProtectVarSpace(makeVar("func7", 3, 3, 3,
-                                        (obj = makeObject("func", true, api, true, NULL, NULL, env)), env),
-                                env);
-        FREE_SYMBOL(get_alc);
-        FREE_SYMBOL(get_vsl);
-        FREE_SYMBOL(get_al);
-        FREE_SYMBOL(get_info9);
-        FREE_SYMBOL(free_mark);
-        FREE_SYMBOL(get_gl);
-        FREE_SYMBOL(getSize_2);
-        FREE_SYMBOL(initData_2);
-        FREE_SYMBOL(freeData_2);
-        printf("func7(%p)\n", obj);
-    }
-
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        af_Object *obj;
-        DLC_SYMBOL(objectAPIFunc) get_alc = MAKE_SYMBOL(getAcl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_vsl = MAKE_SYMBOL(getVsl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_al = MAKE_SYMBOL(getAl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_info = MAKE_SYMBOL(getInfo, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) free_mark = MAKE_SYMBOL(freeMark, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_gl = MAKE_SYMBOL(getGcList, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) getSize_2 = MAKE_SYMBOL(getSize2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) initData_2 = MAKE_SYMBOL(initData2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) freeData_2 = MAKE_SYMBOL(freeData2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) infix_func = MAKE_SYMBOL(infixFunc, objectAPIFunc);
-        if (addAPI(getSize_2, "obj_getDataSize", api) != 1)
-            goto RETURN_2;
-        if (addAPI(initData_2, "obj_initData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(freeData_2, "obj_destructData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_alc, "obj_funcGetArgCodeList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_vsl, "obj_funcGetVarList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_al, "obj_funcGetArgList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_info, "obj_funcGetInfo", api) != 1)
-            goto RETURN_2;
-        if (addAPI(free_mark, "obj_funcFreeMask", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_gl, "obj_getGcList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(infix_func, "obj_isInfixFunc", api) != 1)
-            goto RETURN_2;
-
-        addVarToProtectVarSpace(makeVar("func8", 3, 3, 3,
-                                        (obj = makeObject("func", true, api, true, NULL, NULL, env)), env),
-                                env);
-        FREE_SYMBOL(get_alc);
-        FREE_SYMBOL(get_vsl);
-        FREE_SYMBOL(get_al);
-        FREE_SYMBOL(get_info);
-        FREE_SYMBOL(free_mark);
-        FREE_SYMBOL(get_gl);
-        FREE_SYMBOL(getSize_2);
-        FREE_SYMBOL(initData_2);
-        FREE_SYMBOL(freeData_2);
-        FREE_SYMBOL(infix_func);
-        printf("func8(%p)\n", obj);
-    }
-
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        af_Object *obj;
-        DLC_SYMBOL(objectAPIFunc) get_alc = MAKE_SYMBOL(getAcl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_vsl = MAKE_SYMBOL(getVsl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_al = MAKE_SYMBOL(getAl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_info10 = MAKE_SYMBOL(getInfo10, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) free_mark = MAKE_SYMBOL(freeMark, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_gl = MAKE_SYMBOL(getGcList, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) getSize_2 = MAKE_SYMBOL(getSize2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) initData_2 = MAKE_SYMBOL(initData2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) freeData_2 = MAKE_SYMBOL(freeData2, objectAPIFunc);
-        if (addAPI(getSize_2, "obj_getDataSize", api) != 1)
-            goto RETURN_2;
-        if (addAPI(initData_2, "obj_initData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(freeData_2, "obj_destructData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_alc, "obj_funcGetArgCodeList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_vsl, "obj_funcGetVarList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_al, "obj_funcGetArgList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_info10, "obj_funcGetInfo", api) != 1)
-            goto RETURN_2;
-        if (addAPI(free_mark, "obj_funcFreeMask", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_gl, "obj_getGcList", api) != 1)
-            goto RETURN_2;
-
-        addVarToProtectVarSpace(makeVar("func9", 3, 3, 3,
-                                        (obj = makeObject("func", true, api, true, NULL, NULL, env)), env),
-                                env);
-        FREE_SYMBOL(get_alc);
-        FREE_SYMBOL(get_vsl);
-        FREE_SYMBOL(get_al);
-        FREE_SYMBOL(get_info10);
-        FREE_SYMBOL(free_mark);
-        FREE_SYMBOL(get_gl);
-        FREE_SYMBOL(getSize_2);
-        FREE_SYMBOL(initData_2);
-        FREE_SYMBOL(freeData_2);
-        printf("func9(%p)\n", obj);
-    }
-
-    {
-        af_ObjectAPI *api = makeObjectAPI();
-        af_Object *obj;
-        DLC_SYMBOL(objectAPIFunc) get_alc = MAKE_SYMBOL(getAcl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_vsl = MAKE_SYMBOL(getVsl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_al = MAKE_SYMBOL(getAl, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_info11 = MAKE_SYMBOL(getInfo11, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) free_mark = MAKE_SYMBOL(freeMark, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) get_gl = MAKE_SYMBOL(getGcList, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) getSize_2 = MAKE_SYMBOL(getSize2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) initData_2 = MAKE_SYMBOL(initData2, objectAPIFunc);
-        DLC_SYMBOL(objectAPIFunc) freeData_2 = MAKE_SYMBOL(freeData2, objectAPIFunc);
-        if (addAPI(getSize_2, "obj_getDataSize", api) != 1)
-            goto RETURN_2;
-        if (addAPI(initData_2, "obj_initData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(freeData_2, "obj_destructData", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_alc, "obj_funcGetArgCodeList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_vsl, "obj_funcGetVarList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_al, "obj_funcGetArgList", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_info11, "obj_funcGetInfo", api) != 1)
-            goto RETURN_2;
-        if (addAPI(free_mark, "obj_funcFreeMask", api) != 1)
-            goto RETURN_2;
-        if (addAPI(get_gl, "obj_getGcList", api) != 1)
-            goto RETURN_2;
-
-        addVarToProtectVarSpace(makeVar("func10", 3, 3, 3,
-                                        (obj = makeObject("func", true, api, true, NULL, NULL, env)), env),
-                                env);
-        FREE_SYMBOL(get_alc);
-        FREE_SYMBOL(get_vsl);
-        FREE_SYMBOL(get_al);
-        FREE_SYMBOL(get_info11);
-        FREE_SYMBOL(free_mark);
-        FREE_SYMBOL(get_gl);
-        FREE_SYMBOL(getSize_2);
-        FREE_SYMBOL(initData_2);
-        FREE_SYMBOL(freeData_2);
-        printf("func9(%p)\n", obj);
-    }
-
-    printf("\n");
-
-    {  // 正常程序
-        printf("TAG A:\n");
-        af_Code *bt1 = makeElementCode("object", 0, 1, "taga.af");
-        af_Code *bt2 = makeElementCode("data", ',', 0, NULL);
-        pushCode(&bt1, bt2);
-
-        af_Code *bt3 = makeElementCode("func", 0, 1, NULL);
-        af_Code *bt5 = makeBlockCode(curly, bt3, 0, 1, NULL, NULL);
-        pushCode(&bt2, bt5);
-
-        af_Code *bt6 = makeElementCode("global", 0, 1, NULL);
-        pushCode(&bt5, bt6);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // 宏函数
-        printf("TAG L:\n");
-        af_Code *bt1 = makeElementCode("object", 0, 1, "tagl.af");
-
-        af_Code *bt3 = makeElementCode("func2", 0, 1, NULL);
-        af_Code *bt5 = makeBlockCode(curly, bt3, 0, 1, NULL, NULL);
-        pushCode(&bt1, bt5);
-
-        af_Code *bt6 = makeElementCode("global", 0, 1, NULL);
-        pushCode(&bt5, bt6);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-
-    {  // 尾调递归优化
-        printf("TAG B:\n");
-        af_Code *bt1 = makeElementCode("data", ',', 0, "tagb.af");
-        af_Code *bt2 = makeElementCode("object", 0, 1, NULL);
-        pushCode(&bt1, bt2);
-
-        af_Code *bt3 = makeElementCode("func", 0, 1, NULL);
-        af_Code *bt5 = makeBlockCode(curly, bt3, 0, 1, NULL, NULL);
-        pushCode(&bt2, bt5);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // 尾调递归优化2
-        printf("TAG C:\n");
-        af_Code *bt1 = makeElementCode("data", ',', 0, "tagc.af");
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // 测试类前缀调用
-        printf("TAG D:\n");
-        af_Code *bt1 = makeElementCode("data", ',', 0, "tagd.af");
-        af_Code *bt2 = makeElementCode("func", 0, 1, NULL);
-        pushCode(&bt1, bt2);
-
-        af_Code *bt5 = makeBlockCode(parentheses, NULL, 0, 1, NULL, NULL);
-        pushCode(&bt2, bt5);
-
-
-        af_Code *bt6 = makeElementCode("global", 0, 1, NULL);
-        pushCode(&bt5, bt6);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // 测试顺序执行 '(xxx)
-        printf("TAG E:\n");
-        af_Code *bt3 = makeElementCode("data2", 0, 0, NULL);
-        af_Code *bt4 = makeElementCode("global", 0, 1, NULL);
-
-        pushCode(&bt3, bt4);
-
-        af_Code *bt5 = makeBlockCode(parentheses, bt3, '\'', 1, "tage.af", NULL);
-
-        af_Code *bt6 = makeElementCode("global", 0, 1, NULL);
-        pushCode(&bt5, bt6);
-
-        runCodeFromMemory(bt5, env);
-        freeAllCode(bt5);
-        printf("\n");
-    }
-
-    {  // 测试顺序执行 ,[xxx]
-        printf("TAG F:\n");
-        af_Code *bt3 = makeElementCode("data2", 0, 0, NULL);
-        af_Code *bt4 = makeElementCode("global", 0, 1, NULL);
-
-        pushCode(&bt3, bt4);
-
-        af_Code *bt5 = makeBlockCode(brackets, bt3, ',', 1, "tagf.af", NULL);
-
-        af_Code *bt6 = makeElementCode("global", 0, 1, NULL);
-        pushCode(&bt5, bt6);
-
-        runCodeFromMemory(bt5, env);
-        freeAllCode(bt5);
-        printf("\n");
-    }
-
-    {  // 测试顺序执行 '(xxx) 【尾调递归优化】
-        printf("TAG G:\n");
-        af_Code *bt3 = makeElementCode("data2", 0, 0, NULL);
-        af_Code *bt4 = makeElementCode("global", 0, 1, NULL);
-
-        pushCode(&bt3, bt4);
-
-        af_Code *bt5 = makeBlockCode(parentheses, bt3, '\'', 1, "tagg.af", NULL);
-
-        runCodeFromMemory(bt5, env);
-        freeAllCode(bt5);
-        printf("\n");
-    }
-
-    {  // 测试顺序执行 ,[xxx] 【尾调递归优化】
-        printf("TAG H:\n");
-        af_Code *bt3 = makeElementCode("data2", 0, 0, NULL);
-        af_Code *bt4 = makeElementCode("global", 0, 1, NULL);
-
-        pushCode(&bt3, bt4);
-
-        af_Code *bt5 = makeBlockCode(brackets, bt3, ',', 1, "tagh.af", NULL);
-
-        runCodeFromMemory(bt5, env);
-        freeAllCode(bt5);
-        printf("\n");
-    }
-
-    {  // 双层尾调递归优化 （函数内调用函数）
-        printf("TAG I:\n");
-        af_Code *bt2 = makeElementCode("func3", 0, 1, NULL);
-        af_Code *bt3 = makeBlockCode(curly, bt2, 0, 1, "tagi.af", NULL);
-
-        af_Code *bt4 = makeElementCode("func3", 0, 1, NULL);
-        af_Code *bt5 = makeBlockCode(curly, bt4, 0, 1, NULL, NULL);
-        pushCode(&bt3, bt5);
-
-        af_Code *bt6 = makeElementCode("global", 0, 1, NULL);
-        pushCode(&bt5, bt6);
-
-        runCodeFromMemory(bt3, env);
-        freeAllCode(bt3);
-        printf("\n");
-    }
-
-    {  // 对象函数的调用
-        printf("TAG J:\n");
-        af_Code *bt1 = makeElementCode("func4", 0, 1, "tagj.af");
-        af_Code *bt2 = makeElementCode("global", 0, 1, NULL);
-        pushCode(&bt1, bt2);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // 变量引用调用
-        printf("TAG K:\n");
-        af_Code *bt1 = makeElementCode("func4", '\'', 1, "tagk.af");
-        af_Code *bt2 = makeElementCode("global", 0, 1, NULL);
-        pushCode(&bt1, bt2);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // 对象函数的调用 (尾调递归优化)
-        printf("TAG L:\n");
-        af_Code *bt1 = makeElementCode("func4", 0, 1, "tagl.af");
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // 函数调用
-        printf("TAG M:\n");
-
-        af_Code *bt2 = makeElementCode("func", 0, 1, NULL);
-        af_Code *bt1 = makeBlockCode(curly, bt2, 0, 1, "Tagm.af", NULL);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // gc测试
-        printf("TAG N:\n");
-
-        af_Code *bt2 = makeElementCode("func5", 0, 1, NULL);
-        af_Code *bt1 = makeBlockCode(curly, bt2, 0, 1, "Tagn.af", NULL);
-        af_Code *bt3 = makeElementCode("global", 0, 1, NULL);
-        af_Code *bt4 = makeElementCode("global", 0, 1, NULL);
-
-        pushCode(&bt1, bt3);
-        pushCode(&bt3, bt4);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // func_body_dynamic 测试
-        printf("TAG O:\n");
-
-        af_Code *bt2 = makeElementCode("func7", 0, 1, NULL);
-        af_Code *bt1 = makeBlockCode(curly, bt2, 0, 1, "Tago.af", NULL);
-        af_Code *bt3 = makeElementCode("global", 0, 1, NULL);
-
-        pushCode(&bt1, bt3);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // 中缀调用测试
-        printf("TAG P:\n");
-
-        af_Code *bt2 = makeElementCode("func8", 0, 1, NULL);
-        af_Code *bt1 = makeBlockCode(brackets, bt2, 0, 1, "Tagp.af", NULL);
-        af_Code *bt3 = makeElementCode("global", 0, 1, NULL);
-
-        pushCode(&bt1, bt3);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // func_body_import 测试
-        printf("TAG Q:\n");
-
-        af_Code *bt2 = makeElementCode("func10", 0, 1, NULL);
-        af_Code *bt1 = makeBlockCode(curly, bt2, 0, 1, "Tagq.af", NULL);
-        af_Code *bt3 = makeElementCode("global", 0, 1, NULL);
-
-        pushCode(&bt1, bt3);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // 导入式运行
-        printf("TAG R:\n");
-        af_Code *bt1 = makeElementCode("object", 0, 1, "tagr.af");
-        af_Code *bt2 = makeElementCode("data", ',', 0, NULL);
-        pushCode(&bt1, bt2);
-
-        af_Code *bt3 = makeElementCode("func", 0, 1, NULL);
-        af_Code *bt5 = makeBlockCode(curly, bt3, 0, 1, NULL, NULL);
-        pushCode(&bt2, bt5);
-
-        af_Code *bt6 = makeElementCode("global", 0, 1, NULL);
-        pushCode(&bt5, bt6);
-
-        runCodeFromMemoryAsImport(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {
-        printf("TAG S: STRING\n");
-        int exit_code = runCodeFromString("object\ndata\n{func}\nglobal\n", "tags-string.af", NULL, env);
-        printf("exit code = %d\n\n", exit_code);
-    }
-
-#ifndef IN_CTEST
-    {
-        printf("TAG T: [stdin]\n");
-        int exit_code = runCodeFromStdin(NULL, NULL, env);
-        printf("exit code = %d\n\n", exit_code);
-        getc(stdin);
-    }
-#endif
-
-    /* 错误用例 */
-
-    {  // 中缀调用测试
-        printf("TAG a: ERROR\n");
-
-        af_Code *bt2 = makeElementCode("func", 0, 1, NULL);
-        af_Code *bt1 = makeBlockCode(brackets, bt2, 0, 1, "Taga-error.af", NULL);
-        af_Code *bt3 = makeElementCode("global", 0, 1, NULL);
-
-        pushCode(&bt1, bt3);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // 测试错误 (无函数指定)
-        printf("TAG b: ERROR\n");
-        af_Code *bt1 = makeElementCode("data", ',', 0, "Tagb-error.af");
-
-        af_Code *bt5 = makeBlockCode(curly, NULL, 0, 1, NULL, NULL);
-        pushCode(&bt1, bt5);
-
-        af_Code *bt6 = makeElementCode("global", 0, 1, NULL);
-        pushCode(&bt5, bt6);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // 测试错误 (object2 Var not found)
-        printf("TAG c: ERROR\n");
-        af_Code *bt1 = makeElementCode("data", ',', 0, "Tagc-error.af");
-        af_Code *bt2 = makeElementCode("object2", 0, 1, NULL);
-
-        pushCode(&bt1, bt2);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // 中缀保护测试
-        printf("TAG d: ERROR\n");
-
-        af_Code *bt2 = makeElementCode("func8", 0, 2, NULL);
-        af_Code *bt1 = makeElementCode("global", 0, 1, "Tagd-error.af");
-
-        pushCode(&bt1, bt2);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    {  // 错误回溯测试
-        printf("TAG e: ERROR\n");
-
-        af_Code *bt2 = makeElementCode("func9", 0, 1, NULL);
-        af_Code *bt1 = makeBlockCode(curly, bt2, 0, 1, "Tage-error.af", NULL);
-
-        af_Code *bt3 = makeElementCode("global", 0, 1, NULL);
-        pushCode(&bt1, bt3);
-
-        runCodeFromMemory(bt1, env);
-        freeAllCode(bt1);
-        printf("\n");
-    }
-
-    printf("freeEnvironment:\n");
     destructAFunEnvironment(env);
-
-    printf("Exit at 0.");
-#ifndef IN_CTEST
-    getc(stdin);
-#endif
-    return 0;
-
-RETURN_1:
-    printf("Exit at 1.");
-#ifndef IN_CTEST
-    getc(stdin);
-#endif
-    return 1;
-
-RETURN_2:
-    printf("Exit at 2.");
-#ifndef IN_CTEST
-    getc(stdin);
-#endif
-    return 2;
+    freeAllRunList(rl);
+    return exit_code;
 }

src/main_run.c

@@ -0,0 +1,88 @@
+#include "aFun.h"
+#include "__main_run.h"
+
+
+static RunList *makeRunList() {
+    RunList *run_list = calloc(1, sizeof(RunList));
+    return run_list;
+}
+
+static RunList *freeRunList(RunList *rl) {
+    RunList *next = rl->next;
+    if (rl->type == rl_file_s || rl->type == rl_file_b || rl->type == rl_file)
+        free(rl->file);
+    else
+        free(rl->string);
+    free(rl);
+    return next;
+}
+
+void freeAllRunList(RunList *rl) {
+    while(rl != NULL)
+        rl = freeRunList(rl);
+}
+
+RunList *makeFileRunList(FilePath file) {
+    RunList *rl = makeRunList();
+    rl->type = rl_file;
+    rl->file = strCopy(file);
+    return rl;
+}
+
+RunList *makeFileSourceRunList(FilePath file) {
+    RunList *rl = makeFileRunList(file);
+    rl->type = rl_file_s;
+    return rl;
+}
+
+RunList *makeFileByteRunList(FilePath file) {
+    RunList *rl = makeFileRunList(file);
+    rl->type = rl_file_b;
+    return rl;
+}
+
+RunList *makeStringRunList(char *string) {
+    RunList *rl = makeRunList();
+    rl->type = rl_string;
+    rl->string = strCopy(string);
+    return rl;
+}
+
+RunList **pushRunList(RunList *rl, RunList **base) {
+    while (*base != NULL)
+        base = &((*base)->next);
+    *base = rl;
+    while (*base != NULL)
+        base = &((*base)->next);
+    return base;
+}
+
+int runCodeFromRunList(RunList *run_list, RunList **bak, af_Environment *env) {
+    int exit_code = 0;
+
+    for (NULL; run_list != NULL; run_list = run_list->next) {
+        switch (run_list->type) {
+            case rl_string:
+                exit_code = runCodeFromString(run_list->string, "command-line-eval", stderr, env);
+                break;
+            case rl_file:
+                exit_code = runCodeFromFile(run_list->file, stderr, env);
+                break;
+            case rl_file_b:
+                printf("run code byte.\n");
+                break;
+            case rl_file_s:
+                exit_code = runCodeFromFile(run_list->file, stderr, env);
+                break;
+            default:
+                break;
+        }
+
+        if (exit_code != 0)
+            break;
+    }
+
+    if (bak != NULL)
+        *bak = run_list;
+    return exit_code;
+}

src/runtime/aFunTool/base/__base.h

@@ -4,26 +4,18 @@
 #include "__env.h"
 #include "__var.h"
 
-static char *const string_id = "string";
-static char *const string_func_id = "string-maker";
-
 static const LiteralFunc literal[] = {
         /* 字符串匹配：\"[\s\S]*\" */
         {.pattern="\\\"[\\s\\S]*\\\"", .func="str", .in_protect=true},
 };
 
+#define string_id "string"
 typedef struct ObjectString ObjectString;
 struct ObjectString{
     char *str;
 };
 
-typedef struct ObjectStrFunc ObjectStrFunc;
-struct ObjectStrFunc {
-    af_ObjectAPI *api;
-    af_VarSpace *share_vs;
-    af_VarSpaceListNode *func_var_list;
-};
-
 AFUN_LANG_NO_EXPORT void makeStrFunc(af_Object *visitor, af_VarSpace *vs, af_Environment *env);
+AFUN_LANG_NO_EXPORT void makeQuitFunc(af_Object *visitor, af_VarSpace *vs, af_Environment *env);
 
 #endif //AFUN___BASE_H

src/runtime/aFunTool/base/base.c

@@ -1,9 +1,9 @@
 #include "__base.h"
 
-// 桩函数
 int aFunTool_base(af_Code **code, af_Object *visitor, af_VarSpace *vs, af_Environment *env) {
     printf("Run aFunTool-Base %p\n", vs);
     makeLiteralRegexFromList(literal, env);
     makeStrFunc(visitor, vs, env);
+    makeQuitFunc(visitor, vs, env);
     return 0;
 }

src/runtime/aFunTool/base/quit.c

@@ -0,0 +1,75 @@
+#include "__base.h"
+
+#define func_id "quit-func"
+
+typedef struct QuitFunc QuitFunc;
+struct QuitFunc {
+    af_VarSpaceListNode *func_var_list;
+};
+
+static size_t funcGetSize(char *id, af_Object *obj) {
+    return sizeof(QuitFunc);
+}
+
+static void funcInit(char *id, af_Object *obj, QuitFunc *data, af_Environment *env) {
+    if (!EQ_STR(id, func_id))
+        return;
+    data->func_var_list = copyVarSpaceList(getRunVarSpaceList(env));
+}
+
+static bool funcArgCodeList(char *id, af_Object *obj, af_ArgCodeList **acl, af_Code *code, void **mark, af_Environment *env) {
+    *acl = NULL;
+    return true;
+}
+
+static bool funcArgList(char *id, af_Object *obj, af_ArgList **al, af_ArgCodeList *acl, void *mark, af_Environment *env) {
+    *al = NULL;
+    return true;
+}
+
+static bool funcVarList(char *id, af_Object *obj, af_VarSpaceListNode **vsl, void *mark, af_Environment *env) {
+    QuitFunc *sf = getObjectData(obj);
+    *vsl = sf->func_var_list;
+    return true;
+}
+
+static af_FuncBody *funcBody(void *mark, af_Environment *env) {
+    env->core->exit_code = 0;
+    env->core->status = core_exit;
+    pushMessageDown(makeNORMALMessage(getGlobal(env)), env);
+    return NULL;
+}
+
+static bool funcGetInfo(char *id, af_Object *obj, af_FuncInfo **fi, af_Code *code, void *mark, af_Environment *env) {
+    *fi = makeFuncInfo(normal_scope, not_embedded, false, false, false);
+    DLC_SYMBOL(callFuncBody) func = MAKE_SYMBOL(funcBody, callFuncBody);
+    makeCFuncBodyToFuncInfo(func, NULL, *fi);
+    FREE_SYMBOL(func);
+    return true;
+}
+
+static void funcDestruct(char *id, af_Object *obj, QuitFunc *data, af_Environment *env) {
+    if (EQ_STR(id, func_id))
+        freeAllVarSpaceList(data->func_var_list);
+}
+
+void makeQuitFunc(af_Object *visitor, af_VarSpace *vs, af_Environment *env) {
+    static APIFunc api_list[] = {
+            {.name="obj_getDataSize", .func=funcGetSize, .dlc=NULL},
+            {.name="obj_initData", .func=funcInit, .dlc=NULL},
+            {.name="obj_destructData", .func=funcDestruct, .dlc=NULL},
+            {.name="obj_funcGetArgCodeList", .func=funcArgCodeList, .dlc=NULL},
+            {.name="obj_funcGetVarList", .func=funcVarList, .dlc=NULL},
+            {.name="obj_funcGetArgList", .func=funcArgList, .dlc=NULL},
+            {.name="obj_funcGetInfo", .func=funcGetInfo, .dlc=NULL},
+            {.name=NULL}
+    };
+
+    static ObjectDefine obj_def[] = {
+            {.id=func_id, .free_api=true, .api_list=api_list, .allow_inherit=false,
+                    .var_name="quit", .p_self=3, .p_posterity=3, .p_external=3},
+            {.id=NULL}
+    };
+
+    makeObjectFromList(obj_def, visitor, vs, env);
+}

src/runtime/aFunTool/base/str_obj.c

@@ -1,5 +1,13 @@
 #include "__base.h"
 
+#define string_func_id "string-maker"
+typedef struct ObjectStrFunc ObjectStrFunc;
+struct ObjectStrFunc {
+    af_ObjectAPI *api;
+    af_VarSpace *share_vs;
+    af_VarSpaceListNode *func_var_list;
+};
+
 static size_t strGetSize(char *id, af_Object *obj) {
     return sizeof(ObjectString);
 }