luamplib (1aug15)

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

5 files changed, 160 insertions, 52 deletions

diff --git a/Master/texmf-dist/doc/luatex/luamplib/NEWS b/Master/texmf-dist/doc/luatex/luamplib/NEWS
index 42ae5d1da71..1bcb63b7d11 100644
--- a/Master/texmf-dist/doc/luatex/luamplib/NEWS
+++ b/Master/texmf-dist/doc/luatex/luamplib/NEWS
@@ -1,5 +1,15 @@
                        History of the luamplib package
 
+2015/08/01 2.11.0
+    * after `\mplibverbatim{enable}', contents of mplibcode environment
+      will be read verbatim. So `btex ... etex', `verbatimtex ... etex',
+      `\mpdim', `\mpcolor' are not allowed and all TeX commands will be
+      fed literally into mplib library.
+    * allow access to type1 fonts, which means we can use glyph
+      operator now (luatex rev 5266)
+    * color transparency is now compatible with pgf package and
+      beamer class as well. (luatex 0.80+ is recommended)
+
 2015/03/26 2.10.1
     * fix bug #55 regarding hash token
 
diff --git a/Master/texmf-dist/doc/luatex/luamplib/luamplib.pdf b/Master/texmf-dist/doc/luatex/luamplib/luamplib.pdf
index d11d93844da..7fe77b27376 100644
--- a/Master/texmf-dist/doc/luatex/luamplib/luamplib.pdf
+++ b/Master/texmf-dist/doc/luatex/luamplib/luamplib.pdf
diff --git a/Master/texmf-dist/source/luatex/luamplib/luamplib.dtx b/Master/texmf-dist/source/luatex/luamplib/luamplib.dtx
index 8d4613526e7..a7d085f3a93 100644
--- a/Master/texmf-dist/source/luatex/luamplib/luamplib.dtx
+++ b/Master/texmf-dist/source/luatex/luamplib/luamplib.dtx
@@ -85,7 +85,7 @@ See source file '\inFileName' for licencing and contact information.
 %<*driver>
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesFile{luamplib.drv}%
-  [2015/03/26 v2.10.1 Interface for using the mplib library]%
+  [2015/08/01 v2.11.0 Interface for using the mplib library]%
 \documentclass{ltxdoc}
 \usepackage{metalogo,multicol,mdwlist,fancyvrb,xspace}
 \usepackage[x11names]{xcolor}
@@ -154,7 +154,7 @@ See source file '\inFileName' for licencing and contact information.
 % \author{Hans Hagen, Taco Hoekwater, Elie Roux, Philipp Gesang and Kim Dohyun\\
 % Maintainer: LuaLaTeX Maintainers ---
 % Support: \email{lualatex-dev@tug.org}}
-% \date{2015/03/26 v2.10.1}
+% \date{2015/08/01 v2.11.0}
 %
 % \maketitle
 %
@@ -328,6 +328,10 @@ See source file '\inFileName' for licencing and contact information.
 %     draw fullcircle scaled 2u;
 %   \endmplibcode
 %   \end{verbatim}
+% \item Starting with v2.11, users can issue |\mplibverbatim{enable}|, after which
+%   the contents of mplibcode environment will be read verbatim. As a result,
+%   users cannot use |btex| ... |etex|, |verbatimtex| ... |etex|, |\mpdim|, |\mpcolor|
+%   etc. All \TeX\ commands are not expanded and will be fed literally into the mplib process. 
 % \item At the end of package loading, \textsf{luamplib} searches
 %   |luamplib.cfg| and, if found, reads the file in automatically.
 %   Frequently used settings such as \cs{everymplib} or \cs{mplibcachedir}
@@ -365,8 +369,8 @@ luamplib.lastlog  = ""
 
 local err, warn, info, log = luatexbase.provides_module({
   name          = "luamplib",
-  version       = "2.10.1",
-  date          = "2015/03/26",
+  version       = "2.11.0",
+  date          = "2015/08/01",
   description   = "Lua package to typeset Metapost with LuaTeX's MPLib.",
 })
 
@@ -386,6 +390,13 @@ local stringgmatch  = string.gmatch
 local stringexplode = string.explode
 local tableconcat   = table.concat
 local texsprint     = tex.sprint
