add pikascript components and example

components/pikascript/CMakeLists.txt

@@ -0,0 +1,47 @@
+################# Add global include #################
+list(APPEND ADD_INCLUDE
+"${CMAKE_CURRENT_SOURCE_DIR}/pikascript-core"
+"${CMAKE_CURRENT_SOURCE_DIR}/pikascript-api"
+)
+#######################################################
+
+################# Add private include #################
+# list(APPEND ADD_PRIVATE_INCLUDE
+# )
+#######################################################
+
+############## Add current dir source files ###########
+file(GLOB_RECURSE sources
+"${CMAKE_CURRENT_SOURCE_DIR}/pikascript-core/*.c"
+"${CMAKE_CURRENT_SOURCE_DIR}/pikascript-api/*.c"
+"${CMAKE_CURRENT_SOURCE_DIR}/pikascript-lib/*.c"
+)
+
+#aux_source_directory(. sources)
+list(APPEND ADD_SRCS  ${sources})
+#######################################################
+
+########### Add required/dependent components #########
+#list(APPEND ADD_REQUIREMENTS xxx)
+#######################################################
+
+############ Add static libs ##########################
+#list(APPEND ADD_STATIC_LIB "libxxx.a")
+#######################################################
+
+############ Add dynamic libs #########################
+# list(APPEND ADD_DYNAMIC_LIB "libxxx.so"
+# )
+#######################################################
+
+############ Add global compile option ################
+#add components denpend on this component
+# list(APPEND ADD_DEFINITIONS -D${CHIPNAME})
+#######################################################
+
+############ Add private compile option ################
+#add compile option for this component that won't affect other modules
+# list(APPEND ADD_PRIVATE_DEFINITIONS -Dxxx)
+#######################################################
+
+generate_library()

components/pikascript/PikaObj.py

@@ -0,0 +1,14 @@
+class TinyObj:
+    pass
+
+
+class BaseObj(TinyObj):
+    pass
+
+
+def print(val: any):
+    pass
+
+
+def set(argPath: str, val: any):
+    pass

components/pikascript/PikaStdLib.py

@@ -0,0 +1,19 @@
+from PikaObj import *
+
+class MemChecker(BaseObj):
+    def max():
+        pass
+
+    def now():
+        pass
+
+    def resetMax():
+        pass
+
+
+class SysObj(BaseObj):
+    def type(argPath: str):
+        pass
+
+    def remove(argPath: str):
+        pass

components/pikascript/main.py

@@ -0,0 +1,3 @@
+import PikaStdLib
+
+print('hello pikascript!')

components/pikascript/pikascript-api/PikaMain-api.c

@@ -0,0 +1,19 @@
+/* ******************************** */
+/* Warning! Don't modify this file! */
+/* ******************************** */
+#include "PikaMain.h"
+#include "PikaStdLib_SysObj.h"
+#include "PikaStdLib.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include "BaseObj.h"
+
+PikaObj *New_PikaMain(Args *args){
+    PikaObj *self = New_PikaStdLib_SysObj(args);
+    obj_newObj(self, "PikaStdLib", "PikaStdLib", New_PikaStdLib);
+    return self;
+}
+
+Arg *PikaMain(PikaObj *self){
+    return arg_setMetaObj("", "PikaMain", New_PikaMain);
+}

components/pikascript/pikascript-api/PikaMain.h

@@ -0,0 +1,13 @@
+/* ******************************** */
+/* Warning! Don't modify this file! */
+/* ******************************** */
+#ifndef __PikaMain__H
+#define __PikaMain__H
+#include <stdio.h>
+#include <stdlib.h>
+#include "PikaObj.h"
+
+PikaObj *New_PikaMain(Args *args);
+
+
+#endif

components/pikascript/pikascript-api/PikaStdLib-api.c

@@ -0,0 +1,26 @@
+/* ******************************** */
+/* Warning! Don't modify this file! */
+/* ******************************** */
+#include "PikaStdLib.h"
+#include "TinyObj.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include "BaseObj.h"
+
+void PikaStdLib_MemCheckerMethod(PikaObj *self, Args *args){
+    Arg * res = PikaStdLib_MemChecker(self);
+    method_returnArg(args, res);
+}
+
+void PikaStdLib_SysObjMethod(PikaObj *self, Args *args){
+    Arg * res = PikaStdLib_SysObj(self);
+    method_returnArg(args, res);
+}
+
+PikaObj *New_PikaStdLib(Args *args){
+    PikaObj *self = New_TinyObj(args);
+    class_defineMethod(self, "MemChecker()->any", PikaStdLib_MemCheckerMethod);
+    class_defineMethod(self, "SysObj()->any", PikaStdLib_SysObjMethod);
+    return self;
+}
+

components/pikascript/pikascript-api/PikaStdLib.h

@@ -0,0 +1,15 @@
+/* ******************************** */
+/* Warning! Don't modify this file! */
+/* ******************************** */
+#ifndef __PikaStdLib__H
+#define __PikaStdLib__H
+#include <stdio.h>
+#include <stdlib.h>
+#include "PikaObj.h"
+
+PikaObj *New_PikaStdLib(Args *args);
+
+Arg * PikaStdLib_MemChecker(PikaObj *self);
+Arg * PikaStdLib_SysObj(PikaObj *self);
+
+#endif

components/pikascript/pikascript-api/PikaStdLib_MemChecker-api.c

@@ -0,0 +1,32 @@
+/* ******************************** */
+/* Warning! Don't modify this file! */
+/* ******************************** */
+#include "PikaStdLib_MemChecker.h"
+#include "BaseObj.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include "BaseObj.h"
+
+void PikaStdLib_MemChecker_maxMethod(PikaObj *self, Args *args){
+    PikaStdLib_MemChecker_max(self);
+}
+
+void PikaStdLib_MemChecker_nowMethod(PikaObj *self, Args *args){
+    PikaStdLib_MemChecker_now(self);
+}
+
+void PikaStdLib_MemChecker_resetMaxMethod(PikaObj *self, Args *args){
+    PikaStdLib_MemChecker_resetMax(self);
+}
+
+PikaObj *New_PikaStdLib_MemChecker(Args *args){
+    PikaObj *self = New_BaseObj(args);
+    class_defineMethod(self, "max()", PikaStdLib_MemChecker_maxMethod);
+    class_defineMethod(self, "now()", PikaStdLib_MemChecker_nowMethod);
+    class_defineMethod(self, "resetMax()", PikaStdLib_MemChecker_resetMaxMethod);
+    return self;
+}
+
+Arg *PikaStdLib_MemChecker(PikaObj *self){
+    return arg_setMetaObj("", "PikaStdLib_MemChecker", New_PikaStdLib_MemChecker);
+}

components/pikascript/pikascript-api/PikaStdLib_MemChecker.h

@@ -0,0 +1,16 @@
+/* ******************************** */
+/* Warning! Don't modify this file! */
+/* ******************************** */
+#ifndef __PikaStdLib_MemChecker__H
+#define __PikaStdLib_MemChecker__H
+#include <stdio.h>
+#include <stdlib.h>
+#include "PikaObj.h"
+
+PikaObj *New_PikaStdLib_MemChecker(Args *args);
+
+void PikaStdLib_MemChecker_max(PikaObj *self);
+void PikaStdLib_MemChecker_now(PikaObj *self);
+void PikaStdLib_MemChecker_resetMax(PikaObj *self);
+
+#endif

components/pikascript/pikascript-api/PikaStdLib_SysObj-api.c

@@ -0,0 +1,29 @@
+/* ******************************** */
+/* Warning! Don't modify this file! */
+/* ******************************** */
+#include "PikaStdLib_SysObj.h"
+#include "BaseObj.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include "BaseObj.h"
+
+void PikaStdLib_SysObj_removeMethod(PikaObj *self, Args *args){
+    char * argPath = args_getStr(args, "argPath");
+    PikaStdLib_SysObj_remove(self, argPath);
+}
+
+void PikaStdLib_SysObj_typeMethod(PikaObj *self, Args *args){
+    char * argPath = args_getStr(args, "argPath");
+    PikaStdLib_SysObj_type(self, argPath);
+}
+
+PikaObj *New_PikaStdLib_SysObj(Args *args){
+    PikaObj *self = New_BaseObj(args);
+    class_defineMethod(self, "remove(argPath:str)", PikaStdLib_SysObj_removeMethod);
+    class_defineMethod(self, "type(argPath:str)", PikaStdLib_SysObj_typeMethod);
+    return self;
+}
+
+Arg *PikaStdLib_SysObj(PikaObj *self){
+    return arg_setMetaObj("", "PikaStdLib_SysObj", New_PikaStdLib_SysObj);
+}

components/pikascript/pikascript-api/PikaStdLib_SysObj.h

@@ -0,0 +1,15 @@
+/* ******************************** */
+/* Warning! Don't modify this file! */
+/* ******************************** */
+#ifndef __PikaStdLib_SysObj__H
+#define __PikaStdLib_SysObj__H
+#include <stdio.h>
+#include <stdlib.h>
+#include "PikaObj.h"
+
+PikaObj *New_PikaStdLib_SysObj(Args *args);
+
+void PikaStdLib_SysObj_remove(PikaObj *self, char * argPath);
+void PikaStdLib_SysObj_type(PikaObj *self, char * argPath);
+
+#endif

components/pikascript/pikascript-api/compiler-info.txt

@@ -0,0 +1 @@
+Compiler { dist_path: "pikascript-api/", source_path: "", class_list: {"PikaMain": ClassInfo { this_class_name: "PikaMain", super_class_name: "PikaStdLib_SysObj", method_list: {}, object_list: {"PikaStdLib": ObjectInfo { class_name: "PikaMain", name: "PikaStdLib", import_class_name: "PikaStdLib" }}, import_list: {}, script_list: Script { content: "            \"\\n\"\n            \"print('hello pikascript!')\\n\"\n            \"\\n\"\n" }, is_package: false }, "PikaStdLib": ClassInfo { this_class_name: "PikaStdLib", super_class_name: "TinyObj", method_list: {"MemChecker": MethodInfo { class_name: "PikaStdLib", name: "MemChecker", arg_list: None, return_type: Some(PyType { type_name: "any" }) }, "SysObj": MethodInfo { class_name: "PikaStdLib", name: "SysObj", arg_list: None, return_type: Some(PyType { type_name: "any" }) }}, object_list: {}, import_list: {}, script_list: Script { content: "" }, is_package: true }, "PikaStdLib_MemChecker": ClassInfo { this_class_name: "PikaStdLib_MemChecker", super_class_name: "BaseObj", method_list: {"max": MethodInfo { class_name: "PikaStdLib_MemChecker", name: "max", arg_list: None, return_type: None }, "now": MethodInfo { class_name: "PikaStdLib_MemChecker", name: "now", arg_list: None, return_type: None }, "resetMax": MethodInfo { class_name: "PikaStdLib_MemChecker", name: "resetMax", arg_list: None, return_type: None }}, object_list: {}, import_list: {}, script_list: Script { content: "" }, is_package: false }, "PikaStdLib_SysObj": ClassInfo { this_class_name: "PikaStdLib_SysObj", super_class_name: "BaseObj", method_list: {"remove": MethodInfo { class_name: "PikaStdLib_SysObj", name: "remove", arg_list: Some(ArgList { py_arg_list: "argPath:str", list: {"argPath": PyArg { py_type: PyType { type_name: "str" }, name: "argPath" }} }), return_type: None }, "type": MethodInfo { class_name: "PikaStdLib_SysObj", name: "type", arg_list: Some(ArgList { py_arg_list: "argPath:str", list: {"argPath": PyArg { py_type: PyType { type_name: "str" }, name: "argPath" }} }), return_type: None }}, object_list: {}, import_list: {}, script_list: Script { content: "" }, is_package: false }}, class_now_name: Some("PikaMain"), package_now_name: Some("PikaStdLib") }

components/pikascript/pikascript-api/pikaScript.c

@@ -0,0 +1,17 @@
+/* ******************************** */
+/* Warning! Don't modify this file! */
+/* ******************************** */
+#include "PikaMain.h"
+#include <stdio.h>
+#include <stdlib.h>
+
+PikaObj * pikaScriptInit(){
+    PikaObj * pikaMain = newRootObj("pikaMain", New_PikaMain);
+    obj_run(pikaMain,
+            "\n"
+            "print('hello pikascript!')\n"
+            "\n"
+            "\n");
+    return pikaMain;
+}
+

components/pikascript/pikascript-api/pikaScript.h

@@ -0,0 +1,13 @@
+/* ******************************** */
+/* Warning! Don't modify this file! */
+/* ******************************** */
+#ifndef __pikaScript__H
+#define __pikaScript__H
+#include <stdio.h>
+#include <stdlib.h>
+#include "PikaObj.h"
+#include "PikaMain.h"
+
+PikaObj * pikaScriptInit();
+
+#endif

components/pikascript/pikascript-core/.gitignore

@@ -0,0 +1,2 @@
+*kite*
+*.o

components/pikascript/pikascript-core/BaseObj.c

@@ -0,0 +1,70 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "BaseObj.h"
+#include "PikaObj.h"
+#include "TinyObj.h"
+#include "dataMemory.h"
+#include "dataString.h"
+#include "dataStrs.h"
+
+Arg* arg_setMetaObj(char* objName, char* className, NewFun objPtr) {
+    Args* buffs = New_strBuff();
+    Arg* argNew = New_arg(NULL);
+    /* m means mate-object */
+    argNew = arg_setPtr(argNew, objName, TYPE_MATE_OBJECT, objPtr);
+    args_deinit(buffs);
+    return argNew;
+}
+
+int32_t obj_newObj(PikaObj* self,
+                   char* objName,
+                   char* className,
+                   NewFun newFunPtr) {
+    /* add mate Obj, no inited */
+    Arg* mateObj = arg_setMetaObj(objName, className, newFunPtr);
+    args_setArg(self->list, mateObj);
+    return 0;
+}
+
+static void print(PikaObj* self, Args* args) {
+    obj_setErrorCode(self, 0);
+    char* res = args_print(args, "val");
+    if (NULL == res) {
+        obj_setSysOut(self, "[error] print: can not print val");
+        obj_setErrorCode(self, 1);
+        return;
+    }
+    /* not empty */
+    obj_setSysOut(self, res);
+}
+
+PikaObj* New_BaseObj(Args* args) {
+    PikaObj* self = New_TinyObj(args);
+    class_defineMethod(self, "print(val:any)", print);
+    return self;
+}

components/pikascript/pikascript-core/BaseObj.h

@@ -0,0 +1,44 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef _PikaObj_baseObj__H
+#define _PikaObj_baseObj__H
+#include "PikaObj.h"
+#include "TinyObj.h"
+#include "dataMemory.h"
+#include "PikaVM.h"
+PikaObj* New_BaseObj(Args* args);
+int32_t obj_newObjFromClassLoader(PikaObj* self,
+                                  char* objPath,
+                                  char* classPath);
+int32_t obj_import(PikaObj* self, char* className, NewFun classPtr);
+int32_t obj_newObj(PikaObj* self,
+                   char* objName,
+                   char* className,
+                   NewFun newFunPtr);
+Arg* arg_setMetaObj(char* objName, char* className, NewFun objPtr);
+#endif

components/pikascript/pikascript-core/CMakeLists.txt

@@ -0,0 +1,9 @@
+#设置 BINARY 为项目名IndexProject
+set(BINARY ${CMAKE_PROJECT_NAME})
+ 
+file(GLOB_RECURSE SOURCES LIST_DIRECTORIES true *.h *.c)
+set(SOURCES ${SOURCES})
+
+add_library(${BINARY}-core 
+            STATIC 
+            ${SOURCES})

components/pikascript/pikascript-core/PikaObj.c

