From a0dc11d37df3db4be64be1a258c69e449b9a8faf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marcel=20Fabian=20Kr=C3=BCger?= <tex@2krueger.de>
Date: Mon, 31 May 2021 12:42:51 +0200
Subject: [PATCH] Rename and rewrite pdfTeX stuff

---
 .gitignore                                    |   5 +
 emulated_nodes.lua => pdfmml-emulate-node.lua |   0
 pdfmml-logreader.lua                          |  26 +++
 parse_showlists.lua => pdfmml-showlists.lua   |   0
 showlists_test.lua                            | 180 ++----------------
 5 files changed, 45 insertions(+), 166 deletions(-)
 create mode 100644 .gitignore
 rename emulated_nodes.lua => pdfmml-emulate-node.lua (100%)
 create mode 100644 pdfmml-logreader.lua
 rename parse_showlists.lua => pdfmml-showlists.lua (100%)
 mode change 100644 => 100755 showlists_test.lua

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..19c2c43
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,5 @@
+/build/
+*.aux
+*.log
+*.pdf
+*.xml
diff --git a/emulated_nodes.lua b/pdfmml-emulate-node.lua
similarity index 100%
rename from emulated_nodes.lua
rename to pdfmml-emulate-node.lua
diff --git a/pdfmml-logreader.lua b/pdfmml-logreader.lua
new file mode 100644
index 0000000..d211d56
--- /dev/null
+++ b/pdfmml-logreader.lua
@@ -0,0 +1,26 @@
+local l = lpeg or require'lpeg'
+
+local line = (1-l.P'\n')^0 * '\n'
+
+local list_block = (l.C(l.S'\\._^/ps' * (1-l.P'\n')^0)^-1 * '\n')^0
+local math_lists_block = l.Ct('### ' * l.Cg(l.C'display' * ' ', 'display')^-1 * 'math mode entered at line ' * l.Cg(l.R'09'^1 / tonumber, 'line') * '\n'
+                       * list_block)^1
+local generic_list_block = '### ' * line * list_block
+local luamml_block = l.Ct('LUAMML_META_BEGIN\n\n'
+ * (math_lists_block + generic_list_block/0)^0
+ * (line - 'LUAMML_META_END\n')^0
+ * 'LUAMML_META_END\n')
+local log_file = l.Ct((luamml_block + line)^0)
+
+return function(filename)
+  local f
+  if filename and filename ~= '-' then
+    local msg f, msg = assert(io.open(filename, 'r'))
+    if not f then return f, msg end
+  end
+  local content = (f or io.stdin):read'a'
+  if f then f:close() end
+  -- The following does *not* end with * -1 since we want to allow the last line to not end with \n.
+  -- In that case we ignore the last line, but that's safe since the last line never contains our markers.
+  return assert(log_file:match(content))
+end
diff --git a/parse_showlists.lua b/pdfmml-showlists.lua
similarity index 100%
rename from parse_showlists.lua
rename to pdfmml-showlists.lua
diff --git a/showlists_test.lua b/showlists_test.lua
old mode 100644
new mode 100755
index 5c25b00..d5849a3
--- a/showlists_test.lua
+++ b/showlists_test.lua
@@ -1,4 +1,5 @@
-require'emulated_nodes'
+#!/usr/bin/env texlua
+require'pdfmml-emulate-node'
 local convert = require'luamml-convert'
 local mappings = require'luamml-legacy-mappings'
 local to_xml = require'luamml-xmlwriter'
@@ -6,175 +7,22 @@ convert.register_family(1, mappings.oml)
 convert.register_family(2, mappings.oms)
 convert.register_family(3, mappings.omx)
 
-local parse_showlists = require'parse_showlists'
-local l = lpeg or require'lpeg'
+local parse_showlists = require'pdfmml-showlists'
+local parse_log = require'pdfmml-logreader'
 