+local textprint     = tex.tprint
+
+local texget      = tex.get
+local texset      = tex.set
+local texgettoks  = tex.gettoks
+local texsettoks  = tex.settoks
+local texgetbox   = tex.getbox
 
 local mplib = require ('mplib')
 local kpse  = require ('kpse')
@@ -628,10 +639,16 @@ local randomseed = nil
 
 local mpkpse = kpse.new("luatex", "mpost")
 
+local special_ftype = {
+  pfb = "type1 fonts",
+  enc = "enc files",
+}
+
 local function finder(name, mode, ftype)
   if mode == "w" then
     return name
   else
+    ftype = special_ftype[ftype] or ftype
     local file = mpkpse:find_file(name,ftype)
     if file then
       if not lfstouch or ftype ~= "mp" or noneedtoreplace[name] then
@@ -841,8 +858,12 @@ local function pdf_stopfigure()
   texsprint("\\mplibstoptoPDF")
 end
 
+%    \end{macrocode}
+%    |tex.tprint| and catcode regime -2, as sometimes |#| gets doubled
+%    in the argument of pdfliteral. --- modified by Kim
+%    \begin{macrocode}
 local function pdf_literalcode(fmt,...) -- table
-  texsprint(format("\\mplibtoPDF{%s}",format(fmt,...)))
+  textprint({"\\mplibtoPDF{"},{-2,format(fmt,...)},{"}"})
 end
 luamplib.pdf_literalcode = pdf_literalcode
 
@@ -1029,7 +1050,6 @@ def externalfigure primary filename =
   draw rawtextext("\includegraphics{"& filename &"}")
 enddef;
 def TEX = textext enddef;
-def fontmapfile primary filename = enddef;
 def specialVerbatimTeX (text t) = special "MPlibVerbTeX="&t; enddef;
 def normalVerbatimTeX  (text t) = special "PostMPlibVerbTeX="&t; enddef;
 let VerbatimTeX = specialVerbatimTeX;
@@ -1052,8 +1072,8 @@ enddef;
 luamplib.textextlabelpreamble = textextlabelpreamble
 
 local function protecttextext(data)
