bindings/bigloo/test1.scm

   1
   2 (module test1
   3         (import (nmdb "nmdb.scm")) )
   4
   5 (define db (make-nmdb))
   6 (nmdb-add-tipc-server db -1)
   7
   8 (print)
   9 (print "db-set D1 V1\t"         (nmdb-set db "D1" "D1"))
  10 (print "sync-set S2 V2\t"       (nmdb-set-sync db "S2" "V2"))
  11 (print "cache-set C3 C3\t"      (nmdb-cache-set db "C3" "C3"))
  12 (print)
  13 (print "db-get D1\t"            (nmdb-get db "D1"))
  14 (print "db-get S2\t"            (nmdb-get db "S2"))
  15 (print "cache-get C3\t"         (nmdb-cache-get db "C3"))
  16 (print)
  17 (print "db-cas D1\t"            (nmdb-cas db "D1" "D1" "DX"))
  18 (print "cache-cas C3\t"         (nmdb-cache-cas db "C3" "C3" "CX"))
  19 (print)
  20 (print "db-del D1\t"            (nmdb-del db "D1"))
  21 (print "sync-del S2\t"          (nmdb-del-sync db "S2"))
  22 (print "cache-del C3\t"         (nmdb-cache-del db "C3"))
  23
  24 (nmdb-free db)
  25