1 // support for acme; acid must be run with /acme/acid/$cputype/Acid
2 
3 
4 defn w(*code)
5 {
6 	local dir;
7 
8 	printto("/tmp/acme.acid", eval code);
9 	rc("cat /tmp/acme.acid | wnew -d "+"Acid/-stk'("+itoa(pid)+")'");
10 }
11 
12 defn procstk(pid, name)
13 {
14 	local dir;
15 
16 	printto("/tmp/acme.acid", stk());
17 	rc("cat /tmp/acme.acid | wnew -d "+"Acid/-'"+name+"("+itoa(pid)+")'");
18 }
19 
20 defn taskstk(tid, name)
21 {
22 	local dir;
23 
24 	printto("/tmp/acme.acid", threadstk(tid));
25 	rc("cat /tmp/acme.acid | wnew -d "+"Acid/-"+name+"'("+itoa(pid)+")'");
26 }
27 
28 defn _stk(pc, sp, link, dolocals)
29 {
30 	local stk;
31 
32 	print("At pc:", pc, ":", fmt(pc, 'a'), " ");
33 	pfl(pc);
34 
35 	stk = strace(pc, sp, link);
36 
37 	while stk do {
38 		frame = head stk;
39 		print(fmt(frame[0], 'a'), "(");
40 		params(frame[2], frame[0]);
41 		print(") ");
42 		print("\n\tcalled from ", fmt(frame[1], 'a'), " ");
43 		pfl(frame[1]);
44 		stk = tail stk;
45 		if dolocals then
46 			locals(frame[3], frame[0]);
47 	}
48 }
49 
50 //defn _stk(pc, sp, dolocals)
51 //{
52 //	w(__stk(pc, sp, dolocals));
53 //}
54 
55 
56 defn params(param, name)
57 {
58 	while param do {
59 		sym = head param;
60 		print("*", fmt(name, 'a'), ":", sym[0], "=", sym[1]);
61 		param = tail param;
62 		if param then
63 			print (",");
64 	}	
65 }
66 
67 defn locals(l, name)
68 {
69 	local sym;
70 
71 	while l do {
72 		sym = head l;
73 		print("\t*", fmt(name, 'a'), ":", sym[0], "=", sym[1], "\n");
74 		l = tail l;
75 	}	
76 }
77 
78 defn bptab()					// print a table of breakpoints
79 {
80 	local lst, addr;
81 
82 	lst = bplist;
83 	while lst do {
84 		addr = head lst;
85 		print("\tbpdel(", fmt(addr, 'a'), ")\n");
86 		lst = tail lst;
87 	}
88 }
89 
90 defn procs()			// print status of processes
91 {
92 	local c, lst, cpid;
93 
94 	cpid = pid;
95 	lst = proclist;
96 	while lst do {
97 		np = head lst;
98 		setproc(np);
99 		if np == cpid then
100 			print(">");
101 		print("\t", "setproc(", np, ")\t", status(np), " at ", fmt(*PC, 'a'), "\n");
102 		lst = tail lst;
103 	}
104 	pid = cpid;
105 	if pid != 0 then
106 		setproc(pid);
107 }
108 
109 defn allstacks()			// print stacks of processes and threads
110 {
111 	complex Proc P;
112 	local T, Tq;
113 	local c, lst, cpid;
114 
115 	cpid = pid;
116 	P = (Proc)pq.$head;
117 	while P != 0 do{
118 		Tq = (Tqueue)P.threads;
119 		T = (Thread)Tq.$head;
120 		setproc(P.pid);
121 		while T != 0 do{
122 			if(T.cmdname == 0) then taskstk(T, "unknown");
123 			else taskstk(T, *(T.cmdname\s));
124 			T = T.nextt;
125 		}
126 		P = P.next;
127 	}
128 	pid = cpid;
129 	if pid != 0 then
130 		setproc(pid);
131 }
132 
133 print(acidfile);