RPP
/
Tips_and_Hacks
forked from hmw3/Tips_and_Hacks
8
0
Fork 0
Files Issues Pull Requests Releases Wiki Activity See in Reader

PDF Genesis all

This commit is contained in:
Henry Whitney 2019-12-05 16:58:34 -05:00
parent 39df1c946b
commit 70f0dc4ab3
4 changed files with 3425 additions and 3430 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6727
MAST_tW_PDF_Updater/FilesForUpdates/Exceptions/Exceptions_tWs_from_MAST_HB.txt
View File

File diff suppressed because it is too large Load Diff

44
MAST_tW_PDF_Updater/FilesForUpdates/Output.to.csv.pl
View File

@ -1,44 +0,0 @@
use 5.12.0;
use Cwd;
my ($pwd, $slash) = (cwd(), "\\");
if ($^O eq "darwin" || $^O eq "linux") {$slash = "/"}
my $outDir = $pwd;
$outDir =~ s/\/([^\/]*)$//;
my ($originFile, $destinationFile) = ("$pwd${slash}Output${slash}tWs_for_PDF.txt", "$outDir${slash}tWs_for_xT_PDF.txt");
my ($bk, $ch, $vs, $ulb, $tw, $dir, $ref);
open LOG, ">:utf8", "$pwd${slash}Logs${slash}log.log" or die "$!:\n$pwd${slash}Logs${slash}log.log";
#say $destinationFile; die;
open OUT, ">:utf8", $destinationFile or die "$!:\n$destinationFile";
say OUT "Book,Chapter,Verse,Term,Dir,Ref";
open (my $file, "<:utf8", "$originFile") or die "$originFile:\n$!";
while (my $line = <$file>) {
chomp $line;
#say LOG $line;
if ($line =~ /^([^:]*) (\d+):(\d+):$/) {
($bk, $ch, $vs) = ($1, $2, $3);
say LOG $line;
} elsif ($line =~ /^\[([^\]]*)\]\(([^\)]*)\)$/) {
($ulb, $tw) = ($1, $2);
if ($tw =~ /^([^\,]*),([^,]*)$/) {
($dir, $ref) = ($1, $2)
}
say OUT "$bk,$ch,$vs,\"$ulb\",$dir,$ref"
}
}
close $file;
close OUT;
close LOG;
if ($^O eq "darwin") {system 'open -a /Applications/BBEdit.app $destinationFile'}
print "\n\tDone.\n\n\tBe sure to rename the new file for New or Old Testament.\n
!!! Important !!!\n
If this is for the Old Testament, make sure all instances of
josephnt are changed to josephot.";

82
MAST_tW_PDF_Updater/FilesForUpdates/User/tW_work_OT.txt
View File

@ -1,42 +1,42 @@
## Single hash means the book has been done but is not currently being done
## Double hash means the book has not yet been done.
#
# Single hash means the book has been done but is not currently being done
# Double hash means the book has not yet been done.
01 Genesis gen Ge
#02 Exodus exo Ex
#03 Leviticus lev Le
#04 Numbers num Nu
#05 Deuteronomy deu De
#06 Joshua jos Jos
#07 Judges jdg Jdg
#08 Ruth rut Ru
#09 1 Samuel 1sa 1Sa
#10 2 Samuel 2sa 2Sa
#11 1 Kings 1ki 1Ki
#12 2 Kings 2ki 2Ki
#13 1 Chronicles 1ch 1Ch
#14 2 Chronicles 2ch 2Ch
#15 Ezra ezr Ezr
#16 Nehemiah neh Ne
#17 Esther est Es
#18 Job job Job
## 19 Psalms psa Ps
#20 Proverbs pro Pr
#21 Ecclesiastes ecc Ec
#22 Song of Solomon sng So
#23 Isaiah isa Is
## 24 Jeremiah jer Je
#25 Lamentations lam La
## 26 Ezekiel ezk Ezk
#27 Daniel dan Da
#28 Hosea hos Ho
#29 Joel jol Joe
#30 Amos amo Am
#31 Obadiah oba Ob
#32 Jonah jon Jon
#33 Micah mic Mic
#34 Nahum nam Na
#35 Habakkuk hab Hab
#36 Zephaniah zep Zep
#37 Haggai hag Hag
#38 Zechariah zec Zec
#39 Malachi mal Mal
02 Exodus exo Ex
03 Leviticus lev Le
04 Numbers num Nu
05 Deuteronomy deu De
06 Joshua jos Jos
07 Judges jdg Jdg
08 Ruth rut Ru
09 1 Samuel 1sa 1Sa
10 2 Samuel 2sa 2Sa
11 1 Kings 1ki 1Ki
12 2 Kings 2ki 2Ki
13 1 Chronicles 1ch 1Ch
14 2 Chronicles 2ch 2Ch
15 Ezra ezr Ezr
16 Nehemiah neh Ne
17 Esther est Es
18 Job job Job
# 19 Psalms psa Ps
20 Proverbs pro Pr
21 Ecclesiastes ecc Ec
22 Song of Solomon sng So
23 Isaiah isa Is
# 24 Jeremiah jer Je
25 Lamentations lam La
# 26 Ezekiel ezk Ezk
27 Daniel dan Da
28 Hosea hos Ho
29 Joel jol Joe
30 Amos amo Am
31 Obadiah oba Ob
32 Jonah jon Jon
33 Micah mic Mic
34 Nahum nam Na
35 Habakkuk hab Hab
36 Zephaniah zep Zep
37 Haggai hag Hag
38 Zechariah zec Zec
39 Malachi mal Mal

2
MAST_tW_PDF_Updater/FilesForUpdates/tWs.from.MAST_HB.pl
View File

@ -156,7 +156,7 @@ sub ReadExceptions {
}
}
foreach my $key (sort keys %adjust) {
say LOG "\$key: $key: \$adjust{$key}: $adjust{$key}"
say LOG ">0>\t\$key: $key: \$adjust{$key}: $adjust{$key}"
}
close $file;
}