code: purgatorio

ref: a600cca5ff367ca7e7c64a14a8e87ba376780f6d
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);
};