Viewman : module {	# metrics	textwidth : fn (text : Parseman->Text) : int;}; Parseman : module {	PATH : con "/dis/lib/parseman.dis"; 	Metrics : adt {		pagew : int;		dpi : int;		em : int;	# size in dots		en : int;	# size in dots		V : int;	# font height in dots		indent : int;		ssindent : int;	}; 	Text : adt {		font : int;		attr : int;		text : string;		heading : int;	# heading level		link : string;	}; 	# Text fonts and attributes	FONT_ROMAN,	FONT_ITALIC,	FONT_BOLD : con iota;	ATTR_SMALL, ATTR_LAST : con 1 << iota; 	init : fn () : string;	parseman : fn (fd : ref Sys->FD, metrics : Metrics, ql : int, viewer : Viewman, setline : chan of list of (int, Text));};