From 9de32ed90cefe239de0e878c5acb8cbc96b3eda5 Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Wed, 14 Oct 2020 18:54:25 +0200
Subject: insert a dummy statement in <sourceDesc> if no source has been
 declared

---
 ekdosis.dtx | 172 +++++++++++++++++++++++++++++++-----------------------------
 1 file changed, 90 insertions(+), 82 deletions(-)

diff --git a/ekdosis.dtx b/ekdosis.dtx
index e9247a1..f8c2dc8 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -8943,104 +8943,112 @@ function ekdosis.openteistream()
    f:write("<distributor><!-- Distributor name  --></distributor>", "\n")
    f:write("</publicationStmt>", "\n")
    f:write("<sourceDesc>", "\n")
-   f:write("<listWit>", "\n")
-   for i = 1,#listWit do
-      f:write('<witness xml:id=\"', listWit[i].xmlid, "\">", "\n")
-      f:write('<abbr type="siglum">', textotei(listWit[i].abbr), "</abbr>", "\n")
-      f:write(textotei(listWit[i].detailsDesc), "\n")
-      f:write("<msDesc>", "\n")
-      if listWit[i].msIdentifier.settlement == ""
-	 and listWit[i].msIdentifier.institution == ""
-	 and listWit[i].msIdentifier.repository == ""
-	 and listWit[i].msIdentifier.collection == ""
-	 and listWit[i].msIdentifier.idno == ""
-	 and listWit[i].msIdentifier.msName == ""
+   if next(listWit) == nil and next(listPerson) == nil
+   then
+      f:write("<p>No source, born digital</p>", "\n")
+   else
+      if next(listWit) ~= nil
       then
-	 f:write("<msIdentifier/>", "\n")
-      else
-	 f:write("<msIdentifier>", "\n")
-	 if listWit[i].msIdentifier.settlement ~= "" then
-	    f:write("<settlement>", textotei(listWit[i].msIdentifier.settlement), "</settlement>", "\n")
+	 f:write("<listWit>", "\n")
+	 for i = 1,#listWit do
+	    f:write('<witness xml:id=\"', listWit[i].xmlid, "\">", "\n")
+	    f:write('<abbr type="siglum">', textotei(listWit[i].abbr), "</abbr>", "\n")
+	    f:write(textotei(listWit[i].detailsDesc), "\n")
+	    f:write("<msDesc>", "\n")
+	    if listWit[i].msIdentifier.settlement == ""
+	       and listWit[i].msIdentifier.institution == ""
+	       and listWit[i].msIdentifier.repository == ""
+	       and listWit[i].msIdentifier.collection == ""
+	       and listWit[i].msIdentifier.idno == ""
+	       and listWit[i].msIdentifier.msName == ""
+	    then
+	       f:write("<msIdentifier/>", "\n")
+	    else
+	       f:write("<msIdentifier>", "\n")
+	       if listWit[i].msIdentifier.settlement ~= "" then
+		  f:write("<settlement>", textotei(listWit[i].msIdentifier.settlement), "</settlement>", "\n")
 	 else end
-	 if listWit[i].msIdentifier.institution ~= "" then
-	    f:write("<institution>", textotei(listWit[i].msIdentifier.institution), "</institution>", "\n")
+	       if listWit[i].msIdentifier.institution ~= "" then
+		  f:write("<institution>", textotei(listWit[i].msIdentifier.institution), "</institution>", "\n")
 	 else end
-	 if listWit[i].msIdentifier.repository ~= "" then
-	    f:write("<repository>", textotei(listWit[i].msIdentifier.repository), "</repository>", "\n")
+	       if listWit[i].msIdentifier.repository ~= "" then
+		  f:write("<repository>", textotei(listWit[i].msIdentifier.repository), "</repository>", "\n")
 	 else end
-	 if listWit[i].msIdentifier.collection ~= "" then
-	    f:write("<collection>", textotei(listWit[i].msIdentifier.collection), "</collection>", "\n")
+	       if listWit[i].msIdentifier.collection ~= "" then
+		  f:write("<collection>", textotei(listWit[i].msIdentifier.collection), "</collection>", "\n")
 	 else end
-	 if listWit[i].msIdentifier.idno ~= "" then
-	    f:write("<idno>", textotei(listWit[i].msIdentifier.idno), "</idno>", "\n")
+	       if listWit[i].msIdentifier.idno ~= "" then
+		  f:write("<idno>", textotei(listWit[i].msIdentifier.idno), "</idno>", "\n")
 	 else end
-	 if listWit[i].msIdentifier.msName ~= "" then
-	    f:write("<msName>", textotei(listWit[i].msIdentifier.msName), "</msName>", "\n")
+	       if listWit[i].msIdentifier.msName ~= "" then
+		  f:write("<msName>", textotei(listWit[i].msIdentifier.msName), "</msName>", "\n")
 	 else end
