module/gamer.m


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Gamer: module
{
	PATH:	con "/dis/lib/gamer.dis";

	Game: adt {
		rf, wf: ref Sys->FD;
		opponent: string;
		player: int;

		In:	fn(g: self Game) : int;
		Out:	fn(g: self Game, i: int);
		Exit:	fn(g: self Game);
	};

	Join:	fn(game: string) : Game;
};