(define mydb (dbm-open "ida")) -->mydb (display mydb) -->#<dbm> (newline) --> (dbm-store mydb "anton" "1") -->#t (dbm-store mydb "berta" "2") -->#t (display (dbm-firstkey mydb)) -->anton (newline) --> (display (dbm-nextkey mydb)) -->berta (newline) --> (display (dbm-fetch mydb "anton")) -->1 (newline) --> (display (dbm-fetch mydb "berta")) -->2 (newline) --> (display (dbm-count mydb)) -->2 (newline) --> (dbm-close mydb) -->#t
Georg P. Loczewski 2003-07-18 |