Return to pfnc.c CVS log

Up to [Plan 9 NeXT] / lucent / sys / src / cmd / rc

Annotation of lucent/sys/src/cmd/rc/pfnc.c, revision 1.1.1.1

1.1       root        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:        Xread, "Xread",
                     22:        Xreturn, "Xreturn",
                     23:        Xtrue, "Xtrue",
                     24:        Xif, "Xif",
                     25:        Xwastrue, "Xwastrue",
                     26:        Xword, "Xword",
                     27:        Xwrite, "Xwrite",
                     28:        Xmatch, "Xmatch",
                     29:        Xcase, "Xcase",
                     30:        Xconc, "Xconc",
                     31:        Xassign, "Xassign",
                     32:        Xdol, "Xdol",
                     33:        Xcount, "Xcount",
                     34:        Xlocal, "Xlocal",
                     35:        Xunlocal, "Xunlocal",
                     36:        Xfn, "Xfn",
                     37:        Xdelfn, "Xdelfn",
                     38:        Xpipe, "Xpipe",
                     39:        Xpipewait, "Xpipewait",
                     40:        Xrdcmds, "Xrdcmds",
                     41:        (void (*)(void))Xerror, "Xerror",
                     42:        Xbackq, "Xbackq",
                     43:        Xpipefd, "Xpipefd",
                     44:        Xsubshell, "Xsubshell",
                     45:        Xdelhere, "Xdelhere",
                     46:        Xfor, "Xfor",
                     47:        Xglob, "Xglob",
                     48:        Xrdfn, "Xrdfn",
                     49:        Xsimple, "Xsimple",
                     50:        Xrdfn, "Xrdfn",
                     51:        Xqdol, "Xqdol",
                     52: 0};
                     53: void pfnc(io *fd, thread *t)
                     54: {
                     55:        int i;
                     56:        void (*fn)(void)=t->code[t->pc].f;
                     57:        list *a;
                     58:        pfmt(fd, "pid %d cycle %p %d ", getpid(), t->code, t->pc);
                     59:        for(i=0;fname[i].f;i++) if(fname[i].f==fn){
                     60:                pstr(fd, fname[i].name);
                     61:                break;
                     62:        }
                     63:        if(!fname[i].f) pfmt(fd, "%p", fn);
                     64:        for(a=t->argv;a;a=a->next) pfmt(fd, " (%v)", a->words);
                     65:        pchr(fd, '\n');
                     66:        flush(fd);
                     67: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.