lib/sekka/henkan.nnd in sekka-0.8.0 vs lib/sekka/henkan.nnd in sekka-0.8.1

@@ -326,20 +326,22 @@
 ;; Export to Ruby world
 (export-to-ruby sekkaHenkan)
 
 
 ;; 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
        (lambda (x)
          (cachesv.delete  #?=x))
        (to-list (fetched.split #/[ ]+/)))
       (cachesv.delete "sekka::(keys)"))
     #f))
+;; Export to Ruby world
+(export-to-ruby flushCacheServer)
 
 
 ;; 確定処理: 最終確定語を変換候補の先頭に持ってくる。
 ;;  key   ... "developer" や "へんかん" など、変換候補レコードのキーとなる文字列
 ;;  tango ... "変換" など、変換候補から最終確定した、変換候補の文字列
@@ -380,16 +382,29 @@
                   (join-henkan-kouho (append no1 other))))
             (if (not (= kouho-str new-kouho-str))
                 (begin
                   (write-user-entry userid kvs key new-kouho-str)
                   (and cachesv
-                       (flush-cachesv cachesv))
+                       (flushCacheServer cachesv))
                   tango)
                 nil))
           nil)
       nil)))
 ;; Export to Ruby world
 (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 '())