implement SimpleClient;

include "sys.m";
include "draw.m";
include "bufio.m";

sys : Sys;
bufio : Bufio;

Iobuf : import bufio;
Connection : import sys;

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

init (ctxt : ref Draw->Context, args : list of string)
{
	buf := array [Sys->ATOMICIO] of byte; 
	sys = load Sys Sys->PATH;
	bufio = load Bufio Bufio->PATH;

	buffer := bufio->open("/appl/MR/config", Bufio->OREAD);
	hostAddr := buffer.gets('\n');
	hostAddr = hostAddr[: len hostAddr - 1];

	fd := sys->open("/appl/MR/jobconfig", Sys->OREAD);
	buf2 := array [Sys->ATOMICIO] of byte;
	confLen := sys->read(fd, buf2, len buf);
	for (i := 0; i < len buf2; i++)
		if (buf2[i] == byte '\n')
			buf2[i] = byte '@';

	(n, conn) := sys->dial("tcp!" + hostAddr + "!66666", nil);
	sys->fprint(conn.dfd, "submit@jobConfig@%s", string buf2[:confLen]);
	length := sys->read(conn.dfd, buf, len buf);
	sys->print("%s", string buf[:length]);
}