You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
77 lines
1.7 KiB
77 lines
1.7 KiB
#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);
|
|
}
|
|
|