\ implementing a Forthmacs RiscOS gdbm module interface
\ hs 07.09.97
only forth also definitions
hex vocabulary gdbm   gdbm also definitions

: install-gdbm	( -- )
	p" RMEnsure gdbm 0.00  RMLoad Forthmacs:devices.gdbm.gdbm" "cli
	abort" Can't load the gdbm module" ;	

4cc40 syscall: open	{ "filename -- handle }
4cc41 syscall: store	{ val-len *value  key-len *key handle -- }
4cc42 syscall: fetch	{ val-len *value  key-len *key handle -- actual-len-in-*value/0 }
4cc43 syscall: exists	{ key-len *key handle -- exists? }
4cc44 syscall: firstkey	{ key-len *key handle -- actual-len-in-*value/-1 }
4cc45 syscall: nextkey	{ reply-len *reply key-len *key handle -- actual-len-in-*value/-1 }
4cc46 syscall: close	{ handle -- }
4cc47 syscall: delete	{ key-len *key handle -- }
4cc48 syscall: clear	{ handle -- }
4cc49 syscall: openin	{ "filename -- handle }
decimal only forth also definitions
