Fix syllabification.

* configure.ac: Add AC_PROG_YACC
* src/ellinika/phoneme.y: New file.
* src/ellinika/yyrename: New file.
* src/ellinika/syllabificator.c: New file.
* src/ellinika/.gitignore: Update.
* src/ellinika/elchr.c (char_info_st): Move to header.
(el_basic_ctype):
(elchr_info): Remove static qualifier.
Return a pointer to const.
(elchr_letter,elchr_phoneme): New functions.
(elchr_diphthong): Remove.
* src/ellinika/elmorph.c (elstr)<phoneme,phoneme_count>: New members.
(_elstr_syllabize): Rewrite.
(invalidate_maps)" New static function.
(_elstr_alloc): Initialize new fields, take function name
as argument, for diagnostic purposes.
(_elstr_print): Rewrite
(deftab): Update.
(elstr-syllable-prop,elstr-syllable)
(_elstr_set_accent,_elstr_set_accent_on_char): Rewrite.
(elstr-char-phoneme,elstr->phonetic-map): New functions.
* src/ellinika/elmorph.h (CHF_DIPH1,CHF_DIPH2): Remove.
(CHF_DIPHTHONG): New flag.
(PHON_.*): New constants.
(phoneme,syllable): New structures.
(char_info_st)<letter,phoneme>: New members.
(elchr_info,elchr_letter)
(elchr_phoneme,phoneme_map)
(syllable_map): New protos.
(elchr_diphthong): Remove protos.
* src/ellinika/elmorph.scm4: Move public definitions
to elmorph-public.scm; include it here.
* src/ellinika/xlat.scm (ellinika:sounds-like): Rewrite as a
wrapper over elstr->soundslike.

Describe Milesian numbers.

* style.css (img.ellinika-img): New class.
* xml/lingua.conf.in (IMAGE): New tag.
* xml/pl/alfabhta.xml: Describe Milesian numbers.

Various fixes.

* data/dbverb.struct: fix a typo in flection.
Use 'sub' theme for pas/sub/aor.
* data/irregular-verbs.xml: Add more verbs.
* scm/conjugator.scm: Various fixes.
* scm/verbop.scm: Accept empty mood and voice declarations.

24 files changed, 1588 insertions, 1177 deletions

diff --git a/configure.ac b/configure.ac
index 233ec46..01b27a2 100644
--- a/configure.ac
+++ b/configure.ac
@@ -28,6 +28,7 @@ AC_CONFIG_MACRO_DIR([m4])
 
 ## * Checks for programs.
 AC_PROG_CC
+AC_PROG_YACC
 AM_PROG_LIBTOOL
 
 M4='`cd $(top_srcdir); pwd`/scripts/missing --run m4'
diff --git a/data/dbverb.struct b/data/dbverb.struct
index 06745c8..d51633b 100644
--- a/data/dbverb.struct
+++ b/data/dbverb.struct
@@ -65,7 +65,7 @@ INSERT INTO verbflect VALUES
 (8, NULL, "ε", NULL, NULL, "ετε", NULL),
 (9, NULL, "ε", NULL, NULL, "τε", NULL),
 (11, "ομαι", "εσαι", "εται", "όμαστε", "εστε", "ονται"),
-(12, "όμουν", "όσουν", "όταν", "όμαστε", "ό����στε", "ονταν"),
+(12, "όμουν", "όσουν", "όταν", "όμαστε", "όσαστε", "ονταν"),
 (15, "ώ", "είς", "εί", "ούμε", "είτε", "ούν(ε)"),
 (17, NULL, "ου", NULL, NULL, NULL, NULL),
 (18, NULL, NULL, NULL, NULL, "είτε", NULL),
@@ -123,7 +123,7 @@ INSERT INTO conjugation VALUES
 ("A", "pas", "ind", "Μέλλοντας στιγμιαίος", 'aor', NULL, 15, "111111", "θα", NULL, NULL),
 --   Υποτακτική
 ("A", "pas", "sub", "Ενεστώτας", 'pres', NULL, 11, "333333", "να", NULL, NULL),
-("A", "pas", "sub", "Αόριστος", 'aor', NULL, 15, "111221", "να", NULL, NULL),
+("A", "pas", "sub", "Αόριστος", 'sub', NULL, 15, "111221", "να", NULL, NULL),
 ("A", "pas", "sub", "Παρακείμενος", 'synt', NULL, 0, NULL, "να", "έχω", "Παρατατικός"),
 --   Προστακτική
 ("A", "pas", "imp", "Ενεστώτας", 'pres', NULL, 11, "-3--3-", "να", NULL, NULL),
