gistfile1.hs

import Database.TokyoCabinet.BDB
import qualified Database.TokyoCabinet.BDB.Cursor as C

main = do bdb <- new
          setcmpfunc bdb CMPDECIMAL
          -- setcmpfunc bdb CMPLEXICAL -- lexical order(default)
          -- setcmpfunc bdb CMPINT32
          -- setcmpfunc bdb CMPINT64
          open bdb "foo.tcb" [OWRITER, OCREAT]
          put bdb "1" "200"
          put bdb "02" "300"
          put bdb "003" "300"
          cur <- C.new bdb
          C.first cur
          Just key <- C.key cur
          putStrLn key
          close bdb