summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/mfluadir/mfluac.c
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2017-03-03 09:18:52 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2017-03-03 09:18:52 +0000
commit0326f4eebc178d105108d65f263a6d220eb76f10 (patch)
tree87cdfd257d1eb80b632d1265bd4dd307495550fb /Build/source/texk/web2c/mfluadir/mfluac.c
parentbe4f813ed7e4a8fe4c8d730d4edf267ed4075054 (diff)
mfluadir: sync with the upstream
git-svn-id: svn://tug.org/texlive/trunk@43389 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/mfluadir/mfluac.c')
-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);