@@ -0,0 +1,633 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "PikaObj.h"
+#include <stdarg.h>
+#include "BaseObj.h"
+#include "PikaVM.h"
+#include "dataArgs.h"
+#include "dataMemory.h"
+#include "dataString.h"
+#include "dataStrs.h"
+
+int fast_atoi(char* src) {
+    const char* p = src;
+    static const uint64_t a[][10] = {
+        {0, 1e0, 2e0, 3e0, 4e0, 5e0, 6e0, 7e0, 8e0, 9e0},
+        {0, 1e1, 2e1, 3e1, 4e1, 5e1, 6e1, 7e1, 8e1, 9e1},
+        {0, 1e2, 2e2, 3e2, 4e2, 5e2, 6e2, 7e2, 8e2, 9e2},
+        {0, 1e3, 2e3, 3e3, 4e3, 5e3, 6e3, 7e3, 8e3, 9e3},
+        {0, 1e4, 2e4, 3e4, 4e4, 5e4, 6e4, 7e4, 8e4, 9e4},
+        {0, 1e5, 2e5, 3e5, 4e5, 5e5, 6e5, 7e5, 8e5, 9e5},
+        {0, 1e6, 2e6, 3e6, 4e6, 5e6, 6e6, 7e6, 8e6, 9e6},
+        {0, 1e7, 2e7, 3e7, 4e7, 5e7, 6e7, 7e7, 8e7, 9e7},
+        {0, 1e8, 2e8, 3e8, 4e8, 5e8, 6e8, 7e8, 8e8, 9e8},
+        {0, 1e9, 2e9, 3e9, 4e9, 5e9, 6e9, 7e9, 8e9, 9e9},
+    };
+    uint16_t size = strGetSize(src);
+    p = p + size - 1;
+    if (*p) {
+        int s = 0;
+        const uint64_t* n = a[0];
+        while (p != src) {
+            s += n[(*p - '0')];
+            n += 10;
+            p--;
+        }
+        if (*p == '-') {
+            return -s;
+        }
+        return s + n[(*p - '0')];
+    }
+    return 0;
+}
+
+static uint16_t const str100p[100] = {
+    0x3030, 0x3130, 0x3230, 0x3330, 0x3430, 0x3530, 0x3630, 0x3730, 0x3830,
+    0x3930, 0x3031, 0x3131, 0x3231, 0x3331, 0x3431, 0x3531, 0x3631, 0x3731,
+    0x3831, 0x3931, 0x3032, 0x3132, 0x3232, 0x3332, 0x3432, 0x3532, 0x3632,
+    0x3732, 0x3832, 0x3932, 0x3033, 0x3133, 0x3233, 0x3333, 0x3433, 0x3533,
+    0x3633, 0x3733, 0x3833, 0x3933, 0x3034, 0x3134, 0x3234, 0x3334, 0x3434,
+    0x3534, 0x3634, 0x3734, 0x3834, 0x3934, 0x3035, 0x3135, 0x3235, 0x3335,
+    0x3435, 0x3535, 0x3635, 0x3735, 0x3835, 0x3935, 0x3036, 0x3136, 0x3236,
+    0x3336, 0x3436, 0x3536, 0x3636, 0x3736, 0x3836, 0x3936, 0x3037, 0x3137,
+    0x3237, 0x3337, 0x3437, 0x3537, 0x3637, 0x3737, 0x3837, 0x3937, 0x3038,
+    0x3138, 0x3238, 0x3338, 0x3438, 0x3538, 0x3638, 0x3738, 0x3838, 0x3938,
+    0x3039, 0x3139, 0x3239, 0x3339, 0x3439, 0x3539, 0x3639, 0x3739, 0x3839,
+    0x3939,
+};
+
+char* fast_itoa(char* buf, uint32_t val) {
+    char* p = &buf[10];
+
+    *p = '\0';
+
+    while (val >= 100) {
+        uint32_t const old = val;
+
+        p -= 2;
+        val /= 100;
+        memcpy(p, &str100p[old - (val * 100)], sizeof(uint16_t));
+    }
+
+    p -= 2;
+    memcpy(p, &str100p[val], sizeof(uint16_t));
+
+    return &p[val < 10];
+}
+
+int32_t deinitEachSubObj(Arg* argEach, Args* handleArgs) {
+    if (NULL != handleArgs) {
+        /* error: tOhis handle not need handle args */
+        return 1;
+    }
+    ArgType type = arg_getType(argEach);
+    /* deinit sub object */
+    if (type == TYPE_OBJECT) {
+        PikaObj* subObj = arg_getPtr(argEach);
+        obj_deinit(subObj);
+    }
+    return 0;
+}
+
+void deinitAllSubObj(PikaObj* self) {
+    Args* args = self->list;
+    args_foreach(args, deinitEachSubObj, NULL);
+}
+
+int32_t obj_deinit(PikaObj* self) {
+    deinitAllSubObj(self);
+    args_deinit(self->list);
+    // DynMemPut(self->mem);
+    pikaFree(self, sizeof(PikaObj));
+    self = NULL;
+    return 0;
+}
+
+int32_t obj_enable(PikaObj* self) {
+    obj_setInt(self, "isEnable", 1);
+    return 0;
+}
+
+int32_t obj_disable(PikaObj* self) {
+    obj_setInt(self, "isEnable", 0);
+    return 0;
+}
+
+int32_t obj_setInt(PikaObj* self, char* argPath, int64_t val) {
+    PikaObj* obj = obj_getObj(self, argPath, 1);
+    if (NULL == obj) {
+        /* [error] object no found */
+        return 1;
+    }
+    Args* buffs = New_strBuff();
+    char* name = strsGetLastToken(buffs, argPath, '.');
+    args_setInt(obj->list, name, val);
+    args_deinit(buffs);
+    return 0;
+}
+
+int32_t obj_setPtr(PikaObj* self, char* argPath, void* pointer) {
+    PikaObj* obj = obj_getObj(self, argPath, 1);
+    if (NULL == obj) {
+        return 1;
+    }
+    Args* buffs = New_strBuff();
+    char* name = strsGetLastToken(buffs, argPath, '.');
+    args_setPtr(obj->list, name, pointer);
+    args_deinit(buffs);
+    return 0;
+}
+
+int32_t obj_setFloat(PikaObj* self, char* argPath, float value) {
+    PikaObj* obj = obj_getObj(self, argPath, 1);
+    if (NULL == obj) {
+        return 1;
+    }
+    Args* buffs = New_strBuff();
+    char* name = strsGetLastToken(buffs, argPath, '.');
+    args_setFloat(obj->list, name, value);
+    args_deinit(buffs);
+    return 0;
+}
+
+int32_t obj_setStr(PikaObj* self, char* argPath, char* str) {
+    PikaObj* obj = obj_getObj(self, argPath, 1);
+    if (NULL == obj) {
+        return 1;
+    }
+    Args* buffs = New_strBuff();
+    char* name = strsGetLastToken(buffs, argPath, '.');
+    args_setStr(obj->list, name, str);
+    args_deinit(buffs);
+    return 0;
+}
+
+int64_t obj_getInt(PikaObj* self, char* argPath) {
+    PikaObj* obj = obj_getObj(self, argPath, 1);
+    if (NULL == obj) {
+        return -999999999;
+    }
+    Args* buffs = New_strBuff();
+    char* argName = strsGetLastToken(buffs, argPath, '.');
+    int res = args_getInt(obj->list, argName);
+    args_deinit(buffs);
+    return res;
+}
+
+Arg* obj_getArg(PikaObj* self, char* argPath) {
+    PikaObj* obj = obj_getObj(self, argPath, 1);
+    if (NULL == obj) {
+        return NULL;
+    }
+    Args* buffs = New_strBuff();
+    char* argName = strsGetLastToken(buffs, argPath, '.');
+    Arg* res = args_getArg(obj->list, argName);
+    args_deinit(buffs);
+    return res;
+}
+
+int32_t obj_setArg(PikaObj* self, char* argPath, Arg* arg) {
+    /* setArg would copy arg */
+    PikaObj* obj = obj_getObj(self, argPath, 1);
+    if (NULL == obj) {
+        /* object no found */
+        return 1;
+    }
+    Args* buffs = New_strBuff();
+    char* argName = strsGetLastToken(buffs, argPath, '.');
+    Arg* newArg = arg_copy(arg);
+    newArg = arg_setName(newArg, argName);
+    args_deinit(buffs);
+    args_setArg(obj->list, newArg);
+    return 0;
+}
+
+void* obj_getPtr(PikaObj* self, char* argPath) {
+    PikaObj* obj = obj_getObj(self, argPath, 1);
+    if (NULL == obj) {
+        return NULL;
+    }
+    Args* buffs = New_strBuff();
+    char* argName = strsGetLastToken(buffs, argPath, '.');
+    void* res = args_getPtr(obj->list, argName);
+    args_deinit(buffs);
+    return res;
+}
+
+float obj_getFloat(PikaObj* self, char* argPath) {
+    PikaObj* obj = obj_getObj(self, argPath, 1);
+    if (NULL == obj) {
+        return -999.999;
+    }
+    Args* buffs = New_strBuff();
+    char* argName = strsGetLastToken(buffs, argPath, '.');
+    float res = args_getFloat(obj->list, argName);
+    args_deinit(buffs);
+    return res;
+}
+
+char* obj_getStr(PikaObj* self, char* argPath) {
+    PikaObj* obj = obj_getObj(self, argPath, 1);
+    if (NULL == obj) {
+        return NULL;
+    }
+    Args* buffs = New_strBuff();
+    char* argName = strsGetLastToken(buffs, argPath, '.');
+    char* res = args_getStr(obj->list, argName);
+    args_deinit(buffs);
+    return res;
+}
+
+int32_t obj_load(PikaObj* self, Args* args, char* name) {
+    args_copyArgByName(args, name, self->list);
+    return 0;
+}
+
+int32_t obj_addOther(PikaObj* self, char* subObjectName, void* new_ObjectFun) {
+    Args* initArgs = New_args(NULL);
+    void* (*new_Object)(Args * initArgs) = (void* (*)(Args*))new_ObjectFun;
+    void* subObject = new_Object(initArgs);
+    obj_setPtr(self, subObjectName, subObject);
+    args_deinit(initArgs);
+    return 0;
+}
+
+int32_t obj_freeObj(PikaObj* self, char* objPath) {
+    PikaObj* obj = obj_getPtr(self, objPath);
+    obj_deinit(obj);
+    return 0;
+}
+
+char* obj_print(PikaObj* self, char* name) {
+    if (NULL == self) {
+        return NULL;
+    }
+    return args_print(self->list, name);
+}
+
+PikaObj* obj_getClassObjByNewFun(PikaObj* context,
+                                 char* name,
+                                 NewFun newClassFun) {
+    Args* initArgs = New_args(NULL);
+    PikaObj* thisClass = newClassFun(initArgs);
+    obj_setPtr(thisClass, "_clsptr", newClassFun);
+    args_deinit(initArgs);
+    return thisClass;
+}
+
+Arg* obj_getMethod(PikaObj* obj, char* methodPath) {
+    Arg* method = NULL;
+    Args* buffs = New_strBuff();
+    char* methodName = strsGetLastToken(buffs, methodPath, '.');
+    method = obj_getArg(obj, methodName);
+    PikaObj* methodHostClass;
+    if (NULL != method) {
+        method = arg_copy(method);
+        goto exit;
+    }
+    methodHostClass = obj_getClassObj(obj);
+    method = arg_copy(obj_getArg(methodHostClass, methodName));
+    obj_deinit(methodHostClass);
+exit:
+    args_deinit(buffs);
+    return method;
+}
+
+PikaObj* obj_getClassObj(PikaObj* obj) {
+    NewFun classPtr = (NewFun)obj_getPtr(obj, "_clsptr");
+    PikaObj* classObj = obj_getClassObjByNewFun(obj, "", classPtr);
+    return classObj;
+}
+
+void* getNewClassObjFunByName(PikaObj* obj, char* name) {
+    char* classPath = name;
+    /* init the subprocess */
+    void* newClassObjFun = args_getPtr(obj->list, classPath);
+    return newClassObjFun;
+}
+
+int32_t __foreach_removeMethodInfo(Arg* argNow, Args* argList) {
+    if (arg_getType(argNow) == TYPE_METHOD) {
+        args_removeArg(argList, argNow);
+        return 0;
+    }
+    return 0;
+}
+
+PikaObj* removeMethodInfo(PikaObj* thisClass) {
+    args_foreach(thisClass->list, __foreach_removeMethodInfo, thisClass->list);
+    return thisClass;
+}
+
+PikaObj* newRootObj(char* name, NewFun newObjFun) {
+    PikaObj* thisClass = obj_getClassObjByNewFun(NULL, name, newObjFun);
+    PikaObj* newObj = removeMethodInfo(thisClass);
+    return newObj;
+}
+
+PikaObj* initObj(PikaObj* obj, char* name) {
+    PikaObj* res = NULL;
+    NewFun newObjFun = (NewFun)getNewClassObjFunByName(obj, name);
+    Args* buffs = New_args(NULL);
+    PikaObj* thisClass;
+    PikaObj* newObj;
+    if (NULL == newObjFun) {
+        /* no such object */
+        res = NULL;
+        goto exit;
+    }
+    thisClass = obj_getClassObjByNewFun(obj, name, newObjFun);
+    newObj = removeMethodInfo(thisClass);
+
+    args_setPtrWithType(obj->list, name, TYPE_OBJECT, newObj);
+    res = obj_getPtr(obj, name);
+    goto exit;
+exit:
+    args_deinit(buffs);
+    return res;
+}
+
+PikaObj* obj_getObjDirect(PikaObj* self, char* name) {
+    if (NULL == self) {
+        return NULL;
+    }
+    /* finded object, check type*/
+    ArgType type = args_getType(self->list, name);
+    /* found mate Object */
+    if (type == TYPE_MATE_OBJECT) {
+        return initObj(self, name);
+    }
+    /* found Objcet */
+    if (type == TYPE_OBJECT) {
+        return obj_getPtr(self, name);
+    }
+    return NULL;
+}
+
+PikaObj* obj_getObj(PikaObj* self, char* objPath, int32_t keepDeepth) {
+    Args* buffs = New_strBuff();
+    char* objPathBuff = strsCopy(buffs, objPath);
+    int32_t tokenNum = strGetTokenNum(objPath, '.');
+    PikaObj* obj = self;
+    for (int32_t i = 0; i < tokenNum - keepDeepth; i++) {
+        char* token = strsPopToken(buffs, objPathBuff, '.');
+        obj = obj_getObjDirect(obj, token);
+        if (obj == NULL) {
+            goto exit;
+        }
+    }
+    goto exit;
+exit:
+    args_deinit(buffs);
+    return obj;
+}
+
+void* methodArg_getPtr(Arg* method_arg) {
+    uint32_t size_ptr = sizeof(void*);
+    void* info = arg_getContent(method_arg);
+    void* ptr = NULL;
+    memcpy(&ptr, info, size_ptr);
+    return ptr;
+}
+
+char* methodArg_getDec(Arg* method_arg) {
+    uint32_t size_ptr = sizeof(void*);
+    void* info = arg_getContent(method_arg);
+    return (char*)((uint64_t)info + size_ptr);
+}
+
+void obj_saveMethodInfo(PikaObj* self,
+                        char* method_name,
+                        char* method_dec,
+                        void* method_ptr) {
+    Args* buffs = New_strBuff();
+    char* pars = strsRemovePrefix(buffs, method_dec, method_name);
+    Arg* arg = New_arg(NULL);
+    uint32_t size_ptr = sizeof(void*);
+    uint32_t size_pars = strGetSize(pars);
+    uint32_t size_info = size_ptr + size_pars + 1;
+    void* info = args_getBuff(buffs, size_info);
+    memcpy(info, &method_ptr, size_ptr);
+    /* +1 to add \0 */
+    memcpy((void*)((uint64_t)info + size_ptr), pars, size_pars + 1);
+    arg = arg_setName(arg, method_name);
+    arg = arg_setType(arg, TYPE_METHOD);
+    arg = arg_setContent(arg, info, size_info);
+
+    args_setArg(self->list, arg);
+    args_deinit(buffs);
+}
+
+int32_t class_defineMethod(PikaObj* self,
+                           char* declearation,
+                           Method methodPtr) {
+    int32_t size = strGetSize(declearation);
+    int32_t res = 0;
+    Args* buffs = New_strBuff();
+    char* cleanDeclearation =
+        strDeleteChar(args_getBuff(buffs, size), declearation, ' ');
+    char* methodPath =
+        strGetFirstToken(args_getBuff(buffs, size), cleanDeclearation, '(');
+
+    PikaObj* methodHost = obj_getObj(self, methodPath, 1);
+    char* methodName;
+    if (NULL == methodHost) {
+        /* no found method object */
+        res = 1;
+        goto exit;
+    }
+    methodName = strsGetLastToken(buffs, methodPath, '.');
+
+    obj_saveMethodInfo(methodHost, methodName, cleanDeclearation, methodPtr);
+    res = 0;
+    goto exit;
+exit:
+    args_deinit(buffs);
+    return res;
+}
+
+PIKA_WEAK int __runExtern_contral(PikaObj* self, char* cmd) {
+    return 0;
+}
+
+Parameters* obj_runDirect(PikaObj* self, char* cmd) {
+    Parameters* globals = NULL;
+
+    globals = pikaVM_run(self, cmd);
+    goto exit;
+
+exit:
+    return globals;
+}
+
+int32_t obj_removeArg(PikaObj* self, char* argPath) {
+    PikaObj* objHost = obj_getObj(self, argPath, 1);
+    PikaObj* obj = obj_getObj(self, argPath, 0);
+    Args* buffs = New_strBuff();
+    char* argName;
+    int32_t res;
+    if (NULL != obj) {
+        obj_deinit(obj);
+    }
+    int32_t err = 0;
+    if (NULL == objHost) {
+        /* [error] object no found */
+        err = 1;
+        goto exit;
+    }
+    argName = strsGetLastToken(buffs, argPath, '.');
+    res = args_removeArg(objHost->list, args_getArg(objHost->list, argName));
+    if (1 == res) {
+        /*[error] not found arg*/
+        err = 2;
+        goto exit;
+    }
+    goto exit;
+exit:
+    args_deinit(buffs);
+    return err;
+}
+
+int32_t obj_isArgExist(PikaObj* self, char* argPath) {
+    PikaObj* obj = obj_getObj(self, argPath, 1);
+    Args* buffs = New_strBuff();
+    int32_t res = 0;
+    char* argName;
+    Arg* arg;
+    if (NULL == obj) {
+        /* [error] object no found */
+        res = 1;
+        goto exit;
+    }
+    argName = strsGetLastToken(buffs, argPath, '.');
+    arg = args_getArg(obj->list, argName);
+    if (NULL == arg) {
+        /* no found arg */
+        res = 0;
+        goto exit;
+    }
+    /* found arg */
+    res = 1;
+    goto exit;
+
+exit:
+    args_deinit(buffs);
+    return res;
+}
+
+void obj_runNoRes(PikaObj* slef, char* cmd) {
+    /* unsafe, nothing would happend when error occord */
+    obj_runDirect(slef, cmd);
+}
+
+void obj_run(PikaObj* self, char* cmd) {
+    /* safe, stop when error occord and error info would be print32_t */
+    obj_runDirect(self, cmd);
+    // obj_deinit(globals);
+}
+
+void obj_setErrorCode(PikaObj* self, int32_t errCode) {
+    obj_setInt(self, "__errCode", errCode);
+}
+
+int32_t obj_getErrorCode(PikaObj* self) {
+    if (!obj_isArgExist(self, "__errCode")) {
+        return 0;
+    }
+    return obj_getInt(self, "__errCode");
+}
+
+void args_setErrorCode(Args* args, int32_t errCode) {
+    args_setInt(args, "__errCode", errCode);
+}
+
+int32_t args_getErrorCode(Args* args) {
+    if (!args_isArgExist(args, "__errCode")) {
+        return 0;
+    }
+    return args_getInt(args, "__errCode");
+}
+
+void obj_setSysOut(PikaObj* self, char* str) {
+    obj_setStr(self, "__sysOut", str);
+}
+
+char* obj_getSysOut(PikaObj* self) {
+    return obj_getStr(self, "__sysOut");
+}
+
+char* args_getSysOut(Args* args) {
+    return args_getStr(args, "__sysOut");
+}
+
+void args_setSysOut(Args* args, char* str) {
+    args_setStr(args, "__sysOut", str);
+}
+
+void obj_sysPrintf(PikaObj* self, char* fmt, ...) {
+    va_list args;
+    va_start(args, fmt);
+    char sysOut[128] = {0};
+    vsprintf(sysOut, fmt, args);
+    obj_setSysOut(self, sysOut);
+    va_end(args);
+}
+
+void method_returnStr(Args* args, char* val) {
+    args_setStr(args, "return", val);
+}
+void method_returnInt(Args* args, int32_t val) {
+    args_setInt(args, "return", val);
+}
+void method_returnFloat(Args* args, float val) {
+    args_setFloat(args, "return", val);
+}
+void method_returnPtr(Args* args, void* val) {
+    args_setPtr(args, "return", val);
+}
+void method_returnArg(Args* args, Arg* arg) {
+    arg = arg_setName(arg, "return");
+    args_setArg(args, arg);
+}
+
+int32_t method_getInt(Args* args, char* argName) {
+    return args_getInt(args, argName);
+}
+float method_getFloat(Args* args, char* argName) {
+    return args_getFloat(args, argName);
+}
+char* method_getStr(Args* args, char* argName) {
+    return args_getStr(args, argName);
+}
+
+PikaObj* New_PikaObj(void) {
+    PikaObj* self = pikaMalloc(sizeof(PikaObj));
+    /* List */
+    self->list = New_args(NULL);
+    return self;
+}

components/pikascript/pikascript-core/PikaObj.h

@@ -0,0 +1,135 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef _Process__H
+#define _Process__H
+#include "dataArgs.h"
+#include "dataLink.h"
+#include "dataMemory.h"
+typedef struct PikaObj_t PikaObj;
+typedef PikaObj* (*NewFun)(Args* args);
+typedef PikaObj* (*InitFun)(PikaObj* self, Args* args);
+typedef PikaObj Parameters;
+typedef void (*Method)(PikaObj* self, Args* args);
+struct PikaObj_t {
+    /* list */
+    Args* list;
+};
+
+/* operation */
+int32_t obj_deinit(PikaObj* self);
+int32_t obj_init(PikaObj* self, Args* args);
+int32_t obj_update(PikaObj* self);
+int32_t obj_enable(PikaObj* self);
+int32_t obj_disable(PikaObj* self);
+
+// arg type operations
+int32_t obj_setInt(PikaObj* self, char* argPath, int64_t val);
+int32_t obj_setPtr(PikaObj* self, char* argPath, void* pointer);
+int32_t obj_setFloat(PikaObj* self, char* argPath, float value);
+int32_t obj_setStr(PikaObj* self, char* argPath, char* str);
+int32_t obj_setArg(PikaObj* self, char* argPath, Arg* arg);
+
+void* obj_getPtr(PikaObj* self, char* argPath);
+float obj_getFloat(PikaObj* self, char* argPath);
+char* obj_getStr(PikaObj* self, char* argPath);
+int64_t obj_getInt(PikaObj* self, char* argPath);
+Arg* obj_getArg(PikaObj* self, char* argPath);
+
+// arg general operations
+int32_t obj_bind(PikaObj* self, char* type, char* name, void* pointer);
+int32_t obj_set(PikaObj* self, char* name, char* valStr);
+
+int32_t obj_bindInt(PikaObj* self, char* name, int32_t* valPtr);
+int32_t obj_bindFloat(PikaObj* self, char* name, float* valPtr);
+int32_t obj_bindString(PikaObj* self, char* name, char** valPtr);
+
+char* obj_print(PikaObj* self, char* name);
+
+// args operations
+int32_t obj_load(PikaObj* self, Args* args, char* name);
+
+// subObject
+int32_t obj_addOther(PikaObj* self, char* subObjectName, void* new_projcetFun);
+int32_t obj_setObjWithoutClass(PikaObj* self,
+                               char* subObjectName,
+                               void* new_projcetFun);
+PikaObj* obj_getObjDirect(PikaObj* self, char* name);
+PikaObj* obj_getObj(PikaObj* self, char* processPathectory, int32_t deepth);
+
+// subProcess
+int32_t obj_freeObj(PikaObj* self, char* subObjectName);
+
+/* method */
+int32_t class_defineMethod(PikaObj* self, char* declearation, Method methodPtr);
+
+int32_t obj_removeArg(PikaObj* self, char* argPath);
+int32_t obj_isArgExist(PikaObj* self, char* argPath);
+PikaObj* obj_getClassObjByNewFun(PikaObj* self, char* name, NewFun newClassFun);
+PikaObj* newRootObj(char* name, NewFun newObjFun);
+PikaObj* obj_getClassObj(PikaObj* obj);
+Arg* obj_getMethod(PikaObj* obj, char* methodPath);
+
+void obj_setErrorCode(PikaObj* self, int32_t errCode);
+int32_t obj_getErrorCode(PikaObj* self);
+void obj_setSysOut(PikaObj* self, char* str);
+char* args_getSysOut(Args* args);
+void args_setErrorCode(Args* args, int32_t errCode);
+int32_t args_getErrorCode(Args* args);
+void args_setSysOut(Args* args, char* str);
+char* obj_getSysOut(PikaObj* self);
+void obj_sysPrintf(PikaObj* self, char* fmt, ...);
+uint8_t obj_getRefArg(PikaObj* self,
+                      char* targetArgName,
+                      char* sourceArgPath,
+                      Args* targetArgs);
+uint8_t obj_getAnyArg(PikaObj* self,
+                      char* targetArgName,
+                      char* sourceArgPath,
+                      Args* targetArgs);
+
+void method_returnStr(Args* args, char* val);
+void method_returnInt(Args* args, int32_t val);
+void method_returnFloat(Args* args, float val);
+void method_returnPtr(Args* args, void* val);
+int32_t method_getInt(Args* args, char* argName);
+float method_getFloat(Args* args, char* argName);
+char* method_getStr(Args* args, char* argName);
+void method_returnArg(Args* args, Arg* arg);
+char* methodArg_getDec(Arg* method_arg);
+void* methodArg_getPtr(Arg* method_arg);
+
+void obj_runNoRes(PikaObj* slef, char* cmd);
+void obj_run(PikaObj* self, char* cmd);
+Parameters* obj_runDirect(PikaObj* self, char* cmd);
+PikaObj* New_PikaObj(void);
+
+/* tools */
+int fast_atoi(char* src);
+char* fast_itoa(char* buf, uint32_t val);
+
+#endif

components/pikascript/pikascript-core/PikaObj.py

@@ -0,0 +1,14 @@
+class TinyObj:
+    pass
+
+
+class BaseObj(TinyObj):
+    pass
+
+
+def print(val: any):
+    pass
+
+
+def set(argPath: str, val: any):
+    pass

components/pikascript/pikascript-core/PikaParser.c

