(module lshift/bdb/bdb-util
    (database->alist
     string->database-entry
     database-entry->string)

  (import s2j)
  (import lshift/bdb/bdb)
  (import lshift/bdb/bdb-ec)
  (import srfi-42)

  (define-java-classes
    <java.lang.string>
    <com.sleepycat.je.database-entry>)

  (define-generic-java-methods
    get-bytes
    get-data)

  (define (database->alist db)
    (list-ec (:database k v db) (list k v)))

  (define *utf-8* (->jstring "UTF-8"))

  (define (string->database-entry str)
    (java-new <com.sleepycat.je.database-entry>
	      (get-bytes (->jstring str) *utf-8*)))

  (define (database-entry->string entry)
    (->string (java-new <java.lang.string>
			(get-data entry)
			*utf-8*)))

  )