1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
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);
}
|
