pdftexcmds (28jun20)

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

4 files changed, 401 insertions, 0 deletions

diff --git a/Master/texmf-dist/doc/generic/pdftexcmds/README.md b/Master/texmf-dist/doc/generic/pdftexcmds/README.md
new file mode 100644
index 00000000000..8c1d58e1dc6
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pdftexcmds/README.md
@@ -0,0 +1,19 @@
+# pdftexcmds
+
+Version: 2020-06-27 v0.33
+
+pdftexcmds package for LaTeX
+
+LuaTeX provides most of the commands of pdfTeX 1.40. However
+a number of utility functions are removed. This package tries to fill
+the gap and implements some of the missing primitive using Lua.
+Also provides similar wrappers for XeLaTeX and other engines that provide
+these primitives, under possibly different names.
+
+
+## Copyright (C)
+* 2007, 2009-2011  Heiko Oberdiek
+* 2016-2020        Oberdiek Package Support Group
+
+## License
+LATEX Project Public License, version 1.3c or later.
diff --git a/Master/texmf-dist/doc/generic/pdftexcmds/pdftexcmds.bib b/Master/texmf-dist/doc/generic/pdftexcmds/pdftexcmds.bib
new file mode 100644
index 00000000000..68e24763eae
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pdftexcmds/pdftexcmds.bib
@@ -0,0 +1,7 @@
+@online{AndyThomas:Analog,
+  author={Thomas, Andy},
+  title={Analog of {\texttt{\csname textbackslash\endcsname}pdfelapsedtime} for
+      {\hologo{LuaTeX}} and {\hologo{XeTeX}}},
+  url={http://tex.stackexchange.com/a/32531},
+  urldate={2011-11-29},
+}
diff --git a/Master/texmf-dist/doc/generic/pdftexcmds/pdftexcmds.lua b/Master/texmf-dist/doc/generic/pdftexcmds/pdftexcmds.lua
new file mode 100644
index 00000000000..593ddced020
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pdftexcmds/pdftexcmds.lua
@@ -0,0 +1,375 @@
+-- 
+--  This is file `pdftexcmds.lua',
+--  generated with the docstrip utility.
+-- 
+--  The original source files were:
+-- 
+--  pdftexcmds.dtx  (with options: `lua')
+--  
+--  This is a generated file.
+--  
+--  Project: pdftexcmds
+--  Version: 2020-06-27 v0.33
+--  
+--  Copyright (C)
+--     2007, 2009-2011  Heiko Oberdiek
+--     2016-2019        Oberdiek Package Support Group
+--  
+--  This work may be distributed and/or modified under the
+--  conditions of the LaTeX Project Public License, either
+--  version 1.3c of this license or (at your option) any later
+--  version. This version of this license is in
+--     https://www.latex-project.org/lppl/lppl-1-3c.txt
+--  and the latest version of this license is in
+--     https://www.latex-project.org/lppl.txt
+--  and version 1.3 or later is part of all distributions of
+--  LaTeX version 2005/12/01 or later.
+--  
+--  This work has the LPPL maintenance status "maintained".
+--  
+--  The Current Maintainers of this work are
+--  Heiko Oberdiek and the Oberdiek Package Support Group
+--  https://github.com/ho-tex/pdftexcmds/issues
+--  
+--  The Base Interpreter refers to any `TeX-Format',
+--  because some files are installed in TDS:tex/generic//.
+--  
+--  This work consists of the main source file pdftexcmds.dtx
+--  and the derived files
+--     pdftexcmds.sty, pdftexcmds.pdf, pdftexcmds.ins, pdftexcmds.drv,
+--     pdftexcmds.lua.
+--  
+oberdiek = oberdiek or {}
+local pdftexcmds = oberdiek.pdftexcmds or {}
+oberdiek.pdftexcmds = pdftexcmds
+local systemexitstatus
+function pdftexcmds.getversion()
+  tex.write("2020-06-27 v0.33")
+end
+function pdftexcmds.strcmp(A, B)
+  if A == B then
+    tex.write("0")
+  elseif A < B then
+    tex.write("-1")
+  else
+    tex.write("1")
+  end
+end
+local function utf8_to_byte(str)
+  local i = 0
+  local n = string.len(str)
+  local t = {}
+  while i < n do
+    i = i + 1
+    local a = string.byte(str, i)
+    if a < 128 then
+      table.insert(t, string.char(a))
+    else
+      if a >= 192 and i < n then
+        i = i + 1
+        local b = string.byte(str, i)
+        if b < 128 or b >= 192 then
+          i = i - 1
+        elseif a == 194 then
+          table.insert(t, string.char(b))
+        elseif a == 195 then
+          table.insert(t, string.char(b + 64))
+        end
+      end
+    end
+  end
+  return table.concat(t)
+end
+function pdftexcmds.escapehex(str, mode)
+  if mode == "byte" then
+    str = utf8_to_byte(str)
+  end
+  tex.write((string.gsub(str, ".",
+    function (ch)
+      return string.format("%02X", string.byte(ch))
+    end
+  )))
+end
+function pdftexcmds.unescapehex(str, mode, patch)
+  local a = 0
+  local first = true
+  local result = {}
+  for i = 1, string.len(str), 1 do
+    local ch = string.byte(str, i)
+    if ch >= 48 and ch <= 57 then
+      ch = ch - 48
+    elseif ch >= 65 and ch <= 70 then
+      ch = ch - 55
+    elseif ch >= 97 and ch <= 102 then
+      ch = ch - 87
+    else
+      ch = nil
+    end
+    if ch then
+      if first then
+        a = ch * 16
+        first = false
+      else
+        table.insert(result, a + ch)
+        first = true
+      end
+    end
+  end
+  if not first then
+    table.insert(result, a)
+  end
+  if patch == 1 then
+    local temp = {}
+    for i, a in ipairs(result) do
+      if a == 0 then
+        table.insert(temp, 1)
+        table.insert(temp, 1)
+      else
+        if a == 1 then
+          table.insert(temp, 1)
+          table.insert(temp, 2)
+        else
+          table.insert(temp, a)
+        end
+      end
+    end
+    result = temp
+  end
+  if mode == "byte" then
+    local utf8 = {}
+    for i, a in ipairs(result) do
+      if a < 128 then
+        table.insert(utf8, a)
+      else
+        if a < 192 then
+          table.insert(utf8, 194)
+          a = a - 128
+        else
+          table.insert(utf8, 195)
+          a = a - 192
+        end
+        table.insert(utf8, a + 128)
+      end
+    end
+    result = utf8
+  end
+  local unpack = _G["unpack"] or table.unpack
+  tex.settoks(pdftexcmds.toks, string.char(unpack(result)))
+end
+function pdftexcmds.escapestring(str, mode)
+  if mode == "byte" then
+    str = utf8_to_byte(str)
+  end
+  tex.write((string.gsub(str, ".",
+    function (ch)
+      local b = string.byte(ch)
+      if b < 33 or b > 126 then
+        return string.format("\\%.3o", b)
+      end
+      if b == 40 or b == 41 or b == 92 then
+        return "\\" .. ch
+      end
+      return nil
+    end
+  )))
+end
+function pdftexcmds.escapename(str, mode)
+  if mode == "byte" then
+    str = utf8_to_byte(str)
+  end
+  tex.write((string.gsub(str, ".",
+    function (ch)
+      local b = string.byte(ch)
+      if b == 0 then
+        return ""
+      end
+      if b <= 32 or b >= 127
+          or b == 35 or b == 37 or b == 40 or b == 41
+          or b == 47 or b == 60 or b == 62 or b == 91
+          or b == 93 or b == 123 or b == 125 then
+        return string.format("#%.2X", b)
+      else
+        return nil
+      end
+    end
+  )))
+end
+function pdftexcmds.filesize(filename)
+  local foundfile = kpse.find_file(filename, "tex", true)
+  if foundfile then
+    local size = lfs.attributes(foundfile, "size")
+    if size then
+      tex.write(size)
+    end
+  end
+end
+function pdftexcmds.filemoddate(filename)
+  local foundfile = kpse.find_file(filename, "tex", true)
+  if foundfile then
+    local date = lfs.attributes(foundfile, "modification")
+    if date then
+      local d = os.date("*t", date)
+      if d.sec >= 60 then
+        d.sec = 59
+      end
+      local u = os.date("!*t", date)
+      local off = 60 * (d.hour - u.hour) + d.min - u.min
+      if d.year ~= u.year then
+        if d.year > u.year then
+          off = off + 1440
+        else
+          off = off - 1440
+        end
+      elseif d.yday ~= u.yday then
+        if d.yday > u.yday then
+          off = off + 1440
+        else
+          off = off - 1440
+        end
+      end
+      local timezone
+      if off == 0 then
+        timezone = "Z"
+      else
+        local hours = math.floor(off / 60)
+        local mins = math.abs(off - hours * 60)
+        timezone = string.format("%+03d'%02d'", hours, mins)
+      end
+      tex.write(string.format("D:%04d%02d%02d%02d%02d%02d%s",
+          d.year, d.month, d.day, d.hour, d.min, d.sec, timezone))
+    end
+  end
+end
+function pdftexcmds.filedump(offset, length, filename)
+  length = tonumber(length)
+  if length and length > 0 then
+    local foundfile = kpse.find_file(filename, "tex", true)
+    if foundfile then
+      offset = tonumber(offset)
+      if not offset then
+        offset = 0
+      end
+      local filehandle = io.open(foundfile, "rb")
+      if filehandle then
+        if offset > 0 then
+          filehandle:seek("set", offset)
+        end
+        local dump = filehandle:read(length)
+        pdftexcmds.escapehex(dump)
+        filehandle:close()
+      end
+    end
+  end
+end
+function pdftexcmds.mdfivesum(str, mode)
+  if mode == "byte" then
+    str = utf8_to_byte(str)
+  end
+  pdftexcmds.escapehex(md5.sum(str))
+end
+function pdftexcmds.filemdfivesum(filename)
+  local foundfile = kpse.find_file(filename, "tex", true)
+  if foundfile then
+    local filehandle = io.open(foundfile, "rb")
+    if filehandle then
+      local contents = filehandle:read("*a")
+      pdftexcmds.escapehex(md5.sum(contents))
+      filehandle:close()
+    end
+  end
+end
+local basetime = 0
+function pdftexcmds.resettimer()
+  basetime = os.clock()
+end
+function pdftexcmds.elapsedtime()
+  local val = (os.clock() - basetime) * 65536 + .5
+  if val > 2147483647 then
+    val = 2147483647
+  end
+  tex.write(string.format("%d", math.floor(val)))
+end
+function pdftexcmds.shellescape()
+  if os.execute then
+    if status
+        and status.luatex_version
+        and status.luatex_version >= 68 then
+      tex.write(os.execute())
+    else
+      local result = os.execute()
+      if result == 0 then
+        tex.write("0")
+      else
+        if result == nil then
+          tex.write("0")
+        else
+          tex.write("1")
+        end
+      end
+    end
+  else
+    tex.write("0")
+  end
+end
+function pdftexcmds.system(cmdline)
+  systemexitstatus = nil
+  texio.write_nl("log", "system(" .. cmdline .. ") ")
+  if os.execute then
+    texio.write("log", "executed.")
+    systemexitstatus = os.execute(cmdline)
+  else
+    texio.write("log", "disabled.")
+  end
+end
+function pdftexcmds.lastsystemstatus()
+  local result = tonumber(systemexitstatus)
+  if result then
+    local x = math.floor(result / 256)
+    tex.write(result - 256 * math.floor(result / 256))
+  end
+end
+function pdftexcmds.lastsystemexit()
+  local result = tonumber(systemexitstatus)
+  if result then
+    tex.write(math.floor(result / 256))
+  end
+end
+function pdftexcmds.pipe(cmdline, patch)
+  local result
+  systemexitstatus = nil
+  texio.write_nl("log", "pipe(" .. cmdline ..") ")
+  if io.popen then
+    texio.write("log", "executed.")
+    local handle = io.popen(cmdline, "r")
+    if handle then
+      result = handle:read("*a")
+      handle:close()
+    end
+  else
+    texio.write("log", "disabled.")
+  end
+  if result then
+    if patch == 1 then
+      local temp = {}
+      for i, a in ipairs(result) do
+        if a == 0 then
+          table.insert(temp, 1)
+          table.insert(temp, 1)
+        else
+          if a == 1 then
+            table.insert(temp, 1)
+            table.insert(temp, 2)
+          else
+            table.insert(temp, a)
+          end
+        end
+      end
+      result = temp
+    end
+    tex.settoks(pdftexcmds.toks, result)
+  else
+    tex.settoks(pdftexcmds.toks, "")
+  end
+end
+-- 
+--  End of File `pdftexcmds.lua'.
diff --git a/Master/texmf-dist/doc/generic/pdftexcmds/pdftexcmds.pdf b/Master/texmf-dist/doc/generic/pdftexcmds/pdftexcmds.pdf
new file mode 100644
index 00000000000..67c62c826a4
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pdftexcmds/pdftexcmds.pdf