1 #include "rc.h"
2 #include "exec.h"
3 #include "io.h"
4 #include "fns.h"
5 struct{
6 	void (*f)(void);
7 	char *name;
8 }fname[] = {
9 	Xappend, "Xappend",
10 	Xasync, "Xasync",
11 	Xbang, "Xbang",
12 	Xclose, "Xclose",
13 	Xdup, "Xdup",
14 	Xeflag, "Xeflag",
15 	Xexit, "Xexit",
16 	Xfalse, "Xfalse",
17 	Xifnot, "Xifnot",
18 	Xjump, "Xjump",
19 	Xmark, "Xmark",
20 	Xpopm, "Xpopm",
21 	Xrdwr, "Xrdwr",
22 	Xread, "Xread",
23 	Xreturn, "Xreturn",
24 	Xtrue, "Xtrue",
25 	Xif, "Xif",
26 	Xwastrue, "Xwastrue",
27 	Xword, "Xword",
28 	Xwrite, "Xwrite",
29 	Xmatch, "Xmatch",
30 	Xcase, "Xcase",
31 	Xconc, "Xconc",
32 	Xassign, "Xassign",
33 	Xdol, "Xdol",
34 	Xcount, "Xcount",
35 	Xlocal, "Xlocal",
36 	Xunlocal, "Xunlocal",
37 	Xfn, "Xfn",
38 	Xdelfn, "Xdelfn",
39 	Xpipe, "Xpipe",
40 	Xpipewait, "Xpipewait",
41 	Xrdcmds, "Xrdcmds",
42 	(void (*)(void))Xerror, "Xerror",
43 	Xbackq, "Xbackq",
44 	Xpipefd, "Xpipefd",
45 	Xsubshell, "Xsubshell",
46 	Xdelhere, "Xdelhere",
47 	Xfor, "Xfor",
48 	Xglob, "Xglob",
49 	Xrdfn, "Xrdfn",
50 	Xsimple, "Xsimple",
51 	Xrdfn, "Xrdfn",
52 	Xqdol, "Xqdol",
53 0};
54 
55 void
56 pfnc(io *fd, thread *t)
57 {
58 	int i;
59 	void (*fn)(void) = t->code[t->pc].f;
60 	list *a;
61 	pfmt(fd, "pid %d cycle %p %d ", getpid(), t->code, t->pc);
62 	for(i = 0;fname[i].f;i++) if(fname[i].f==fn){
63 		pstr(fd, fname[i].name);
64 		break;
65 	}
66 	if(!fname[i].f)
67 		pfmt(fd, "%p", fn);
68 	for(a = t->argv;a;a = a->next) pfmt(fd, " (%v)", a->words);
69 	pchr(fd, '\n');
70 	flush(fd);
71 }