1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
local M = {}
local log = logging.new "xtpipes"
-- find if tex4ht.jar exists in a path
local function find_tex4ht_jar(path)
local jar_file = path .. "/tex4ht/bin/tex4ht.jar"
return mkutils.file_exists(jar_file)
end
-- return value of TEXMFROOT variable if it exists and if tex4ht.jar can be located inside
local function get_texmfroot()
-- user can set TEXMFROOT environmental variable as the last resort
local root_directories = {kpse.var_value("TEXMFROOT"), kpse.var_value("TEXMFDIST"), os.getenv("TEXMFROOT")}
for _, root in ipairs(root_directories) do
if root then
if find_tex4ht_jar(root) then return root end
-- TeX live locates files in texmf-dist subdirectory, but Miktex doesn't
local path = root .. "/texmf-dist"
if find_tex4ht_jar(path) then return path end
end
end
end
-- Miktex doesn't seem to set TeX variables such as TEXMFROOT
-- we will try to find the TeX root using trick with locating package in TeX root
-- there is a danger that this file is located in TEXMFHOME, the location will fail then
local function find_texmfroot()
local tex4ht_path = kpse.find_file("tex4ht.sty")
if tex4ht_path then
local path = tex4ht_path:gsub("/tex/generic/tex4ht/tex4ht.sty$","")
if find_tex4ht_jar(path) then return path end
end
return nil
end
function M.get_selfautoparent()
return get_texmfroot() or find_texmfroot()
end
function M.get_xtpipes(selfautoparent)
-- make pattern using TeX distro path
local pattern = string.format('java -classpath "%s/tex4ht/bin/tex4ht.jar" xtpipes -i "%s/tex4ht/xtpipes/" -o "${outputfile}" "${filename}"', selfautoparent, selfautoparent)
-- call xtpipes on a temporary file
local matchfunction = function(filename)
-- move the matched file to a temporary file, xtpipes will write it back to the original file
local basename = mkutils.remove_extension(filename)
local tmpfile = basename ..".tmp"
mkutils.mv(filename, tmpfile)
local command = pattern % {filename = tmpfile, outputfile = filename}
log:info("execute: " ..command)
local status, output = mkutils.execute(command)
if status > 0 then
-- if xtpipes failed to process the file, it may mean that it was bad-formed xml
-- we can try to make it well-formed using Tidy
local tidy_command = 'tidy -utf8 -xml -asxml -q -o "${filename}" "${tmpfile}"' % {tmpfile = tmpfile, filename = filename}
log:warning("Xtpipes failed")
-- show_level 1 is debug mode, which prints command output as well
-- we need this condition to prevent multiple instances of the output
if logging.show_level > 1 then
print(output)
end
log:warning("Trying HTML tidy")
log:debug(tidy_command)
local status, output = os.execute(tidy_command)
if status > 0 then
-- if tidy failed as well, just use the original file
-- it will probably produce corrupted ODT file though
log:warning("Tidy failed as well")
if logging.show_level > 1 then
print(output)
end
mkutils.mv(tmpfile, filename)
end
end
end
return matchfunction
end
-- This function moves the last added file matching function to the first place
-- in the execution order. This ensures that filters are executed in the
-- correct order.
function M.move_matches(make)
local matches = make.matches
local last = matches[#matches]
table.insert(matches, 1, last)
matches[#matches] = nil
end
M.get_texmfroot = get_texmfroot
M.find_texmfroot = find_texmfroot
M.find_tex4ht_jar = find_tex4ht_jar
return M
|
