code: purgatorio

ref: a411870ee4640241e3c494367d922847da84f972
dir: /appl/acme/acme/bin/src/ind.b/

implement APlus;

include "sys.m"; sys: Sys;
include "draw.m";
include "bufio.m"; bufio: Bufio;
	Iobuf: import bufio;

APlus: module {
	init: fn(nil: ref Draw->Context, args: list of string);
};

pname: string;

init(nil: ref Draw->Context, args: list of string)
{
	sys = load Sys Sys->PATH;
	bufio = load Bufio Bufio->PATH;

	indents := "\t";

	if(args != nil) {
		pname = hd args;
		args = tl args;
	} else {
		pname = "a+";
	}

	if(args != nil)
		indents = hd args;

	indent(indents);
}

indent(s: string)
{
	stdin := bufio->fopen(sys->fildes(0), bufio->OREAD);
	if(stdin == nil) {
		sys->fprint(sys->fildes(2), "%s: Couldn't create a bufio:  %r\n", pname);
		raise "fail:errors";
	}

	while((line := stdin.gets('\n')) != nil) {
		if(line == "\n") {
			sys->print("\n");
		} else {
			sys->print("%s%s", s, line);
		}
	}
}