From 0e223aaa93c5ee0c0e937c23f75535269324d217 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 15 Nov 2019 03:00:48 +0000 Subject: CTAN sync 201911150300 --- macros/luatex/generic/luamplib/NEWS | 3 +++ macros/luatex/generic/luamplib/luamplib.dtx | 24 ++++++++++++++---------- macros/luatex/generic/luamplib/luamplib.pdf | Bin 149386 -> 149508 bytes 3 files changed, 17 insertions(+), 10 deletions(-) (limited to 'macros/luatex') diff --git a/macros/luatex/generic/luamplib/NEWS b/macros/luatex/generic/luamplib/NEWS index f1813b925e..338804cbd7 100644 --- a/macros/luatex/generic/luamplib/NEWS +++ b/macros/luatex/generic/luamplib/NEWS @@ -1,5 +1,8 @@ History of the luamplib package +2019/11/14 2.20.3 + * fix issue #86 (LaTeX command inside metapost label) + 2019/10/11 2.20.2 * fix issue #84 (pgf package hinders \mpcolor process) diff --git a/macros/luatex/generic/luamplib/luamplib.dtx b/macros/luatex/generic/luamplib/luamplib.dtx index 0ca8f9dbc5..c93ff8c829 100644 --- a/macros/luatex/generic/luamplib/luamplib.dtx +++ b/macros/luatex/generic/luamplib/luamplib.dtx @@ -1158,22 +1158,22 @@ luamplib.verbatiminput = false % \begin{macrocode} local function protect_expansion (str) if str then - str = str:gsub("\\","\1Control\1") - :gsub("%%","\1Comment\1") - :gsub("#", "\1HashSign\1") - :gsub("{", "\1LBrace\1") - :gsub("}", "\1RBrace\1") + str = str:gsub("\\","!!!Control!!!") + :gsub("%%","!!!Comment!!!") + :gsub("#", "!!!HashSign!!!") + :gsub("{", "!!!LBrace!!!") + :gsub("}", "!!!RBrace!!!") return format("\\unexpanded{%s}",str) end end local function unprotect_expansion (str) if str then - return str:gsub("\1Control\1", "\\") - :gsub("\1Comment\1", "%%") - :gsub("\1HashSign\1","#") - :gsub("\1LBrace\1", "{") - :gsub("\1RBrace\1", "}") + return str:gsub("!!!Control!!!", "\\") + :gsub("!!!Comment!!!", "%%") + :gsub("!!!HashSign!!!","#") + :gsub("!!!LBrace!!!", "{") + :gsub("!!!RBrace!!!", "}") end end @@ -1210,7 +1210,11 @@ local function process_mplibcode (data) % \begin{macrocode} if not luamplib.verbatiminput then data = data:gsub("\".-\"", protect_expansion) + + data = data:gsub("\\%%", "\0PerCent\0") data = data:gsub("%%.-\n","") + data = data:gsub("%zPerCent%z", "\\%%") + run_tex_code(format("\\mplibtmptoks\\expanded{{%s}}",data)) data = texgettoks"mplibtmptoks" % \end{macrocode} diff --git a/macros/luatex/generic/luamplib/luamplib.pdf b/macros/luatex/generic/luamplib/luamplib.pdf index 246a651787..8d3fc8f72b 100644 Binary files a/macros/luatex/generic/luamplib/luamplib.pdf and b/macros/luatex/generic/luamplib/luamplib.pdf differ -- cgit v1.2.3