2 * $Id: lua_gettext.c,v 1.9 2005/04/04 13:56:37 den Exp $
6 #include <lua50/lualib.h>
7 #include <lua50/lauxlib.h>
13 LUA_API int luaopen_lgettext(lua_State *);
17 const char *package = "";
18 const char *locale_dir = "";
23 lua_gettext_init(lua_State *L __unused)
25 setlocale(LC_ALL, "");
26 bindtextdomain(package, locale_dir);
33 lua_gettext_set_package(lua_State *L)
35 package = luaL_checkstring(L, 1);
41 lua_gettext_set_locale_dir(lua_State *L)
43 locale_dir = luaL_checkstring(L, 1);
49 lua_gettext_translate(lua_State *L)
51 lua_pushstring(L, gettext(luaL_checkstring(L, 1)));
52 lua_pushstring(L, luaL_checkstring(L, 1));
57 /**** Binding Tables ****/
59 const luaL_reg gettext_methods[] = {
60 {"init", lua_gettext_init },
61 {"set_package", lua_gettext_set_package },
62 {"set_locale_dir", lua_gettext_set_locale_dir },
63 {"translate", lua_gettext_translate },
71 luaopen_lgettext(lua_State *L)
73 luaL_openlib(L, "GetText", gettext_methods, 0);