@@ -0,0 +1,891 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "PikaParser.h"
+#include "BaseObj.h"
+#include "PikaObj.h"
+#include "dataQueue.h"
+#include "dataQueueObj.h"
+#include "dataStack.h"
+#include "dataStrs.h"
+
+char* strsPopTokenWithSkip_byStr(Args* buffs,
+                                 char* stmts,
+                                 char* str,
+                                 char skipStart,
+                                 char skipEnd) {
+    int32_t str_size = strGetSize(str);
+    int32_t size = strGetSize(stmts);
+    if (0 == size) {
+        return NULL;
+    }
+    char* strOut = args_getBuff(buffs, size);
+    int32_t stmtEnd = 0;
+    uint8_t isGetSign = 0;
+    int32_t parentheseDeepth = 0;
+    for (int32_t i = 0; i < size; i++) {
+        if (skipStart == stmts[i]) {
+            parentheseDeepth++;
+        }
+        if (skipEnd == stmts[i]) {
+            parentheseDeepth--;
+        }
+        if (parentheseDeepth == 0) {
+            if (0 == strncmp(stmts + i, str, str_size)) {
+                stmtEnd = i;
+                isGetSign = 1;
+                break;
+            }
+        }
+    }
+    if (!isGetSign) {
+        stmtEnd = size;
+    }
+    for (int32_t i = 0; i < stmtEnd; i++) {
+        strOut[i] = stmts[i];
+    }
+    memmove(stmts, stmts + stmtEnd + str_size, size);
+    strOut[stmtEnd] = 0;
+    return strOut;
+}
+
+char* strsPopTokenWithSkip(Args* buffs,
+                           char* stmts,
+                           char sign,
+                           char skipStart,
+                           char skipEnd) {
+    char str_buff[2] = {0};
+    str_buff[0] = sign;
+    return strsPopTokenWithSkip_byStr(buffs, stmts, str_buff, skipStart,
+                                      skipEnd);
+}
+
+char* strsGetCleanCmd(Args* outBuffs, char* cmd) {
+    int32_t size = strGetSize(cmd);
+    Args* buffs = New_strBuff();
+    char* tokens = Lexer_getTokens(buffs, cmd);
+    uint16_t token_size = strCountSign(tokens, 0x1F) + 1;
+    char* strOut = args_getBuff(outBuffs, size);
+    int32_t iOut = 0;
+    for (uint16_t i = 0; i < token_size; i++) {
+        char* token = strsPopToken(buffs, tokens, 0x1F);
+        for (uint16_t k = 0; k < strGetSize(token + 1); k++) {
+            strOut[iOut] = token[k + 1];
+            iOut++;
+        }
+    }
+    /* add \0 */
+    strOut[iOut] = 0;
+    args_deinit(buffs);
+    return strOut;
+}
+
+enum TokenType {
+    TOKEN_strEnd = 0,
+    TOKEN_symbol,
+    TOKEN_keyword,
+    TOKEN_operator,
+    TOKEN_devider,
+    TOKEN_literal,
+};
+
+enum StmtType {
+    STMT_reference,
+    STMT_string,
+    STMT_number,
+    STMT_method,
+    STMT_operator,
+    STMT_none,
+};
+
+char* strsDeleteBetween(Args* buffs, char* strIn, char begin, char end) {
+    int32_t size = strGetSize(strIn);
+    char* strOut = args_getBuff(buffs, size);
+    uint8_t deepth = 0;
+    uint32_t iOut = 0;
+    for (int i = 0; i < size; i++) {
+        if (end == strIn[i]) {
+            deepth--;
+        }
+        if (0 == deepth) {
+            strOut[iOut] = strIn[i];
+            iOut++;
+        }
+        if (begin == strIn[i]) {
+            deepth++;
+        }
+    }
+    strOut[iOut] = 0;
+    return strOut;
+}
+
+static enum StmtType Lexer_matchStmtType(char* right) {
+    Args* buffs = New_strBuff();
+    enum StmtType stmtType = STMT_none;
+    char* rightWithoutSubStmt = strsDeleteBetween(buffs, right, '(', ')');
+    char* tokens = Lexer_getTokens(buffs, rightWithoutSubStmt);
+    uint16_t token_size = strCountSign(tokens, 0x1F) + 1;
+    uint8_t is_get_operator = 0;
+    uint8_t is_get_method = 0;
+    uint8_t is_get_string = 0;
+    uint8_t is_get_number = 0;
+    uint8_t is_get_symbol = 0;
+    for (int i = 0; i < token_size; i++) {
+        char* token = strsPopToken(buffs, tokens, 0x1F);
+        enum TokenType token_type = token[0];
+        /* collect type */
+        if (token_type == TOKEN_operator) {
+            is_get_operator = 1;
+            continue;
+        }
+        if (token_type == TOKEN_devider) {
+            is_get_method = 1;
+            continue;
+        }
+        if (token_type == TOKEN_literal) {
+            if (token[1] == '\'' || token[1] == '"') {
+                is_get_string = 1;
+                continue;
+            }
+            is_get_number = 1;
+            continue;
+        }
+        if (token_type == TOKEN_symbol) {
+            is_get_symbol = 1;
+            continue;
+        }
+    }
+    if (is_get_operator) {
+        stmtType = STMT_operator;
+        goto exit;
+    }
+    if (is_get_method) {
+        stmtType = STMT_method;
+        goto exit;
+    }
+    if (is_get_string) {
+        stmtType = STMT_string;
+        goto exit;
+    }
+    if (is_get_number) {
+        stmtType = STMT_number;
+        goto exit;
+    }
+    if (is_get_symbol) {
+        stmtType = STMT_reference;
+        goto exit;
+    }
+exit:
+    args_deinit(buffs);
+    return stmtType;
+}
+
+uint8_t Parser_checkIsDirect(char* str) {
+    /* include '0' */
+    uint32_t size = strGetSize(str) + 1;
+    for (int i = 1; i + 1 < size; i++) {
+        if ((str[i - 1] != '%') && (str[i - 1] != '!') && (str[i - 1] != '<') &&
+            (str[i - 1] != '>') && (str[i - 1] != '=') && (str[i - 1] != '+') &&
+            (str[i - 1] != '-') && (str[i - 1] != '*') && (str[i - 1] != '/') &&
+            (str[i + 1] != '=') && (str[i] == '=')) {
+            return 1;
+        }
+    }
+    return 0;
+}
+
+char* Lexer_printTokens(Args* outBuffs, char* tokens) {
+    /* init */
+    Args* buffs = New_strBuff();
+    char* printOut = strsCopy(buffs, "");
+
+    /* process */
+    uint16_t tokenSize = strCountSign(tokens, 0x1F) + 1;
+    for (int i = 0; i < tokenSize; i++) {
+        char* token = strsPopToken(buffs, tokens, 0x1F);
+        if (token[0] == TOKEN_operator) {
+            printOut = strsAppend(buffs, printOut, "{opt}");
+            printOut = strsAppend(buffs, printOut, token + 1);
+        }
+        if (token[0] == TOKEN_devider) {
+            printOut = strsAppend(buffs, printOut, "{dvd}");
+            printOut = strsAppend(buffs, printOut, token + 1);
+        }
+        if (token[0] == TOKEN_symbol) {
+            printOut = strsAppend(buffs, printOut, "{sym}");
+            printOut = strsAppend(buffs, printOut, token + 1);
+        }
+        if (token[0] == TOKEN_literal) {
+            printOut = strsAppend(buffs, printOut, "{lit}");
+            printOut = strsAppend(buffs, printOut, token + 1);
+        }
+    }
+    /* out put */
+    printOut = strsCopy(outBuffs, printOut);
+    args_deinit(buffs);
+    return printOut;
+}
+
+Arg* Lexer_setToken(Arg* tokens_arg,
+                    enum TokenType token_type,
+                    char*
+                    operator) {
+    Args* buffs = New_strBuff();
+    char token_type_buff[3] = {0};
+    token_type_buff[0] = 0x1F;
+    token_type_buff[1] = token_type;
+    char* tokens = arg_getStr(tokens_arg);
+    tokens = strsAppend(buffs, tokens, token_type_buff);
+    tokens = strsAppend(buffs, tokens, operator);
+    Arg* new_tokens_arg = arg_setStr(tokens_arg, "", tokens);
+    arg_deinit(tokens_arg);
+    args_deinit(buffs);
+    return new_tokens_arg;
+}
+
+Arg* Lexer_setSymbel(Arg* tokens_arg,
+                     char* stmt,
+                     uint32_t i,
+                     int* symbol_start_index) {
+    Args* buffs = New_strBuff();
+    /* nothing to add symbel */
+    if (i == *symbol_start_index) {
+        *symbol_start_index = -1;
+        goto exit;
+    }
+    char* symbol_buff = args_getBuff(buffs, i - *symbol_start_index);
+    memcpy(symbol_buff, stmt + *symbol_start_index, i - *symbol_start_index);
+    /* literal */
+    if ((symbol_buff[0] == '-') || (symbol_buff[0] == '\'') ||
+        (symbol_buff[0] == '"') ||
+        ((symbol_buff[0] >= '0') && (symbol_buff[0] <= '9'))) {
+        tokens_arg = Lexer_setToken(tokens_arg, TOKEN_literal, symbol_buff);
+    } else {
+        /* symbol */
+        tokens_arg = Lexer_setToken(tokens_arg, TOKEN_symbol, symbol_buff);
+    }
+    *symbol_start_index = -1;
+exit:
+    args_deinit(buffs);
+    return tokens_arg;
+}
+
+/* tokens is devided by space */
+/* a token is [TOKENTYPE|(CONTENT)] */
+char* Lexer_getTokens(Args* outBuffs, char* stmt) {
+    /* init */
+    Arg* tokens_arg = New_arg(NULL);
+    tokens_arg = arg_setStr(tokens_arg, "", "");
+    uint32_t size = strGetSize(stmt);
+    uint8_t c0 = 0;
+    uint8_t c1 = 0;
+    uint8_t c2 = 0;
+    uint8_t c3 = 0;
+    int symbol_start_index = -1;
+    int is_in_string = 0;
+
+    /* process */
+    for (int i = 0; i < size; i++) {
+        /* update char */
+        c0 = stmt[i];
+        if (i + 1 < size) {
+            c1 = stmt[i + 1];
+        }
+        if (i + 2 < size) {
+            c2 = stmt[i + 2];
+        }
+        if (i + 3 < size) {
+            c3 = stmt[i + 3];
+        }
+        if (-1 == symbol_start_index) {
+            symbol_start_index = i;
+        }
+
+        /* solve string */
+        if (0 == is_in_string) {
+            if ('\'' == c0) {
+                /* in ' */
+                is_in_string = 1;
+                continue;
+            }
+            if ('"' == c0) {
+                /* in "" */
+                is_in_string = 2;
+                continue;
+            }
+        }
+
+        if (1 == is_in_string) {
+            if ('\'' == c0) {
+                is_in_string = 0;
+                tokens_arg = Lexer_setSymbel(tokens_arg, stmt, i + 1,
+                                             &symbol_start_index);
+            }
+            continue;
+        }
+        if (2 == is_in_string) {
+            if ('"' == c0) {
+                is_in_string = 0;
+                tokens_arg = Lexer_setSymbel(tokens_arg, stmt, i + 1,
+                                             &symbol_start_index);
+            }
+            continue;
+        }
+
+        /* match devider*/
+        if (('(' == c0) || (')' == c0) || (',' == c0)) {
+            tokens_arg =
+                Lexer_setSymbel(tokens_arg, stmt, i, &symbol_start_index);
+            char content[2] = {0};
+            content[0] = c0;
+            tokens_arg = Lexer_setToken(tokens_arg, TOKEN_devider, content);
+            continue;
+        }
+        /* match operator */
+        if (('>' == c0) || ('<' == c0) || ('*' == c0) || ('/' == c0) ||
+            ('+' == c0) || ('-' == c0) || ('!' == c0) || ('=' == c0) ||
+            ('%' == c0) || ('&' == c0) || ('|' == c0) || ('^' == c0) ||
+            ('~' == c0)) {
+            if (('*' == c0) || ('/' == c0)) {
+                /*
+                     //=, **=
+                */
+                if ((c0 == c1) && ('=' == c2)) {
+                    char content[4] = {0};
+                    content[0] = c0;
+                    content[1] = c1;
+                    content[2] = '=';
+                    tokens_arg = Lexer_setSymbel(tokens_arg, stmt, i,
+                                                 &symbol_start_index);
+                    tokens_arg =
+                        Lexer_setToken(tokens_arg, TOKEN_operator, content);
+                    i = i + 2;
+                    continue;
+                }
+            }
+            /*
+                >>, <<, **, //
+            */
+            if (('>' == c0) || ('<' == c0) || ('*' == c0) || ('/' == c0)) {
+                if (c0 == c1) {
+                    char content[3] = {0};
+                    content[0] = c0;
+                    content[1] = c1;
+                    tokens_arg = Lexer_setSymbel(tokens_arg, stmt, i,
+                                                 &symbol_start_index);
+                    tokens_arg =
+                        Lexer_setToken(tokens_arg, TOKEN_operator, content);
+                    i = i + 1;
+                    continue;
+                }
+            }
+            /*
+                >=, <=, *=, /=, +=, -=, !=, ==, %=
+            */
+            if (('>' == c0) || ('<' == c0) || ('*' == c0) || ('/' == c0) ||
+                ('+' == c0) || ('-' == c0) || ('!' == c0) || ('=' == c0) ||
+                ('%' == c0)) {
+                if ('=' == c1) {
+                    char content[3] = {0};
+                    content[0] = c0;
+                    content[1] = c1;
+                    tokens_arg = Lexer_setSymbel(tokens_arg, stmt, i,
+                                                 &symbol_start_index);
+                    tokens_arg =
+                        Lexer_setToken(tokens_arg, TOKEN_operator, content);
+                    i = i + 1;
+                    continue;
+                }
+            }
+            /* single */
+            char content[2] = {0};
+            content[0] = c0;
+            if ('-' != c0) {
+                tokens_arg =
+                    Lexer_setSymbel(tokens_arg, stmt, i, &symbol_start_index);
+                tokens_arg =
+                    Lexer_setToken(tokens_arg, TOKEN_operator, content);
+                continue;
+            }
+            /* when c0 is '-' */
+            if (!((c1 >= '0') && (c1 <= '9'))) {
+                /* is a '-' */
+                tokens_arg =
+                    Lexer_setSymbel(tokens_arg, stmt, i, &symbol_start_index);
+                tokens_arg =
+                    Lexer_setToken(tokens_arg, TOKEN_operator, content);
+                continue;
+            }
+            if (i != symbol_start_index) {
+                /* is a '-' */
+                tokens_arg =
+                    Lexer_setSymbel(tokens_arg, stmt, i, &symbol_start_index);
+                tokens_arg =
+                    Lexer_setToken(tokens_arg, TOKEN_operator, content);
+                continue;
+            }
+            /* is a symbel */
+            continue;
+        }
+        /* not */
+        if ('n' == c0) {
+            if (('o' == c1) && ('t' == c2) && (' ' == c3)) {
+                tokens_arg =
+                    Lexer_setSymbel(tokens_arg, stmt, i, &symbol_start_index);
+                tokens_arg =
+                    Lexer_setToken(tokens_arg, TOKEN_operator, " not ");
+                i = i + 3;
+                continue;
+            }
+        }
+        /* and */
+        if ('a' == c0) {
+            if (('n' == c1) && ('d' == c2) && (' ' == c3)) {
+                tokens_arg =
+                    Lexer_setSymbel(tokens_arg, stmt, i, &symbol_start_index);
+                tokens_arg =
+                    Lexer_setToken(tokens_arg, TOKEN_operator, " and ");
+                i = i + 3;
+                continue;
+            }
+        }
+        /* or */
+        if ('o' == c0) {
+            if (('r' == c1) && (' ' == c2)) {
+                tokens_arg =
+                    Lexer_setSymbel(tokens_arg, stmt, i, &symbol_start_index);
+                tokens_arg = Lexer_setToken(tokens_arg, TOKEN_operator, " or ");
+                i = i + 2;
+                continue;
+            }
+        }
+        /* skip spaces */
+        if (' ' == c0) {
+            /* not get symbal */
+            if (i == symbol_start_index) {
+                symbol_start_index++;
+            } else {
+                /* already get symbal */
+                tokens_arg =
+                    Lexer_setSymbel(tokens_arg, stmt, i, &symbol_start_index);
+            }
+        }
+        if (i == size - 1) {
+            /* last check symbel */
+            tokens_arg =
+                Lexer_setSymbel(tokens_arg, stmt, size, &symbol_start_index);
+        }
+    }
+    /* output */
+    char* tokens = arg_getStr(tokens_arg);
+    tokens = strsCopy(outBuffs, tokens);
+    arg_deinit(tokens_arg);
+    return tokens;
+}
+
+uint8_t Lexer_isContain(char* tokens, char* operator) {
+    Args* buffs = New_strBuff();
+    char* tokens_buff = strsCopy(buffs, tokens);
+    uint8_t res = 0;
+    uint16_t token_size = strCountSign(tokens, 0x1F) + 1;
+    for (int i = 0; i < token_size; i++) {
+        char* token = strsPopToken(buffs, tokens_buff, 0x1F);
+        if (TOKEN_operator == token[0]) {
+            if (strEqu(token + 1, operator)) {
+                res = 1;
+                goto exit;
+            }
+        }
+    }
+exit:
+    args_deinit(buffs);
+    return res;
+}
+
+char* Lexer_getOperator(Args* outBuffs, char* stmt) {
+    Args* buffs = New_strBuff();
+    char* tokens = Lexer_getTokens(buffs, stmt);
+    char* operator= NULL;
+    const char operators[][6] = {
+        "**", "~",   "*",  "/",  "%",  "//",  "+",     "-",     ">>",  "<<",
+        "&",  "^",   "|",  "<",  "<=", ">",   ">=",    "!=",    "==",  "%=",
+        "/=", "//=", "-=", "+=", "*=", "**=", " not ", " and ", " or "};
+    for (int i = 0; i < sizeof(operators) / 6; i++) {
+        if (Lexer_isContain(tokens, (char*)operators[i])) {
+            operator= strsCopy(buffs, (char*)operators[i]);
+        }
+    }
+    /* out put */
+    operator= strsCopy(outBuffs, operator);
+    args_deinit(buffs);
+    return operator;
+}
+
+AST* AST_parseStmt(AST* ast, char* stmt) {
+    Args* buffs = New_strBuff();
+    char* assignment = strsGetFirstToken(buffs, stmt, '(');
+    char* direct = NULL;
+    char* method = NULL;
+    char* ref = NULL;
+    char* str = NULL;
+    char* num = NULL;
+    char* right = NULL;
+    /* solve direct */
+    uint8_t directExist = 0;
+    if (Parser_checkIsDirect(assignment)) {
+        directExist = 1;
+    }
+    if (directExist) {
+        direct = strsGetFirstToken(buffs, assignment, '=');
+        obj_setStr(ast, (char*)"direct", direct);
+    }
+    /* solve right stmt */
+    if (directExist) {
+        right = strsGetLastToken(buffs, stmt, '=');
+    } else {
+        right = stmt;
+    }
+    enum StmtType stmtType = Lexer_matchStmtType(right);
+    /* solve operator stmt */
+    if (STMT_operator == stmtType) {
+        char* rightWithoutSubStmt = strsDeleteBetween(buffs, right, '(', ')');
+        char* operator= Lexer_getOperator(buffs, rightWithoutSubStmt);
+        obj_setStr(ast, (char*)"operator", operator);
+        char* rightBuff = strsCopy(buffs, right);
+        char* subStmt1 =
+            strsPopTokenWithSkip_byStr(buffs, rightBuff, operator, '(', ')');
+        char* subStmt2 = rightBuff;
+        queueObj_pushObj(ast, (char*)"stmt");
+        AST_parseStmt(queueObj_getCurrentObj(ast), subStmt1);
+        queueObj_pushObj(ast, (char*)"stmt");
+        AST_parseStmt(queueObj_getCurrentObj(ast), subStmt2);
+        goto exit;
+    }
+    /* solve method stmt */
+    if (STMT_method == stmtType) {
+        method = strsGetFirstToken(buffs, right, '(');
+        obj_setStr(ast, (char*)"method", method);
+        char* subStmts = strsCut(buffs, stmt, '(', ')');
+        while (1) {
+            char* subStmt =
+                strsPopTokenWithSkip(buffs, subStmts, ',', '(', ')');
+            if (NULL == subStmt) {
+                break;
+            }
+            queueObj_pushObj(ast, (char*)"stmt");
+            AST_parseStmt(queueObj_getCurrentObj(ast), subStmt);
+        }
+        goto exit;
+    }
+    /* solve reference stmt */
+    if (STMT_reference == stmtType) {
+        ref = right;
+        obj_setStr(ast, (char*)"ref", ref);
+        goto exit;
+    }
+    /* solve str stmt */
+    if (STMT_string == stmtType) {
+        str = right;
+        str = strsDeleteChar(buffs, str, '\'');
+        str = strsDeleteChar(buffs, str, '\"');
+        obj_setStr(ast, (char*)"string", str);
+        goto exit;
+    }
+    /* solve number stmt */
+    if (STMT_number == stmtType) {
+        num = right;
+        obj_setStr(ast, (char*)"num", num);
+        goto exit;
+    }
+exit:
+    args_deinit(buffs);
+    return ast;
+}
+
+static int32_t Parser_getPyLineBlockDeepth(char* line) {
+    uint32_t size = strGetSize(line);
+    for (int i = 0; i < size; i++) {
+        if (line[i] != ' ') {
+            uint32_t spaceNum = i;
+            if (0 == spaceNum % 4) {
+                return spaceNum / 4;
+            }
+            /* space Num is not 4N, error*/
+            return -1;
+        }
+    }
+    return 0;
+}
+
+AST* AST_parseLine(char* line, Stack* blockStack) {
+    AST* ast = New_queueObj();
+    Args* buffs = New_strBuff();
+    line = strsDeleteChar(buffs, line, '\r');
+    uint8_t blockDeepth = Parser_getPyLineBlockDeepth(line);
+    uint8_t blockDeepthLast = blockDeepth;
+    if (NULL != blockStack) {
+        blockDeepthLast = args_getInt(blockStack, "top");
+        for (int i = 0; i < blockDeepthLast - blockDeepth; i++) {
+            QueueObj* exitBlock = obj_getObj(ast, "exitBlock", 0);
+            if (NULL == exitBlock) {
+                obj_newObj(ast, "exitBlock", "", New_TinyObj);
+                exitBlock = obj_getObj(ast, "exitBlock", 0);
+                queueObj_init(exitBlock);
+            }
+            char buff[10] = {0};
+            char* blockType = stack_popStr(blockStack, buff);
+            queueObj_pushStr(exitBlock, blockType);
+        }
+    }
+    obj_setInt(ast, "blockDeepth", blockDeepth);
+    char* lineStart = line + blockDeepth * 4;
+    char* stmt = lineStart;
+    if (0 == strncmp(lineStart, (char*)"while ", 6)) {
+        stmt = strsCut(buffs, lineStart, ' ', ':');
+        obj_setStr(ast, "block", "while");
+        if (NULL != blockStack) {
+            stack_pushStr(blockStack, "while");
+        }
+    }
+    if (0 == strncmp(lineStart, (char*)"if ", 3)) {
+        stmt = strsCut(buffs, lineStart, ' ', ':');
+        obj_setStr(ast, "block", "if");
+        if (NULL != blockStack) {
+            stack_pushStr(blockStack, "if");
+        }
+    }
+    if (strEqu(lineStart, (char*)"return")) {
+        obj_setStr(ast, "return", "");
+        stmt = "";
+    }
+    if (0 == strncmp(lineStart, (char*)"return ", 7)) {
+        char* lineBuff = strsCopy(buffs, lineStart);
+        strsPopToken(buffs, lineBuff, ' ');
+        stmt = lineBuff;
+        obj_setStr(ast, "return", "");
+    }
+    if (0 == strncmp(lineStart, (char*)"def ", 4)) {
+        stmt = "";
+        char* declear = strsCut(buffs, lineStart, ' ', ':');
+        declear = strsGetCleanCmd(buffs, declear);
+        obj_setStr(ast, "block", "def");
+        obj_setStr(ast, "declear", declear);
+        if (NULL != blockStack) {
+            stack_pushStr(blockStack, "def");
+        }
+    }
+    stmt = strsGetCleanCmd(buffs, stmt);
+    ast = AST_parseStmt(ast, stmt);
+    goto exit;
+exit:
+    args_deinit(buffs);
+    return ast;
+}
+
+char* Parser_LineToAsm(Args* buffs, char* line, Stack* blockStack) {
+    AST* ast = AST_parseLine(line, blockStack);
+    char* pikaAsm = AST_toPikaAsm(ast, buffs);
+    AST_deinit(ast);
+    return pikaAsm;
+}
+
+static Arg* ASM_saveSingleAsm(Args* buffs,
+                              Arg* pikaAsmBuff,
+                              char* singleAsm,
+                              uint8_t isToFlash) {
+    if (isToFlash) {
+        uint8_t saveErr = __platformSavePikaAsm(singleAsm);
+        if (0 == saveErr) {
+            if (NULL != pikaAsmBuff) {
+                arg_deinit(pikaAsmBuff);
+            }
+            return NULL;
+        }
+    }
+
+    char* pikaAsm = arg_getStr(pikaAsmBuff);
+    pikaAsm = strsAppend(buffs, pikaAsm, singleAsm);
+    arg_deinit(pikaAsmBuff);
+    pikaAsmBuff = arg_setStr(NULL, "", pikaAsm);
+    return pikaAsmBuff;
+}
+
+static char* ASM_getOutAsm(Args* outBuffs,
+                           Arg* pikaAsmBuff,
+                           uint8_t isToFlash) {
+    if (isToFlash) {
+        return __platformLoadPikaAsm();
+    }
+    return strsCopy(outBuffs, arg_getStr(pikaAsmBuff));
+}
+
+char* Parser_multiLineToAsm(Args* outBuffs, char* multiLine) {
+    Stack* blockStack = New_Stack();
+    Arg* pikaAsmBuff = arg_setStr(NULL, "", "");
+    uint32_t lineOffset = 0;
+    uint32_t multiLineSize = strGetSize(multiLine);
+    uint8_t isToFlash = __platformAsmIsToFlash(multiLine);
+    while (1) {
+        Args* singleRunBuffs = New_strBuff();
+        char* line =
+            strsGetFirstToken(singleRunBuffs, multiLine + lineOffset, '\n');
+        uint32_t lineSize = strGetSize(line);
+        lineOffset = lineOffset + lineSize + 1;
+        char* singleAsm = Parser_LineToAsm(singleRunBuffs, line, blockStack);
+        pikaAsmBuff = ASM_saveSingleAsm(singleRunBuffs, pikaAsmBuff, singleAsm,
+                                        isToFlash);
+        args_deinit(singleRunBuffs);
+        if (lineOffset >= multiLineSize) {
+            break;
+        }
+    }
+    if (isToFlash) {
+        __platformSavePikaAsmEOF();
+    }
+    char* outAsm = ASM_getOutAsm(outBuffs, pikaAsmBuff, isToFlash);
+    if (NULL != pikaAsmBuff) {
+        arg_deinit(pikaAsmBuff);
+    }
+    stack_deinit(blockStack);
+    return outAsm;
+}
+
+char* AST_appandPikaAsm(AST* ast, AST* subAst, Args* buffs, char* pikaAsm) {
+    uint32_t deepth = obj_getInt(ast, "deepth");
+    while (1) {
+        QueueObj* subStmt = queueObj_popObj(subAst);
+        if (NULL == subStmt) {
+            break;
+        }
+        obj_setInt(ast, "deepth", deepth + 1);
+        pikaAsm = AST_appandPikaAsm(ast, subStmt, buffs, pikaAsm);
+    }
+    char* method = obj_getStr(subAst, "method");
+    char* operator= obj_getStr(subAst, "operator");
+    char* ref = obj_getStr(subAst, "ref");
+    char* direct = obj_getStr(subAst, "direct");
+    char* str = obj_getStr(subAst, "string");
+    char* num = obj_getStr(subAst, "num");
+    if (NULL != ref) {
+        char buff[32] = {0};
+        sprintf(buff, "%d REF %s\n", deepth, ref);
+        pikaAsm = strsAppend(buffs, pikaAsm, buff);
+    }
+    if (NULL != operator) {
+        char buff[32] = {0};
+        sprintf(buff, "%d OPT %s\n", deepth, operator);
+        pikaAsm = strsAppend(buffs, pikaAsm, buff);
+    }
+    if (NULL != method) {
+        char buff[32] = {0};
+        sprintf(buff, "%d RUN %s\n", deepth, method);
+        pikaAsm = strsAppend(buffs, pikaAsm, buff);
+    }
+    if (NULL != str) {
+        char buff[32] = {0};
+        sprintf(buff, "%d STR %s\n", deepth, str);
+        pikaAsm = strsAppend(buffs, pikaAsm, buff);
+    }
+    if (NULL != num) {
+        char buff[32] = {0};
+        sprintf(buff, "%d NUM %s\n", deepth, num);
+        pikaAsm = strsAppend(buffs, pikaAsm, buff);
+    }
+
+    if (NULL != direct) {
+        char buff[32] = {0};
+        sprintf(buff, "%d OUT %s\n", deepth, direct);
+        pikaAsm = strsAppend(buffs, pikaAsm, buff);
+    }
+    obj_setInt(ast, "deepth", deepth - 1);
+    return pikaAsm;
+}
+
+static char* ASM_addBlockDeepth(AST* ast,
+                                Args* buffs,
+                                char* pikaAsm,
+                                uint8_t deepthOffset) {
+    pikaAsm = strsAppend(buffs, pikaAsm, (char*)"B");
+    char buff[11];
+    pikaAsm = strsAppend(
+        buffs, pikaAsm,
+        fast_itoa(buff, obj_getInt(ast, "blockDeepth") + deepthOffset));
+    pikaAsm = strsAppend(buffs, pikaAsm, (char*)"\n");
+    return pikaAsm;
+}
+
+char* AST_toPikaAsm(AST* ast, Args* buffs) {
+    Args* runBuffs = New_strBuff();
+    char* pikaAsm = strsCopy(runBuffs, "");
+    QueueObj* exitBlock = obj_getObj(ast, "exitBlock", 0);
+    if (NULL != exitBlock) {
+        while (1) {
+            uint8_t blockTypeNum = obj_getInt(exitBlock, "top") -
+                                   obj_getInt(exitBlock, "bottom") - 1;
+            char* blockType = queueObj_popStr(exitBlock);
+            if (NULL == blockType) {
+                break;
+            }
+            /* goto the while start when exit while block */
+            if (strEqu(blockType, "while")) {
+                pikaAsm = ASM_addBlockDeepth(ast, buffs, pikaAsm, blockTypeNum);
+                pikaAsm = strsAppend(buffs, pikaAsm, (char*)"0 JMP -1\n");
+            }
+            /* return when exit method */
+            if (strEqu(blockType, "def")) {
+                pikaAsm = strsAppend(buffs, pikaAsm, (char*)"0 RET\n");
+            }
+        }
+    }
+    pikaAsm = ASM_addBlockDeepth(ast, buffs, pikaAsm, 0);
+    obj_setInt(ast, "deepth", 0);
+
+    /* parse ast to asm main process */
+    pikaAsm = AST_appandPikaAsm(ast, ast, runBuffs, pikaAsm);
+
+    if (strEqu(obj_getStr(ast, "block"), "while")) {
+        pikaAsm = strsAppend(runBuffs, pikaAsm, "0 JEZ 2\n");
+    }
+    if (strEqu(obj_getStr(ast, "block"), "if")) {
+        pikaAsm = strsAppend(runBuffs, pikaAsm, "0 JEZ 1\n");
+    }
+    if (strEqu(obj_getStr(ast, "block"), "def")) {
+        pikaAsm = strsAppend(runBuffs, pikaAsm, "0 DEF ");
+        pikaAsm = strsAppend(runBuffs, pikaAsm, obj_getStr(ast, "declear"));
+        pikaAsm = strsAppend(runBuffs, pikaAsm, "\n");
+        pikaAsm = strsAppend(runBuffs, pikaAsm, "0 JMP 1\n");
+    }
+    if (obj_isArgExist(ast, "return")) {
+        pikaAsm = strsAppend(runBuffs, pikaAsm, "0 RET\n");
+    }
+    pikaAsm = strsCopy(buffs, pikaAsm);
+    args_deinit(runBuffs);
+    return pikaAsm;
+}
+int32_t AST_deinit(AST* ast) {
+    return obj_deinit(ast);
+}