-local line = (1-l.P'\n')^0 * '\n'
-local Cline = l.C((1-l.P'\n')^0) * '\n'
-
-local list_block = (l.C(l.S'\\._^/ps' * (1-l.P'\n')^0)^-1 * '\n')^0
-local math_lists_block = l.Ct('### ' * l.Cg(l.C'display' * ' ', 'display')^-1 * 'math mode entered at line ' * l.Cg(l.R'09'^1 / tonumber, 'line') * '\n'
-                       * list_block)^1
-local generic_list_block = '### ' * line * list_block
-local luamml_block = l.Ct('LUAMML_META_BEGIN\n\n'
- * (math_lists_block + generic_list_block/0)^0
- * (line - 'LUAMML_META_END\n')^0
- * 'LUAMML_META_END\n')
-
-local math_lists = (function()
-  local f = assert(io.open(arg[1], 'r'))
-  local content = f:read'a'
-  f:close()
-  -- The following does *not* end with * -1 since we want to allow the last line to not end with \n.
-  -- In that case we ignore the last line, but that's safe since the last line never contains our markers.
-  local log_file = l.Ct((luamml_block + line)^0)
-  return log_file:match(content)
-end)()
-local lines = l.Ct((l.C((1-l.P'\n')^0) * '\n')^0 * l.C(l.P(1)^1)^-1):match(
-[[\mathinner
-.\left"28300
-.\mathord
-..\fraction, thickness 0.0, left-delimiter "28300, right-delimiter "29301
-..\\mathord
-..\.\fam0 1
-../\mathord
-../.\fam0 1
-.\mathord
-..\fam1 x
-._\mathord
-._.\fam0 1
-._\mathord
-._.\fam1 =
-._\mathord
-._.\fam0 2
-.\mathchoice
-.D\mathord
-.D.\fam1 d
-.D\mathord
-.D.\fam1 i
-.D\mathord
-.D.\fam1 s
-.D\mathord
-.D.\fam1 p
-.D\mathord
-.D.\fam1 l
-.D\mathord
-.D.\fam1 a
-.D\mathord
-.D.\fam1 y
-.D\scriptstyle
-.D\mathord
-.D.\fam1 a
-.D\mathord
-.D.\fam1 b
-.D\mathord
-.D.\fam1 c
-.T\mathord
-.T.\fam1 t
-.T\mathord
-.T.\fam1 e
-.T\mathord
-.T.\fam1 x
-.T\mathord
-.T.\fam1 t
-.T\scriptscriptstyle
-.T\mathord
-.T.\fam1 a
-.T\mathord
-.T.\fam1 b
-.T\mathord
-.T.\fam1 c
-.S\mathord
-.S.\fam1 s
-.S\mathord
-.S.\fam1 c
-.S\mathord
-.S.\fam1 r
-.S\mathord
-.S.\fam1 i
-.S\mathord
-.S.\fam1 p
-.S\mathord
-.S.\fam1 t
-.S\textstyle
-.S\mathord
-.S.\fam1 a
-.S\mathord
-.S.\fam1 b
-.S\mathord
-.S.\fam1 c
-.s\mathord
-.s.\fam1 s
-.s\mathord
-.s.\fam1 c
-.s\mathord
-.s.\fam1 r
-.s\mathord
-.s.\fam1 i
-.s\mathord
-.s.\fam1 p
-.s\mathord
-.s.\fam1 t
-.s\mathord
-.s.\fam1 s
-.s\mathord
-.s.\fam1 c
-.s\mathord
-.s.\fam1 r
-.s\mathord
-.s.\fam1 i
-.s\mathord
-.s.\fam1 p
-.s\mathord
-.s.\fam1 t
-.s\displaystyle
-.s\mathord
-.s.\fam1 a
-.s\mathord
-.s.\fam1 b
-.s\mathord
-.s.\fam1 c
-.\mathbin
-..\fam0 +
-.\accent\fam0 _
-..\fam1 z
-._\fam0 0
-.\right"29301
-\mathrel
-.\fam0 =
-\mathop\nolimits
-.\fam3 P
-^\fam0 1
-_\mathord
-_.\fam1 i
-_\mathrel
-_.\fam0 =
-_\mathord
-_.\fam0 1
-\mathord
-.\fraction, thickness = default
-.\\mathbin
-.\.\fam2 ^^@
-.\\mathord
-.\.\fam1 p
-.\\mathbin
-.\.\fam2 ^^F
-.\\radical"270370
-.\.\mathord
-.\..\fam1 p
-.\.\mathbin
-.\..\fam2 ^^@
-.\.\mathord
-.\..\fam0 4
-.\.\mathord
-.\..\fam1 q
-./\mathord
-./.\fam0 2
-]])
+if #arg < 1 then
+  io.stderr:write(string.format('Usage: %0 {logname} \n', arg[0]))
+  os.exit(1)
+end
+local math_lists = assert(parse_log(arg[1]))
 
+local out_stream = arg[2] and arg[2] ~= '-' and assert(io.open(arg[2], 'w')) or io.stdout
 for i, block in ipairs(math_lists) do
   block = block[1]
   local parsed = parse_showlists(block)
   local style = block.display and 0 or 2
-  print(to_xml(convert.make_root(convert.process(parsed, style), style)))
+  out_stream:write(
+    to_xml(convert.make_root(convert.process(parsed, style), style))
+  )
 end
+-- if ... then out_stream:close() end -- Don't bother since we terminate anyway