#include <stddef.h>

#include <string.h>

#include <stdio.h>

#include "lua.h"

#include "lauxlib.h"

#include "lualib.h"

#if !defined(LUA_VERSION_NUM)

/* Lua 5.0 */

#define LUA_QL(x) "'" x "'"

#define LUA_QS LUA_QL("%s")

#define luaL_Reg luaL_reg

#define luaL_opt(L, f, n, d) \

  (lua_isnoneornil(L, n) ? (d) : f(L, n))

#define luaL_addchar(B,c) \

  ((void)((B)->p < ((B)->buffer+LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), \

   (*(B)->p++ = (char)(c)))

#endif /* Lua 5.0 */

#if defined(LUA_VERSION_NUM) && LUA_VERSION_NUM == 501

/* Lua 5.1 */

/* PUC-Rio Lua uses lconfig_h as include guard for luaconf.h,

 * LuaJIT uses luaconf_h. If you use PUC-Rio's include files

 * but LuaJIT's library, you will need to define the macro

 * COMPAT52_IS_LUAJIT yourself! */

#if !defined(COMPAT52_IS_LUAJIT) && defined(luaconf_h)

#define COMPAT52_IS_LUAJIT

#endif

/* LuaJIT doesn't define these unofficial macros ... */

#if !defined(LUAI_INT32)

#include <limits.h>

#if INT_MAX-20 < 32760

#define LUAI_INT32  long

#define LUAI_UINT32 unsigned long

#elif INT_MAX > 2147483640L

#define LUAI_INT32  int

#define LUAI_UINT32 unsigned int

#else

#error "could not detect suitable lua_Unsigned datatype"

#endif

#endif

#define LUA_OPADD 0

#define LUA_OPSUB 1

#define LUA_OPMUL 2

#define LUA_OPDIV 3

#define LUA_OPMOD 4

#define LUA_OPPOW 5

#define LUA_OPUNM 6

#define LUA_OPEQ 0

#define LUA_OPLT 1

#define LUA_OPLE 2

typedef LUAI_UINT32 lua_Unsigned;

typedef struct luaL_Buffer_52 {

  luaL_Buffer b; /* make incorrect code crash! */

  char *ptr;

  size_t nelems;

  size_t capacity;

  lua_State *L2;

} luaL_Buffer_52;

#define luaL_Buffer luaL_Buffer_52

typedef struct luaL_Stream {

  FILE *f;

  /* The following field is for LuaJIT which adds a uint32_t field

   * to file handles. */

  lua_Unsigned type;

  lua_CFunction closef;

} luaL_Stream;

#define lua_tounsigned(L, i) lua_tounsignedx(L, i, NULL)

#define lua_rawlen(L, i) lua_objlen(L, i)

void lua_arith (lua_State *L, int op);

int lua_compare (lua_State *L, int idx1, int idx2, int op);

void lua_pushunsigned (lua_State *L, lua_Unsigned n);

lua_Unsigned luaL_checkunsigned (lua_State *L, int i);

lua_Unsigned lua_tounsignedx (lua_State *L, int i, int *isnum);

lua_Unsigned luaL_optunsigned (lua_State *L, int i, lua_Unsigned def);

lua_Integer lua_tointegerx (lua_State *L, int i, int *isnum);

void lua_len (lua_State *L, int i);

int luaL_len (lua_State *L, int i);

const char *luaL_tolstring (lua_State *L, int idx, size_t *len);

void luaL_requiref (lua_State *L, char const* modname, lua_CFunction openf, int glb);

#define luaL_buffinit luaL_buffinit_52

void luaL_buffinit (lua_State *L, luaL_Buffer_52 *B);

#define luaL_prepbuffsize luaL_prepbuffsize_52

char *luaL_prepbuffsize (luaL_Buffer_52 *B, size_t s);

#define luaL_addlstring luaL_addlstring_52

void luaL_addlstring (luaL_Buffer_52 *B, const char *s, size_t l);

#define luaL_addvalue luaL_addvalue_52

void luaL_addvalue (luaL_Buffer_52 *B);

#define luaL_pushresult luaL_pushresult_52

void luaL_pushresult (luaL_Buffer_52 *B);

#undef luaL_buffinitsize

#define luaL_buffinitsize(L, B, s) \

  (luaL_buffinit(L, B), luaL_prepbuffsize(B, s))

#undef luaL_prepbuffer

#define luaL_prepbuffer(B) \

  luaL_prepbuffsize(B, LUAL_BUFFERSIZE)

#undef luaL_addchar

#define luaL_addchar(B, c) \

  ((void)((B)->nelems < (B)->capacity || luaL_prepbuffsize(B, 1)), \

   ((B)->ptr[(B)->nelems++] = (c)))

#undef luaL_addsize

#define luaL_addsize(B, s) \

  ((B)->nelems += (s))

#undef luaL_addstring

#define luaL_addstring(B, s) \

  luaL_addlstring(B, s, strlen(s))

#undef luaL_pushresultsize

#define luaL_pushresultsize(B, s) \

  (luaL_addsize(B, s), luaL_pushresult(B))

#endif /* Lua 5.1 */

#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM == 501

/* Lua 5.0 *or* 5.1 */

#define LUA_OK 0

#define lua_pushglobaltable(L) \

  lua_pushvalue(L, LUA_GLOBALSINDEX)

#define luaL_newlib(L, l) \

  (lua_newtable((L)),luaL_setfuncs((L), (l), 0))

void luaL_checkversion (lua_State *L);

#endif /* Lua 5.0 *or* 5.1 */

int lua_absindex (lua_State *L, int i);

void lua_copy (lua_State *L, int from, int to);

void lua_rawgetp (lua_State *L, int i, const void *p);

void lua_rawsetp (lua_State *L, int i, const void *p);

void *luaL_testudata (lua_State *L, int i, const char *tname);

lua_Number lua_tonumberx (lua_State *L, int i, int *isnum);

void lua_getuservalue (lua_State *L, int i);

void lua_setuservalue (lua_State *L, int i);

void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup);

void luaL_setmetatable (lua_State *L, const char *tname);

int luaL_getsubtable (lua_State *L, int i, const char *name);

void luaL_traceback (lua_State *L, lua_State *L1, const char *msg, int level);

int luaL_fileresult (lua_State *L, int stat, const char *fname);