diff --git a/data/irregular-verbs.xml b/data/irregular-verbs.xml
index ca2c7d1..d056f7d 100644
--- a/data/irregular-verbs.xml
+++ b/data/irregular-verbs.xml
@@ -56,28 +56,7 @@
       </imp>
     </act>
 
-    <pas>
-      <ind>
-        <t name="Ενεστώτας"/>
-        <t name="Παρατατικός"/>
-        <t name="Μέλλοντας διαρκείας"/>
-        <t name="Αόριστος" />
-        <t name="Παρακείμενος"/>
-        <t name="Υπερσυντέλικος"/>
-        <t name="Συντελεσμένος μέλλοντας"/>
-        <t name="Μέλλοντας στιγμιαίος"/>
-      </ind>
-      <sub>
-        <t name="Ενεστώτας"/>
-        <t name="Αόριστος" />
-        <t name="Παρακείμενος"/>
-      </sub>
-      <imp>
-        <t name="Ενεστώτας"/>
-        <t name="Αόριστος" />
-        <t name="Παρακείμενος"/>
-      </imp>
-    </pas>
+    <pas/>
   </v>
 
   <v>
@@ -109,28 +88,8 @@
         <t name="Παρακείμενος"/>
       </imp>
     </act>
-    <pas>
-      <ind>
-        <t name="Ενεστώτας"/>
-        <t name="Παρατατικός"/>
-        <t name="Μέλλοντας διαρκείας"/>
-        <t name="Αόριστος" />
-        <t name="Παρακείμενος"/>
-        <t name="Υπερσυντέλικος"/>
-        <t name="Συντελεσμένος μέλλοντας"/>
-        <t name="Μέλλοντας στιγμιαίος"/>
-      </ind>
-      <sub>
-        <t name="Ενεστώτας"/>
-        <t name="Αόριστος" />
-        <t name="Παρακείμενος"/>
-      </sub>
-      <imp>
-        <t name="Ενεστώτας"/>
-        <t name="Αόριστος" />
-        <t name="Παρακείμενος"/>
-      </imp>
-    </pas>
+    
+    <pas/>
   </v>  
 
   <v>
@@ -337,6 +296,31 @@
     </act>
   </v>
 
+  <v>
+    <a>έρχομαι</a>
+    <c>A</c>
+    <suffix></suffix>
+    <accmap>000000</accmap>
+    <act>
+      <root theme="sub">ερθ</root>
+      <ind/>
+      <sub>
+        <t name="Ενεστώτας"/>
+        <t name="Παρατατικός"/>
+        <t name="Μέλλοντας διαρκείας"/>
+        <t name="Παρακείμενος"/>
+        <t name="Υπερσυντέλικος"/>
+        <t name="Συντελεσμένος μέλλοντας"/>
+        <t name="Μέλλοντας στιγμιαίος"/>
+      </sub>    
+      <imp/>
+    </act>
+    <pas>
+      <root theme="aor">ήρθ</root>
+      <root theme="sub">ερθ</root>
+    </pas>
+  </v>
+  
 <!-- FIXME
      έρχομαι
      κάθομαι
@@ -414,15 +398,6 @@
   </v>
 
   <v>
-    <a></a>
-    <c>A</c>
-    <act>
-      <root theme="aor"></root>
-      <root theme="sub"></root>
-    </act>
-  </v>
-    
-  <v>
     <a>ξέρω</a>
     <c>A</c>
     <augment>η</augment>
diff --git a/scm/conj.scm b/scm/conj.scm
deleted file mode 100644
index 3c2e96a..0000000
--- a/scm/conj.scm
+++ /dev/null
@@ -1,335 +0,0 @@
-(use-modules (xlat))
-
-(define (active-aorist-root present-root)
-  (let ((last-syllable (car present-root)))
-    (case (car last-syllable)
-      ((#\@)
-       (set-car! last-syllable #\s))
-      ((#\z)
-       (set-car! last-syllable #\s)) ;; FIXME: not always
-      ((#\k)
-       (cond
-        ((and (not (null? (cdr last-syllable)))
-              (char=? (cadr last-syllable) #\s))
-         (set! last-syllable (cons #\x (cddr last-syllable))))
-        (else
-         (set-car! last-syllable #\x))))
-      ((#\n)
-       (cond
-        ((and (not (null? (cdr last-syllable)))
-              (char=? (cadr last-syllable) #\h))
-         (set! last-syllable (cons #\x (cddr last-syllable))))
-        (else
-         (set-car! last-syllable #\s))))
-      ((#\g #\h)
-       (set-car! last-syllable #\x))
-      ((#\p #\b #\f)
-       (set-car! last-syllable #\*))
-      ((#\y)