components/pikascript/pikascript-core/PikaParser.h

@@ -0,0 +1,46 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef __PIKA__PARSER__H
+#define __PIKA__PARSER__H
+#include "dataQueueObj.h"
+#include "dataStack.h"
+
+typedef QueueObj AST;
+AST* AST_parseLine(char* line, Stack* blockStack);
+char* Parser_LineToAsm(Args* buffs, char* line, Stack* blockStack);
+int32_t AST_deinit(AST* ast);
+char* AST_toPikaAsm(AST* ast, Args* buffs);
+char* Parser_multiLineToAsm(Args* outBuffs, char* multiLine);
+char* Lexer_getTokens(Args* outBuffs, char* stmt);
+char* Lexer_printTokens(Args* outBuffs, char* tokens);
+char* strsPopTokenWithSkip_byStr(Args* buffs,
+                                 char* stmts,
+                                 char* str,
+                                 char skipStart,
+                                 char skipEnd);
+#endif

components/pikascript/pikascript-core/PikaPlatform.c

@@ -0,0 +1,84 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "PikaPlatform.h"
+#include <stdarg.h>
+#include <stdint.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+PIKA_WEAK void __platformDisableIrqHandle(void) {
+    /* disable irq to support thread */
+}
+PIKA_WEAK void __platformEnableIrqHandle(void) {
+    /* disable irq to support thread */
+}
+PIKA_WEAK void* __platformMalloc(size_t size) {
+    return malloc(size);
+}
+PIKA_WEAK void __platformFree(void* ptr) {
+    free(ptr);
+}
+PIKA_WEAK void* __impl_pikaMalloc(size_t size) {
+    return __platformMalloc(size);
+}
+PIKA_WEAK void __impl_pikaFree(void* ptrm, size_t size) {
+    __platformFree(ptrm);
+}
+PIKA_WEAK void __platformPoolInit(void) {}
+PIKA_WEAK uint8_t __is_quick_malloc(void) {
+    return 0;
+}
+PIKA_WEAK void __quick_malloc_enable(void) {}
+PIKA_WEAK void __quick_malloc_disable(void) {}
+PIKA_WEAK uint8_t __isLocked_pikaMemory(void) {
+    return 0;
+}
+PIKA_WEAK void __platformPrintf(char* fmt, ...) {
+    va_list args;
+    va_start(args, fmt);
+    vprintf(fmt, args);
+    va_end(args);
+}
+PIKA_WEAK char* __platformLoadPikaAsm(void) {
+    /* faild */
+    return NULL;
+}
+PIKA_WEAK int32_t __platformSavePikaAsm(char* PikaAsm) {
+    /* faild */
+    return 1;
+}
+PIKA_WEAK uint8_t __platformAsmIsToFlash(char* pyMultiLine) {
+    /* not to flash */
+    return 0;
+}
+PIKA_WEAK int32_t __platformSavePikaAsmEOF(void) {
+    return 1;
+}
+PIKA_WEAK void __platformWait(void){
+    while(1){};
+}

components/pikascript/pikascript-core/PikaPlatform.h

@@ -0,0 +1,59 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef __PIKA_PALTFORM__H
+#define __PIKA_PALTFORM__H
+#include <stdint.h>
+#include <stdlib.h>
+
+#if defined(__CC_ARM) || defined(__CLANG_ARM) /* ARM Compiler */
+#define PIKA_WEAK __attribute__((weak))
+#elif defined(__IAR_SYSTEMS_ICC__) /* for IAR Compiler */
+#define PIKA_WEAK __weak
+#elif defined(__GNUC__) /* GNU GCC Compiler */
+#define PIKA_WEAK __attribute__((weak))
+#endif
+
+void __platformPrintf(char* fmt, ...);
+void* __platformMalloc(size_t size);
+void __platformFree(void* ptr);
+void __platformEnableIrqHandle(void);
+void __platformDisableIrqHandle(void);
+
+void* __impl_pikaMalloc(size_t size);
+void __impl_pikaFree(void* ptrm, size_t size);
+uint8_t __isLocked_pikaMemory(void);
+uint8_t __is_quick_malloc(void);
+void __quick_malloc_enable(void);
+void __quick_malloc_disable(void);
+char* __platformLoadPikaAsm(void);
+int32_t __platformSavePikaAsm(char* PikaAsm);
+uint8_t __platformAsmIsToFlash(char* pyMultiLine);
+int32_t __platformSavePikaAsmEOF(void);
+PIKA_WEAK void __platformPoolInit(void);
+void __platformWait(void);
+#endif

components/pikascript/pikascript-core/PikaVM.c

