1 files changed, 77 insertions, 0 deletions
diff --git a/lib/esp-idf-lua/examples/simple/main/main.c b/lib/esp-idf-lua/examples/simple/main/main.c
new file mode 100644
index 00000000..ff671618
--- /dev/null
+++ b/lib/esp-idf-lua/examples/simple/main/main.c
@@ -0,0 +1,77 @@
+#include <stdio.h>
+#include <inttypes.h>
+#include <freertos/FreeRTOS.h>
+#include <freertos/task.h>
+#include <string.h>
+#include <lua/lua.h>
+#include <lua/lauxlib.h>
+#include <lua/lualib.h>
+
+static const char *prg =
+        "v = {'value1', 'value2', 1.21, 'gigawatts'}\n"
+        "for i = 1, #v do\n"
+        "  print(v[i])\n"
+        "end\n";
+
+static int report(lua_State *L, int status)
+{
+    if (status != LUA_OK)
+    {
+        const char *msg = lua_tostring(L, -1);
+        lua_writestring(msg, strlen(msg));
+        lua_writeline();
+        lua_pop(L, 1); /* remove message */
+    }
+    return status;
+}
+
+void test(void *arg)
+{
+    printf("\n\n%s\n\n", prg);
+    printf("Start, heap: %" PRIu32 "\n", xPortGetFreeHeapSize());
+
+    lua_State *L = luaL_newstate();
+    if (!L)
+    {
+        printf("Could not create state....\n");
+        while (1) { vTaskDelay(1000); }
+    }
+
+    printf("State ready, heap: %" PRIu32 "\n", xPortGetFreeHeapSize());
+
+    luaL_openlibs(L);
+
+    printf("Libs ready, heap: %" PRIu32 "\n", xPortGetFreeHeapSize());
+
+    int r = luaL_loadstring(L, prg);
+    if (r)
+    {
+        report(L, r);
+        while (1) { vTaskDelay(1000); }
+    }
+
+    printf("Prg loaded, heap: %" PRIu32 "\n", xPortGetFreeHeapSize());
+
+    printf("-------------------------------------------\n");
+    r = lua_pcall(L, 0, 0, 0);
+    if (r)
+        report(L, r);
+    printf("-------------------------------------------\n");
+
+    printf("Prg done, heap: %" PRIu32 "\n", xPortGetFreeHeapSize());
+
+    lua_close(L);
+
+    printf("State closed, heap: %" PRIu32 "\n", xPortGetFreeHeapSize());
+    while (1)
+    {
+        printf(".");
+        fflush(NULL);
+        vTaskDelay(100);
+    }
+}
+
+void app_main()
+{
+    xTaskCreate(test, "test", 0x10000, NULL, 5, NULL);
+}