bin/sekka-jisyo in sekka-1.6.2 vs bin/sekka-jisyo in sekka-1.6.3

@@ -78,30 +78,34 @@
   "r:UTF-8")
 
 
 (define (display-help)
   (print "Usage : ")
-  (print "  sekka-jisyo convertA SKK-JISYO.X      > SEKKA-JISYO.X       ... output   SEKKA-JISYO to STDOUT(AZIK data included)")
-  (print "  sekka-jisyo convertN SKK-JISYO.X      > SEKKA-JISYO.X       ... output   SEKKA-JISYO to STDOUT(AZIK data excluded)")
-  (print "  sekka-jisyo load     SEKKA-JISYO.X      SEKKA-JISYO.X.tch   ... load     SEKKA-JISYO to Tokyo Cabinet DB")
-  (print "  sekka-jisyo load     SEKKA-JISYO.X      SEKKA-JISYO.X.db    ... load     SEKKA-JISYO to gdbm          DB")
-  (print "  sekka-jisyo load     SEKKA-JISYO.X      redis:[hostname]    ... load     SEKKA-JISYO to redis DB on [hostname]")
-  (print "  sekka-jisyo load     SEKKA-JISYO.X      redis:              ... load     SEKKA-JISYO to redis DB on localhost")
-  (print "  sekka-jisyo dump     SEKKA-JISYO.X.tch                      ... dump     Tokyo Cabinet DB         to   DUMPDATA(STDOUT)")
-  (print "  sekka-jisyo dump     SEKKA-JISYO.X.db                       ... dump     gdbm                     to   DUMPDATA(STDOUT)")
-  (print "  sekka-jisyo dump     redis:[hostname]                       ... dump     redis DB on [hostname]   to   DUMPDATA(STDOUT)")
-  (print "  sekka-jisyo dump     redis:                                 ... dump     redis DB on localhost    to   DUMPDATE(STDOUT)")
-  (print "  sekka-jisyo restore  SEKKA-JISYO.X.tsv  SEKKA-JISYO.X.tch   ... restore  Tokyo Cabinet DB from tsv-file")
-  (print "  sekka-jisyo restore  SEKKA-JISYO.X.tsv  redis:[hostname]    ... restore  redis DB on [hostname]   from tsv-file")
-  (print "  sekka-jisyo restore  SEKKA-JISYO.X.tsv  redis:              ... restore  redis DB on localhost    from tsv-file"))
+  (print "  sekka-jisyo convertA SKK-JISYO.X      > SEKKA-JISYO.X          ... output   SEKKA-JISYO to STDOUT(AZIK data included)")
+  (print "  sekka-jisyo convertN SKK-JISYO.X      > SEKKA-JISYO.X          ... output   SEKKA-JISYO to STDOUT(AZIK data excluded)")
+  (print "  sekka-jisyo load     SEKKA-JISYO.X      SEKKA-JISYO.X.tch      ... load     SEKKA-JISYO to Tokyo Cabinet DB")
+  (print "  sekka-jisyo load     SEKKA-JISYO.X      SEKKA-JISYO.X.db       ... load     SEKKA-JISYO to gdbm          DB")
+  (print "  sekka-jisyo load     SEKKA-JISYO.X      SEKKA-JISYO.X.ldb      ... load     SEKKA-JISYO to LevelDB")
+  (print "  sekka-jisyo load     SEKKA-JISYO.X      redis:[hostname]       ... load     SEKKA-JISYO to redis DB on [hostname]")
+  (print "  sekka-jisyo load     SEKKA-JISYO.X      redis:                 ... load     SEKKA-JISYO to redis DB on localhost")
+  (print "  sekka-jisyo dump     SEKKA-JISYO.X.tch                         ... dump     Tokyo Cabinet DB         to   DUMPDATA(STDOUT)")
+  (print "  sekka-jisyo dump     SEKKA-JISYO.X.db                          ... dump     gdbm                     to   DUMPDATA(STDOUT)")
+  (print "  sekka-jisyo dump     SEKKA-JISYO.X.ldb                         ... dump     LevelDB                  to   DUMPDATA(STDOUT)")
+  (print "  sekka-jisyo dump     redis:[hostname]                          ... dump     redis DB on [hostname]   to   DUMPDATA(STDOUT)")
+  (print "  sekka-jisyo dump     redis:                                    ... dump     redis DB on localhost    to   DUMPDATE(STDOUT)")
+  (print "  sekka-jisyo restore  SEKKA-JISYO.X.tsv  SEKKA-JISYO.X.tch      ... restore  Tokyo Cabinet DB from tsv-file")
+  (print "  sekka-jisyo restore  SEKKA-JISYO.X.tsv  redis:[hostname]       ... restore  redis DB on [hostname]   from tsv-file")
+  (print "  sekka-jisyo restore  SEKKA-JISYO.X.tsv  redis:                 ... restore  redis DB on localhost    from tsv-file"))
 
 
 (define (analyze-kvs-type filename)
   (cond
    ((rxmatch #/[.]tch/ filename)
     (values 'tokyocabinet filename))
    ((rxmatch #/[.]db$/ filename)
     (values 'gdbm filename))
+   ((rxmatch #/[.]ldb$/ filename)
+    (values 'leveldb filename))
    ((rxmatch #/^redis:(.*)$/ filename)
     => (lambda (m)
          (let1 str (rxmatch-substring m 1)
            (let1 hostname (if (< 0 (str.size))
                               str