+/*
+ * Print system stuff
+ */
+
+#define mask(x) (x&0377)
+#define clear(x) ((int)x&0x7fffffff)
+
+#include <sys/param.h>
+#include <sys/dir.h>
+#include <sys/file.h>
+#include <sys/user.h>
+#include <sys/proc.h>
+#include <sys/text.h>
+#include <sys/inode.h>
+#include <sys/map.h>
+#include <sys/tty.h>
+#include <sys/conf.h>
+#include <sys/vm.h>
+
+char *fcore = "/dev/kmem";
+char *fnlist = "/vmunix";
+int fc;
+
+struct setup {
+ char name[8];
+ int type;
+ unsigned value;
+} setup[] = {
+#define SINODE 0
+ "_inode", 0, 0,
+#define STEXT 1
+ "_text", 0, 0,
+#define SPROC 2
+ "_proc", 0, 0,
+#define SDZ 3
+ "_dz_tty", 0, 0,
+#define SNDZ 4
+ "_dz_cnt", 0, 0,
+#define SKL 5
+ "_cons", 0, 0,
+#define SFIL 6
+ "_file", 0, 0,
+#define SMPXC 7
+ "_mpx_cha", 0, 0,
+#define SMPXM 8
+ "_mpx_mac", 0, 0,
+#define SMPXB1 9
+ "_mptbc", 0, 0,
+#define SMPXB2 10
+ "_mptbuf", 0, 0,
+#define SMPSM 11
+ "_mpsm", 0, 0,
+ 0,
+};
+
+int inof;
+int txtf;
+int prcf;
+int ttyf;
+int mpxf;
+int usrf;
+long ubase;
+int filf;
+char partab[1];
+struct cdevsw cdevsw[1];
+struct bdevsw bdevsw[1];
+int allflg;
+int kflg;
+
+main(argc, argv)
+char **argv;
+{
+ register char *argp;
+
+ argc--, argv++;
+ while (argc > 0 && **argv == '-') {
+ argp = *argv++;
+ argp++;
+ argc--;
+ while (*argp++)
+ switch (argp[-1]) {
+
+ case 'a':
+ allflg++;
+ break;
+
+ case 'i':
+ inof++;
+ break;
+
+ case 'k':
+ kflg++;
+ fcore = "/vmcore";
+ break;
+
+ case 'x':
+ txtf++;
+ break;
+ case 'p':
+ prcf++;
+ break;
+
+ case 't':
+ ttyf++;
+ break;
+
+ case 'm':
+ mpxf++;
+ break;
+
+ case 'u':
+ if (argc == 0)
+ break;
+ argc--;
+ usrf++;
+ sscanf( *argv++, "%x", &ubase);
+ break;
+
+ case 'f':
+ filf++;
+ break;
+ }
+ }
+ if (argc>0)
+ fcore = argv[0];
+ if ((fc = open(fcore, 0)) < 0) {
+ printf("Can't find %s\n", fcore);
+ exit(1);
+ }
+ if (argc>1)
+ fnlist = argv[1];
+ nlist(fnlist, setup);
+ if (kflg) {
+ register struct setup *sp;
+ for (sp=setup; sp->value; sp++)
+ sp->value &= 0x7fffffff;
+ }
+ if (setup[SINODE].type == -1) {
+ printf("no namelist\n");
+ exit(1);
+ }
+ if (inof)
+ doinode();
+ if (txtf)
+ dotext();
+ if (ttyf)
+ dotty();
+ if (prcf)
+ doproc();
+ if (usrf)
+ dousr();
+ if (filf)
+ dofil();
+/*
+ if(mpxf)
+ dompx();
+*/
+}
+
+doinode()
+{
+ register struct inode *ip;
+ struct inode xinode[NINODE];
+ register int nin, loc;
+
+ nin = 0;
+ lseek(fc, (long)setup[SINODE].value, 0);
+ read(fc, xinode, sizeof(xinode));
+ for (ip = xinode; ip < &xinode[NINODE]; ip++)
+ if (ip->i_count)
+ nin++;
+ printf("%d active xinodes\n", nin);
+ printf(" LOC FLAGS CNT DEVICE INO MODE NLK UID SIZE/DEV\n");
+ loc = setup[SINODE].value;
+ for (ip = xinode; ip < &xinode[NINODE]; ip++, loc += sizeof(xinode[0])) {
+ if (ip->i_count == 0)
+ continue;
+ printf("%8.1x ", loc);
+ putf(ip->i_flag&ILOCK, 'L');
+ putf(ip->i_flag&IUPD, 'U');
+ putf(ip->i_flag&IACC, 'A');
+ putf(ip->i_flag&IMOUNT, 'M');
+ putf(ip->i_flag&IWANT, 'W');
+ putf(ip->i_flag&ITEXT, 'T');
+ printf("%4d", ip->i_count&0377);
+ printf("%4d,%3d", major(ip->i_dev), minor(ip->i_dev));
+ printf("%5l", ip->i_number);
+ printf("%6x", ip->i_mode & 0xffff);
+ printf("%4d", ip->i_nlink);
+ printf("%4d", ip->i_uid);
+ if ((ip->i_mode&IFMT)==IFBLK || (ip->i_mode&IFMT)==IFCHR)
+ printf("%6d,%3d", major(ip->i_un.i_rdev), minor(ip->i_un.i_rdev));
+ else
+ printf("%10ld", ip->i_size);
+ printf("\n");
+ }
+}
+
+putf(v, n)
+{
+ if (v)
+ printf("%c", n);
+ else
+ printf(" ");
+}
+
+dotext()
+{
+ register struct text *xp;
+ struct text xtext[NTEXT];
+ register loc;
+ int ntx;
+
+ ntx = 0;
+ lseek(fc, (long)setup[STEXT].value, 0);
+ read(fc, xtext, sizeof(xtext));
+ for (xp = xtext; xp < &xtext[NTEXT]; xp++)
+ if (xp->x_iptr!=NULL)
+ ntx++;
+ printf("%d text segments\n", ntx);
+ printf(" LOC FLAGS DADDR CADDR RSS SIZE IPTR CNT CCNT\n");
+ loc = setup[STEXT].value;
+ for (xp = xtext; xp < &xtext[NTEXT]; xp++, loc+=sizeof(xtext[0])) {
+ if (xp->x_iptr == NULL)
+ continue;
+ printf("%8.1x", loc);
+ printf(" ");
+ putf(xp->x_flag&XPAGI, 'P');
+ putf(xp->x_flag&XTRC, 'T');
+ putf(xp->x_flag&XWRIT, 'W');
+ putf(xp->x_flag&XLOAD, 'L');
+ putf(xp->x_flag&XLOCK, 'K');
+ putf(xp->x_flag&XWANT, 'w');
+ printf("%5x", xp->x_daddr);
+ printf("%11x", xp->x_caddr);
+ printf("%5d", xp->x_rssize);
+ printf("%5d", xp->x_size);
+ printf("%10.1x", xp->x_iptr);
+ printf("%5d", xp->x_count&0377);
+ printf("%4d", xp->x_ccount);
+ printf("\n");
+ }
+}
+
+doproc()
+{
+ struct proc xproc[NPROC];
+ register struct proc *pp;
+ register loc, np;
+
+ lseek(fc, (long)setup[SPROC].value, 0);
+ read(fc, xproc, sizeof(xproc));
+ np = 0;
+ for (pp=xproc; pp < &xproc[NPROC]; pp++)
+ if (pp->p_stat)
+ np++;
+ printf("%d processes\n", np);
+ printf(" LOC S F POIP PRI SIG UID SLP TIM CPU NI PGRP PID PPID ADDR RSS SRSS SIZE WCHAN LINK TEXTP CLKT\n");
+ for (loc=setup[SPROC].value,pp=xproc; pp<&xproc[NPROC]; pp++,loc+=sizeof(xproc[0])) {
+ if (pp->p_stat==0 && allflg==0)
+ continue;
+ printf("%8x", loc);
+ printf(" %2d", pp->p_stat);
+ printf(" %4x", pp->p_flag & 0xffff);
+ printf(" %4d", pp->p_poip);
+ printf(" %3d", pp->p_pri);
+ printf(" %4x", pp->p_sig);
+ printf(" %4d", pp->p_uid);
+ printf(" %3d", pp->p_slptime);
+ printf(" %3d", pp->p_time);
+ printf(" %4d", pp->p_cpu&0377);
+ printf(" %3d", pp->p_nice);
+ printf(" %6d", pp->p_pgrp);
+ printf(" %6d", pp->p_pid);
+ printf(" %6d", pp->p_ppid);
+ printf(" %8x", pp->p_addr[0]);
+ printf(" %4x", pp->p_rssize);
+ printf(" %4x", pp->p_swrss);
+ printf(" %5x", pp->p_dsize+pp->p_ssize);
+ printf(" %7x", clear(pp->p_wchan));
+ printf(" %7x", clear(pp->p_link));
+ printf(" %7x", clear(pp->p_textp));
+ printf(" %u", pp->p_clktim);
+ printf("\n");
+ }
+}
+
+dotty()
+{
+ struct tty dz_tty[32];
+ int ndz;
+ register struct tty *tp;
+ register char *mesg;
+
+ printf("1 cons\n");
+ lseek(fc, (long)setup[SKL].value, 0);
+ read(fc, dz_tty, sizeof(dz_tty[0]));
+ mesg = " RAW CAN OUT MODE ADDR DEL COL STATE PGRP\n";
+ printf(mesg);
+ ttyprt(&dz_tty[0]);
+ if (setup[SNDZ].type == -1)
+ return;
+ lseek(fc, (long)setup[SNDZ].value, 0);
+ read(fc, &ndz, sizeof(ndz));
+ printf("%d dz lines\n", ndz);
+ lseek(fc, (long)setup[SDZ].value, 0);
+ read(fc, dz_tty, sizeof(dz_tty));
+ for (tp = dz_tty; tp < &dz_tty[ndz]; tp++)
+ ttyprt(tp);
+}
+
+ttyprt(atp)
+struct tty *atp;
+{
+ register struct tty *tp;
+
+ tp = atp;
+ printf("%4d", tp->t_rawq.c_cc);
+ printf("%4d", tp->t_canq.c_cc);
+ printf("%4d", tp->t_outq.c_cc);
+ printf("%8.1o", tp->t_flags);
+ printf(" %8.1x", tp->t_addr);
+ printf("%3d", tp->t_delct);
+ printf("%4d ", tp->t_col);
+ putf(tp->t_state&TIMEOUT, 'T');
+ putf(tp->t_state&WOPEN, 'W');
+ putf(tp->t_state&ISOPEN, 'O');
+ putf(tp->t_state&CARR_ON, 'C');
+ putf(tp->t_state&BUSY, 'B');
+ putf(tp->t_state&ASLEEP, 'A');
+ putf(tp->t_state&XCLUDE, 'X');
+/*
+ putf(tp->t_state&HUPCLS, 'H');
+ */
+ printf("%6d", tp->t_pgrp);
+ printf("\n");
+}
+
+dousr()
+{
+ struct user U;
+ register i, j, *ip;
+
+ /* This wins only if PAGSIZ > sizeof (struct user) */
+ lseek(fc, ubase * NBPG, 0);
+ read(fc, &U, sizeof(U));
+/*
+ printf("rsav %.1o %.1o\n", U.u_rsav[0], U.u_rsav[1]);
+ */
+ printf("segflg, error %d, %d\n", U.u_segflg, U.u_error);
+ printf("uids %d,%d,%d,%d\n", U.u_uid,U.u_gid,U.u_ruid,U.u_rgid);
+ printf("procp %.1x\n", U.u_procp);
+ printf("base, count, offset %.1x %.1x %ld\n", U.u_base,
+ U.u_count, U.u_offset);
+ printf("cdir %.1x\n", U.u_cdir);
+ printf("dbuf %.14s\n", U.u_dbuf);
+ printf("dirp %.1x\n", U.u_dirp);
+ printf("dent %d %.14s\n", U.u_dent.d_ino, U.u_dent.d_name);
+ printf("pdir %.1o\n", U.u_pdir);
+/*
+ printf("dseg");
+ for (i=0; i<8; i++)
+ printf("%8.1o", U.u_uisa[i]);
+ printf("\n ");
+ for (i=0; i<8; i++)
+ printf("%8.1o", U.u_uisd[i]);
+ if (U.u_sep) {
+ printf("\ntseg");
+ for (i=8; i<16; i++)
+ printf("%8.1o", U.u_uisa[i]);
+ printf("\n ");
+ for (i=8; i<16; i++)
+ printf("%8.1o", U.u_uisd[i]);
+ }
+ */
+ printf("\nfile");
+ for (i=0; i<10; i++)
+ printf("%9.1x", U.u_ofile[i]);
+ printf("\n ");
+ for (i=10; i<NOFILE; i++)
+ printf("%9.1x", U.u_ofile[i]);
+ printf("\nargs");
+ for (i=0; i<5; i++)
+ printf(" %.1x", U.u_arg[i]);
+ printf("\nsizes %.1x %.1x %.1x\n", U.u_tsize, U.u_dsize, U.u_ssize);
+ printf("sep %d\n", U.u_sep);
+ printf("qsav %.1x %.1x\n", U.u_qsav[0], U.u_qsav[1]);
+ printf("ssav %.1x %.1x\n", U.u_ssav[0], U.u_ssav[1]);
+ printf("sigs");
+ for (i=0; i<NSIG; i++)
+ printf(" %.1x", U.u_signal[i]);
+ printf("\ntimes %ld %ld\n", U.u_utime/60, U.u_stime/60);
+ printf("ctimes %ld %ld\n", U.u_cutime/60, U.u_cstime/60);
+ printf("ar0 %.1x\n", U.u_ar0);
+/*
+ printf("prof");
+ for (i=0; i<4; i++)
+ printf(" %.1o", U.u_prof[i]);
+*/
+ printf("\nintflg %d\n", U.u_intflg);
+ printf("ttyp %.1x\n", U.u_ttyp);
+ printf("ttydev %d,%d\n", major(U.u_ttyd), minor(U.u_ttyd));
+ printf("comm %.14s\n", U.u_comm);
+/*
+ i = U.u_stack - &U;
+ while (U[++i] == 0);
+ i &= ~07;
+ while (i < 512) {
+ printf("%x ", 0140000+2*i);
+ for (j=0; j<8; j++)
+ printf("%9x", U[i++]);
+ printf("\n");
+ }
+*/
+}
+
+oatoi(s)
+char *s;
+{
+ register v;
+
+ v = 0;
+ while (*s)
+ v = (v<<3) + *s++ - '0';
+ return(v);
+}
+
+dofil()
+{
+ struct file xfile[NFILE];
+ register struct file *fp;
+ register nf;
+ int loc;
+
+ nf = 0;
+ lseek(fc, (long)setup[SFIL].value, 0);
+ read(fc, xfile, sizeof(xfile));
+ for (fp=xfile; fp < &xfile[NFILE]; fp++)
+ if (fp->f_count)
+ nf++;
+ printf("%d open files\n", nf);
+ printf(" LOC FLG CNT INO OFFS\n");
+ for (fp=xfile,loc=setup[SFIL].value; fp < &xfile[NFILE]; fp++,loc+=sizeof(xfile[0])) {
+ if (fp->f_count==0)
+ continue;
+ printf("%8x ", loc);
+ putf(fp->f_flag&FREAD, 'R');
+ putf(fp->f_flag&FWRITE, 'W');
+ putf(fp->f_flag&FPIPE, 'P');
+ printf("%4d", mask(fp->f_count));
+ printf("%9.1x", fp->f_inode);
+ printf(" %ld\n", fp->f_un.f_offset);
+ }
+}
+
+/*********
+#include <sys/mpx.h>
+dompx()
+{
+ struct chan chan[C];
+ struct mach mach[M];
+ struct line line[M-1];
+ int mptbc;
+ char mptbuf[TBSIZ];
+ register struct chan *cp;
+ register struct mach *mp;
+ register struct line *lp;
+ int loc, nc;
+
+ lseek(fc, (long)setup[SMPXC].value, 0);
+ read(fc, chan, sizeof(chan));
+ lseek(fc, (long)setup[SMPXM].value, 0);
+ read(fc, mach, sizeof(mach));
+ lseek(fc, (long)setup[SMPXB1].value, 0);
+ read(fc, &mptbc, sizeof(mptbc));
+ lseek(fc, (long)setup[SMPXB2].value, 0);
+ read(fc, mptbuf, sizeof(mptbuf));
+ lseek(fc, (long)setup[SMPSM].value, 0);
+ read(fc, line, sizeof(line));
+ nc = 0;
+ for(cp=chan; cp < &chan[C]; cp++)
+ if(cp->cflag&ALLOC)
+ nc++;
+ printf("%d mpx channels\n", nc);
+ printf(" LOC FLG M C DEST\n");
+ for(cp=chan,loc=setup[SMPXC].value; cp < &chan[C]; cp++,loc=+sizeof(chan[0])) {
+ if((cp->cflag&ALLOC) == 0)
+ continue;
+ printf("%7.1o ", loc);
+ putf(cp->cflag&BLOCK, 'B');
+ putf(cp->cflag&WWAIT, 'B');
+ putf(cp->cflag&CRUN, 'R');
+ putf(cp->cflag&RWAIT, 'W');
+ putf(cp->cflag&ALLOC, 'A');
+ putf(cp->cflag&DIS, 'D');
+ putf(cp->cflag&DLY, 'D');
+ printf(" %1d %3d ", mask(cp->m), mask(cp->c));
+ printf("%7.1o ", cp->dest);
+ printf("\n");
+ }
+
+ printf("%d mpx machines\n", M);
+ printf(" LOC FLG RCH RCN XCH XCN\n");
+ for(mp=mach,loc=setup[SMPXM].value; mp < &mach[M]; mp++,loc=+sizeof(mach[0])) {
+ printf("%7.1o ", loc);
+ putf(mp->mflag&RNEXT, 'N');
+ putf(mp->mflag&MRUN, 'R');
+ putf(mp->mflag&XNEXT, 'N');
+ printf(" %3d", mask(mp->rchan));
+ printf(" %3d", mask(mp->rcount));
+ printf(" %3d", mask(mp->xchan));
+ printf(" %3d", mask(mp->xcount));
+ for(nc=0; nc<128; nc++) {
+ cp = mp->chanp[nc];
+ if(cp == 0)
+ continue;
+ printf(" %d-%o", nc, cp);
+ }
+ printf("\n");
+ }
+ printf("%d mpx lines\n", M-1);
+ printf(" LOC RSQ XSQ AKF XMF STE TIM SUM\n");
+ for(lp=line,loc=setup[SMPSM].value; lp < &line[M-1]; lp++, loc =+ sizeof(line[0])) {
+ printf("%7.1o ", loc);
+ printf("%3o ", lp->rseq);
+ printf("%3o ", lp->xseq);
+ printf("%3o ", lp->ackf);
+ printf("%3o ", lp->xflag);
+ printf("%3d ", lp->state);
+ printf("%3d ", lp->time);
+ printf("%7o\n", lp->sum);
+ }
+ printf("last characters recieved\n");
+ nc = -1;
+ loc = mptbc;
+ for(;;) {
+ if(nc != mptbuf[loc]) {
+ if(nc >= 0)
+ printf(")\n");
+ nc = mptbuf[loc];
+ printf("%d(", nc);
+ } else
+ printf(",");
+ loc++;
+ if(loc >= TBSIZ)
+ loc = 0;
+ if(loc == mptbc)
+ break;
+ printf("%o", mask(mptbuf[loc]));
+ loc++;
+ if(loc >= TBSIZ)
+ loc = 0;
+ if(loc == mptbc)
+ break;
+ }
+ printf(")\n");
+}
+*********/