texlive[43389] Build/source/texk/web2c/mfluadir/mfluac.c: mfluadir:

[commits+kakuto at tug.org]

Revision: 43389
          http://tug.org/svn/texlive?view=revision&revision=43389
Author:   kakuto
Date:     2017-03-03 10:18:52 +0100 (Fri, 03 Mar 2017)
Log Message:
-----------
mfluadir: sync with the upstream

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/mfluadir/mfluac.c

Modified: trunk/Build/source/texk/web2c/mfluadir/mfluac.c
===================================================================
--- trunk/Build/source/texk/web2c/mfluadir/mfluac.c	2017-03-03 01:05:59 UTC (rev 43388)
+++ trunk/Build/source/texk/web2c/mfluadir/mfluac.c	2017-03-03 09:18:52 UTC (rev 43389)
@@ -240,9 +240,23 @@
 }
 
 
+/* @ 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;
+}
 
+
+
+
 /* @ \MF\ also has a bunch of internal parameters that a user might want to      */
 /* fuss with. Every such parameter has an identifying code number, defined here. */
 /* Warning: these parameters must be the same of the original MF !!              */
@@ -657,6 +671,7 @@
   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);