-	 f:write("</msIdentifier>", "\n")
-      end
-      if listWit[i].handDesc ~= nil then
-	 f:write("<physDesc>", "\n")
-	 f:write("<handDesc hands=\"", #listWit[i].handDesc, "\">", "\n")
-	 local j = 1
-	 while listWit[i].handDesc[j]
-	 do
-	    f:write("<handNote xml:id=\"", listWit[i].handDesc[j].xmlid, "\">", "\n")
-	    f:write('<abbr type="siglum">', textotei(listWit[i].handDesc[j].abbr), "</abbr>", "\n")
-	    f:write("<p>", textotei(listWit[i].handDesc[j].detailsDesc), "</p>", "\n")
-	    f:write("</handNote>", "\n")
-	    j = j + 1
-	 end
-	 f:write("</handDesc>", "\n")
-	 f:write("</physDesc>", "\n")
+	       f:write("</msIdentifier>", "\n")
+	    end
+	    if listWit[i].handDesc ~= nil then
+	       f:write("<physDesc>", "\n")
+	       f:write("<handDesc hands=\"", #listWit[i].handDesc, "\">", "\n")
+	       local j = 1
+	       while listWit[i].handDesc[j]
+	       do
+		  f:write("<handNote xml:id=\"", listWit[i].handDesc[j].xmlid, "\">", "\n")
+		  f:write('<abbr type="siglum">', textotei(listWit[i].handDesc[j].abbr), "</abbr>", "\n")
+		  f:write("<p>", textotei(listWit[i].handDesc[j].detailsDesc), "</p>", "\n")
+		  f:write("</handNote>", "\n")
+		  j = j + 1
+	       end
+	       f:write("</handDesc>", "\n")
+	       f:write("</physDesc>", "\n")
       else end
-      if listWit[i].history ~= nil then
-	 f:write("<history>", "\n")
-	 f:write("<origin>", "\n")
-	 f:write("<origDate>", textotei(listWit[i].history.origin.origDate), "</origDate>", "\n")
-	 f:write("</origin>", "\n")
-	 f:write("</history>", "\n")
-      end
-      f:write("</msDesc>", "\n")
-      f:write("</witness>", "\n")
-   end
-   f:write("</listWit>", "\n")
-   if next(listPerson) ~= nil
-   then
-      f:write("<listPerson xml:id=\"scholars\">", "\n")
-      for i = 1,#listPerson do
-	 f:write('<person xml:id=\"', listPerson[i].xmlid, "\">", "\n")
-	 f:write('<persName>', "\n")
-	 f:write('<abbr type="siglum">', textotei(listPerson[i].abbr), "</abbr>", "\n")
-	 if listPerson[i].persName.name ~= nil
-	 then
-	    f:write(textotei(listPerson[i].persName.name))
-	 else
-	    if listPerson[i].persName.forename ~= ""
-	    then
-	       f:write("<forename>", textotei(listPerson[i].persName.forename), "</forename>", "\n")
-	    else
-	       f:write("<forename><!-- forename --></forename>", "\n")
+	    if listWit[i].history ~= nil then
+	       f:write("<history>", "\n")
+	       f:write("<origin>", "\n")
+	       f:write("<origDate>", textotei(listWit[i].history.origin.origDate), "</origDate>", "\n")
+	       f:write("</origin>", "\n")
+	       f:write("</history>", "\n")
 	    end
-	    if textotei(listPerson[i].persName.surname) ~= ""
+	    f:write("</msDesc>", "\n")
+	    f:write("</witness>", "\n")
+	 end
+	 f:write("</listWit>", "\n")
+      end
+      if next(listPerson) ~= nil
+      then
+	 f:write("<listPerson xml:id=\"scholars\">", "\n")
+	 for i = 1,#listPerson do
+	    f:write('<person xml:id=\"', listPerson[i].xmlid, "\">", "\n")
+	    f:write('<persName>', "\n")
+	    f:write('<abbr type="siglum">', textotei(listPerson[i].abbr), "</abbr>", "\n")
+	    if listPerson[i].persName.name ~= nil
 	    then
-	       f:write("<surname>", textotei(listPerson[i].persName.surname), "</surname>", "\n")
+	       f:write(textotei(listPerson[i].persName.name))
 	    else
-	       f:write("<surname><!-- surname --></surname>", "\n")
+	       if listPerson[i].persName.forename ~= ""
+	       then
+		  f:write("<forename>", textotei(listPerson[i].persName.forename), "</forename>", "\n")
+	       else
+		  f:write("<forename><!-- forename --></forename>", "\n")
+	       end
+	       if textotei(listPerson[i].persName.surname) ~= ""
+	       then
+		  f:write("<surname>", textotei(listPerson[i].persName.surname), "</surname>", "\n")
+	       else
+		  f:write("<surname><!-- surname --></surname>", "\n")
+	       end
+	       if textotei(listPerson[i].persName.addName) ~= ""
+	       then
+		  f:write("<addName>", textotei(listPerson[i].persName.addName), "</addName>", "\n")
+	       end
 	    end
-	    if textotei(listPerson[i].persName.addName) ~= ""
+	    if listPerson[i].note ~= ""
 	    then
-	       f:write("<addName>", textotei(listPerson[i].persName.addName), "</addName>", "\n")
+	       f:write("<note>", textotei(listPerson[i].note), "</note>", "\n")
 	    end
+	    f:write('</persName>', "\n")      
+	    f:write('</person>', "\n")      
 	 end
-	 if listPerson[i].note ~= ""
-	 then
-	    f:write("<note>", textotei(listPerson[i].note), "</note>", "\n")
-	 end
-	 f:write('</persName>', "\n")      
-	 f:write('</person>', "\n")      
+	 f:write("</listPerson>", "\n")
       end
-      f:write("</listPerson>", "\n")
    end
    f:write("</sourceDesc>", "\n")
    f:write("</fileDesc>", "\n")
-- 
cgit v1.2.3