aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--configure.ac3
-rw-r--r--data/db.struct283
-rw-r--r--scm/Makefile.am8
-rw-r--r--scm/elchr.h39
-rw-r--r--scm/elstr.c701
-rw-r--r--scm/mod.c10
-rw-r--r--scm/utf8.c2135
-rw-r--r--scm/utf8.h68
-rw-r--r--xml/pl/rhmata.xml46
-rw-r--r--xml/ru/rhmata.xml20
-rw-r--r--xml/uk/alfabhta.xml4
-rw-r--r--xml/uk/antonimies.xml882
-rw-r--r--xml/uk/arithmi.xml571
-rw-r--r--xml/uk/ellinika.xml2
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, },