diff options
Diffstat (limited to 'modules/apostolicfathers')
| -rw-r--r-- | modules/apostolicfathers/Makefile | 15 | ||||
| -rwxr-xr-x | modules/apostolicfathers/extractv11n.sh | 49 | ||||
| -rwxr-xr-x | modules/apostolicfathers/impify.sh | 27 |
3 files changed, 91 insertions, 0 deletions
diff --git a/modules/apostolicfathers/Makefile b/modules/apostolicfathers/Makefile new file mode 100644 index 0000000..c5d2802 --- /dev/null +++ b/modules/apostolicfathers/Makefile @@ -0,0 +1,15 @@ +all: upenn/1Clement.imp + +upenn/1Clement: + wget -r -np http://ccat.sas.upenn.edu/gopher/text/religion/churchwriters/ApostolicFathers/ + mv ccat.sas.upenn.edu/gopher/text/religion/churchwriters/ApostolicFathers upenn + rm -rf ccat.sas.upenn.edu + rm -f upenn/*index* + +upenn/1Clement.imp: upenn/1Clement + ./impify.sh + +versification.xml: upenn/1Clement.imp + +clean: + rm -rf ccat.sas.upenn.edu upenn versification.xml diff --git a/modules/apostolicfathers/extractv11n.sh b/modules/apostolicfathers/extractv11n.sh new file mode 100755 index 0000000..3444c7a --- /dev/null +++ b/modules/apostolicfathers/extractv11n.sh @@ -0,0 +1,49 @@ +#!/bin/sh + +VNFILE=versification.xml + +echo "<v11n v11nID=\"ApostolicFathers\">" > $VNFILE +echo " <collection collectionID=\"1\">" >> $VNFILE +for i in upenn/*.imp +do + BOOKNAME=$(echo $i|cut -f2 -d/|cut -f1 -d. \ + |sed "s/_\\(.*s\\)$/ to the\\1/" \ + |sed "s/^\\(Martyrdom\\)_/\\1 of/" \ + |sed "s/_\\(.*\\)$/ to\\1/" \ + |sed "s/\\(.\\)\\([A-Z]\\)/\\1 \\2/g" \ + ) + BOOK=$(grep " 1:1" $i|cut -f1 -d' '|cut -f 4 -d$) + CHAPMAX=$(grep "\\$\\$\\$" $i | cut -f2 -d' '|cut -f1 -d:| sort -n| tail -n1) + echo " <book osisID=\"$BOOK\" preferredAbbrev=\"$BOOK\" name=\"$BOOKNAME\" chapterMax=\"$CHAPMAX\">" >> $VNFILE + j=1 + while [ $j -le $CHAPMAX ] + do + VERSEMAX=$(grep " $j:" $i | cut -f2 -d' '|cut -f2 -d:| sort -n| tail -n1) + echo " <chapter osisID=\"$BOOK.$j\" verseMax=\"$VERSEMAX\"/>" >> $VNFILE + j=$(($j + 1)) + done + echo " </book>" >> $VNFILE +done +echo " </collection>" >> $VNFILE +echo " <collection collectionID=\"2\">" >> $VNFILE +echo " <book osisID=\"Appendix\" preferredAbbrev=\"Appendix\" name=\"Appendix\" chapterMax=\"3\">" >> $VNFILE +echo " <chapter osisID=\"Appendix.1\" verseMax=\"999\"/>" >> $VNFILE +echo " <chapter osisID=\"Appendix.2\" verseMax=\"999\"/>" >> $VNFILE +echo " <chapter osisID=\"Appendix.3\" verseMax=\"999\"/>" >> $VNFILE +echo " </book>" >> $VNFILE +echo " </collection>" >> $VNFILE +echo " <abbreviations>" >> $VNFILE +for i in upenn/*.imp +do + BOOKNAME=$(echo $i|cut -f2 -d/|cut -f1 -d. \ + |sed "s/_\\(.*s\\)$/ to the\\1/" \ + |sed "s/^\\(Martyrdom\\)_/\\1 of/" \ + |sed "s/_\\(.*\\)$/ to\\1/" \ + |sed "s/\\(.\\)\\([A-Z]\\)/\\1 \\2/g" \ + ) + BOOK=$(grep " 1:1" $i|cut -f1 -d' '|cut -f 4 -d$) + echo " <abbr osisID=\"$BOOK\">$BOOKNAME</abbr>" >> $VNFILE +done +echo " </abbreviations>" >> $VNFILE +echo "</v11n>" >> $VNFILE + diff --git a/modules/apostolicfathers/impify.sh b/modules/apostolicfathers/impify.sh new file mode 100755 index 0000000..3471cde --- /dev/null +++ b/modules/apostolicfathers/impify.sh @@ -0,0 +1,27 @@ +#!/bin/sh +rm -f upenn/*.imp +for i in upenn/* +do + BOOK=$(grep " 1:1" $i|cut -f1 -d' ') + echo "Book: $BOOK" + echo "\$\$\$$BOOK 0:0" > $i.imp + # These are mostly for very strange things in Hermes, which seems to include + # Muliple reference systems which start chapters over after main sections + # But also include a chapter numbering scheme which doesn't start over + # so for now, we're choosing that one. + sed s/^$BOOK/\$\$\$$BOOK/ $i|sed s/prologue:1/1:0/ \ + |sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[\\([0-9]*\\)0\\^/\\1\\21/" \ + |sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[\\([0-9]*\\)1\\^/\\1\\22/" \ + |sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[\\([0-9]*\\)2\\^/\\1\\23/" \ + |sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[\\([0-9]*\\)3\\^/\\1\\24/" \ + |sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[\\([0-9]*\\)4\\^/\\1\\25/" \ + |sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[\\([0-9]*\\)5\\^/\\1\\26/" \ + |sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[\\([0-9]*\\)6\\^/\\1\\27/" \ + |sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[\\([0-9]*\\)7\\^/\\1\\28/" \ + |sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[\\([0-9]*\\)8\\^/\\1\\29/" \ + |sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[104_/\\1106/" \ + |sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[104\`/\\1107/" \ + |sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[104a/\\1108/" \ + |sed "s/\\(\$\$\$.* \\)[0-9]*\\[\\(.*\\)\\]/\\1\\2/" \ + >> $i.imp +done |