| 124 | #define FUNCTION "(function()end)();\n" |
| 125 | |
| 126 | static const char* reader(lua_State* L, void* ud, size_t* size) |
| 127 | { |
| 128 | UNUSED(L); |
| 129 | if ((*(int*)ud)--) |
| 130 | { |
| 131 | *size=sizeof(FUNCTION)-1; |
| 132 | return FUNCTION; |
| 133 | } |
| 134 | else |
| 135 | { |
| 136 | *size=0; |
| 137 | return NULL; |
| 138 | } |
| 139 | } |
| 140 | |
| 141 | #define toproto(L,i) getproto(s2v(L->top.p+(i))) |
| 142 |