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[T](fd: ref Sys->FD, metrics: Metrics, ql: int, t: T, setline: chan of list of (int, Text))
		for{
		T =>
			textwidth: fn(t: self T, text: Text): int;
		};
};

Man: module {
	PATH: con "/dis/lib/man.dis";

	loadsections: fn(sections: list of string): string;
	getfiles: fn(sections: list of string , keys: list of string): list of (int, string, string);
};