@@ -0,0 +1,636 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "PikaVM.h"
+#include <string.h>
+#include "BaseObj.h"
+#include "PikaObj.h"
+#include "PikaParser.h"
+#include "dataQueue.h"
+#include "dataQueueObj.h"
+#include "dataStrs.h"
+
+static int32_t getLineSize(char* str) {
+    int i = 0;
+    while (1) {
+        if (str[i] == '\n') {
+            return i;
+        }
+        i++;
+    }
+}
+enum Instruct {
+    NON,
+    STMT_reference,
+    RUN,
+    STMT_string,
+    OUT,
+    STMT_number,
+    JMP,
+    JEZ,
+    OPT,
+    DEF,
+    RET
+};
+
+static char* strs_getLine(Args* buffs, char* code) {
+    int32_t lineSize = getLineSize(code);
+    char* line = args_getBuff(buffs, lineSize + 1);
+    memcpy(line, code, lineSize);
+    line[lineSize + 1] = 0;
+    return line;
+}
+
+static enum Instruct getInstruct(char* line) {
+    if (0 == strncmp(line + 2, "OPT", 3)) {
+        /* operator */
+        return OPT;
+    }
+    if (0 == strncmp(line + 2, "REF", 3)) {
+        /* reference */
+        return STMT_reference;
+    }
+    if (0 == strncmp(line + 2, "NUM", 3)) {
+        /* number */
+        return STMT_number;
+    }
+    if (0 == strncmp(line + 2, "RUN", 3)) {
+        /* run */
+        return RUN;
+    }
+    if (0 == strncmp(line + 2, "STR", 3)) {
+        /* string */
+        return STMT_string;
+    }
+    if (0 == strncmp(line + 2, "OUT", 3)) {
+        /* out */
+        return OUT;
+    }
+    if (0 == strncmp(line + 2, "JMP", 3)) {
+        /* jump */
+        return JMP;
+    }
+    if (0 == strncmp(line + 2, "JEZ", 3)) {
+        /* jump equal zero */
+        return JEZ;
+    }
+    if (0 == strncmp(line + 2, "DEF", 3)) {
+        /* define */
+        return DEF;
+    }
+    if (0 == strncmp(line + 2, "RET", 3)) {
+        /* return */
+        return RET;
+    }
+    return NON;
+}
+
+Arg* pikaVM_runInstruct(PikaObj* self,
+                        Parameters* locals,
+                        Parameters* globals,
+                        enum Instruct instruct,
+                        char* data,
+                        Queue* invokeQuene0,
+                        Queue* invokeQuene1,
+                        int32_t* jmp,
+                        char* programConter) {
+    if (instruct == STMT_number) {
+        Arg* numArg = New_arg(NULL);
+        if (strIsContain(data, '.')) {
+            return arg_setFloat(numArg, "", atof(data));
+        }
+        return arg_setInt(numArg, "", fast_atoi(data));
+    }
+    if (instruct == STMT_string) {
+        Arg* strArg = New_arg(NULL);
+        return arg_setStr(strArg, "", data);
+    }
+    if (instruct == OUT) {
+        Arg* outArg = arg_copy(queue_popArg(invokeQuene0));
+        obj_setArg(locals, data, outArg);
+        arg_deinit(outArg);
+        return NULL;
+    }
+    if (instruct == STMT_reference) {
+        if (strEqu(data, (char*)"True")) {
+            return arg_setInt(NULL, "", 1);
+        }
+        if (strEqu(data, (char*)"False")) {
+            return arg_setInt(NULL, "", 0);
+        }
+        /* find in local list first */
+        Arg* arg = arg_copy(obj_getArg(locals, data));
+        if (NULL == arg) {
+            /* find in global list second */
+            arg = arg_copy(obj_getArg(globals, data));
+        }
+        return arg;
+    }
+    if (instruct == JMP) {
+        *jmp = fast_atoi(data);
+        return NULL;
+    }
+    if (instruct == RET) {
+        *jmp = -999;
+        Arg* returnArg = arg_copy(queue_popArg(invokeQuene0));
+        method_returnArg(locals->list, returnArg);
+        return NULL;
+    }
+    if (instruct == DEF) {
+        char* methodPtr = programConter;
+        int offset = 0;
+        int thisBlockDeepth =
+            getThisBlockDeepth(programConter - 3, programConter, &offset);
+        while (1) {
+            if ((methodPtr[0] == 'B') &&
+                (methodPtr[1] - '0' == thisBlockDeepth + 1)) {
+                class_defineMethod(self, data, (Method)methodPtr);
+                break;
+            }
+            offset += gotoNextLine(methodPtr);
+            methodPtr = programConter + offset;
+        }
+        return NULL;
+    }
+    if (instruct == JEZ) {
+        Arg* assertArg = arg_copy(queue_popArg(invokeQuene0));
+        int assert = arg_getInt(assertArg);
+        arg_deinit(assertArg);
+        if (0 == assert) {
+            *jmp = fast_atoi(data);
+        }
+    }
+    if (instruct == OPT) {
+        Arg* outArg = NULL;
+        Arg* arg1 = arg_copy(queue_popArg(invokeQuene1));
+        Arg* arg2 = arg_copy(queue_popArg(invokeQuene1));
+        ArgType type_arg1 = arg_getType(arg1);
+        ArgType type_arg2 = arg_getType(arg2);
+        int num1_i;
+        int num2_i;
+        float num1_f;
+        float num2_f;
+        /* get int and float num */
+        if (type_arg1 == TYPE_INT) {
+            num1_i = arg_getInt(arg1);
+            num1_f = (float)num1_i;
+        }
+        if (type_arg1 == TYPE_FLOAT) {
+            num1_f = arg_getFloat(arg1);
+            num1_i = (int)num1_f;
+        }
+        if (type_arg2 == TYPE_INT) {
+            num2_i = arg_getInt(arg2);
+            num2_f = (float)num2_i;
+        }
+        if (type_arg2 == TYPE_FLOAT) {
+            num2_f = arg_getFloat(arg2);
+            num2_i = (int)num2_f;
+        }
+        if (strEqu("+", data)) {
+            if ((type_arg1 == TYPE_FLOAT) || type_arg2 == TYPE_FLOAT) {
+                outArg = arg_setFloat(outArg, "", num1_f + num2_f);
+                goto OPT_exit;
+            }
+            outArg = arg_setInt(outArg, "", num1_i + num2_i);
+            goto OPT_exit;
+        }
+        if (strEqu("-", data)) {
+            if ((type_arg1 == TYPE_FLOAT) || type_arg2 == TYPE_FLOAT) {
+                outArg = arg_setFloat(outArg, "", num1_f - num2_f);
+                goto OPT_exit;
+            }
+            outArg = arg_setInt(outArg, "", num1_i - num2_i);
+            goto OPT_exit;
+        }
+        if (strEqu("*", data)) {
+            if ((type_arg1 == TYPE_FLOAT) || type_arg2 == TYPE_FLOAT) {
+                outArg = arg_setFloat(outArg, "", num1_f * num2_f);
+                goto OPT_exit;
+            }
+            outArg = arg_setInt(outArg, "", num1_i * num2_i);
+            goto OPT_exit;
+        }
+        if (strEqu("/", data)) {
+            outArg = arg_setFloat(outArg, "", num1_f / num2_f);
+            goto OPT_exit;
+        }
+        if (strEqu("<", data)) {
+            outArg = arg_setInt(outArg, "", num1_f < num2_f);
+            goto OPT_exit;
+        }
+        if (strEqu(">", data)) {
+            outArg = arg_setInt(outArg, "", num1_f > num2_f);
+            goto OPT_exit;
+        }
+        if (strEqu("%", data)) {
+            outArg = arg_setInt(outArg, "", num1_i % num2_i);
+            goto OPT_exit;
+        }
+        if (strEqu("**", data)) {
+            float res = 1;
+            for (int i = 0; i < num2_i; i++) {
+                res = res * num1_f;
+            }
+            outArg = arg_setFloat(outArg, "", res);
+            goto OPT_exit;
+        }
+        if (strEqu("//", data)) {
+            outArg = arg_setInt(outArg, "", num1_i / num2_i);
+            goto OPT_exit;
+        }
+        if (strEqu("==", data)) {
+            outArg = arg_setInt(
+                outArg, "", (num1_f - num2_f) * (num1_f - num2_f) < 0.000001);
+            goto OPT_exit;
+        }
+        if (strEqu("!=", data)) {
+            outArg =
+                arg_setInt(outArg, "",
+                           !((num1_f - num2_f) * (num1_f - num2_f) < 0.000001));
+            goto OPT_exit;
+        }
+        if (strEqu(">=", data)) {
+            outArg = arg_setInt(
+                outArg, "",
+                (num1_f > num2_f) ||
+                    ((num1_f - num2_f) * (num1_f - num2_f) < 0.000001));
+            goto OPT_exit;
+        }
+        if (strEqu("<=", data)) {
+            outArg = arg_setInt(
+                outArg, "",
+                (num1_f < num2_f) ||
+                    ((num1_f - num2_f) * (num1_f - num2_f) < 0.000001));
+            goto OPT_exit;
+        }
+        if (strEqu("&", data)) {
+            outArg = arg_setInt(outArg, "", num1_i & num2_i);
+        }
+        if (strEqu("|", data)) {
+            outArg = arg_setInt(outArg, "", num1_i | num2_i);
+        }
+        if (strEqu("~", data)) {
+            outArg = arg_setInt(outArg, "", ~num1_i);
+        }
+        if (strEqu(">>", data)) {
+            outArg = arg_setInt(outArg, "", num1_i >> num2_i);
+        }
+        if (strEqu("<<", data)) {
+            outArg = arg_setInt(outArg, "", num1_i << num2_i);
+        }
+        if (strEqu(" and ", data)) {
+            outArg = arg_setInt(outArg, "", num1_i && num2_i);
+        }
+        if (strEqu(" or ", data)) {
+            outArg = arg_setInt(outArg, "", num1_i || num2_i);
+        }
+        if (strEqu(" not ", data)) {
+            outArg = arg_setInt(outArg, "", !num1_i);
+        }
+    OPT_exit:
+        arg_deinit(arg1);
+        arg_deinit(arg2);
+        if (NULL != outArg) {
+            return outArg;
+        }
+    }
+    if (instruct == RUN) {
+        Args* buffs = New_strBuff();
+        Arg* returnArg = NULL;
+        Parameters* subLocals = NULL;
+        char* methodPath = data;
+        PikaObj* methodHostObj;
+        Arg* method_arg;
+        Method methodPtr;
+        char* methodDec;
+        char* typeList;
+        char* methodCode;
+        char* sysOut;
+        /* return arg directly */
+        if (strEqu(data, "")) {
+            returnArg = arg_copy(queue_popArg(invokeQuene1));
+            goto RUN_exit;
+        }
+        /* get method host obj */
+        methodHostObj = obj_getObj(self, methodPath, 1);
+        if (NULL == methodHostObj) {
+            methodHostObj = obj_getObj(locals, methodPath, 1);
+        }
+        if (NULL == methodHostObj) {
+            /* error, not found object */
+            args_setErrorCode(locals->list, 1);
+            args_setSysOut(locals->list, "[error] runner: object no found.");
+            goto RUN_exit;
+        }
+        /* get method */
+        method_arg = obj_getMethod(methodHostObj, methodPath);
+        /* assert method*/
+        if (NULL == method_arg) {
+            /* error, method no found */
+            args_setErrorCode(locals->list, 2);
+            args_setSysOut(locals->list, "[error] runner: method no found.");
+            goto RUN_exit;
+        }
+        /* get method Ptr */
+        methodPtr = (Method)methodArg_getPtr(method_arg);
+        /* get method Decleartion */
+        methodDec = strsCopy(buffs, methodArg_getDec(method_arg));
+        arg_deinit(method_arg);
+
+        /* get type list */
+        typeList = strsCut(buffs, methodDec, '(', ')');
+
+        if (typeList == NULL) {
+            /* typeList no found */
+            args_setErrorCode(locals->list, 3);
+            args_setSysOut(locals->list, "[error] runner: type list no found.");
+            goto RUN_exit;
+        }
+
+        subLocals = New_PikaObj();
+        while (1) {
+            Arg* methodArg = arg_copy(queue_popArg(invokeQuene1));
+            if (NULL == methodArg) {
+                break;
+            }
+            char* argDef = strsPopToken(buffs, typeList, ',');
+            char* argName = strsGetFirstToken(buffs, argDef, ':');
+            methodArg = arg_setName(methodArg, argName);
+            args_setArg(subLocals->list, methodArg);
+        }
+
+        obj_setErrorCode(methodHostObj, 0);
+        obj_setSysOut(methodHostObj, "");
+
+        /* run method */
+        methodCode = (char*)methodPtr;
+        if (methodCode[0] == 'B' && methodCode[2] == '\n') {
+            /* VM method */
+            subLocals = pikaVM_runAsmWithPars(methodHostObj, subLocals, globals,
+                                              methodCode);
+            /* get method return */
+            returnArg = arg_copy(args_getArg(subLocals->list, (char*)"return"));
+        } else {
+            /* native method */
+            methodPtr(methodHostObj, subLocals->list);
+            /* get method return */
+            returnArg = arg_copy(args_getArg(subLocals->list, (char*)"return"));
+        }
+
+        /* transfer sysOut */
+        sysOut = obj_getSysOut(methodHostObj);
+        if (NULL != sysOut) {
+            args_setSysOut(locals->list, sysOut);
+        }
+        /* transfer errCode */
+        if (0 != obj_getErrorCode(methodHostObj)) {
+            /* method error */
+            args_setErrorCode(locals->list, 6);
+        }
+
+        goto RUN_exit;
+    RUN_exit:
+        if (NULL != subLocals) {
+            obj_deinit(subLocals);
+        }
+        args_deinit(buffs);
+        return returnArg;
+    }
+    return NULL;
+}
+
+int32_t __clearInvokeQueues(Parameters* locals) {
+    for (char deepthChar = '0'; deepthChar < '9'; deepthChar++) {
+        char deepth[2] = {0};
+        deepth[0] = deepthChar;
+        Queue* queue = (Queue*)args_getPtr(locals->list, deepth);
+        if (NULL != queue) {
+            args_deinit(queue);
+            args_removeArg(locals->list, args_getArg(locals->list, deepth));
+        }
+    }
+    return 0;
+}
+
+int32_t gotoNextLine(char* code) {
+    int offset = 0;
+    while (1) {
+        if (code[offset] == '\n') {
+            break;
+        }
+        offset++;
+    }
+    return offset + 1;
+}
+
+int32_t gotoLastLine(char* start, char* code) {
+    int offset = -2;
+    while (1) {
+        char* codeNow = code + offset;
+        if (codeNow == start) {
+            offset--;
+            break;
+        }
+        if (codeNow[0] == '\n') {
+            break;
+        }
+        offset--;
+    }
+    return offset + 1;
+}
+
+int getThisBlockDeepth(char* start, char* code, int* offset) {
+    int thisBlockDeepth = -1;
+    char* codeNow = code + *offset;
+    while (1) {
+        *offset += gotoLastLine(start, codeNow);
+        codeNow = code + *offset;
+        if (codeNow[0] == 'B') {
+            thisBlockDeepth = codeNow[1] - '0';
+            break;
+        }
+    }
+    return thisBlockDeepth;
+}
+
+int32_t getAddrOffsetFromJmp(char* start, char* code, int32_t jmp) {
+    int offset = 0;
+    int thisBlockDeepth = getThisBlockDeepth(start, code, &offset);
+    char* codeNow = code + offset;
+    int8_t blockNum = 0;
+    if (jmp > 0) {
+        offset = 0;
+        codeNow = code + offset;
+        while (1) {
+            offset += gotoNextLine(codeNow);
+            codeNow = code + offset;
+            if (codeNow[0] == 'B') {
+                uint8_t blockDeepth = codeNow[1] - '0';
+                if (blockDeepth <= thisBlockDeepth) {
+                    blockNum++;
+                }
+            }
+            if (blockNum >= jmp) {
+                break;
+            }
+        }
+    }
+    if (jmp < 0) {
+        while (1) {
+            offset += gotoLastLine(start, codeNow);
+            codeNow = code + offset;
+            if (codeNow[0] == 'B') {
+                uint8_t blockDeepth = codeNow[1] - '0';
+                if (blockDeepth == thisBlockDeepth) {
+                    blockNum--;
+                }
+            }
+            if (blockNum <= jmp) {
+                break;
+            }
+        }
+    }
+    return offset;
+}
+
+int32_t pikaVM_runAsmLine(PikaObj* self,
+                          Parameters* locals,
+                          Parameters* globals,
+                          char* pikaAsm,
+                          int32_t lineAddr) {
+    Args* buffs = New_strBuff();
+    char* programCounter = pikaAsm + lineAddr;
+    char* line = strs_getLine(buffs, programCounter);
+    int32_t nextAddr = lineAddr + strGetSize(line) + 1;
+    int32_t jmp = 0;
+    enum Instruct instruct;
+    char invokeDeepth0[2] = {0}, invokeDeepth1[2] = {0};
+    char* data;
+    Queue* invokeQuene0;
+    Queue* invokeQuene1;
+    Arg* resArg;
+    /* Found new script Line, clear the queues*/
+    if ('B' == line[0]) {
+        args_setErrorCode(locals->list, 0);
+        args_setSysOut(locals->list, (char*)"");
+        __clearInvokeQueues(locals);
+        goto nextLine;
+    }
+    invokeDeepth0[0] = line[0];
+    invokeDeepth1[0] = line[0] + 1;
+    instruct = getInstruct(line);
+    data = line + 6;
+
+    invokeQuene0 = args_getPtr(locals->list, invokeDeepth0);
+    invokeQuene1 = args_getPtr(locals->list, invokeDeepth1);
+    if (NULL == invokeQuene0) {
+        invokeQuene0 = New_queue();
+        args_setPtr(locals->list, invokeDeepth0, invokeQuene0);
+    }
+    if (NULL == invokeQuene1) {
+        invokeQuene1 = New_queue();
+        args_setPtr(locals->list, invokeDeepth1, invokeQuene1);
+    }
+    resArg =
+        pikaVM_runInstruct(self, locals, globals, instruct, data, invokeQuene0,
+                           invokeQuene1, &jmp, programCounter);
+    if (NULL != resArg) {
+        queue_pushArg(invokeQuene0, resArg);
+    }
+    goto nextLine;
+nextLine:
+    args_deinit(buffs);
+    if (-999 == jmp) {
+        return -99999;
+    }
+    if (jmp != 0) {
+        return lineAddr + getAddrOffsetFromJmp(pikaAsm, programCounter, jmp);
+    }
+    return nextAddr;
+}
+
+char* useFlashAsBuff(char* pikaAsm, Args* buffs) {
+    /* not write flash when asm is old */
+    if (strEqu(pikaAsm, __platformLoadPikaAsm())) {
+        args_deinit(buffs);
+        buffs = NULL;
+        return __platformLoadPikaAsm();
+    }
+    /* write flash */
+    if (0 == __platformSavePikaAsm(pikaAsm)) {
+        args_deinit(buffs);
+        buffs = NULL;
+        return __platformLoadPikaAsm();
+    }
+    return pikaAsm;
+}
+
+Parameters* pikaVM_runAsmWithPars(PikaObj* self,
+                                  Parameters* locals,
+                                  Parameters* globals,
+                                  char* pikaAsm) {
+    int lineAddr = 0;
+    int size = strGetSize(pikaAsm);
+    args_setErrorCode(locals->list, 0);
+    args_setSysOut(locals->list, (char*)"");
+    while (lineAddr < size) {
+        if (lineAddr == -99999) {
+            break;
+        }
+        char* thisLine = pikaAsm + lineAddr;
+        lineAddr = pikaVM_runAsmLine(self, locals, globals, pikaAsm, lineAddr);
+        char* sysOut = args_getSysOut(locals->list);
+        uint8_t errcode = args_getErrorCode(locals->list);
+        if (!strEqu("", sysOut)) {
+            __platformPrintf("%s\r\n", sysOut);
+        }
+        if (0 != errcode) {
+            Args* buffs = New_strBuff();
+            char* onlyThisLine = strsGetFirstToken(buffs, thisLine, '\n');
+            __platformPrintf("[info] input commond: %s\r\n", onlyThisLine);
+            args_deinit(buffs);
+        }
+    }
+    __clearInvokeQueues(locals);
+
+    return locals;
+}
+
+Parameters* pikaVM_runAsm(PikaObj* self, char* pikaAsm) {
+    return pikaVM_runAsmWithPars(self, self, self, pikaAsm);
+}
+
+Parameters* pikaVM_run(PikaObj* self, char* multiLine) {
+    Args* buffs = New_strBuff();
+    char* pikaAsm = Parser_multiLineToAsm(buffs, multiLine);
+    Parameters* globals = pikaVM_runAsm(self, pikaAsm);
+    if (NULL != buffs) {
+        args_deinit(buffs);
+    }
+    return globals;
+}

components/pikascript/pikascript-core/PikaVM.h

@@ -0,0 +1,50 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef __PIKA__VM__H
+#define __PIKA__VM__H
+#include "PikaObj.h"
+
+Parameters* pikaVM_run(PikaObj* self, char* pyLine);
+Parameters* pikaVM_runAsm(PikaObj* self, char* pikaAsm);
+Parameters* pikaVM_runAsmWithPars(PikaObj* self,
+                                  Parameters* locals,
+                                  Parameters* globals,
+                                  char* pikaAsm);
+
+int32_t __clearInvokeQueues(Parameters* locals);
+char* useFlashAsBuff(char* pikaAsm, Args* buffs);
+int32_t gotoNextLine(char* code);
+int32_t gotoLastLine(char* start, char* code);
+int getThisBlockDeepth(char* start, char* code, int* offset);
+int32_t pikaVM_runAsmLine(PikaObj* self,
+                          Parameters* locals,
+                          Parameters* globals,
+                          char* pikaAsm,
+                          int32_t lineAddr);
+
+#endif

components/pikascript/pikascript-core/README.md

@@ -0,0 +1 @@
+# PikaScript 运行时内核

components/pikascript/pikascript-core/TinyObj.c

@@ -0,0 +1,41 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "PikaObj.h"
+
+void _UpdateHandle(PikaObj* self) {
+    // override the handle function here
+}
+
+void _beforDinit(PikaObj* self) {
+    /* override in user code */
+}
+
+PikaObj* New_TinyObj(Args* args) {
+    PikaObj* self = New_PikaObj();
+    return self;
+}

components/pikascript/pikascript-core/TinyObj.h

@@ -0,0 +1,32 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef __TYNYOBJ__H
+#define __TYNYOBJ__H
+#include "PikaObj.h"
+PikaObj* New_TinyObj(Args* args);
+#endif

components/pikascript/pikascript-core/dataArg.c

@@ -0,0 +1,400 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "dataArg.h"
+
+#include <stdint.h>
+
+#include "dataArgs.h"
+#include "dataMemory.h"
+#include "dataString.h"
+#include "stdlib.h"
+
+void arg_deinit(Arg* self) {
+    arg_freeContent(self);
+}
+
+uint16_t arg_getTotleSize(Arg* self) {
+    return content_totleSize(self);
+}
+
+uint16_t content_sizeOffset(uint8_t* self) {
+    const uint8_t nextLength = sizeof(uint8_t*);
+    return nextLength;
+}
+
+uint16_t content_getSize(uint8_t* self) {
+    uint16_t size = 0;
+    size += self[content_sizeOffset(self) + 1];
+    size = (size << 8);
+    size += self[content_sizeOffset(self)];
+    return size;
+}
+
+void content_setNext(uint8_t* self, uint8_t* next) {
+    uint8_t* nextDir = self + content_nextOffset(self);
+    uint64_t pointerTemp = (uint64_t)next;
+    for (uint32_t i = 0; i < sizeof(uint8_t*); i++) {
+        // aboid \0
+        nextDir[i] = pointerTemp;
+        pointerTemp = pointerTemp >> 8;
+    }
+}
+
+/**
+ * time33 hash
+ */
+Hash hash_time33(char* str) {
+    Hash hash = 5381;
+    while (*str) {
+        hash += (hash << 5) + (*str++);
+    }
+    return (hash & 0x7FFFFFFF);
+}
+
+uint8_t* content_init_hash(Hash nameHash,
+                           ArgType type,
+                           uint8_t* content,
+                           uint16_t size,
+                           uint8_t* next) {
+    const uint8_t nextLength = sizeof(uint8_t*);
+    const uint8_t sizeLength = sizeof(uint16_t);
+    uint16_t nameSize = sizeof(Hash);     // use hash
+    uint16_t typeSize = sizeof(ArgType);  // use enum
+    uint8_t* self = (uint8_t*)pikaMalloc(nextLength + sizeLength + nameSize +
+                                         size + typeSize);
+
+    uint8_t* nextDir = self;
+    uint8_t* sizeDir = nextDir + nextLength;
+    uint8_t* nameDir = sizeDir + sizeLength;
+    uint8_t* contentDir = nameDir + nameSize;
+    uint8_t* typeDir = contentDir + size;
+
+    memcpy(nameDir, &nameHash, nameSize);  // use hash
+    memcpy(typeDir, &type, typeSize);
+    sizeDir[0] = size;
+    sizeDir[1] = size >> 8;
+    if (NULL != content) {
+        memcpy(contentDir, content, size);
+    } else {
+        memset(contentDir, 0, size);
+    }
+
+    uint64_t pointerTemp = (uint64_t)next;
+    for (uint32_t i = 0; i < sizeof(uint8_t*); i++) {
+        // aboid \0
+        nextDir[i] = pointerTemp;
+        pointerTemp = pointerTemp >> 8;
+    }
+
+    return self;
+}
+
+uint8_t* content_init(char* name,
+                      ArgType type,
+                      uint8_t* content,
+                      uint16_t size,
+                      uint8_t* next) {
+    Hash nameHash = hash_time33(name);
+    return content_init_hash(nameHash, type, content, size, next);
+}
+
+uint16_t content_totleSize(uint8_t* self) {
+    const uint8_t size_size = sizeof(uint16_t);
+    const uint8_t size_next = sizeof(uint8_t*);
+    const uint8_t size_type = sizeof(ArgType);
+    const uint8_t size_hash = sizeof(Hash);
+    uint16_t size_content = content_getSize(self);
+    return size_content + size_hash + size_type + size_size + size_next;
+}
+
+void arg_freeContent(Arg* self) {
+    if (NULL != self) {
+        content_deinit(self);
+    }
+}
+
+uint8_t content_nameOffset(uint8_t* self) {
+    const uint8_t nextLength = sizeof(uint8_t*);
+    const uint8_t sizeLength = sizeof(uint16_t);
+    return nextLength + sizeLength;
+}
+
+Hash content_getNameHash(uint8_t* self) {
+    uint8_t* nameHashDir = (uint8_t*)self + content_nameOffset(self);
+    Hash nameHash = 0;
+    memcpy(&nameHash, nameHashDir, sizeof(Hash));
+    return nameHash;
+}
+
+uint8_t* content_deinit(uint8_t* self) {
+    uint16_t totleSize = content_totleSize(self);
+    pikaFree(self, totleSize);
+    return 0;
+}
+
+uint8_t* content_setContent(uint8_t* self, uint8_t* content, uint16_t size) {
+    if (NULL == self) {
+        return content_init("", TYPE_NONE, content, size, NULL);
+    }
+    Hash nameHash = content_getNameHash(self);
+    ArgType type = content_getType(self);
+    uint8_t* next = content_getNext(self);
+    uint8_t* newContent =
+        content_init_hash(nameHash, type, content, size, next);
+    content_deinit(self);
+    return newContent;
+}
+
+uint8_t* content_setNameHash(uint8_t* self, Hash nameHash) {
+    if (NULL == self) {
+        return content_init_hash(nameHash, TYPE_NONE, NULL, 0, NULL);
+    }
+    ArgType type = content_getType(self);
+    uint8_t* content = content_getContent(self);
+    uint16_t size = content_getSize(self);
+    uint8_t* next = content_getNext(self);
+    uint8_t* newContent =
+        content_init_hash(nameHash, type, content, size, next);
+    content_deinit(self);
+    return newContent;
+}
+
+uint8_t* content_setName(uint8_t* self, char* name) {
+    if (NULL == self) {
+        return content_init(name, TYPE_NONE, NULL, 0, NULL);
+    }
+    ArgType type = content_getType(self);
+    uint8_t* content = content_getContent(self);
+    uint16_t size = content_getSize(self);
+    uint8_t* next = content_getNext(self);
+    uint8_t* newContent = content_init(name, type, content, size, next);
+    content_deinit(self);
+    return newContent;
+}
+
+uint8_t* content_setType(uint8_t* self, ArgType type) {
+    if (NULL == self) {
+        return content_init("", type, NULL, 0, NULL);
+    }
+    Hash nameHash = content_getNameHash(self);
+    uint8_t* content = content_getContent(self);
+    uint16_t size = content_getSize(self);
+    uint8_t* next = content_getNext(self);
+    uint8_t* newContent =
+        content_init_hash(nameHash, type, content, size, next);
+    content_deinit(self);
+    return newContent;
+}
+
+Arg* arg_newContent(Arg* self, uint32_t size) {
+    uint8_t* newContent = content_init("", TYPE_NONE, NULL, size, NULL);
+    arg_freeContent(self);
+    return newContent;
+}
+
+Arg* arg_setContent(Arg* self, uint8_t* content, uint32_t size) {
+    return content_setContent(self, content, size);
+}
+
+Arg* arg_setName(Arg* self, char* name) {
+    return content_setName(self, name);
+}
+
+Arg* arg_setNameHash(Arg* self, Hash nameHash) {
+    return content_setNameHash(self, nameHash);
+}
+
+Arg* arg_setType(Arg* self, ArgType type) {
+    return content_setType(self, type);
+}
+
+ArgType content_getType(uint8_t* self) {
+    void* type_ptr = (uint8_t*)self + content_typeOffset(self);
+    ArgType type;
+    memcpy(&type, type_ptr, sizeof(ArgType));
+    return type;
+}
+
+uint16_t content_contentOffset(uint8_t* self) {
+    const uint8_t nextLength = sizeof(uint8_t*);
+    const uint8_t sizeLength = sizeof(uint16_t);
+    return nextLength + sizeLength + sizeof(Hash);
+}
+
+uint16_t content_nextOffset(uint8_t* self) {
+    return 0;
+}
+
+uint8_t* content_getNext(uint8_t* self) {
+    uint8_t* nextDir = self + content_nextOffset(self);
+    uint8_t* next = NULL;
+    uint64_t pointerTemp = 0;
+
+    for (int32_t i = sizeof(uint8_t*); i > -1; i--) {
+        // avoid \0
+        uint8_t val = nextDir[i];
+        pointerTemp = (pointerTemp << 8);
+        pointerTemp += val;
+    }
+    next = (uint8_t*)pointerTemp;
+    return next;
+}
+
+uint8_t* content_getContent(uint8_t* self) {
+    return self + content_contentOffset(self);
+}
+
+uint8_t* arg_getContent(Arg* self) {
+    return content_getContent(self);
+}
+
+Arg* arg_setInt(Arg* self, char* name, int64_t val) {
+    int64_t int64Temp = val;
+    uint8_t contentBuff[8];
+    for (uint32_t i = 0; i < 4; i++) {
+        // add 0x30 to void \0
+        contentBuff[i] = int64Temp;
+        int64Temp = int64Temp >> 8;
+    }
+    return content_init(name, TYPE_INT, contentBuff, 4, NULL);
+}
+
+Arg* arg_setFloat(Arg* self, char* name, float val) {
+    uint8_t contentBuff[4];
+    uint8_t* valPtr = (uint8_t*)&val;
+    for (uint32_t i = 0; i < 4; i++) {
+        // add 0x30 to void \0
+        contentBuff[i] = valPtr[i];
+    }
+    return content_init(name, TYPE_FLOAT, contentBuff, 4, NULL);
+}
+
+float arg_getFloat(Arg* self) {
+    if (NULL == arg_getContent(self)) {
+        return -999.999;
+    }
+
+    float valOut = 0;
+    uint8_t* valOutPtr = (uint8_t*)(&valOut);
+    uint8_t* valPtr = arg_getContent(self);
+    for (uint32_t i = 0; i < 4; i++) {
+        valOutPtr[i] = valPtr[i];
+    }
+    return valOut;
+}
+
+Arg* arg_setPtr(Arg* self, char* name, ArgType type, void* pointer) {
+    uint64_t pointerTemp = (uint64_t)pointer;
+    uint8_t contentBuff[8];
+    for (uint32_t i = 0; i < sizeof(uint8_t*); i++) {
+        // aboid \0
+        contentBuff[i] = pointerTemp;
+        pointerTemp = pointerTemp >> 8;
+    }
+    return content_init(name, type, contentBuff, sizeof(uint8_t*), NULL);
+}
+
+Arg* arg_setStr(Arg* self, char* name, char* string) {
+    return content_init(name, TYPE_STRING, (uint8_t*)string,
+                        strGetSize(string) + 1, NULL);
+}
+
+int64_t arg_getInt(Arg* self) {
+    if (NULL == arg_getContent(self)) {
+        return -999999;
+    }
+    int64_t int64Temp = 0;
+    for (int32_t i = 3; i > -1; i--) {
+        // add 0x30 to avoid 0
+        int64Temp = (int64Temp << 8);
+        int64Temp += arg_getContent(self)[i];
+    }
+    return int64Temp;
+}
+
+void* arg_getPtr(Arg* self) {
+    void* pointer = NULL;
+    uint64_t pointerTemp = 0;
+    if (NULL == arg_getContent(self)) {
+        return NULL;
+    }
+    uint8_t* content = arg_getContent(self);
+    for (int32_t i = sizeof(uint8_t*) - 1; i > -1; i--) {
+        // avoid \0
+        uint8_t val = content[i];
+        pointerTemp = (pointerTemp << 8);
+        pointerTemp += val;
+    }
+    pointer = (void*)pointerTemp;
+    return pointer;
+}
+char* arg_getStr(Arg* self) {
+    return (char*)arg_getContent(self);
+}
+
+uint16_t content_typeOffset(uint8_t* self) {
+    const uint8_t nextLength = sizeof(uint8_t*);
+    const uint8_t sizeLength = 2;
+    uint16_t size = content_getSize(self);
+    uint16_t nameSize = sizeof(Hash);
+    return nextLength + sizeLength + nameSize + size;
+}
+
+Hash arg_getNameHash(Arg* self) {
+    if (NULL == self) {
+        return 999999;
+    }
+    return content_getNameHash(self);
+}
+
+ArgType arg_getType(Arg* self) {
+    if (NULL == self) {
+        return TYPE_NONE;
+    }
+    return content_getType(self);
+}
+
+uint16_t arg_getContentSize(Arg* self) {
+    return content_getSize(self);
+}
+
+Arg* New_arg(void* voidPointer) {
+    return NULL;
+}
+
+Arg* arg_copy(Arg* argToBeCopy) {
+    if (NULL == argToBeCopy) {
+        return NULL;
+    }
+    Arg* argCopied = New_arg(NULL);
+    argCopied = arg_setContent(argCopied, arg_getContent(argToBeCopy),
+                               arg_getContentSize(argToBeCopy));
+    argCopied = arg_setNameHash(argCopied, arg_getNameHash(argToBeCopy));
+    argCopied = arg_setType(argCopied, arg_getType(argToBeCopy));
+    return argCopied;
+}

