code: purgatorio

ref: 6042bb8adffe111049edfcb8b2eb1ad84814ed69
dir: /module/format.m/

Format: module {
	PATH: con "/dis/lib/format.dis";
	Fmtspec: adt {
		name: string;
		fields: cyclic array of Fmtspec;
	};
	Fmt: adt {
		kind: int;
		fields: cyclic array of Fmt;
	};
	Fmtval: adt {
		val: ref Sexprs->Sexp;
		recs: cyclic array of array of Fmtval;

		text: fn(v: self Fmtval): string;
	};
	Fmtfile: adt {
		spec: array of Fmtspec;
		descr: array of byte;
	
		new: fn(spec: array of Fmtspec): Fmtfile;
		open: fn(f: self Fmtfile, name: string): ref Bufio->Iobuf;
		read: fn(f: self Fmtfile, iob: ref Bufio->Iobuf): (array of Fmtval, string);
	};
	init: fn();
	spec2se: fn(spec: array of Fmtspec): list of ref Sexprs->Sexp;
	spec2fmt: fn(spec: array of Fmtspec): array of Fmt;
	se2fmt: fn(spec: array of Fmtspec, se: ref Sexprs->Sexp): (array of Fmt, string);
	rec2val: fn(spec: array of Fmtspec, rec: ref Sexprs->Sexp): (array of Fmtval, string);
};