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

git-svn-id: https://serveur-svn.lri.fr/svn/modhel/luatex/trunk@7219 0b2b3880-5936-4365-a048-eb17d2e5a6bf
TeX-Live · Oct 28, 2019 · a6d9152 · a6d9152
1 parent 142fc2d
commit a6d9152
Show file tree

Hide file tree

Showing 6 changed files with 35 additions and 5 deletions.
diff --git a/manual/luatex-tex.tex b/manual/luatex-tex.tex
@@ -113,6 +113,18 @@
 
 \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]

diff --git a/manual/luatex.pdf b/manual/luatex.pdf
diff --git a/source/texk/web2c/luatexdir/ChangeLog b/source/texk/web2c/luatexdir/ChangeLog
@@ -1,3 +1,7 @@
+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
 

diff --git a/source/texk/web2c/luatexdir/NEWS b/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.
 

diff --git a/source/texk/web2c/luatexdir/lua/llualib.c b/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 */
 };

diff --git a/source/texk/web2c/luatexdir/luatex_svnversion.h b/source/texk/web2c/luatexdir/luatex_svnversion.h
@@ -1 +1 @@
-#define luatex_svn_revision 7211
+#define luatex_svn_revision 7215
Original file line number	Diff line number	Diff line change
		@@ -1 +1 @@
		#define luatex_svn_revision 7211
		#define luatex_svn_revision 7215