sekka 0.8.0 → 0.8.1

data/lib/sekka/henkan.nnd

@@ -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

@@ -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

@@ -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

@@ -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

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

data/lib/sekkaserver.rb

@@ -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

@@ -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

@@ -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)