| 1 | /* | 
|---|
| 2 | ** $Id: lapi.h,v 2.9.1.1 2017/04/19 17:20:42 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 | 
|---|
| 25 |  | 
|---|