RubyGems - sekka - Versions diffs - 0.8.0 → 0.8.1 - Mend

sekka 0.8.0 → 0.8.1

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (17) hide show

data/lib/sekka/henkan.nnd CHANGED Viewed

@@ -328,8 +328,8 @@
 ;; Flush henkan-result cache data on cachesv(memcached)
-(define (flush-cachesv cachesv)
-  #?="--- do (flush-cachesv) ---"
+(define (flushCacheServer cachesv)
+  #?="--- do (flushCacheServer) ---"
   (if-let1 fetched (cachesv.get  "sekka::(keys)" #f)
     (begin
       (for-each
@@ -338,6 +338,8 @@
        (to-list (fetched.split #/[ ]+/)))
       (cachesv.delete "sekka::(keys)"))
     #f))
+;; Export to Ruby world
+(export-to-ruby flushCacheServer)
 ;; 確定処理: 最終確定語を変換候補の先頭に持ってくる。
@@ -382,7 +384,7 @@
                 (begin
                   (write-user-entry userid kvs key new-kouho-str)
                   (and cachesv
-                       (flush-cachesv cachesv))
+                       (flushCacheServer cachesv))
                   tango)
                 nil))
           nil)
@@ -391,6 +393,19 @@
 (export-to-ruby sekkaKakutei)
+;; ユーザー辞書の全削除 (useridで指定したユーザーの辞書)
+;; 削除した件数を返す。
+(define (flushUserJisyo userid kvs)
+  (let1 lst (to-list (kvs.forward_match_keys (+ userid "::")))
+    (for-each
+     (lambda (k)
+       (kvs.delete k))
+     lst)
+    (length lst)))
+;; Export to Ruby world
+(export-to-ruby flushUserJisyo)
 ;; ユーザー定義語彙の登録処理
 (define (registerUserJisyo userid kvs dict-line)
   (define user-keylist '())

data/lib/sekka/jisyo-db.nnd CHANGED Viewed

@@ -77,7 +77,7 @@
   (define (create-hash keylist)
     (for-each
      (lambda (k)
-       (when (rxmatch #/^[a-zA-Z^>-@`;+]+$/ k)
+       (when (rxmatch #/^[a-zA-Z^>-@`;+:'\-]+$/ k)
          (let1 sliced (sekka-downcase (k.slice 0 2))
            (when (= 2 sliced.size)
              (if (rxmatch #/[A-Z`+]$/ k)

data/lib/sekka/kvs.rb CHANGED Viewed

@@ -117,6 +117,19 @@ class Kvs
     end
   end
+  def forward_match_keys( prefix )
+    case @dbtype
+    when :tokyocabinet
+      @db.fwmkeys( prefix ).each { |k|
+        k.force_encoding("UTF-8")
+      }
+    when :memcache
+      raise RuntimeError, "Kvs#forward_match_keys method was not implemented for memcache."
+    else
+      raise RuntimeError
+    end
+  end
   def close()
     case @dbtype
     when :tokyocabinet

data/lib/sekka/roman-lib.nnd CHANGED Viewed

@@ -41,24 +41,24 @@
 (define sekka-kana->roman-alist-short
   '(
     ;; normal roman                                ---AZIK---
-    ("ぁ"                                            "la")
+    ("ぁ"                                            "la" "xxa")
     ("あ"        "a")
-    ("ぃ"                                            "li")
+    ("ぃ"                                            "li" "xxi")
     ("い"        "i")
-    ("ぅ"                                            "lu")
-    ("う"        "u")
+    ("ぅ"                                            "lu" "xxu")
+    ("う"        "u"                                 "whu")
     ("う゛"      "vu")
     ("う゛ぁ"    "va")
     ("う゛ぃ"    "vi")
     ("う゛ぇ"    "ve")
     ("う゛ぉ"    "vo")
-    ("ぇ"                                            "le")
+    ("ぇ"                                            "le" "xxe")
     ("え"        "e")
-    ("ぉ"                                            "lo")
+    ("ぉ"                                            "lo" "xxo")
     ("お"        "o")
     ("か"        "ka")
     ("が"        "ga")
-    ("き"        "ki")
+    ("き"        "ki"                                "kf")
     ("きゃ"      "kya"                               "kga")
     ("きゅ"      "kyu"                               "kgu")
     ("きぇ"      "kye"                               "kge")
@@ -75,32 +75,32 @@
     ("こ"        "ko")
     ("ご"        "go")
     ("さ"        "sa")
-    ("ざ"        "za"                                "zc")    ;; AZIKザ行の特別措置
-    ("し"        "shi"                               "si")
-    ("しゃ"      "sha" "sya"                         "xa")
+    ("ざ"        "za"                                "zc") ;; AZIKザ行の特別措置
+    ("し"        "shi"                               "si" "xi")
+    ("しゃ"      "sha" "sya"                         "xa" "xc")
     ;; hu の例外処理: shu は sfu になってはいけない
     ("しゅ"      "shu" "syu"                         "xu")
     ("しぇ"      "she" "sye"                         "xe")
     ("しょ"      "sho" "syo"                         "xo")
     ("じ"        "ji" "zi")
     ("じゃ"      "ja" "jya"                          "zya")
-    ("じゅ"      "ju" "jyu"                          "zyu")
+    ("じゅ"      "ju" "jyu"                          "zyu" "jf")
     ("じぇ"      "je" "jye"                          "zye")
     ("じょ"      "jo" "jyo"                          "zyo")
     ("す"        "su")
     ("ず"        "zu")
     ("せ"        "se")
-    ("ぜ"        "ze")
+    ("ぜ"        "ze"                                "zf")
     ("そ"        "so")
     ("ぞ"        "zo")
     ("た"        "ta")
     ("だ"        "da")
     ;; normal roman                                ---AZIK---
-    ("ち"        "chi" "tyi"                         "ti")
+    ("ち"        "chi" "tyi"                         "ti" "ci")
     ("ちゃ"      "cha" "tya"                         "ca")
     ;; hu の例外処理: chu は cfu になってはいけない
     ("ちゅ"      "chu" "tyu"                         "cu")
-    ("ちぇ"      "che" "tye"                         "ce")
+    ("ちぇ"      "che" "tye"                         "ce" "cf")
     ("ちょ"      "cho" "tyo"                         "co")
     ("ぢ"        "di")
     ("ぢゃ"      "dya")
@@ -112,7 +112,7 @@
     ("つ"        "tsu"                                "tu")
     ("づ"        "du")
     ("て"        "te")
-    ("で"        "de")
+    ("で"        "de"                                 "df")
     ("と"        "to")
     ("ど"        "do")
     ("な"        "na")
@@ -121,7 +121,7 @@
     ("にゅ"      "nyu")
     ("にぇ"      "nye")
     ("にょ"      "nyo")
-    ("ぬ"        "nu")
+    ("ぬ"        "nu"                                 "nf")
     ("ね"        "ne")
     ("の"        "no")
     ("は"        "ha")
@@ -142,7 +142,7 @@
     ("ぴゅ"      "pyu"                                "pgu")
     ("ぴぇ"      "pye"                                "pge")
     ("ぴょ"      "pyo"                                "pgo")
-    ("ふ"        "fu" "hu")
+    ("ふ"        "fu" "hu"                            "hf")
     ("ふぁ"      "fa")
     ("ふぃ"      "fi")
     ("ふぇ"      "fe")
@@ -161,14 +161,14 @@
     ("みゅ"      "myu"                                 "mgu")
     ("みぇ"      "mye"                                 "mge")
     ("みょ"      "myo"                                 "mgo")
-    ("む"        "mu")
+    ("む"        "mu"                                  "mf")
     ("め"        "me")
     ("も"        "mo")
     ;; normal roman                                ---AZIK---
     ("ゃ"                                             "lya")
     ("や"        "ya")
     ("ゅ"                                             "lyu")
-    ("ゆ"        "yu")
+    ("ゆ"        "yu"                                 "yf")
     ("ょ"                                             "lyo")
     ("よ"        "yo")
     ("ら"        "ra")
@@ -181,15 +181,15 @@
     ("ろ"        "ro")
     ("ゎ"                                             "lwa")
     ("わ"        "wa")
-    ("うぃ"      "wi")
-    ("うぇ"      "we")
+    ("うぃ"      "wi"                                 "whi")
+    ("うぇ"      "we"                                 "whe")
     ("を"        "wo")
-    ("うぉ"      "wso")
-    ;; normal roman                                ---AZIK---
+    ("うぉ"      "wso"                                "who")
+    ;; normal roman                                ---AZIK---                                                   ---AZIK(US)---
     ("ん"        "nn" "n"                             "q")
     ("でぃ"      "dyi" "dhi"                          "dci")
     ("でぅ"      "dyu" "dhu"                          "dcu")
-    ("ー"        "-" "^"                              ":")
+    ("ー"        "-" "^"                              ":"                                                          "'")
     ;; Ruby romkanからの不足分追加
     ("てぃ"     "thi"                                 "tgi")
@@ -197,6 +197,8 @@
     ;; Sekkaの辞書に入っている特別なキーワード ">あん" など
     (">"        ">")
+    ("ゐ"      "yi")
     ;; 撥音から始まるキーワード
     ("っう゛"    "vvu"                                "@vu"                      ";vu" )
     ("っう゛ぁ"  "vva"                                "@va"                      ";va" )
@@ -311,55 +313,56 @@
     ("にぇ"      "nye"                                "nge")
     ("にょ"      "nyo"                                "ngo")
+    ;; 非AZIKで "cc" で 撥音「っ」から始まるかなを表現を消す可能性があるので "cc" はAZIK側だけに定義する
+    ("ちゃ"      "cha" "tya"                          "ca" "cc")
     ;; ---以下AZIK---
     ;; ------ AZIK 撥音拡張
     ("かん"       "kz" "kn")
-    ("きん"       "kk")
+    ("きん"       "kk" "kv")
     ("くん"       "kj")
     ("けん"       "kd")
     ("こん"       "kl")
     ("さん"       "sz" "sn")
-    ("しん"       "sk")
+    ("しん"       "sk" "xk")
     ("すん"       "sj")
     ("せん"       "sd")
     ("そん"       "sl")
     ("たん"       "tz" "tn")
-    ("ちん"       "tk")
+    ("ちん"       "tk" "ck")
     ("つん"       "tj")
     ("てん"       "td")
     ("とん"       "tl")
     ("なん"       "nz")
     ;;("さん"     "nn")  "ん"になる
     ("にん"       "nk")
-    ("ぬん"       "nj")
+    ("ぬん"       "nj" "nv")
     ("ねん"       "nd")
     ("のん"       "nl")
     ("はん"       "hz" "hn")
     ("ひん"       "hk")
-    ("ふん"       "hj")
+    ("ふん"       "hj" "fj")
     ("へん"       "hd")
     ("ほん"       "hl")
     ("ふぁん"     "fz" "fn")
     ("ふぃん"     "fk")
-    ("ふん"       "fj")
     ("ふぇん"     "fd")
     ("ふぉん"     "fl")
     ("まん"       "mz")
     ;;("まん"     "mn") "もの"になる
     ("みん"       "mk")
-    ("むん"       "mj")
+    ("むん"       "mj" "mv")
     ("めん"       "md")
     ("もん"       "ml")
     ("やん"       "yz" "yn")
     ("ゆん"       "yj")
     ("よん"       "yl")
-    ("らん"       "rz")
-    ("らん"       "rn")
+    ("らん"       "rz" "rn")
     ("りん"       "rk")
     ("るん"       "rj")
     ("れん"       "rd")
     ("ろん"       "rl" "wz")
-    ("わん"       "wn")
+    ("わん"       "wn" "wz")
     ("うぃん"     "wk")
     ("うぇん"     "wd")
     ("うぉん"     "wl")
@@ -369,9 +372,9 @@
     ("くう"      "kh")
     ("けい"      "kw")
     ("こう"      "kp")
-    ("さい"      "sq")
+    ("さい"      "sq" "sf" "sv")
     ("すう"      "sh")
-    ("せい"      "sw")
+    ("せい"      "sw" "ss")
     ("そう"      "sp")
     ("たい"      "tq")
     ("つう"      "th")
@@ -382,11 +385,10 @@
     ("ねい"      "nw")
     ("のう"      "np")
     ("はい"      "hq")
-    ("ふう"      "hh")
+    ("ふう"      "hh" "hh" "fh")
     ("へい"      "hw")
     ("ほう"      "hp")
-    ("ふぁい"    "fq")
-    ("ふう"      "fh")
+    ("ふぁい"    "fq" "fs")
     ("ふぇい"    "fw")
     ("ふぉー"    "fp")
     ("まい"      "mq")
@@ -394,47 +396,47 @@
     ("めい"      "mw")
     ("もう"      "mp")
     ("やい"      "yq")
-    ("ゆう"      "yh")
+    ("ゆう"      "yh" "yv")
     ("よう"      "yp")
     ("らい"      "rq")
     ("るう"      "rh")
     ("れい"      "rw")
     ("ろう"      "rp")
-    ("わい"      "wq")
+    ("わい"      "wq" "wf")
     ("うぉー"    "wp")
     ;; ------ AZIK 濁音、半濁音
     ("がん"       "gz" "gn")
-    ("ぎん"       "gg")
+    ("ぎん"       "gg" "gk")
     ("ぐん"       "gj")
     ("げん"       "gd")
     ("ごん"       "gl")
     ("ざん"       "zz" "zn")
-    ("じん"       "zz")
+    ("じん"       "jk" "zk")
     ("ずん"       "zj")
     ("ぜん"       "zd")
     ("ぞん"       "zl")
     ("だん"       "dz" "dn")
-    ("ぢん"       "dd")
+    ("ぢん"       "dd" "dk")
     ("づん"       "dj")
-    ("でん"       "dd")
+    ("でん"       "dd" "dv")
     ("どん"       "dl")
     ("ばん"       "bz" "bn")
-    ("びん"       "bb")
+    ("びん"       "bb" "bk")
     ("ぶん"       "bj")
     ("べん"       "bd")
     ("ぼん"       "bl")
     ("ぱん"       "pz" "pn")
-    ("ぴん"       "pp")
+    ("ぴん"       "pp" "pk")
     ("ぷん"       "pj")
     ("ぺん"       "pd")
-    ("ぽん"       "pl")
+    ("ぽん"       "pl" "pf")
     ;; ------ AZIK 濁音、半濁音二重母音拡張
-    ("がい"      "kq")
-    ("ぐう"      "kh")
-    ("げい"      "kw")
-    ("ごう"      "kp")
+    ("がい"      "gq")
+    ("ぐう"      "gh")
+    ("げい"      "gw")
+    ("ごう"      "gp")
     ("ざい"      "zq" "zv")
     ("ずう"      "zh")
     ("ぜい"      "zw" "zx")
@@ -445,12 +447,12 @@
     ("どう"      "dp")
     ("ばい"      "bq")
     ("ぶう"      "bh")
-    ("べい"      "bw")
+    ("べい"      "bw" "bx")
     ("ぼう"      "bp")
     ("ぱい"      "pq")
     ("ぷう"      "ph")
     ("ぺい"      "pw")
-    ("ぽう"      "pp")
+    ("ぽう"      "pp" "pv")
     ;; ------ AZIK 特殊拡張
     ("こと"       "kt")
@@ -483,6 +485,135 @@
     ("よる"       "yr")
     ("たび"       "tb")
     ("ごと"       "gt")
+    ;; skk-azik.elからの不足分
+    ("ばら"       "br")
+    ("びぇん"     "byd")
+    ("びゅう"     "byh")
+    ("びゅん"     "byj")
+    ("びょん"     "byl")
+    ("びゃん"     "byn" "byz")
+    ("びょう"     "byp")
+    ("びゃい"     "byq")
+    ("びぇい"     "byw")
+    ("ちぇん"     "cd" "tyd")
+    ("ちゅう"     "ch" "tyh")
+    ("ちゅん"     "cj" "tyj")
+    ("ちょん"     "cl" "tyl")
+    ("ちゃん"     "cn" "cz" "tyn" "tyz")
+    ("ちょう"     "cp" "typ")
+    ("ちゃい"     "cq" "cv" "tyq")
+    ("ちぇい"     "cw" "cx" "tyw")
+    ("でゅー"     "dch")
+    ("でぃん"     "dck")
+    ("どぅー"     "dcp")
+    ("でゅ"       "dcu")
+    ("だが"       "dg")
+    ("である"     "dr")
+    ("ふむ"       "fm")
+    ("ふる"       "fr")
+    ("ぎぇん"     "gyd")
+    ("ぎゅう"     "gyh")
+    ("ぎゅん"     "gyj")
+    ("ぎょん"     "gyl")
+    ("ぎゃん"     "gyn" "gyz")
+    ("ぎょう"     "gyp")
+    ("ぎゃい"     "gyq")
+    ("ぎぇい"     "gyw")
+    ("ひぇん"     "hgd" "hyd")
+    ("ひゅう"     "hgh" "hyh")
+    ("ひゅん"     "hgj")
+    ("ひょん"     "hgl" "hyl")
+    ("ひゃん"     "hgn" "hgz" "hyz")
+    ("ひょう"     "hgp" "hyp")
+    ("ひゃい"     "hgq" "hyq")
+    ("ひぇい"     "hgw" "hyw")
+    ("じぇん"     "jd" "zyd")
+    ("じゅう"     "jh" "jv" "zyh")
+    ("じゅん"     "jj" "zyj")
+    ("じょん"     "jl" "zyl")
+    ("じゃん"     "jn" "jz" "zyn" "zyz")
+    ("じょう"     "jp" "zyp")
+    ("じゃい"     "jq" "zyq")
+    ("じぇい"     "jw" "zyw")
+    ("きぇん"     "kgd" "kyd")
+    ("きゅう"     "kgh" "kyh")
+    ("きょん"     "kgl" "kyl")
+    ("きゃん"     "kgn" "kgz" "kyn" "kyz")
+    ("きょう"     "kgp" "kyp")
+    ("きゃい"     "kgq" "kyq")
+    ("きぇい"     "kgw" "kyw")
+    ("きゅん"     "kyj")
+    ("みぇん"     "mgd" "myd")
+    ("みゅう"     "mgh" "myh")
+    ("みゅん"     "mgj" "myj")
+    ("みょん"     "mgl" "myl")
+    ("みゃん"     "mgn" "mgz" "myn" "myz")
+    ("みょう"     "mgp" "myp")
+    ("みゃい"     "mgq" "myq")
+    ("みぇい"     "mgw" "myw")
+    ("まる"       "mr")
+    ("にぇん"     "ngd" "nyd")
+    ("にゅう"     "ngh" "nyh")
+    ("にゅん"     "ngj" "nyj")
+    ("にょん"     "ngl" "nyl")
+    ("にゃん"     "ngn" "ngz" "nyn" "nyz")
+    ("にょう"     "ngp" "nyp")
+    ("にゃい"     "ngq" "nyq")
+    ("にぇい"     "ngw" "nyw")
+    ("ぴぇん"     "pgd" "pyd")
+    ("ぴゅう"     "pgh" "pyh")
+    ("ぴゅん"     "pgj" "pyj")
+    ("ぴょん"     "pgl" "pyl")
+    ("ぴゃん"     "pgn" "pgz" "pyn" "pyz")
+    ("ぴょう"     "pgp" "pyp")
+    ("ぴゃい"     "pgq" "pyq")
+    ("ぴぇい"     "pgw" "pyw")
+    ("りぇん"     "ryd")
+    ("りゅう"     "ryh")
+    ("りゅん"     "ryj")
+    ("りょく"     "ryk")
+    ("りょん"     "ryl")
+    ("りゃん"     "ryn" "ryz")
+    ("りょう"     "ryp")
+    ("りゃい"     "ryq")
+    ("りぇい"     "ryw")
+    ("しも"       "sm")
+    ("しぇん"     "syd" "xd")
+    ("しゅう"     "syh" "xh")
+    ("しゅん"     "syj" "xj")
+    ("しょん"     "syl" "xl")
+    ("しょう"     "syp" "xp")
+    ("しゃい"     "syq" "xq" "xv")
+    ("しぇい"     "syw" "xf" "xw")
+    ("しゃん"     "syz" "xn" "xz")
+    ("てゅー"     "tgh")
+    ("てぃん"     "tgk")
+    ("とぅー"     "tgp")
+    ("てゅ"       "tgu")
+    ("つぁ"       "tsa")
+    ("つぇ"       "tse")
+    ("つぃ"       "tsi")
+    ("つぉ"       "tso")
+    ("う゛ぇん"   "vd")
+    ("う゛ぃん"   "vk")
+    ("う゛ぉん"   "vl")
+    ("う゛ぁん"   "vn" "vz")
+    ("う゛ぉー"   "vp")
+    ("う゛ぁい"   "vq")
+    ("う゛ぇい"   "vw")
+    ("う゛ゃ"     "vya")
+    ("う゛ぇ"     "vye")
+    ("う゛ょ"     "vyo")
+    ("う゛ゅ"     "vyu")
+    ("うぁ"       "wha")
+    ("しゅつ"     "xt")
+    ;; 辞書でカバーすれば良いのでRomanテーブルには入れない
+    ;;("←"         "xxh")
+    ;;("↓"         "xxj")
+    ;;("↑"         "xxk")
+    ;;("→"         "xxl")
     ))

data/lib/sekka/sekkaversion.rb CHANGED Viewed

@@ -1,6 +1,6 @@
 class SekkaVersion
   include Singleton
   def self.version
-    "0.8.0"
+    "0.8.1"
   end
 end

data/lib/sekkaserver.rb CHANGED Viewed

@@ -75,9 +75,10 @@ module SekkaServer
                   dictline = arr[1] + " " + arr[2]
                   registered = @core.registerUserJisyo(userid, @kvs, dictline)
                   if registered
-                    puts "Info: added to dict           userid[" + userid + "] dictline[" + dictline + "]"
+                    puts "Info: added to dict                      userid[" + userid + "] dictline[" + dictline + "]"
+                    @core.flushCacheServer( @cachesv )
                   else
-                    puts "Info: ignored (already added) userid[" + userid + "] dictline[" + dictline + "]"
+                    puts "Info: ignored (already added or comment) userid[" + userid + "] dictline[" + dictline + "]"
                   end
                 }
               end
@@ -110,6 +111,11 @@ module SekkaServer
                  dict    = URI.decode( req.params['dict'].force_encoding( "UTF-8" ) ).split( "\n" )
                  dict.each { |x| @queue.push( userid + " " + x ) }
                  sprintf( "register request successful (%s) words", dict.size )
+               when "/flush"
+                 @core.flushCacheServer( @cachesv )
+                 n = @core.flushUserJisyo( userid, @kvs )
+                 printf( "info : flush [%s] user's dict %d entries.", userid, n )
+                 sprintf( "flush request successful. flush (%d) entries.", n )
                else
                  sprintf( "unknown path name. [%s]", req.path )
                end

data/test/approximate-bench.nnd CHANGED Viewed

@@ -36,7 +36,7 @@
 (require "sekka/kvs")
 (use nendo.test)
 (use sekka.henkan)
-(load "./test/common.nnd")
+(load "test/common.nnd")
 (define dbtype (string->symbol (first *argv*)))

data/test/azik-verification.nnd ADDED Viewed

@@ -0,0 +1,86 @@
+;;-*- mode: nendo; syntax: scheme -*-
+;;;
+;;; azik-verification.nnd - ローマ字ライブラリ部をDDSKKのskk-azik.elとベリファイをとる
+;;;
+;;;   Copyright (c) 2010  Kiyoka Nishiyama  <kiyoka@sumibi.org>
+;;;
+;;;   Redistribution and use in source and binary forms, with or without
+;;;   modification, are permitted provided that the following conditions
+;;;   are met:
+;;;
+;;;   1. Redistributions of source code must retain the above copyright
+;;;      notice, this list of conditions and the following disclaimer.
+;;;
+;;;   2. Redistributions in binary form must reproduce the above copyright
+;;;      notice, this list of conditions and the following disclaimer in the
+;;;      documentation and/or other materials provided with the distribution.
+;;;
+;;;   3. Neither the name of the authors nor the names of its contributors
+;;;      may be used to endorse or promote products derived from this
+;;;      software without specific prior written permission.
+;;;
+;;;   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+;;;   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+;;;   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+;;;   A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+;;;   OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+;;;   SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+;;;   TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+;;;   PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+;;;   LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+;;;   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;;;   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;;;
+;;;  $Id:
+;;;
+(use nendo.test)
+(use sekka.roman-lib)
+(test-start "roman-lib")
+(load "test/skk-azik-table")
+;;===================================================================
+(define skk-azik-roman->kana-alist
+  (map
+   (lambda (entry)
+     (let* ((roman  (first entry))
+            (target (third entry))
+            (target (if (pair? target)
+                        (cdr target)
+                        target)))
+       (cons roman target)))
+   skk-azik-additional-rom-kana-rule-list))
+(define skk-azik-kana->roman-alist
+  (map
+   (lambda (x)
+     (cons (cdr x) (car x)))
+   skk-azik-roman->kana-alist))
+;;-------------------------------------------------------------------
+(test-section "verify roman => hiragana")
+(for-each
+ (lambda (entry)
+   (let ((kana  (car entry))
+         (roman (cdr entry)))
+     (test* (sprintf "romna => hiragana (\"%s\" \"%s\")" kana roman)
+            #t
+            (if (memv roman (hash-table-get sekka-kana->roman-hash-long kana '()))
+                #t #f))))
+ skk-azik-kana->roman-alist)
+;;-------------------------------------------------------------------
+(test-section "verify roman => hiragana")
+(for-each
+ (lambda (entry)
+   (let1 roman (first entry)
+     (test* (sprintf "romna => hiragana [%s]" roman)
+            (assq-ref roman skk-azik-roman->kana-alist)
+            (car (gen-roman->hiragana roman :azik)))))
+ skk-azik-roman->kana-alist)
+;;===================================================================
+(test-end)