table.patch

diff --git a/qt4/pref/customwidgets.cpp b/qt4/pref/customwidgets.cpp
index 3807e50..6bb2aac 100644
--- a/qt4/pref/customwidgets.cpp
+++ b/qt4/pref/customwidgets.cpp
@@ -39,8 +39,10 @@
 
 #include <QtCore/QPointer>
 #include <QtGui/QFileDialog>
+#include <QtGui/QHeaderView>
 #include <QtGui/QLabel>
 #include <QtGui/QPushButton>
+#include <QtGui/QTableWidget>
 #include <QtGui/QTreeWidget>
 #include <QtGui/QTreeWidgetItem>
 #include <QtGui/QVBoxLayout>
@@ -1190,6 +1192,182 @@ void KeyGrabDialog::setKeyStr()
         
 }
 
+//----------------------------------------------------------------------------------------
+CustomTable::CustomTable( struct uim_custom *c, QWidget *parent )
+    : QFrame( parent ),
+      UimCustomItemIface( c )
+{
+    m_table = new QTableWidget;
+    m_table->setSelectionMode( QAbstractItemView::SingleSelection );
+    m_table->horizontalHeader()->setVisible( false );
+    m_table->verticalHeader()->setVisible( false );
+    connect( m_table, SIGNAL(cellChanged(int, int)),
+            this, SLOT(slotCellChanged(int, int)) );
+
+    m_addButton = new QPushButton;
+    m_addButton->setText( _("Add") );
+    connect( m_addButton, SIGNAL(clicked()),
+            this, SLOT(slotAddClicked()) );
+
+    m_removeButton = new QPushButton;
+    m_removeButton->setText( _("Remove") );
+    connect( m_removeButton, SIGNAL(clicked()),
+            this, SLOT(slotRemoveClicked()) );
+
+    QVBoxLayout *buttonLayout = new QVBoxLayout;
+    buttonLayout->addWidget( m_addButton );
+    buttonLayout->addWidget( m_removeButton );
+    buttonLayout->addStretch();
+
+    QHBoxLayout *layout = new QHBoxLayout;
+    layout->addWidget( m_table );
+    layout->addLayout( buttonLayout );
+
+    setLayout( layout );
+
+    update();
+}
+
+void CustomTable::update()
+{
+    if( !m_custom || m_custom->type != UCustom_Table )
+        return;
+
+    char ***custom_table = m_custom->value->as_table;
+    if ( custom_table ) {
+        // the number may differ from row to row
+        int max_column = -1;
+        int row;
+        for ( row = 0; custom_table[row]; row++ ) {
+            for ( int column = 0; custom_table[row][column]; column++ ) {
+                if ( max_column < column )
+                    max_column = column;
+            }
+        }
+        m_table->setRowCount( row );
+        m_table->setColumnCount( max_column + 1 );
+
+        // don't call slotCellChanged()
+        m_table->setEnabled( false );
+        for ( int row = 0; custom_table[row]; row++ ) {
+            bool expanded = false;
+            for ( int column = 0; column < max_column + 1; column++ ) {
+                if ( !custom_table[row][column] )
+                    expanded = true;
+                QTableWidgetItem *item = new QTableWidgetItem( expanded ?
+                    "" : _FU8( custom_table[row][column] ) );
+                if ( expanded )
+                    item->setFlags( Qt::NoItemFlags );
+                m_table->setItem( row, column, item );
+            }
+        }
+        m_table->setEnabled( true );
+    }
+
+    /* sync with Label */
+    parentWidget()->setEnabled( m_custom->is_active );
+}
+
+void CustomTable::setDefault()
+{
+    char ***custom_table = m_custom->value->as_table;
+    for ( int row = 0; custom_table[row]; row++ ) {
+        for ( int column = 0; custom_table[row][column]; column++ ) {
+            free( custom_table[row][column] );
+        }
+        free( custom_table[row] );
+    }
+    char ***default_table = m_custom->default_value->as_table;
+    int row;
+    for ( row = 0; default_table[row]; row++ )
+        ;
+    custom_table = (char ***)malloc( sizeof(char **) * ( row + 1 ) );
+    custom_table[row] = 0;
+
+    m_custom->value->as_table = custom_table;
+
+    for ( int row = 0; default_table[row]; row++ ) {
+        int column;
+        for ( column = 0; default_table[row][column]; column++ )
+            ;
+        custom_table[row] = (char **)malloc( sizeof(char *) * ( column + 1 ) );
+        custom_table[row][column] = 0;
+        for ( int column = 0; default_table[row][column]; column++ )
+            custom_table[row][column] = strdup( default_table[row][column] );
+    }
+
+    setCustom( m_custom );
+    update();
+}
+
+void CustomTable::setTableCustom()
+{
+    char ***custom_table = m_custom->value->as_table;
+    for ( int row = 0; custom_table[row]; row++ ) {
+        for ( int column = 0; custom_table[row][column]; column++ ) {
+            free( custom_table[row][column] );
+        }
+        free( custom_table[row] );
+    }
+    int rowCount = m_table->rowCount();
+    custom_table = (char ***)malloc( sizeof(char **) * ( rowCount + 1 ) );
+    custom_table[rowCount] = 0;
+
+    m_custom->value->as_table = custom_table;
+
+    int columnCount = m_table->columnCount();
+
+    for ( int row = 0; row < rowCount; row++ ) {
+        int columnCountForRow = columnCount;
+        for ( int column = 0; column < columnCount; column++ ) {
+            if ( !( m_table->item( row, column )->flags() ) ) {
+                columnCountForRow = column;
+                break;
+            }
+        }
+        custom_table[row]
+            = (char **)malloc( sizeof(char *) * ( columnCountForRow + 1 ) );
+        custom_table[row][columnCountForRow] = 0;
+        for ( int column = 0; column < columnCountForRow; column++ )
+            custom_table[row][column] = strdup(
+                m_table->item( row, column )->text().toUtf8().data() );
+    }
+
+    setCustom( m_custom );
+}
+
+void CustomTable::slotCellChanged(int row, int column)
+{
+    if ( !m_table->isEnabled() )
+        return;
+    m_custom->value->as_table[row][column]
+        = strdup( m_table->item( row, column )->text().toUtf8().data() );
+    setCustom( m_custom );
+}
+
+void CustomTable::slotAddClicked()
+{
+    QList<QTableWidgetItem *> items = m_table->selectedItems();
+    int row = ( items.count() > 0 ) ? items[0]->row() + 1 : m_table->rowCount();
+    m_table->insertRow( row );
+    // don't call slotCellChanged()
+    m_table->setEnabled( false );
+    for ( int i = 0; i < m_table->columnCount(); i++ )
+        m_table->setItem( row, i, new QTableWidgetItem( "" ) );
+    m_table->setEnabled( true );
+    m_table->scrollToItem( m_table->item( row, 0 ) );
+    setTableCustom();
+}
+
+void CustomTable::slotRemoveClicked()
+{
+    QList<QTableWidgetItem *> items = m_table->selectedItems();
+    if ( items.count() != 1 )
+        return;
+    m_table->removeRow( items[0]->row() );
+    setTableCustom();
+}
+
 static QString unicodeKeyToSymStr ( QChar c )
 {
     QString str;
diff --git a/qt4/pref/customwidgets.h b/qt4/pref/customwidgets.h
index def9009..3c87f1b 100644
--- a/qt4/pref/customwidgets.h
+++ b/qt4/pref/customwidgets.h
@@ -47,9 +47,10 @@
 #include "keyeditformbase.h"
 #include "olisteditformbase.h"
 
-class QPushButton;
 class QListViewItem;
 class QFileDialog;
+class QPushButton;
+class QTableWidget;
 
 class UimCustomItemIface
 {
@@ -296,4 +297,29 @@ protected:
     QString m_keystr; 
 };
 
+//----------------------------------------------------------------------------------------
+class CustomTable : public QFrame, public UimCustomItemIface
+{
+    Q_OBJECT
+
+public:
+    CustomTable( struct uim_custom *c, QWidget *parent );
+
+    virtual void update();
+    virtual void setDefault();
+private:
+    void setTableCustom();
+    QTableWidget *m_table;
+    QPushButton *m_addButton;
+    QPushButton *m_removeButton;
+protected:
+    void currentCustomValueChanged(){ emit customValueChanged(); }
+signals:
+    void customValueChanged();
+private slots:
+    void slotCellChanged(int row, int column);
+    void slotAddClicked();
+    void slotRemoveClicked();
+};
+
 #endif /* Not def: UIM_QT4_PREF_CUSTOMWIDGETS_H */
diff --git a/qt4/pref/qt4.cpp b/qt4/pref/qt4.cpp
index f2e7618..8d15812 100644
--- a/qt4/pref/qt4.cpp
+++ b/qt4/pref/qt4.cpp
@@ -540,6 +540,9 @@ UimCustomItemIface *GroupPageWidget::addCustom( QGroupBox *vbox, const char *cus
         case UCustom_Key:
             w = addCustomTypeKey( vbox, custom );
             break;
+        case UCustom_Table:
+            w = addCustomTypeTable( vbox, custom );
+            break;
         default:
             w = 0;
             qWarning( "Invalid custom type: %d\n", custom->type );
@@ -693,6 +696,28 @@ UimCustomItemIface *GroupPageWidget::addCustomTypeKey( QGroupBox *vbox, struct u
     return keyEditBox;
 }
 
+UimCustomItemIface *GroupPageWidget::addCustomTypeTable( QGroupBox *vbox, struct uim_custom *custom )
+{
+    QFrame *hbox = new QFrame;
+    QLabel *label = new QLabel( _FU8(custom->label), hbox );
+    CustomTable *tableBox = new CustomTable( custom, hbox );
+    label->setBuddy( tableBox );
+    connect( tableBox, SIGNAL(customValueChanged()),
+                      this, SLOT(slotCustomValueChanged()) );
+
+    QVBoxLayout *layout = new QVBoxLayout;
+    layout->setMargin( 0 );
+    layout->setSpacing( 6 );
+    layout->addWidget( label );
+    layout->addWidget( tableBox );
+
+    hbox->setLayout( layout );
+    vbox->layout()->addWidget( hbox );
+
+    return tableBox;
+}
+
+
 void GroupPageWidget::setDefault()
 {
     foreach ( UimCustomItemIface *iface, m_customIfaceList )
diff --git a/qt4/pref/qt4.h b/qt4/pref/qt4.h
index 58ae67f..27c93a2 100644
--- a/qt4/pref/qt4.h
+++ b/qt4/pref/qt4.h
@@ -126,6 +126,7 @@ protected:
     UimCustomItemIface *addCustomTypeChoice( QGroupBox *vbox, struct uim_custom *custom );
     UimCustomItemIface *addCustomTypeOrderedList( QGroupBox *vbox, struct uim_custom *custom );
     UimCustomItemIface *addCustomTypeKey( QGroupBox *vbox, struct uim_custom *custom );
+    UimCustomItemIface *addCustomTypeTable( QGroupBox *vbox, struct uim_custom *custom );
 
 protected slots:
     void slotCustomValueChanged(){ emit customValueChanged(); }
diff --git a/scm/custom.scm b/scm/custom.scm
index f9bb938..94b3d4d 100644
--- a/scm/custom.scm
+++ b/scm/custom.scm
@@ -65,7 +65,8 @@
     (pathname     . custom-pathname?)
     (choice       . custom-valid-choice?)
     (ordered-list . custom-ordered-list?)
-    (key          . custom-key?)))
+    (key          . custom-key?)
+    (table        . custom-table?)))
 
 (define anything?
   (lambda (x)
@@ -119,6 +120,16 @@
 			   (custom-exist? key 'key))))
 		key-repls))))
 
+(define custom-table?
+  (lambda (table-repls)
+    (and (list? table-repls)
+         (every (lambda (row)
+                  (and (list? row)
+                       (every (lambda (cell)
+                                (string? cell))
+                              row)))
+                table-repls))))
+
 (define custom-pathname-type
   (lambda (custom-sym)
     (car (custom-type-attrs custom-sym))))
@@ -677,6 +688,18 @@
 			      lst)))
       (string-append "'(" (string-join canonicalized " ") ")"))))
 
