have mkenvdata() process additional information to be used in TEI output

1 files changed, 24 insertions, 5 deletions

diff --git a/ekdosis.dtx b/ekdosis.dtx
index c244e32..f69d083 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -1173,6 +1173,7 @@ local function gsub(s, patt, repl)
 end
 
 -- some basic patterns:
+local letters = lpeg.R("az", "AZ")
 local ascii = lpeg.R("az", "AZ", "@@")
 local dblbkslash = lpeg.Cs("\\")
 local bsqbrackets = lpeg.Cs{ "[" * ((1 - lpeg.S"[]") + lpeg.V(1))^0 * "]" }
@@ -1996,17 +1997,35 @@ local aligned_texts = {}
 local texts_w_apparatus = {}
 local coldata_totei = {}
 
+local function sanitize_envdata(str)  -- look for a better way to achieve this
+   str = string.gsub(str, "(%a+)%s+(%b[])", "%1%2")
+   str = string.gsub(str, "(%a+)(%b[])%s+", "%1%2")
+   str = string.gsub(str, "%s+(%a+)(%b[])", "%1%2")
+   str = gsub(str, lpeg.Cs(letters^1)
+                 * spcenc^-1
+                 * -bsqbrackets
+                 * lpeg.Cs(";"), "%1[]%2")
+   str = string.gsub(str, "%s+(%a+)(%b[])", "%1%2")
+   return str
+end
+
 function ekdosis.mkenvdata(str, opt)
-   str = str ..";"
-   str = string.gsub(str, "%s+", "")
+   if not string.find(str, "%;", -1) then str = str .. ";" else end
+   --   str = str ..";"
+   --   str = string.gsub(str, "%s+", "")
    local fieldstart = 1
    local col = 0
    if opt == "texts" then
+      str = sanitize_envdata(str)
       repeat
-         local nexti = string.find(str, "%;", fieldstart)
-         table.insert(aligned_texts, { text = string.sub(str, fieldstart, nexti-1),
+         local _s, nexti = string.find(str, "%b[]%s-%;", fieldstart)
+         local namediv = string.gsub(string.sub(str, fieldstart, nexti-1), "(%a+)%s-(%b[])", "%1")
+         local attr = string.gsub(string.sub(str, fieldstart, nexti-1), "(%a+)%s-(%b[])", "%2")
+         attr = string.sub(attr, 2, -2)
+         table.insert(aligned_texts, { text = namediv,
+                                       attribute = attr,
                                        column = col })
-         table.insert(coldata_totei, { environment = string.sub(str, fieldstart, nexti-1),
+         table.insert(coldata_totei, { environment = namediv,
                                        data = {} })
          col = col + 1
          fieldstart = nexti + 1