new functions ekdosis.newscholar() and ekdosis.setxmlbibresource(); import .xml bib file into main TEI file

1 files changed, 48 insertions, 0 deletions

diff --git a/ekdosis.dtx b/ekdosis.dtx
index 7687345..690f8f5 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -399,6 +399,11 @@ idno={}, msName={}, origDate={}][3]{%
     \luastringN{#4})}
 }
 \@onlypreamble\DeclareNewHand
+\NewDocumentCommand{\DeclareNewScholar}{m m}{
+  \luadirect{ekdosis.newscholar(\luastringN{#1},
+    \luastringN{#2})}
+}
+\@onlypreamble\DeclareNewScholar
 \NewDocumentCommand{\getsiglum}{m}{%
   \luadirect{tex.sprint(ekdosis.getsiglum(\luastringN{#1}))}%
 }
@@ -420,6 +425,10 @@ idno={}, msName={}, origDate={}][3]{%
   \luadirect{ekdosis.setteifilename(\luastringN{#1})}
 }
 \@onlypreamble\SetTEIFileName
+\NewDocumentCommand{\SetxmlBibResource}{m}{
+  \luadirect{ekdosis.setxmlbibresource(\luastringN{#1})}
+}
+\@onlypreamble\SetxmlBibResource
 %    \end{macrocode}
 %    \begin{macrocode}
 \newbool{ekd@started}
@@ -748,6 +757,30 @@ function ekdosis.newhand(id, witid, siglum, description)
    return true
 end
 
+local xmlbibresource = nil
+
+function ekdosis.setxmlbibresource(str)
+   xmlbibresource = str..".xml"
+   return true
+end
+
+function ekdosis.newscholar(id, siglum)
+   if xmlidfound(id)
+   then
+      tex.print([[\unexpanded{\PackageWarning{ekdosis}{"]]
+         ..id..
+         [[" already exists as a xml:id. ]]
+         ..
+         [[Please pick another id.}}]])
+   else
+      table.insert(xmlids, {xmlid = id})
+      table.sort(xmlids, function(a ,b) return(#a.xmlid > #b.xmlid) end)
+      table.insert(idsRend, {xmlid = id, head = siglum})
+      table.sort(idsRend, function(a ,b) return(#a.xmlid > #b.xmlid) end)
+   end
+   return true
+end
+
 function ekdosis.getsiglum(str, opt)
    str = str..","
    str = string.gsub(str, "%s-(%,)", "%1")
@@ -876,6 +909,7 @@ end
 
 function ekdosis.openteistream()
    local f = io.open(teifilename.."_tmp.xml", "a+")
+   f:write('<?xml version="1.0" encoding="utf-8"?>', "\n")
    f:write("<TEI xmlns=\"http://www.tei-c.org/ns/1.0\">", "\n")
    f:write("<teiHeader>", "\n")
    f:write("<listWit>", "\n")
@@ -944,6 +978,20 @@ local tidy = nil
 function ekdosis.closeteistream(opt)
    local f = io.open(teifilename.."_tmp.xml", "a+")
    f:write("\n", "</body>", "\n")
+   if xmlbibresource ~= nil then
+      bibf = assert(io.open(xmlbibresource, "r"))
+      t = bibf:read("*a")
+      f:write("<back>", "\n")
+      f:write("<listBibl>", "\n")
+      for i in string.gmatch(t, "<biblStruct.->.-</biblStruct>")
+      do
+         f:write("\n", i, "\n")
+      end
+      f:write("</listBibl>", "\n")
+      f:write("</back>", "\n")
+      bibf:close()
+   else
+   end
    f:write("</text>", "\n")
    f:write("</TEI>", "\n")
    f:close()