From 37da2899f40661e3e9631e497da8dc59b971cbd0 Mon Sep 17 00:00:00 2001 From: "Charles.Forsyth" Date: Fri, 22 Dec 2006 17:07:39 +0000 Subject: 20060303a --- appl/cmd/dbm/list.b | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100755 appl/cmd/dbm/list.b (limited to 'appl/cmd/dbm/list.b') diff --git a/appl/cmd/dbm/list.b b/appl/cmd/dbm/list.b new file mode 100755 index 00000000..6c0e71f5 --- /dev/null +++ b/appl/cmd/dbm/list.b @@ -0,0 +1,34 @@ +implement Dbmlist; + +include "sys.m"; + sys: Sys; + +include "draw.m"; + +include "dbm.m"; + dbm: Dbm; + Datum, Dbf: import dbm; + +Dbmlist: module +{ + init: fn(nil: ref Draw->Context, args: list of string); +}; + +init(nil: ref Draw->Context, args: list of string) +{ + sys = load Sys Sys->PATH; + dbm = load Dbm Dbm->PATH; + + dbm->init(); + + args = tl args; + db := Dbf.open(hd args, Sys->OREAD); + if(db == nil){ + sys->fprint(sys->fildes(2), "dbm/list: %s: %r\n", hd args); + raise "fail:open"; + } + for(key := db.firstkey(); key != nil; key = db.nextkey(key)){ + d := db.fetch(key); + sys->print("%s %s\n", string key, string d); + } +} -- cgit v1.2.3