See in Reader
work on tagged OGNT
This commit is contained in:
parent
75b7958a34
commit
182dfeb169
|
|
@ -24,7 +24,6 @@
|
|||
<w OGNTsort="114643" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
<w OGNTsort="114646" ULBorder="---" lemma="G3588" morph="T-GSF" lexeme="ὁ" text="τῆς">√</w>
|
||||
<w OGNTsort="114647" ULBorder="---" lemma="G2596" morph="PREP" lexeme="κατά" text="κατ᾽">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.2">
|
||||
<Greek>ἐπ᾽ ἐλπίδι ζωῆς αἰωνίου ἣν ἐπηγγείλατο ὁ ἀψευδὴς Θεὸς πρὸ χρόνων αἰωνίων </Greek>
|
||||
|
|
@ -42,7 +41,6 @@
|
|||
<w OGNTsort="114655" ULBorder="---" lemma="G3588" morph="T-NSM" lexeme="ὁ" text="ὁ">√</w>
|
||||
<w OGNTsort="114656" ULBorder="---" lemma="G893" morph="A-NSM" lexeme="ἀψευδής" text="ἀψευδὴς">√</w>
|
||||
<w OGNTsort="114658" ULBorder="---" lemma="G4253" morph="PREP" lexeme="πρό" text="πρὸ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.3">
|
||||
<Greek>ἐφανέρωσεν δὲ καιροῖς ἰδίοις τὸν λόγον αὐτοῦ ἐν κηρύγματι ὃ ἐπιστεύθην ἐγὼ κατ᾽ ἐπιταγὴν τοῦ Σωτῆρος ἡμῶν Θεοῦ </Greek>
|
||||
|
|
@ -66,7 +64,6 @@
|
|||
<w OGNTsort="114673" ULBorder="---" lemma="G2596" morph="PREP" lexeme="κατά" text="κατ᾽">√</w>
|
||||
<w OGNTsort="114675" ULBorder="---" lemma="G3588" morph="T-GSM" lexeme="ὁ" text="τοῦ">√</w>
|
||||
<w OGNTsort="114677" ULBorder="---" lemma="G1473" morph="P-1GP" lexeme="ἐγώ" text="ἡμῶν">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.4">
|
||||
<Greek>Τίτῳ γνησίῳ τέκνῳ κατὰ κοινὴν πίστιν Χάρις καὶ εἰρήνη ἀπὸ Θεοῦ Πατρὸς καὶ Χριστοῦ Ἰησοῦ τοῦ Σωτῆρος ἡμῶν </Greek>
|
||||
|
|
@ -87,7 +84,6 @@
|
|||
<w OGNTsort="114691" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
<w OGNTsort="114694" ULBorder="---" lemma="G3588" morph="T-GSM" lexeme="ὁ" text="τοῦ">√</w>
|
||||
<w OGNTsort="114696" ULBorder="---" lemma="G1473" morph="P-1GP" lexeme="ἐγώ" text="ἡμῶν">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.5">
|
||||
<Greek>Τούτου χάριν ἀπέλιπόν σε ἐν Κρήτῃ ἵνα τὰ λείποντα ἐπιδιορθώσῃ καὶ καταστήσῃς κατὰ πόλιν πρεσβυτέρους ὡς ἐγώ σοι διεταξάμην </Greek>
|
||||
|
|
@ -112,7 +108,6 @@
|
|||
<w OGNTsort="114712" ULBorder="---" lemma="G5613" morph="CONJ" lexeme="ὡς" text="ὡς">√</w>
|
||||
<w OGNTsort="114713" ULBorder="---" lemma="G1473" morph="P-1NS" lexeme="ἐγώ" text="ἐγώ">√</w>
|
||||
<w OGNTsort="114714" ULBorder="---" lemma="G4771" morph="P-2DS" lexeme="σύ" text="σοι">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.6">
|
||||
<Greek>εἴ τίς ἐστιν ἀνέγκλητος μιᾶς γυναικὸς ἀνήρ τέκνα ἔχων πιστά μὴ ἐν κατηγορίᾳ ἀσωτίας ἢ ἀνυπότακτα </Greek>
|
||||
|
|
@ -134,7 +129,6 @@
|
|||
<w OGNTsort="114727" ULBorder="---" lemma="G1722" morph="PREP" lexeme="ἐν" text="ἐν">√</w>
|
||||
<w OGNTsort="114729" ULBorder="---" lemma="G810" morph="N-GSF" lexeme="ἀσωτία" text="ἀσωτίας">√</w>
|
||||
<w OGNTsort="114730" ULBorder="---" lemma="G2228" morph="CONJ" lexeme="ἤ" text="ἢ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.7">
|
||||
<Greek>Δεῖ γὰρ τὸν ἐπίσκοπον ἀνέγκλητον εἶναι ὡς Θεοῦ οἰκονόμον μὴ αὐθάδη μὴ ὀργίλον μὴ πάροινον μὴ πλήκτην μὴ αἰσχροκερδῆ </Greek>
|
||||
|
|
@ -159,7 +153,6 @@
|
|||
<w OGNTsort="114748" ULBorder="---" lemma="G4131" morph="N-ASM" lexeme="πλήκτης" text="πλήκτην">√</w>
|
||||
<w OGNTsort="114749" ULBorder="---" lemma="G3361" morph="PRT-N" lexeme="μή" text="μὴ">√</w>
|
||||
<w OGNTsort="114750" ULBorder="---" lemma="G146" morph="A-ASM" lexeme="αἰσχροκερδής" text="αἰσχροκερδῆ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.8">
|
||||
<Greek>ἀλλὰ φιλόξενον φιλάγαθον σώφρονα δίκαιον ὅσιον ἐγκρατῆ </Greek>
|
||||
|
|
@ -172,7 +165,6 @@
|
|||
<w OGNTsort="114754" ULBorder="---" lemma="G4998" morph="A-ASM" lexeme="σώφρων" text="σώφρονα">self-controlled</w>
|
||||
<w OGNTsort="114751" ULBorder="---" lemma="G235" morph="CONJ" lexeme="ἀλλά" text="ἀλλὰ">√</w>
|
||||
<w OGNTsort="114752" ULBorder="---" lemma="G5382" morph="A-ASM" lexeme="φιλόξενος" text="φιλόξενον">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.9">
|
||||
<Greek>ἀντεχόμενον τοῦ κατὰ τὴν διδαχὴν πιστοῦ λόγου ἵνα δυνατὸς ᾖ καὶ παρακαλεῖν ἐν τῇ διδασκαλίᾳ τῇ ὑγιαινούσῃ καὶ τοὺς ἀντιλέγοντας ἐλέγχειν </Greek>
|
||||
|
|
@ -199,7 +191,6 @@
|
|||
<w OGNTsort="114773" ULBorder="---" lemma="G3588" morph="T-DSF" lexeme="ὁ" text="τῇ">√</w>
|
||||
<w OGNTsort="114775" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
<w OGNTsort="114776" ULBorder="---" lemma="G3588" morph="T-APM" lexeme="ὁ" text="τοὺς">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.10">
|
||||
<Greek>Εἰσὶν γὰρ πολλοὶ καὶ ἀνυπότακτοι ματαιολόγοι καὶ φρεναπάται μάλιστα οἱ ἐκ τῆς περιτομῆς </Greek>
|
||||
|
|
@ -216,7 +207,6 @@
|
|||
<w OGNTsort="114788" ULBorder="---" lemma="G3588" morph="T-NPM" lexeme="ὁ" text="οἱ">√</w>
|
||||
<w OGNTsort="114789" ULBorder="---" lemma="G1537" morph="PREP" lexeme="ἐκ" text="ἐκ">√</w>
|
||||
<w OGNTsort="114790" ULBorder="---" lemma="G3588" morph="T-GSF" lexeme="ὁ" text="τῆς">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.11">
|
||||
<Greek>οὓς δεῖ ἐπιστομίζειν οἵτινες ὅλους οἴκους ἀνατρέπουσιν διδάσκοντες ἃ μὴ δεῖ αἰσχροῦ κέρδους χάριν </Greek>
|
||||
|
|
@ -233,7 +223,6 @@
|
|||
<w OGNTsort="114800" ULBorder="---" lemma="G3739" morph="R-APN" lexeme="ὅς, ἥ" text="ἃ">√</w>
|
||||
<w OGNTsort="114801" ULBorder="---" lemma="G3361" morph="PRT-N" lexeme="μή" text="μὴ">√</w>
|
||||
<w OGNTsort="114805" ULBorder="---" lemma="G5484" morph="PREP" lexeme="χάριν" text="χάριν">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.12">
|
||||
<Greek>εἶπέν τις ἐξ αὐτῶν ἴδιος αὐτῶν προφήτης Κρῆτες ἀεὶ ψεῦσται κακὰ θηρία γαστέρες ἀργαί </Greek>
|
||||
|
|
@ -250,7 +239,6 @@
|
|||
<w OGNTsort="114811" ULBorder="---" lemma="G846" morph="P-GPM" lexeme="αὐτός" text="αὐτῶν">√</w>
|
||||
<w OGNTsort="114814" ULBorder="---" lemma="G104" morph="ADV" lexeme="ἀεί" text="ἀεὶ">√</w>
|
||||
<w OGNTsort="114815" ULBorder="---" lemma="G5583" morph="N-NPM" lexeme="ψεύστης" text="ψεῦσται">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.13">
|
||||
<Greek>Ἡ μαρτυρία αὕτη ἐστὶν ἀληθής δι᾽ ἣν αἰτίαν ἔλεγχε αὐτοὺς ἀποτόμως ἵνα ὑγιαίνωσιν ἐν τῇ πίστει </Greek>
|
||||
|
|
@ -272,7 +260,6 @@
|
|||
<w OGNTsort="114831" ULBorder="---" lemma="G2443" morph="CONJ" lexeme="ἵνα" text="ἵνα">√</w>
|
||||
<w OGNTsort="114833" ULBorder="---" lemma="G1722" morph="PREP" lexeme="ἐν" text="ἐν">√</w>
|
||||
<w OGNTsort="114834" ULBorder="---" lemma="G3588" morph="T-DSF" lexeme="ὁ" text="τῇ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.14">
|
||||
<Greek>μὴ προσέχοντες Ἰουδαϊκοῖς μύθοις καὶ ἐντολαῖς ἀνθρώπων ἀποστρεφομένων τὴν ἀλήθειαν </Greek>
|
||||
|
|
@ -286,7 +273,6 @@
|
|||
<w OGNTsort="114839" ULBorder="---" lemma="G3454" morph="N-DPM" lexeme="μῦθος" text="μύθοις">√</w>
|
||||
<w OGNTsort="114840" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
<w OGNTsort="114844" ULBorder="---" lemma="G3588" morph="T-ASF" lexeme="ὁ" text="τὴν">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.15">
|
||||
<Greek>Πάντα καθαρὰ τοῖς καθαροῖς τοῖς δὲ μεμιαμμένοις καὶ ἀπίστοις οὐδὲν καθαρόν ἀλλὰ μεμίανται αὐτῶν καὶ ὁ νοῦς καὶ ἡ συνείδησις </Greek>
|
||||
|
|
@ -312,7 +298,6 @@
|
|||
<w OGNTsort="114861" ULBorder="---" lemma="G3588" morph="T-NSM" lexeme="ὁ" text="ὁ">√</w>
|
||||
<w OGNTsort="114863" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
<w OGNTsort="114864" ULBorder="---" lemma="G3588" morph="T-NSF" lexeme="ὁ" text="ἡ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.1.16">
|
||||
<Greek>Θεὸν ὁμολογοῦσιν εἰδέναι τοῖς δὲ ἔργοις ἀρνοῦνται βδελυκτοὶ ὄντες καὶ ἀπειθεῖς καὶ πρὸς πᾶν ἔργον ἀγαθὸν ἀδόκιμοι </Greek>
|
||||
|
|
@ -335,7 +320,6 @@
|
|||
<w OGNTsort="114877" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
<w OGNTsort="114878" ULBorder="---" lemma="G4314" morph="PREP" lexeme="πρός" text="πρὸς">√</w>
|
||||
<w OGNTsort="114879" ULBorder="---" lemma="G3956" morph="A-ASN" lexeme="πᾶς" text="πᾶν">√</w>
|
||||
|
||||
</verse>
|
||||
</chapter>
|
||||
<chapter osisID="tit.2">
|
||||
|
|
@ -351,7 +335,6 @@
|
|||
<w OGNTsort="114886" ULBorder="---" lemma="G3739" morph="R-NPN" lexeme="ὅς, ἥ" text="ἃ">√</w>
|
||||
<w OGNTsort="114887" ULBorder="---" lemma="G4241" morph="V-PAI-3S" lexeme="πρέπω" text="πρέπει">√</w>
|
||||
<w OGNTsort="114888" ULBorder="---" lemma="G3588" morph="T-DSF" lexeme="ὁ" text="τῇ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.2">
|
||||
<Greek>Πρεσβύτας νηφαλίους εἶναι σεμνούς σώφρονας ὑγιαίνοντας τῇ πίστει τῇ ἀγάπῃ τῇ ὑπομονῇ </Greek>
|
||||
|
|
@ -369,7 +352,6 @@
|
|||
<w OGNTsort="114897" ULBorder="---" lemma="G3588" morph="T-DSF" lexeme="ὁ" text="τῇ">√</w>
|
||||
<w OGNTsort="114899" ULBorder="---" lemma="G3588" morph="T-DSF" lexeme="ὁ" text="τῇ">√</w>
|
||||
<w OGNTsort="114901" ULBorder="---" lemma="G3588" morph="T-DSF" lexeme="ὁ" text="τῇ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.3">
|
||||
<Greek>πρεσβύτιδας ὡσαύτως ἐν καταστήματι ἱεροπρεπεῖς μὴ διαβόλους μηδὲ οἴνῳ πολλῷ δεδουλωμένας καλοδιδασκάλους </Greek>
|
||||
|
|
@ -387,7 +369,6 @@
|
|||
<w OGNTsort="114906" ULBorder="---" lemma="G2688" morph="N-DSN" lexeme="κατάστημα" text="καταστήματι">√</w>
|
||||
<w OGNTsort="114908" ULBorder="---" lemma="G3361" morph="PRT-N" lexeme="μή" text="μὴ">√</w>
|
||||
<w OGNTsort="114910" ULBorder="---" lemma="G3366" morph="CONJ" lexeme="μηδέ" text="μηδὲ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.4">
|
||||
<Greek>ἵνα σωφρονίζωσιν τὰς νέας φιλάνδρους εἶναι φιλοτέκνους </Greek>
|
||||
|
|
@ -400,7 +381,6 @@
|
|||
<w OGNTsort="114917" ULBorder="---" lemma="G3588" morph="T-APF" lexeme="ὁ" text="τὰς">√</w>
|
||||
<w OGNTsort="114918" ULBorder="---" lemma="G3501" morph="A-APF" lexeme="νέος" text="νέας">√</w>
|
||||
<w OGNTsort="114920" ULBorder="---" lemma="G1510" morph="V-PAN" lexeme="εἰμί" text="εἶναι">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.5">
|
||||
<Greek>σώφρονας ἁγνάς οἰκουργούς ἀγαθάς ὑποτασσομένας τοῖς ἰδίοις ἀνδράσιν ἵνα μὴ ὁ λόγος τοῦ Θεοῦ βλασφημῆται </Greek>
|
||||
|
|
@ -419,7 +399,6 @@
|
|||
<w OGNTsort="114931" ULBorder="---" lemma="G3361" morph="PRT-N" lexeme="μή" text="μὴ">√</w>
|
||||
<w OGNTsort="114932" ULBorder="---" lemma="G3588" morph="T-NSM" lexeme="ὁ" text="ὁ">√</w>
|
||||
<w OGNTsort="114934" ULBorder="---" lemma="G3588" morph="T-GSM" lexeme="ὁ" text="τοῦ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.6">
|
||||
<Greek>Τοὺς νεωτέρους ὡσαύτως παρακάλει σωφρονεῖν </Greek>
|
||||
|
|
@ -430,7 +409,6 @@
|
|||
<w OGNTsort="114941" ULBorder="---" lemma="G4993" morph="V-PAN" lexeme="σωφρονέω" text="σωφρονεῖν">use good sense</w>
|
||||
<w OGNTsort="114937" ULBorder="---" lemma="G3588" morph="T-APM" lexeme="ὁ" text="Τοὺς">√</w>
|
||||
<w OGNTsort="114938" ULBorder="---" lemma="G3501" morph="A-APM-C" lexeme="νέος" text="νεωτέρους">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.7">
|
||||
<Greek>Περὶ πάντα σεαυτὸν παρεχόμενος τύπον καλῶν ἔργων ἐν τῇ διδασκαλίᾳ ἀφθορίαν σεμνότητα </Greek>
|
||||
|
|
@ -446,7 +424,6 @@
|
|||
<w OGNTsort="114949" ULBorder="---" lemma="G1722" morph="PREP" lexeme="ἐν" text="ἐν">√</w>
|
||||
<w OGNTsort="114950" ULBorder="---" lemma="G3588" morph="T-DSF" lexeme="ὁ" text="τῇ">√</w>
|
||||
<w OGNTsort="114953" ULBorder="---" lemma="G4587" morph="N-ASF" lexeme="σεμνότης" text="σεμνότητα">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.8">
|
||||
<Greek>λόγον ὑγιῆ ἀκατάγνωστον ἵνα ὁ ἐξ ἐναντίας ἐντραπῇ μηδὲν ἔχων λέγειν περὶ ἡμῶν φαῦλον </Greek>
|
||||
|
|
@ -463,7 +440,6 @@
|
|||
<w OGNTsort="114963" ULBorder="---" lemma="G2192" morph="V-PAP-NSM" lexeme="ἔχω" text="ἔχων">√</w>
|
||||
<w OGNTsort="114965" ULBorder="---" lemma="G4012" morph="PREP" lexeme="περί" text="περὶ">√</w>
|
||||
<w OGNTsort="114966" ULBorder="---" lemma="G1473" morph="P-1GP" lexeme="ἐγώ" text="ἡμῶν">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.9">
|
||||
<Greek>Δούλους ἰδίοις δεσπόταις ὑποτάσσεσθαι ἐν πᾶσιν εὐαρέστους εἶναι μὴ ἀντιλέγοντας </Greek>
|
||||
|
|
@ -479,7 +455,6 @@
|
|||
<w OGNTsort="114974" ULBorder="---" lemma="G2101" morph="A-APM" lexeme="εὐάρεστος" text="εὐαρέστους">√</w>
|
||||
<w OGNTsort="114975" ULBorder="---" lemma="G1510" morph="V-PAN" lexeme="εἰμί" text="εἶναι">√</w>
|
||||
<w OGNTsort="114976" ULBorder="---" lemma="G3361" morph="PRT-N" lexeme="μή" text="μὴ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.10">
|
||||
<Greek>μὴ νοσφιζομένους ἀλλὰ πᾶσαν πίστιν ἐνδεικνυμένους ἀγαθήν ἵνα τὴν διδασκαλίαν τὴν τοῦ Σωτῆρος ἡμῶν Θεοῦ κοσμῶσιν ἐν πᾶσιν </Greek>
|
||||
|
|
@ -503,7 +478,6 @@
|
|||
<w OGNTsort="114993" ULBorder="---" lemma="G2885" morph="V-PAS-3P" lexeme="κοσμέω" text="κοσμῶσιν">√</w>
|
||||
<w OGNTsort="114994" ULBorder="---" lemma="G1722" morph="PREP" lexeme="ἐν" text="ἐν">√</w>
|
||||
<w OGNTsort="114995" ULBorder="---" lemma="G3956" morph="A-DPN" lexeme="πᾶς" text="πᾶσιν">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.11">
|
||||
<Greek>Ἐπεφάνη γὰρ ἡ χάρις τοῦ Θεοῦ σωτήριος πᾶσιν ἀνθρώποις </Greek>
|
||||
|
|
@ -518,7 +492,6 @@
|
|||
<w OGNTsort="114998" ULBorder="---" lemma="G3588" morph="T-NSF" lexeme="ὁ" text="ἡ">√</w>
|
||||
<w OGNTsort="115000" ULBorder="---" lemma="G3588" morph="T-GSM" lexeme="ὁ" text="τοῦ">√</w>
|
||||
<w OGNTsort="115003" ULBorder="---" lemma="G3956" morph="A-DPM" lexeme="πᾶς" text="πᾶσιν">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.12">
|
||||
<Greek>παιδεύουσα ἡμᾶς ἵνα ἀρνησάμενοι τὴν ἀσέβειαν καὶ τὰς κοσμικὰς ἐπιθυμίας σωφρόνως καὶ δικαίως καὶ εὐσεβῶς ζήσωμεν ἐν τῷ νῦν αἰῶνι </Greek>
|
||||
|
|
@ -544,7 +517,6 @@
|
|||
<w OGNTsort="115018" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
<w OGNTsort="115021" ULBorder="---" lemma="G1722" morph="PREP" lexeme="ἐν" text="ἐν">√</w>
|
||||
<w OGNTsort="115022" ULBorder="---" lemma="G3588" morph="T-DSM" lexeme="ὁ" text="τῷ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.13">
|
||||
<Greek>προσδεχόμενοι τὴν μακαρίαν ἐλπίδα καὶ ἐπιφάνειαν τῆς δόξης τοῦ μεγάλου Θεοῦ καὶ Σωτῆρος ἡμῶν Ἰησοῦ Χριστοῦ </Greek>
|
||||
|
|
@ -566,7 +538,6 @@
|
|||
<w OGNTsort="115033" ULBorder="---" lemma="G3588" morph="T-GSM" lexeme="ὁ" text="τοῦ">√</w>
|
||||
<w OGNTsort="115036" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
<w OGNTsort="115038" ULBorder="---" lemma="G1473" morph="P-1GP" lexeme="ἐγώ" text="ἡμῶν">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.14">
|
||||
<Greek>ὃς ἔδωκεν ἑαυτὸν ὑπὲρ ἡμῶν ἵνα λυτρώσηται ἡμᾶς ἀπὸ πάσης ἀνομίας καὶ καθαρίσῃ ἑαυτῷ λαὸν περιούσιον ζηλωτὴν καλῶν ἔργων </Greek>
|
||||
|
|
@ -589,7 +560,6 @@
|
|||
<w OGNTsort="115050" ULBorder="---" lemma="G3956" morph="A-GSF" lexeme="πᾶς" text="πάσης">√</w>
|
||||
<w OGNTsort="115052" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
<w OGNTsort="115054" ULBorder="---" lemma="G1438" morph="F-3DSM" lexeme="ἑαυτοῦ" text="ἑαυτῷ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.2.15">
|
||||
<Greek>Ταῦτα λάλει καὶ παρακάλει καὶ ἔλεγχε μετὰ πάσης ἐπιταγῆς μηδείς σου περιφρονείτω </Greek>
|
||||
|
|
@ -607,7 +577,6 @@
|
|||
<w OGNTsort="115069" ULBorder="---" lemma="G3367" morph="A-NSM" lexeme="μηδείς" text="μηδείς">√</w>
|
||||
<w OGNTsort="115070" ULBorder="---" lemma="G4771" morph="P-2GS" lexeme="σύ" text="σου">√</w>
|
||||
<w OGNTsort="115071" ULBorder="---" lemma="G4065" morph="V-PAM-3S" lexeme="περιφρονέω" text="περιφρονείτω">√</w>
|
||||
|
||||
</verse>
|
||||
</chapter>
|
||||
<chapter osisID="tit.3">
|
||||
|
|
@ -627,7 +596,6 @@
|
|||
<w OGNTsort="115079" ULBorder="---" lemma="G3956" morph="A-ASN" lexeme="πᾶς" text="πᾶν">√</w>
|
||||
<w OGNTsort="115082" ULBorder="---" lemma="G2092" morph="A-APM" lexeme="ἕτοιμος" text="ἑτοίμους">√</w>
|
||||
<w OGNTsort="115083" ULBorder="---" lemma="G1510" morph="V-PAN" lexeme="εἰμί" text="εἶναι">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.2">
|
||||
<Greek>μηδένα βλασφημεῖν ἀμάχους εἶναι ἐπιεικεῖς πᾶσαν ἐνδεικνυμένους πραΰτητα πρὸς πάντας ἀνθρώπους </Greek>
|
||||
|
|
@ -642,7 +610,6 @@
|
|||
<w OGNTsort="115090" ULBorder="---" lemma="G1731" morph="V-PMP-APM" lexeme="ἐνδείκνυμι" text="ἐνδεικνυμένους">√</w>
|
||||
<w OGNTsort="115092" ULBorder="---" lemma="G4314" morph="PREP" lexeme="πρός" text="πρὸς">√</w>
|
||||
<w OGNTsort="115093" ULBorder="---" lemma="G3956" morph="A-APM" lexeme="πᾶς" text="πάντας">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.3">
|
||||
<Greek>Ἦμεν γάρ ποτε καὶ ἡμεῖς ἀνόητοι ἀπειθεῖς πλανώμενοι δουλεύοντες ἐπιθυμίαις καὶ ἡδοναῖς ποικίλαις ἐν κακίᾳ καὶ φθόνῳ διάγοντες στυγητοί μισοῦντες ἀλλήλους </Greek>
|
||||
|
|
@ -669,7 +636,6 @@
|
|||
<w OGNTsort="115110" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
<w OGNTsort="115114" ULBorder="---" lemma="G3404" morph="V-PAP-NPM" lexeme="μισέω" text="μισοῦντες">√</w>
|
||||
<w OGNTsort="115115" ULBorder="---" lemma="G240" morph="C-APM" lexeme="ἀλλήλων" text="ἀλλήλους">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.4">
|
||||
<Greek>Ὅτε δὲ ἡ χρηστότης καὶ ἡ φιλανθρωπία ἐπεφάνη τοῦ Σωτῆρος ἡμῶν Θεοῦ </Greek>
|
||||
|
|
@ -687,7 +653,6 @@
|
|||
<w OGNTsort="115123" ULBorder="---" lemma="G2014" morph="V-2API-3S" lexeme="ἐπιφαίνω" text="ἐπεφάνη">√</w>
|
||||
<w OGNTsort="115124" ULBorder="---" lemma="G3588" morph="T-GSM" lexeme="ὁ" text="τοῦ">√</w>
|
||||
<w OGNTsort="115126" ULBorder="---" lemma="G1473" morph="P-1GP" lexeme="ἐγώ" text="ἡμῶν">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.5">
|
||||
<Greek>οὐκ ἐξ ἔργων τῶν ἐν δικαιοσύνῃ ἃ ἐποιήσαμεν ἡμεῖς ἀλλὰ κατὰ τὸ αὐτοῦ ἔλεος ἔσωσεν ἡμᾶς διὰ λουτροῦ παλινγενεσίας καὶ ἀνακαινώσεως Πνεύματος Ἁγίου </Greek>
|
||||
|
|
@ -716,7 +681,6 @@
|
|||
<w OGNTsort="115145" ULBorder="---" lemma="G3067" morph="N-GSN" lexeme="λουτρόν" text="λουτροῦ">√</w>
|
||||
<w OGNTsort="115147" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
<w OGNTsort="115148" ULBorder="---" lemma="G342" morph="N-GSF" lexeme="ἀνακαίνωσις" text="ἀνακαινώσεως">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.6">
|
||||
<Greek>οὗ ἐξέχεεν ἐφ᾽ ἡμᾶς πλουσίως διὰ Ἰησοῦ Χριστοῦ τοῦ Σωτῆρος ἡμῶν </Greek>
|
||||
|
|
@ -733,7 +697,6 @@
|
|||
<w OGNTsort="115156" ULBorder="---" lemma="G1223" morph="PREP" lexeme="διά" text="διὰ">√</w>
|
||||
<w OGNTsort="115159" ULBorder="---" lemma="G3588" morph="T-GSM" lexeme="ὁ" text="τοῦ">√</w>
|
||||
<w OGNTsort="115161" ULBorder="---" lemma="G1473" morph="P-1GP" lexeme="ἐγώ" text="ἡμῶν">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.7">
|
||||
<Greek>ἵνα δικαιωθέντες τῇ ἐκείνου χάριτι κληρονόμοι γενηθῶμεν κατ᾽ ἐλπίδα ζωῆς αἰωνίου </Greek>
|
||||
|
|
@ -750,7 +713,6 @@
|
|||
<w OGNTsort="115165" ULBorder="---" lemma="G1565" morph="D-GSM" lexeme="ἐκεῖνος" text="ἐκείνου">√</w>
|
||||
<w OGNTsort="115168" ULBorder="---" lemma="G1096" morph="V-AOS-1P" lexeme="γίνομαι" text="γενηθῶμεν">√</w>
|
||||
<w OGNTsort="115169" ULBorder="---" lemma="G2596" morph="PREP" lexeme="κατά" text="κατ᾽">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.8">
|
||||
<Greek>Πιστὸς ὁ λόγος καὶ περὶ τούτων βούλομαί σε διαβεβαιοῦσθαι ἵνα φροντίζωσιν καλῶν ἔργων προΐστασθαι οἱ πεπιστευκότες Θεῷ ταῦτά ἐστιν καλὰ καὶ ὠφέλιμα τοῖς ἀνθρώποις </Greek>
|
||||
|
|
@ -778,7 +740,6 @@
|
|||
<w OGNTsort="115193" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
<w OGNTsort="115194" ULBorder="---" lemma="G5624" morph="A-NPN" lexeme="ὠφέλιμος" text="ὠφέλιμα">√</w>
|
||||
<w OGNTsort="115195" ULBorder="---" lemma="G3588" morph="T-DPM" lexeme="ὁ" text="τοῖς">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.9">
|
||||
<Greek>Μωρὰς δὲ ζητήσεις καὶ γενεαλογίας καὶ ἔρεις καὶ μάχας νομικὰς περιΐστασο εἰσὶν γὰρ ἀνωφελεῖς καὶ μάταιοι </Greek>
|
||||
|
|
@ -800,7 +761,6 @@
|
|||
<w OGNTsort="115208" ULBorder="---" lemma="G1510" morph="V-PAI-3P" lexeme="εἰμί" text="εἰσὶν">√</w>
|
||||
<w OGNTsort="115209" ULBorder="---" lemma="G1063" morph="CONJ" lexeme="γάρ" text="γὰρ">√</w>
|
||||
<w OGNTsort="115211" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.10">
|
||||
<Greek>αἱρετικὸν ἄνθρωπον μετὰ μίαν καὶ δευτέραν νουθεσίαν παραιτοῦ </Greek>
|
||||
|
|
@ -811,7 +771,6 @@
|
|||
<w OGNTsort="115215" ULBorder="---" lemma="G3326" morph="PREP" lexeme="μετά" text="μετὰ">√</w>
|
||||
<w OGNTsort="115216" ULBorder="---" lemma="G1520" morph="A-ASF" lexeme="εἷς" text="μίαν">√</w>
|
||||
<w OGNTsort="115217" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.11">
|
||||
<Greek>εἰδὼς ὅτι ἐξέστραπται ὁ τοιοῦτος καὶ ἁμαρτάνει ὢν αὐτοκατάκριτος </Greek>
|
||||
|
|
@ -826,7 +785,6 @@
|
|||
<w OGNTsort="115224" ULBorder="---" lemma="G3588" morph="T-NSM" lexeme="ὁ" text="ὁ">√</w>
|
||||
<w OGNTsort="115226" ULBorder="---" lemma="G2532" morph="CONJ" lexeme="καί" text="καὶ">√</w>
|
||||
<w OGNTsort="115228" ULBorder="---" lemma="G1510" morph="V-PAP-NSM" lexeme="εἰμί" text="ὢν">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.12">
|
||||
<Greek>Ὅταν πέμψω Ἀρτεμᾶν πρὸς σὲ ἢ Τυχικόν σπούδασον ἐλθεῖν πρός με εἰς Νικόπολιν ἐκεῖ γὰρ κέκρικα παραχειμάσαι </Greek>
|
||||
|
|
@ -849,7 +807,6 @@
|
|||
<w OGNTsort="115243" ULBorder="---" lemma="G1563" morph="ADV" lexeme="ἐκεῖ" text="ἐκεῖ">√</w>
|
||||
<w OGNTsort="115244" ULBorder="---" lemma="G1063" morph="CONJ" lexeme="γάρ" text="γὰρ">√</w>
|
||||
<w OGNTsort="115246" ULBorder="---" lemma="G3914" morph="V-AAN" lexeme="παραχειμάζω" text="παραχειμάσαι">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.13">
|
||||
<Greek>Ζηνᾶν τὸν νομικὸν καὶ Ἀπολλῶν σπουδαίως πρόπεμψον ἵνα μηδὲν αὐτοῖς λείπῃ </Greek>
|
||||
|
|
@ -866,7 +823,6 @@
|
|||
<w OGNTsort="115255" ULBorder="---" lemma="G3367" morph="A-NSN" lexeme="μηδείς" text="μηδὲν">√</w>
|
||||
<w OGNTsort="115256" ULBorder="---" lemma="G846" morph="P-DPM" lexeme="αὐτός" text="αὐτοῖς">√</w>
|
||||
<w OGNTsort="115257" ULBorder="---" lemma="G3007" morph="V-PAS-3S" lexeme="λείπω" text="λείπῃ">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.14">
|
||||
<Greek>μανθανέτωσαν δὲ καὶ οἱ ἡμέτεροι καλῶν ἔργων προΐστασθαι εἰς τὰς ἀναγκαίας χρείας ἵνα μὴ ὦσιν ἄκαρποι </Greek>
|
||||
|
|
@ -888,7 +844,6 @@
|
|||
<w OGNTsort="115271" ULBorder="---" lemma="G3361" morph="PRT-N" lexeme="μή" text="μὴ">√</w>
|
||||
<w OGNTsort="115272" ULBorder="---" lemma="G1510" morph="V-PAS-3P" lexeme="εἰμί" text="ὦσιν">√</w>
|
||||
<w OGNTsort="115273" ULBorder="---" lemma="G175" morph="A-NPM" lexeme="ἄκαρπος" text="ἄκαρποι">√</w>
|
||||
|
||||
</verse>
|
||||
<verse osisID="tit.3.15">
|
||||
<Greek>Ἀσπάζονταί σε οἱ μετ᾽ ἐμοῦ πάντες Ἄσπασαι τοὺς φιλοῦντας ἡμᾶς ἐν πίστει Ἡ χάρις μετὰ πάντων ὑμῶν </Greek>
|
||||
|
|
@ -909,7 +864,6 @@
|
|||
<w OGNTsort="115288" ULBorder="---" lemma="G3326" morph="PREP" lexeme="μετά" text="μετὰ">√</w>
|
||||
<w OGNTsort="115289" ULBorder="---" lemma="G3956" morph="A-GPM" lexeme="πᾶς" text="πάντων">√</w>
|
||||
<w OGNTsort="115290" ULBorder="---" lemma="G4771" morph="P-2GP" lexeme="σύ" text="ὑμῶν">√</w>
|
||||
|
||||
</verse>
|
||||
</chapter>
|
||||
</div>
|
||||
|
|
|
|||
|
|
@ -1,5 +1,6 @@
|
|||
# Takes current tW entries and populates tagged OGNT XML
|
||||
# This is the current best version
|
||||
# It takes care of all entries but doesn't account for USFM codes in ULB
|
||||
# Trying to get it to work with repeated instances of same word.
|
||||
use 5.12.0;
|
||||
use File::Slurp;
|
||||
|
|
@ -105,14 +106,16 @@ sub ProcessXML {
|
|||
my ($originalLinesCount, $rsnCount, $skipCount, $noRSNCount, $outCount);
|
||||
while (my $thisLine = <$thisFile>) {
|
||||
chomp $thisLine;
|
||||
if ($thisLine =~ /<verse/) {say LOG "\n=========================="}
|
||||
say LOG "$thisLine";
|
||||
if ($thisLine =~ /<\/verse>/) {
|
||||
say LOG "\$linesWithRelevantSNs\n$linesWithRelevantSNs\n\$linesNotMatched\n$linesNotMatched\n\$linesToSkip\n$linesToSkip\$residueText\n$residueText";
|
||||
say LOG "<11>\n\$linesWithRelevantSNs\n$linesWithRelevantSNs\n\$linesToSkip\n$linesToSkip\$residueText\n$residueText";
|
||||
|
||||
($matchedLines, $residueText, $linesNotMatched) = ProcessRelevantSNs($linesWithRelevantSNs, $staticText, $residueText, $linesNotMatched);
|
||||
($matchedLines, $residueText, $linesNotMatched) = ProcessRelevantSNs($linesWithRelevantSNs, $staticText, $residueText);
|
||||
say LOG "<14>\t\$matchedLines\n$matchedLines\n\$linesNotMatched\n$linesNotMatched";
|
||||
my %orderedLine;
|
||||
$matchedLines =~ s/\n{2,}/\n/gs;
|
||||
say LOG "===\nBefore \$matchedLines:\n$matchedLines\n===";
|
||||
say LOG "<15\tBefore sort of \$matchedLines:\n$matchedLines\n";
|
||||
while ($matchedLines =~ /([^◊]*)◊(\d*)\n/g) {
|
||||
$orderedLine{$2} = $1;
|
||||
say LOG "<5>\t\$2: $2\t\$1: $1";
|
||||
|
|
@ -123,16 +126,17 @@ sub ProcessXML {
|
|||
$matchedLines .= "$orderedLine{$line}\n"
|
||||
}
|
||||
chomp $matchedLines;
|
||||
say LOG "===\nAfter \$matchedLines:\n$matchedLines\n===";
|
||||
say LOG "<16>\tAfter sort of \$matchedLines:\n$matchedLines\n\$linesNotMatched\n$linesNotMatched";
|
||||
$residueText =~ s/(^q | q$)//g;
|
||||
$residueText =~ s/ {3,}/ /g;
|
||||
$linesNotMatched =~ s/\n+$//;
|
||||
$linesToSkip =~ s/\n+$//;
|
||||
$matchedLines =~ s/^\n+//;
|
||||
say OUT "\t\t\t\t\t<Greek>$greekText</Greek>";
|
||||
say OUT "\t\t\t\t\t<ULB>$staticText</ULB>";
|
||||
say OUT "\t\t\t\t\t<residue>$residueText</residue>";
|
||||
say OUT "$matchedLines";
|
||||
say OUT "$linesNotMatched" if ($linesNotMatched =~ /^.+$/);# This isn't giving any output
|
||||
say OUT "$linesNotMatched" if ($linesNotMatched =~ /^.+$/);
|
||||
say OUT "$linesToSkip" if ($linesToSkip);
|
||||
say OUT "$thisLine";
|
||||
($originalLinesCount, $rsnCount, $skipCount, $noRSNCount, $outCount) = ();
|
||||
|
|
@ -190,7 +194,8 @@ sub ProcessRelevantSNs {
|
|||
($thisLine, $residueText, $linesNotMatched) = MatchAndPlace($line, $thisSN, $staticText, $residueText, $linesNotMatched);
|
||||
$thisLine =~ s/[ \t]+$//;
|
||||
$matchedLines .= $thisLine . "\n";
|
||||
say LOG "+++\n\$matchedLines\n$matchedLines\n+++"
|
||||
$matchedLines =~ s/\n{2,}$/\n/s;
|
||||
say LOG "<13>\t\$matchedLines\n$matchedLines\n\$linesNotMatched\n$linesNotMatched+++"
|
||||
}
|
||||
}
|
||||
return ($matchedLines, $residueText, $linesNotMatched);
|
||||
|
|
@ -284,31 +289,6 @@ sub FixWorkText {
|
|||
}
|
||||
return ($text)
|
||||
}
|
||||
sub Match {
|
||||
my ($line, $text, $worktext, $entry, $workEntry) = @_;
|
||||
my $outputLines;
|
||||
# say LOG "---\n\$line:\n$line\n\$text\n$text\n\$workText\n$workText\n\$entry: $entry\t\$workEntry: $workEntry";
|
||||
say LOG "---\nBefore search, new $workText\$workText\n$workText\n\$entry: $entry\t\$workEntry: $workEntry";
|
||||
my $found;
|
||||
if ($workText =~ /\b$workEntry\b/p) {
|
||||
$workText = "${^PREMATCH} ${^POSTMATCH}";
|
||||
say LOG "<7.1>\tAfter found, new \$workText: $workText";
|
||||
$found = 1;
|
||||
#say LOG "<7>\$workEntry: $workEntry\nNow looking for |$workEntry| in\n$text";
|
||||
if ($text =~ /^(.*?)\b$workEntry\b/) {
|
||||
my $place = length $1;
|
||||
$line =~ s/></>$entry</;
|
||||
$outputLines .= "$place◊$line\t";
|
||||
#say LOG "<8>Found.\t \$place: $place\t\$outputLineOrder{$place}: $outputLineOrder{$place}\n";
|
||||
}
|
||||
}
|
||||
else {
|
||||
#say LOG "\$workEntry $workEntry not found"
|
||||
}
|
||||
#say LOG "---";
|
||||
return ($found, $outputLines, $workText);
|
||||
}
|
||||
|
||||
sub Read_ULB_File {
|
||||
|
||||
$ULBText = read_file("/Users/Henry/Documents/WACS/Tips_and_Hacks/MAST_tW_PDF_Updater/FilesForUpdates/Temp/ULB_text.txt", binmode => 'utf8');
|
||||
|
|
|
|||
|
|
@ -0,0 +1,363 @@
|
|||
# Takes current tW entries and populates tagged OGNT XML
|
||||
# This is the current best version
|
||||
# It takes care of all entries but doesn't account for USFM codes in ULB
|
||||
# Trying to get it to work with repeated instances of same word.
|
||||
use 5.12.0;
|
||||
use File::Slurp;
|
||||
use File::Find ;
|
||||
use Cwd ;
|
||||
use utf8;
|
||||
#use open IN => ":utf8", OUT => ":utf8";
|
||||
use open IO => ":utf8";
|
||||
$" = "\n";
|
||||
|
||||
mkdir "Logs";
|
||||
open(LOG, ">Logs/tW_pairs.txt") or die "$!";
|
||||
|
||||
my $topDirULB = "/Users/Henry/Documents/WACS/en_ulb";
|
||||
#my $topDirOGNT = "/Users/Henry/Google Drive/WA/Tagged_OGNT/OGNT_for_tagging";
|
||||
my $topDirOGNT = "/Users/Henry/Documents/WACS/Tips_and_Hacks/Tagged_OGNT/Tag_test";
|
||||
#my $topDirtW = "/Users/Henry/Documents/WACS/Restructure/bible";
|
||||
my $topDirtW = "/Users/Henry/Documents/WACS/en_tw/bible";
|
||||
my ($outDir, $outFile) = ("/Users/Henry/Documents/WACS/Tips_and_Hacks/Tagged_OGNT/Auto-tagged", "");
|
||||
my ($ULBText, $workText);
|
||||
my ($file);
|
||||
my (%ULBtextThisVerse, %SNsThisVerse, %entriesThisSN, %longName);
|
||||
|
||||
my @OGNTfilesToRun = ();
|
||||
my $filePattern = '.xml' ;
|
||||
find( sub { push @OGNTfilesToRun, $File::Find::name if ( m/^(.*)$filePattern$/ ) }, $topDirOGNT) ;
|
||||
|
||||
my @tWfilesToRun = ();
|
||||
$filePattern = '.md' ;
|
||||
find( sub { push @tWfilesToRun, $File::Find::name if ( m/^(.*)$filePattern$/ ) }, $topDirtW) ;
|
||||
|
||||
Read_tW_Files();
|
||||
|
||||
close LOG;
|
||||
open(LOG, ">Logs/Log.txt") or die "$!";
|
||||
|
||||
LongBookNames();
|
||||
Read_ULB_File();
|
||||
ProcessXML();
|
||||
# put unused SN at end of verse
|
||||
|
||||
close LOG;
|
||||
|
||||
say "\nDone.";
|
||||
# =====
|
||||
sub Read_tW_Files {
|
||||
foreach $file ( @tWfilesToRun ) {
|
||||
#say LOG $file;
|
||||
my (@sns);
|
||||
my $entries;
|
||||
my $fileText = read_file("$file", binmode => 'utf8');
|
||||
if ($fileText =~ /\* Strong's: ([^\n]*)\n/) {
|
||||
my $sns = $1;
|
||||
#say LOG "\t$sns";
|
||||
@sns = split /, /, $sns;
|
||||
}
|
||||
if ($fileText =~ /Forms Found in the English ULB:\n\n([^\n]*)\n/) {
|
||||
$entries = $1;
|
||||
die "$fileText" if $entries eq "";
|
||||
#say LOG "\t\t$entries"
|
||||
}
|
||||
foreach my $sn (@sns) {
|
||||
$entriesThisSN{$sn} .= $entries . ", ";
|
||||
#say LOG "\t\t\t$sn: $entriesThisSN{$sn}"
|
||||
}
|
||||
}
|
||||
foreach my $sn (sort keys %entriesThisSN) {
|
||||
#say LOG "$sn: $entriesThisSN{$sn}";
|
||||
my @entries = split /, /, $entriesThisSN{$sn};
|
||||
@entries = reverse sort { substr($a,0,1) <=> substr($b,0,1)
|
||||
|| length($a) <=> length($b)
|
||||
|| $a <=> $b }
|
||||
@entries;
|
||||
$entriesThisSN{$sn} = "";
|
||||
foreach my $slice (@entries) {
|
||||
$entriesThisSN{$sn} .= "$slice, "
|
||||
}
|
||||
$entriesThisSN{$sn} =~ s/, $//;
|
||||
say LOG "$sn: $entriesThisSN{$sn}";
|
||||
}
|
||||
|
||||
}
|
||||
sub LongBookNames {
|
||||
while (<DATA>) {
|
||||
chomp;
|
||||
if (/([^\t]*)\t([^\t]*)\t([^\t]*)/) {
|
||||
$longName{$2} = $3
|
||||
}
|
||||
}
|
||||
}
|
||||
sub ProcessXML {
|
||||
# foreach XML file
|
||||
foreach my $file (@OGNTfilesToRun) {
|
||||
my $greekText;
|
||||
my $fileGist;
|
||||
if ($file =~ /(......\.xml)/) {
|
||||
$fileGist = $1;
|
||||
}
|
||||
say LOG $file . "\t" . $fileGist;
|
||||
open(OUT, ">$outDir/$fileGist") or die "$outDir/$fileGist: $!";
|
||||
my ($pre, $gist, $post, $bk, $ch, $vs, $thisVerse, $staticText, $residueText, $matchedLines, $flag, $thisVerseForOutput, $linesWithRelevantSNs, $linesNotMatched, $orderedOutputLines, $linesToSkip);
|
||||
open (my $thisFile, "<:utf8", "$file") or die "$file:\n$!";
|
||||
my ($originalLinesCount, $rsnCount, $skipCount, $noRSNCount, $outCount);
|
||||
while (my $thisLine = <$thisFile>) {
|
||||
chomp $thisLine;
|
||||
if ($thisLine =~ /<verse/) {say LOG "\n=========================="}
|
||||
say LOG "$thisLine";
|
||||
if ($thisLine =~ /<\/verse>/) {
|
||||
say LOG "<11>\n\$linesWithRelevantSNs\n$linesWithRelevantSNs\n\$linesToSkip\n$linesToSkip\$residueText\n$residueText";
|
||||
|
||||
($matchedLines, $residueText, $linesNotMatched) = ProcessRelevantSNs($linesWithRelevantSNs, $staticText, $residueText);
|
||||
say LOG "<14>\t\$matchedLines\n$matchedLines\n\$linesNotMatched\n$linesNotMatched";
|
||||
my %orderedLine;
|
||||
$matchedLines =~ s/\n{2,}/\n/gs;
|
||||
say LOG "<15\tBefore sort of \$matchedLines:\n$matchedLines\n";
|
||||
while ($matchedLines =~ /([^◊]*)◊(\d*)\n/g) {
|
||||
$orderedLine{$2} = $1;
|
||||
say LOG "<5>\t\$2: $2\t\$1: $1";
|
||||
}
|
||||
$matchedLines = "";
|
||||
foreach my $line (sort {$a <=> $b} keys %orderedLine) {
|
||||
say LOG "\$line: $line\t\$orderedLine{$line}: $orderedLine{$line}";
|
||||
$matchedLines .= "$orderedLine{$line}\n"
|
||||
}
|
||||
chomp $matchedLines;
|
||||
say LOG "<16>\tAfter sort of \$matchedLines:\n$matchedLines\n\$linesNotMatched\n$linesNotMatched";
|
||||
$residueText =~ s/(^q | q$)//g;
|
||||
$residueText =~ s/ {3,}/ /g;
|
||||
$linesNotMatched =~ s/\n+$//;
|
||||
$matchedLines =~ s/^\n+//;
|
||||
say OUT "\t\t\t\t\t<Greek>$greekText</Greek>";
|
||||
say OUT "\t\t\t\t\t<ULB>$staticText</ULB>";
|
||||
say OUT "\t\t\t\t\t<residue>$residueText</residue>";
|
||||
say OUT "$matchedLines";
|
||||
say OUT "$linesNotMatched" if ($linesNotMatched =~ /^.+$/);
|
||||
say OUT "$linesToSkip" if ($linesToSkip);
|
||||
say OUT "$thisLine";
|
||||
($originalLinesCount, $rsnCount, $skipCount, $noRSNCount, $outCount) = ();
|
||||
($thisVerseForOutput, $flag, $workText, $greekText, $linesNotMatched, $linesToSkip, $residueText, $orderedOutputLines, $linesWithRelevantSNs) = ();
|
||||
($linesToSkip) = ("");
|
||||
}
|
||||
elsif ($thisLine =~ /<w /) {
|
||||
$originalLinesCount ++;
|
||||
if ($thisLine =~ />([^\n<>]*)</) {
|
||||
$greekText .= $1 . " "
|
||||
}
|
||||
$thisLine =~ s/(<w .*)>([^<]*)(<\/w>)/$1 text="$2">$3/;
|
||||
if ($thisLine =~ /lemma="(G\d+)"/) {
|
||||
my $thisLemma = $1;
|
||||
if (exists $entriesThisSN{$thisLemma}) {
|
||||
$rsnCount ++;
|
||||
$linesWithRelevantSNs .= $thisLine . "\n";
|
||||
#say LOG "\$thisLemma: $thisLemma; line pushed to \@LinesWithRelevantSNs:\n--\n=>@LinesWithRelevantSNs\n--";
|
||||
}
|
||||
else {
|
||||
$skipCount ++;
|
||||
$thisLine =~ s/><\/w>/>√<\/w>/;
|
||||
$linesToSkip .= "$thisLine\n";
|
||||
#say LOG "\$thisLemma: $thisLemma; line pushed to \@LinesToSkip";
|
||||
}
|
||||
}
|
||||
#say LOG "<a>$thisLine";
|
||||
}
|
||||
elsif ($thisLine =~ /<verse osisID="(.*?)\.(.*?)\.(.*?)">/) {
|
||||
#say LOG $thisLine;
|
||||
($bk, $ch, $vs) = ($1,$2,$3);
|
||||
($thisVerse, $greekText) = ("$longName{$bk} $ch:$vs", "");
|
||||
if ($ULBText =~ /$thisVerse\t([^\n]*)\n/) {
|
||||
$staticText = $1;
|
||||
$residueText = "q $staticText q";
|
||||
}
|
||||
say OUT $thisLine;
|
||||
($flag) = (1);
|
||||
}
|
||||
else {say OUT $thisLine}
|
||||
}
|
||||
|
||||
close $thisFile;
|
||||
close OUT;
|
||||
}
|
||||
}
|
||||
sub ProcessRelevantSNs {
|
||||
my ($relevantLines, $staticText, $residueText, $linesNotMatched) = (@_);
|
||||
my ($matchedLines, $thisLine);
|
||||
my @relevantLines = split /\n/, $relevantLines;
|
||||
foreach my $line (@relevantLines) {
|
||||
if ($line =~ /lemma="(G\d+)"/) {
|
||||
my $thisSN = $1;
|
||||
say LOG "\$line: $line, \$thisSN: $thisSN, \$entriesThisSN{$thisSN}\n$entriesThisSN{$thisSN}";
|
||||
($thisLine, $residueText, $linesNotMatched) = MatchAndPlace($line, $thisSN, $staticText, $residueText, $linesNotMatched);
|
||||
$thisLine =~ s/[ \t]+$//;
|
||||
$matchedLines .= $thisLine . "\n";
|
||||
$matchedLines =~ s/\n{2,}$/\n/s;
|
||||
say LOG "<13>\t\$matchedLines\n$matchedLines\n\$linesNotMatched\n$linesNotMatched+++"
|
||||
}
|
||||
}
|
||||
return ($matchedLines, $residueText, $linesNotMatched);
|
||||
}
|
||||
sub MatchAndPlace {
|
||||
my ($line, $sn, $staticText, $workText, $linesNotMatched) = @_;
|
||||
#say LOG "<8>\t\$line: $line \$sn: $sn \$workText\n$workText";
|
||||
my ($workEntry, $found, $matchedLines, $first, $second, $third, $firstLen, $secondLen, $thirdLen);
|
||||
my @entries = split /, /, $entriesThisSN{$sn};
|
||||
foreach my $entry (@entries) {
|
||||
my $entryType;
|
||||
if ($entry =~ /^(.*) \.\.\. (.*) \.\.\. (.*)$/) {
|
||||
($first, $second, $third) = ($1, $2, $3);
|
||||
($firstLen, $secondLen, $thirdLen) = (length $first, length $second, length $third);
|
||||
$workEntry = "\\b" . $first . "\\b" . ".*?" . "\\b" . $second . "\\b" . ".*?" . "\\b" . $third;
|
||||
say LOG "<1a>\t\$first: $first, \$second: $second, \$third: $third, \$firstLen: $firstLen, \$secondLen,: $secondLen, \$thirdLen: $thirdLen \$entry: |$entry|\t\$workEntry: |$workEntry|";
|
||||
$entryType = 1;
|
||||
}
|
||||
elsif ($entry =~ /^(.*) \.\.\. (.*)$/) {
|
||||
($first, $second) = ($1, $2);
|
||||
($firstLen, $secondLen) = (length $first, length $second);
|
||||
$workEntry = "\\b" . $first . "\\b" . ".*?" . "\\b" . $second . "\\b";
|
||||
say LOG "<2a>\t\$first: $first, \$second: $second, \$third: $third, \$firstLen: $firstLen, \$secondLen,: $secondLen, \$entry: |$entry|\t\$workEntry: |$workEntry|";
|
||||
$entryType = 2;
|
||||
}
|
||||
else {$workEntry = $entry;}
|
||||
|
||||
my $foundText;
|
||||
#say LOG "<8.1>\t\$entryType: $entryType\t\$entry: $entry\t\$workEntry: $workEntry";
|
||||
if ($workText =~ /\b$workEntry\b/p) {
|
||||
say LOG "<8.1>Found: \t\$entryType: $entryType\t\$entry: $entry\t\$workEntry: $workEntry";
|
||||
($foundText, $workText) = ($&, "${^PREMATCH}ı${^POSTMATCH}");
|
||||
my ($place, $foundTextLength, $replacementSpaces) = (length ${^PREMATCH}, length $foundText, "");
|
||||
$line =~ s/></>$entry</;
|
||||
while (length $replacementSpaces < $foundTextLength) {$replacementSpaces .= " "}
|
||||
|
||||
if ($entryType) {
|
||||
|
||||
say LOG "<8.2>\n\$workText,: $workText, \$matchedLines:\n$matchedLines ";
|
||||
|
||||
($workText) = FixWorkText($line, $workText, $workEntry, $foundText, $foundTextLength, $first, $firstLen, $second, $secondLen, $third, $thirdLen);
|
||||
|
||||
say LOG "<8.3>\n\$workText:\n$workText\n\$matchedLines:\n$matchedLines";
|
||||
|
||||
}
|
||||
|
||||
else {$workText =~ s/ı/$replacementSpaces/;}
|
||||
|
||||
$matchedLines .= "$line◊$place";
|
||||
|
||||
say LOG "<8.4>\tAfter found, new \$workText:\n$workText";
|
||||
$found = 1;
|
||||
}
|
||||
else {
|
||||
#say LOG "\$workEntry $workEntry not found"
|
||||
}
|
||||
if ($found) {
|
||||
last
|
||||
}
|
||||
}
|
||||
unless ($found) {
|
||||
$line =~ s/></>?</;
|
||||
$linesNotMatched .= "$line\n"
|
||||
}
|
||||
return ($matchedLines, $workText, $linesNotMatched)
|
||||
}
|
||||
sub FixWorkText {
|
||||
my ($thisLine, $text, $entry, $foundText, $foundTextLength, $first, $firstLen, $second, $secondLen, $third, $thirdLen) = @_;
|
||||
my ($firstSpace, $secondSpace, $thirdSpace);
|
||||
while (length $firstSpace < $firstLen) {$firstSpace .= " "}
|
||||
while (length $secondSpace < $secondLen) {$secondSpace .= " "}
|
||||
while (length $thirdSpace < $thirdLen) {$thirdSpace .= " "}
|
||||
|
||||
say LOG "<9>\$text:\n$text\n\t\t\$entry: $entry \$foundText: $foundText\t \$foundTextLength: $foundTextLength\t\$first: $first\t\$second: $second\t\$third: $third\n\$firstSpace: $firstSpace\t\$secondSpace: $secondSpace\t\$thirdSpace: $thirdSpace";
|
||||
if ($third) {
|
||||
if ($foundText =~ /$first(.*)$second(.*)$third/) {
|
||||
my ($firstGap, $secondGap) = ($1, $2);
|
||||
my $repText = "$firstSpace$firstGap$secondSpace$secondGap$thirdSpace";
|
||||
say LOG "<9.1> \$repText: $repText";
|
||||
$text =~ s/ı/$repText/;
|
||||
}
|
||||
}
|
||||
else {
|
||||
if ($foundText =~ /$first(.*)$second/) {
|
||||
my ($firstGap) = ($1);
|
||||
say LOG "<9.2>\t\$firstSpace: |$firstSpace|\t\$firstGap: |$firstGap|\t\$secondSpace: |$secondSpace|";
|
||||
my $repText ="$firstSpace$firstGap$secondSpace";
|
||||
say LOG "<9.3> \$repText: |$repText|";
|
||||
$text =~ s/ı/$repText/;
|
||||
}
|
||||
}
|
||||
return ($text)
|
||||
}
|
||||
sub Read_ULB_File {
|
||||
|
||||
$ULBText = read_file("/Users/Henry/Documents/WACS/Tips_and_Hacks/MAST_tW_PDF_Updater/FilesForUpdates/Temp/ULB_text.txt", binmode => 'utf8');
|
||||
|
||||
}
|
||||
|
||||
__DATA__
|
||||
01 gen Genesis
|
||||
02 exo Exodus
|
||||
03 lev Leviticus
|
||||
04 num Numbers
|
||||
05 deu Deuteronomy
|
||||
06 jos Joshua
|
||||
07 jdg Judges
|
||||
08 rut Ruth
|
||||
09 1sa 1 Samuel
|
||||
10 2sa 2 Samuel
|
||||
11 1ki 1 Kings
|
||||
12 2ki 2 Kings
|
||||
13 1ch 1 Chronicles
|
||||
14 2ch 2 Chronicles
|
||||
15 ezr Ezra
|
||||
16 neh Nehemiah
|
||||
17 est Esther
|
||||
18 job Job
|
||||
19 psa Psalms
|
||||
20 pro Proverbs
|
||||
21 ecc Ecclesiastes
|
||||
22 sng Song of Solomon
|
||||
23 isa Isaiah
|
||||
24 jer Jeremiah
|
||||
25 lam Lamentations
|
||||
26 ezk Ezekiel
|
||||
27 dan Daniel
|
||||
28 hos Hosea
|
||||
29 jol Joel
|
||||
30 amo Amos
|
||||
31 oba Obadiah
|
||||
32 jon Jonah
|
||||
33 mic Micah
|
||||
34 nam Nahum
|
||||
35 hab Habakkuk
|
||||
36 zep Zephaniah
|
||||
37 hag Haggai
|
||||
38 zec Zechariah
|
||||
39 mal Malachi
|
||||
41 mat Matthew
|
||||
42 mrk Mark
|
||||
43 luk Luke
|
||||
44 jhn John
|
||||
45 act Acts
|
||||
46 rom Romans
|
||||
47 1co 1 Corinthians
|
||||
48 2co 2 Corinthians
|
||||
49 gal Galatians
|
||||
50 eph Ephesians
|
||||
51 php Philippians
|
||||
52 col Colossians
|
||||
53 1th 1 Thessalonians
|
||||
54 2th 2 Thessalonians
|
||||
55 1ti 1 Timothy
|
||||
56 2ti 2 Timothy
|
||||
57 tit Titus
|
||||
58 phm Philemon
|
||||
59 heb Hebrews
|
||||
60 jas James
|
||||
61 1pe 1 Peter
|
||||
62 2pe 2 Peter
|
||||
63 1jn 1 John
|
||||
64 2jn 2 John
|
||||
65 3jn 3 John
|
||||
66 jud Jude
|
||||
67 rev Revelation
|
||||
Loading…
Reference in New Issue