shithub: purgatorio

ref: ee695eff4329234e20abb68ff3100d3b15929418
dir: /appl/collab/srvmgr.m/

View raw version 
Srvmgr: module
{
	PATH:	con "/dis/collab/srvmgr.dis";
	Srvreq: adt {
		sname: string;
		id: string;
		pick {
		Acquire =>
			uname: string;
			reply: chan of Srvreply;
		Release =>
		}
	};

	Srvreply: type (
		string,		# error
		string,		# root path
		ref Sys->FD	# styx fd
	);

	init: fn(cfg: string): (string, chan of ref Srvreq);
};