| 1 | /* |
| 2 | ** $Id: lapi.h,v 2.7 2009/11/27 15:37:59 roberto Exp $ |
| 3 | ** Auxiliary functions from Lua API |
| 4 | ** See Copyright Notice in lua.h |
| 5 | */ |
| 6 | |
| 7 | #ifndef lapi_h |
| 8 | #define lapi_h |
| 9 | |
| 10 | |
| 11 | #include "llimits.h" |
| 12 | #include "lstate.h" |
| 13 | |
| 14 | #define api_incr_top(L) {L->top++; api_check(L, L->top <= L->ci->top, \ |
| 15 | "stack overflow");} |
| 16 | |
| 17 | #define adjustresults(L,nres) \ |
| 18 | { if ((nres) == LUA_MULTRET && L->ci->top < L->top) L->ci->top = L->top; } |
| 19 | |
| 20 | #define api_checknelems(L,n) api_check(L, (n) < (L->top - L->ci->func), \ |
| 21 | "not enough elements in the stack") |
| 22 | |
| 23 | |
| 24 | #endif |