components/pikascript/pikascript-core/dataArg.h

@@ -0,0 +1,99 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef _arg__H
+#define _arg__H
+#include "dataMemory.h"
+
+typedef uint8_t Arg;
+typedef uint32_t Hash;
+typedef enum {
+    TYPE_NONE,
+    TYPE_OBJECT,
+    TYPE_INT,
+    TYPE_FLOAT,
+    TYPE_METHOD,
+    TYPE_POINTER,
+    TYPE_MATE_OBJECT,
+    TYPE_STRING
+} ArgType;
+
+uint16_t content_typeOffset(uint8_t* content);
+uint16_t content_contentOffset(uint8_t* content);
+uint16_t content_sizeOffset(uint8_t* self);
+uint16_t content_contentOffset(uint8_t* self);
+uint16_t content_nextOffset(uint8_t* self);
+uint8_t content_nameOffset(uint8_t* self);
+
+uint32_t content_getNameHash(uint8_t* content);
+ArgType content_getType(uint8_t* self);
+uint8_t* content_getNext(uint8_t* self);
+uint16_t content_getSize(uint8_t* self);
+uint8_t* content_getContent(uint8_t* content);
+
+uint16_t content_totleSize(uint8_t* self);
+
+uint8_t* content_init(char* name,
+                      ArgType type,
+                      uint8_t* content,
+                      uint16_t size,
+                      uint8_t* next);
+uint8_t* content_deinit(uint8_t* self);
+uint8_t* content_setName(uint8_t* self, char* name);
+uint8_t* content_setType(uint8_t* self, ArgType type);
+uint8_t* content_setContent(uint8_t* self, uint8_t* content, uint16_t size);
+void content_setNext(uint8_t* self, uint8_t* next);
+
+uint16_t arg_getTotleSize(Arg* self);
+void arg_freeContent(Arg* self);
+
+Arg* arg_setName(Arg* self, char* name);
+Arg* arg_setContent(Arg* self, uint8_t* content, uint32_t size);
+Arg* arg_newContent(Arg* self, uint32_t size);
+Arg* arg_setType(Arg* self, ArgType type);
+Hash arg_getNameHash(Arg* self);
+ArgType arg_getType(Arg* self);
+uint8_t* arg_getContent(Arg* self);
+uint16_t arg_getContentSize(Arg* self);
+Hash hash_time33(char* str);
+
+Arg* arg_setInt(Arg* self, char* name, int64_t val);
+Arg* arg_setFloat(Arg* self, char* name, float val);
+Arg* arg_setPtr(Arg* self, char* name, ArgType type, void* pointer);
+Arg* arg_setStr(Arg* self, char* name, char* string);
+
+int64_t arg_getInt(Arg* self);
+float arg_getFloat(Arg* self);
+void* arg_getPtr(Arg* self);
+char* arg_getStr(Arg* self);
+Arg* arg_copy(Arg* argToBeCopy);
+
+Arg* arg_init(Arg* self, void* voidPointer);
+void arg_deinit(Arg* self);
+
+Arg* New_arg(void* voidPointer);
+#endif

components/pikascript/pikascript-core/dataArgs.c

@@ -0,0 +1,394 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "dataArgs.h"
+#include <stdarg.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "dataLink.h"
+#include "dataMemory.h"
+#include "dataString.h"
+#include "dataStrs.h"
+
+void args_deinit(Args* self) {
+    link_deinit(self);
+}
+
+int32_t args_setFloat(Args* self, char* name, float argFloat) {
+    Arg* argNew = New_arg(NULL);
+    argNew = arg_setFloat(argNew, name, argFloat);
+    args_setArg(self, argNew);
+    return 0;
+}
+
+void* args_getPtr(Args* self, char* name) {
+    void* pointer = NULL;
+    Arg* arg = args_getArg(self, name);
+    if (NULL == arg) {
+        return NULL;
+    }
+
+    pointer = arg_getPtr(arg);
+    return pointer;
+}
+
+int32_t args_setPtr(Args* self, char* name, void* argPointer) {
+    int32_t errCode = 0;
+    Arg* argNew = New_arg(NULL);
+    argNew = arg_setPtr(argNew, name, TYPE_POINTER, argPointer);
+    args_setArg(self, argNew);
+    return errCode;
+}
+
+int32_t args_setStr(Args* self, char* name, char* strIn) {
+    int32_t errCode = 0;
+    Arg* argNew = New_arg(NULL);
+    argNew = arg_setStr(argNew, name, strIn);
+    args_setArg(self, argNew);
+    return errCode;
+}
+
+void setArgDirect(Args* self, Arg* arg) {
+    link_addNode(self, arg);
+}
+
+char* args_getBuff(Args* self, int32_t size) {
+    Arg* argNew = New_arg(NULL);
+    argNew = arg_newContent(argNew, size + 1);
+    setArgDirect(self, argNew);
+    return (char*)arg_getContent(argNew);
+}
+
+char* args_getStr(Args* self, char* name) {
+    if (NULL == self) {
+        return NULL;
+    }
+    Arg* arg = args_getArg(self, name);
+    if (NULL == arg) {
+        return NULL;
+    }
+    if (NULL == arg_getContent(arg)) {
+        return NULL;
+    }
+    return (char*)arg_getContent(arg);
+}
+
+int32_t args_setInt(Args* self, char* name, int64_t int64In) {
+    Arg* argNew = New_arg(NULL);
+    argNew = arg_setInt(argNew, name, int64In);
+    args_setArg(self, argNew);
+    return 0;
+}
+
+int64_t args_getInt(Args* self, char* name) {
+    Arg* arg = args_getArg(self, name);
+    if (NULL == arg) {
+        return -999999999;
+    }
+    return arg_getInt(arg);
+}
+
+int32_t args_getSize(Args* self) {
+    return link_getSize(self);
+}
+
+ArgType args_getType(Args* self, char* name) {
+    Arg* arg = NULL;
+    arg = args_getArg(self, name);
+    if (NULL == arg) {
+        return TYPE_NONE;
+    }
+    return arg_getType(arg);
+}
+
+float args_getFloat(Args* self, char* name) {
+    Arg* arg = args_getArg(self, name);
+    if (NULL == arg) {
+        return -999999999.0;
+    }
+    return arg_getFloat(arg);
+}
+
+int32_t args_copyArg(Args* self, Arg* argToBeCopy) {
+    if (NULL == argToBeCopy) {
+        return 1;
+    }
+    Arg* argCopied = arg_copy(argToBeCopy);
+    args_setArg(self, argCopied);
+
+    return 0;
+}
+
+int32_t args_setStruct(Args* self,
+                       char* name,
+                       void* struct_ptr,
+                       uint32_t struct_size) {
+    if (NULL == struct_ptr) {
+        return 1;
+    }
+    Arg* struct_arg = arg_setContent(NULL, (uint8_t*)struct_ptr, struct_size);
+    struct_arg = arg_setName(struct_arg, name);
+    args_setArg(self, struct_arg);
+    return 0;
+}
+
+void* args_getStruct(Args* self, char* name, void* struct_out) {
+    Arg* struct_arg = args_getArg(self, name);
+    uint32_t struct_size = arg_getContentSize(struct_arg);
+    return memcpy(struct_out, arg_getContent(struct_arg), struct_size);
+}
+
+int32_t args_copyArgByName(Args* self, char* name, Args* directArgs) {
+    Arg* argToBeCopy = args_getArg(self, name);
+    args_copyArg(directArgs, argToBeCopy);
+    return 0;
+}
+
+int32_t args_isArgExist_hash(Args* self, Hash nameHash) {
+    if (NULL != args_getArg_hash(self, nameHash)) {
+        return 1;
+    }
+    return 0;
+}
+
+int32_t args_isArgExist(Args* self, char* name) {
+    if (NULL != args_getArg(self, name)) {
+        return 1;
+    }
+    return 0;
+}
+
+int32_t updateArg(Args* self, Arg* argNew) {
+    LinkNode* nodeToUpdate = NULL;
+    LinkNode* nodeNow = self->firstNode;
+    LinkNode* priorNode = NULL;
+    Hash nameHash = arg_getNameHash(argNew);
+    while (1) {
+        if (content_getNameHash(nodeNow) == nameHash) {
+            nodeToUpdate = nodeNow;
+            break;
+        }
+        if (content_getNext(nodeNow) == NULL) {
+            // error, node no found
+            goto exit;
+        }
+        priorNode = nodeNow;
+        nodeNow = content_getNext(nodeNow);
+    }
+
+    nodeToUpdate = arg_setContent(nodeToUpdate, arg_getContent(argNew),
+                                  arg_getContentSize(argNew));
+
+    nodeToUpdate = arg_setType(nodeToUpdate, arg_getType(argNew));
+    // update privior link, because arg_getContent would free origin pointer
+    if (NULL == priorNode) {
+        self->firstNode = nodeToUpdate;
+        goto exit;
+    }
+
+    content_setNext(priorNode, nodeToUpdate);
+    goto exit;
+exit:
+    arg_deinit(argNew);
+    return 0;
+}
+
+int32_t args_setArg(Args* self, Arg* arg) {
+    Hash nameHash = arg_getNameHash(arg);
+    if (!args_isArgExist_hash(self, nameHash)) {
+        setArgDirect(self, arg);
+        return 0;
+    }
+    updateArg(self, arg);
+    return 0;
+}
+
+LinkNode* args_getNode_hash(Args* self, Hash nameHash) {
+    LinkNode* nodeNow = self->firstNode;
+    if (NULL == nodeNow) {
+        return NULL;
+    }
+    while (1) {
+        Arg* arg = nodeNow;
+        Hash thisNameHash = arg_getNameHash(arg);
+        if (thisNameHash == nameHash) {
+            return nodeNow;
+        }
+        if (NULL == content_getNext(nodeNow)) {
+            return NULL;
+        }
+        nodeNow = content_getNext(nodeNow);
+    }
+}
+
+LinkNode* args_getNode(Args* self, char* name) {
+    return args_getNode_hash(self, hash_time33(name));
+}
+
+Arg* args_getArg_hash(Args* self, Hash nameHash) {
+    LinkNode* node = args_getNode_hash(self, nameHash);
+    if (NULL == node) {
+        return NULL;
+    }
+    return node;
+}
+
+Arg* args_getArg(Args* self, char* name) {
+    LinkNode* node = args_getNode(self, name);
+    if (NULL == node) {
+        return NULL;
+    }
+    return node;
+}
+
+char* getPrintSring(Args* self, char* name, char* valString) {
+    Args* buffs = New_strBuff();
+    char* printName = strsFormat(buffs, 128, "[printBuff]%s", name);
+    char* printString = strsCopy(buffs, valString);
+    args_setStr(self, printName, printString);
+    char* res = args_getStr(self, printName);
+    args_deinit(buffs);
+    return res;
+}
+
+char* getPrintStringFromInt(Args* self, char* name, int32_t val) {
+    Args* buffs = New_strBuff();
+    char* res = NULL;
+    char* valString = strsFormat(buffs, 32, "%d", val);
+    res = getPrintSring(self, name, valString);
+    args_deinit(buffs);
+    return res;
+}
+
+char* getPrintStringFromFloat(Args* self, char* name, float val) {
+    Args* buffs = New_strBuff();
+    char* res = NULL;
+    char* valString = strsFormat(buffs, 32, "%f", val);
+    res = getPrintSring(self, name, valString);
+    args_deinit(buffs);
+    return res;
+}
+
+char* getPrintStringFromPtr(Args* self, char* name, void* val) {
+    Args* buffs = New_strBuff();
+    char* res = NULL;
+    uint64_t intVal = (uint64_t)val;
+    char* valString = strsFormat(buffs, 32, "0x%llx", intVal);
+    res = getPrintSring(self, name, valString);
+    args_deinit(buffs);
+    return res;
+}
+
+char* args_print(Args* self, char* name) {
+    char* res = NULL;
+    ArgType type = args_getType(self, name);
+    Args* buffs = New_strBuff();
+    if (TYPE_NONE == type) {
+        /* can not get arg */
+        res = NULL;
+        goto exit;
+    }
+
+    if (type == TYPE_INT) {
+        int32_t val = args_getInt(self, name);
+        res = getPrintStringFromInt(self, name, val);
+        goto exit;
+    }
+
+    if (type == TYPE_FLOAT) {
+        float val = args_getFloat(self, name);
+        res = getPrintStringFromFloat(self, name, val);
+        goto exit;
+    }
+
+    if (type == TYPE_STRING) {
+        res = args_getStr(self, name);
+        goto exit;
+    }
+
+    if (type == TYPE_POINTER) {
+        void* val = args_getPtr(self, name);
+        res = getPrintStringFromPtr(self, name, val);
+        goto exit;
+    }
+
+    /* can not match type */
+    res = NULL;
+    goto exit;
+
+exit:
+    args_deinit(buffs);
+    return res;
+}
+
+int32_t args_setPtrWithType(Args* self,
+                            char* name,
+                            ArgType type,
+                            void* objPtr) {
+    Arg* argNew = New_arg(NULL);
+    argNew = arg_setPtr(argNew, name, type, objPtr);
+    args_setArg(self, argNew);
+    return 0;
+}
+
+int32_t args_foreach(Args* self,
+                     int32_t (*eachHandle)(Arg* argEach, Args* handleArgs),
+                     Args* handleArgs) {
+    if (NULL == self->firstNode) {
+        return 0;
+    }
+    LinkNode* nodeNow = self->firstNode;
+    while (1) {
+        Arg* argNow = nodeNow;
+        if (NULL == argNow) {
+            continue;
+        }
+        LinkNode* nextNode = content_getNext(nodeNow);
+        eachHandle(argNow, handleArgs);
+
+        if (NULL == nextNode) {
+            break;
+        }
+        nodeNow = nextNode;
+    }
+    return 0;
+}
+
+int32_t args_removeArg(Args* self, Arg* argNow) {
+    if (NULL == argNow) {
+        /* can not found arg */
+        return 1;
+    }
+    link_removeNode(self, argNow);
+    return 0;
+}
+
+Args* New_args(Args* args) {
+    Args* self = New_link(NULL);
+    return self;
+}

components/pikascript/pikascript-core/dataArgs.h

@@ -0,0 +1,101 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef _dataArgs__H
+#define _dataArgs__H
+#include "dataArg.h"
+#include "dataLink.h"
+#include "dataMemory.h"
+#include "dataString.h"
+
+typedef Link Args;
+
+/* operation */
+void args_deinit(Args* self);
+void args_init(Args* self, Args* args);
+int32_t args_getSize(Args* self);
+LinkNode* args_getNode(Args* self, char* name);
+
+Arg* args_getArgByIndex(Args* self, int32_t index);
+Arg* args_getArg(Args* self, char* name);
+int32_t args_removeArg(Args* self, Arg* argNow);
+Arg* args_getArg_hash(Args* self, Hash nameHash);
+
+int32_t args_setArg(Args* self, Arg* arg);
+
+int32_t args_copyArgByName(Args* self, char* name, Args* directList);
+int32_t args_copyArg(Args* self, Arg* argToBeCopy);
+
+ArgType args_getType(Args* self, char* name);
+int32_t args_isArgExist_hash(Args* self, Hash nameHash);
+int32_t args_isArgExist(Args* self, char* name);
+
+int32_t args_setStr(Args* self, char* name, char* strIn);
+int32_t args_setStrWithDefaultName(Args* self, char* strIn);
+char* args_getStr(Args* self, char* name);
+
+int32_t args_setFloatWithDefaultName(Args* self, float argFloat);
+int32_t args_setFloat(Args* self, char* name, float argFloat);
+float args_getFloat(Args* self, char* name);
+
+int32_t args_setPtr(Args* self, char* name, void* argPointer);
+void* args_getPtr(Args* self, char* name);
+
+int32_t args_setInt(Args* self, char* name, int64_t int64In);
+int64_t args_getInt(Args* self, char* name);
+
+void args_bindInt(Args* self, char* name, int32_t* intPtr);
+void args_bindFloat(Args* self, char* name, float* floatPtr);
+void args_bindStr(Args* self, char* name, char** stringPtr);
+/* arg general opeartion */
+void args_bind(Args* self, char* type, char* name, void* pointer);
+char* args_print(Args* self, char* name);
+
+int32_t args_setStruct(Args* self,
+                       char* name,
+                       void* struct_ptr,
+                       uint32_t struct_size);
+void* args_getStruct(Args* self, char* name, void* struct_out);
+
+int32_t args_set(Args* self, char* name, char* valueStr);
+int32_t args_setObjectWithClass(Args* self,
+                                char* objectName,
+                                char* className,
+                                void* objectPtr);
+int32_t args_setPtrWithType(Args* self,
+                            char* name,
+                            ArgType type,
+                            void* objPtr);
+int32_t args_foreach(Args* self,
+                     int32_t (*eachHandle)(Arg* argEach, Args* handleArgs),
+                     Args* handleArgs);
+
+char* args_getBuff(Args* self, int32_t size);
+uint8_t args_setLiteral(Args* self, char* targetArgName, char* literal);
+
+Args* New_args(Args* args);
+#endif

