diff options
| -rw-r--r-- | ekdosis.dtx | 39 |
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") |