[sword-svn] r537 - trunk/modules/apostolicfathers

[scribe at crosswire.org]

Author: scribe
Date: 2020-12-21 02:00:22 -0500 (Mon, 21 Dec 2020)
New Revision: 537

Modified:
   trunk/modules/apostolicfathers/Makefile
   trunk/modules/apostolicfathers/impify.sh
Log:
fixed a few problems with the script and added check for what seems to be a typo in the data with Hermas 9


Modified: trunk/modules/apostolicfathers/Makefile
===================================================================
--- trunk/modules/apostolicfathers/Makefile	2020-12-21 06:33:18 UTC (rev 536)
+++ trunk/modules/apostolicfathers/Makefile	2020-12-21 07:00:22 UTC (rev 537)
@@ -1,4 +1,4 @@
-all: upenn/1Clement.imp
+all: versification.xml
 
 upenn/1Clement:
 	wget -r -np http://ccat.sas.upenn.edu/gopher/text/religion/churchwriters/ApostolicFathers/
@@ -10,6 +10,7 @@
 	./impify.sh
 
 versification.xml: upenn/1Clement.imp
+	./extractv11n.sh
 
 clean:
 	rm -rf ccat.sas.upenn.edu upenn versification.xml

Modified: trunk/modules/apostolicfathers/impify.sh
===================================================================
--- trunk/modules/apostolicfathers/impify.sh	2020-12-21 06:33:18 UTC (rev 536)
+++ trunk/modules/apostolicfathers/impify.sh	2020-12-21 07:00:22 UTC (rev 537)
@@ -9,7 +9,9 @@
 	# 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/:heading$/:0/" $i \
+		|sed s/prologue:1/1:0/ \
+		|sed "s/^$BOOK\\(.*[0-9]\\)$/\$\$\$$BOOK\\1/" \
 		|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/" \
@@ -22,6 +24,7 @@
 		|sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[104_/\\1106/" \
 		|sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[104\`/\\1107/" \
 		|sed "s/\\(\$\$\$[^ ]* \\)[0-9]*\\[104a/\\1108/" \
+		|sed "s/\\(\$\$\$.* \\)[0-9]*\\[\\(.*\\)\\]y/\\1\\2/" \
 		|sed "s/\\(\$\$\$.* \\)[0-9]*\\[\\(.*\\)\\]/\\1\\2/" \
 	        >> $i.imp
 done