#include "lua.h"
#include "lauxlib.h"

int hslua_error(lua_State *L);

int hslua_call_hs(lua_State *L);

int hslua_userdata_gc(lua_State *L);

int hslua_compare(lua_State *L, int index1, int index2, int op, int *status);

void hslua_concat(lua_State *L, int n, int *status);

void hslua_getglobal(lua_State *L, const char *name, size_t len, int *status);

void hslua_gettable(lua_State *L, int index, int *status);

void hslua_setglobal(lua_State *L, const char *k, size_t len, int *status);

void hslua_settable(lua_State *L, int index, int *status);

int hslua_next(lua_State *L, int index, int *status);


/* auxiliary library */
const char *hsluaL_tolstring(lua_State *L, int index, size_t *len);

/*
** function calling
*/

/* Wraps a Haskell function with an userdata object.  */
void hslua_newhsfunwrapper(lua_State *L, HsStablePtr fn);