hmw3
/
Tips_and_Hacks
1
0
Fork 1
Files Issues Pull Requests Releases Wiki Activity See in Reader

update for MAST PDF

This commit is contained in:
Henry Whitney 2020-07-13 16:54:52 -04:00
parent 961f0b15e4
commit fd57fc0030
4 changed files with 969 additions and 104 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1052
MAST_tW_PDF_Updater/FilesForUpdates/Exceptions/Exceptions.txt
View File

File diff suppressed because it is too large Load Diff

4
MAST_tW_PDF_Updater/FilesForUpdates/Mark_consistent_deletes_in_Entries_not_handled.pl
View File

@ -1,4 +1,4 @@
# Mark in Entries_not_handled.txt those Strong's numbers listed in Consistent_Deletes.NT.txt
# Mark in Entries_not_handled.txt those Strong's numbers listed in Consistent_Deletes.txt
use 5.12.0;
use File::Slurp;
@ -15,7 +15,7 @@ if ($^O eq "darwin" || $^O eq "linux") {$d = "/"}
my (@deletes);
open LOG, ">:utf8", "$Bin${d}Logs${d}Consistent_deletes.log" or die;
open LOG, ">:utf8", "$Bin${d}Logs${d}Consistent_deletes_log.txt" or die;
# my $fileText = read_file("Exceptions${d}Consistent_Deletes.txt", binmode => 'utf8');
#say LOG $fileText;

14
MAST_tW_PDF_Updater/FilesForUpdates/Mine.URL.Strong.Verse.pl
View File

@ -225,9 +225,19 @@ sub ParseLine {
sub FindVerseInGlossed {
system "grep '$book_name,$ch,$vs' /Users/Henry/Documents/WACS/Tips_and_Hacks/MAST_tW_PDF_Updater/FilesForUpdates/Output/tWs_for_PDF.txt > Temp/temp.tmp; perl -i -pe 's/^(.*)\$/<p>\$1<\\/p>/' Temp/temp.tmp";
my $soFar = read_file "Temp/temp.tmp";
my ($sch, $svs, $soFar) = ($ch, $vs, "");
$sch =~ s/^0+//;
$svs =~ s/^0//;
my $checkText = read_file("/Users/Henry/Documents/WACS/Tips_and_Hacks/MAST_tW_PDF_Updater/FilesForUpdates/Output/tWs_for_PDF.txt", binmode => 'utf8');
say LOG "&&&\n$book_name,$sch,$svs\n&&&";
while ($checkText =~ /$book_name,$sch,$svs,[^\n]*/g) {
$soFar .= "<p>$&</p>\n"
}
open OUT, ">:utf8", "$results_file" or die;

3
MAST_tW_PDF_Updater/FilesForUpdates/Temp/temp.tmp
View File

@ -1,3 +0,0 @@
<p>Genesis,33,11,God,kt,god</p>
<p>Genesis,33,11,graciously,kt,grace</p>
<p>Genesis,33,11,urged,kt,exhort</p>