+; (custom-list-as-table  '(("a" "b" "c") ("d" "e")))
+;   -> "'((\"a\" \"b\" \"c\") (\"d\" \"e\"))"
+(define custom-list-as-table
+  (lambda (tbl)
+    (string-append "'("
+      (string-join
+        (map (lambda (lst)
+          (string-append "(" 
+            (string-join
+              (map (lambda (elem)
+                (string-escape elem)) lst) " ") ")")) tbl) " ") ")")))
+
 ;; API
 (define custom-value-as-literal
   (lambda (sym)
@@ -694,6 +717,8 @@
        ((or (eq? type 'ordered-list)
 	    (eq? type 'key))
 	(custom-list-as-literal val))
+       ((eq? type 'table)
+	(custom-list-as-table val))
        ((or (eq? val #f)
 	    (eq? type 'boolean))
 	(if (eq? val #f)
diff --git a/scm/japanese-custom.scm b/scm/japanese-custom.scm
index 645b1a7..14a17be 100644
--- a/scm/japanese-custom.scm
+++ b/scm/japanese-custom.scm
@@ -28,6 +28,619 @@
 ;;; SUCH DAMAGE.
 ;;;;
 
+(define ja-rk-rule-basic
+  '(
+    ((("-"). ())("ー" "ー" "ｰ"))
+    (((","). ())("、" "、" "､"))
+    ((("."). ())("。" "。" "｡"))
+    ((("!"). ())("！" "！" "!"))
+    ((("\""). ())("”" "”" "\""))
+    ((("#"). ())("＃" "＃" "#"))
+    ((("$"). ())("＄" "＄" "$"))
+    ((("%"). ())("％" "％" "%"))
+    ((("&"). ())("＆" "＆" "&"))
+    ((("'"). ())("’" "’" "'"))
+    ((("("). ())("（" "（" "("))
+    (((")"). ())("）" "）" ")"))
+    ((("~"). ())("〜" "〜" "~"))
+    ((("="). ())("＝" "＝" "="))
+    ((("^"). ())("＾" "＾" "^"))
+    ((("\\"). ())("＼" "＼" "\\"))
+    ((("|"). ())("｜" "｜" "|"))
+    ((("`"). ())("‘" "‘" "`"))
+    ((("@"). ())("＠" "＠" "@"))
+    ((("{"). ())("｛" "｛" "{"))
+    ((("["). ())("「" "「" "｢"))
+    ((("+"). ())("＋" "＋" "+"))
+    (((";"). ())("；" "；" ";"))
+    ((("*"). ())("＊" "＊" "*"))
+    (((":"). ())("：" "：" ":"))
+    ((("}"). ())("｝" "｝" "}"))
+    ((("]"). ())("」" "」" "｣"))
+    ((("<"). ())("＜" "＜" "<"))
+    (((">"). ())("＞" "＞" ">"))
+    ((("?"). ())("？" "？" "?"))
+    ((("/"). ())("／" "／" "/"))
+    ((("_"). ())("＿" "＿" "_"))
+    ;; Since ordinary Japanese users press the "yen sign" key on
+    ;; Japanese keyboard in romaji-halfwidth-kana-mode "to input
+    ;; character code 134" rather than "to input yen sign symbol", I
+    ;; changed the fullwidth yen sign with backslash.
+    ;;   -- YamaKen 2007-09-17
+    ;; ((("yen"). ())("￥" "￥" "￥")) ;; XXX
+    ((("yen"). ())("￥" "￥" "\\"))
+
+    ((("1"). ())("1" "1" "1"))
+    ((("2"). ())("2" "2" "2"))
+    ((("3"). ())("3" "3" "3"))
+    ((("4"). ())("4" "4" "4"))
+    ((("5"). ())("5" "5" "5"))
+    ((("6"). ())("6" "6" "6"))
+    ((("7"). ())("7" "7" "7"))
+    ((("8"). ())("8" "8" "8"))
+    ((("9"). ())("9" "9" "9"))
+    ((("0"). ())("0" "0" "0"))
+
+    ((("a"). ())("あ" "ア" "ｱ"))
+    ((("i"). ())("い" "イ" "ｲ"))
+    ((("u"). ())("う" "ウ" "ｳ"))
+    ((("e"). ())("え" "エ" "ｴ"))
+    ((("o"). ())("お" "オ" "ｵ"))
+
+    ((("x" "a"). ())("ぁ" "ァ" "ｧ"))
+    ((("x" "i"). ())("ぃ" "ィ" "ｨ"))
+    ((("x" "y" "i"). ())("ぃ" "ィ" "ｨ"))
+    ((("x" "u"). ())("ぅ" "ゥ" "ｩ"))
+    ((("x" "e"). ())("ぇ" "ェ" "ｪ"))
+    ((("x" "y" "e"). ())("ぇ" "ェ" "ｪ"))
+    ((("x" "o"). ())("ぉ" "ォ" "ｫ"))
+
+    ((("l" "a"). ())("ぁ" "ァ" "ｧ"))
+    ((("l" "i"). ())("ぃ" "ィ" "ｨ"))
+    ((("l" "u"). ())("ぅ" "ゥ" "ｩ"))
+    ((("l" "e"). ())("ぇ" "ェ" "ｪ"))
+    ((("l" "o"). ())("ぉ" "ォ" "ｫ"))
+
+    ((("k" "k"). ("k"))("っ" "ッ" "ｯ"))
+
+    ((("k" "a"). ())("か" "カ" "ｶ"))
+    ((("k" "i"). ())("き" "キ" "ｷ"))
+    ((("k" "u"). ())("く" "ク" "ｸ"))
+    ((("k" "e"). ())("け" "ケ" "ｹ"))
+    ((("k" "o"). ())("こ" "コ" "ｺ"))
+    ((("k" "y" "a"). ())(("き" "キ" "ｷ") ("ゃ" "ャ" "ｬ")))
+    ((("k" "y" "i"). ())(("き" "キ" "ｷ") ("ぃ" "ィ" "ｨ")))
+    ((("k" "y" "u"). ())(("き" "キ" "ｷ") ("ゅ" "ュ" "ｭ")))
+    ((("k" "y" "e"). ())(("き" "キ" "ｷ") ("ぇ" "ェ" "ｪ")))
+    ((("k" "y" "o"). ())(("き" "キ" "ｷ") ("ょ" "ョ" "ｮ")))
+
+    ((("g" "g"). ("g"))("っ" "ッ" "ｯ"))
+
+
+    ((("g" "a"). ())("が" "ガ" "ｶﾞ"))
+    ((("g" "i"). ())("ぎ" "ギ" "ｷﾞ"))
+    ((("g" "u"). ())("ぐ" "グ" "ｸﾞ"))
+    ((("g" "e"). ())("げ" "ゲ" "ｹﾞ"))
+    ((("g" "o"). ())("ご" "ゴ" "ｺﾞ"))
+
+    ((("g" "y" "a"). ())(("ぎ" "ギ" "ｷﾞ") ("ゃ" "ャ" "ｬ")))
+    ((("g" "y" "i"). ())(("ぎ" "ギ" "ｷﾞ") ("ぃ" "ィ" "ｨ")))
+    ((("g" "y" "u"). ())(("ぎ" "ギ" "ｷﾞ") ("ゅ" "ュ" "ｭ")))
+    ((("g" "y" "e"). ())(("ぎ" "ギ" "ｷﾞ") ("ぇ" "ェ" "ｪ")))
+    ((("g" "y" "o"). ())(("ぎ" "ギ" "ｷﾞ") ("ょ" "ョ" "ｮ")))
+
+    ((("q" "a"). ())(("く" "ク" "ｸ") ("ぁ" "ァ" "ｧ")))
+    ((("q" "i"). ())(("く" "ク" "ｸ") ("ぃ" "ィ" "ｨ")))
+    ((("q" "u"). ())("く" "ク" "ｸ"))
+    ((("q" "e"). ())(("く" "ク" "ｸ") ("ぇ" "ェ" "ｪ")))
+    ((("q" "o"). ())(("く" "ク" "ｸ") ("ぉ" "ォ" "ｫ")))
+
+    ((("s" "s"). ("s"))("っ" "ッ" "ｯ"))
+
+    ((("s" "a"). ())("さ" "サ" "ｻ"))
+    ((("s" "i"). ())("し" "シ" "ｼ"))
+    ((("s" "u"). ())("す" "ス" "ｽ"))
+    ((("s" "e"). ())("せ" "セ" "ｾ"))
+    ((("s" "o"). ())("そ" "ソ" "ｿ"))
+
+    ((("s" "y" "a"). ())(("し" "シ" "ｼ") ("ゃ" "ャ" "ｬ")))
+    ((("s" "y" "i"). ())(("し" "シ" "ｼ") ("ぃ" "ィ" "ｨ")))
+    ((("s" "y" "u"). ())(("し" "シ" "ｼ") ("ゅ" "ュ" "ｭ")))
+    ((("s" "y" "e"). ())(("し" "シ" "ｼ") ("ぇ" "ェ" "ｪ")))
+    ((("s" "y" "o"). ())(("し" "シ" "ｼ") ("ょ" "ョ" "ｮ")))
+
+    ((("z" "z"). ("z"))("っ" "ッ" "ｯ"))
+
+    ((("z" "a"). ())("ざ" "ザ" "ｻﾞ"))
+    ((("z" "i"). ())("じ" "ジ" "ｼﾞ"))
+    ((("z" "u"). ())("ず" "ズ" "ｽﾞ"))
+    ((("z" "e"). ())("ぜ" "ゼ" "ｾﾞ"))
+    ((("z" "o"). ())("ぞ" "ゾ" "ｿﾞ"))
+    ((("z" "y" "a"). ())(("じ" "ジ" "ｼﾞ") ("ゃ" "ャ" "ｬ")))
+    ((("z" "y" "i"). ())(("じ" "ジ" "ｼﾞ") ("ぃ" "ィ" "ｨ")))
+    ((("z" "y" "u"). ())(("じ" "ジ" "ｼﾞ") ("ゅ" "ュ" "ｭ")))
+    ((("z" "y" "e"). ())(("じ" "ジ" "ｼﾞ") ("ぇ" "ェ" "ｪ")))
+    ((("z" "y" "o"). ())(("じ" "ジ" "ｼﾞ") ("ょ" "ョ" "ｮ")))
+
+    ((("j" "j"). ("j"))("っ" "ッ" "ｯ"))
+
+    ((("j" "a"). ())(("じ" "ジ" "ｼﾞ") ("ゃ" "ャ" "ｬ")))
+    ((("j" "i"). ())("じ" "ジ" "ｼﾞ"))
+    ((("j" "u"). ())(("じ" "ジ" "ｼﾞ") ("ゅ" "ュ" "ｭ")))
+    ((("j" "e"). ())(("じ" "ジ" "ｼﾞ") ("ぇ" "ェ" "ｪ")))
+    ((("j" "o"). ())(("じ" "ジ" "ｼﾞ") ("ょ" "ョ" "ｮ")))
+
+    ((("j" "y" "a"). ())(("じ" "ジ" "ｼﾞ") ("ゃ" "ャ" "ｬ")))
+    ((("j" "y" "i"). ())(("じ" "ジ" "ｼﾞ") ("ぃ" "ィ" "ｨ")))
+    ((("j" "y" "u"). ())(("じ" "ジ" "ｼﾞ") ("ゅ" "ュ" "ｭ")))
+    ((("j" "y" "e"). ())(("じ" "ジ" "ｼﾞ") ("ぇ" "ェ" "ｪ")))
+    ((("j" "y" "o"). ())(("じ" "ジ" "ｼﾞ") ("ょ" "ョ" "ｮ")))
+
+    ((("t" "t"). ("t"))("っ" "ッ" "ｯ"))
+    ((("t" "c"). ("c"))("っ" "ッ" "ｯ"))
+
+    ((("t" "a"). ())("た" "タ" "ﾀ"))
+    ((("t" "i"). ())("ち" "チ" "ﾁ"))
+    ((("t" "u"). ())("つ" "ツ" "ﾂ"))
+    ((("t" "e"). ())("て" "テ" "ﾃ"))
+    ((("t" "o"). ())("と" "ト" "ﾄ"))
+
+    ((("t" "y" "a"). ())(("ち" "チ" "ﾁ") ("ゃ" "ャ" "ｬ")))
+    ((("t" "y" "i"). ())(("ち" "チ" "ﾁ") ("ぃ" "ィ" "ｨ")))
+    ((("t" "y" "u"). ())(("ち" "チ" "ﾁ") ("ゅ" "ュ" "ｭ")))
+    ((("t" "y" "e"). ())(("ち" "チ" "ﾁ") ("ぇ" "ェ" "ｪ")))
+    ((("t" "y" "o"). ())(("ち" "チ" "ﾁ") ("ょ" "ョ" "ｮ")))
+
+    ((("t" "s" "a"). ())(("つ" "ツ" "ﾂ") ("ぁ" "ァ" "ｧ")))
+    ((("t" "s" "i"). ())(("つ" "ツ" "ﾂ") ("ぃ" "ィ" "ｨ")))
+    ((("t" "s" "u"). ())("つ" "ツ" "ﾂ"))
+    ((("t" "s" "e"). ())(("つ" "ツ" "ﾂ") ("ぇ" "ェ" "ｪ")))
+    ((("t" "s" "o"). ())(("つ" "ツ" "ﾂ") ("ぉ" "ォ" "ｫ")))
+
+    ((("c" "y" "a"). ())(("ち" "チ" "ﾁ") ("ゃ" "ャ" "ｬ")))
+    ((("c" "y" "i"). ())(("ち" "チ" "ﾁ") ("ぃ" "ィ" "ｨ")))
+    ((("c" "y" "u"). ())(("ち" "チ" "ﾁ") ("ゅ" "ュ" "ｭ")))
+    ((("c" "y" "e"). ())(("ち" "チ" "ﾁ") ("ぇ" "ェ" "ｪ")))
+    ((("c" "y" "o"). ())(("ち" "チ" "ﾁ") ("ょ" "ョ" "ｮ")))
+
+    ((("x" "t" "u"). ())("っ" "ッ" "ｯ"))
+    ((("x" "t" "s" "u"). ())("っ" "ッ" "ｯ"))
+    ((("c" "c"). ("c"))("っ" "ッ" "ｯ"))
+
+    ((("d" "d"). ("d"))("っ" "ッ" "ｯ"))
+
+    ((("d" "a"). ())("だ" "ダ" "ﾀﾞ"))
+    ((("d" "i"). ())("ぢ" "ヂ" "ﾁﾞ"))
+    ((("d" "u"). ())("づ" "ヅ" "ﾂﾞ"))
+    ((("d" "e"). ())("で" "デ" "ﾃﾞ"))
+    ((("d" "o"). ())("ど" "ド" "ﾄﾞ"))
+
+    ((("d" "y" "a"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ゃ" "ャ" "ｬ")))
+    ((("d" "y" "i"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ぃ" "ィ" "ｨ")))
+    ((("d" "y" "u"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ゅ" "ュ" "ｭ")))
+    ((("d" "y" "e"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ぇ" "ェ" "ｪ")))
+    ((("d" "y" "o"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ょ" "ョ" "ｮ")))
+
+    ((("n" "n"). ())("ん" "ン" "ﾝ"))
+    ((("n" "'"). ())("ん" "ン" "ﾝ"))
+    ((("n"). ())("ん" "ン" "ﾝ"))
+
+    ((("n" "a"). ())("な" "ナ" "ﾅ"))
+    ((("n" "i"). ())("に" "ニ" "ﾆ"))
+    ((("n" "u"). ())("ぬ" "ヌ" "ﾇ"))
+    ((("n" "e"). ())("ね" "ネ" "ﾈ"))
+    ((("n" "o"). ())("の" "ノ" "ﾉ"))
+
+    ((("n" "y" "a"). ())(("に" "ニ" "ﾆ") ("ゃ" "ャ" "ｬ")))
+    ((("n" "y" "i"). ())(("に" "ニ" "ﾆ") ("ぃ" "ィ" "ｨ")))
+    ((("n" "y" "u"). ())(("に" "ニ" "ﾆ") ("ゅ" "ュ" "ｭ")))
+    ((("n" "y" "e"). ())(("に" "ニ" "ﾆ") ("ぇ" "ェ" "ｪ")))
+    ((("n" "y" "o"). ())(("に" "ニ" "ﾆ") ("ょ" "ョ" "ｮ")))
+
+    ((("h" "h"). ("h"))("っ" "ッ" "ｯ"))
+
+    ((("h" "a"). ())("は" "ハ" "ﾊ"))
+    ((("h" "i"). ())("ひ" "ヒ" "ﾋ"))
+    ((("h" "u"). ())("ふ" "フ" "ﾌ"))
+    ((("h" "e"). ())("へ" "ヘ" "ﾍ"))
+    ((("h" "o"). ())("ほ" "ホ" "ﾎ"))
+
+    ((("h" "y" "a"). ())(("ひ" "ヒ" "ﾋ") ("ゃ" "ャ" "ｬ")))
+    ((("h" "y" "i"). ())(("ひ" "ヒ" "ﾋ") ("ぃ" "ィ" "ｨ")))
+    ((("h" "y" "u"). ())(("ひ" "ヒ" "ﾋ") ("ゅ" "ュ" "ｭ")))
+    ((("h" "y" "e"). ())(("ひ" "ヒ" "ﾋ") ("ぇ" "ェ" "ｪ")))
+    ((("h" "y" "o"). ())(("ひ" "ヒ" "ﾋ") ("ょ" "ョ" "ｮ")))
+
+    ((("f" "f"). ("f"))("っ" "ッ" "ｯ"))
+
+    ((("f" "a"). ())(("ふ" "フ" "ﾌ") ("ぁ" "ァ" "ｧ")))
+    ((("f" "i"). ())(("ふ" "フ" "ﾌ") ("ぃ" "ィ" "ｨ")))
+    ((("f" "u"). ())("ふ" "フ" "ﾌ"))
+    ((("f" "e"). ())(("ふ" "フ" "ﾌ") ("ぇ" "ェ" "ｪ")))
+    ((("f" "o"). ())(("ふ" "フ" "ﾌ") ("ぉ" "ォ" "ｫ")))
+
+    ((("f" "y" "a"). ())(("ふ" "フ" "ﾌ") ("ゃ" "ャ" "ｬ")))
+    ((("f" "y" "i"). ())(("ふ" "フ" "ﾌ") ("ぃ" "ィ" "ｨ")))
+    ((("f" "y" "u"). ())(("ふ" "フ" "ﾌ") ("ゅ" "ュ" "ｭ")))
+    ((("f" "y" "e"). ())(("ふ" "フ" "ﾌ") ("ぇ" "ェ" "ｪ")))
+    ((("f" "y" "o"). ())(("ふ" "フ" "ﾌ") ("ょ" "ョ" "ｮ")))
+
+    ((("b" "b"). ("b"))("っ" "ッ" "ｯ"))
+
+    ((("b" "a"). ())("ば" "バ" "ﾊﾞ"))
+    ((("b" "i"). ())("び" "ビ" "ﾋﾞ"))
+    ((("b" "u"). ())("ぶ" "ブ" "ﾌﾞ"))
+    ((("b" "e"). ())("べ" "ベ" "ﾍﾞ"))
+    ((("b" "o"). ())("ぼ" "ボ" "ﾎﾞ"))
+
+    ((("b" "y" "a"). ())(("び" "ビ" "ﾋﾞ") ("ゃ" "ャ" "ｬ")))
+    ((("b" "y" "i"). ())(("び" "ビ" "ﾋﾞ") ("ぃ" "ィ" "ｨ")))
+    ((("b" "y" "u"). ())(("び" "ビ" "ﾋﾞ") ("ゅ" "ュ" "ｭ")))
+    ((("b" "y" "e"). ())(("び" "ビ" "ﾋﾞ") ("ぇ" "ェ" "ｪ")))
+    ((("b" "y" "o"). ())(("び" "ビ" "ﾋﾞ") ("ょ" "ョ" "ｮ")))
+
+    ((("p" "p"). ("p"))("っ" "ッ" "ｯ"))
+
+    ((("p" "a"). ())("ぱ" "パ" "ﾊﾟ"))
+    ((("p" "i"). ())("ぴ" "ピ" "ﾋﾟ"))
+    ((("p" "u"). ())("ぷ" "プ" "ﾌﾟ"))
+    ((("p" "e"). ())("ぺ" "ペ" "ﾍﾟ"))
+    ((("p" "o"). ())("ぽ" "ポ" "ﾎﾟ"))
+
+    ((("p" "y" "a"). ())(("ぴ" "ピ" "ﾋﾟ") ("ゃ" "ャ" "ｬ")))
+    ((("p" "y" "i"). ())(("ぴ" "ピ" "ﾋﾟ") ("ぃ" "ィ" "ｨ")))
+    ((("p" "y" "u"). ())(("ぴ" "ピ" "ﾋﾟ") ("ゅ" "ュ" "ｭ")))
+    ((("p" "y" "e"). ())(("ぴ" "ピ" "ﾋﾟ") ("ぇ" "ェ" "ｪ")))
+    ((("p" "y" "o"). ())(("ぴ" "ピ" "ﾋﾟ") ("ょ" "ョ" "ｮ")))
+
+    ((("m" "m"). ("m"))("っ" "ッ" "ｯ"))
+
+    ((("m" "b"). ("b"))("ん" "ン" "ﾝ"))
+    ((("m" "p"). ("p"))("ん" "ン" "ﾝ"))
+
+    ((("m" "a"). ())("ま" "マ" "ﾏ"))
+    ((("m" "i"). ())("み" "ミ" "ﾐ"))
+    ((("m" "u"). ())("む" "ム" "ﾑ"))
+    ((("m" "e"). ())("め" "メ" "ﾒ"))
+    ((("m" "o"). ())("も" "モ" "ﾓ"))
+
+    ((("m" "y" "a"). ())(("み" "ミ" "ﾐ") ("ゃ" "ャ" "ｬ")))
+    ((("m" "y" "i"). ())(("み" "ミ" "ﾐ") ("ぃ" "ィ" "ｨ")))
+    ((("m" "y" "u"). ())(("み" "ミ" "ﾐ") ("ゅ" "ュ" "ｭ")))
+    ((("m" "y" "e"). ())(("み" "ミ" "ﾐ") ("ぇ" "ェ" "ｪ")))
+    ((("m" "y" "o"). ())(("み" "ミ" "ﾐ") ("ょ" "ョ" "ｮ")))
+
+    ((("y" "y"). ("y"))("っ" "ッ" "ｯ"))
+
+    ((("y" "a"). ())("や" "ヤ" "ﾔ"))
+    ((("y" "u"). ())("ゆ" "ユ" "ﾕ"))
+    ((("y" "e"). ())(("い" "イ" "ｲ") ("ぇ" "ェ" "ｪ")))
+    ((("y" "o"). ())("よ" "ヨ" "ﾖ"))
+
+    ((("x" "c" "a"). ())("ヵ" "ヵ" "ｶ"))
+    ((("x" "k" "a"). ())("ヵ" "ヵ" "ｶ"))
+    ((("x" "k" "e"). ())("ヶ" "ヶ" "ｹ"))
+
+    ((("x" "y" "a"). ())("ゃ" "ャ" "ｬ"))
+    ((("x" "y" "u"). ())("ゅ" "ュ" "ｭ"))
+    ((("x" "y" "o"). ())("ょ" "ョ" "ｮ"))
+
+    ((("r" "r"). ("r"))("っ" "ッ" "ｯ"))
+
+    ((("r" "a"). ())("ら" "ラ" "ﾗ"))
+    ((("r" "i"). ())("り" "リ" "ﾘ"))
+    ((("r" "u"). ())("る" "ル" "ﾙ"))
+    ((("r" "e"). ())("れ" "レ" "ﾚ"))
+    ((("r" "o"). ())("ろ" "ロ" "ﾛ"))
+
+    ((("l" "t" "u"). ())("っ" "ッ" "ｯ"))
+    ((("l" "t" "s" "u"). ())("っ" "ッ" "ｯ"))
+
+    ((("l" "y" "a"). ())("ゃ" "ャ" "ｬ"))
+    ((("l" "y" "i"). ())("ぃ" "ィ" "ｨ"))
+    ((("l" "y" "u"). ())("ゅ" "ュ" "ｭ"))
+    ((("l" "y" "e"). ())("ぇ" "ェ" "ｪ"))
+    ((("l" "y" "o"). ())("ょ" "ョ" "ｮ"))
+
+    ((("r" "y" "a"). ())(("り" "リ" "ﾘ") ("ゃ" "ャ" "ｬ")))
+    ((("r" "y" "i"). ())(("り" "リ" "ﾘ") ("ぃ" "ィ" "ｨ")))
+    ((("r" "y" "u"). ())(("り" "リ" "ﾘ") ("ゅ" "ュ" "ｭ")))
+    ((("r" "y" "e"). ())(("り" "リ" "ﾘ") ("ぇ" "ェ" "ｪ")))
+    ((("r" "y" "o"). ())(("り" "リ" "ﾘ") ("ょ" "ョ" "ｮ")))
+
+    ((("w" "w"). ("w"))("っ" "ッ" "ｯ"))
+
+    ((("w" "a"). ())("わ" "ワ" "ﾜ"))
+    ((("w" "i"). ())(("う" "ウ" "ｳ") ("ぃ" "ィ" "ｨ")))
+    ((("w" "u"). ())("う" "ウ" "ｳ"))
+    ((("w" "e"). ())(("う" "ウ" "ｳ") ("ぇ" "ェ" "ｪ")))
+    ((("w" "o"). ())("を" "ヲ" "ｦ"))
+    ((("w" "h" "a"). ())(("う" "ウ" "ｳ") ("ぁ" "ァ" "ｧ")))
+    ((("w" "h" "i"). ())(("う" "ウ" "ｳ") ("ぃ" "ィ" "ｨ")))
+    ((("w" "h" "u"). ())("う" "ウ" "ｳ"))
+    ((("w" "h" "e"). ())(("う" "ウ" "ｳ") ("ぇ" "ェ" "ｪ")))
+    ((("w" "h" "o"). ())(("う" "ウ" "ｳ") ("ぉ" "ォ" "ｫ")))
+
+    ((("v" "v"). ("v"))("っ" "ッ" "ｯ"))
+
+    ((("v" "a"). ())(("う゛" "ヴ" "ｳﾞ") ("ぁ" "ァ" "ｧ")))
+    ((("v" "i"). ())(("う゛" "ヴ" "ｳﾞ") ("ぃ" "ィ" "ｨ")))
+    ((("v" "u"). ())("う゛" "ヴ" "ｳﾞ"))
+    ((("v" "e"). ())(("う゛" "ヴ" "ｳﾞ") ("ぇ" "ェ" "ｪ")))
+    ((("v" "o"). ())(("う゛" "ヴ" "ｳﾞ") ("ぉ" "ォ" "ｫ")))
+
+    ((("v" "y" "a"). ())(("う゛" "ヴ" "ｳﾞ") ("ゃ" "ャ" "ｬ")))
+    ((("v" "y" "u"). ())(("う゛" "ヴ" "ｳﾞ") ("ゅ" "ュ" "ｭ")))
+    ((("v" "y" "o"). ())(("う゛" "ヴ" "ｳﾞ") ("ょ" "ョ" "ｮ")))
+
+    ((("z" "k"). ())("↑" "↑" ""))
+    ((("z" "j"). ())("↓" "↓" ""))
+    ((("z" "h"). ())("←" "←" ""))
+    ((("z" "l"). ())("→" "→" ""))
+    ((("z" "-"). ())("〜" "〜" ""))
+    ((("z" "["). ())("『" "『" ""))
+    ((("z" "]"). ())("』" "』" ""))
+    ((("z" ","). ())("‥" "‥" ""))
+    ((("z" "."). ())("…" "…" ""))
+    ((("z" "/"). ())("・" "・" "･"))
+    ))
+
+(define ja-rk-rule-additional
+  '(
+    ((("d" "s" "u"). ())("づ" "ヅ" "ﾂﾞ"))
+
+    ((("d" "h" "a"). ())(("で" "デ" "ﾃﾞ") ("ゃ" "ャ" "ｬ")))
+    ((("d" "h" "i"). ())(("で" "デ" "ﾃﾞ") ("ぃ" "ィ" "ｨ")))
+    ((("d" "h" "u"). ())(("で" "デ" "ﾃﾞ") ("ゅ" "ュ" "ｭ")))
+    ((("d" "h" "e"). ())(("で" "デ" "ﾃﾞ") ("ぇ" "ェ" "ｪ")))
+    ((("d" "h" "o"). ())(("で" "デ" "ﾃﾞ") ("ょ" "ョ" "ｮ")))
+
+    ((("d" "w" "a"). ())(("ど" "ド" "ﾄﾞ") ("ぁ" "ァ" "ｧ")))
+    ((("d" "w" "i"). ())(("ど" "ド" "ﾄﾞ") ("ぃ" "ィ" "ｨ")))
+    ((("d" "w" "u"). ())(("ど" "ド" "ﾄﾞ") ("ぅ" "ゥ" "ｩ")))
+    ((("d" "w" "e"). ())(("ど" "ド" "ﾄﾞ") ("ぇ" "ェ" "ｪ")))
+    ((("d" "w" "o"). ())(("ど" "ド" "ﾄﾞ") ("ぉ" "ォ" "ｫ")))
+
+    ((("k" "w" "a"). ())(("く" "ク" "ｸ") ("ぁ" "ァ" "ｧ")))
+    ((("k" "w" "i"). ())(("く" "ク" "ｸ") ("ぃ" "ィ" "ｨ")))
+    ((("k" "w" "u"). ())(("く" "ク" "ｸ") ("ぅ" "ゥ" "ｩ")))
+    ((("k" "w" "e"). ())(("く" "ク" "ｸ") ("ぇ" "ェ" "ｪ")))
+    ((("k" "w" "o"). ())(("く" "ク" "ｸ") ("ぉ" "ォ" "ｫ")))
+
+    ((("s" "h" "a"). ())(("し" "シ" "ｼ") ("ゃ" "ャ" "ｬ")))
+    ((("s" "h" "i"). ())("し" "シ" "ｼ"))
+    ((("s" "h" "u"). ())(("し" "シ" "ｼ") ("ゅ" "ュ" "ｭ")))
+    ((("s" "h" "e"). ())(("し" "シ" "ｼ") ("ぇ" "ェ" "ｪ")))
+    ((("s" "h" "o"). ())(("し" "シ" "ｼ") ("ょ" "ョ" "ｮ")))
+
+    ((("s" "w" "a"). ())(("す" "ス" "ｽ") ("ぁ" "ァ" "ｧ")))
+    ((("s" "w" "i"). ())(("す" "ス" "ｽ") ("ぃ" "ィ" "ｨ")))
+    ((("s" "w" "u"). ())(("す" "ス" "ｽ") ("ぅ" "ゥ" "ｩ")))
+    ((("s" "w" "e"). ())(("す" "ス" "ｽ") ("ぇ" "ェ" "ｪ")))
+    ((("s" "w" "o"). ())(("す" "ス" "ｽ") ("ぉ" "ォ" "ｫ")))
+
+    ((("t" "w" "a"). ())(("と" "ト" "ﾄ") ("ぁ" "ァ" "ｧ")))
+    ((("t" "w" "i"). ())(("と" "ト" "ﾄ") ("ぃ" "ィ" "ｨ")))
+    ((("t" "w" "u"). ())(("と" "ト" "ﾄ") ("ぅ" "ゥ" "ｩ")))
+    ((("t" "w" "e"). ())(("と" "ト" "ﾄ") ("ぇ" "ェ" "ｪ")))
+    ((("t" "w" "o"). ())(("と" "ト" "ﾄ") ("ぉ" "ォ" "ｫ")))
+
+    ((("t" "h" "a"). ())(("て" "テ" "ﾃ") ("ゃ" "ャ" "ｬ")))
+    ((("t" "h" "i"). ())(("て" "テ" "ﾃ") ("ぃ" "ィ" "ｨ")))
+    ((("t" "h" "u"). ())(("て" "テ" "ﾃ") ("ゅ" "ュ" "ｭ")))
+    ((("t" "h" "e"). ())(("て" "テ" "ﾃ") ("ぇ" "ェ" "ｪ")))
+    ((("t" "h" "o"). ())(("て" "テ" "ﾃ") ("ょ" "ョ" "ｮ")))
+
+    ((("h" "w" "a"). ())(("ふ" "フ" "ﾌ") ("ぁ" "ァ" "ｧ")))
+    ((("h" "w" "i"). ())(("ふ" "フ" "ﾌ") ("ぃ" "ィ" "ｨ")))
+    ((("h" "w" "e"). ())(("ふ" "フ" "ﾌ") ("ぇ" "ェ" "ｪ")))
+    ((("h" "w" "o"). ())(("ふ" "フ" "ﾌ") ("ぉ" "ォ" "ｫ")))
+
+    ((("f" "w" "a"). ())(("ふ" "フ" "ﾌ") ("ぁ" "ァ" "ｧ")))
+    ((("f" "w" "i"). ())(("ふ" "フ" "ﾌ") ("ぃ" "ィ" "ｨ")))
+    ((("f" "w" "u"). ())(("ふ" "フ" "ﾌ") ("ぅ" "ゥ" "ｩ")))
+    ((("f" "w" "e"). ())(("ふ" "フ" "ﾌ") ("ぇ" "ェ" "ｪ")))
+    ((("f" "w" "o"). ())(("ふ" "フ" "ﾌ") ("ぉ" "ォ" "ｫ")))
+
+    ((("x" "w" "a"). ())("ゎ" "ヮ" "ﾜ"))
+    ((("x" "w" "i"). ())("ゐ" "ヰ" "ｨ"))
+    ((("x" "w" "e"). ())("ゑ" "ヱ" "ｪ"))
+
+    ((("w" "y" "i"). ())("ゐ" "ヰ" "ｨ"))
+    ((("w" "y" "e"). ())("ゑ" "ヱ" "ｪ"))
+
+    ((("c" "h" "a"). ())(("ち" "チ" "ﾁ") ("ゃ" "ャ" "ｬ")))
+    ((("c" "h" "i"). ())("ち" "チ" "ﾁ"))
+    ((("c" "h" "u"). ())(("ち" "チ" "ﾁ") ("ゅ" "ュ" "ｭ")))
+    ((("c" "h" "e"). ())(("ち" "チ" "ﾁ") ("ぇ" "ェ" "ｪ")))
+    ((("c" "h" "o"). ())(("ち" "チ" "ﾁ") ("ょ" "ョ" "ｮ")))
+
+    ((("q" "w" "a"). ())(("く" "ク" "ｸ") ("ぁ" "ァ" "ｧ")))
+    ((("q" "w" "i"). ())(("く" "ク" "ｸ") ("ぃ" "ィ" "ｨ")))
+    ((("q" "w" "u"). ())(("く" "ク" "ｸ") ("ぅ" "ゥ" "ｩ")))
+    ((("q" "w" "e"). ())(("く" "ク" "ｸ") ("ぇ" "ェ" "ｪ")))
+    ((("q" "w" "o"). ())(("く" "ク" "ｸ") ("ぉ" "ォ" "ｫ")))
+
+    ((("q" "y" "a"). ())(("く" "ク" "ｸ") ("ゃ" "ャ" "ｬ")))
+    ((("q" "y" "i"). ())(("く" "ク" "ｸ") ("ぃ" "ィ" "ｨ")))
+    ((("q" "y" "u"). ())(("く" "ク" "ｸ") ("ゅ" "ュ" "ｭ")))
+    ((("q" "y" "e"). ())(("く" "ク" "ｸ") ("ぇ" "ェ" "ｪ")))
+    ((("q" "y" "o"). ())(("く" "ク" "ｸ") ("ょ" "ョ" "ｮ")))
+
+    ((("g" "w" "a"). ())(("ぐ" "グ" "ｸﾞ") ("ぁ" "ァ" "ｧ")))
+    ((("g" "w" "i"). ())(("ぐ" "グ" "ｸﾞ") ("ぃ" "ィ" "ｨ")))
+    ((("g" "w" "u"). ())(("ぐ" "グ" "ｸﾞ") ("ぅ" "ゥ" "ｩ")))
+    ((("g" "w" "e"). ())(("ぐ" "グ" "ｸﾞ") ("ぇ" "ェ" "ｪ")))
+    ((("g" "w" "o"). ())(("ぐ" "グ" "ｸﾞ") ("ぉ" "ォ" "ｫ")))
+
+    ((("z" "w" "a"). ())(("ず" "ズ" "ｽﾞ") ("ぁ" "ァ" "ｧ")))
+    ((("z" "w" "i"). ())(("ず" "ズ" "ｽﾞ") ("ぃ" "ィ" "ｨ")))
+    ((("z" "w" "u"). ())(("ず" "ズ" "ｽﾞ") ("ぅ" "ゥ" "ｩ")))
+    ((("z" "w" "e"). ())(("ず" "ズ" "ｽﾞ") ("ぇ" "ェ" "ｪ")))
+    ((("z" "w" "o"). ())(("ず" "ズ" "ｽﾞ") ("ぉ" "ォ" "ｫ")))
+
+    ;((("n" "w" "a"). ())(("ぬ" "ヌ" "ﾇ") ("ぁ" "ァ" "ｧ")))
+    ;((("n" "w" "i"). ())(("ぬ" "ヌ" "ﾇ") ("ぃ" "ィ" "ｨ")))
+    ;((("n" "w" "u"). ())(("ぬ" "ヌ" "ﾇ") ("ぅ" "ゥ" "ｩ")))
+    ;((("n" "w" "e"). ())(("ぬ" "ヌ" "ﾇ") ("ぇ" "ェ" "ｪ")))
+    ;((("n" "w" "o"). ())(("ぬ" "ヌ" "ﾇ") ("ぉ" "ォ" "ｫ")))
+
+    ((("b" "w" "a"). ())(("ぶ" "ブ" "ﾌﾞ") ("ぁ" "ァ" "ｧ")))
+    ((("b" "w" "i"). ())(("ぶ" "ブ" "ﾌﾞ") ("ぃ" "ィ" "ｨ")))
+    ((("b" "w" "u"). ())(("ぶ" "ブ" "ﾌﾞ") ("ぅ" "ゥ" "ｩ")))
+    ((("b" "w" "e"). ())(("ぶ" "ブ" "ﾌﾞ") ("ぇ" "ェ" "ｪ")))
+    ((("b" "w" "o"). ())(("ぶ" "ブ" "ﾌﾞ") ("ぉ" "ォ" "ｫ")))
+
+    ((("p" "w" "a"). ())(("ぷ" "プ" "ﾌﾟ") ("ぁ" "ァ" "ｧ")))
+    ((("p" "w" "i"). ())(("ぷ" "プ" "ﾌﾟ") ("ぃ" "ィ" "ｨ")))
+    ((("p" "w" "u"). ())(("ぷ" "プ" "ﾌﾟ") ("ぅ" "ゥ" "ｩ")))
+    ((("p" "w" "e"). ())(("ぷ" "プ" "ﾌﾟ") ("ぇ" "ェ" "ｪ")))
+    ((("p" "w" "o"). ())(("ぷ" "プ" "ﾌﾟ") ("ぉ" "ォ" "ｫ")))
+
+    ((("m" "w" "a"). ())(("む" "ム" "ﾑ") ("ぁ" "ァ" "ｧ")))
+    ((("m" "w" "i"). ())(("む" "ム" "ﾑ") ("ぃ" "ィ" "ｨ")))
+    ((("m" "w" "u"). ())(("む" "ム" "ﾑ") ("ぅ" "ゥ" "ｩ")))
+    ((("m" "w" "e"). ())(("む" "ム" "ﾑ") ("ぇ" "ェ" "ｪ")))
+    ((("m" "w" "o"). ())(("む" "ム" "ﾑ") ("ぉ" "ォ" "ｫ")))
+
+    ((("y" "w" "a"). ())(("ゆ" "ユ" "ﾕ") ("ぁ" "ァ" "ｧ")))
+    ((("y" "w" "i"). ())(("ゆ" "ユ" "ﾕ") ("ぃ" "ィ" "ｨ")))
+    ((("y" "w" "u"). ())(("ゆ" "ユ" "ﾕ") ("ぅ" "ゥ" "ｩ")))
+    ((("y" "w" "e"). ())(("ゆ" "ユ" "ﾕ") ("ぇ" "ェ" "ｪ")))
+    ((("y" "w" "o"). ())(("ゆ" "ユ" "ﾕ") ("ぉ" "ォ" "ｫ")))
+
+    ((("r" "w" "a"). ())(("る" "ル" "ﾙ") ("ぁ" "ァ" "ｧ")))
+    ((("r" "w" "i"). ())(("る" "ル" "ﾙ") ("ぃ" "ィ" "ｨ")))
+    ((("r" "w" "u"). ())(("る" "ル" "ﾙ") ("ぅ" "ゥ" "ｩ")))
+    ((("r" "w" "e"). ())(("る" "ル" "ﾙ") ("ぇ" "ェ" "ｪ")))
+    ((("r" "w" "o"). ())(("る" "ル" "ﾙ") ("ぉ" "ォ" "ｫ")))
+
+    ((("d" "'" "i"). ())(("で" "デ" "ﾃﾞ") ("ぃ" "ィ" "ｨ")))
+    ((("d" "'" "y" "u"). ())(("で" "デ" "ﾃﾞ") ("ゅ" "ュ" "ｭ")))
+
+    ((("d" "'" "u"). ())(("ど" "ド" "ﾄﾞ") ("ぅ" "ゥ" "ｩ")))
+
+    ((("t" "'" "i"). ())(("て" "テ" "ﾃ") ("ぃ" "ィ" "ｨ")))
+    ((("t" "'" "y" "u"). ())(("て" "テ" "ﾃ") ("ゅ" "ュ" "ｭ")))
+
+    ((("t" "'" "u"). ())(("と" "ト" "ﾄ") ("ぅ" "ゥ" "ｩ")))
+
+    ))
+
+(define ja-type-direct	       -1)
+(define ja-type-hiragana	0)
+(define ja-type-katakana	1)
+(define ja-type-halfkana	2)
+(define ja-type-halfwidth-alnum	3)
+(define ja-type-fullwidth-alnum	4)
+
+(define ja-rk-rule (append ja-rk-rule-basic ja-rk-rule-additional))
+
+;; getting required type of kana string from above kana-str-list
+;; (ja-make-kana-str
+;;  (("じ" "ジ" "ｼﾞ") ("ん" "ン" "ﾝ") ("か" "カ" "ｶ"))
+;;  ja-type-katakana)
+;;  -> "カンジ"
+(define ja-make-kana-str
+  (lambda (sl type)
+    (let ((get-str-by-type
+	   (lambda (l)
+	     (cond
+	      ((= type ja-type-hiragana)
+	       (caar l))
+	      ((= type ja-type-katakana)
+	       (car (cdar l)))
+	      ((= type ja-type-halfkana)
+	       (cadr (cdar l)))))))
+      (if (not (null? sl))
+	  (string-append (ja-make-kana-str (cdr sl) type)
+			 (get-str-by-type sl))
+	  ""))))
+
+(define ja-rk-rule-rule->table (lambda (rule)
+  (map
+    (lambda (item)
+      ; ((("k" "a")) ("か" "カ" "ｶ")) -> ("ka" "" "か")
+      ; ((("k" "k") "k") ("っ" "ッ" "ｯ")) -> ("kk" "k" "っ")
+      ; ((("k" "y" "a")) (("き" "キ" "ｷ") ("ゃ" "ャ" "ｬ"))) -> ("kya" "" "きゃ")
+      (list
+        ; ((("k" "a")) ("か" "カ" "ｶ")) -> "ka"
+        (fold-right string-append ""
+          (caar item))
+        (let ((next-input (cdar item)))
+          (or
+            (and
+              ; ((("k" "a")) ("か" "カ" "ｶ")) -> ""
+              (null? next-input) "")
+            ; ((("k" "k") "k") ("っ" "ッ" "ｯ")) -> "k"
+            (car next-input)))
+        (let*
+          ((output (cadr item))
+            (single-output (car output))
+            (eucjp->utf8 (lambda (str)
+               (and-let* ((ic (iconv-open "UTF-8" "EUC-JP"))
+                           (converted-str (iconv-code-conv ic str)))
+                 (and ic
+                   (iconv-release ic))
+                 converted-str))))
+          (or
+            (and
+              ; ((("k" "a")) ("か" "カ" "ｶ")) -> "か"
+              (string? single-output)
+              (eucjp->utf8 single-output))
+            ; ((("k" "y" "a")) (("き" "キ" "ｷ") ("ゃ" "ャ" "ｬ"))) -> "きゃ"
+            (eucjp->utf8
+              (fold-right string-append ""
+                (string-to-list
+                  (ja-make-kana-str output ja-type-hiragana)))))))) rule)))
+
+(define ja-rk-rule-table->rule (lambda (table)
+  (map
+    (lambda (item)
+      ; ("ka" "" "か") -> ((("k" "a")) ("か" "カ" "ｶ"))
+      ; ("kk" "k" "っ") -> ((("k" "k") "k") ("っ" "ッ" "ｯ"))
+      ; ("kya" "" "きゃ") -> ((("k" "y" "a")) (("き" "キ" "ｷ") ("ゃ" "ャ" "ｬ")))
+      (list
+        (cons
+          (let ((input (car item)))
+            (or
+              (and
+                (string=? input "yen")
+                ; ("yen" "" "￥") -> ("yen")
+                '("yen"))
+              ; ("ka" "" "か") -> ("k" "a")
+              (reverse
+                (string-to-list input))))
+          (let ((next-input (cadr item)))
+            (or
+              (and
+                ; ("ka" "" "か") -> none
+                (string=? next-input "") '())
+              ; ("kk" "k" "っ") -> "k"
+              (cons next-input '()))))
+        (let ((output (caddr item))
+               (utf8->eucjp (lambda (str)
+                 (and-let* ((ic (iconv-open "EUC-JP" "UTF-8"))
+                             (converted-str (iconv-code-conv ic str)))
+                   (and ic
+                     (iconv-release ic))
+                   converted-str))))
+          (or
+            (let ((eucjp-output (utf8->eucjp output)))
+              (and
+                (=
+                  (length
+                    (string-to-list eucjp-output)) 1)
+                ; ("ka" "" "か") ->  ("か" "カ" "ｶ")
+                (ja-find-kana-list-from-rule ja-rk-rule eucjp-output)))
+            ; ("kya" "" "きゃ") -> (("き" "キ" "ｷ") ("ゃ" "ャ" "ｬ"))
+            (map
+              (lambda (char)
+                (ja-find-kana-list-from-rule ja-rk-rule char))
+                  (reverse
+                    (string-to-list
+                      (utf8->eucjp output)))))))) table)))
+
 (define-custom-group 'ja-rk-rule
                      (N_ "Japanese Romaji-Kana")
                      (N_ "long description will be here."))
@@ -42,7 +655,21 @@
                (N_ "Keep consonant Romaji not convertible to Kana")
                (N_ "long description will be here."))
 
+(define-custom 'ja-rk-rule-table-basic
+               (ja-rk-rule-rule->table ja-rk-rule-basic)
+               '(ja-rk-rule)
+               '(table)
+               (N_ "Japanese Romaji-Kana rule")
+               (N_ "long description will be here."))
+
 (custom-add-hook 'ja-rk-rule-keep-consonant?
                  'custom-set-hooks
                  (lambda ()
                    (ja-rk-rule-update)))
+
+(custom-add-hook 'ja-rk-rule-table-basic
+                 'custom-set-hooks
+                 (lambda ()
+                   (set! ja-rk-rule-basic
+                     (ja-rk-rule-table->rule ja-rk-rule-table-basic))
+                   (ja-rk-rule-update)))
diff --git a/scm/japanese.scm b/scm/japanese.scm
index 3ff95d0..f287fae 100644
--- a/scm/japanese.scm
+++ b/scm/japanese.scm
@@ -33,507 +33,6 @@
 (require-extension (srfi 1 2))
 (require-custom "japanese-custom.scm")
 
-(define ja-rk-rule-basic
-  '(
-    ((("-"). ())("ー" "ー" "ｰ"))
-    (((","). ())("、" "、" "､"))
-    ((("."). ())("。" "。" "｡"))
-    ((("!"). ())("！" "！" "!"))
-    ((("\""). ())("”" "”" "\""))
-    ((("#"). ())("＃" "＃" "#"))
-    ((("$"). ())("＄" "＄" "$"))
-    ((("%"). ())("％" "％" "%"))
-    ((("&"). ())("＆" "＆" "&"))
-    ((("'"). ())("’" "’" "'"))
-    ((("("). ())("（" "（" "("))
-    (((")"). ())("）" "）" ")"))
-    ((("~"). ())("〜" "〜" "~"))
-    ((("="). ())("＝" "＝" "="))
-    ((("^"). ())("＾" "＾" "^"))
-    ((("\\"). ())("＼" "＼" "\\"))
-    ((("|"). ())("｜" "｜" "|"))
-    ((("`"). ())("‘" "‘" "`"))
-    ((("@"). ())("＠" "＠" "@"))
-    ((("{"). ())("｛" "｛" "{"))
-    ((("["). ())("「" "「" "｢"))
-    ((("+"). ())("＋" "＋" "+"))
-    (((";"). ())("；" "；" ";"))
-    ((("*"). ())("＊" "＊" "*"))
-    (((":"). ())("：" "：" ":"))
-    ((("}"). ())("｝" "｝" "}"))
-    ((("]"). ())("」" "」" "｣"))
-    ((("<"). ())("＜" "＜" "<"))
-    (((">"). ())("＞" "＞" ">"))
-    ((("?"). ())("？" "？" "?"))
-    ((("/"). ())("／" "／" "/"))
-    ((("_"). ())("＿" "＿" "_"))
-    ;; Since ordinary Japanese users press the "yen sign" key on
-    ;; Japanese keyboard in romaji-halfwidth-kana-mode "to input
-    ;; character code 134" rather than "to input yen sign symbol", I
-    ;; changed the fullwidth yen sign with backslash.
-    ;;   -- YamaKen 2007-09-17
-    ;; ((("yen"). ())("￥" "￥" "￥")) ;; XXX
-    ((("yen"). ())("￥" "￥" "\\"))
-
-    ((("1"). ())("1" "1" "1"))
-    ((("2"). ())("2" "2" "2"))
-    ((("3"). ())("3" "3" "3"))
-    ((("4"). ())("4" "4" "4"))
-    ((("5"). ())("5" "5" "5"))
-    ((("6"). ())("6" "6" "6"))
-    ((("7"). ())("7" "7" "7"))
-    ((("8"). ())("8" "8" "8"))
-    ((("9"). ())("9" "9" "9"))
-    ((("0"). ())("0" "0" "0"))
-
-    ((("a"). ())("あ" "ア" "ｱ"))
-    ((("i"). ())("い" "イ" "ｲ"))
-    ((("u"). ())("う" "ウ" "ｳ"))
-    ((("e"). ())("え" "エ" "ｴ"))
-    ((("o"). ())("お" "オ" "ｵ"))
-
-    ((("x" "a"). ())("ぁ" "ァ" "ｧ"))
-    ((("x" "i"). ())("ぃ" "ィ" "ｨ"))
-    ((("x" "y" "i"). ())("ぃ" "ィ" "ｨ"))
-    ((("x" "u"). ())("ぅ" "ゥ" "ｩ"))
-    ((("x" "e"). ())("ぇ" "ェ" "ｪ"))
-    ((("x" "y" "e"). ())("ぇ" "ェ" "ｪ"))
-    ((("x" "o"). ())("ぉ" "ォ" "ｫ"))
-
-    ((("l" "a"). ())("ぁ" "ァ" "ｧ"))
-    ((("l" "i"). ())("ぃ" "ィ" "ｨ"))
-    ((("l" "u"). ())("ぅ" "ゥ" "ｩ"))
-    ((("l" "e"). ())("ぇ" "ェ" "ｪ"))
-    ((("l" "o"). ())("ぉ" "ォ" "ｫ"))
-
-    ((("k" "k"). ("k"))("っ" "ッ" "ｯ"))
-
-    ((("k" "a"). ())("か" "カ" "ｶ"))
-    ((("k" "i"). ())("き" "キ" "ｷ"))
-    ((("k" "u"). ())("く" "ク" "ｸ"))
-    ((("k" "e"). ())("け" "ケ" "ｹ"))
-    ((("k" "o"). ())("こ" "コ" "ｺ"))
-    ((("k" "y" "a"). ())(("き" "キ" "ｷ") ("ゃ" "ャ" "ｬ")))
-    ((("k" "y" "i"). ())(("き" "キ" "ｷ") ("ぃ" "ィ" "ｨ")))
-    ((("k" "y" "u"). ())(("き" "キ" "ｷ") ("ゅ" "ュ" "ｭ")))
-    ((("k" "y" "e"). ())(("き" "キ" "ｷ") ("ぇ" "ェ" "ｪ")))
-    ((("k" "y" "o"). ())(("き" "キ" "ｷ") ("ょ" "ョ" "ｮ")))
-
-    ((("g" "g"). ("g"))("っ" "ッ" "ｯ"))
-
-
-    ((("g" "a"). ())("が" "ガ" "ｶﾞ"))
-    ((("g" "i"). ())("ぎ" "ギ" "ｷﾞ"))
-    ((("g" "u"). ())("ぐ" "グ" "ｸﾞ"))
-    ((("g" "e"). ())("げ" "ゲ" "ｹﾞ"))
-    ((("g" "o"). ())("ご" "ゴ" "ｺﾞ"))
-
-    ((("g" "y" "a"). ())(("ぎ" "ギ" "ｷﾞ") ("ゃ" "ャ" "ｬ")))
-    ((("g" "y" "i"). ())(("ぎ" "ギ" "ｷﾞ") ("ぃ" "ィ" "ｨ")))
-    ((("g" "y" "u"). ())(("ぎ" "ギ" "ｷﾞ") ("ゅ" "ュ" "ｭ")))
-    ((("g" "y" "e"). ())(("ぎ" "ギ" "ｷﾞ") ("ぇ" "ェ" "ｪ")))
-    ((("g" "y" "o"). ())(("ぎ" "ギ" "ｷﾞ") ("ょ" "ョ" "ｮ")))
-
-    ((("q" "a"). ())(("く" "ク" "ｸ") ("ぁ" "ァ" "ｧ")))
-    ((("q" "i"). ())(("く" "ク" "ｸ") ("ぃ" "ィ" "ｨ")))
-    ((("q" "u"). ())("く" "ク" "ｸ"))
-    ((("q" "e"). ())(("く" "ク" "ｸ") ("ぇ" "ェ" "ｪ")))
-    ((("q" "o"). ())(("く" "ク" "ｸ") ("ぉ" "ォ" "ｫ")))
-
-    ((("s" "s"). ("s"))("っ" "ッ" "ｯ"))
-
-    ((("s" "a"). ())("さ" "サ" "ｻ"))
-    ((("s" "i"). ())("し" "シ" "ｼ"))
-    ((("s" "u"). ())("す" "ス" "ｽ"))
-    ((("s" "e"). ())("せ" "セ" "ｾ"))
-    ((("s" "o"). ())("そ" "ソ" "ｿ"))
-
-    ((("s" "y" "a"). ())(("し" "シ" "ｼ") ("ゃ" "ャ" "ｬ")))
-    ((("s" "y" "i"). ())(("し" "シ" "ｼ") ("ぃ" "ィ" "ｨ")))
-    ((("s" "y" "u"). ())(("し" "シ" "ｼ") ("ゅ" "ュ" "ｭ")))
-    ((("s" "y" "e"). ())(("し" "シ" "ｼ") ("ぇ" "ェ" "ｪ")))
-    ((("s" "y" "o"). ())(("し" "シ" "ｼ") ("ょ" "ョ" "ｮ")))
-
-    ((("z" "z"). ("z"))("っ" "ッ" "ｯ"))
-
-    ((("z" "a"). ())("ざ" "ザ" "ｻﾞ"))
-    ((("z" "i"). ())("じ" "ジ" "ｼﾞ"))
-    ((("z" "u"). ())("ず" "ズ" "ｽﾞ"))
-    ((("z" "e"). ())("ぜ" "ゼ" "ｾﾞ"))
-    ((("z" "o"). ())("ぞ" "ゾ" "ｿﾞ"))
-    ((("z" "y" "a"). ())(("じ" "ジ" "ｼﾞ") ("ゃ" "ャ" "ｬ")))
-    ((("z" "y" "i"). ())(("じ" "ジ" "ｼﾞ") ("ぃ" "ィ" "ｨ")))
-    ((("z" "y" "u"). ())(("じ" "ジ" "ｼﾞ") ("ゅ" "ュ" "ｭ")))
-    ((("z" "y" "e"). ())(("じ" "ジ" "ｼﾞ") ("ぇ" "ェ" "ｪ")))
-    ((("z" "y" "o"). ())(("じ" "ジ" "ｼﾞ") ("ょ" "ョ" "ｮ")))
-
-    ((("j" "j"). ("j"))("っ" "ッ" "ｯ"))
-
-    ((("j" "a"). ())(("じ" "ジ" "ｼﾞ") ("ゃ" "ャ" "ｬ")))
-    ((("j" "i"). ())("じ" "ジ" "ｼﾞ"))
-    ((("j" "u"). ())(("じ" "ジ" "ｼﾞ") ("ゅ" "ュ" "ｭ")))
-    ((("j" "e"). ())(("じ" "ジ" "ｼﾞ") ("ぇ" "ェ" "ｪ")))
-    ((("j" "o"). ())(("じ" "ジ" "ｼﾞ") ("ょ" "ョ" "ｮ")))
-
-    ((("j" "y" "a"). ())(("じ" "ジ" "ｼﾞ") ("ゃ" "ャ" "ｬ")))
-    ((("j" "y" "i"). ())(("じ" "ジ" "ｼﾞ") ("ぃ" "ィ" "ｨ")))
-    ((("j" "y" "u"). ())(("じ" "ジ" "ｼﾞ") ("ゅ" "ュ" "ｭ")))
-    ((("j" "y" "e"). ())(("じ" "ジ" "ｼﾞ") ("ぇ" "ェ" "ｪ")))
-    ((("j" "y" "o"). ())(("じ" "ジ" "ｼﾞ") ("ょ" "ョ" "ｮ")))
-
-    ((("t" "t"). ("t"))("っ" "ッ" "ｯ"))
-    ((("t" "c"). ("c"))("っ" "ッ" "ｯ"))
-
-    ((("t" "a"). ())("た" "タ" "ﾀ"))
-    ((("t" "i"). ())("ち" "チ" "ﾁ"))
-    ((("t" "u"). ())("つ" "ツ" "ﾂ"))
-    ((("t" "e"). ())("て" "テ" "ﾃ"))
-    ((("t" "o"). ())("と" "ト" "ﾄ"))
-
-    ((("t" "y" "a"). ())(("ち" "チ" "ﾁ") ("ゃ" "ャ" "ｬ")))
-    ((("t" "y" "i"). ())(("ち" "チ" "ﾁ") ("ぃ" "ィ" "ｨ")))
-    ((("t" "y" "u"). ())(("ち" "チ" "ﾁ") ("ゅ" "ュ" "ｭ")))
-    ((("t" "y" "e"). ())(("ち" "チ" "ﾁ") ("ぇ" "ェ" "ｪ")))
-    ((("t" "y" "o"). ())(("ち" "チ" "ﾁ") ("ょ" "ョ" "ｮ")))
-
-    ((("t" "s" "a"). ())(("つ" "ツ" "ﾂ") ("ぁ" "ァ" "ｧ")))
-    ((("t" "s" "i"). ())(("つ" "ツ" "ﾂ") ("ぃ" "ィ" "ｨ")))
-    ((("t" "s" "u"). ())("つ" "ツ" "ﾂ"))
-    ((("t" "s" "e"). ())(("つ" "ツ" "ﾂ") ("ぇ" "ェ" "ｪ")))
-    ((("t" "s" "o"). ())(("つ" "ツ" "ﾂ") ("ぉ" "ォ" "ｫ")))
-
-    ((("c" "y" "a"). ())(("ち" "チ" "ﾁ") ("ゃ" "ャ" "ｬ")))
-    ((("c" "y" "i"). ())(("ち" "チ" "ﾁ") ("ぃ" "ィ" "ｨ")))
-    ((("c" "y" "u"). ())(("ち" "チ" "ﾁ") ("ゅ" "ュ" "ｭ")))
-    ((("c" "y" "e"). ())(("ち" "チ" "ﾁ") ("ぇ" "ェ" "ｪ")))
-    ((("c" "y" "o"). ())(("ち" "チ" "ﾁ") ("ょ" "ョ" "ｮ")))
-
-    ((("x" "t" "u"). ())("っ" "ッ" "ｯ"))
-    ((("x" "t" "s" "u"). ())("っ" "ッ" "ｯ"))
-    ((("c" "c"). ("c"))("っ" "ッ" "ｯ"))
-
-    ((("d" "d"). ("d"))("っ" "ッ" "ｯ"))
-
-    ((("d" "a"). ())("だ" "ダ" "ﾀﾞ"))
-    ((("d" "i"). ())("ぢ" "ヂ" "ﾁﾞ"))
-    ((("d" "u"). ())("づ" "ヅ" "ﾂﾞ"))
-    ((("d" "e"). ())("で" "デ" "ﾃﾞ"))
-    ((("d" "o"). ())("ど" "ド" "ﾄﾞ"))
-
-    ((("d" "y" "a"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ゃ" "ャ" "ｬ")))
-    ((("d" "y" "i"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ぃ" "ィ" "ｨ")))
-    ((("d" "y" "u"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ゅ" "ュ" "ｭ")))
-    ((("d" "y" "e"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ぇ" "ェ" "ｪ")))
-    ((("d" "y" "o"). ())(("ぢ" "ヂ" "ﾁﾞ") ("ょ" "ョ" "ｮ")))
-
-    ((("n" "n"). ())("ん" "ン" "ﾝ"))
-    ((("n" "'"). ())("ん" "ン" "ﾝ"))
-    ((("n"). ())("ん" "ン" "ﾝ"))
-
-    ((("n" "a"). ())("な" "ナ" "ﾅ"))
-    ((("n" "i"). ())("に" "ニ" "ﾆ"))
-    ((("n" "u"). ())("ぬ" "ヌ" "ﾇ"))
-    ((("n" "e"). ())("ね" "ネ" "ﾈ"))
-    ((("n" "o"). ())("の" "ノ" "ﾉ"))
-
-    ((("n" "y" "a"). ())(("に" "ニ" "ﾆ") ("ゃ" "ャ" "ｬ")))
-    ((("n" "y" "i"). ())(("に" "ニ" "ﾆ") ("ぃ" "ィ" "ｨ")))
-    ((("n" "y" "u"). ())(("に" "ニ" "ﾆ") ("ゅ" "ュ" "ｭ")))
-    ((("n" "y" "e"). ())(("に" "ニ" "ﾆ") ("ぇ" "ェ" "ｪ")))
-    ((("n" "y" "o"). ())(("に" "ニ" "ﾆ") ("ょ" "ョ" "ｮ")))
-
-    ((("h" "h"). ("h"))("っ" "ッ" "ｯ"))
-
-    ((("h" "a"). ())("は" "ハ" "ﾊ"))
-    ((("h" "i"). ())("ひ" "ヒ" "ﾋ"))
-    ((("h" "u"). ())("ふ" "フ" "ﾌ"))
-    ((("h" "e"). ())("へ" "ヘ" "ﾍ"))
-    ((("h" "o"). ())("ほ" "ホ" "ﾎ"))
-
-    ((("h" "y" "a"). ())(("ひ" "ヒ" "ﾋ") ("ゃ" "ャ" "ｬ")))
-    ((("h" "y" "i"). ())(("ひ" "ヒ" "ﾋ") ("ぃ" "ィ" "ｨ")))
-    ((("h" "y" "u"). ())(("ひ" "ヒ" "ﾋ") ("ゅ" "ュ" "ｭ")))
-    ((("h" "y" "e"). ())(("ひ" "ヒ" "ﾋ") ("ぇ" "ェ" "ｪ")))
-    ((("h" "y" "o"). ())(("ひ" "ヒ" "ﾋ") ("ょ" "ョ" "ｮ")))
-
-    ((("f" "f"). ("f"))("っ" "ッ" "ｯ"))
-
-    ((("f" "a"). ())(("ふ" "フ" "ﾌ") ("ぁ" "ァ" "ｧ")))
-    ((("f" "i"). ())(("ふ" "フ" "ﾌ") ("ぃ" "ィ" "ｨ")))
-    ((("f" "u"). ())("ふ" "フ" "ﾌ"))
-    ((("f" "e"). ())(("ふ" "フ" "ﾌ") ("ぇ" "ェ" "ｪ")))
-    ((("f" "o"). ())(("ふ" "フ" "ﾌ") ("ぉ" "ォ" "ｫ")))
-
-    ((("f" "y" "a"). ())(("ふ" "フ" "ﾌ") ("ゃ" "ャ" "ｬ")))
-    ((("f" "y" "i"). ())(("ふ" "フ" "ﾌ") ("ぃ" "ィ" "ｨ")))
-    ((("f" "y" "u"). ())(("ふ" "フ" "ﾌ") ("ゅ" "ュ" "ｭ")))
-    ((("f" "y" "e"). ())(("ふ" "フ" "ﾌ") ("ぇ" "ェ" "ｪ")))
-    ((("f" "y" "o"). ())(("ふ" "フ" "ﾌ") ("ょ" "ョ" "ｮ")))
-
-    ((("b" "b"). ("b"))("っ" "ッ" "ｯ"))
-
-    ((("b" "a"). ())("ば" "バ" "ﾊﾞ"))
-    ((("b" "i"). ())("び" "ビ" "ﾋﾞ"))
-    ((("b" "u"). ())("ぶ" "ブ" "ﾌﾞ"))
-    ((("b" "e"). ())("べ" "ベ" "ﾍﾞ"))
-    ((("b" "o"). ())("ぼ" "ボ" "ﾎﾞ"))
-
-    ((("b" "y" "a"). ())(("び" "ビ" "ﾋﾞ") ("ゃ" "ャ" "ｬ")))
-    ((("b" "y" "i"). ())(("び" "ビ" "ﾋﾞ") ("ぃ" "ィ" "ｨ")))
-    ((("b" "y" "u"). ())(("び" "ビ" "ﾋﾞ") ("ゅ" "ュ" "ｭ")))
-    ((("b" "y" "e"). ())(("び" "ビ" "ﾋﾞ") ("ぇ" "ェ" "ｪ")))
-    ((("b" "y" "o"). ())(("び" "ビ" "ﾋﾞ") ("ょ" "ョ" "ｮ")))
-
-    ((("p" "p"). ("p"))("っ" "ッ" "ｯ"))
-
-    ((("p" "a"). ())("ぱ" "パ" "ﾊﾟ"))
-    ((("p" "i"). ())("ぴ" "ピ" "ﾋﾟ"))
-    ((("p" "u"). ())("ぷ" "プ" "ﾌﾟ"))
-    ((("p" "e"). ())("ぺ" "ペ" "ﾍﾟ"))
-    ((("p" "o"). ())("ぽ" "ポ" "ﾎﾟ"))
-
-    ((("p" "y" "a"). ())(("ぴ" "ピ" "ﾋﾟ") ("ゃ" "ャ" "ｬ")))
-    ((("p" "y" "i"). ())(("ぴ" "ピ" "ﾋﾟ") ("ぃ" "ィ" "ｨ")))
-    ((("p" "y" "u"). ())(("ぴ" "ピ" "ﾋﾟ") ("ゅ" "ュ" "ｭ")))
-    ((("p" "y" "e"). ())(("ぴ" "ピ" "ﾋﾟ") ("ぇ" "ェ" "ｪ")))
-    ((("p" "y" "o"). ())(("ぴ" "ピ" "ﾋﾟ") ("ょ" "ョ" "ｮ")))
-
-    ((("m" "m"). ("m"))("っ" "ッ" "ｯ"))
-
-    ((("m" "b"). ("b"))("ん" "ン" "ﾝ"))
-    ((("m" "p"). ("p"))("ん" "ン" "ﾝ"))
-
-    ((("m" "a"). ())("ま" "マ" "ﾏ"))
-    ((("m" "i"). ())("み" "ミ" "ﾐ"))
-    ((("m" "u"). ())("む" "ム" "ﾑ"))
-    ((("m" "e"). ())("め" "メ" "ﾒ"))
-    ((("m" "o"). ())("も" "モ" "ﾓ"))
-
-    ((("m" "y" "a"). ())(("み" "ミ" "ﾐ") ("ゃ" "ャ" "ｬ")))
-    ((("m" "y" "i"). ())(("み" "ミ" "ﾐ") ("ぃ" "ィ" "ｨ")))
-    ((("m" "y" "u"). ())(("み" "ミ" "ﾐ") ("ゅ" "ュ" "ｭ")))
-    ((("m" "y" "e"). ())(("み" "ミ" "ﾐ") ("ぇ" "ェ" "ｪ")))
-    ((("m" "y" "o"). ())(("み" "ミ" "ﾐ") ("ょ" "ョ" "ｮ")))
-
-    ((("y" "y"). ("y"))("っ" "ッ" "ｯ"))
-
-    ((("y" "a"). ())("や" "ヤ" "ﾔ"))
-    ((("y" "u"). ())("ゆ" "ユ" "ﾕ"))
-    ((("y" "e"). ())(("い" "イ" "ｲ") ("ぇ" "ェ" "ｪ")))
-    ((("y" "o"). ())("よ" "ヨ" "ﾖ"))
-
-    ((("x" "c" "a"). ())("ヵ" "ヵ" "ｶ"))
-    ((("x" "k" "a"). ())("ヵ" "ヵ" "ｶ"))
-    ((("x" "k" "e"). ())("ヶ" "ヶ" "ｹ"))
-
-    ((("x" "y" "a"). ())("ゃ" "ャ" "ｬ"))
-    ((("x" "y" "u"). ())("ゅ" "ュ" "ｭ"))
-    ((("x" "y" "o"). ())("ょ" "ョ" "ｮ"))
-
-    ((("r" "r"). ("r"))("っ" "ッ" "ｯ"))
-
-    ((("r" "a"). ())("ら" "ラ" "ﾗ"))
-    ((("r" "i"). ())("り" "リ" "ﾘ"))
-    ((("r" "u"). ())("る" "ル" "ﾙ"))
-    ((("r" "e"). ())("れ" "レ" "ﾚ"))
-    ((("r" "o"). ())("ろ" "ロ" "ﾛ"))
-
-    ((("l" "t" "u"). ())("っ" "ッ" "ｯ"))
-    ((("l" "t" "s" "u"). ())("っ" "ッ" "ｯ"))
-
-    ((("l" "y" "a"). ())("ゃ" "ャ" "ｬ"))
-    ((("l" "y" "i"). ())("ぃ" "ィ" "ｨ"))
-    ((("l" "y" "u"). ())("ゅ" "ュ" "ｭ"))
-    ((("l" "y" "e"). ())("ぇ" "ェ" "ｪ"))
-    ((("l" "y" "o"). ())("ょ" "ョ" "ｮ"))
-
-    ((("r" "y" "a"). ())(("り" "リ" "ﾘ") ("ゃ" "ャ" "ｬ")))
-    ((("r" "y" "i"). ())(("り" "リ" "ﾘ") ("ぃ" "ィ" "ｨ")))
-    ((("r" "y" "u"). ())(("り" "リ" "ﾘ") ("ゅ" "ュ" "ｭ")))
-    ((("r" "y" "e"). ())(("り" "リ" "ﾘ") ("ぇ" "ェ" "ｪ")))
-    ((("r" "y" "o"). ())(("り" "リ" "ﾘ") ("ょ" "ョ" "ｮ")))
-
-    ((("w" "w"). ("w"))("っ" "ッ" "ｯ"))
-
-    ((("w" "a"). ())("わ" "ワ" "ﾜ"))
-    ((("w" "i"). ())(("う" "ウ" "ｳ") ("ぃ" "ィ" "ｨ")))
-    ((("w" "u"). ())("う" "ウ" "ｳ"))
-    ((("w" "e"). ())(("う" "ウ" "ｳ") ("ぇ" "ェ" "ｪ")))
-    ((("w" "o"). ())("を" "ヲ" "ｦ"))
-    ((("w" "h" "a"). ())(("う" "ウ" "ｳ") ("ぁ" "ァ" "ｧ")))
-    ((("w" "h" "i"). ())(("う" "ウ" "ｳ") ("ぃ" "ィ" "ｨ")))
-    ((("w" "h" "u"). ())("う" "ウ" "ｳ"))
-    ((("w" "h" "e"). ())(("う" "ウ" "ｳ") ("ぇ" "ェ" "ｪ")))
-    ((("w" "h" "o"). ())(("う" "ウ" "ｳ") ("ぉ" "ォ" "ｫ")))
-
-    ((("v" "v"). ("v"))("っ" "ッ" "ｯ"))
-
-    ((("v" "a"). ())(("う゛" "ヴ" "ｳﾞ") ("ぁ" "ァ" "ｧ")))
-    ((("v" "i"). ())(("う゛" "ヴ" "ｳﾞ") ("ぃ" "ィ" "ｨ")))
-    ((("v" "u"). ())("う゛" "ヴ" "ｳﾞ"))
-    ((("v" "e"). ())(("う゛" "ヴ" "ｳﾞ") ("ぇ" "ェ" "ｪ")))
-    ((("v" "o"). ())(("う゛" "ヴ" "ｳﾞ") ("ぉ" "ォ" "ｫ")))
-
-    ((("v" "y" "a"). ())(("う゛" "ヴ" "ｳﾞ") ("ゃ" "ャ" "ｬ")))
-    ((("v" "y" "u"). ())(("う゛" "ヴ" "ｳﾞ") ("ゅ" "ュ" "ｭ")))
-    ((("v" "y" "o"). ())(("う゛" "ヴ" "ｳﾞ") ("ょ" "ョ" "ｮ")))
-
-    ((("z" "k"). ())("↑" "↑" ""))
-    ((("z" "j"). ())("↓" "↓" ""))
-    ((("z" "h"). ())("←" "←" ""))
-    ((("z" "l"). ())("→" "→" ""))
-    ((("z" "-"). ())("〜" "〜" ""))
-    ((("z" "["). ())("『" "『" ""))
-    ((("z" "]"). ())("』" "』" ""))
-    ((("z" ","). ())("‥" "‥" ""))
-    ((("z" "."). ())("…" "…" ""))
-    ((("z" "/"). ())("・" "・" "･"))
-    ))
-
-(define ja-rk-rule-additional
-  '(
-    ((("d" "s" "u"). ())("づ" "ヅ" "ﾂﾞ"))
-
-    ((("d" "h" "a"). ())(("で" "デ" "ﾃﾞ") ("ゃ" "ャ" "ｬ")))
-    ((("d" "h" "i"). ())(("で" "デ" "ﾃﾞ") ("ぃ" "ィ" "ｨ")))
-    ((("d" "h" "u"). ())(("で" "デ" "ﾃﾞ") ("ゅ" "ュ" "ｭ")))
-    ((("d" "h" "e"). ())(("で" "デ" "ﾃﾞ") ("ぇ" "ェ" "ｪ")))
-    ((("d" "h" "o"). ())(("で" "デ" "ﾃﾞ") ("ょ" "ョ" "ｮ")))
-
-    ((("d" "w" "a"). ())(("ど" "ド" "ﾄﾞ") ("ぁ" "ァ" "ｧ")))
-    ((("d" "w" "i"). ())(("ど" "ド" "ﾄﾞ") ("ぃ" "ィ" "ｨ")))
-    ((("d" "w" "u"). ())(("ど" "ド" "ﾄﾞ") ("ぅ" "ゥ" "ｩ")))
-    ((("d" "w" "e"). ())(("ど" "ド" "ﾄﾞ") ("ぇ" "ェ" "ｪ")))
-    ((("d" "w" "o"). ())(("ど" "ド" "ﾄﾞ") ("ぉ" "ォ" "ｫ")))
-
-    ((("k" "w" "a"). ())(("く" "ク" "ｸ") ("ぁ" "ァ" "ｧ")))
-    ((("k" "w" "i"). ())(("く" "ク" "ｸ") ("ぃ" "ィ" "ｨ")))
-    ((("k" "w" "u"). ())(("く" "ク" "ｸ") ("ぅ" "ゥ" "ｩ")))
-    ((("k" "w" "e"). ())(("く" "ク" "ｸ") ("ぇ" "ェ" "ｪ")))
-    ((("k" "w" "o"). ())(("く" "ク" "ｸ") ("ぉ" "ォ" "ｫ")))
-
-    ((("s" "h" "a"). ())(("し" "シ" "ｼ") ("ゃ" "ャ" "ｬ")))
-    ((("s" "h" "i"). ())("し" "シ" "ｼ"))
-    ((("s" "h" "u"). ())(("し" "シ" "ｼ") ("ゅ" "ュ" "ｭ")))
-    ((("s" "h" "e"). ())(("し" "シ" "ｼ") ("ぇ" "ェ" "ｪ")))
-    ((("s" "h" "o"). ())(("し" "シ" "ｼ") ("ょ" "ョ" "ｮ")))
-
-    ((("s" "w" "a"). ())(("す" "ス" "ｽ") ("ぁ" "ァ" "ｧ")))
-    ((("s" "w" "i"). ())(("す" "ス" "ｽ") ("ぃ" "ィ" "ｨ")))
-    ((("s" "w" "u"). ())(("す" "ス" "ｽ") ("ぅ" "ゥ" "ｩ")))
-    ((("s" "w" "e"). ())(("す" "ス" "ｽ") ("ぇ" "ェ" "ｪ")))
-    ((("s" "w" "o"). ())(("す" "ス" "ｽ") ("ぉ" "ォ" "ｫ")))
-
-    ((("t" "w" "a"). ())(("と" "ト" "ﾄ") ("ぁ" "ァ" "ｧ")))
-    ((("t" "w" "i"). ())(("と" "ト" "ﾄ") ("ぃ" "ィ" "ｨ")))
-    ((("t" "w" "u"). ())(("と" "ト" "ﾄ") ("ぅ" "ゥ" "ｩ")))
-    ((("t" "w" "e"). ())(("と" "ト" "ﾄ") ("ぇ" "ェ" "ｪ")))
-    ((("t" "w" "o"). ())(("と" "ト" "ﾄ") ("ぉ" "ォ" "ｫ")))
-
-    ((("t" "h" "a"). ())(("て" "テ" "ﾃ") ("ゃ" "ャ" "ｬ")))
-    ((("t" "h" "i"). ())(("て" "テ" "ﾃ") ("ぃ" "ィ" "ｨ")))
-    ((("t" "h" "u"). ())(("て" "テ" "ﾃ") ("ゅ" "ュ" "ｭ")))
-    ((("t" "h" "e"). ())(("て" "テ" "ﾃ") ("ぇ" "ェ" "ｪ")))
-    ((("t" "h" "o"). ())(("て" "テ" "ﾃ") ("ょ" "ョ" "ｮ")))
-
-    ((("h" "w" "a"). ())(("ふ" "フ" "ﾌ") ("ぁ" "ァ" "ｧ")))
-    ((("h" "w" "i"). ())(("ふ" "フ" "ﾌ") ("ぃ" "ィ" "ｨ")))
-    ((("h" "w" "e"). ())(("ふ" "フ" "ﾌ") ("ぇ" "ェ" "ｪ")))
-    ((("h" "w" "o"). ())(("ふ" "フ" "ﾌ") ("ぉ" "ォ" "ｫ")))
-
-    ((("f" "w" "a"). ())(("ふ" "フ" "ﾌ") ("ぁ" "ァ" "ｧ")))
-    ((("f" "w" "i"). ())(("ふ" "フ" "ﾌ") ("ぃ" "ィ" "ｨ")))
-    ((("f" "w" "u"). ())(("ふ" "フ" "ﾌ") ("ぅ" "ゥ" "ｩ")))
-    ((("f" "w" "e"). ())(("ふ" "フ" "ﾌ") ("ぇ" "ェ" "ｪ")))
-    ((("f" "w" "o"). ())(("ふ" "フ" "ﾌ") ("ぉ" "ォ" "ｫ")))
-
-    ((("x" "w" "a"). ())("ゎ" "ヮ" "ﾜ"))
-    ((("x" "w" "i"). ())("ゐ" "ヰ" "ｨ"))
-    ((("x" "w" "e"). ())("ゑ" "ヱ" "ｪ"))
-
-    ((("w" "y" "i"). ())("ゐ" "ヰ" "ｨ"))
-    ((("w" "y" "e"). ())("ゑ" "ヱ" "ｪ"))
-
-    ((("c" "h" "a"). ())(("ち" "チ" "ﾁ") ("ゃ" "ャ" "ｬ")))
-    ((("c" "h" "i"). ())("ち" "チ" "ﾁ"))
-    ((("c" "h" "u"). ())(("ち" "チ" "ﾁ") ("ゅ" "ュ" "ｭ")))
-    ((("c" "h" "e"). ())(("ち" "チ" "ﾁ") ("ぇ" "ェ" "ｪ")))
-    ((("c" "h" "o"). ())(("ち" "チ" "ﾁ") ("ょ" "ョ" "ｮ")))
-
-    ((("q" "w" "a"). ())(("く" "ク" "ｸ") ("ぁ" "ァ" "ｧ")))
-    ((("q" "w" "i"). ())(("く" "ク" "ｸ") ("ぃ" "ィ" "ｨ")))
-    ((("q" "w" "u"). ())(("く" "ク" "ｸ") ("ぅ" "ゥ" "ｩ")))
-    ((("q" "w" "e"). ())(("く" "ク" "ｸ") ("ぇ" "ェ" "ｪ")))
-    ((("q" "w" "o"). ())(("く" "ク" "ｸ") ("ぉ" "ォ" "ｫ")))
-
-    ((("q" "y" "a"). ())(("く" "ク" "ｸ") ("ゃ" "ャ" "ｬ")))
-    ((("q" "y" "i"). ())(("く" "ク" "ｸ") ("ぃ" "ィ" "ｨ")))
-    ((("q" "y" "u"). ())(("く" "ク" "ｸ") ("ゅ" "ュ" "ｭ")))
-    ((("q" "y" "e"). ())(("く" "ク" "ｸ") ("ぇ" "ェ" "ｪ")))
-    ((("q" "y" "o"). ())(("く" "ク" "ｸ") ("ょ" "ョ" "ｮ")))
-
-    ((("g" "w" "a"). ())(("ぐ" "グ" "ｸﾞ") ("ぁ" "ァ" "ｧ")))
-    ((("g" "w" "i"). ())(("ぐ" "グ" "ｸﾞ") ("ぃ" "ィ" "ｨ")))
-    ((("g" "w" "u"). ())(("ぐ" "グ" "ｸﾞ") ("ぅ" "ゥ" "ｩ")))
-    ((("g" "w" "e"). ())(("ぐ" "グ" "ｸﾞ") ("ぇ" "ェ" "ｪ")))
-    ((("g" "w" "o"). ())(("ぐ" "グ" "ｸﾞ") ("ぉ" "ォ" "ｫ")))
-
-    ((("z" "w" "a"). ())(("ず" "ズ" "ｽﾞ") ("ぁ" "ァ" "ｧ")))
-    ((("z" "w" "i"). ())(("ず" "ズ" "ｽﾞ") ("ぃ" "ィ" "ｨ")))
-    ((("z" "w" "u"). ())(("ず" "ズ" "ｽﾞ") ("ぅ" "ゥ" "ｩ")))
-    ((("z" "w" "e"). ())(("ず" "ズ" "ｽﾞ") ("ぇ" "ェ" "ｪ")))
-    ((("z" "w" "o"). ())(("ず" "ズ" "ｽﾞ") ("ぉ" "ォ" "ｫ")))
-
-    ;((("n" "w" "a"). ())(("ぬ" "ヌ" "ﾇ") ("ぁ" "ァ" "ｧ")))
-    ;((("n" "w" "i"). ())(("ぬ" "ヌ" "ﾇ") ("ぃ" "ィ" "ｨ")))
-    ;((("n" "w" "u"). ())(("ぬ" "ヌ" "ﾇ") ("ぅ" "ゥ" "ｩ")))
-    ;((("n" "w" "e"). ())(("ぬ" "ヌ" "ﾇ") ("ぇ" "ェ" "ｪ")))
-    ;((("n" "w" "o"). ())(("ぬ" "ヌ" "ﾇ") ("ぉ" "ォ" "ｫ")))
-
-    ((("b" "w" "a"). ())(("ぶ" "ブ" "ﾌﾞ") ("ぁ" "ァ" "ｧ")))
-    ((("b" "w" "i"). ())(("ぶ" "ブ" "ﾌﾞ") ("ぃ" "ィ" "ｨ")))
-    ((("b" "w" "u"). ())(("ぶ" "ブ" "ﾌﾞ") ("ぅ" "ゥ" "ｩ")))
-    ((("b" "w" "e"). ())(("ぶ" "ブ" "ﾌﾞ") ("ぇ" "ェ" "ｪ")))
-    ((("b" "w" "o"). ())(("ぶ" "ブ" "ﾌﾞ") ("ぉ" "ォ" "ｫ")))
-
-    ((("p" "w" "a"). ())(("ぷ" "プ" "ﾌﾟ") ("ぁ" "ァ" "ｧ")))
-    ((("p" "w" "i"). ())(("ぷ" "プ" "ﾌﾟ") ("ぃ" "ィ" "ｨ")))
-    ((("p" "w" "u"). ())(("ぷ" "プ" "ﾌﾟ") ("ぅ" "ゥ" "ｩ")))
-    ((("p" "w" "e"). ())(("ぷ" "プ" "ﾌﾟ") ("ぇ" "ェ" "ｪ")))
-    ((("p" "w" "o"). ())(("ぷ" "プ" "ﾌﾟ") ("ぉ" "ォ" "ｫ")))
-
-    ((("m" "w" "a"). ())(("む" "ム" "ﾑ") ("ぁ" "ァ" "ｧ")))
-    ((("m" "w" "i"). ())(("む" "ム" "ﾑ") ("ぃ" "ィ" "ｨ")))
-    ((("m" "w" "u"). ())(("む" "ム" "ﾑ") ("ぅ" "ゥ" "ｩ")))
-    ((("m" "w" "e"). ())(("む" "ム" "ﾑ") ("ぇ" "ェ" "ｪ")))
-    ((("m" "w" "o"). ())(("む" "ム" "ﾑ") ("ぉ" "ォ" "ｫ")))
-
-    ((("y" "w" "a"). ())(("ゆ" "ユ" "ﾕ") ("ぁ" "ァ" "ｧ")))
-    ((("y" "w" "i"). ())(("ゆ" "ユ" "ﾕ") ("ぃ" "ィ" "ｨ")))
-    ((("y" "w" "u"). ())(("ゆ" "ユ" "ﾕ") ("ぅ" "ゥ" "ｩ")))
-    ((("y" "w" "e"). ())(("ゆ" "ユ" "ﾕ") ("ぇ" "ェ" "ｪ")))
-    ((("y" "w" "o"). ())(("ゆ" "ユ" "ﾕ") ("ぉ" "ォ" "ｫ")))
-
-    ((("r" "w" "a"). ())(("る" "ル" "ﾙ") ("ぁ" "ァ" "ｧ")))
-    ((("r" "w" "i"). ())(("る" "ル" "ﾙ") ("ぃ" "ィ" "ｨ")))
-    ((("r" "w" "u"). ())(("る" "ル" "ﾙ") ("ぅ" "ゥ" "ｩ")))
-    ((("r" "w" "e"). ())(("る" "ル" "ﾙ") ("ぇ" "ェ" "ｪ")))
-    ((("r" "w" "o"). ())(("る" "ル" "ﾙ") ("ぉ" "ォ" "ｫ")))
-
-    ((("d" "'" "i"). ())(("で" "デ" "ﾃﾞ") ("ぃ" "ィ" "ｨ")))
-    ((("d" "'" "y" "u"). ())(("で" "デ" "ﾃﾞ") ("ゅ" "ュ" "ｭ")))
-
-    ((("d" "'" "u"). ())(("ど" "ド" "ﾄﾞ") ("ぅ" "ゥ" "ｩ")))
-
-    ((("t" "'" "i"). ())(("て" "テ" "ﾃ") ("ぃ" "ィ" "ｨ")))
-    ((("t" "'" "y" "u"). ())(("て" "テ" "ﾃ") ("ゅ" "ュ" "ｭ")))
-
-    ((("t" "'" "u"). ())(("と" "ト" "ﾄ") ("ぅ" "ゥ" "ｩ")))
- 
-    ))
-
-(define ja-rk-rule (append ja-rk-rule-basic ja-rk-rule-additional))
-
 (define ja-wide-rule
   '(("a" "ａ")
     ("b" "ｂ")
@@ -861,13 +360,6 @@
 		(ja-make-kana-str-list (cdr sl)))
 	'())))
 
-(define ja-type-direct	       -1)
-(define ja-type-hiragana	0)
-(define ja-type-katakana	1)
-(define ja-type-halfkana	2)
-(define ja-type-halfwidth-alnum	3)
-(define ja-type-fullwidth-alnum	4)
-
 (define ja-opposite-kana
   (lambda (kana)
     (cond
@@ -877,27 +369,6 @@
       ja-type-hiragana)
      ((= kana ja-type-halfkana)
       ja-type-hiragana))))
-
-;; getting required type of kana string from above kana-str-list
-;; (ja-make-kana-str
-;;  (("じ" "ジ" "ｼﾞ") ("ん" "ン" "ﾝ") ("か" "カ" "ｶ"))
-;;  ja-type-katakana)
-;;  -> "カンジ"
-(define ja-make-kana-str
-  (lambda (sl type)
-    (let ((get-str-by-type
-	   (lambda (l)
-	     (cond
-	      ((= type ja-type-hiragana)
-	       (caar l))
-	      ((= type ja-type-katakana)
-	       (car (cdar l)))
-	      ((= type ja-type-halfkana)
-	       (cadr (cdar l)))))))
-      (if (not (null? sl))
-	  (string-append (ja-make-kana-str (cdr sl) type)
-			 (get-str-by-type sl))
-	  ""))))
     
 (define japanese-roma-set-yen-representation
   (lambda ()
@@ -924,6 +395,8 @@
 
 (define ja-rk-rule-update
   (lambda ()
+    (set! ja-rk-rule-basic
+      (ja-rk-rule-table->rule ja-rk-rule-table-basic))
     (if ja-rk-rule-keep-consonant?
       (set! ja-rk-rule (append ja-rk-rule-consonant-to-keep
                                ja-rk-rule-basic
diff --git a/test/test-custom.scm b/test/test-custom.scm
index 6b82677..cda24fd 100755
--- a/test/test-custom.scm
+++ b/test/test-custom.scm
@@ -322,6 +322,45 @@
    (assert-false (uim-bool '(custom-key?
 			     '(test-nonexistent-key "<Alt>a")))))
 
+  ("test custom-table?"
+   (assert-true  (uim-bool '(custom-table?
+			     '())))
+   (assert-true  (uim-bool '(custom-table?
+			     '(("")))))
+   (assert-true  (uim-bool '(custom-table?
+			     '(("Alice")))))
+   (assert-true  (uim-bool '(custom-table?
+			     '(("Alice" "Bob")))))
+   (assert-true  (uim-bool '(custom-table?
+			     '(("Alice" "Bob") ("Carol" "Dave")))))
+   (assert-true  (uim-bool '(custom-table?
+			     '(("Alice" "Bob") ("Carol" "Dave" "Eve")))))
+
+   (assert-false (uim-bool '(custom-table?
+			     #t)))
+   (assert-false (uim-bool '(custom-table?
+			     "Alice")))
+   (assert-false (uim-bool '(custom-table?
+			     'Alice)))
+   (assert-false (uim-bool '(custom-table?
+			     1)))
+
+   (assert-false (uim-bool '(custom-table?
+			     '(("Alice" "Bob") #t))))
+   (assert-false (uim-bool '(custom-table?
+			     '(("Alice" "Bob") "Carol"))))
+   (assert-false (uim-bool '(custom-table?
+			     '(("Alice" "Bob") 'Carol))))
+   (assert-false (uim-bool '(custom-table?
+			     '(("Alice" "Bob") 1))))
+
+   (assert-false (uim-bool '(custom-table?
+			     '(("Alice" "Bob") ("Carol" "Dave" #t)))))
+   (assert-false (uim-bool '(custom-table?
+			     '(("Alice" "Bob") ("Carol" "Dave" 'Eve)))))
+   (assert-false (uim-bool '(custom-table?
+			     '(("Alice" "Bob") ("Carol" "Dave" 1))))))
+
   ("test custom-expand-key-references"
    (assert-equal '("<Control>g" "escape")
 		 (uim '(custom-value 'test-cancel-key)))
@@ -1763,6 +1802,11 @@
 	       (latin "latin" "latin")
 	       (wide-latin "wide-latin" "wide-latin"))
 	     "Mode list"
+	     "long description will be here."))
+     (uim '(define-custom 'test-case-table '(("abc" "ABC") ("def" "DEF"))
+	     '(test)
+	     '(table)
+	     "alphabet table"
 	     "long description will be here."))))
 
   ("test custom-valid?"
@@ -1834,7 +1878,9 @@
    (assert-equal "a string"
 		 (uim '(custom-value 'test-string)))
    (assert-equal "/usr/share/skk/SKK-JISYO.L"
-		 (uim '(custom-value 'test-dic-file-name))))
+		 (uim '(custom-value 'test-dic-file-name)))
+   (assert-equal '(("abc" "ABC") ("def" "DEF"))
+		 (uim '(custom-value 'test-case-table))))
 
   ("test custom-set-value!"
    ;;; choice
@@ -1957,7 +2003,21 @@
    ;; invalid value is ignored
    (assert-false (uim-bool '(custom-set-value! 'test-modelist 'kanji)))
    (assert-equal 'latin
-		 (uim '(custom-value 'test-modelist))))
+		 (uim '(custom-value 'test-modelist)))
+   ;;; table
+   ;; default value
+   (assert-equal '(("abc" "ABC") ("def" "DEF"))
+		 (uim '(custom-value 'test-case-table)))
+   ;; valid value
+   (assert-true  (uim-bool '(custom-set-value!
+			     'test-case-table
+			     '(("ghi" "GHI") ("jkl" "JKL")))))
+   (assert-equal '(("ghi" "GHI") ("jkl" "JKL"))
+		 (uim '(custom-value 'test-case-table)))
+   ;; invalid value is ignored
+   (assert-false (uim-bool '(custom-set-value! 'test-case-table #f)))
+   (assert-equal '(("ghi" "GHI") ("jkl" "JKL"))
+		 (uim '(custom-value 'test-case-table))))
 
   ("test custom-default?"
    ;;; choice
@@ -2045,7 +2105,21 @@
    ;; come back to default
    (assert-true  (uim-bool '(custom-set-value! 'test-dic-file-name
 					 "/usr/share/skk/SKK-JISYO.L")))
-   (assert-true  (uim-bool '(custom-default? 'test-dic-file-name))))
+   (assert-true  (uim-bool '(custom-default? 'test-dic-file-name)))
+
+   ;;; table
+   ;; default value
+   (assert-equal '(("abc" "ABC") ("def" "DEF"))
+		 (uim '(custom-value 'test-case-table)))
+   (assert-true  (uim-bool '(custom-default? 'test-case-table)))
+   ;; valid, but non-default value
+   (assert-true  (uim-bool '(custom-set-value! 'test-case-table
+					 '(("ghi" "GHI") ("jkl" "JKL")))))
+   (assert-false (uim-bool '(custom-default? 'test-case-table)))
+   ;; come back to default
+   (assert-true  (uim-bool '(custom-set-value! 'test-case-table
+					 '(("abc" "ABC") ("def" "DEF")))))
+   (assert-true  (uim-bool '(custom-default? 'test-case-table))))
 
   ("test custom-default-value"
    ;;; choice
@@ -2134,7 +2208,21 @@
    (assert-equal "/usr/local/share/skk/SKK-JISYO.ML"
 		 (uim '(custom-value 'test-dic-file-name)))
    (assert-equal "/usr/share/skk/SKK-JISYO.L"
-		 (uim '(custom-default-value 'test-dic-file-name))))
+		 (uim '(custom-default-value 'test-dic-file-name)))
+
+   ;;; table
+   ;; default value
+   (assert-equal '(("abc" "ABC") ("def" "DEF"))
+		 (uim '(custom-value 'test-case-table)))
+   (assert-equal '(("abc" "ABC") ("def" "DEF"))
+		 (uim '(custom-default-value 'test-case-table)))
+   ;; default value is not affected by current value
+   (assert-true  (uim-bool '(custom-set-value! 'test-case-table
+					 '(("ghi" "GHI") ("jkl" "JKL")))))
+   (assert-equal '(("ghi" "GHI") ("jkl" "JKL"))
+		 (uim '(custom-value 'test-case-table)))
+   (assert-equal '(("abc" "ABC") ("def" "DEF"))
+		 (uim '(custom-default-value 'test-case-table))))
 
   ("test custom-groups"
    (assert-equal '(global main)
@@ -2150,7 +2238,9 @@
    (assert-equal '(test main)
 		 (uim '(custom-groups 'test-string)))
    (assert-equal '(test main)
-		 (uim '(custom-groups 'test-dic-file-name))))
+		 (uim '(custom-groups 'test-dic-file-name)))
+   (assert-equal '(test main)
+		 (uim '(custom-groups 'test-case-table))))
 
   ("test custom-type"
    (assert-equal 'choice
@@ -2166,7 +2256,9 @@
    (assert-equal 'string
 		 (uim '(custom-type 'test-string)))
    (assert-equal 'pathname
-		 (uim '(custom-type 'test-dic-file-name))))
+		 (uim '(custom-type 'test-dic-file-name)))
+   (assert-equal 'table
+		 (uim '(custom-type 'test-case-table))))
    
   ("test custom-type-attrs"
    (assert-equal '((test-style-uim "uim" "uim native")
@@ -2186,7 +2278,9 @@
    (assert-equal '(".+")
 		 (uim '(custom-type-attrs 'test-string)))
    (assert-equal '(regular-file)
-		 (uim '(custom-type-attrs 'test-dic-file-name))))
+		 (uim '(custom-type-attrs 'test-dic-file-name)))
+   (assert-equal '()
+		 (uim '(custom-type-attrs 'test-case-table))))
 
   ("test custom-range"
    (assert-equal '(test-style-uim test-style-ddskk test-style-canna)
@@ -2202,7 +2296,9 @@
    (assert-equal '(".+")
 		 (uim '(custom-range 'test-string)))
    (assert-equal ()
-		 (uim '(custom-range 'test-dic-file-name))))
+		 (uim '(custom-range 'test-dic-file-name)))
+   (assert-equal ()
+		 (uim '(custom-range 'test-case-table))))
 
   ("test custom-label"
    (assert-equal "Test style"
@@ -2218,7 +2314,9 @@
    (assert-equal "A string for testing purpose"
 		 (uim '(custom-label 'test-string)))
    (assert-equal "Dictionary file"
-		 (uim '(custom-label 'test-dic-file-name))))
+		 (uim '(custom-label 'test-dic-file-name)))
+   (assert-equal "alphabet table"
+		 (uim '(custom-label 'test-case-table))))
    
   ("test custom-desc"
    (assert-equal "long description will be here."
@@ -2234,7 +2332,9 @@
    (assert-equal "long description will be here."
 		 (uim '(custom-desc 'test-style)))
    (assert-equal "long description will be here."
-		 (uim '(custom-desc 'test-dic-file-name))))
+		 (uim '(custom-desc 'test-dic-file-name)))
+   (assert-equal "long description will be here."
+		 (uim '(custom-desc 'test-case-table))))
 
   ("test custom-value-as-literal"
    (assert-equal "'test-style-ddskk"
@@ -2256,7 +2356,9 @@
    (assert-equal "\"a string\""
 		 (uim '(custom-value-as-literal 'test-string)))
    (assert-equal "\"/usr/share/skk/SKK-JISYO.L\""
-		 (uim '(custom-value-as-literal 'test-dic-file-name))))
+		 (uim '(custom-value-as-literal 'test-dic-file-name)))
+   (assert-equal "'((\"abc\" \"ABC\") (\"def\" \"DEF\"))"
+		 (uim '(custom-value-as-literal 'test-case-table))))
 
   ("test custom-definition-as-literal"
    (assert-equal "(define test-style 'test-style-ddskk)"
@@ -2279,6 +2381,8 @@
 		 (uim '(custom-definition-as-literal 'test-string)))
    (assert-equal "(define test-dic-file-name \"/usr/share/skk/SKK-JISYO.L\")"
 		 (uim '(custom-definition-as-literal 'test-dic-file-name)))
+   (assert-equal "(define test-case-table '((\"abc\" \"ABC\") (\"def\" \"DEF\")))"
+		 (uim '(custom-definition-as-literal 'test-case-table)))
    ;; hooked
    (assert-equal "(define test-style 'test-style-ddskk)"
 		 (uim '(custom-definition-as-literal 'test-style)))
diff --git a/uim/uim-custom.c b/uim/uim-custom.c
index 5fe3402..b5409f7 100644
--- a/uim/uim-custom.c
+++ b/uim/uim-custom.c
@@ -206,6 +206,12 @@ static void uim_custom_key_free(struct uim_custom_key *custom_key);
 static char *extract_key_literal(const struct uim_custom_key *custom_key);
 static char *key_list_to_str(const struct uim_custom_key *const *list, const char *sep);
 
+static char ***uim_custom_table_get(const char *custom_sym, const char *getter_proc);
+static char *literalized_strdup(const char *str);
+static char *row_list_to_str(const char *const *list);
+static char *table_to_str(const char** const *list, const char *sep);
+
+
 static union uim_custom_value *uim_custom_value_internal(const char *custom_sym, const char *getter_proc);
 static union uim_custom_value *uim_custom_value(const char *custom_sym);
 static union uim_custom_value *uim_custom_default_value(const char *custom_sym);
@@ -439,6 +445,8 @@ uim_custom_type(const char *custom_sym)
     return UCustom_OrderedList;
   } else if (uim_custom_type_eq(custom_sym, "key")) {
     return UCustom_Key;
+  } else if (uim_custom_type_eq(custom_sym, "table")) {
+    return UCustom_Table;
   } else {
     return UCustom_Bool;
   }
@@ -793,6 +801,67 @@ uim_custom_key_list_free(struct uim_custom_key **list)
 		      (uim_scm_c_list_free_func)uim_custom_key_free);
 }
 
+/* table */
+static char ***
+uim_custom_table_get(const char *custom_sym, const char *getter_proc)
+{
+  char ***custom_table;
+  int row_count;
+  int row;
+
+  UIM_EVAL_FSTRING1(NULL, "(length %s)", custom_sym);
+  row_count = uim_scm_c_int(uim_scm_return_value());
+
+  custom_table = (char ***)malloc(sizeof(char **) * (row_count + 1));
+  if (!custom_table)
+    return NULL;
+
+  custom_table[row_count] = NULL;
+  for (row = 0; row < row_count; row++) {
+    int column_count;
+    int column;
+    UIM_EVAL_FSTRING2(NULL, "(length (nth %d %s))", row, custom_sym);
+    column_count = uim_scm_c_int(uim_scm_return_value());
+
+    custom_table[row] = (char **)malloc(sizeof(char *) * (column_count + 1));
+    if (!custom_table[row])
+      return NULL;
+    custom_table[row][column_count] = NULL;
+    for (column = 0; column < column_count; column++) {
+      char *str;
+      UIM_EVAL_FSTRING3(NULL, "(nth %d (nth %d %s))", column, row, custom_sym);
+      str = uim_scm_c_str(uim_scm_return_value());
+      if (!str)
+        return NULL;
+      custom_table[row][column] = malloc(sizeof(char) * (strlen(str) + 1));
+      if (!custom_table[row][column])
+        return NULL;
+      custom_table[row][column] = str;
+    }
+  }
+
+  return custom_table;
+}
+
+static char *
+literalized_strdup(const char *str)
+{
+  return strdup(literalize_string(str));
+}
+
+static char *
+row_list_to_str(const char *const *list)
+{
+  return c_list_to_str((const void *const *)list, literalized_strdup, " ");
+}
+
+static char *
+table_to_str(const char** const *list, const char *sep)
+{
+  return c_list_to_str((const void *const *)list,
+		       (char *(*)(const void *))row_list_to_str, sep);
+}
+
 static union uim_custom_value *
 uim_custom_value_internal(const char *custom_sym, const char *getter_proc)
 {
@@ -834,6 +903,9 @@ uim_custom_value_internal(const char *custom_sym, const char *getter_proc)
   case UCustom_Key:
     value->as_key = uim_custom_key_get(custom_sym, getter_proc);
     break;
+  case UCustom_Table:
+    value->as_table = uim_custom_table_get(custom_sym, getter_proc);
+    break;
   default:
     value = NULL;
   }
@@ -1466,6 +1538,15 @@ uim_custom_set(const struct uim_custom *custom)
       free(val);
     }
     break;
+  case UCustom_Table:
+    {
+      char *val
+        = table_to_str((const char ** const *)custom->value->as_table, ") (");
+      UIM_EVAL_FSTRING2(NULL, "(custom-set-value! '%s '((%s)))",
+        custom->symbol, val);
+      free(val);
+    }
+    break;
   default:
     return UIM_FALSE;
   }
diff --git a/uim/uim-custom.h b/uim/uim-custom.h
index dcfdfbc..10fbf1a 100644
--- a/uim/uim-custom.h
+++ b/uim/uim-custom.h
@@ -48,7 +48,8 @@ enum UCustomType {
   UCustom_Pathname,
   UCustom_Choice,
   UCustom_OrderedList,
-  UCustom_Key
+  UCustom_Key,
+  UCustom_Table
 };
 
 enum UCustomPathnameType {
@@ -74,6 +75,7 @@ union uim_custom_value {
   struct uim_custom_choice *as_choice;
   struct uim_custom_choice **as_olist;
   struct uim_custom_key **as_key;
+  char ***as_table;
 };
 
 struct uim_custom_pathname {