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