#!/home/jj/bin/camilax -n

dlload("./jjdb.solaris.so");
a <- dbopen("aaa");

dbput(a,<1,2,3>, <1,2,<2,3,4,<3,4,5,{"aaa","bbb"},[12 -> {'a,'b,'c}]>>>);
dbput(a,"1","2");
dbput(a,1,2);

x <- dbget(a,1);
pp(x);

x <- dbget(a,"1");
pp(x);

x <- dbget(a,<1,2,3>);
pp(x);

pp(if(x == <1,2,<2,3,4,<3,4,5,{"aaa","bbb"},[12 -> {'a,'b,'c}]>>>  /\
     dbdom(a) == {"1",1,<1,2,3>}
     ) then ":-)))" else ":-(");

pp(dbdom(a));

dbclose(a);

quit.