lua.getcodepage() for diagnostic purposes -- trunk (HH).

manual/luatex-tex.tex

@@ -113,6 +113,18 @@ checking some mechanism going haywire.
 
 \stopsubsection
 
+\startsubsection[title={Code page (Windows only)}]
+
+\libindex{getcodepage}
+
+The \type {getcodepage}  returns the value from  \type{GetOEMCP()} 
+(the current original equipment manufacturer (OEM) code page identifier for the operating system)
+and the value from \type{GetACP()} (the current Windows ANSI code page identifier for the operating system).
+
+\stopsubsection
+
+
+
 \stopsection
 
 \startsection[title={The \type {status} library}][library=status]

source/texk/web2c/luatexdir/ChangeLog

+2019-10-28 Luigi Scarso <luigi.scarso@gmail.com>
+    * New callback lua.getcodepage()  for diagnostic purposes.
+
+
 2019-10-25 Luigi Scarso <luigi.scarso@gmail.com>
     * Also support {oeps.foo} filenames in openin/out
 

source/texk/web2c/luatexdir/NEWS

@@ -7,6 +7,7 @@ First release of luahbtex / luajithbtex,
 luatex / luajittex with harfbuzz.
 Small bug fixes, code clean up and a couple of new primitives
 to match eTeX.
+A new callcback lua.getcodepage()  for diagnostic purposes.
 *** DROPPED the   "page_objnum_provider" callback, replaced with "page_order_index". ***
 See ChangeLog and the manual.
 

source/texk/web2c/luatexdir/lua/llualib.c

@@ -379,16 +379,29 @@ static int get_call_level(lua_State * L) /* hh */
     return 1;
 }
 
+static int get_code_page(lua_State *L)
+{
+# ifdef _WIN32
+    lua_pushinteger(L,(int) GetOEMCP());
+    lua_pushinteger(L,(int) GetACP());
+# else
+    lua_pushboolean(L,0);
+    lua_pushboolean(L,0);
+# endif
+    return 2;
+}
+
 static const struct luaL_Reg lualib[] = {
     /* *INDENT-OFF* */
-    {"getluaname",  get_luaname},
-    {"setluaname",  set_luaname},
+    {"getluaname", get_luaname},
+    {"setluaname", set_luaname},
     {"getbytecode", get_bytecode},
     {"setbytecode", set_bytecode},
-    {"newtable",    new_table},
+    {"newtable", new_table},
     {"get_functions_table",lua_functions_get_table},
-    {"getstacktop",get_stack_top},
+    {"getstacktop", get_stack_top},
     {"getcalllevel", get_call_level},
+    {"getcodepage", get_code_page },
     /* *INDENT-ON* */
     {NULL, NULL}                /* sentinel */
 };

source/texk/web2c/luatexdir/luatex_svnversion.h

-#define luatex_svn_revision 7211
+#define luatex_svn_revision 7215