From 02cac4adc5219c05c0eb24f89272f8ce3c971873 Mon Sep 17 00:00:00 2001 From: "Troy A. Griffitts" Date: Mon, 21 Dec 2020 07:00:22 +0000 Subject: fixed a few problems with the script and added check for what seems to be a typo in the data with Hermas 9 git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@537 07627401-56e2-0310-80f4-f8cd0041bdcd --- modules/apostolicfathers/Makefile | 3 ++- modules/apostolicfathers/impify.sh | 5 ++++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/modules/apostolicfathers/Makefile b/modules/apostolicfathers/Makefile index c5d2802..6519d25 100644 --- a/modules/apostolicfathers/Makefile +++ b/modules/apostolicfathers/Makefile @@ -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 @@ upenn/1Clement.imp: upenn/1Clement ./impify.sh versification.xml: upenn/1Clement.imp + ./extractv11n.sh clean: rm -rf ccat.sas.upenn.edu upenn versification.xml diff --git a/modules/apostolicfathers/impify.sh b/modules/apostolicfathers/impify.sh index 3471cde..23758e9 100755 --- a/modules/apostolicfathers/impify.sh +++ b/modules/apostolicfathers/impify.sh @@ -9,7 +9,9 @@ do # 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 @@ do |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 -- cgit