forsyth20121205-174063a80cc13 years agoHistory
41 lines · 837 B · Objective-C
RawDownload
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);};