#include <stdlib.h>

 #include <string.h>

 #include <errno.h>

 #include <lua.h>

 #include <lualib.h>

 #include <lauxlib.h>

 #include "config.h"

 #include "_whelk.h"

 #ifdef __WIN32__

 int whelk_win32_error(lua_State *L,DWORD err)

 {

     DWORD n;

     WCHAR *buf;

     char *utf8;

     lua_pushnil(L);

     buf=NULL;

     n=FormatMessageW(FORMAT_MESSAGE_ALLOCATE_BUFFER|\

       FORMAT_MESSAGE_FROM_SYSTEM|FORMAT_MESSAGE_IGNORE_INSERTS,0,err,0,

       (LPWSTR)&buf,0,NULL);

     if (n)

     {

 	if (n>2 && buf[n-2]=='\r' && buf[n-1]=='\n')

 	    n-=2;

 	utf8=whelk_utf16_to_utf8(buf,n);

 	LocalFree(buf);

 	lua_pushstring(L,utf8);

 	free(utf8);

     }

     else

 	lua_pushstring(L,"Unknown error");

     lua_pushinteger(L,err);

     return 3;

 }

 #endif

 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;

 }