1 0a61c07d 2004-04-19 devnull // portable acid for all architectures
3 0a61c07d 2004-04-19 devnull defn pfl(addr)
5 0a61c07d 2004-04-19 devnull print(pcfile(addr), ":", pcline(addr), "\n");
9 0a61c07d 2004-04-19 devnull notestk(addr)
11 0a61c07d 2004-04-19 devnull local pc, sp;
12 0a61c07d 2004-04-19 devnull complex Ureg addr;
14 0a61c07d 2004-04-19 devnull pc = addr.pc\X;
15 0a61c07d 2004-04-19 devnull sp = addr.sp\X;
17 0a61c07d 2004-04-19 devnull print("Note pc:", pc, " sp:", sp, " ", fmt(pc, 'a'), " ");
19 0a61c07d 2004-04-19 devnull _stk({"PC", pc, "SP", sp, linkreg(addr)}, 1);
23 0a61c07d 2004-04-19 devnull notelstk(addr)
25 0a61c07d 2004-04-19 devnull local pc, sp;
26 0a61c07d 2004-04-19 devnull complex Ureg addr;
28 0a61c07d 2004-04-19 devnull pc = addr.pc\X;
29 0a61c07d 2004-04-19 devnull sp = addr.sp\X;
31 0a61c07d 2004-04-19 devnull print("Note pc:", pc, " sp:", sp, " ", fmt(pc, 'a'), " ");
33 0a61c07d 2004-04-19 devnull _stk({"PC", pc, "SP", sp, linkreg(addr)}, 1);
36 7284df18 2004-04-19 devnull // defn labstk(l) // trace from a label
38 7284df18 2004-04-19 devnull // _stk({"PC", *(l+4), "SP", *l, linkreg(0)}, 0);
41 0a61c07d 2004-04-19 devnull defn params(param)
43 0a61c07d 2004-04-19 devnull while param do {
44 0a61c07d 2004-04-19 devnull sym = head param;
45 0a61c07d 2004-04-19 devnull print(sym[0], "=", itoa(sym[1], "%ux"));
46 0a61c07d 2004-04-19 devnull param = tail param;
47 0a61c07d 2004-04-19 devnull if param then
48 0a61c07d 2004-04-19 devnull print (",");
52 0a61c07d 2004-04-19 devnull stkprefix = "";
53 0a61c07d 2004-04-19 devnull stkignore = {};
54 0a61c07d 2004-04-19 devnull stkend = 0;
56 0a61c07d 2004-04-19 devnull defn locals(l)
58 0a61c07d 2004-04-19 devnull local sym;
60 0a61c07d 2004-04-19 devnull while l do {
61 0a61c07d 2004-04-19 devnull sym = head l;
62 0a61c07d 2004-04-19 devnull print(stkprefix, "\t", sym[0], "=", itoa(sym[1], "%ux"), "\n");
63 0a61c07d 2004-04-19 devnull l = tail l;
67 7284df18 2004-04-19 devnull defn _stkign(frame)
69 7284df18 2004-04-19 devnull local file;
71 7284df18 2004-04-19 devnull file = pcfile(frame[0]);
72 0a61c07d 2004-04-19 devnull s = stkignore;
73 0a61c07d 2004-04-19 devnull while s do {
74 0a61c07d 2004-04-19 devnull if regexp(head s, file) then
75 0a61c07d 2004-04-19 devnull return 1;
76 0a61c07d 2004-04-19 devnull s = tail s;
78 0a61c07d 2004-04-19 devnull return 0;
81 0a61c07d 2004-04-19 devnull // print a stack trace
83 0a61c07d 2004-04-19 devnull // in a run of leading frames in files matched by regexps in stkignore,
84 0a61c07d 2004-04-19 devnull // only print the last one.
85 0a61c07d 2004-04-19 devnull defn _stk(regs, dolocals)
87 0a61c07d 2004-04-19 devnull local stk, pc, fn, callerpc, paramlist, locallist;
89 0a61c07d 2004-04-19 devnull stk = strace(regs);
90 0a61c07d 2004-04-19 devnull if stkignore then {
91 7284df18 2004-04-19 devnull while stk && tail stk && _stkign(head tail stk) do
92 0a61c07d 2004-04-19 devnull stk = tail stk;
95 0a61c07d 2004-04-19 devnull callerpc = 0;
96 0a61c07d 2004-04-19 devnull while stk do {
97 0a61c07d 2004-04-19 devnull frame = head stk;
98 0a61c07d 2004-04-19 devnull stk = tail stk;
99 0a61c07d 2004-04-19 devnull fn = frame[0];
100 0a61c07d 2004-04-19 devnull pc = frame[1];
101 0a61c07d 2004-04-19 devnull callerpc = frame[2];
102 0a61c07d 2004-04-19 devnull paramlist = frame[3];
103 0a61c07d 2004-04-19 devnull locallist = frame[4];
105 0a61c07d 2004-04-19 devnull print(stkprefix, fmt(fn, 'a'), "(");
106 0a61c07d 2004-04-19 devnull params(paramlist);
107 0a61c07d 2004-04-19 devnull print(")");
108 0a61c07d 2004-04-19 devnull if pc != fn then
109 0a61c07d 2004-04-19 devnull print("+", itoa(pc-fn, "%ux"));
110 0a61c07d 2004-04-19 devnull print(" ");
111 0a61c07d 2004-04-19 devnull pfl(pc);
112 0a61c07d 2004-04-19 devnull if dolocals then
113 0a61c07d 2004-04-19 devnull locals(locallist);
116 0a61c07d 2004-04-19 devnull if callerpc then {
117 0a61c07d 2004-04-19 devnull print(stkprefix, fmt(callerpc, 'a'), " ");
118 0a61c07d 2004-04-19 devnull pfl(callerpc);
122 0a61c07d 2004-04-19 devnull defn findsrc(file)
124 0a61c07d 2004-04-19 devnull local lst, src;
126 0a61c07d 2004-04-19 devnull if file[0] == '/' then {
127 0a61c07d 2004-04-19 devnull src = file(file);
128 0a61c07d 2004-04-19 devnull if src != {} then {
129 0a61c07d 2004-04-19 devnull srcfiles = append srcfiles, file;
130 0a61c07d 2004-04-19 devnull srctext = append srctext, src;
131 0a61c07d 2004-04-19 devnull return src;
133 0a61c07d 2004-04-19 devnull return {};
136 0a61c07d 2004-04-19 devnull lst = srcpath;
137 0a61c07d 2004-04-19 devnull while head lst do {
138 0a61c07d 2004-04-19 devnull src = file(head lst+file);
139 0a61c07d 2004-04-19 devnull if src != {} then {
140 0a61c07d 2004-04-19 devnull srcfiles = append srcfiles, file;
141 0a61c07d 2004-04-19 devnull srctext = append srctext, src;
142 0a61c07d 2004-04-19 devnull return src;
144 0a61c07d 2004-04-19 devnull lst = tail lst;
148 0a61c07d 2004-04-19 devnull defn line(addr)
150 0a61c07d 2004-04-19 devnull local src, file;
152 0a61c07d 2004-04-19 devnull file = pcfile(addr);
153 0a61c07d 2004-04-19 devnull src = match(file, srcfiles);
155 0a61c07d 2004-04-19 devnull if src >= 0 then
156 0a61c07d 2004-04-19 devnull src = srctext[src];
158 0a61c07d 2004-04-19 devnull src = findsrc(file);
160 0a61c07d 2004-04-19 devnull if src == {} then {
161 0a61c07d 2004-04-19 devnull print("no source for ", file, "\n");
162 0a61c07d 2004-04-19 devnull return {};
164 0a61c07d 2004-04-19 devnull line = pcline(addr)-1;
165 0a61c07d 2004-04-19 devnull print(file, ":", src[line], "\n");
168 0a61c07d 2004-04-19 devnull defn addsrcdir(dir)
170 0a61c07d 2004-04-19 devnull dir = dir+"/";
172 0a61c07d 2004-04-19 devnull if match(dir, srcpath) >= 0 then {
173 0a61c07d 2004-04-19 devnull print("already in srcpath\n");
174 0a61c07d 2004-04-19 devnull return {};
177 0a61c07d 2004-04-19 devnull srcpath = {dir}+srcpath;
180 0a61c07d 2004-04-19 devnull defn source()
182 0a61c07d 2004-04-19 devnull local l;
184 0a61c07d 2004-04-19 devnull l = srcpath;
185 0a61c07d 2004-04-19 devnull while l do {
186 0a61c07d 2004-04-19 devnull print(head l, "\n");
187 0a61c07d 2004-04-19 devnull l = tail l;
189 0a61c07d 2004-04-19 devnull l = srcfiles;
191 0a61c07d 2004-04-19 devnull while l do {
192 0a61c07d 2004-04-19 devnull print("\t", head l, "\n");
193 0a61c07d 2004-04-19 devnull l = tail l;
197 0a61c07d 2004-04-19 devnull defn Bsrc(addr)
199 0a61c07d 2004-04-19 devnull local lst;
201 0a61c07d 2004-04-19 devnull lst = srcpath;
202 0a61c07d 2004-04-19 devnull file = pcfile(addr);
203 0a61c07d 2004-04-19 devnull if file[0] == '/' && access(file) then {
204 0a61c07d 2004-04-19 devnull rc("B "+file+":"+itoa(pcline(addr)));
205 0a61c07d 2004-04-19 devnull return {};
207 0a61c07d 2004-04-19 devnull while head lst do {
208 0a61c07d 2004-04-19 devnull name = head lst+file;
209 0a61c07d 2004-04-19 devnull if access(name) then {
210 0a61c07d 2004-04-19 devnull rc("B "+name+":"+itoa(pcline(addr)));
211 0a61c07d 2004-04-19 devnull return {};
213 0a61c07d 2004-04-19 devnull lst = tail lst;
215 0a61c07d 2004-04-19 devnull print("no source for ", file, "\n");
218 0a61c07d 2004-04-19 devnull defn srcline(addr)
220 0a61c07d 2004-04-19 devnull local text, cline, line, file, src;
221 0a61c07d 2004-04-19 devnull file = pcfile(addr);
222 0a61c07d 2004-04-19 devnull src = match(file,srcfiles);
223 0a61c07d 2004-04-19 devnull if (src>=0) then
224 0a61c07d 2004-04-19 devnull src = srctext[src];
226 0a61c07d 2004-04-19 devnull src = findsrc(file);
227 0a61c07d 2004-04-19 devnull if (src=={}) then
229 0a61c07d 2004-04-19 devnull return "(no source)";
231 0a61c07d 2004-04-19 devnull return src[pcline(addr)-1];
234 0a61c07d 2004-04-19 devnull defn src(addr)
236 0a61c07d 2004-04-19 devnull local src, file, line, cline, text;
238 0a61c07d 2004-04-19 devnull file = pcfile(addr);
239 0a61c07d 2004-04-19 devnull src = match(file, srcfiles);
241 0a61c07d 2004-04-19 devnull if src >= 0 then
242 0a61c07d 2004-04-19 devnull src = srctext[src];
244 0a61c07d 2004-04-19 devnull src = findsrc(file);
246 0a61c07d 2004-04-19 devnull if src == {} then {
247 0a61c07d 2004-04-19 devnull print("no source for ", file, "\n");
248 0a61c07d 2004-04-19 devnull return {};
251 0a61c07d 2004-04-19 devnull cline = pcline(addr)-1;
252 0a61c07d 2004-04-19 devnull print(file, ":", cline+1, "\n");
253 0a61c07d 2004-04-19 devnull line = cline-5;
254 0a61c07d 2004-04-19 devnull loop 0,10 do {
255 0a61c07d 2004-04-19 devnull if line >= 0 then {
256 0a61c07d 2004-04-19 devnull if line == cline then
257 0a61c07d 2004-04-19 devnull print(">");
259 0a61c07d 2004-04-19 devnull print(" ");
260 0a61c07d 2004-04-19 devnull text = src[line];
261 0a61c07d 2004-04-19 devnull if text == {} then
262 0a61c07d 2004-04-19 devnull return {};
263 0a61c07d 2004-04-19 devnull print(line+1, "\t", text, "\n");
265 0a61c07d 2004-04-19 devnull line = line+1;
269 0a61c07d 2004-04-19 devnull defn step() // single step the process
271 0a61c07d 2004-04-19 devnull local lst, lpl, addr, bput;
273 0a61c07d 2004-04-19 devnull bput = 0;
274 0a61c07d 2004-04-19 devnull if match(*PC, bplist) >= 0 then { // Sitting on a breakpoint
275 0a61c07d 2004-04-19 devnull bput = fmt(*PC, bpfmt);
276 0a61c07d 2004-04-19 devnull *bput = @bput;
279 0a61c07d 2004-04-19 devnull lst = follow(*PC);
281 0a61c07d 2004-04-19 devnull lpl = lst;
282 0a61c07d 2004-04-19 devnull while lpl do { // place break points
283 0a61c07d 2004-04-19 devnull *(head lpl) = bpinst;
284 0a61c07d 2004-04-19 devnull lpl = tail lpl;
287 0a61c07d 2004-04-19 devnull startstop(pid); // do the step
289 0a61c07d 2004-04-19 devnull while lst do { // remove the breakpoints
290 0a61c07d 2004-04-19 devnull addr = fmt(head lst, bpfmt);
291 0a61c07d 2004-04-19 devnull *addr = @addr;
292 0a61c07d 2004-04-19 devnull lst = tail lst;
294 0a61c07d 2004-04-19 devnull if bput != 0 then
295 0a61c07d 2004-04-19 devnull *bput = bpinst;
298 0a61c07d 2004-04-19 devnull defn bpset(addr) // set a breakpoint
300 0a61c07d 2004-04-19 devnull if status(pid) != "Stopped" then {
301 0a61c07d 2004-04-19 devnull print("Waiting...\n");
302 0a61c07d 2004-04-19 devnull stop(pid);
304 0a61c07d 2004-04-19 devnull if match(addr, bplist) >= 0 then
305 0a61c07d 2004-04-19 devnull print("breakpoint already set at ", fmt(addr, 'a'), "\n");
307 0a61c07d 2004-04-19 devnull *fmt(addr, bpfmt) = bpinst;
308 0a61c07d 2004-04-19 devnull bplist = append bplist, addr;
312 0a61c07d 2004-04-19 devnull defn bptab() // print a table of breakpoints
314 0a61c07d 2004-04-19 devnull local lst, addr;
316 0a61c07d 2004-04-19 devnull lst = bplist;
317 0a61c07d 2004-04-19 devnull while lst do {
318 0a61c07d 2004-04-19 devnull addr = head lst;
319 0a61c07d 2004-04-19 devnull print("\t", fmt(addr, 'X'), " ", fmt(addr, 'a'), " ", fmt(addr, 'i'), "\n");
320 0a61c07d 2004-04-19 devnull lst = tail lst;
324 0a61c07d 2004-04-19 devnull defn bpdel(addr) // delete a breakpoint
326 0a61c07d 2004-04-19 devnull local n, pc, nbplist;
328 0a61c07d 2004-04-19 devnull n = match(addr, bplist);
329 0a61c07d 2004-04-19 devnull if n < 0 then {
330 0a61c07d 2004-04-19 devnull print("no breakpoint at ", fmt(addr, 'a'), "\n");
331 0a61c07d 2004-04-19 devnull return {};
334 0a61c07d 2004-04-19 devnull addr = fmt(addr, bpfmt);
335 0a61c07d 2004-04-19 devnull *addr = @addr;
337 0a61c07d 2004-04-19 devnull nbplist = {}; // delete from list
338 0a61c07d 2004-04-19 devnull while bplist do {
339 0a61c07d 2004-04-19 devnull pc = head bplist;
340 0a61c07d 2004-04-19 devnull if pc != addr then
341 0a61c07d 2004-04-19 devnull nbplist = append nbplist, pc;
342 0a61c07d 2004-04-19 devnull bplist = tail bplist;
344 0a61c07d 2004-04-19 devnull bplist = nbplist; // delete from memory
347 0a61c07d 2004-04-19 devnull defn cont() // continue execution
349 0a61c07d 2004-04-19 devnull local addr;
351 0a61c07d 2004-04-19 devnull addr = fmt(*PC, bpfmt);
352 0a61c07d 2004-04-19 devnull if match(addr, bplist) >= 0 then { // Sitting on a breakpoint
353 0a61c07d 2004-04-19 devnull *addr = @addr;
354 0a61c07d 2004-04-19 devnull step(); // Step over
355 0a61c07d 2004-04-19 devnull *addr = bpinst;
357 0a61c07d 2004-04-19 devnull startstop(pid); // Run
360 0a61c07d 2004-04-19 devnull defn stopped(pid) // called from acid when a process changes state
362 0a61c07d 2004-04-19 devnull pstop(pid); // stub so this is easy to replace
365 0a61c07d 2004-04-19 devnull defn procs() // print status of processes
367 0a61c07d 2004-04-19 devnull local c, lst, cpid;
369 0a61c07d 2004-04-19 devnull cpid = pid;
370 0a61c07d 2004-04-19 devnull lst = proclist;
371 0a61c07d 2004-04-19 devnull while lst do {
372 0a61c07d 2004-04-19 devnull np = head lst;
373 0a61c07d 2004-04-19 devnull setproc(np);
374 0a61c07d 2004-04-19 devnull if np == cpid then
375 0a61c07d 2004-04-19 devnull c = '>';
377 0a61c07d 2004-04-19 devnull c = ' ';
378 0a61c07d 2004-04-19 devnull print(fmt(c, 'c'), np, ": ", status(np), " at ", fmt(*PC, 'a'), " setproc(", np, ")\n");
379 0a61c07d 2004-04-19 devnull lst = tail lst;
381 0a61c07d 2004-04-19 devnull pid = cpid;
382 0a61c07d 2004-04-19 devnull if pid != 0 then
383 0a61c07d 2004-04-19 devnull setproc(pid);
386 0a61c07d 2004-04-19 devnull _asmlines = 30;
388 0a61c07d 2004-04-19 devnull defn asm(addr)
390 0a61c07d 2004-04-19 devnull local bound;
392 0a61c07d 2004-04-19 devnull bound = fnbound(addr);
394 0a61c07d 2004-04-19 devnull addr = fmt(addr, 'i');
395 0a61c07d 2004-04-19 devnull loop 1,_asmlines do {
396 0a61c07d 2004-04-19 devnull print(fmt(addr, 'a'), " ", fmt(addr, 'X'));
397 0a61c07d 2004-04-19 devnull print("\t", @addr++, "\n");
398 0a61c07d 2004-04-19 devnull if bound != {} && addr > bound[1] then {
399 0a61c07d 2004-04-19 devnull lasmaddr = addr;
400 0a61c07d 2004-04-19 devnull return {};
403 0a61c07d 2004-04-19 devnull lasmaddr = addr;
406 0a61c07d 2004-04-19 devnull defn casm()
408 0a61c07d 2004-04-19 devnull asm(lasmaddr);
411 0a61c07d 2004-04-19 devnull defn win()
413 0a61c07d 2004-04-19 devnull local npid, estr;
415 0a61c07d 2004-04-19 devnull bplist = {};
416 0a61c07d 2004-04-19 devnull notes = {};
418 0a61c07d 2004-04-19 devnull estr = "/sys/lib/acid/window '0 0 600 400' "+textfile;
419 0a61c07d 2004-04-19 devnull if progargs != "" then
420 0a61c07d 2004-04-19 devnull estr = estr+" "+progargs;
422 0a61c07d 2004-04-19 devnull npid = rc(estr);
423 0a61c07d 2004-04-19 devnull npid = atoi(npid);
424 0a61c07d 2004-04-19 devnull if npid == 0 then
425 0a61c07d 2004-04-19 devnull error("win failed to create process");
427 0a61c07d 2004-04-19 devnull setproc(npid);
428 0a61c07d 2004-04-19 devnull stopped(npid);
431 0a61c07d 2004-04-19 devnull defn win2()
433 0a61c07d 2004-04-19 devnull local npid, estr;
435 0a61c07d 2004-04-19 devnull bplist = {};
436 0a61c07d 2004-04-19 devnull notes = {};
438 0a61c07d 2004-04-19 devnull estr = "/sys/lib/acid/transcript '0 0 600 400' '100 100 700 500' "+textfile;
439 0a61c07d 2004-04-19 devnull if progargs != "" then
440 0a61c07d 2004-04-19 devnull estr = estr+" "+progargs;
442 0a61c07d 2004-04-19 devnull npid = rc(estr);
443 0a61c07d 2004-04-19 devnull npid = atoi(npid);
444 0a61c07d 2004-04-19 devnull if npid == 0 then
445 0a61c07d 2004-04-19 devnull error("win failed to create process");
447 0a61c07d 2004-04-19 devnull setproc(npid);
448 0a61c07d 2004-04-19 devnull stopped(npid);
451 0a61c07d 2004-04-19 devnull defn new()
453 0a61c07d 2004-04-19 devnull bplist = {};
454 0a61c07d 2004-04-19 devnull newproc(progargs);
455 0a61c07d 2004-04-19 devnull // Dont miss the delay slot calls
456 0a61c07d 2004-04-19 devnull bpset(follow(main)[0]);
458 0a61c07d 2004-04-19 devnull bpdel(*PC);
461 0a61c07d 2004-04-19 devnull defn stmnt() // step one statement
463 0a61c07d 2004-04-19 devnull local line;
465 0a61c07d 2004-04-19 devnull line = pcline(*PC);
466 0a61c07d 2004-04-19 devnull while 1 do {
468 0a61c07d 2004-04-19 devnull if line != pcline(*PC) then {
469 0a61c07d 2004-04-19 devnull src(*PC);
470 0a61c07d 2004-04-19 devnull return {};
475 0a61c07d 2004-04-19 devnull defn func() // step until we leave the current function
477 0a61c07d 2004-04-19 devnull local bound, end, start, pc;
479 0a61c07d 2004-04-19 devnull bound = fnbound(*PC);
480 0a61c07d 2004-04-19 devnull if bound == {} then {
481 0a61c07d 2004-04-19 devnull print("cannot locate text symbol\n");
482 0a61c07d 2004-04-19 devnull return {};
485 0a61c07d 2004-04-19 devnull pc = *PC;
486 0a61c07d 2004-04-19 devnull start = bound[0];
487 0a61c07d 2004-04-19 devnull end = bound[1];
488 0a61c07d 2004-04-19 devnull while pc >= start && pc < end do {
490 0a61c07d 2004-04-19 devnull pc = *PC;
494 0a61c07d 2004-04-19 devnull defn next()
496 0a61c07d 2004-04-19 devnull local sp, bound;
498 0a61c07d 2004-04-19 devnull sp = *SP;
499 0a61c07d 2004-04-19 devnull bound = fnbound(*PC);
500 0a61c07d 2004-04-19 devnull stmnt();
501 0a61c07d 2004-04-19 devnull pc = *PC;
502 0a61c07d 2004-04-19 devnull if pc >= bound[0] && pc < bound[1] then
503 0a61c07d 2004-04-19 devnull return {};
505 0a61c07d 2004-04-19 devnull while (pc < bound[0] || pc > bound[1]) && sp >= *SP do {
507 0a61c07d 2004-04-19 devnull pc = *PC;
509 0a61c07d 2004-04-19 devnull src(*PC);
512 0a61c07d 2004-04-19 devnull defn maps()
514 0a61c07d 2004-04-19 devnull local m, mm;
516 0a61c07d 2004-04-19 devnull m = map();
517 0a61c07d 2004-04-19 devnull while m != {} do {
518 0a61c07d 2004-04-19 devnull mm = head m;
519 0a61c07d 2004-04-19 devnull m = tail m;
520 0a61c07d 2004-04-19 devnull print(mm[2]\X, " ", mm[3]\X, " ", mm[4]\X, " ", mm[0], " ", mm[1], "\n");
524 0a61c07d 2004-04-19 devnull defn dump(addr, n, fmt)
526 0a61c07d 2004-04-19 devnull loop 0, n do {
527 0a61c07d 2004-04-19 devnull print(fmt(addr, 'X'), ": ");
528 0a61c07d 2004-04-19 devnull addr = mem(addr, fmt);
532 0a61c07d 2004-04-19 devnull defn mem(addr, fmt)
535 0a61c07d 2004-04-19 devnull local i, c, n;
538 0a61c07d 2004-04-19 devnull while fmt[i] != 0 do {
539 0a61c07d 2004-04-19 devnull c = fmt[i];
541 0a61c07d 2004-04-19 devnull while '0' <= fmt[i] && fmt[i] <= '9' do {
542 0a61c07d 2004-04-19 devnull n = 10*n + fmt[i]-'0';
543 0a61c07d 2004-04-19 devnull i = i+1;
545 0a61c07d 2004-04-19 devnull if n <= 0 then n = 1;
546 0a61c07d 2004-04-19 devnull addr = fmt(addr, fmt[i]);
547 0a61c07d 2004-04-19 devnull while n > 0 do {
548 0a61c07d 2004-04-19 devnull print(*addr++, " ");
549 0a61c07d 2004-04-19 devnull n = n-1;
551 0a61c07d 2004-04-19 devnull i = i+1;
553 0a61c07d 2004-04-19 devnull print("\n");
554 0a61c07d 2004-04-19 devnull return addr;
557 0a61c07d 2004-04-19 devnull defn symbols(pattern)
559 0a61c07d 2004-04-19 devnull local l, s;
561 0a61c07d 2004-04-19 devnull l = symbols;
562 0a61c07d 2004-04-19 devnull while l do {
563 0a61c07d 2004-04-19 devnull s = head l;
564 0a61c07d 2004-04-19 devnull if regexp(pattern, s[0]) then
565 0a61c07d 2004-04-19 devnull print(s[0], "\t", s[1], "\t", s[2], "\t", s[3], "\n");
566 0a61c07d 2004-04-19 devnull l = tail l;
570 0a61c07d 2004-04-19 devnull defn havesymbol(name)
572 0a61c07d 2004-04-19 devnull local l, s;
574 0a61c07d 2004-04-19 devnull l = symbols;
575 0a61c07d 2004-04-19 devnull while l do {
576 0a61c07d 2004-04-19 devnull s = head l;
577 0a61c07d 2004-04-19 devnull l = tail l;
578 0a61c07d 2004-04-19 devnull if s[0] == name then
579 0a61c07d 2004-04-19 devnull return 1;
581 0a61c07d 2004-04-19 devnull return 0;
584 0a61c07d 2004-04-19 devnull defn spsrch(len)
586 0a61c07d 2004-04-19 devnull local addr, a, s, e;
588 0a61c07d 2004-04-19 devnull addr = *SP;
589 0a61c07d 2004-04-19 devnull s = origin & 0x7fffffff;
590 0a61c07d 2004-04-19 devnull e = etext & 0x7fffffff;
591 0a61c07d 2004-04-19 devnull loop 1, len do {
592 0a61c07d 2004-04-19 devnull a = *addr++;
593 0a61c07d 2004-04-19 devnull c = a & 0x7fffffff;
594 0a61c07d 2004-04-19 devnull if c > s && c < e then {
595 0a61c07d 2004-04-19 devnull print("src(", a, ")\n");
601 7284df18 2004-04-19 devnull defn acidtypes()
603 7284df18 2004-04-19 devnull local syms;
604 7284df18 2004-04-19 devnull local l;
606 7284df18 2004-04-19 devnull l = textfile();
607 7284df18 2004-04-19 devnull if l != {} then {
608 7284df18 2004-04-19 devnull syms = "acidtypes";
609 7284df18 2004-04-19 devnull while l != {} do {
610 7284df18 2004-04-19 devnull syms = syms + " " + ((head l)[0]);
611 7284df18 2004-04-19 devnull l = tail l;
613 7284df18 2004-04-19 devnull includepipe(syms);
617 0a61c07d 2004-04-19 devnull progargs="";
618 0a61c07d 2004-04-19 devnull print(acidfile);