summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Build/source/texk/web2c/mfluadir/mfluac.c15
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);