components/pikascript/pikascript-core/dataLink.c

@@ -0,0 +1,110 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "dataLink.h"
+#include "dataArg.h"
+#include "dataLinkNode.h"
+#include "dataMemory.h"
+
+void link_deinit(Link* self) {
+    LinkNode* nowNode = self->firstNode;
+    while (NULL != nowNode) {
+        LinkNode* nodeNext = content_getNext(nowNode);
+        linkNode_deinit(nowNode);
+        nowNode = nodeNext;
+    }
+    // DynMemPut(self->mem);
+    pikaFree(self, sizeof(Link));
+    self = NULL;
+}
+
+void link_addNode(Link* self, void* content) {
+    // old first node become new second node
+    LinkNode* secondNode = self->firstNode;
+
+    self->firstNode = content;
+    // change the first node to new node
+    content_setNext(content, secondNode);
+}
+
+void link_removeNode(Link* self, void* content) {
+    LinkNode* nodeToDelete = NULL;
+    LinkNode* nodeNow = self->firstNode;
+    LinkNode* priorNode = NULL;
+    LinkNode* nextNode;
+    while (1) {
+        if (nodeNow == content) {
+            nodeToDelete = nodeNow;
+            break;
+        }
+        if (nodeNow == NULL) {
+            // error, node no found
+            goto exit;
+        }
+        priorNode = nodeNow;
+        nodeNow = content_getNext(nodeNow);
+    }
+
+    nextNode = content_getNext(nodeToDelete);
+    if (nodeToDelete == self->firstNode) {
+        self->firstNode = content_getNext(nodeToDelete);
+    }
+
+    if (NULL == priorNode) {
+        self->firstNode = nextNode;
+        goto exit;
+    }
+
+    content_setNext(priorNode, nextNode);
+    goto exit;
+
+// deinit the node
+exit:
+    linkNode_deinit(nodeToDelete);
+    return;
+}
+
+int32_t link_getSize(Link* self) {
+    LinkNode* NowNode;
+    int32_t size = 0;
+    NowNode = self->firstNode;
+    while (NULL != NowNode) {
+        size++;
+        NowNode = content_getNext(NowNode);
+    }
+    return size;
+}
+
+void link_init(Link* self, void* args) {
+    self->firstNode = NULL;
+}
+
+Link* New_link(void* args) {
+    Link* self = pikaMalloc(sizeof(Link));
+    link_init(self, args);
+    return self;
+}

components/pikascript/pikascript-core/dataLink.h

@@ -0,0 +1,46 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef _link2__H
+#define _link2__H
+#include "dataLinkNode.h"
+#include "dataMemory.h"
+
+typedef struct Class_link Link;
+struct Class_link {
+    LinkNode* firstNode;
+};
+
+void link_deinit(Link* self);
+void link_init(Link* self, void* args);
+void link_addNode(Link* self, void* content);
+void link_removeNode(Link* self, void* content);
+LinkNode* link_getNode(Link* self, int64_t id);
+int32_t link_getSize(Link* self);
+
+Link* New_link(void* args);
+#endif

components/pikascript/pikascript-core/dataLinkNode.c

@@ -0,0 +1,42 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "dataLinkNode.h"
+#include "dataArg.h"
+#include "dataMemory.h"
+
+void linkNode_deinit(LinkNode* self) {
+    arg_deinit(self);
+}
+
+void linkNode_init(LinkNode* self, void* args) {
+    /* attribute */
+}
+
+LinkNode* New_linkNode(void* args) {
+    return NULL;
+}

components/pikascript/pikascript-core/dataLinkNode.h

@@ -0,0 +1,37 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef _linkNode__H
+#define _linkNode__H
+#include "dataMemory.h"
+typedef uint8_t LinkNode;
+
+void linkNode_deinit(LinkNode* self);
+void linkNode_init(LinkNode* self, void* args);
+
+LinkNode* New_linkNode(void* args);
+#endif

components/pikascript/pikascript-core/dataMemory.c

@@ -0,0 +1,281 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "dataMemory.h"
+#include <stdint.h>
+#include <stdlib.h>
+
+PikaMemInfo pikaMemInfo = {0};
+
+void* pikaMalloc(uint32_t size) {
+    /* pika memory lock */
+    if (0 != __isLocked_pikaMemory()) {
+        __platformWait();
+    }
+    pikaMemInfo.heapUsed += size;
+    if (pikaMemInfo.heapUsedMax < pikaMemInfo.heapUsed) {
+        pikaMemInfo.heapUsedMax = pikaMemInfo.heapUsed;
+    }
+    __platformDisableIrqHandle();
+    void* mem = __impl_pikaMalloc(size);
+    __platformEnableIrqHandle();
+    if (NULL == mem) {
+        __platformPrintf(
+            "[error]: No heap space! Please reset the device.\r\n");
+        while (1) {
+        }
+    }
+    return mem;
+}
+
+void pikaFree(void* mem, uint32_t size) {
+    if (0 != __isLocked_pikaMemory()) {
+        __platformWait();
+    }
+    __platformDisableIrqHandle();
+    __impl_pikaFree(mem, size);
+    __platformEnableIrqHandle();
+    pikaMemInfo.heapUsed -= size;
+}
+
+uint16_t pikaMemNow(void) {
+    return pikaMemInfo.heapUsed;
+}
+
+uint16_t pikaMemMax(void) {
+    return pikaMemInfo.heapUsedMax;
+}
+
+void pikaMemMaxReset(void) {
+    pikaMemInfo.heapUsedMax = 0;
+}
+
+uint32_t pool_getBlockIndex_byMemSize(Pool* pool, uint32_t size) {
+    if (0 == size) {
+        return 0;
+    }
+    return (size - 1) / pool->aline + 1;
+}
+
+uint32_t pool_aline(Pool* pool, uint32_t size) {
+    return pool_getBlockIndex_byMemSize(pool, size) * pool->aline;
+}
+
+Pool pool_init(uint32_t size, uint8_t aline) {
+    Pool pool;
+    pool.aline = aline;
+    uint32_t block_size = pool_getBlockIndex_byMemSize(&pool, size);
+    pool.size = pool_aline(&pool, size);
+    pool.bitmap = bitmap_init(block_size);
+    pool.mem = __platformMalloc(pool_aline(&pool, pool.size));
+    pool.first_free_block = 0;
+    pool.purl_free_block_start = 0;
+    return pool;
+}
+
+void pool_deinit(Pool* pool) {
+    __platformFree(pool->mem);
+    pool->mem = NULL;
+    bitmap_deinit(pool->bitmap);
+}
+
+void* pool_getMem_byBlockIndex(Pool* pool, uint32_t block_index) {
+    return pool->mem + block_index * pool->aline;
+}
+
+uint32_t pool_getBlockIndex_byMem(Pool* pool, void* mem) {
+    uint32_t mem_size = (uint64_t)mem - (uint64_t)pool->mem;
+    return pool_getBlockIndex_byMemSize(pool, mem_size);
+}
+
+void pool_printBlocks(Pool* pool, uint32_t size_min, uint32_t size_max) {
+    uint32_t block_index_min = pool_getBlockIndex_byMemSize(pool, size_min);
+    uint32_t block_index_max = pool_getBlockIndex_byMemSize(pool, size_max);
+    __platformPrintf("[bitmap]\r\n");
+    uint8_t is_end = 0;
+    for (uint32_t i = block_index_min; i < block_index_max; i += 16) {
+        if (is_end) {
+            break;
+        }
+        __platformPrintf("0x%x\t: ", i * pool->aline, (i + 15) * pool->aline);
+        for (uint32_t j = i; j < i + 16; j += 4) {
+            if (is_end) {
+                break;
+            }
+            for (uint32_t k = j; k < j + 4; k++) {
+                if (k >= block_index_max) {
+                    is_end = 1;
+                    break;
+                }
+                __platformPrintf("%d", bitmap_get(pool->bitmap, k));
+            }
+            __platformPrintf(" ");
+        }
+        __platformPrintf("\r\n");
+    }
+}
+
+void* pool_malloc(Pool* pool, uint32_t size) {
+    uint32_t block_index_max = pool_getBlockIndex_byMemSize(pool, pool->size);
+    uint32_t block_num_need = pool_getBlockIndex_byMemSize(pool, size);
+    uint32_t block_num_found = 0;
+    uint8_t found_first_free = 0;
+    uint32_t block_index;
+    if (__is_quick_malloc()) {
+        /* high speed malloc */
+        block_index = pool->purl_free_block_start + block_num_need - 1;
+        if (block_index < block_index_max) {
+            goto found;
+        }
+    }
+
+    /* low speed malloc */
+    for (block_index = pool->first_free_block;
+         block_index < pool->purl_free_block_start; block_index++) {
+        /* 8 bit is not free */
+        uint8_t bitmap_byte = bitmap_getByte(pool->bitmap, block_index);
+        if (0xFF == bitmap_byte) {
+            block_index = 8 * (block_index / 8) + 7;
+            block_num_found = 0;
+            continue;
+        }
+        /* found a free block */
+        if (0 == bitmap_get(pool->bitmap, block_index)) {
+            /* save the first free */
+            if (!found_first_free) {
+                pool->first_free_block = block_index;
+                found_first_free = 1;
+            }
+            block_num_found++;
+        } else {
+            /* a used block appeared, find again */
+            block_num_found = 0;
+        }
+        /* found all request blocks */
+        if (block_num_found >= block_num_need) {
+            goto found;
+        }
+    }
+    /* malloc for purl free blocks */
+    block_index = pool->purl_free_block_start + block_num_need - 1;
+    if (block_index < block_index_max) {
+        goto found;
+    }
+
+    /* no found */
+    return NULL;
+found:
+    /* set 1 for found blocks */
+    for (uint32_t i = 0; i < block_num_need; i++) {
+        bitmap_set(pool->bitmap, block_index - i, 1);
+    }
+    /* save last used block */
+    if (block_index >= pool->purl_free_block_start) {
+        pool->purl_free_block_start = block_index + 1;
+    }
+    /* return mem by block index */
+    return pool_getMem_byBlockIndex(pool, block_index - block_num_need + 1);
+}
+
+void pool_free(Pool* pool, void* mem, uint32_t size) {
+    uint32_t block_num = pool_getBlockIndex_byMemSize(pool, size);
+    uint32_t block_index = pool_getBlockIndex_byMem(pool, mem);
+    for (uint32_t i = 0; i < block_num; i++) {
+        bitmap_set(pool->bitmap, block_index + i, 0);
+    }
+    /* save min free block index to add speed */
+    if (block_index < pool->first_free_block) {
+        pool->first_free_block = block_index;
+    }
+    /* save last free block index to add speed */
+    uint32_t block_end = block_index + block_num - 1;
+    if (block_end == pool->purl_free_block_start - 1) {
+        uint32_t first_pure_free_block = block_index;
+        /* back to first used block */
+        if (0 != first_pure_free_block) {
+            while (0 == bitmap_get(pool->bitmap, first_pure_free_block - 1)) {
+                first_pure_free_block--;
+                if (0 == first_pure_free_block) {
+                    break;
+                }
+            }
+        }
+        pool->purl_free_block_start = first_pure_free_block;
+    }
+    return;
+}
+
+uint32_t aline_by(uint32_t size, uint32_t aline) {
+    if (size == 0) {
+        return 0;
+    }
+    return ((size - 1) / aline + 1) * aline;
+}
+
+BitMap bitmap_init(uint32_t size) {
+    BitMap mem_bit_map =
+        (BitMap)__platformMalloc(((size - 1) / 8 + 1) * sizeof(char));
+    if (mem_bit_map == NULL)
+        NULL;
+    uint32_t size_mem_bit_map = (size - 1) / 8 + 1;
+    memset(mem_bit_map, 0x0, size_mem_bit_map);
+    return mem_bit_map;
+}
+
+void bitmap_set(BitMap bitmap, uint32_t index, uint8_t bit) {
+    uint32_t index_byte = index / 8;
+    uint8_t index_bit = index % 8;
+    uint8_t x = (0x1 << index_bit);
+    /* set 1 */
+    if (bit) {
+        bitmap[index_byte] |= x;
+        return;
+    }
+    /* set 0 */
+    bitmap[index_byte] &= ~x;
+    return;
+}
+
+uint8_t bitmap_getByte(BitMap bitmap, uint32_t index) {
+    uint32_t index_byte = (index) / 8;
+    uint8_t byte;
+    byte = bitmap[index_byte];
+    return byte;
+}
+
+uint8_t bitmap_get(BitMap bitmap, uint32_t index) {
+    uint32_t index_byte = (index) / 8;
+    uint8_t index_bit = (index) % 8;
+    uint8_t x = (0x1 << index_bit);
+    uint8_t bit;
+    bit = bitmap[index_byte] & x;
+    return bit > 0 ? 1 : 0;
+}
+
+void bitmap_deinit(BitMap bitmap) {
+    __platformFree(bitmap);
+}

components/pikascript/pikascript-core/dataMemory.h

@@ -0,0 +1,71 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef __MEMORY_H__
+#define __MEMORY_H__
+
+#include <stdint.h>
+#include <stdio.h>
+#include <string.h>
+#include "PikaPlatform.h"
+
+typedef struct {
+    uint32_t heapUsed;
+    uint32_t heapUsedMax;
+} PikaMemInfo;
+
+typedef uint8_t* BitMap;
+
+typedef struct {
+    BitMap bitmap;
+    uint8_t* mem;
+    uint8_t aline;
+    uint32_t size;
+    uint32_t first_free_block;
+    uint32_t purl_free_block_start;
+} Pool;
+
+void pikaFree(void* mem, uint32_t size);
+void* pikaMalloc(uint32_t size);
+uint16_t pikaMemNow(void);
+uint16_t pikaMemMax(void);
+void pikaMemMaxReset(void);
+
+uint32_t aline_by(uint32_t size, uint32_t aline);
+
+BitMap bitmap_init(uint32_t size);
+void bitmap_set(BitMap bitmap, uint32_t index, uint8_t bit);
+uint8_t bitmap_get(BitMap bitmap, uint32_t index);
+uint8_t bitmap_getByte(BitMap bitmap, uint32_t index);
+void bitmap_deinit(BitMap bitmap);
+
+Pool pool_init(uint32_t size, uint8_t aline);
+void* pool_malloc(Pool* pool, uint32_t size);
+void pool_free(Pool* pool, void* mem, uint32_t size);
+void pool_deinit(Pool* pool);
+void pool_printBlocks(Pool* pool, uint32_t block_min, uint32_t block_max);
+#endif

components/pikascript/pikascript-core/dataQueue.c

@@ -0,0 +1,132 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "dataQueue.h"
+#include <stdarg.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "dataArgs.h"
+
+
+
+Queue* New_queue(void) {
+    Args* args = New_args(NULL);
+    args_setInt(args, "top", 0);
+    args_setInt(args, "bottom", 0);
+    Queue* queue = args;
+    return queue;
+}
+
+int32_t queue_deinit(Queue* queue) {
+    Args* args = queue;
+    args_deinit(args);
+    return 0;
+}
+
+int32_t queue_pushInt(Queue* queue, int val) {
+    Args* args = queue;
+    uint64_t top = args_getInt(args, "top");
+    char buff[11];
+    char* topStr = fast_itoa(buff, top);
+    /* add top */
+    args_setInt(args, "top", top + 1);
+    return args_setInt(args, topStr, val);
+}
+
+int64_t queue_popInt(Queue* queue) {
+    Args* args = queue;
+    uint64_t bottom = args_getInt(args, "bottom");
+    char buff[11];
+    char* bottomStr = fast_itoa(buff, bottom);
+    /* add bottom */
+    args_setInt(args, "bottom", bottom + 1);
+    int64_t res = args_getInt(args, bottomStr);
+    args_removeArg(args, args_getArg(args, bottomStr));
+    return res;
+}
+
+int32_t queue_pushFloat(Queue* queue, float val) {
+    Args* args = queue;
+    uint64_t top = args_getInt(args, "top");
+    char buff[11];
+    char* topStr = fast_itoa(buff, top);
+    /* add top */
+    args_setInt(args, "top", top + 1);
+    return args_setFloat(args, topStr, val);
+}
+
+float queue_popFloat(Queue* queue) {
+    Args* args = queue;
+    uint64_t bottom = args_getInt(args, "bottom");
+    char buff[11];
+    char* bottomStr = fast_itoa(buff, bottom);
+    /* add bottom */
+    args_setInt(args, "bottom", bottom + 1);
+    float res = args_getFloat(args, bottomStr);
+    args_removeArg(args, args_getArg(args, bottomStr));
+    return res;
+}
+
+int32_t queue_pushStr(Queue* queue, char* str) {
+    Args* args = queue;
+    uint64_t top = args_getInt(args, "top");
+    char buff[11];
+    /* add top */
+    char* topStr = fast_itoa(buff, top);
+    args_setInt(args, "top", top + 1);
+    return args_setStr(args, topStr, str);
+}
+
+char* queue_popStr(Queue* queue) {
+    Args* args = queue;
+    uint64_t bottom = args_getInt(args, "bottom");
+    char buff[11];
+    /* add bottom */
+    args_setInt(args, "bottom", bottom + 1);
+    return args_getStr(args, fast_itoa(buff, bottom));
+}
+
+int32_t queue_pushArg(Queue* queue, Arg* arg) {
+    Args* args = queue;
+    uint64_t top = args_getInt(args, "top");
+    /* add top */
+    args_setInt(args, "top", top + 1);
+    char buff[11];
+    arg = arg_setName(arg, fast_itoa(buff, top));
+    return args_setArg(args, arg);
+}
+
+Arg* queue_popArg(Queue* queue) {
+    Args* args = queue;
+    uint64_t bottom = args_getInt(args, "bottom");
+    /* add bottom */
+    args_setInt(args, "bottom", bottom + 1);
+    char buff[11];
+    Arg* res = args_getArg(args, fast_itoa(buff, bottom));
+    return res;
+}

components/pikascript/pikascript-core/dataQueue.h

@@ -0,0 +1,46 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef __DATA_QUEUE__H
+#define __DATA_QUEUE__H
+#include "dataArgs.h"
+
+typedef Args Queue;
+Queue* New_queue(void);
+
+int32_t queue_deinit(Queue* queue);
+int32_t queue_pushInt(Queue* queue, int val);
+int32_t queue_pushFloat(Queue* queue, float val);
+int32_t queue_pushStr(Queue* queue, char* str);
+int32_t queue_pushArg(Queue* queue, Arg* arg);
+char *fast_itoa(char *buf, uint32_t val);
+
+int64_t queue_popInt(Queue* queue);
+float queue_popFloat(Queue* queue);
+char* queue_popStr(Queue* queue);
+Arg* queue_popArg(Queue* queue);
+#endif

components/pikascript/pikascript-core/dataQueueObj.c

@@ -0,0 +1,125 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "dataQueueObj.h"
+#include "BaseObj.h"
+#include "dataQueue.h"
+QueueObj* New_queueObj(void) {
+    PikaObj* self = New_PikaObj();
+    queueObj_init(self);
+    return self;
+}
+
+int32_t queueObj_init(QueueObj* self) {
+    obj_setInt(self, "top", 0);
+    obj_setInt(self, "bottom", 0);
+    return 0;
+}
+
+int32_t queueObj_pushObj(QueueObj* self, char* className) {
+    uint64_t top = obj_getInt(self, "top");
+    char buff[11];
+    char* topStr = fast_itoa(buff, top);
+    /* add top */
+    obj_setInt(self, "top", top + 1);
+    return obj_newObj(self, topStr, className, New_TinyObj);
+}
+
+PikaObj* queueObj_getCurrentObj(QueueObj* self) {
+    uint64_t current = obj_getInt(self, "top") - 1;
+    char buff[11];
+    char* currentStr = fast_itoa(buff, current);
+    return obj_getObj(self, currentStr, 0);
+}
+
+PikaObj* queueObj_popObj(QueueObj* self) {
+    uint64_t bottom = obj_getInt(self, "bottom");
+    char buff[11];
+    char* bottomStr = fast_itoa(buff, bottom);
+    /* add bottom */
+    obj_setInt(self, "bottom", bottom + 1);
+    PikaObj* res = obj_getObj(self, bottomStr, 0);
+    return res;
+}
+
+int32_t queueObj_pushInt(QueueObj* self, int val) {
+    uint64_t top = obj_getInt(self, "top");
+    char buff[11];
+    char* topStr = fast_itoa(buff, top);
+    /* add top */
+    obj_setInt(self, "top", top + 1);
+    return obj_setInt(self, topStr, val);
+}
+
+int64_t queueObj_popInt(QueueObj* self) {
+    uint64_t bottom = obj_getInt(self, "bottom");
+    char buff[11];
+    char* bottomStr = fast_itoa(buff, bottom);
+    /* add bottom */
+    obj_setInt(self, "bottom", bottom + 1);
+    int64_t res = obj_getInt(self, bottomStr);
+    obj_removeArg(self, bottomStr);
+    return res;
+}
+
+int32_t queueObj_pushFloat(QueueObj* self, float val) {
+    uint64_t top = obj_getInt(self, "top");
+    char buff[11];
+    char* topStr = fast_itoa(buff, top);
+    /* add top */
+    obj_setInt(self, "top", top + 1);
+    return obj_setFloat(self, topStr, val);
+}
+
+float queueObj_popFloat(QueueObj* self) {
+    uint64_t bottom = obj_getInt(self, "bottom");
+    char buff[11];
+    char* bottomStr = fast_itoa(buff, bottom);
+    /* add bottom */
+    obj_setInt(self, "bottom", bottom + 1);
+    float res = obj_getFloat(self, bottomStr);
+    obj_removeArg(self, bottomStr);
+    return res;
+}
+
+int32_t queueObj_pushStr(QueueObj* self, char* str) {
+    uint64_t top = obj_getInt(self, "top");
+    char buff[11];
+    char* topStr = fast_itoa(buff, top);
+    /* add top */
+    obj_setInt(self, "top", top + 1);
+    return obj_setStr(self, topStr, str);
+}
+
+char* queueObj_popStr(QueueObj* self) {
+    uint64_t bottom = obj_getInt(self, "bottom");
+    char buff[11];
+    char* bottomStr = fast_itoa(buff, bottom);
+    /* add bottom */
+    obj_setInt(self, "bottom", bottom + 1);
+    return obj_getStr(self, bottomStr);
+}

