Dear Robert, all,
many thanks indeed for the patches, I will incorporate them in the next
version.
Thank you very much!
I cannot test with 0.75, as the oberdiek bundle hasn't been
updated (right?), so I'll take your word for it.
I do not think so. If you want to test you can use the two attached
files. oberdiek.luatex.lua comes from a new unreleased version of the
oberdiek bundle, pdftexcmds.lua has just a raw fix by me. It's not
official but it's just in case you want to try.
Please tell me your feeling about this. Do you think you could make an
update for TeXLive 2013 (freezing on May 20th)?
There's one nasty bug I need to fix until then, but this seems doable.
Great! I heard the date of the package freeze will be around May 20th so
you still have time... The new luaotfload has a really active
development, and lots of good things appear in it, I hope we'll manage
to release it before the freeze...
Thank you,
--
Elie
--
-- This is file `oberdiek.luatex.lua',
-- generated with the docstrip utility.
--
-- The original source files were:
--
-- luatex.dtx (with options: `lua')
--
-- This is a generated file.
--
-- Project: luatex
-- Version: 2010/03/09 v0.4
--
-- Copyright (C) 2007, 2009, 2010 by
-- Heiko Oberdiek <heiko.oberdiek at googlemail.com>
--
-- 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
-- http://www.latex-project.org/lppl/lppl-1-3c.txt
-- and the latest version of this license is in
-- http://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".
--
-- This Current Maintainer of this work is Heiko Oberdiek.
--
-- 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 luatex.dtx
-- and the derived files
-- luatex.sty, luatex.pdf, luatex.ins, luatex.drv, luatex-loader.sty,
-- luatex-test1.tex, luatex-test2.tex, luatex-test3.tex,
-- luatex-test4.tex, luatex-test5.tex, oberdiek.luatex.lua.
--
module("oberdiek.luatex", package.seeall)
function kpse_module_loader(module)
local script = module .. ".lua"
local file = kpse.find_file(script, "texmfscripts")
if file then
local loader, error = loadfile(file)
if loader then
texio.write_nl("(" .. file .. ")")
return loader
end
return "\n\t[oberdiek.luatex.kpse_module_loader] Loading error:\n\t"
.. error
end
return "\n\t[oberdiek.luatex.kpse_module_loader] Search failed"
end
table.insert(package.searchers, kpse_module_loader)
--
-- End of File `oberdiek.luatex.lua'.
--
-- 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: 2011/11/29 v0.20
--
-- Copyright (C) 2007, 2009-2011 by
-- Heiko Oberdiek <heiko.oberdiek at googlemail.com>
--
-- 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
-- http://www.latex-project.org/lppl/lppl-1-3c.txt
-- and the latest version of this license is in
-- http://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".
--
-- This Current Maintainer of this work is Heiko Oberdiek.
--
-- 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.bib, pdftexcmds-test1.tex, pdftexcmds-test2.tex,
-- pdftexcmds-test-shell.tex, pdftexcmds-test-escape.tex,
-- oberdiek.pdftexcmds.lua, pdftexcmds.lua.
--
module("oberdiek.pdftexcmds", package.seeall)
local systemexitstatus
function getversion()
tex.write("2011/11/29 v0.20")
end
function 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 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 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(toks, string.char(unpack(result)))
end
function 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 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 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 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 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, "r")
if filehandle then
if offset > 0 then
filehandle:seek("set", offset)
end
local dump = filehandle:read(length)
escapehex(dump)
end
end
end
end
function mdfivesum(str, mode)
if mode == "byte" then
str = utf8_to_byte(str)
end
escapehex(md5.sum(str))
end
function filemdfivesum(filename)
local foundfile = kpse.find_file(filename, "tex", true)
if foundfile then
local filehandle = io.open(foundfile, "r")
if filehandle then
local contents = filehandle:read("*a")
escapehex(md5.sum(contents))
end
end
end
local basetime = 0
function resettimer()
basetime = os.clock()
end
function elapsedtime()
local val = (os.clock() - basetime) * 65536 + .5
if val > 2147483647 then
val = 2147483647
end
tex.write(string.format("%d", val))
end
function 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 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 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 lastsystemexit()
local result = tonumber(systemexitstatus)
if result then
tex.write(math.floor(result / 256))
end
end
function 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(toks, result)
else
tex.settoks(toks, "")
end
end
--
-- End of File `pdftexcmds.lua'.
