insert a dummy statement in <sourceDesc> if no source has been declared

1 files 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")