mfluadir: sync with the upstream

git-svn-id: svn://tug.org/texlive/trunk@43389 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 15 insertions, 0 deletions

diff --git a/Build/source/texk/web2c/mfluadir/mfluac.c b/Build/source/texk/web2c/mfluadir/mfluac.c
index f98323bf267..ce1b6d477b8 100644
--- a/Build/source/texk/web2c/mfluadir/mfluac.c
+++ b/Build/source/texk/web2c/mfluadir/mfluac.c
@@ -240,6 +240,20 @@ static int priv_mfweb_LUAGLOBALGET_octant(lua_State *L)
 }
 
 
+/* @ The |make_spec| routine has an interesting side effect, namely to set */
+/* the global variable |turning_number| to the number of times the tangent */
+/* vector of the given cyclic path winds around the origin.                */
+
+
+/* @<Glob...@>=                                                            */
+/* @!turning_number:integer; {another output of |make_spec|}               */
+static int priv_mfweb_LUAGLOBALGET_turning_number(lua_State *L)
+{
+  integer p = turningnumber;
+  lua_pushnumber(L,p);
+  return 1;
+}
+
 
 
 
@@ -657,6 +671,7 @@ int mfluainitialize(void)
   lua_pushcfunction(L, priv_mfweb_LUAGLOBALGET_fillin);lua_setglobal(L,"LUAGLOBALGET_fillin");
   lua_pushcfunction(L, priv_mfweb_LUAGLOBALGET_turning_check);lua_setglobal(L,"LUAGLOBALGET_turning_check");
   lua_pushcfunction(L, priv_mfweb_LUAGLOBALGET_boundary_char);lua_setglobal(L,"LUAGLOBALGET_boundary_char");
+  lua_pushcfunction(L, priv_mfweb_LUAGLOBALGET_turning_number);lua_setglobal(L,"LUAGLOBALGET_turning_number");
   /* execute Lua external "mfluaini.lua" */
   res = luaL_loadfile(L, luafile);
   free (luafile);