@include <ctlmux.cqct>

@define test1()
{
	@local ctl, mux;
	mux = mkctlmux_local();
	foreach(@lambda(p){
			@local pid, cmd;
			pid = p[0];
			cmd = p[1];
			printf("%5d %s\n", pid, cmd);
			if(cmd == "sctl")
				return;
			if(cmd == "memcheck")
				return;
			if(cmd == "emacs")
				return;
			if(cmd == "tcsh")
				return; /* job control botch in emacs */
			if(pid == getpid())
				return;
			ctl = mux.attach(pid);
			ctl.mem().map();
			ctl.xcont();
		}, mux.ps());
}

test1();