#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;

 }