Got Mac version of do.ot and mine.ot running again

This commit is contained in:
Henry Whitney 2019-03-27 10:33:41 -04:00
parent 1f7be6801b
commit 8f72d003de
9 changed files with 22 additions and 39 deletions

View File

@ -6,16 +6,19 @@ $| = "\n";
use utf8;
#use open IN => ":utf8", OUT => ":utf8";
use open IO => ":utf8";
use File::Find ;
use File::Find ;
use FindBin '$Bin';
use Cwd ;
my ($pwd, $d, $textEditor, $repoPath, $browser) = (cwd(), "\\");
my ($pwd, $d, $textEditor, $repoPath, $browser) = ($Bin, "\\");
if ($^O eq "darwin" || $^O eq "linux") {$d = "/"}
my ($udf) = "User_defaults.windows.txt";
if ($^O eq "linux") {$udf = "User_defaults.linux.txt"}
elsif ($^O eq "darwin") {$udf = "User_defaults.mac.txt"}
chdir $Bin;
open (my $defaults, "<:utf8", "User${d}$udf") or die "User${d}$udf:\n$!";
GetUserDefaults();

View File

@ -38,7 +38,7 @@ Ecclesiastes 1:9:
Ecclesiastes 1:10:
[time](other,time)
[ages](other,age)
[ages](other,time)
Ecclesiastes 1:11:
[times](other,time)
@ -337,12 +337,13 @@ Ecclesiastes 3:20:
Ecclesiastes 3:21:
[knows](other,know)
[spirit](kt,spirit)
[mankind](kt,sonofman)
[animals](other,beast)
[earth](other,earth)
Ecclesiastes 3:22:
[realized](other,understand)
[realized](other,know)
[better](kt,good)
[work](kt,works)
[assignment](other,assign)
@ -378,13 +379,12 @@ Ecclesiastes 4:6:
[shepherd](other,shepherd)
Ecclesiastes 4:7:
[returned](other,return)
[returned](other,turn)
[meaningless](other,vain)
Ecclesiastes 4:8:
[]()
[person](kt,soul)
[son](kt,son)
[brother](kt,brother)
[satisfied](kt,filled)
[wealth](other,prosper)
@ -481,7 +481,7 @@ Ecclesiastes 5:8:
[just](kt,justice)
[province](other,province)
[astonished](other,amazed)
[watch](other,biblicaltimewatch)
[watch](other,watch)
Ecclesiastes 5:9:
[land](other,earth)
@ -509,7 +509,6 @@ Ecclesiastes 5:13:
Ecclesiastes 5:14:
[wealth](other,prosper)
[bad](kt,evil)
[son](kt,son)
[fathered](other,father)
Ecclesiastes 5:15:
@ -659,6 +658,7 @@ Ecclesiastes 7:7:
Ecclesiastes 7:8:
[matter](other,word)
[patient](other,patient)
[spirit](kt,spirit)
[better](kt,good)
[proud](other,proud)
@ -818,7 +818,7 @@ Ecclesiastes 8:8:
[rescue](other,deliverer)
Ecclesiastes 8:9:
[realized](other,understand)
[realized](other,know)
[heart](kt,heart)
[work](kt,works)
[time](other,time)
@ -1085,7 +1085,6 @@ Ecclesiastes 10:17:
[blessed](kt,bless)
[land](other,earth)
[king](other,king)
[son](kt,son)
[nobles](other,noble)
[leaders](other,commander)
[time](other,time)
@ -1125,7 +1124,7 @@ Ecclesiastes 11:3:
[earth](other,earth)
Ecclesiastes 11:4:
[watches](other,biblicaltimewatch)
[watches](other,watch)
[plant](other,sow)
Ecclesiastes 11:5:
@ -1159,7 +1158,7 @@ Ecclesiastes 11:9:
[good](kt,good)
[desires](other,lust)
[know](other,know)
[judgment](kt,judge)
[judgment](kt,justice)
Ecclesiastes 11:10:
[]()
@ -1230,7 +1229,6 @@ Ecclesiastes 12:11:
[shepherd](other,shepherd)
Ecclesiastes 12:12:
[son](kt,son)
[aware](other,admonish)
[many](other,multiply)
[books](other,scroll)
@ -1244,7 +1242,7 @@ Ecclesiastes 12:13:
[mankind](kt,sonofman)
Ecclesiastes 12:14:
[judgment](kt,judge)
[judgment](kt,justice)
[thing](kt,works)
[good](kt,good)
[evil](kt,evil)

View File

@ -28,15 +28,15 @@ while (<IN>) {
close IN;
my $fileText = read_file "$Bin${d}Output${d}Entries_not_handled.txt";
my $fileText = read_file "$Bin${d}Output${d}Entries_not_handled.txt" or die "$Bin${d}Output${d}Entries_not_handled.txt: $!";
say $fileText;
foreach my $thisNum (sort keys %num) {
$fileText =~ s/(\t$thisNum)(\r?\t)/$1\t||$2/g;
$fileText =~ s/(\t$thisNum)(\r?\n)/$1\t||$2/g;
}
open OUT, ">$Bin${d}Output${d}Entries_not_handled.txt";
open OUT, ">$Bin${d}Output${d}Entries_not_handled.txt" or die "$Bin${d}Output${d}Entries_not_handled.txt: $!";
print OUT "$fileText";

View File

View File

@ -1,2 +1,5 @@
# Connects the URL, Strong's number, and ref for anomalous entries.
here=$PWD
#echo $here
cd $here
perl "Mine.URL.Strong.Verse.OT.2.pl"

View File

@ -1,22 +0,0 @@
#include <fstream>
#include <iostream>
using namespace std;
int main () {
char data[100];
// open a file in write mode.
ofstream outfile;
outfile.open("Temp/Temp_data.txt");
cout << "Writing to the file" << endl;
cout << "Enter line from exceptions file: ";
cin.getline(data, 100);
// write inputted data into the file.
outfile << data << endl;
// close the opened file.
outfile.close();
return 0;
}

View File

@ -0,0 +1 @@
Backup*.docx