aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ekdosis.dtx39
1 files changed, 31 insertions, 8 deletions
diff --git a/ekdosis.dtx b/ekdosis.dtx
index fdf582f..0840527 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -939,13 +939,23 @@ function ekdosis.openteistream()
939 f:write('<?xml version="1.0" encoding="utf-8"?>', "\n") 939 f:write('<?xml version="1.0" encoding="utf-8"?>', "\n")
940 f:write("<TEI xmlns=\"http://www.tei-c.org/ns/1.0\">", "\n") 940 f:write("<TEI xmlns=\"http://www.tei-c.org/ns/1.0\">", "\n")
941 f:write("<teiHeader>", "\n") 941 f:write("<teiHeader>", "\n")
942 f:write("<encodingDesc>", "\n") 942 f:write("<fileDesc>", "\n")
943 f:write('<variantEncoding method="parallel-segmentation" location="internal"/>', "\n") 943 f:write("<titleStmt>", "\n")
944 f:write("</encodingDesc>", "\n") 944 f:write("<title><!-- Title --></title>", "\n")
945 f:write("<respStmt>", "\n")
946 f:write("<resp><!-- Edited by --></resp>", "\n")
947 f:write("<name><!-- Name --></name>", "\n")
948 f:write("</respStmt>", "\n")
949 f:write("</titleStmt>", "\n")
950 f:write("<publicationStmt>", "\n")
951 f:write("<distributor><!-- Distributor name --></distributor>", "\n")
952 f:write("</publicationStmt>", "\n")
953 f:write("<sourceDesc>", "\n")
945 f:write("<listWit>", "\n") 954 f:write("<listWit>", "\n")
946 for i = 1,#listWit do 955 for i = 1,#listWit do
947 f:write("<msDesc xml:id=\"", listWit[i].xmlid, "\">", "\n") 956 f:write('<witness xml:id=\"', listWit[i].xmlid, "\">", "\n")
948 f:write("<abbr>", ekdosis.textotei(listWit[i].abbr), "</abbr>", "\n") 957 f:write('<abbr type="siglum">', ekdosis.textotei(listWit[i].abbr), "</abbr>", "\n")
958 f:write("<msDesc>", "\n")
949 if listWit[i].msIdentifier.settlement == "" 959 if listWit[i].msIdentifier.settlement == ""
950 and listWit[i].msIdentifier.repository == "" 960 and listWit[i].msIdentifier.repository == ""
951 and listWit[i].msIdentifier.idno == "" 961 and listWit[i].msIdentifier.idno == ""
@@ -974,9 +984,16 @@ function ekdosis.openteistream()
974 while listWit[i].handDesc[j] 984 while listWit[i].handDesc[j]
975 do 985 do
976 f:write("<handDesc xml:id=\"", listWit[i].handDesc[j].xmlid, "\">", "\n") 986 f:write("<handDesc xml:id=\"", listWit[i].handDesc[j].xmlid, "\">", "\n")
977 f:write("<abbr>", ekdosis.textotei(listWit[i].handDesc[j].abbr), "</abbr>", "\n") 987 -- f:write('<p><abbr type="siglum">', ekdosis.textotei(listWit[i].handDesc[j].abbr), "</abbr></p>", "\n")
978 if listWit[i].handDesc[j].handNote == "" then else 988 if listWit[i].handDesc[j].handNote == ""
979 f:write("<handNote>\n<p>", ekdosis.textotei(listWit[i].handDesc[j].handNote), "</p>\n</handNote>", "\n") 989 then
990 f:write('<handNote><abbr type="siglum">', ekdosis.textotei(listWit[i].handDesc[j].abbr), "</abbr></handNote>", "\n")
991 else
992 f:write("<handNote>", "\n")
993 f:write('<abbr type="siglum">', ekdosis.textotei(listWit[i].handDesc[j].abbr), "</abbr>", "\n")
994 f:write("<p>", ekdosis.textotei(listWit[i].handDesc[j].handNote), "</p>", "\n")
995 f:write("</handNote>", "\n")
996 -- f:write("<handNote>\n<p>", ekdosis.textotei(listWit[i].handDesc[j].handNote), "</p>\n</handNote>", "\n")
980 end 997 end
981 j = j + 1 998 j = j + 1
982 f:write("</handDesc>", "\n") 999 f:write("</handDesc>", "\n")
@@ -994,8 +1011,14 @@ function ekdosis.openteistream()
994 f:write("<p>", ekdosis.textotei(listWit[i].detailsDesc), "</p>", "\n") 1011 f:write("<p>", ekdosis.textotei(listWit[i].detailsDesc), "</p>", "\n")
995 end 1012 end
996 f:write("</msDesc>", "\n") 1013 f:write("</msDesc>", "\n")
1014 f:write("</witness>", "\n")
997 end 1015 end
998 f:write("</listWit>", "\n") 1016 f:write("</listWit>", "\n")
1017 f:write("</sourceDesc>", "\n")
1018 f:write("</fileDesc>", "\n")
1019 f:write("<encodingDesc>", "\n")
1020 f:write('<variantEncoding method="parallel-segmentation" location="internal"/>', "\n")
1021 f:write("</encodingDesc>", "\n")
999 f:write("</teiHeader>", "\n") 1022 f:write("</teiHeader>", "\n")
1000 f:write("<text>", "\n") 1023 f:write("<text>", "\n")
1001 f:write("<body>", "\n") 1024 f:write("<body>", "\n")