luatexbase (4oct15)

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

1 files changed, 21 insertions, 6 deletions

diff --git a/Master/texmf-dist/source/luatex/luatexbase/luatexbase.dtx b/Master/texmf-dist/source/luatex/luatexbase/luatexbase.dtx
index 5dc0e37e520..a00e9481d15 100644
--- a/Master/texmf-dist/source/luatex/luatexbase/luatexbase.dtx
+++ b/Master/texmf-dist/source/luatex/luatexbase/luatexbase.dtx
@@ -30,7 +30,7 @@
 \ProvidesFile{luatexbase.dtx}
 %</driver>
 %<*tex,sty>
-[2015/10/03 v1.2
+[2015/10/04 v1.3
 %</tex,sty>
 %<emu>  luatexbase interface to LuaTeX
 %<emu-cmp>  luatexbase interface to LuaTeX (legacy subpackage)
@@ -259,7 +259,8 @@
 %
 % The returned functions are all instances of the functions provided by
 % the kernel: |module_error|,
-% |module_warning| and |module_info|.
+% |module_warning| and |module_info|, They all use their first argument
+% as a format string fo rany later arguments.
 %
 % \DescribeMacro{errwarinf}\meta{name}\\
 % Returns four error and warning functions associated with \meta{name}
@@ -547,14 +548,16 @@ luatexbase.is_active_callback = luatexbase.in_callback
 %
 % \textsf{ltluatex} implementation of |provides_module| does not return
 % print functions so define modified version here.
+% \changes{v1.3}{2015/10/03}{Use the first argument as a format string for
+%   later arguments}
 %    \begin{macrocode}
 luatexbase.base_provides_module=luatexbase.provides_module
 function luatexbase.errwarinf(name)
     return
-    function(s) return luatexbase.module_error(name, s) end,
-    function(s) return luatexbase.module_warning(name, s) end,
-    function(s) return luatexbase.module_info(name, s) end,
-    function(s) return luatexbase.module_info(name, s) end
+    function(s,...) return luatexbase.module_error(name, s:format(...)) end,
+    function(s,...) return luatexbase.module_warning(name, s:format(...)) end,
+    function(s,...) return luatexbase.module_info(name, s:format(...)) end,
+    function(s,...) return luatexbase.module_info(name, s:format(...)) end
 end
 function luatexbase.provides_module(info)
   luatexbase.base_provides_module(info)
@@ -583,6 +586,7 @@ end
   {\catcode`\%=12 \gdef\@percentchar{%}}
 \fi
 %    \end{macrocode}
+% \changes{v1.2a}{2015/10/03}{Add missing local definitions for whatsit code}
 %
 %    \begin{macrocode}
 %<*whatsit>
@@ -590,6 +594,17 @@ end
 %    \end{macrocode}
 %
 %    \begin{macrocode}
+local copynode          = node.copy
+local newnode           = node.new
+local nodesubtype       = node.subtype
+local nodetype          = node.id
+local stringformat      = string.format
+local tableunpack       = unpack or table.unpack
+local texiowrite_nl     = texio.write_nl
+local texiowrite        = texio.write
+local whatsit_t         = nodetype"whatsit"
+local user_defined_t    = nodesubtype"user_defined"
+local unassociated      = "__unassociated"
 local user_whatsits       = {  __unassociated = { } }
 local whatsit_ids         = { }
 local anonymous_whatsits  = 0