sekka-jisyo in sekka-1.7.1

- old
+ new

@@ -83,18 +83,21 @@
   (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      SEKKA-JISYO.X.mapdb    ... load     SEKKA-JISYO to MapDB")
   (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     SEKKA-JISYO.X.mapdb                       ... dump     MapDB                    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  SEKKA-JISYO.X.mapdb    ... restore  MapDB            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)
@@ -103,9 +106,11 @@
     (values 'tokyocabinet filename))
    ((rxmatch #/[.]db$/ filename)
     (values 'gdbm filename))
    ((rxmatch #/[.]ldb$/ filename)
     (values 'leveldb filename))
+   ((rxmatch #/[.]mapdb$/ filename)
+    (values 'mapdb filename))
    ((rxmatch #/^redis:(.*)$/ filename)
     => (lambda (m)
          (let1 str (rxmatch-substring m 1)
            (let1 hostname (if (< 0 (str.size))
                               str