diff options
-rw-r--r-- | configure.ac | 3 | ||||
-rw-r--r-- | data/db.struct | 283 | ||||
-rw-r--r-- | scm/Makefile.am | 8 | ||||
-rw-r--r-- | scm/elchr.h | 39 | ||||
-rw-r--r-- | scm/elstr.c | 701 | ||||
-rw-r--r-- | scm/mod.c | 10 | ||||
-rw-r--r-- | scm/utf8.c | 2135 | ||||
-rw-r--r-- | scm/utf8.h | 68 | ||||
-rw-r--r-- | xml/pl/rhmata.xml | 46 | ||||
-rw-r--r-- | xml/ru/rhmata.xml | 20 | ||||
-rw-r--r-- | xml/uk/alfabhta.xml | 4 | ||||
-rw-r--r-- | xml/uk/antonimies.xml | 882 | ||||
-rw-r--r-- | xml/uk/arithmi.xml | 571 | ||||
-rw-r--r-- | xml/uk/ellinika.xml | 2 |
14 files changed, 4714 insertions, 58 deletions
diff --git a/configure.ac b/configure.ac index 1750ac4..0f83e04 100644 --- a/configure.ac +++ b/configure.ac @@ -25,11 +25,14 @@ AC_CANONICAL_SYSTEM AM_INIT_AUTOMAKE(no-exeext) ## * Checks for programs. +AC_PROG_CC +AM_PROG_LIBTOOL M4='`cd $(top_srcdir); pwd`/scripts/missing --run m4' AC_SUBST(M4) AM_GNU_GETTEXT([external], [need-ngettext]) + AM_GNU_GETTEXT_VERSION([0.17]) MU_CHECK_GUILE(,, diff --git a/data/db.struct b/data/db.struct index 7db7828..c4d6460 100644 --- a/data/db.struct +++ b/data/db.struct @@ -1,19 +1,19 @@ -# This file is part of Ellinika -# Copyright (C) 2004, 2005, 2007 Sergey Poznyakoff -# -# Ellinika is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 3 of the License, or -# (at your option) any later version. -# -# Ellinika is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program. If not, see <http://www.gnu.org/licenses/>. -# +-- This file is part of Ellinika +-- Copyright (C) 2004, 2005, 2007 Sergey Poznyakoff +-- +-- Ellinika is free software; you can redistribute it and/or modify +-- it under the terms of the GNU General Public License as published by +-- the Free Software Foundation; either version 3 of the License, or +-- (at your option) any later version. +-- +-- Ellinika is distributed in the hope that it will be useful, +-- but WITHOUT ANY WARRANTY; without even the implied warranty of +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +-- GNU General Public License for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with this program. If not, see <http://www.gnu.org/licenses/>. +-- set names utf8; CREATE DATABASE ellinika CHARACTER SET utf8 COLLATE utf8_bin; @@ -21,7 +21,7 @@ CREATE DATABASE ellinika CHARACTER SET utf8 COLLATE utf8_bin; use ellinika; CREATE TABLE pos( - id bigint not null, # REL 0 + id bigint not null, -- REL 0 name char(64) not null , abbr char(12) not null, abbr_lat char(12) not null, @@ -66,17 +66,17 @@ INSERT INTO pos VALUES(conv("1000000",16,10), "πρόθεση", "πρόθ. INSERT INTO pos VALUES(conv("2000000",16,10), "σύνδεσμος", "σύνδ.", "conj", 'Y'); CREATE TABLE dict( - ident int(32), # REL 1,3,4 - word varchar(128), # REL 6 + ident int(32), -- REL 1,3,4 + word varchar(128), -- REL 6 sound varchar(128), - pos int(4), # REL 0 + pos int(4), -- REL 0 forms blob, INDEX (ident), INDEX (word) ); CREATE TABLE locus( - ident int(32), # REL 4 + ident int(32), -- REL 4 lang varchar(8) not null, file varchar(128) binary, line int(32), @@ -85,7 +85,7 @@ CREATE TABLE locus( ); CREATE TABLE articles( - ident int(32) not null, # REL 1 + ident int(32) not null, -- REL 1 subindex int(32) not null, lang varchar(8), meaning blob, @@ -95,10 +95,10 @@ CREATE TABLE articles( ); CREATE TABLE topic( - ident int(32) not null auto_increment, # REL 2 + ident int(32) not null auto_increment, -- REL 2 lang varchar(8) not null, title varchar(128) not null, - category int(32) not null, # REL 5 + category int(32) not null, -- REL 5 UNIQUE (ident), INDEX (title), INDEX (title,category), @@ -106,14 +106,14 @@ CREATE TABLE topic( ); CREATE TABLE topic_tab ( - topic_ident int(32) not null, # REL 2 - word_ident int(32) not null, # REL 1 + topic_ident int(32) not null, -- REL 2 + word_ident int(32) not null, -- REL 1 INDEX (topic_ident), INDEX (word_ident) ); CREATE TABLE category ( - category int(32) not null auto_increment, # REL 5 + category int(32) not null auto_increment, -- REL 5 lang varchar(8) not null, title varchar(128) not null, description blob, @@ -123,8 +123,8 @@ CREATE TABLE category ( CREATE TABLE links( type enum('XREF','ANT') not null, - ident int(32) not null, # REL 1 - xref int(32) not null, # REL 1 + ident int(32) not null, -- REL 1 + xref int(32) not null, -- REL 1 INDEX (ident), UNIQUE (ident,xref) ); @@ -138,23 +138,238 @@ CREATE TABLE stat( CREATE TABLE pending_links( type enum('CLOSED','XREF','ANT') not null, - originator int(32) not null, # REL 3 - word varchar(128) # REL 6 + originator int(32) not null, -- REL 3 + word varchar(128) -- REL 6 ); CREATE TABLE news( - ident int(32) not null auto_increment, # REL 7 + ident int(32) not null auto_increment, -- REL 7 date datetime not null, UNIQUE(ident), INDEX(date) ); CREATE TABLE newsart( - ident int(32) not null, # REL 7 + ident int(32) not null, -- REL 7 lang varchar(8), header varchar(255), text blob, UNIQUE(ident), INDEX(lang) ); - + +---- + +CREATE TABLE verbflect( + ident int(32) not null, -- REL 8 + sing1 varchar(32), + sing2 varchar(32), + sing3 varchar(32), + plur1 varchar(32), + plur2 varchar(32), + plur3 varchar(32), + UNIQUE(ident) +); + +CREATE TABLE conjugation( + conj char(2), -- REL 9 + voice enum('act','pas'), -- Ενεργητηκή/Μεσοπαθητική + mode enum('ind','sub','imp'), + tense varchar(128), + thema enum('pres','aor','pass','synt'), -- Ενεστώτα, Αόριστου, Αόριστου μεσοπαθητικής, syntethic + suffix char(32), + flect int(32), -- REL 8 + accmap char(7), -- accent map + particle char(2), -- NULL/θα/να + aux varchar(128), -- REL 10 + auxtense char(32), + KEY (conj), + KEY (voice), + KEY (mode) +); + +CREATE TABLE participle ( + conj char(2), -- REL 9 + voice enum('act','pas'), -- Ενεργητηκή/Μεσοπαθητική + tense char(32), + thema enum('pres','aor','pass'), -- Ενεστώτα, Αόριστου, Αόριστου μεσοπαθητικής + suffix char(32), + flect char(32), + aux varchar(128) +); + +INSERT INTO verbflect VALUES +-- Συζυγία Α' +(1, "ω", "εις", "ει", "ουμε", "ετε", "ουν(ε)"), +(2, "α", "ες", "ε", "αμε", "ατε", "αν"), +(8, NULL, "ε", NULL, NULL, "ετε", NULL), +(9, NULL, "ε", NULL, NULL, "τε", NULL), +(11, "ομαι", "εσαι", "εται", "όμαστε", "εστε", "ονται"), +(12, "όμουν", "όσουν", "όταν", "όμαστε", "όμαστε", "ονταν"), +(15, "ώ", "είς", "εί", "ούμε", "είτε", "ούν(ε)"), +(17, NULL, "ου", NULL, NULL, NULL, NULL), +(18, NULL, NULL, NULL, NULL, "είτε", NULL), +-- Συζυγία Β΄ - α΄ τάξη +(20, "ώ,άω", "άς", "ά,άει","άμε,ούμε","άτε","ούν(ε)"), +(25, NULL, "α", NULL, NULL, "άτε", NULL), +(28, "ιέμαι", "ιέσαι", "ιέται", "ιόμαστε", "ιέστε", "ιούνται"), +(29, "ιόμουν", "ιόσουν", "ιόταν", "ιόμαστε", "ιόσαστε", "ιόνταν"), +(30, NULL, "ιέσαι", NULL, NULL, "ιέσται", NULL), +(31, NULL, "ου", NULL, NULL, NULL, NULL), +(32, NULL, NULL, NULL, NULL, "είτε", NULL), +-- Συζυγία Β΄ - β΄ τάξη +(33, NULL, "είς", NULL, NULL, "είτε", NULL), +(34, "ούμαι", "είσαι", "είται", "ούμαστε", "είστε", "ούνται"), +(35, "ούμουν", "ούσουν", "ούvταν", "ούμαστε", "ούσαστε", "ούνταν"), +(36, NULL, "είσαι", NULL, NULL, "είστε", NULL); + + +INSERT INTO conjugation VALUES +-- Συζυγία Α' +-- Ενεργητηκή φωνή +-- Οριστική +("A", "act", "ind", "Ενεστώτας", 'pres', NULL, 1, "000000", NULL, NULL, NULL), +("A", "act", "ind", "Παρατατικός", 'pres', NULL, 2, "333333+", NULL, NULL, NULL), +("A", "act", "ind", "Μέλλοντας διαρκείας", 'pres', NULL, 1, "000000", "θα", NULL, NULL), +("A", "act", "ind", "Αόριστος", 'aor', NULL, 2, "333333+", NULL, NULL, NULL), +("A", "act", "ind", "Παρακείμενος", 'synt', NULL, 0, NULL, NULL, "έχω", "Ενεστώτας"), +("A", "act", "ind", "Υπερσυντέλικος", 'synt', NULL, 0, NULL, NULL, "έχω", "Παρατατικός"), +("A", "act", "ind", "Συντελεσμένος μέλλοντας", 'synt', NULL, 0, NULL, "θα", "έχω", "Ενεστώτας"), +("A", "act", "ind", "Μέλλοντας στιγμιαίος", 'aor', NULL, 1, "000000", "θα", NULL, NULL), +-- Υποτακτική +("A", "act", "sub", "Ενεστώτας", 'pres', NULL, 1, "000000", "να", NULL, NULL), +("A", "act", "sub", "Αόριστος", 'aor', NULL, 1, "000000", "να", NULL, NULL), +("A", "act", "sub", "Παρακείμενος", 'synt', NULL, 0, NULL, "να", "έχω", "Ενεστώτας"), +-- Προστακτική +("A", "act", "imp", "Ενεστώτας", 'pres', NULL, 8, "-3--3-", NULL, NULL, NULL), +("A", "act", "imp", "Αόριστος", 'aor', NULL, 9, "-0--0-", NULL, NULL, NULL), +("A", "act", "imp", "Παρακείμενος", 'synt', NULL, 0, NULL, "να", "έχω", "Ενεστώτας"), +-- Μεσοπαθητική φωνή +-- Οριστική +("A", "pas", "ind", "Ενεστώτας", 'pres', NULL, 11, "000300", NULL, NULL, NULL), +("A", "pas", "ind", "Παρατατικός", 'pres', NULL, 12, "222333", NULL, NULL, NULL), +("A", "pas", "ind", "Μέλλοντας διαρκείας", 'pres', NULL, 11, "333333", "θα", NULL, NULL), +("A", "pas", "ind", "Αόριστος", 'pass', "ηκ", 2, "333333", NULL, NULL, NULL), +("A", "pas", "ind", "Παρακείμενος", 'synt', NULL, 0, NULL, NULL, "έχω", "Ενεστώτας"), +("A", "pas", "ind", "Υπερσυντέλικος", 'synt', NULL, 0, NULL, NULL, "έχω", "Παρατατικός"), +("A", "pas", "ind", "Συντελεσμένος μέλλοντας", 'synt', NULL, 0, NULL, "θα", "έχω", "Ενεστώτας"), +("A", "pas", "ind", "Μέλλοντας στιγμιαίος", 'pass', NULL, 15, "111111", "θα", NULL, NULL), +-- Υποτακτική +("A", "pas", "sub", "Ενεστώτας", 'pres', NULL, 11, "333333", "να", NULL, NULL), +("A", "pas", "sub", "Αόριστος", 'pass', NULL, 15, "111221", "να", NULL, NULL), +("A", "pas", "sub", "Παρακείμενος", 'synt', NULL, 0, NULL, "να", "έχω", "Παρατατικός"), +-- Προστακτική +("A", "pas", "imp", "Ενεστώτας", 'pres', NULL, 11, "-3--3-", "να", NULL, NULL), +("A", "pas", "imp", "Αόριστος", 'aor', NULL, 17, "-0----", NULL, NULL, NULL), +("A", "pas", "imp", "Αόριστος", 'pass', NULL, 18, "----2-", NULL, NULL, NULL), +("A", "pas", "imp", "Παρακείμενος", 'synt', NULL, 0, NULL, "να", "έχω", "Παρατατικός"), +-- Συζυγία Β΄ - α΄ τάξη +-- Ενεργητηκή φωνή +-- Οριστική +("B1", "act", "ind", "Ενεστώτας", 'pres', NULL, 20, "ffffff", NULL, NULL, NULL), +("B1", "act", "ind", "Παρατατικός", 'pres', "ούς", 2, "ssssss", NULL, NULL, NULL), +("B1", "act", "ind", "Μέλλοντας διαρκείας", 'pres', NULL, 20, "ffffff", "θα", NULL, NULL), +("B1", "act", "ind", "Αόριστος", 'aor', "ησ", 2, "333333", NULL, NULL, NULL), +("B1", "act", "ind", "Παρακείμενος", 'synt', NULL, 0, NULL, NULL, "έχω", "Ενεστώτας"), +("B1", "act", "ind", "Υπερσυντέλικος", 'synt', NULL, 0, NULL, NULL, "έχω", "Παρατατικός"), +("B1", "act", "ind", "Συντελεσμένος μέλλοντας", 'synt', NULL, 0, NULL, "θα", "έχω", "Ενεστώτας"), +("B1", "act", "ind", "Μέλλοντας στιγμιαίος", 'aor', "ήσ", 1, "ssssss", "θα", NULL, NULL), +-- Υποτακτική +("B1", "act", "sub", "Ενεστώτας", 'pres', NULL, 20, "ffffff", "να", NULL, NULL), +("B1", "act", "sub", "Αόριστος", 'aor', "ήσ", 1, "ssssss", "να", NULL, NULL), +("B1", "act", "sub", "Παρακείμενος", 'synt', NULL, 0, NULL, "να", "έχω", "Ενεστώτας"), +-- Προστακτική +("B1", "act", "imp", "Ενεστώτας", 'pres', NULL, 25, "-0--2-", NULL, NULL, NULL), +("B1", "act", "imp", "Αόριστος", 'aor', "ησ", 9, "-3--3-", NULL, NULL, NULL), +("B1", "act", "imp", "Παρακείμενος", 'synt', NULL, 0, NULL, "να", "έχω", "Ενεστώτας"), +-- Μεσοπαθητική φωνή +-- Οριστική +("B1", "pas", "ind", "Ενεστώτας", 'pres', NULL, 28, "ffffff", NULL, NULL, NULL), +("B1", "pas", "ind", "Παρατατικός", 'pres', NULL, 29, "ffffff", NULL, NULL, NULL), +("B1", "pas", "ind", "Μέλλοντας διαρκείας", 'pres', NULL, 28, "ffffff", "θα", NULL, NULL), +("B1", "pas", "ind", "Αόριστος", 'pass', "ηκ", 2, "333333", NULL, NULL, NULL), +("B1", "pas", "ind", "Παρακείμενος", 'synt', NULL, 0, NULL, NULL, "έχω", "Ενεστώτας"), +("B1", "pas", "ind", "Υπερσυντέλικος", 'synt', NULL, 0, NULL, NULL, "έχω", "Παρατατικός"), +("B1", "pas", "ind", "Συντελεσμένος μέλλοντας", 'synt', NULL, 0, NULL, "θα", "έχω", "Ενεστώτας"), +("B1", "pas", "ind", "Μέλλοντας στιγμιαίος", 'pass', NULL, 15, "ffffff", "θα", NULL, NULL), +-- Υποτακτική +("B1", "pas", "sub", "Ενεστώτας", 'pres', NULL, 28, "ffffff", "να", NULL, NULL), +("B1", "pas", "sub", "Αόριστος", 'pass', NULL, 15, "ffffff", "να", NULL, NULL), +("B1", "pas", "sub", "Παρακείμενος", 'synt', NULL, 0, NULL, "να", "έχω", "Παρατατικός"), +-- Προστακτική +("B1", "pas", "imp", "Ενεστώτας", 'pres', NULL, 30, "-f--f-", "να", NULL, NULL), + +("B1", "pas", "imp", "Αόριστος", 'aor', NULL, 31, "-2----", NULL, NULL, NULL), +("B1", "pas", "imp", "Αόριστος", 'pass', NULL, 32, "----2-", NULL, NULL, NULL), + +("B1", "pas", "imp", "Παρακείμενος", 'synt', NULL, 0, NULL, "να", "έχω", "Παρατατικός"), +-- Συζυγία Β΄ - β΄ τάξη +-- Ενεργητηκή φωνή +-- Οριστική +("B2", "act", "ind", "Ενεστώτας", 'pres', NULL, 15, "ffffff", NULL, NULL, NULL), +("B2", "act", "ind", "Παρατατικός", 'pres', "ούσ", 2, "ssssss", NULL, NULL, NULL), +("B2", "act", "ind", "Μέλλοντας διαρκείας", 'pres', NULL, 15, "ffffff", "θα", NULL, NULL), +("B2", "act", "ind", "Αόριστος", 'aor', "ησ", 2, "333333", NULL, NULL, NULL), +("B2", "act", "ind", "Παρακείμενος", 'synt', NULL, 0, NULL, NULL, "έχω", "Ενεστώτας"), +("B2", "act", "ind", "Υπερσυντέλικος", 'synt', NULL, 0, NULL, NULL, "έχω", "Παρατατικός"), +("B2", "act", "ind", "Συντελεσμένος μέλλοντας", 'synt', NULL, 0, NULL, "θα", "έχω", "Ενεστώτας"), +("B2", "act", "ind", "Μέλλοντας στιγμιαίος", 'aor', "ήσ", 1, "ssssss", "θα", NULL, NULL), +-- Υποτακτική +("B2", "act", "sub", "Ενεστώτας", 'pres', NULL, 15, "ffffff", "να", NULL, NULL), +("B2", "act", "sub", "Αόριστος", 'aor', "ήσ", 1, "ssssss", "να", NULL, NULL), +("B2", "act", "sub", "Παρακείμενος", 'synt', NULL, 0, NULL, "να", "έχω", "Ενεστώτας"), +-- Προστακτική +("B2", "act", "imp", "Ενεστώτας", 'pres', NULL, 15, "-f----", "να", NULL, NULL), +("B2", "act", "imp", "Ενεστώτας", 'pres', NULL, 15, "----f-", NULL, NULL, NULL), + +("B2", "act", "imp", "Αόριστος", 'aor', "ησ", 9, "-3--3-", NULL, NULL, NULL), +("B2", "act", "imp", "Παρακείμενος", 'synt', NULL, 0, NULL, "να", "έχω", "Ενεστώτας"), +-- Μεσοπαθητική φωνή +-- Οριστική +("B2", "pas", "ind", "Ενεστώτας", 'pres', NULL, 34, "ffffff", NULL, NULL, NULL), +("B2", "pas", "ind", "Παρατατικός", 'pres', NULL, 35, "ffffff", NULL, NULL, NULL), +("B2", "pas", "ind", "Μέλλοντας διαρκείας", 'pres', NULL, 34, "ffffff", "θα", NULL, NULL), +("B2", "pas", "ind", "Αόριστος", 'pass', "ηκ", 2, "333333", NULL, NULL, NULL), +("B2", "pas", "ind", "Παρακείμενος", 'synt', NULL, 0, NULL, NULL, "έχω", "Ενεστώτας"), +("B2", "pas", "ind", "Υπερσυντέλικος", 'synt', NULL, 0, NULL, NULL, "έχω", "Παρατατικός"), +("B2", "pas", "ind", "Συντελεσμένος μέλλοντας", 'synt', NULL, 0, NULL, "θα", "έχω", "Ενεστώτας"), +("B2", "pas", "ind", "Μέλλοντας στιγμιαίος", 'pass', NULL, 15, "ffffff", "θα", NULL, NULL), +-- Υποτακτική +("B2", "pas", "sub", "Ενεστώτας", 'pres', NULL, 34, "ffffff", "να", NULL, NULL), +("B2", "pas", "sub", "Αόριστος", 'pass', NULL, 15, "ffffff", "να", NULL, NULL), +("B2", "pas", "sub", "Παρακείμενος", 'synt', NULL, 0, NULL, "να", "έχω", "Παρατατικός"), +-- Προστακτική +("B2", "pas", "imp", "Ενεστώτας", 'pres', NULL, 36, "-f--f-", "να", NULL, NULL), + +("B2", "pas", "imp", "Αόριστος", 'aor', NULL, 31, "-2----", NULL, NULL, NULL), +("B2", "pas", "imp", "Αόριστος", 'pass', NULL, 32, "----2-", NULL, NULL, NULL), + +("B2", "pas", "imp", "Παρακείμενος", 'synt', NULL, 0, NULL, "να", "έχω", "Παρατατικός"); + +INSERT INTO participle VALUES +-- Συζυγία Α' +-- Ενεργητηκή φωνή +("A", "act", "Ενεστώτας", 'pres', NULL, "οντας", NULL), +("A", "act", "Παρακείμενος", 'aor', NULL, "ει", "εχοντας"), +-- Μεσοπαθητική φωνή +("A", "pas", "Παρακείμενος", 'root', NULL, "μένος", NULL), +-- Συζυγία Β΄ - α΄ τάξη +-- Ενεργητηκή φωνή +("B1", "act", "Ενεστώτας", 'pres', NULL, "ώντας", NULL), +("B1", "act", "Παρακείμενος", 'aor', NULL, "ήσει", "εχοντας"), +-- Μεσοπαθητική φωνή +("B1", "pass", "Παρακείμενος", 'pres', "η", "μένος", NULL), +-- Συζυγία Β΄ - β΄ τάξη +-- Ενεργητηκή φωνή +("B2", "act", "Ενεστώτας", 'pres', NULL, "ώντας", NULL), +("B2", "act", "Παρακείμενος", 'aor', NULL, "ει", "εχοντας"), +-- Μεσοπαθητική φωνή +("B1", "pass", "Παρακείμενος", 'pres', "η", "μένος", NULL); + +CREATE TABLE verb( + word varchar(128), -- REL 10 + conj char(2), -- REL 9 + present varchar(128), -- θέμα ενεστώτα + aorist varchar(128), -- θέμα αόριστου + pass varchar(128) -- θέμα αόριστου μεσοπαθητικής +);
\ No newline at end of file diff --git a/scm/Makefile.am b/scm/Makefile.am index 3690da9..4ae4480 100644 --- a/scm/Makefile.am +++ b/scm/Makefile.am @@ -33,3 +33,11 @@ dictrans: $(srcdir)/dictrans.scm dictrans.sed neatrans: $(srcdir)/neatrans.scm dictrans.sed sed -f dictrans.sed $(srcdir)/neatrans.scm > $@ chmod +x $@ + +lib_LTLIBRARIES=libelchr.la + +libelchr_la_SOURCES = \ + utf8.c\ + elchr.c\ + mod.c + diff --git a/scm/elchr.h b/scm/elchr.h new file mode 100644 index 0000000..6bc19ca --- /dev/null +++ b/scm/elchr.h @@ -0,0 +1,39 @@ +#define CHF_OXEIA 1 +#define CHF_PERISPWMENH 2 +#define CHF_BAREIA 3 + +#define CHF_ACCENT_MASK 0x000f + +#define CHF_TREMA 0x0010 + +#define CHF_VOWEL 0x0020 +#define CHF_CONSONANT 0x0040 +#define CHF_SEMIVOWEL 0x0080 +#define CHF_PUNCT 0x0100 +#define CHF_SYMBOL 0x0200 +#define CHF_MODIFIER 0x0400 +#define CHF_ARCHAIC 0x0800 +#define CHF_LOWER 0x1000 +#define CHF_UPPER 0x2000 +#define CHF_NUMERIC 0x4000 + +int elchr_flags(unsigned ch); +int elchr_isupper(unsigned ch); +int elchr_islower(unsigned ch); +int elchr_getaccent(unsigned ch); +int elchr_istrema(unsigned ch); +int elchr_isvowel(unsigned ch); +int elchr_isconsonant(unsigned ch); +int elchr_issemivowel(unsigned ch); +int elchr_ispunct(unsigned ch); +int elchr_issymbol(unsigned ch); +int elchr_ismodifier(unsigned ch); +int elchr_isarchaic(unsigned ch); +int elchr_isnumeric(unsigned ch); +unsigned elchr_numeric_value(unsigned ch); +unsigned elchr_toupper(unsigned ch); +unsigned elchr_tolower(unsigned ch); +unsigned elchr_base(unsigned ch); +unsigned elchr_deaccent(unsigned ch); +unsigned elchr_accent(unsigned ch, int acc); + diff --git a/scm/elstr.c b/scm/elstr.c new file mode 100644 index 0000000..816b45e --- /dev/null +++ b/scm/elstr.c @@ -0,0 +1,701 @@ +#ifdef HAVE_CONFIG_H +# include <config.h> +#endif +#include <errno.h> +#include <stdlib.h> +#include <libguile.h> +#include "utf8.h" + +#define CHF_OXEIA 1 +#define CHF_PERISPWMENH 2 +#define CHF_BAREIA 3 + +#define CHF_ACCENT_MASK 0x000f + +#define CHF_TREMA 0x0010 + +#define CHF_VOWEL 0x0020 +#define CHF_CONSONANT 0x0040 +#define CHF_SEMICONSONANT 0x0080 +#define CHF_PUNCT 0x0100 +#define CHF_SYMBOL 0x0200 +#define CHF_MODIFIER 0x0400 +#define CHF_ARCHAIC 0x0800 +#define CHF_LOWER 0x1000 +#define CHF_UPPER 0x2000 +#define CHF_NUMERIC 0x4000 + + +struct char_info_st { + unsigned ch; /* Characters */ + int flags; /* Flags (see above) */ + unsigned base; /* for vowels - a corresponding vowel with all diacritics + removed */ + unsigned trans; /* a counter-case equivalent, i.e. a corresponding uppercase + letter if flags & CHF_LOWER and a corresponding lowerrcase + letter if flags & CHF_UPPER */ + unsigned numval; /* Numeric value */ + unsigned accented[3]; /* For vowels - corresponding accented variant */ + unsigned deaccent; /* For accented vowels with diaeresis - corresponding + non-accented character */ +}; + +/* See http://www.unicode.org/charts/PDF/Unicode-5.1/U51-0370.pdf */ +struct char_info_st el_basic_ctype[] = { + { 0x0300, }, + { 0x0301, }, + { 0x0302, }, + { 0x0303, }, + { 0x0304, }, + { 0x0305, }, + { 0x0306, }, + { 0x0307, }, + { 0x0308, }, + { 0x0309, }, + { 0x030A, }, + { 0x030B, }, + { 0x030C, }, + { 0x030D, }, + { 0x030E, }, + { 0x030F, }, + { 0x0310, }, + { 0x0311, }, + { 0x0312, }, + { 0x0313, }, + { 0x0314, }, + { 0x0315, }, + { 0x0316, }, + { 0x0317, }, + { 0x0318, }, + { 0x0319, }, + { 0x031A, }, + { 0x031B, }, + { 0x031C, }, + { 0x031D, }, + { 0x031E, }, + { 0x031F, }, + { 0x0320, }, + { 0x0321, }, + { 0x0322, }, + { 0x0323, }, + { 0x0324, }, + { 0x0325, }, + { 0x0326, }, + { 0x0327, }, + { 0x0328, }, + { 0x0329, }, + { 0x032A, }, + { 0x032B, }, + { 0x032C, }, + { 0x032D, }, + { 0x032E, }, + { 0x032F, }, + { 0x0330, }, + { 0x0331, }, + { 0x0332, }, + { 0x0333, }, + { 0x0334, }, + { 0x0335, }, + { 0x0336, }, + { 0x0337, }, + { 0x0338, }, + { 0x0339, }, + { 0x033A, }, + { 0x033B, }, + { 0x033C, }, + { 0x033D, }, + { 0x033E, }, + { 0x033F, }, + { 0x0340, }, + { 0x0341, }, + { 0x0342, }, + { 0x0343, }, + { 0x0344, }, + { 0x0345, }, + { 0x0346, }, + { 0x0347, }, + { 0x0348, }, + { 0x0349, }, + { 0x034A, }, + { 0x034B, }, + { 0x034C, }, + { 0x034D, }, + { 0x034E, }, + { 0x034F, }, + { 0x0350, }, + { 0x0351, }, + { 0x0352, }, + { 0x0353, }, + { 0x0354, }, + { 0x0355, }, + { 0x0356, }, + { 0x0357, }, + { 0x0358, }, + { 0x0359, }, + { 0x035A, }, + { 0x035B, }, + { 0x035C, }, + { 0x035D, }, + { 0x035E, }, + { 0x035F, }, + { 0x0360, }, + { 0x0361, }, + { 0x0362, }, + { 0x0363, }, + { 0x0364, }, + { 0x0365, }, + { 0x0366, }, + { 0x0367, }, + { 0x0368, }, + { 0x0369, }, + { 0x036A, }, + { 0x036B, }, + { 0x036C, }, + { 0x036D, }, + { 0x036E, }, + { 0x036F, }, + { 0x0370, CHF_ARCHAIC|CHF_CONSONANT|CHF_UPPER, 0, 0x0371 }, /* CAPITAL HETTA */ + { 0x0371, CHF_ARCHAIC|CHF_CONSONANT|CHF_LOWER, 0, 0x0370 }, /* SMALL HETA */ + { 0x0372, CHF_ARCHAIC|CHF_CONSONANT|CHF_UPPER, 0, 0x0373 }, /* CAPITAL SAMPI */ + { 0x0373, CHF_ARCHAIC|CHF_CONSONANT|CHF_LOWER, 0, 0x0372 }, /* SMALL SAMPI */ + { 0x0374, CHF_MODIFIER|CHF_UPPER, 0, 0x0375 }, /* NUMERAL SIGN = dexia keraia */ + { 0x0375, CHF_MODIFIER|CHF_LOWER, 0, 0x0374 }, /* aristeri keraia */ + { 0x0376, CHF_ARCHAIC|CHF_SEMIVOWEL|CHF_UPPER, 0, 0x0377}, /* CAPITAL PAMPHYLIAN DIGAMMA */ + { 0x0377, CHF_ARCHAIC|CHF_SEMIVOWEL|CHF_LOWER, 0, 0x0376}, /* SMALL PAMPHYLIAN DIGAMMA */ + { 0x0378, }, + { 0x0379, }, + { 0x037A, CHF_ARCHAIC|CHF_MODIFIER }, /* YPOGEGRAMMENI */ + { 0x037B, CHF_SYMBOL, 0, 0x03FD }, /* SMALL REVERSED LUNATE SIGMA */ + { 0x037C, CHF_SYMBOL, 0, 0x03FE }, /* SMALL DOTTED LUNATE SIGMA */ + { 0x037D, CHF_SYMBOL, 0, 0x03FF }, /* SMALL REVERSED DOTTED LUNATE SIGMA */ + { 0x037E, CHF_PUNCT }, /* erotimatiko */ + { 0x037F, }, + { 0x0380, }, + { 0x0381, }, + { 0x0382, }, + { 0x0383, }, + { 0x0384, CHF_MODIFIER }, /* Oxeia */ + { 0x0385, CHF_MODIDFIER }, /* dialytika */ + { 0x0386, CHF_VOWEL|CHF_UPPER|CHF_OXEIA, 0x0391, 0x03AC }, /* Ά */ + { 0x0387, CHF_PUNCT }, /* ano teleia */ + { 0x0388, CHF_VOWEL|CHF_UPPER|CHF_OXEIA, 0x0395, 0x03AD }, /* Έ */ + { 0x0389, CHF_VOWEL|CHF_UPPER|CHF_OXEIA, 0x0397, 0x03AE }, /* Ή */ + { 0x038A, CHF_VOWEL|CHF_UPPER|CHF_OXEIA, 0x0399, 0x03AF }, /* Ί */ + { 0x038B, }, + { 0x038C, CHF_VOWEL|CHF_UPPER|CHF_OXEIA, 0x039F, 0x03CC }, /* Ό */ + { 0x038D, }, + { 0x038E, CHF_VOWEL|CHF_UPPER|CHF_OXEIA, 0x03A5, 0x03CD }, /* Ύ */ + { 0x038F, CHF_VOWEL|CHF_UPPER|CHF_OXEIA, 0x03A9, 0x03CE }, /* Ώ */ + { 0x0390, CHF_VOWEL|CHF_LOWER|CHF_TREMA|CHF_OXEIA, 0x03B9, 0, 0, 0, 0, 0x03CA }, /* ΐ */ + { 0x0391, CHF_VOWEL|CHF_UPPER|CHF_NUMERIC, 0, 0x03B1, 1, 0x0386 }, /* Α */ + { 0x0392, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03B2, 2 }, /* Β */ + { 0x0393, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03B3, 3 }, /* Γ */ + { 0x0394, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03B4, 4 }, /* Δ */ + { 0x0395, CHF_VOWEL|CHF_UPPER|CHF_NUMERIC, 0, 0x03B5, 5, 0x0388 }, /* Ε */ + { 0x0396, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03B6, 7 }, /* Ζ */ + { 0x0397, CHF_VOWEL|CHF_UPPER|CHF_NUMERIC, 0, 0x03B7, 8, 0x0389 }, /* Η */ + { 0x0398, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03B8, 9 }, /* Θ */ + { 0x0399, CHF_VOWEL|CHF_UPPER|CHF_NUMERIC, 0, 0x03B9, 10, 0x038A }, /* Ι */ + { 0x039A, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03BA, 20 }, /* Κ */ + { 0x039B, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03BB, 30 }, /* Λ */ + { 0x039C, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03BC, 40 }, /* Μ */ + { 0x039D, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03BD, 50 }, /* Ν */ + { 0x039E, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03BE, 60 }, /* Ξ */ + { 0x039F, CHF_VOWEL|CHF_UPPER|CHF_NUMERIC, 0, 0x03BF, 70, 0x038C }, /* Ο */ + { 0x03A0, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03C0, 80 }, /* Π */ + { 0x03A1, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03C1, 100 }, /* Ρ */ + { 0x03A2, }, + { 0x03A3, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03C3, 200 }, /* Σ */ + { 0x03A4, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03C4, 300 }, /* Τ */ + { 0x03A5, CHF_VOWEL|CHF_UPPER|CHF_NUMERIC, 0, 0x03C5, 400, 0x038E }, /* Υ */ + { 0x03A6, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03C6, 500 }, /* Φ */ + { 0x03A7, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03C7, 600 }, /* Χ */ + { 0x03A8, CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03C8, 700 }, /* Ψ */ + { 0x03A9, CHF_COWEL|CHF_UPPER|CHF_NUMERIC, 0, 0x03C9, 800, 0x038F }, /* Ω */ + { 0x03AA, CHF_VOWEL|CHF_UPPER|CHF_TREMA, 0x0399, 0x03CA }, /* Ϊ */ + { 0x03AB, CHF_VOWEL|CHF_UPPER|CHF_TREMA, 0x03A5, 0x03CB }, /* Ϋ */ + { 0x03AC, CHF_VOWEL|CHF_LOWER|CHF_OXEIA, 0x03B1, 0x0386 }, /* ά */ + { 0x03AD, CHF_VOWEL|CHF_LOWER|CHF_OXEIA, 0x03B4, 0x0388 }, /* έ */ + { 0x03AE, CHF_VOWEL|CHF_LOWER|CHF_OXEIA, 0x03B7, 0x0389 }, /* ή */ + { 0x03AF, CHF_VOWEL|CHF_LOWER|CHF_OXEIA, 0x03B9, 0x038A }, /* ί */ + { 0x03B0, CHF_VOWEL|CHF_OXEIA|CHF_TREMA, 0x03C5, 0, 0, 0, 0, 0x03CB }, /* ΰ */ + { 0x03B1, CHF_VOWEL|CHF_LOWER|CHF_NUMERIC, 0, 0x0391, 1, 0x03AC }, /* α */ + { 0x03B2, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x0392, 2 }, /* β */ + { 0x03B3, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x0393, 3 }, /* γ */ + { 0x03B4, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x0394, 4 }, /* δ */ + { 0x03B5, CHF_CONSONANT|CHF_VOWEL|CHF_LOWER|CHF_NUMERIC, 0, 0x0395, 5, 0x03AD }, /* ε */ + { 0x03B6, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x0396, 7 }, /* ζ */ + { 0x03B7, CHF_CONSONANT|CHF_VOWEL|CHF_LOWER|CHF_NUMERIC, 0, 0x0397, 8, 0x03AE }, /* η */ + { 0x03B8, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x0398, 9 }, /* θ */ + { 0x03B9, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x0399, 10, 0x03AF }, /* ι */ + { 0x03BA, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x039A, 20 }, /* κ */ + { 0x03BB, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x039B, 30 }, /* λ */ + { 0x03BC, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x039C, 40 }, /* μ */ + { 0x03BD, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x039D, 50 }, /* ν */ + { 0x03BE, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x039E, 60 }, /* ξ */ + { 0x03BF, CHF_VOWEL|CHF_LOWER|CHF_NUMERIC, 0, 0x039F, 70, 0x03CC }, /* ο */ + { 0x03C0, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x03A0, 80 }, /* π */ + { 0x03C1, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x03A1, 100 }, /* ρ */ + { 0x03C2, CHF_CONSONANT|CHF_LOWER, 0, 0x03A3 }, /* ς */ + { 0x03C3, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x03A3, 200 }, /* σ */ + { 0x03C4, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x03A4, 300 }, /* τ */ + { 0x03C5, CHF_VOWEL|CHF_LOWER|CHF_NUMERIC, 0, 0x03A5, 400, 0x03CD }, /* υ */ + { 0x03C6, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x03A6, 500 }, /* φ */ + { 0x03C7, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x03A7, 600 }, /* χ */ + { 0x03C8, CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x03A8, 700 }, /* ψ */ + { 0x03C9, CHF_VOWEL|CHF_LOWER|CHF_NUMERIC, 0, 0x03A9, 800, 0x03CE }, /* ω */ + { 0x03CA, CHF_VOWEL|CHF_LOWER|CHF_TREMA, 0x03B9, 0x03AA, 0, 0x0390 }, /* ϊ */ + { 0x03CB, CHF_VOWEL|CHF_LOWER|CHF_TREMA, 0x03C5, 0x03AB, 0, 0x03B0 }, /* ϋ */ + { 0x03CC, CHF_VOWEL|CHF_LOWER|CHF_OXEIA, 0x03BF, 0x038C }, /* ό */ + { 0x03CD, CHF_VOWEL|CHF_LOWER|CHF_OXEIA, 0x03C5, 0x038E }, /* ύ */ + { 0x03CE, CHF_VOWEL|CHF_LOWER|CHF_OXEIA, 0x03CE, 0x038F }, /* ώ */ + { 0x03CF, CHF_SYMBOL|CHF_UPPER, 0x03D7 }, /* KAI */ + { 0x03D0, CHF_CONSONANT|CHF_LOWER, 0, 0x0392 }, /* curled beta */ + { 0x03D1, CHF_CONSONANT|CHF_LOWER, 0, 0x0398 }, /* script theta */ + { 0x03D2, CHF_VOWEL|CHF_UPPER, }, /* capital ypsilon with hook */ + { 0x03D3, CHF_VOWEL|CHF_OXEIA, 0x03D2 }, /* capital ypsilon with acute & hook */ + { 0x03D4, CHF_VOWEL|CHF_TREMA, 0x03D2 }, /* capital ypsilon with diaeresis & hook */ + { 0x03D5, CHF_CONSONANT|CHF_LOWER, 0, 0x03A6 }, /* phi */ + { 0x03D6, CHF_CONSONANT|CHF_LOWER, 0, 0x03A0 }, /* pi */ + { 0x03D7, CHF_SYMBOL|CHF_LOWER, 0, 0x03CF }, /* kai */ + { 0x03D8, CHF_ARCHAIC|CHF_CONSONANT|CHF_UPPER, 0, 0x03D9 }, /* QOPPA */ + { 0x03D9, CHF_ARCHAIC|CHF_CONSONANT|CHF_LOWER, 0, 0x03D8 }, /* qoppa */ + { 0x03DA, CHF_ARCHAIC|CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03DB, 6 }, /* STIGMA */ + { 0x03DB, CHF_ARCHAIC|CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x03DA, 6 }, /* stigma */ + { 0x03DC, CHF_ARCHAIC|CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03DD, 6 }, /* DIGAMMA */ + { 0x03DD, CHF_ARCHAIC|CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x03DC, 6 }, /* digamma */ + { 0x03DE, CHF_ARCHAIC|CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03DF, 6 }, /* KOPPA */ + { 0x03DF, CHF_ARCHAIC|CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x03DE, 6 }, /* koppa */ + { 0x03E0, CHF_ARCHAIC|CHF_CONSONANT|CHF_UPPER|CHF_NUMERIC, 0, 0x03E1, 900 }, /* SAMPI */ + { 0x03E1, CHF_ARCHAIC|CHF_CONSONANT|CHF_LOWER|CHF_NUMERIC, 0, 0x03E0, 900 }, /* sampi */ + { 0x03E2, }, + { 0x03E3, }, + { 0x03E4, }, + { 0x03E5, }, + { 0x03E6, }, + { 0x03E7, }, + { 0x03E8, }, + { 0x03E9, }, + { 0x03EA, }, + { 0x03EB, }, + { 0x03EC, }, + { 0x03ED, }, + { 0x03EE, }, + { 0x03EF, }, + { 0x03F0, CHF_CONSONANT|CHF_LOWER, 0, 0x039A }, /* kappa */ + { 0x03F1, CHF_CONSONANT|CHF_LOWER, 0, 0x03A1 }, /* tailed rho */ + { 0x03F2, CHF_CONSONANT, 0, 0x03F9 }, /* lunate sigma */ + { 0x03F3, CHF_SEMIVOWEL|CHF_LOWER, }, /* yot */ + { 0x03F4, CHF_CONSONANT|CHF_UPPER, 0, 0x03B8 }, /* THETA */ + { 0x03F5, CHF_SYMBOL|CHF_LOWER, 0, 0x0395 }, /* lunate epsilon */ + { 0x03F6, CHF_SYMBOL|CHF_LOWER, }, /* reversed lunate epsilon */ + { 0x03F7, }, + { 0x03F8, }, + { 0x03F9, CHF_CONSONANT|CHF_UPPER, 0, 0x03F2 }, /* LUNATE SIGMA */ + { 0x03FA, CFH_ANCIENT|CHF_CONSONANT|CHF_UPPER, 0, 0x03FB }, /* SAN */ + { 0x03FB, CFH_ANCIENT|CHF_CONSONANT|CHF_LOWER, 0, 0x03FA }, /* san */ + { 0x03FC, CHF_SYMBOL|CHF_CONSONANT|CHF_LOWER, }, /* rho with stroke */ + { 0x03FD, CHF_SYMBOL|CHF_CONSONANT|CHF_UPPER, 0, 0x037B}, /* CAPITAL REV. LUNATE SIGMA + antisigma */ + { 0x03FE, CHF_SYMBOL|CHF_CONSONANT|CHF_UPPER, 0, 0x037C }, /* CAPITAL DOTTED LUNATE SIGMA + sigma periestigmenon */ + { 0x03FF, CHF_SYMBOL|CHF_CONSONANT|CHF_UPPER, 0, 0x037D }, /* antisigma periestigmenon */ +}; + +/* FIXME: Implement http://www.unicode.org/charts/PDF/U1F00.pdf */ +struct char_info_st el_extended_ctype[] = { + { 0x1F00, }, + { 0x1F01, }, + { 0x1F02, }, + { 0x1F03, }, + { 0x1F04, }, + { 0x1F05, }, + { 0x1F06, }, + { 0x1F07, }, + { 0x1F08, }, + { 0x1F09, }, + { 0x1F0A, }, + { 0x1F0B, }, + { 0x1F0C, }, + { 0x1F0D, }, + { 0x1F0E, }, + { 0x1F0F, }, + { 0x1F10, }, + { 0x1F11, }, + { 0x1F12, }, + { 0x1F13, }, + { 0x1F14, }, + { 0x1F15, }, + { 0x1F16, }, + { 0x1F17, }, + { 0x1F18, }, + { 0x1F19, }, + { 0x1F1A, }, + { 0x1F1B, }, + { 0x1F1C, }, + { 0x1F1D, }, + { 0x1F1E, }, + { 0x1F1F, }, + { 0x1F20, }, + { 0x1F21, }, + { 0x1F22, }, + { 0x1F23, }, + { 0x1F24, }, + { 0x1F25, }, + { 0x1F26, }, + { 0x1F27, }, + { 0x1F28, }, + { 0x1F29, }, + { 0x1F2A, }, + { 0x1F2B, }, + { 0x1F2C, }, + { 0x1F2D, }, + { 0x1F2E, }, + { 0x1F2F, }, + { 0x1F30, }, + { 0x1F31, }, + { 0x1F32, }, + { 0x1F33, }, + { 0x1F34, }, + { 0x1F35, }, + { 0x1F36, }, |