1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
open Db3
open Printf
(* let _ = popt (Some 8)
let _ = popt None *)
(* let _ = Dbenv.sopen dbe "DBTEST"
[Dbenv.DB_CREATE ; Dbenv.DB_INIT_MPOOL] 0o777 *)
let db = Db.sopen "testdb" Db.BTREE [Db.CREATE] 0o777
let _ =
(try
let rval = Db.get db "foobar" [] in
printf "Result unexpectedly found: %s\n" rval
with
Not_found -> printf "Not_found\n");
Db.put db ~key:"foo" ~data:"bar" [];
let data = Db.get db "foo" [] in
printf "key: %s, data: %s\n" "foo" data;
Db.del db "foo";
(try
let rval = Db.get db "foobar" [] in
printf "Result unexpectedly found: %s\n" rval
with
Not_found -> printf "Not_found\n")
|
