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

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-02-06 13:47:54 -0700 (Fri, 06 Feb 2009)
New Revision: 155

Modified:
   trunk/source/data/translit/crosswire/Greek_Latin_Beta.txt
Log:
fixed basic Greek Beta filter & removed Coptic facility

Modified: trunk/source/data/translit/crosswire/Greek_Latin_Beta.txt
===================================================================
--- trunk/source/data/translit/crosswire/Greek_Latin_Beta.txt	2008-07-05 12:26:21 UTC (rev 154)
+++ trunk/source/data/translit/crosswire/Greek_Latin_Beta.txt	2009-02-06 20:47:54 UTC (rev 155)
@@ -1,5 +1,5 @@
 #---------------------------------------------------------------------
-# Copyright 2001-2006, CrossWire Bible Society (www.crosswire.org)
+# Copyright 2001-2009, CrossWire Bible Society (www.crosswire.org)
 # All rights reserved.  Usage permitted according to the MIT/X11
 # License: http://www.opensource.org/licenses/mit-license.php
 #---------------------------------------------------------------------
@@ -7,11 +7,11 @@
 # http://ccat.sas.upenn.edu/gopher/text/religion/biblical/betacode.txt
 #---------------------------------------------------------------------
 
-# Greek-Latin/Beta (also for Coptic)
+# Greek-Latin/Beta
 
 :: NFD (NFC);
 
-:: [[a-z]-[sfhjgt]] upper();
+:: [:Greek:] upper();
 
 #Uppercase
 \u0391<>'*A';     # Α
@@ -44,14 +44,6 @@
 \u03DE<>'*#3';     # Ϟ
 \u03E0<>'*#5';     # Ϡ
 
-#Coptic
-\u03E2<>'*s';     # Ϣ
-\u03E4<>'*f';     # Ϥ
-\u03E8<>'*h';     # Ϩ
-\u03EA<>'*j';     # Ϫ
-\u03EC<>'*g';     # Ϭ
-\u03EE<>'*t';     # Ϯ
-
 #Lowercase
 \u03B1<>A;     # α
 \u03B2<>B;     # β
@@ -84,26 +76,18 @@
 \u03DF<>'#3';     # ϟ
 \u03E1<>'#5';     # ϡ
 
-#Coptic
-\u03E3<>s;     # ϣ
-\u03E5<>f;     # ϥ
-\u03E9<>h;     # ϩ
-\u03EB<>j;     # ϫ
-\u03ED<>g;     # ϭ
-\u03EF<>t;     # ϯ
-
 # Non-letter characters
-\u0345<>'\|';
-\u037A>'\|';     # ͺ
-\u0314<>'\(';     # ̔
-\u02BD>'\(';     # ʽ
+\u0345<>'|';
+\u037A>'|';     # ͺ
+\u0314<>'(';     # ̔
+\u02BD>'(';     # ʽ
 \u0387<>':';     # ·
-\u0313<>'\)';     # ̓
-\u02BC>'\)';     # ʼ
-\u0301<>'\/';     # ́
-\u00B4>'\/';     # Ԋ
-\u02CA>'\/';     # ˊ
-\u0384>'\/';     # ΄
+\u0313<>')';     # ̓
+\u02BC>')';     # ʼ
+\u0301<>'/';     # ́
+\u00B4>'/';
+\u02CA>'/';     # ˊ
+\u0384>'/';     # ΄
 \u0342<>'=';     # ͂
 \u0302>'=';     # ̂
 '^'>'=';
@@ -112,6 +96,10 @@
 '`'>'\\';
 \u02CB>'\\';     # ˋ
 \u0308<>'+';     # ̈
-\u00A8>'+';     # Ȋ
+\u00A8>'+';
 
+\u0304<>'_';   # Perseus LSJ uses _ for long vowels
+
+:: ([a-z] upper);
+
 :: NFC (NFD);