#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <lua.h>
#include <lualib.h>
#include <lauxlib.h>
#include "config.h"
#include "_whelk.h"

int whelk_perror(lua_State *L,const char *s)
{
    lua_pushnil(L);
    if (s)
	lua_pushfstring(L,"%s: %s",s,strerror(errno));
    else
	lua_pushstring(L,strerror(errno));
    lua_pushinteger(L,errno);
    return 3;
}

static int whelk_unsupported(lua_State *L)
{
    errno=ENOSYS;
    return whelk_perror(L,NULL);
}

#ifdef __WIN32__
#define WIN32_ONLY(func)	func
#else
#define WIN32_ONLY(func)	whelk_unsupported
#endif

static const luaL_reg whelk_functions[]={
    { "GetFolderPath",WIN32_ONLY(whelk_get_folder_path) },
    { "CreateShortCut",WIN32_ONLY(whelk_create_short_cut) },
    { "Spawn",WIN32_ONLY(whelk_spawn) },
    { "CryptCATAdmin",WIN32_ONLY(whelk_crypt_cat_admin_new) },
    { "SetupCopyOEMInf",WIN32_ONLY(whelk_setup_copy_oem_inf) },
    { "SetupUninstallOEMInf",WIN32_ONLY(whelk_setup_uninstall_oem_inf) },
    { NULL }
};

LUALIB_API int luaopen_whelk(lua_State *L)
{
    luaL_register(L,"whelk",whelk_functions);
    lua_pushliteral(L,"version");
    lua_pushliteral(L,PACKAGE_STRING);
    lua_settable(L,-3);
#ifdef __WIN32__
    whelk_open_get_folder_path(L);
    whelk_open_reg_keys(L);
    whelk_open_setup(L);
#endif
    return 1;
}