components/pikascript/pikascript-core/dataQueueObj.h

@@ -0,0 +1,48 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef __DATA_QUEUE_OBJ__H
+#define __DATA_QUEUE_OBJ__H
+#include "PikaObj.h"
+typedef PikaObj QueueObj;
+
+QueueObj* New_queueObj(void);
+int32_t queueObj_init(QueueObj* self);
+
+int32_t queueObj_pushInt(QueueObj* self, int val);
+int32_t queueObj_pushFloat(QueueObj* self, float val);
+int32_t queueObj_pushStr(QueueObj* self, char* str);
+int32_t queueObj_pushObj(QueueObj* self, char* className);
+
+int64_t queueObj_popInt(QueueObj* self);
+float queueObj_popFloat(QueueObj* self);
+char* queueObj_popStr(QueueObj* self);
+PikaObj* queueObj_popObj(QueueObj* self);
+
+PikaObj* queueObj_getCurrentObj(QueueObj* self);
+
+#endif

components/pikascript/pikascript-core/dataStack.c

@@ -0,0 +1,61 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "dataStack.h"
+#include "dataQueue.h"
+
+Stack* New_Stack(void) {
+    Args* args = New_args(NULL);
+    args_setInt(args, "top", 0);
+    Stack* stack = args;
+    return stack;
+}
+int32_t stack_deinit(Stack* stack) {
+    Args* args = stack;
+    args_deinit(args);
+    return 0;
+}
+int32_t stack_pushStr(Stack* stack, char* str) {
+    Args* args = stack;
+    uint64_t top = args_getInt(args, "top");
+    char buff[11];
+    /* add top */
+    char* topStr = fast_itoa(buff, top);
+    args_setInt(args, "top", top + 1);
+    return args_setStr(args, topStr, str);
+}
+char* stack_popStr(Stack* queue, char* outBuff) {
+    Args* args = queue;
+    uint64_t top = args_getInt(args, "top") - 1;
+    char buff[11];
+    /* sub top */
+    args_setInt(args, "top", top);
+    char* topStr = fast_itoa(buff, top);
+    strcpy(outBuff, args_getStr(args, topStr));
+    args_removeArg(args, args_getArg(args, topStr));
+    return outBuff;
+}

components/pikascript/pikascript-core/dataStack.h

@@ -0,0 +1,38 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef __DATA_STACK__H
+#define __DATA_STACK__H
+#include "dataArgs.h"
+
+typedef Args Stack;
+Stack* New_Stack(void);
+int32_t stack_deinit(Stack* stack);
+
+int32_t stack_pushStr(Stack* stack, char* str);
+char* stack_popStr(Stack* queue, char* outBuff);
+#endif

components/pikascript/pikascript-core/dataString.c

@@ -0,0 +1,297 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "dataString.h"
+#include <stdint.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+char* strAppendWithSize_unlimited(char* strOut, char* pData, int32_t Size) {
+    int32_t strOut_i = strGetSize(strOut);
+    for (int32_t i = 0; i < Size; i++) {
+        strOut[strOut_i + i] = pData[i];
+    }
+    strOut_i += Size;
+    // add \0 to the end of strOut
+    strOut[strOut_i] = 0;
+
+    return strOut;
+}
+
+char* strCut(char* strOut, char* strIn, char startSign, char endSign) {
+    int32_t Size = strGetSize(strIn);
+    int32_t iStart = 0;
+    int32_t iEnd = Size;
+    uint8_t isStart = 0;
+    uint8_t isEnd = 0;
+    for (int32_t i = 0; i < Size; i++) {
+        if (strIn[i] == startSign) {
+            iStart = i;
+            isStart = 1;
+            break;
+        }
+    }
+    for (int32_t i = Size - 1; i >= 0; i--) {
+        if (strIn[i] == endSign) {
+            iEnd = i;
+            isEnd = 1;
+            break;
+        }
+    }
+    int outi = 0;
+    for (int32_t i = iStart + 1; i < iEnd; i++) {
+        strOut[outi] = strIn[i];
+        outi++;
+    }
+    /* add \0 */
+    strOut[outi] = 0;
+    if (isStart && isEnd) {
+        /* succeed */
+        return strOut;
+    }
+    /* faild */
+    return NULL;
+}
+
+char* strDeleteChar(char* strOut, char* strIn, char ch) {
+    int32_t iOut = 0;
+    for (int32_t i = 0; i < strGetSize(strIn); i++) {
+        if (ch == strIn[i]) {
+            continue;
+        }
+        strOut[iOut] = strIn[i];
+        iOut++;
+    }
+    /* add \0 */
+    strOut[iOut] = 0;
+    return strOut;
+}
+
+char* strDeleteEnter(char* str) {
+    return strDeleteChar(str, str, '\n');
+}
+
+char* strAppendWithSize(char* strOut, char* pData, int32_t Size) {
+    int32_t strOut_i = strGetSize(strOut);
+    for (int32_t i = 0; i < Size; i++) {
+        strOut[strOut_i + i] = pData[i];
+    }
+    strOut_i += Size;
+    // add \0 to the end of strOut
+    strOut[strOut_i] = 0;
+
+    return strOut;
+}
+
+int32_t strCountSign(char* strIn, char sign) {
+    int32_t count = 0;
+    for (int32_t i = 0; i < strGetSize(strIn); i++) {
+        if (sign == strIn[i]) {
+            count++;
+        }
+    }
+    return count;
+}
+
+int32_t strGetTokenNum(char* strIn, char sign) {
+    return strCountSign(strIn, sign) + 1;
+}
+
+uint32_t strGetSize(char* pData) {
+    return strlen(pData);
+}
+
+char* strAppend_unlimited(char* strOut, char* pData) {
+    uint32_t Size = 0;
+    Size = strGetSize(pData);
+    return strAppendWithSize_unlimited(strOut, pData, Size);
+}
+
+char* strGetLastLine(char* strOut, char* strIn) {
+    int32_t size = strGetSize(strIn);
+    char sign = '\n';
+    uint32_t beginIndex = 0;
+
+    /* skip the latest '\n' */
+    for (int32_t i = size - 2; i > -1; i--) {
+        if (strIn[i] == sign) {
+            beginIndex = i + 1;
+            break;
+        }
+    }
+
+    memcpy(strOut, strIn + beginIndex, size - beginIndex);
+    strOut[size - beginIndex + 1] = 0;
+    return strOut;
+}
+
+char* strGetLastToken(char* strOut, char* strIn, char sign) {
+    int32_t size = strGetSize(strIn);
+    int32_t buffSize = 0;
+    for (int32_t i = size - 1; i > -1; i--) {
+        if (strIn[i] != sign) {
+            strOut[size - i - 1] = strIn[i];
+            buffSize++;
+        }
+        if (strIn[i] == sign) {
+            break;
+        }
+    }
+    int32_t i = 0;
+    for (i = 0; i < buffSize / 2; i++) {
+        char buff = strOut[i];
+        strOut[i] = strOut[buffSize - i - 1];
+        strOut[buffSize - i - 1] = buff;
+    }
+    strOut[buffSize] = 0;
+    return strOut;
+}
+
+char* strPopToken(char* strOut, char* strIn, char sign) {
+    int32_t getSign = 0;
+    int32_t iPoped = 0;
+    int32_t iOut = 0;
+    int32_t size = strGetSize(strIn);
+    int32_t i = 0;
+    for (i = 0; i < size; i++) {
+        if (getSign) {
+            strIn[iPoped] = strIn[i];
+            iPoped++;
+            continue;
+        }
+        if (strIn[i] != sign) {
+            strOut[iOut++] = strIn[i];
+            continue;
+        }
+        if (strIn[i] == sign) {
+            getSign = 1;
+            continue;
+        }
+    }
+    strOut[iOut] = 0;
+    strIn[iPoped] = 0;
+    return strOut;
+}
+
+char* strGetFirstToken(char* strOut, char* strIn, char sign) {
+    int32_t size = strGetSize(strIn);
+    for (int32_t i = 0; i < size; i++) {
+        if (strIn[i] != sign) {
+            strOut[i] = strIn[i];
+        }
+        if (strIn[i] == sign) {
+            break;
+        }
+    }
+    return strOut;
+}
+
+int32_t strGetToken(char* string, char** argv, char sign) {
+    int32_t argc = 0;
+    int32_t i = 0;
+    // arg_i point32_t to the arg operated now
+    int32_t arg_i = 0;
+    // if not found ' ', then put chars from CMD to argv_tem
+    int32_t char_i = 0;
+    for (i = 0; (i < strGetSize(string)); i++) {
+        if (string[i] != sign) {
+            argv[arg_i][char_i] = string[i];
+            char_i++;
+        }
+        if (string[i] == sign) {
+            // write '\0' to the end of argv
+            argv[arg_i][char_i] = 0;
+            arg_i++;
+            char_i = 0;
+        }
+        // write '\0' to the end of last argv
+        argv[arg_i][char_i] = 0;
+    }
+    argc = arg_i + 1;
+    return argc;
+}
+
+char* strAppend(char* strOut, char* pData) {
+    uint32_t Size = 0;
+    Size = strGetSize(pData);
+    return strAppendWithSize(strOut, pData, Size);
+}
+
+int32_t strIsStartWith(char* str, char* strStart) {
+    if (NULL == str || NULL == strStart) {
+        /* input is null */
+        return 0;
+    }
+    uint32_t size = strGetSize(strStart);
+    uint32_t CMDName_get = 1;
+    for (int32_t i = 0; i < size; i++) {
+        if (str[i] != strStart[i]) {
+            CMDName_get = 0;
+        }
+    }
+    return CMDName_get;
+}
+
+int32_t strEqu(char* str1, char* str2) {
+    if (NULL == str1 || NULL == str2) {
+        return 0;
+    }
+    return !strcmp(str1, str2);
+}
+
+char* strRemovePrefix(char* inputStr, char* prefix, char* outputStr) {
+    if (!strIsStartWith(inputStr, prefix)) {
+        return NULL;
+    }
+
+    for (int32_t i = strGetSize(prefix); i < strGetSize(inputStr); i++) {
+        outputStr[i - strGetSize(prefix)] = inputStr[i];
+    }
+    return outputStr;
+}
+
+char* strClear(char* str) {
+    for (int32_t i = 0; i < sizeof(str); i++) {
+        str[i] = 0;
+    }
+    return str;
+}
+
+int32_t strIsContain(char* str, char ch) {
+    for (int32_t i = 0; i < strGetSize(str); i++) {
+        if (str[i] == ch) {
+            return 1;
+        }
+    }
+    return 0;
+}
+
+char* strCopy(char* strBuff, char* strIn) {
+    memcpy(strBuff, strIn, strGetSize(strIn));
+    return strBuff;
+}

components/pikascript/pikascript-core/dataString.h

@@ -0,0 +1,60 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef __MY_TEST_TOOLS_H
+#define __MY_TEST_TOOLS_H
+#include <stdint.h>
+
+/* size */
+uint32_t strGetSize(char* pData);
+/* append */
+char* strAppend(char* strOut, char* pData);
+char* strAppend_unlimited(char* strOut, char* pData);
+char* strAppendWithSize(char* strOut, char* pData, int32_t Size);
+/* cut */
+char* strCut(char* strOut, char* strIn, char startSign, char endSign);
+/* assert */
+int32_t strIsStartWith(char* str, char* strStart);
+int32_t strEqu(char* str1, char* str2);
+/* delete */
+char* strDeleteEnter(char* str);
+char* strDeleteChar(char* strOut, char* strIn, char ch);
+/* prefix */
+char* strRemovePrefix(char* inputStr, char* prefix, char* outputStr);
+/* token */
+int32_t strGetToken(char* string, char** argv, char sign);
+char* strPopToken(char* strOut, char* strIn, char sign);
+int32_t strCountSign(char* strIn, char sign);
+int32_t strGetTokenNum(char* strIn, char sign);
+char* strGetFirstToken(char* strOut, char* strIn, char sign);
+char* strGetLastToken(char* strOut, char* strIn, char sign);
+char* strClear(char* str);
+int32_t strIsContain(char* str, char ch);
+char* strCopy(char* strBuff, char* strIn);
+char* strGetLastLine(char *strOut, char *strIn);
+
+#endif

components/pikascript/pikascript-core/dataStrs.c

@@ -0,0 +1,116 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#include "dataStrs.h"
+#include <stdarg.h>
+#include <stdio.h>
+#include "dataString.h"
+
+Args* New_strBuff(void) {
+    return New_args(NULL);
+}
+
+char* strsRemovePrefix(Args* buffs, char* inputStr, char* prefix) {
+    int32_t size = strGetSize(inputStr);
+    char* buff = args_getBuff(buffs, size);
+    return strRemovePrefix(inputStr, prefix, buff);
+}
+
+char* strsGetDirectStr(Args* buffs, char* argPath) {
+    char* directStr = NULL;
+    directStr = strsCut(buffs, argPath, '"', '"');
+    if (NULL != directStr) {
+        return directStr;
+    }
+    directStr = strsCut(buffs, argPath, '\'', '\'');
+    if (NULL != directStr) {
+        return directStr;
+    }
+    return NULL;
+}
+
+char* strsAppend(Args* buffs, char* strOrigin, char* strToAppend) {
+    int32_t size = strGetSize(strOrigin) + strGetSize(strToAppend);
+    char* buff = args_getBuff(buffs, size);
+    char* strOut = strCopy(buff, strOrigin);
+    strAppend(strOut, strToAppend);
+    return strOut;
+}
+
+char* strsGetLastToken(Args* buffs, char* argPath, char sign) {
+    int32_t size = strGetSize(argPath);
+    char* buff = args_getBuff(buffs, size);
+    return strGetLastToken(buff, argPath, sign);
+}
+
+char* strsCut(Args* buffs, char* strIn, char startSign, char endSign) {
+    int32_t size = strGetSize(strIn);
+    char* buff = args_getBuff(buffs, size);
+    return strCut(buff, strIn, startSign, endSign);
+}
+
+char* strsDeleteChar(Args* buffs, char* strIn, char ch) {
+    int32_t size = strGetSize(strIn);
+    return strDeleteChar(args_getBuff(buffs, size), strIn, ch);
+}
+
+static uint32_t getSizeOfFirstToken(char *str, char sign){
+    uint32_t size = strGetSize(str);
+    for( uint32_t i = 0; i < size ;i ++){
+        if (str[i] == sign){
+            return i;
+        }
+    }
+    return size;
+}
+
+char* strsGetFirstToken(Args* buffs, char* strIn, char sign) {
+    int32_t size = getSizeOfFirstToken(strIn, sign);
+    return strGetFirstToken(args_getBuff(buffs, size), strIn, sign);
+}
+
+char* strsPopToken(Args* buffs, char* tokens, char sign) {
+    int32_t size = strGetSize(tokens);
+    char* buff = args_getBuff(buffs, size);
+    return strPopToken(buff, tokens, sign);
+}
+
+char* strsCopy(Args* buffs, char* source) {
+    int32_t size = strGetSize(source);
+    char* buff = args_getBuff(buffs, size);
+    return strCopy(buff, source);
+}
+
+char* strsFormat(Args* buffs, uint16_t buffSize, const char* fmt, ...) {
+    va_list args;
+    va_start(args, fmt);
+    char* res = args_getBuff(buffs, buffSize);
+    vsnprintf(res, buffSize, fmt, args);
+    va_end(args);
+    return res;
+}
+

components/pikascript/pikascript-core/dataStrs.h

@@ -0,0 +1,42 @@
+/*
+ * This file is part of the PikaScript project.
+ * http://github.com/pikastech/pikascript
+ *
+ * MIT License
+ *
+ * Copyright (c) 2021 lyon 李昂 liang6516@outlook.com
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+
+#ifndef __STR_ARGS__H
+#define __STR_ARGS__H
+#include "dataArgs.h"
+Args* New_strBuff(void);
+char* strsGetFirstToken(Args* buffs, char* strIn, char sign);
+char* strsGetLastToken(Args* buffs, char* arg_Path, char sign);
+char* strsPopToken(Args* buffs, char* tokens, char sign);
+char* strsCopy(Args* buffs, char* source);
+char* strsDeleteChar(Args* buff, char* strIn, char ch);
+char* strsCut(Args* buffs, char* strIn, char startSign, char endSign);
+char* strsRemovePrefix(Args* buffs, char* inputStr, char* prefix);
+char* strsAppend(Args* buffs, char* strOrigin, char* strAppend);
+char* strsFormat(Args* buffs, uint16_t buffSize, const char* fmt, ...);
+char* strsGetDirectStr(Args* buffs, char* argPath);
+#endif

components/pikascript/pikascript-lib/PikaStdLib/PikaStdLib.py

@@ -0,0 +1,19 @@
+from PikaObj import *
+
+class MemChecker(BaseObj):
+    def max():
+        pass
+
+    def now():
+        pass
+
+    def resetMax():
+        pass
+
+
+class SysObj(BaseObj):
+    def type(argPath: str):
+        pass
+
+    def remove(argPath: str):
+        pass

components/pikascript/pikascript-lib/PikaStdLib/PikaStdLib_MemChecker.c

@@ -0,0 +1,14 @@
+#include "BaseObj.h"
+#include "dataStrs.h"
+
+void PikaStdLib_MemChecker_max(PikaObj* self) {
+    obj_sysPrintf(self, "%0.2f kB", pikaMemMax() / 1024.0);
+}
+
+void PikaStdLib_MemChecker_now(PikaObj* self) {
+    obj_sysPrintf(self, "%0.2f kB", pikaMemNow() / 1024.0);
+}
+
+void PikaStdLib_MemChecker_resetMax(PikaObj* self) {
+    pikaMemMaxReset();
+}

components/pikascript/pikascript-lib/PikaStdLib/PikaStdLib_SysObj.c

@@ -0,0 +1,51 @@
+#include "BaseObj.h"
+#include "dataStrs.h"
+
+void PikaStdLib_SysObj_remove(PikaObj* self, char* argPath) {
+    obj_setErrorCode(self, 0);
+    int32_t res = obj_removeArg(self, argPath);
+    if (1 == res) {
+        obj_setSysOut(self, "[error] del: object no found.");
+        obj_setErrorCode(self, 1);
+        return;
+    }
+    if (2 == res) {
+        obj_setSysOut(self, "[error] del: arg not match.");
+        obj_setErrorCode(self, 2);
+        return;
+    }
+}
+
+void PikaStdLib_SysObj_type(PikaObj* self, char* argPath) {
+    Arg* arg = obj_getArg(self, argPath);
+    if (NULL == arg) {
+        obj_setSysOut(self, "[error] type: arg no found.");
+        obj_setErrorCode(self, 1);
+        return;
+    }
+    ArgType type = arg_getType(arg);
+    if (TYPE_INT == type) {
+        obj_setSysOut(self, "int");
+        return;
+    }
+    if (TYPE_FLOAT == type) {
+        obj_setSysOut(self, "float");
+        return;
+    }
+    if (TYPE_STRING == type) {
+        obj_setSysOut(self, "string");
+        return;
+    }
+    if (TYPE_POINTER == type) {
+        obj_setSysOut(self, "pointer");
+        return;
+    }
+    if (TYPE_MATE_OBJECT == type) {
+        obj_setSysOut(self, "mate_object");
+        return;
+    }
+    if (TYPE_METHOD == type) {
+        obj_setSysOut(self, "method");
+        return;
+    }
+}

components/pikascript/requestment.txt

@@ -0,0 +1,2 @@
+pikascript-core==v1.2.6
+PikaStdLib==v1.2.1

examples/pikascript/CMakeLists.txt

@@ -0,0 +1,4 @@
+set(TARGET_REQUIRED_LIBS pikascript)
+set(mains main.c)
+generate_bin()
+

examples/pikascript/main.c

@@ -0,0 +1,36 @@
+/**
+ * @file main.c
+ * @brief
+ *
+ * Copyright (c) 2021 Bouffalolab team
+ *
+ * Licensed to the Apache Software Foundation (ASF) under one or more
+ * contributor license agreements.  See the NOTICE file distributed with
+ * this work for additional information regarding copyright ownership.  The
+ * ASF licenses this file to you under the Apache License, Version 2.0 (the
+ * "License"); you may not use this file except in compliance with the
+ * License.  You may obtain a copy of the License at
+ *
+ *   http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
+ * WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.  See the
+ * License for the specific language governing permissions and limitations
+ * under the License.
+ *
+ */
+#include "bflb_platform.h"
+#include "hal_uart.h"
+#include <stdio.h>
+#include <pikaScript.h>
+
+int main(void)
+{
+    bflb_platform_init(0);
+    printf("[info]: BL706 system init ok!\r\n");
+    PikaObj* pikaMain = pikaScriptInit();
+    while (1) {
+        bflb_platform_delay_ms(100);
+    }
+}

examples/pikascript/readme.md

@@ -0,0 +1,5 @@
+```bash
+
+$ make APP=pikascript BOARD=b706_avb
+
+```