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
78
79
80
81
82
83
84
85
86
87
88
89
|
#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>
#define LUA_MAX_MEMSIZE 0x10000 // 64k
static const char *prg =
"local t = {}\n"
"for i = 1, 10000 do\n"
" print(string.format(\"Iteration %d...\", i))\n"
" t[i] = string.format(\"Lorem ipsum asklfhskldjf hskljfh slkjfd sdklfjh slkfjh sdkljfjh sdklfjh sdklf %d...\", i)\n"
"end\n";
static void report(lua_State *L, int status)
{
if (status == LUA_OK)
return;
const char *msg = lua_tostring(L, -1);
printf("%s\n", msg);
lua_pop(L, 1);
}
static int lua_mem_size = 0;
static void* l_alloc(void *ud, void *ptr, size_t osize, size_t nsize)
{
int new_size = lua_mem_size - osize + nsize;
if (new_size > LUA_MAX_MEMSIZE)
{
printf("Error! Lua wants more memory than we can allocate: %u > %u\n", new_size, LUA_MAX_MEMSIZE);
return NULL;
}
//printf("Reallocating: old = %u, new = %u\n", lua_mem_size, new_size);
lua_mem_size = new_size;
if (nsize == 0)
{
free(ptr);
return NULL;
}
else
return realloc(ptr, nsize);
}
void test(void *arg)
{
printf("Program:\n%s\n", prg);
lua_State *L = lua_newstate(l_alloc, NULL);
if (!L)
{
printf("Could not create state\n");
while (1) { vTaskDelay(1000); }
}
luaL_openlibs(L);
int r = luaL_loadstring(L, prg);
if (r)
{
report(L, r);
while (1) { vTaskDelay(1000); }
}
r = lua_pcall(L, 0, 0, 0);
if (r)
report(L, r);
lua_close(L);
printf("State closed, heap: %" PRIu32 "\n", xPortGetFreeHeapSize());
while (1)
{
printf(".");
fflush(stdout);
vTaskDelay(pdMS_TO_TICKS(100));
}
}
void app_main()
{
xTaskCreate(test, "test", 0x10000, NULL, 5, NULL);
}
|
