implement Info; include "sys.m";	sys: Sys;include "draw.m";include "bufio.m";	bufio: Bufio;	Iobuf: import bufio;include "daytime.m";	daytime: Daytime;include "arg.m";	arg: Arg;include "wrap.m";	wrap : Wrap; Info: module{	init:	fn(nil: ref Draw->Context, nil: list of string);}; root : string; TYPLEN : con 4;typestr := array[TYPLEN] of { "???", "package", "update", "full update" }; fatal(err : string){	sys->fprint(sys->fildes(2), "%s\n", err);	raise "fail:error";} init(nil: ref Draw->Context, args: list of string){	sys = load Sys Sys->PATH;	bufio = load Bufio Bufio->PATH;	daytime = load Daytime Daytime->PATH;	arg = load Arg Arg->PATH;	wrap = load Wrap Wrap->PATH;	wrap->init(bufio); 	arg->init(args);	while ((c := arg->opt()) != 0) {		case c {			'r' =>				root = arg->arg();				if (root == nil)					fatal("missing root name");			* =>				fatal(sys->sprint("bad argument -%c", c));		}	}	args = arg->argv();	if (args == nil || tl args != nil)		fatal("usage: install/info [-r root] package");	w := wrap->openwraphdr(hd args, root, nil, 0);	if (w == nil)		fatal("no such package found");	tm := daytime->text(daytime->local(w.tfull));	sys->print("%s (complete as of %s)\n", w.name, tm[0:28]);	for (i := w.nu; --i >= 0;) {		typ := w.u[i].typ;		if (typ < 0 || typ >= TYPLEN)			sys->print("%s", typestr[0]);		else			sys->print("%s", typestr[typ]);		sys->print(" %s", wrap->now2string(w.u[i].time, 0));		if (typ & wrap->UPD)			sys->print(" updating %s", wrap->now2string(w.u[i].utime, 0));		if (w.u[i].desc != nil)			sys->print(": %s", w.u[i].desc);		sys->print("\n");	}	wrap->end();}