-  local everymplib    = tex.toks['everymplibtoks']    or ''
-  local everyendmplib = tex.toks['everyendmplibtoks'] or ''
+  local everymplib    = texgettoks('everymplibtoks')    or ''
+  local everyendmplib = texgettoks('everyendmplibtoks') or ''
   data = "\n" .. everymplib .."\n".. data .."\n".. everyendmplib
   data = stringgsub(data,"\r","\n")
   data = stringgsub(data, "\"[^\n]-\"",
@@ -1158,7 +1178,7 @@ local function processwithTEXboxes (data)
   local prepreamble = format("TEXBOX_:=%i;\n",num)
   while true do
     num = num + 1
-    local box = tex.box[num]
+    local box = texgetbox(num)
     if not box then break end
     prepreamble = format(
       "%sTEXBOX_wd_[%i]:=%f;\nTEXBOX_ht_[%i]:=%f;\nTEXBOX_dp_[%i]:=%f;\n",
@@ -1171,7 +1191,7 @@ local function processwithTEXboxes (data)
 end
 luamplib.processwithTEXboxes = processwithTEXboxes
 
-local pdfmode = tex.pdfoutput > 0 and true or false
+local pdfmode = texget("pdfoutput") > 0 and true or false
 
 local function start_pdf_code()
   if pdfmode then
@@ -1247,6 +1267,8 @@ local transparancy_modes = { [0] = "Normal",
   "Compatible",
 }
 
+local pgf_loaded
+
 local function update_tr_res(res,mode,opaq)
   local os = format("<</BM /%s/ca %.3f/CA %.3f/AIS false>>",mode,opaq,opaq)
   local on, new = update_pdfobjs(os)
@@ -1254,27 +1276,40 @@ local function update_tr_res(res,mode,opaq)
     if pdfmode then
       res = format("%s/MPlibTr%i %i 0 R",res,on,on)
     else
-      texsprint(format("\\special{pdf:put @MPlibTr<</MPlibTr%i%s>>}",on,os))
+      if pgf_loaded then
+        texsprint(format("\\csname pgf@sys@addpdfresource@extgs@plain\\endcsname{/MPlibTr%i%s}",on,os))
+      else
+        texsprint(format("\\special{pdf:put @MPlibTr<</MPlibTr%i%s>>}",on,os))
+      end
     end
   end
   return res,on
 end
 
 local function tr_pdf_pageresources(mode,opaq)
+  pgf_loaded = pgf_loaded or (newtoken and newtoken.create("pgfutil@everybye").cmdname == "assign_toks")
   local res, on_on, off_on = "", nil, nil
   res, off_on = update_tr_res(res, "Normal", 1)
   res, on_on  = update_tr_res(res, mode, opaq)
   if pdfmode then
     if res ~= "" then
-      local tpr = tex.pdfpageresources -- respect luaotfload-colors
-      if not stringfind(tpr,"/ExtGState<<.*>>") then
-        tpr = tpr.."/ExtGState<<>>"
+      local tpr = texget("pdfpageresources") -- respect luaotfload-colors
+      local no_extgs = not stringfind(tpr,"/ExtGState<<.*>>")
+      local pgf_pdf_loaded = no_extgs and pgf_loaded
+      if pgf_pdf_loaded then
+        texsprint(format("\\csname pgf@sys@addpdfresource@extgs@plain\\endcsname{%s}",res))
+      else
+        if no_extgs then
+          tpr = tpr.."/ExtGState<<>>"
+        end
+        tpr = stringgsub(tpr,"/ExtGState<<","%1"..res)
+        texset("global","pdfpageresources",tpr)
       end
-      tpr = stringgsub(tpr,"/ExtGState<<","%1"..res)
-      tex.set("global","pdfpageresources",tpr)
     end
   else
-    texsprint(format("\\special{pdf:put @resources<</ExtGState @MPlibTr>>}"))
+    if not pgf_loaded then
+      texsprint(format("\\special{pdf:put @resources<</ExtGState @MPlibTr>>}"))
+    end
   end
   return on_on, off_on
 end
@@ -1653,12 +1688,12 @@ luamplib.colorconverter = colorconverter
 %
 %    \begin{macrocode}
 \bgroup\expandafter\expandafter\expandafter\egroup
-\expandafter\ifx\csname ProvidesPackage\endcsname\relax
+\expandafter\ifx\csname selectfont\endcsname\relax
   \input luatexbase-modutils.sty
 \else
   \NeedsTeXFormat{LaTeX2e}
   \ProvidesPackage{luamplib}
-    [2015/03/26 v2.10.1 mplib package for LuaTeX]
+    [2015/08/01 v2.11.0 mplib package for LuaTeX]
   \RequirePackage{luatexbase-modutils}
 \fi
 %    \end{macrocode}
@@ -1731,10 +1766,14 @@ luamplib.colorconverter = colorconverter
 }
 \long\def\mplibdocode#1\endmplibcode{%
   \endgroup
-  \edef\mplibtemp{\directlua{luamplib.protecttextext([===[\unexpanded{#1}]===])}}%
-  \directlua{ tex.sprint(luamplib.mpxcolors) }%
-  \directlua{luamplib.tempdata = luamplib.makeTEXboxes([===[\mplibtemp]===])}%
-  \directlua{luamplib.processwithTEXboxes(luamplib.tempdata)}%
+  \ifdefined\mplibverbatimYes
+    \directlua{luamplib.process([===[\the\everymplibtoks\detokenize{#1}\the\everyendmplibtoks]===],true)}%
+  \else
+    \edef\mplibtemp{\directlua{luamplib.protecttextext([===[\unexpanded{#1}]===])}}%
+    \directlua{ tex.sprint(luamplib.mpxcolors) }%
+    \directlua{luamplib.tempdata = luamplib.makeTEXboxes([===[\mplibtemp]===])}%
+    \directlua{luamplib.processwithTEXboxes(luamplib.tempdata)}%
+  \fi
   \endgroup
   \ifnum\mplibstartlineno<\inputlineno\expandafter\mplibreplacenewlinecs\fi
 }
@@ -1758,10 +1797,14 @@ luamplib.colorconverter = colorconverter
   \endgroup
   \toks@\expandafter{\the\toks@#1}%
   \def\mplibtemp@a{#2}\ifx\mplib@mplibcode\mplibtemp@a
-    \edef\mplibtemp{\directlua{luamplib.protecttextext([===[\the\toks@]===])}}%
-    \directlua{ tex.sprint(luamplib.mpxcolors) }%
-    \directlua{luamplib.tempdata=luamplib.makeTEXboxes([===[\mplibtemp]===])}%
-    \directlua{luamplib.processwithTEXboxes(luamplib.tempdata)}%
+    \ifdefined\mplibverbatimYes
+      \directlua{luamplib.process([===[\the\everymplibtoks\the\toks@\the\everyendmplibtoks]===],true)}%
+    \else
+      \edef\mplibtemp{\directlua{luamplib.protecttextext([===[\the\toks@]===])}}%
+      \directlua{ tex.sprint(luamplib.mpxcolors) }%
+      \directlua{luamplib.tempdata=luamplib.makeTEXboxes([===[\mplibtemp]===])}%
+      \directlua{luamplib.processwithTEXboxes(luamplib.tempdata)}%
+    \fi
     \end{mplibcode}%
     \ifnum\mplibstartlineno<\inputlineno
       \expandafter\expandafter\expandafter\mplibreplacenewlinebr
@@ -1771,6 +1814,16 @@ luamplib.colorconverter = colorconverter
   \fi
 }
 \fi
+\def\mplibverbatim#1{%
+  \begingroup
+  \def\mplibtempa{#1}\def\mplibtempb{enable}%
+  \expandafter\endgroup
+  \ifx\mplibtempa\mplibtempb
+    \let\mplibverbatimYes\relax
+  \else
+    \let\mplibverbatimYes\undefined
+  \fi
+}
 %    \end{macrocode}
 %
 %    \cs{everymplib} \& \cs{everyendmplib}: macros redefining
diff --git a/Master/texmf-dist/tex/luatex/luamplib/luamplib.lua b/Master/texmf-dist/tex/luatex/luamplib/luamplib.lua
index 98abf0866d1..2b7db37bbd0 100644
--- a/Master/texmf-dist/tex/luatex/luamplib/luamplib.lua
+++ b/Master/texmf-dist/tex/luatex/luamplib/luamplib.lua
@@ -18,8 +18,8 @@ luamplib.lastlog  = ""
 
 local err, warn, info, log = luatexbase.provides_module({
   name          = "luamplib",
-  version       = "2.10.1",
-  date          = "2015/03/26",
+  version       = "2.11.0",
+  date          = "2015/08/01",
   description   = "Lua package to typeset Metapost with LuaTeX's MPLib.",
 })
 
@@ -33,6 +33,13 @@ local stringgmatch  = string.gmatch
 local stringexplode = string.explode
 local tableconcat   = table.concat
 local texsprint     = tex.sprint
+local textprint     = tex.tprint
+
+local texget      = tex.get
+local texset      = tex.set
+local texgettoks  = tex.gettoks
+local texsettoks  = tex.settoks
+local texgetbox   = tex.getbox
 
 local mplib = require ('mplib')
 local kpse  = require ('kpse')
@@ -258,10 +265,16 @@ local randomseed = nil
 
 local mpkpse = kpse.new("luatex", "mpost")
 
+local special_ftype = {
+  pfb = "type1 fonts",
+  enc = "enc files",
+}
+
 local function finder(name, mode, ftype)
   if mode == "w" then
     return name
   else
+    ftype = special_ftype[ftype] or ftype
     local file = mpkpse:find_file(name,ftype)
     if file then
       if not lfstouch or ftype ~= "mp" or noneedtoreplace[name] then
@@ -436,7 +449,7 @@ local function pdf_stopfigure()
 end
 
 local function pdf_literalcode(fmt,...) -- table
-  texsprint(format("\\mplibtoPDF{%s}",format(fmt,...)))
+  textprint({"\\mplibtoPDF{"},{-2,format(fmt,...)},{"}"})
 end
 luamplib.pdf_literalcode = pdf_literalcode
 
@@ -608,7 +621,6 @@ def externalfigure primary filename =
   draw rawtextext("\includegraphics{"& filename &"}")
 enddef;
 def TEX = textext enddef;
-def fontmapfile primary filename = enddef;
 def specialVerbatimTeX (text t) = special "MPlibVerbTeX="&t; enddef;
 def normalVerbatimTeX  (text t) = special "PostMPlibVerbTeX="&t; enddef;
 let VerbatimTeX = specialVerbatimTeX;
@@ -631,8 +643,8 @@ enddef;
 luamplib.textextlabelpreamble = textextlabelpreamble
 
 local function protecttextext(data)
-  local everymplib    = tex.toks['everymplibtoks']    or ''
-  local everyendmplib = tex.toks['everyendmplibtoks'] or ''
+  local everymplib    = texgettoks('everymplibtoks')    or ''
+  local everyendmplib = texgettoks('everyendmplibtoks') or ''
   data = "\n" .. everymplib .."\n".. data .."\n".. everyendmplib
   data = stringgsub(data,"\r","\n")
   data = stringgsub(data, "\"[^\n]-\"",
@@ -730,7 +742,7 @@ local function processwithTEXboxes (data)
   local prepreamble = format("TEXBOX_:=%i;\n",num)
   while true do
     num = num + 1
-    local box = tex.box[num]
+    local box = texgetbox(num)
     if not box then break end
     prepreamble = format(
       "%sTEXBOX_wd_[%i]:=%f;\nTEXBOX_ht_[%i]:=%f;\nTEXBOX_dp_[%i]:=%f;\n",
@@ -743,7 +755,7 @@ local function processwithTEXboxes (data)
 end
 luamplib.processwithTEXboxes = processwithTEXboxes
 
-local pdfmode = tex.pdfoutput > 0 and true or false
+local pdfmode = texget("pdfoutput") > 0 and true or false
 
 local function start_pdf_code()
   if pdfmode then
@@ -816,6 +828,8 @@ local transparancy_modes = { [0] = "Normal",
   "Compatible",
 }
 
+local pgf_loaded
+
 local function update_tr_res(res,mode,opaq)
   local os = format("<</BM /%s/ca %.3f/CA %.3f/AIS false>>",mode,opaq,opaq)
   local on, new = update_pdfobjs(os)
@@ -823,27 +837,40 @@ local function update_tr_res(res,mode,opaq)
     if pdfmode then
       res = format("%s/MPlibTr%i %i 0 R",res,on,on)
     else
-      texsprint(format("\\special{pdf:put @MPlibTr<</MPlibTr%i%s>>}",on,os))
+      if pgf_loaded then
+        texsprint(format("\\csname pgf@sys@addpdfresource@extgs@plain\\endcsname{/MPlibTr%i%s}",on,os))
+      else
+        texsprint(format("\\special{pdf:put @MPlibTr<</MPlibTr%i%s>>}",on,os))
+      end
     end
   end
   return res,on
 end
 
 local function tr_pdf_pageresources(mode,opaq)
+  pgf_loaded = pgf_loaded or (newtoken and newtoken.create("pgfutil@everybye").cmdname == "assign_toks")
   local res, on_on, off_on = "", nil, nil
   res, off_on = update_tr_res(res, "Normal", 1)
   res, on_on  = update_tr_res(res, mode, opaq)
   if pdfmode then
     if res ~= "" then
-      local tpr = tex.pdfpageresources -- respect luaotfload-colors
-      if not stringfind(tpr,"/ExtGState<<.*>>") then
-        tpr = tpr.."/ExtGState<<>>"
+      local tpr = texget("pdfpageresources") -- respect luaotfload-colors
+      local no_extgs = not stringfind(tpr,"/ExtGState<<.*>>")
+      local pgf_pdf_loaded = no_extgs and pgf_loaded
+      if pgf_pdf_loaded then
+        texsprint(format("\\csname pgf@sys@addpdfresource@extgs@plain\\endcsname{%s}",res))
+      else
+        if no_extgs then
+          tpr = tpr.."/ExtGState<<>>"
+        end
+        tpr = stringgsub(tpr,"/ExtGState<<","%1"..res)
+        texset("global","pdfpageresources",tpr)
       end
-      tpr = stringgsub(tpr,"/ExtGState<<","%1"..res)
-      tex.set("global","pdfpageresources",tpr)
     end
   else
-    texsprint(format("\\special{pdf:put @resources<</ExtGState @MPlibTr>>}"))
+    if not pgf_loaded then
+      texsprint(format("\\special{pdf:put @resources<</ExtGState @MPlibTr>>}"))
+    end
   end
   return on_on, off_on
 end
diff --git a/Master/texmf-dist/tex/luatex/luamplib/luamplib.sty b/Master/texmf-dist/tex/luatex/luamplib/luamplib.sty
index 3df40753ad1..55508dcfeaa 100644
--- a/Master/texmf-dist/tex/luatex/luamplib/luamplib.sty
+++ b/Master/texmf-dist/tex/luatex/luamplib/luamplib.sty
@@ -9,12 +9,12 @@
 %% See source file 'luamplib.dtx' for licencing and contact information.
 %% 
 \bgroup\expandafter\expandafter\expandafter\egroup
-\expandafter\ifx\csname ProvidesPackage\endcsname\relax
+\expandafter\ifx\csname selectfont\endcsname\relax
   \input luatexbase-modutils.sty
 \else
   \NeedsTeXFormat{LaTeX2e}
   \ProvidesPackage{luamplib}
-    [2015/03/26 v2.10.1 mplib package for LuaTeX]
+    [2015/08/01 v2.11.0 mplib package for LuaTeX]
   \RequirePackage{luatexbase-modutils}
 \fi
 \RequireLuaModule{luamplib}
@@ -60,10 +60,14 @@
 }
 \long\def\mplibdocode#1\endmplibcode{%
   \endgroup
-  \edef\mplibtemp{\directlua{luamplib.protecttextext([===[\unexpanded{#1}]===])}}%
-  \directlua{ tex.sprint(luamplib.mpxcolors) }%
-  \directlua{luamplib.tempdata = luamplib.makeTEXboxes([===[\mplibtemp]===])}%
-  \directlua{luamplib.processwithTEXboxes(luamplib.tempdata)}%
+  \ifdefined\mplibverbatimYes
+    \directlua{luamplib.process([===[\the\everymplibtoks\detokenize{#1}\the\everyendmplibtoks]===],true)}%
+  \else
+    \edef\mplibtemp{\directlua{luamplib.protecttextext([===[\unexpanded{#1}]===])}}%
+    \directlua{ tex.sprint(luamplib.mpxcolors) }%
+    \directlua{luamplib.tempdata = luamplib.makeTEXboxes([===[\mplibtemp]===])}%
+    \directlua{luamplib.processwithTEXboxes(luamplib.tempdata)}%
+  \fi
   \endgroup
   \ifnum\mplibstartlineno<\inputlineno\expandafter\mplibreplacenewlinecs\fi
 }
@@ -82,10 +86,14 @@
   \endgroup
   \toks@\expandafter{\the\toks@#1}%
   \def\mplibtemp@a{#2}\ifx\mplib@mplibcode\mplibtemp@a
-    \edef\mplibtemp{\directlua{luamplib.protecttextext([===[\the\toks@]===])}}%
-    \directlua{ tex.sprint(luamplib.mpxcolors) }%
-    \directlua{luamplib.tempdata=luamplib.makeTEXboxes([===[\mplibtemp]===])}%
-    \directlua{luamplib.processwithTEXboxes(luamplib.tempdata)}%
+    \ifdefined\mplibverbatimYes
+      \directlua{luamplib.process([===[\the\everymplibtoks\the\toks@\the\everyendmplibtoks]===],true)}%
+    \else
+      \edef\mplibtemp{\directlua{luamplib.protecttextext([===[\the\toks@]===])}}%
+      \directlua{ tex.sprint(luamplib.mpxcolors) }%
+      \directlua{luamplib.tempdata=luamplib.makeTEXboxes([===[\mplibtemp]===])}%
+      \directlua{luamplib.processwithTEXboxes(luamplib.tempdata)}%
+    \fi
     \end{mplibcode}%
     \ifnum\mplibstartlineno<\inputlineno
       \expandafter\expandafter\expandafter\mplibreplacenewlinebr
@@ -95,6 +103,16 @@
   \fi
 }
 \fi
+\def\mplibverbatim#1{%
+  \begingroup
+  \def\mplibtempa{#1}\def\mplibtempb{enable}%
+  \expandafter\endgroup
+  \ifx\mplibtempa\mplibtempb
+    \let\mplibverbatimYes\relax
+  \else
+    \let\mplibverbatimYes\undefined
+  \fi
+}
 \newtoks\everymplibtoks
 \newtoks\everyendmplibtoks
 \protected\def\everymplib{%