[sword-svn] r286 - trunk/source/data/translit/crosswire

[chrislit at crosswire.org]

Author: chrislit
Date: 2014-02-13 03:31:52 -0700 (Thu, 13 Feb 2014)
New Revision: 286

Modified:
   trunk/source/data/translit/crosswire/Greek_Latin_SBL.txt
Log:
updated, checked, tested Greek/SBL transliterator


Modified: trunk/source/data/translit/crosswire/Greek_Latin_SBL.txt
===================================================================
--- trunk/source/data/translit/crosswire/Greek_Latin_SBL.txt	2014-02-13 08:15:44 UTC (rev 285)
+++ trunk/source/data/translit/crosswire/Greek_Latin_SBL.txt	2014-02-13 10:31:52 UTC (rev 286)
@@ -12,141 +12,110 @@
 
 # Greek-Latin/SBL
 
+:: [[:Greek:][̔ͅͺʽ·̓ʼ́´ˊ΄͂̂\^ˆ̀\`ˋ̈¨]];
 :: NFD (NFC);
 
-$nasalGamma = [ΓΚΞΧγκξχ];
-$diphvowel = [αεηοΑΕΗΟ];
-$iota = [Ιι];
-$macron = ̄;
-
-# Completeness mappings
+# Completeness mappings from Latin
+|K<C}[^Hh];
+|k<c}[^h];
 |PH<F;
-|I<J;
-|K<Q;
-|Y<V;
-|Y<W;
-|Y<U;
 |ph<f;
+|I<J;
 |i<j;
+|K<Q;
 |k<q;
-|y<v;
-|y<w;
-|y<u;
+|U<[VW];
+|U<[vw];
 
-# Non-letter characters
-ͅ>;
-ͺ>;
-ʽ>;
-·>;
-̓>;
-ʼ>;
-́>;
-´>;
-ˊ>;
-΄>;
-͂>;
-̂>;
-'^'>;
-ˆ>;
-̀>;
-'`'>;
-ˋ>;
-̈>;
-¨>;
+# rough breathing
+|$1̔<H([:Lu:][:M:]*);
+|&Any-Upper($1)̔<H([:Ll:][:M:]*);
+|$1̔<h([:L:][:M:]*);
+([:Lu:][[:M:]-[̔]]*)̔}[:Lu:]>H|$1;
+([:Lu:][[:M:]-[̔]]*)̔>H|&Any-Lower($1);
+([:L:][[:M:]-[̔]]*)̔>h|$1;
 
-# titlecase digraphs
+# Non-letter characters are omitted from SBL's transliteration
+[ͅͺʽ·̓ʼ́´ˊ΄͂̂\^ˆ̀\`ˋ̈¨]>;
+
+# diphthongs
+ΗΥ<>ĒU;
+Ηυ<>Ēu;
+ηυ<>ēu;
+ΩΥ<>ŌU;
+Ωυ<>Ōu;
+ωυ<>ōu;
+ΑΥ<>AU;
+Αυ<>Au;
+αυ<>au;
+ΕΥ<>EU;
+Ευ<>Eu;
+ευ<>eu;
+ΥΙ<>UI;
+Υι<>Ui;
+υι<>ui;
+
+# digraphs
+Η<>Ē;
+η<>ē;
 Θ}[:Ll:]<>Th;
-Ξ}[:Ll:]<>Ks;
-Φ}[:Ll:]<>Ph;
-Χ}[:Ll:]<>Kh;
-Ψ}[:Ll:]<>Ps;
+Θ<>TH;
+θ<>th;
 Ῥ}[:Ll:]<>Rh;
-
-# Uppercase
-|$1̔<H([:Lu:]);
-|&Any-Upper($1)̔<H([:Ll:]);
-|$1̔<h([:L:]);
-($diphvowel)Υ>|$1 U;
-Υ}$iota>U;
 Ῥ<>RH;
-([:Lu:])̔}[:Lu:]>H|$1;
-([:Lu:])̔>H|&Any-Lower($1);
-([:L:])̔>h|$1;
-Η<>E $macron;
-Θ<>TH;
-Φ<>PH;
-Χ<>CH;
-Ψ<>PS;
-
-# more completeness mappings
-|K<C;
-''<H;
-
-# monographs
-Ω<>O $macron;
-Α<>A;
-Β<>B;
-Γ}$nasalGamma>N;
-Γ<>G;
-Δ<>D;
-Ε<>E;
-Ζ<>Z;
-Ι<>I;
-Κ<>K;
-Λ<>L;
-Μ<>M;
-Ν<>N;
-Ξ<>X;
-Ο<>O;
-Π<>P;
-Ρ<>R;
-Σ<>S;
-Τ<>T;
-Υ<>Y;
-
-# Archaic
-Ϝ>W;
-Ϟ>K;
-Ϡ>S;
-
-# Lowercase
-($diphvowel)υ>|$1 u;
-υ}$iota>u;
 ῥ<>rh;
-η<>e $macron;
-θ<>th;
+Φ}[:Ll:]<>Ph;
+Φ<>PH;
 φ<>ph;
+Χ}[:Ll:]<>Ch;
+Χ<>CH;
 χ<>ch;
+Ψ}[:Ll:]<>Ps;
+Ψ<>PS;
 ψ<>ps;
+Ω<>Ō;
+ω<>ō;
 
-# more completeness mappings
-|k<c;
-''<h;
-ω<>o $macron;
+# unigraphs
+Α<>A;
 α<>a;
+Β<>B;
 β<>b;
-γ}$nasalGamma>n;
+Γ}[ΓΚΞΧγκξχ]<>N}[gGkKxXcC];
+γ}[ΓΚΞΧγκξχ]<>n}[gGkKxXcC];
+Γ<>G;
 γ<>g;
+Δ<>D;
 δ<>d;
+Ε<>E;
 ε<>e;
+Ζ<>Z;
 ζ<>z;
+Ι<>I;
 ι<>i;
+Κ<>K;
 κ<>k;
+Λ<>L;
 λ<>l;
+Μ<>M;
 μ<>m;
+Ν<>N;
 ν<>n;
+Ξ<>X;
 ξ<>x;
+Ο<>O;
 ο<>o;
+Π<>P;
 π<>p;
+Ρ<>R;
 ρ<>r;
+Σ<>S;
 ς<>s}[:^L:];
 σ<>s;
+Τ<>T;
 τ<>t;
+Υ<>Y;
 υ<>y;
 
-# Archaic
-ϝ>w;
-ϟ>k;
-ϡ>s;
-
 :: NFC (NFD);
+:: ([[:Latin:][̄]]);