1 0a61c07d 2004-04-19 devnull 
  2 0a61c07d 2004-04-19 devnull defn labpc(l)
  3 0a61c07d 2004-04-19 devnull {
  4 7284df18 2004-04-19 devnull 	complex Label l;
  5 7284df18 2004-04-19 devnull 
  6 7284df18 2004-04-19 devnull 	return l.pc;
  7 0a61c07d 2004-04-19 devnull }
  8 0a61c07d 2004-04-19 devnull 
  9 7284df18 2004-04-19 devnull defn label(l)
 10 0a61c07d 2004-04-19 devnull {
 11 7284df18 2004-04-19 devnull 	complex Label l;
 12 7284df18 2004-04-19 devnull 
 13 7284df18 2004-04-19 devnull 	if objtype == "386" then
 14 7284df18 2004-04-19 devnull 		return {"PC", l.pc, "BX", l.bx, "SP", l.sp, "BP", l.bp, "SI", l.si, "DI", l.di};
 15 7284df18 2004-04-19 devnull 	return {};
 16 0a61c07d 2004-04-19 devnull }
 17 0a61c07d 2004-04-19 devnull 
 18 7284df18 2004-04-19 devnull 
 19 0a61c07d 2004-04-19 devnull defn labstk(l)
 20 0a61c07d 2004-04-19 devnull {
 21 7284df18 2004-04-19 devnull 	_stk(label(l), 0);
 22 0a61c07d 2004-04-19 devnull }
 23 0a61c07d 2004-04-19 devnull 
 24 0a61c07d 2004-04-19 devnull defn lablstk(l)
 25 0a61c07d 2004-04-19 devnull {
 26 7284df18 2004-04-19 devnull 	_stk(label(l), 1);
 27 0a61c07d 2004-04-19 devnull }
 28 0a61c07d 2004-04-19 devnull 
 29 0a61c07d 2004-04-19 devnull defn altfmt(A){
 30 0a61c07d 2004-04-19 devnull 	local i, s, yes;
 31 0a61c07d 2004-04-19 devnull 	complex Alt A;
 32 0a61c07d 2004-04-19 devnull 
 33 0a61c07d 2004-04-19 devnull 	s = "alt(";
 34 0a61c07d 2004-04-19 devnull 	s = s + "tag(*" + itoa(A.tag, "%x") + "=" + itoa(*A.tag, "%x") + ") ";
 35 0a61c07d 2004-04-19 devnull 	i = 0;
 36 0a61c07d 2004-04-19 devnull 	yes = 0;
 37 0a61c07d 2004-04-19 devnull 	while A.op != CHANEND && A.op != CHANNOBLK do{
 38 0a61c07d 2004-04-19 devnull 		if A.op != CHANNOP then{
 39 0a61c07d 2004-04-19 devnull 			if yes then s = s + " ";
 40 0a61c07d 2004-04-19 devnull 			s = s + itoa(i, "%d");
 41 0a61c07d 2004-04-19 devnull 			s = s + ":";
 42 0a61c07d 2004-04-19 devnull 			if A.op == CHANSND then s = s + "send";
 43 0a61c07d 2004-04-19 devnull 			if A.op == CHANRCV then s = s + "recv";
 44 0a61c07d 2004-04-19 devnull 			s = s + "(channel(";
 45 0a61c07d 2004-04-19 devnull 			s = s + itoa(A.c, "%x");
 46 0a61c07d 2004-04-19 devnull 			s = s + "))";
 47 0a61c07d 2004-04-19 devnull 			yes = 1;
 48 0a61c07d 2004-04-19 devnull 		}
 49 0a61c07d 2004-04-19 devnull 		i = i + 1;
 50 0a61c07d 2004-04-19 devnull 		A = (Alt)(A + sizeofAlt);
 51 0a61c07d 2004-04-19 devnull 	}
 52 0a61c07d 2004-04-19 devnull 	if A.op==CHANNOBLK then{
 53 0a61c07d 2004-04-19 devnull 		if yes then s = s + " ";
 54 0a61c07d 2004-04-19 devnull 		s = s + "noblock";
 55 0a61c07d 2004-04-19 devnull 	}
 56 0a61c07d 2004-04-19 devnull 	s = s + ")";
 57 0a61c07d 2004-04-19 devnull 	return s;
 58 0a61c07d 2004-04-19 devnull }
 59 0a61c07d 2004-04-19 devnull 
 60 0a61c07d 2004-04-19 devnull defn alt(A){
 61 0a61c07d 2004-04-19 devnull 	print(altfmt(A), "\n");
 62 0a61c07d 2004-04-19 devnull }
 63 0a61c07d 2004-04-19 devnull 
 64 0a61c07d 2004-04-19 devnull threadignsrc = {
 65 7284df18 2004-04-19 devnull 	"plan9/src/libc",
 66 7284df18 2004-04-19 devnull 	"plan9/src/libthread",
 67 0a61c07d 2004-04-19 devnull };
 68 0a61c07d 2004-04-19 devnull 
 69 0a61c07d 2004-04-19 devnull defn fnname(a){
 70 0a61c07d 2004-04-19 devnull 	local sym, s;
 71 0a61c07d 2004-04-19 devnull 
 72 0a61c07d 2004-04-19 devnull 	s = symbols;
 73 0a61c07d 2004-04-19 devnull 	while s do {
 74 0a61c07d 2004-04-19 devnull 		sym = head s;
 75 0a61c07d 2004-04-19 devnull 		if sym[2] == a then
 76 0a61c07d 2004-04-19 devnull 			return sym[0];
 77 0a61c07d 2004-04-19 devnull 		s = tail s;
 78 0a61c07d 2004-04-19 devnull 	}
 79 0a61c07d 2004-04-19 devnull 	return itoa(a, "%x");
 80 0a61c07d 2004-04-19 devnull }
 81 0a61c07d 2004-04-19 devnull 
 82 0a61c07d 2004-04-19 devnull stkignorelist = {};
 83 0a61c07d 2004-04-19 devnull 
 84 0a61c07d 2004-04-19 devnull defn stkignore(s){
 85 0a61c07d 2004-04-19 devnull 	append stkignorelist, s;
 86 0a61c07d 2004-04-19 devnull }
 87 0a61c07d 2004-04-19 devnull 
 88 0a61c07d 2004-04-19 devnull defn threadstkline(T){
 89 7284df18 2004-04-19 devnull 	local stk, frame, pc, pc0, file, s, sym, i, stop;
 90 0a61c07d 2004-04-19 devnull 
 91 7284df18 2004-04-19 devnull 	if T.state == Running then
 92 7284df18 2004-04-19 devnull 		stk = strace({});
 93 7284df18 2004-04-19 devnull 	else
 94 7284df18 2004-04-19 devnull 		stk = strace(label(T.sched));
 95 7284df18 2004-04-19 devnull 
 96 0a61c07d 2004-04-19 devnull 	stop = 0;
 97 0a61c07d 2004-04-19 devnull 	while stk && !stop do {
 98 7284df18 2004-04-19 devnull 		frame = head stk;
 99 7284df18 2004-04-19 devnull 		stk = tail stk;
100 7284df18 2004-04-19 devnull 		pc = frame[2];
101 7284df18 2004-04-19 devnull 		pc0 = frame[0];
102 0a61c07d 2004-04-19 devnull 		file = pcfile(pc);
103 7284df18 2004-04-19 devnull 		if !regexp("plan9/src/libc/", file)
104 7284df18 2004-04-19 devnull 		&& !regexp("plan9/src/libthread/", file) 
105 0a61c07d 2004-04-19 devnull 		&& match(file, stkignore)==-1 then
106 0a61c07d 2004-04-19 devnull 			stop = 1;
107 0a61c07d 2004-04-19 devnull 	}
108 0a61c07d 2004-04-19 devnull 	file = pcfile(pc);
109 0a61c07d 2004-04-19 devnull 	s = file+":"+itoa(pcline(pc), "%d");
110 0a61c07d 2004-04-19 devnull 	if pc0 != 0 then 
111 0a61c07d 2004-04-19 devnull 		s = s + " "+fnname(pc0);
112 0a61c07d 2004-04-19 devnull 	return s;
113 0a61c07d 2004-04-19 devnull }
114 0a61c07d 2004-04-19 devnull 
115 0a61c07d 2004-04-19 devnull defn threadfmt(T){
116 0a61c07d 2004-04-19 devnull 	complex Thread T;
117 0a61c07d 2004-04-19 devnull 	local A, yes, i, P, s;
118 0a61c07d 2004-04-19 devnull 
119 0a61c07d 2004-04-19 devnull 	P = (Proc)T.proc;
120 0a61c07d 2004-04-19 devnull 	s = "t=(Thread)"+itoa(T, "%-10x")+" ";
121 0a61c07d 2004-04-19 devnull 
122 0a61c07d 2004-04-19 devnull 	if T.state == Running then
123 0a61c07d 2004-04-19 devnull 		s = s + "Running    ";
124 0a61c07d 2004-04-19 devnull 	else if T.state == Ready then
125 0a61c07d 2004-04-19 devnull 		s = s + "Ready      ";
126 0a61c07d 2004-04-19 devnull 	else if T.state == Rendezvous then
127 0a61c07d 2004-04-19 devnull 		s = s + "Rendez     ";
128 0a61c07d 2004-04-19 devnull 	else
129 0a61c07d 2004-04-19 devnull 		s = s + "Bad state "+itoa(T.state, "%x")+" ";
130 0a61c07d 2004-04-19 devnull 
131 0a61c07d 2004-04-19 devnull 	A = (Alt)T.alt;
132 0a61c07d 2004-04-19 devnull 	if 1 then
133 0a61c07d 2004-04-19 devnull 		s = s + threadstkline(T);
134 0a61c07d 2004-04-19 devnull 	else if T.chan == Chanalt then
135 0a61c07d 2004-04-19 devnull 		s = s + altfmt(T.alt);
136 0a61c07d 2004-04-19 devnull 	else if T.chan == Chansend then
137 0a61c07d 2004-04-19 devnull 		s = s + "send(Channel("+itoa(A.c, "%x")+"))";
138 0a61c07d 2004-04-19 devnull 	else if T.chan == Chanrecv then
139 0a61c07d 2004-04-19 devnull 		s = s + "recv(Channel("+itoa(A.c, "%x")+"))";
140 0a61c07d 2004-04-19 devnull 	else
141 0a61c07d 2004-04-19 devnull 		s = s + threadstkline(T);
142 0a61c07d 2004-04-19 devnull 
143 0a61c07d 2004-04-19 devnull 	if T.moribund == 1 then
144 0a61c07d 2004-04-19 devnull 		s = s + " Moribund";
145 0a61c07d 2004-04-19 devnull 	if T.cmdname != 0 then
146 0a61c07d 2004-04-19 devnull 		s = s + " ["+*(T.cmdname\s)+"]";
147 0a61c07d 2004-04-19 devnull 	return s;
148 0a61c07d 2004-04-19 devnull }
149 0a61c07d 2004-04-19 devnull 
150 0a61c07d 2004-04-19 devnull defn thread(T){
151 0a61c07d 2004-04-19 devnull 	print(threadfmt(T), "\n");
152 0a61c07d 2004-04-19 devnull }
153 0a61c07d 2004-04-19 devnull 
154 0a61c07d 2004-04-19 devnull defn pthreads(P){
155 0a61c07d 2004-04-19 devnull 	complex Proc P;
156 0a61c07d 2004-04-19 devnull 	local T, Tq, mainpid;
157 0a61c07d 2004-04-19 devnull 
158 0a61c07d 2004-04-19 devnull 	mainpid = pid;
159 0a61c07d 2004-04-19 devnull 	setproc(P.pid);
160 0a61c07d 2004-04-19 devnull 	Tq = (Tqueue)P.threads;
161 0a61c07d 2004-04-19 devnull 	T = (Thread)Tq.$head;
162 0a61c07d 2004-04-19 devnull 	while T != 0 do{
163 0a61c07d 2004-04-19 devnull 		print("\t");
164 0a61c07d 2004-04-19 devnull 		thread(T);
165 7284df18 2004-04-19 devnull 		T = (Thread)T.nextt;
166 0a61c07d 2004-04-19 devnull 	}
167 0a61c07d 2004-04-19 devnull 	setproc(mainpid);
168 0a61c07d 2004-04-19 devnull }
169 0a61c07d 2004-04-19 devnull 
170 0a61c07d 2004-04-19 devnull defn threads(){
171 0a61c07d 2004-04-19 devnull 	local P;
172 7284df18 2004-04-19 devnull 	complex Pqueue _threadpq;
173 c73e7cf5 2004-04-20 devnull 
174 0a61c07d 2004-04-19 devnull 	P = (Proc)_threadpq.$head;
175 0a61c07d 2004-04-19 devnull 	while P != 0 do{
176 0a61c07d 2004-04-19 devnull 		if P != (Proc)_threadpq.$head then print("\n");
177 0a61c07d 2004-04-19 devnull 		lproc(P);
178 c73e7cf5 2004-04-20 devnull 		P = (Proc)P.next;
179 0a61c07d 2004-04-19 devnull 	}
180 0a61c07d 2004-04-19 devnull }
181 0a61c07d 2004-04-19 devnull 
182 0a61c07d 2004-04-19 devnull defn stacks(){
183 0a61c07d 2004-04-19 devnull 	local P, mainpid;
184 c73e7cf5 2004-04-20 devnull 	complex Pqueue _threadpq;
185 0a61c07d 2004-04-19 devnull 
186 7284df18 2004-04-19 devnull 	stkprefix = "";
187 0a61c07d 2004-04-19 devnull 	mainpid = pid;
188 0a61c07d 2004-04-19 devnull 	P = (Proc)_threadpq.$head;
189 0a61c07d 2004-04-19 devnull 	while P != 0 do{
190 0a61c07d 2004-04-19 devnull 		proc(P);
191 0a61c07d 2004-04-19 devnull 	//	setproc(P.pid);
192 0a61c07d 2004-04-19 devnull 	//	if P.thread==0 then{
193 0a61c07d 2004-04-19 devnull 	//		print("=== thread scheduler stack\n");
194 0a61c07d 2004-04-19 devnull 	//		stk();
195 0a61c07d 2004-04-19 devnull 	//	}
196 0a61c07d 2004-04-19 devnull 	//	print("threadstks(", P\X, ")\n");
197 0a61c07d 2004-04-19 devnull 		threadstks(P);
198 7284df18 2004-04-19 devnull 		P = (Proc)P.next;
199 0a61c07d 2004-04-19 devnull 		print("\n");
200 0a61c07d 2004-04-19 devnull 	}
201 0a61c07d 2004-04-19 devnull 	setproc(mainpid);
202 0a61c07d 2004-04-19 devnull }
203 0a61c07d 2004-04-19 devnull 
204 0a61c07d 2004-04-19 devnull defn stacksizes(){
205 0a61c07d 2004-04-19 devnull 	local P, T, Tq, top, sp, mainpid;
206 c73e7cf5 2004-04-20 devnull 	complex Pqueue _threadpq;
207 0a61c07d 2004-04-19 devnull 
208 0a61c07d 2004-04-19 devnull 	mainpid = pid;
209 0a61c07d 2004-04-19 devnull 	P = (Proc)_threadpq.$head;
210 0a61c07d 2004-04-19 devnull 	while P != 0 do{
211 0a61c07d 2004-04-19 devnull 		P = (Proc)P;
212 0a61c07d 2004-04-19 devnull 		Tq = (Tqueue)P.threads;
213 0a61c07d 2004-04-19 devnull 		T = (Thread)Tq.$head;
214 0a61c07d 2004-04-19 devnull 		while T != 0 do{
215 0a61c07d 2004-04-19 devnull 			top = T.stk+T.stksize;
216 0a61c07d 2004-04-19 devnull 			if T.state==Running then {
217 0a61c07d 2004-04-19 devnull 				sp = *SP;
218 0a61c07d 2004-04-19 devnull 			}else{
219 0a61c07d 2004-04-19 devnull 				sp = *(T.sched);
220 0a61c07d 2004-04-19 devnull 			}
221 0a61c07d 2004-04-19 devnull 			sp = *(T.sched);
222 0a61c07d 2004-04-19 devnull 			print(top-sp\D, "\n");
223 7284df18 2004-04-19 devnull 			T = (Thread)T.nextt;
224 0a61c07d 2004-04-19 devnull 		}
225 0a61c07d 2004-04-19 devnull 		P = P.next;
226 0a61c07d 2004-04-19 devnull 	}
227 0a61c07d 2004-04-19 devnull 	setproc(mainpid);
228 0a61c07d 2004-04-19 devnull }
229 0a61c07d 2004-04-19 devnull 
230 0a61c07d 2004-04-19 devnull defn lproc(P){
231 0a61c07d 2004-04-19 devnull 	proc(P);
232 0a61c07d 2004-04-19 devnull 	pthreads(P);
233 0a61c07d 2004-04-19 devnull }
234 0a61c07d 2004-04-19 devnull 
235 c73e7cf5 2004-04-20 devnull threadstkignore = {
236 c73e7cf5 2004-04-20 devnull 	"plan9/src/libthread/",
237 c73e7cf5 2004-04-20 devnull 	"plan9/src/libc/(386|arm|alpha|sparc|power|mips)/"
238 c73e7cf5 2004-04-20 devnull };
239 0a61c07d 2004-04-19 devnull defn threadstks(P){
240 0a61c07d 2004-04-19 devnull 	complex Proc P;
241 0a61c07d 2004-04-19 devnull 	local T, Tq, mainpid, pref, ign;
242 0a61c07d 2004-04-19 devnull 
243 0a61c07d 2004-04-19 devnull 	mainpid = pid;
244 0a61c07d 2004-04-19 devnull 	pref = stkprefix;
245 0a61c07d 2004-04-19 devnull 	stkprefix = pref+"\t\t";
246 0a61c07d 2004-04-19 devnull 	ign = stkignore;
247 c73e7cf5 2004-04-20 devnull 	stkignore = threadstkignore;
248 0a61c07d 2004-04-19 devnull 	setproc(P.pid);
249 0a61c07d 2004-04-19 devnull 	Tq = (Tqueue)P.threads;
250 0a61c07d 2004-04-19 devnull 	T = (Thread)Tq.$head;
251 0a61c07d 2004-04-19 devnull 	while T != 0 do{
252 0a61c07d 2004-04-19 devnull 	//	print("=============================\n");
253 0a61c07d 2004-04-19 devnull 	//	print("  thread(", T\X, ")\n");
254 0a61c07d 2004-04-19 devnull 		print("\t");
255 0a61c07d 2004-04-19 devnull 		thread(T);
256 0a61c07d 2004-04-19 devnull 		threadstk(T);
257 7284df18 2004-04-19 devnull 		T = (Thread)T.nextt;
258 0a61c07d 2004-04-19 devnull 		print("\n");
259 0a61c07d 2004-04-19 devnull 	}
260 0a61c07d 2004-04-19 devnull 	setproc(mainpid);
261 0a61c07d 2004-04-19 devnull 	stkprefix = pref;
262 0a61c07d 2004-04-19 devnull 	stkignore = ign;
263 0a61c07d 2004-04-19 devnull }
264 0a61c07d 2004-04-19 devnull 
265 0a61c07d 2004-04-19 devnull defn proc(P){
266 0a61c07d 2004-04-19 devnull 	complex Proc P;
267 0a61c07d 2004-04-19 devnull 
268 0a61c07d 2004-04-19 devnull 	print("p=(Proc)", itoa(P, "%-10x"), " pid ", P.pid\D, " ");
269 0a61c07d 2004-04-19 devnull 	if P.thread==0 then
270 0a61c07d 2004-04-19 devnull 		print(" Sched");
271 0a61c07d 2004-04-19 devnull 	else
272 0a61c07d 2004-04-19 devnull 		print(" Running");
273 0a61c07d 2004-04-19 devnull 	print("\n");
274 0a61c07d 2004-04-19 devnull }
275 0a61c07d 2004-04-19 devnull 
276 0a61c07d 2004-04-19 devnull defn procs(){
277 0a61c07d 2004-04-19 devnull 	local P;
278 c73e7cf5 2004-04-20 devnull 	complex Pqueue _threadpq;
279 0a61c07d 2004-04-19 devnull 
280 0a61c07d 2004-04-19 devnull 	P = (Proc)_threadpq.$head;
281 0a61c07d 2004-04-19 devnull 	while P != 0 do{
282 0a61c07d 2004-04-19 devnull 		proc(P);
283 0a61c07d 2004-04-19 devnull 		P = P.next;
284 0a61c07d 2004-04-19 devnull 	}
285 0a61c07d 2004-04-19 devnull }
286 0a61c07d 2004-04-19 devnull 
287 0a61c07d 2004-04-19 devnull defn threadlstk(T){
288 0a61c07d 2004-04-19 devnull 	complex Thread T;
289 0a61c07d 2004-04-19 devnull 	local P, mainpid;
290 0a61c07d 2004-04-19 devnull 
291 0a61c07d 2004-04-19 devnull 	P = (Proc)T.proc;
292 0a61c07d 2004-04-19 devnull 	mainpid = pid;
293 0a61c07d 2004-04-19 devnull 	setproc(P.pid);
294 0a61c07d 2004-04-19 devnull 
295 0a61c07d 2004-04-19 devnull 	if T.state == Running then{
296 0a61c07d 2004-04-19 devnull 		lstk();
297 0a61c07d 2004-04-19 devnull 	} else {
298 0a61c07d 2004-04-19 devnull 		lablstk(T.sched);
299 0a61c07d 2004-04-19 devnull 	}
300 0a61c07d 2004-04-19 devnull 	setproc(mainpid);
301 0a61c07d 2004-04-19 devnull }
302 0a61c07d 2004-04-19 devnull 
303 0a61c07d 2004-04-19 devnull defn threadstk(T){
304 0a61c07d 2004-04-19 devnull 	complex Thread T;
305 0a61c07d 2004-04-19 devnull 	local P, mainpid;
306 0a61c07d 2004-04-19 devnull 
307 0a61c07d 2004-04-19 devnull 	P = (Proc)T.proc;
308 0a61c07d 2004-04-19 devnull 	mainpid = pid;
309 0a61c07d 2004-04-19 devnull 	setproc(P.pid);
310 0a61c07d 2004-04-19 devnull 
311 0a61c07d 2004-04-19 devnull 	if T.state == Running then{
312 0a61c07d 2004-04-19 devnull 		stk();
313 0a61c07d 2004-04-19 devnull 	} else {
314 0a61c07d 2004-04-19 devnull 		labstk(T.sched);
315 0a61c07d 2004-04-19 devnull 	}
316 0a61c07d 2004-04-19 devnull 	setproc(mainpid);
317 0a61c07d 2004-04-19 devnull }
318 0a61c07d 2004-04-19 devnull 
319 0a61c07d 2004-04-19 devnull defn tqueue(Q) {
320 0a61c07d 2004-04-19 devnull 	complex Tqueue Q;
321 0a61c07d 2004-04-19 devnull 
322 0a61c07d 2004-04-19 devnull 	while Q != 0 do {
323 0a61c07d 2004-04-19 devnull 		print(Q.$head\X, " ");
324 0a61c07d 2004-04-19 devnull 		Q = *(Q.$tail);
325 0a61c07d 2004-04-19 devnull 	
326 0a61c07d 2004-04-19 devnull 	}
327 0a61c07d 2004-04-19 devnull 	print("#\n");
328 0a61c07d 2004-04-19 devnull }
329 0a61c07d 2004-04-19 devnull 
330 0a61c07d 2004-04-19 devnull defn channel(C) {
331 0a61c07d 2004-04-19 devnull 	complex Channel C;
332 0a61c07d 2004-04-19 devnull 	local i, p;
333 0a61c07d 2004-04-19 devnull 
334 0a61c07d 2004-04-19 devnull 	print("channel ", C\X);
335 0a61c07d 2004-04-19 devnull 	if C.freed then {
336 0a61c07d 2004-04-19 devnull 		print(" (moribund)");
337 0a61c07d 2004-04-19 devnull 	}
338 0a61c07d 2004-04-19 devnull 	print("\n");
339 0a61c07d 2004-04-19 devnull 	print("\telementsize=", C.e\D, " buffersize=", C.s, "\n");
340 0a61c07d 2004-04-19 devnull 	if C.s then {
341 0a61c07d 2004-04-19 devnull 		print("\t", C.n\D, " values in channel:\n");
342 0a61c07d 2004-04-19 devnull 		print("\t");
343 0a61c07d 2004-04-19 devnull 		p = C.v+C.e*(C.f%C.s);
344 0a61c07d 2004-04-19 devnull 		loop 1,C.n do {
345 0a61c07d 2004-04-19 devnull 			if C.e==4 then {
346 0a61c07d 2004-04-19 devnull 				print((*p)\X, " ");
347 0a61c07d 2004-04-19 devnull 			}else {
348 0a61c07d 2004-04-19 devnull 				print("data(", (*p)\X, ") ");
349 0a61c07d 2004-04-19 devnull 			}
350 0a61c07d 2004-04-19 devnull 			p = p+C.e;
351 0a61c07d 2004-04-19 devnull 			if p == C.v+C.s*C.e then {
352 0a61c07d 2004-04-19 devnull 				p = C.v;
353 0a61c07d 2004-04-19 devnull 			}
354 0a61c07d 2004-04-19 devnull 		}
355 0a61c07d 2004-04-19 devnull 	}
356 0a61c07d 2004-04-19 devnull 	print("\n");
357 0a61c07d 2004-04-19 devnull 	print(C.nentry\D, " queue slots:\n");
358 0a61c07d 2004-04-19 devnull 	i=0;
359 0a61c07d 2004-04-19 devnull 	loop 1,C.nentry do {
360 0a61c07d 2004-04-19 devnull 		if C.qentry[i] then
361 0a61c07d 2004-04-19 devnull 			print("\t", altfmt(C.qentry[i]), "\n");
362 0a61c07d 2004-04-19 devnull 		else
363 0a61c07d 2004-04-19 devnull 			print("\t<empty>\n");
364 0a61c07d 2004-04-19 devnull 		i=i+1;
365 0a61c07d 2004-04-19 devnull 	}
366 0a61c07d 2004-04-19 devnull }
367 0a61c07d 2004-04-19 devnull 
368 c73e7cf5 2004-04-20 devnull defn polling() {
369 c73e7cf5 2004-04-20 devnull 	local i, c, t, p, pf;
370 c73e7cf5 2004-04-20 devnull 
371 c73e7cf5 2004-04-20 devnull 	p=(Poll)polls; pf=(struct_pollfd)pfd; loop 1,*npoll do {
372 c73e7cf5 2004-04-20 devnull 		print("\tfd ", pf.fd\D, "   ");
373 c73e7cf5 2004-04-20 devnull 		if pf.events & 1 then
374 c73e7cf5 2004-04-20 devnull 			print("r");
375 c73e7cf5 2004-04-20 devnull 		else if pf.events & 2 then
376 c73e7cf5 2004-04-20 devnull  			print("w");
377 c73e7cf5 2004-04-20 devnull 		else
378 c73e7cf5 2004-04-20 devnull 			print(pf.events\D);
379 c73e7cf5 2004-04-20 devnull 		print(" chan Channel(", p.c\X, ")\n");
380 c73e7cf5 2004-04-20 devnull 		p = (Poll)(p+sizeofPoll);
381 c73e7cf5 2004-04-20 devnull 		pf = (struct_pollfd)(pf+sizeofstruct_pollfd);
382 c73e7cf5 2004-04-20 devnull 	}
383 c73e7cf5 2004-04-20 devnull 
384 c73e7cf5 2004-04-20 devnull 	c=sleepchan; t=sleeptime; loop 1,*nsleep do {
385 c73e7cf5 2004-04-20 devnull 		print("\tsleep ", *t\D, " Channel(", *c\X, ")\n");
386 c73e7cf5 2004-04-20 devnull 		c++;
387 c73e7cf5 2004-04-20 devnull 		t++;
388 c73e7cf5 2004-04-20 devnull 	}
389 c73e7cf5 2004-04-20 devnull }
390 c73e7cf5 2004-04-20 devnull 
391 0a61c07d 2004-04-19 devnull print(acidfile);