#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create:
# README
# Makefile
# crash.c
# interact.c
# files.c
# inodes.c
# mounts.c
# procs.c
# texts.c
# user.c
# vars.c
# stats.c
# bufs.c
# syms.c
# devs.c
# expr.c
# od.c
# ttys.c
# crash.h
# This archive created: Wed Feb 27 09:38:49 1991
# By: John F Haugh II (River Parishes Programming, Austin TX)
export PATH; PATH=/bin:/usr/bin:$PATH
echo shar: "extracting 'README'" '(8001 characters)'
if test -f 'README'
then
echo shar: "will not over-write existing file 'README'"
else
sed 's/^X//' << \SHAR_EOF > 'README'
Xcrash(1L) Version 2.0 08/11/88
X
XIntroduction
X
XCrash is a utility for examining kernel tables while the system is
Xrunning, or if there is a facility for taking crash dumps, examining the
Xsystem after it has crashed. SCO does not provide a crash dump facility
Xat this time, so that functionality is not present.
X
XThe kernel structures which can be examined at present are:
X
X block buffer headers
X open file table entries
X active inode table entries
X mounted file system table entries
X process table entries
X system statistics such as name, version, age
X active and sticky bit text table entries
X tty structures
X system namelist
X per process user page information
X tunable parameters
X arbitrary kernel memory addresses
X
XUsing this information, it is possible to determine what files a given
Xprocess is using, what device they reside on, who owns them and where
Xthe file pointer is currently positioned. Other information on running
Xprocesses may also be determined.
X
XThis version of crash differs from most other versions, such as that
Xproduced by AT&T for their UNIX(tm) systems, in that swapped user pages
Xmay be printed and the name for swapped processes is given. Also, not
Xall of the aliases which are listed in the manual page from AT&T are
Xprovided. A number of commands have been left out, and some of the
Xoptions for the included commands have been omitted as well.
X
XCommands
X
XMost commands take a list of table entries, which if not present
Xdefaults to all elements in the table.
X
XPrint Buffer Headers
XSyntax: buf, b
X
XPrints the selected block buffer headers.
X
XExample:
X> buf 0 1 2 3 4
X BUF MAJ MIN BLOCK FLAGS
X 0 001 0047 20925 read done
X 1 001 0037 2817 read done
X 2 001 0050 2801 read done
X 3 001 0037 15175 read done
X 4 001 0050 6 done
X
XPrint Open File Table Entries
XSyntax: file, f
X
XPrints the selected open file table entries, with cross references
Xto the associated inodes, and the current file pointer.
X
XExample:
X> file 0 1 2 3 4
XSLOT FLAG COUNT INODE OFFSET
X 0 001 R 1 9 0
X 1 003 RW 3 3 18
X 2 003 RW 7 11 26800
X 3 002 W 2 4 169
X 4 001 R 1 8 0
X
XDisplay Command Summary
XSyntax: help, h, ?
X
XPrints the list of currently available commands and the aliases
Xfor them.
X
XExample:
X> help
Xcommand summary
X
Xbuf (b) - buffer headers
Xfile (f) - open files
Xhelp (h,?) - list commands
Xinode (ino,i) - active inodes
Xmount (m) - mounted file systems
Xproc (p) - active and defunct processes
Xquit (q,^D) - exit crash
Xstat (s) - crash statistics, age, time
Xtext (t) - active and sticky bit text segments
Xuser (u) - user page information
Xvar (v) - tunable parameters
X
XDisplay Active Inode Table Entries
XSyntax: inode, ino, i
X
XPrints selected active inode table entries giving device, file
Xsize, permissions, and owners. Cross referenced from mount and
Xfile tables.
X
XExample:
X> inode 0 2 6 8 20
XSLOT MAJ MIN INUMB REF LINK UID GID SIZE MODE SMAJ SMIN FLAGS
X 0 001 0050 2 5 13 0 0 464 d---755 - -
X 2 001 0050 44 1 1 3 3 13472 f---700 - - txt
X 6 001 0050 204 1 2 0 0 32 d---777 - - mnt
X 8 001 0050 87 2 1 10 10 0 c---666 0004 0002
X 20 001 0050 471 1 1 3 3 50102 f---711 - - acc txt
X
XDisplay Mounted File System Table Entries
XSyntax: mount, m
X
XPrints the system entries for mounted on file systems. The
Xdevice, mount point, file system sizes and free blocks and inodes
Xare displayed.
X
XExample:
X> mount
XSLOT MAJ MIN INODE BUF VOLUME PACK BLOCKS INODES BFREE IFREE
X 0 1 050 0 10 7163 1808 1237 1251
X 1 1 037 6 230 usr rpp386 34000 17024 1320 14238
X 2 1 047 7 245 22950 15024 5499 9800
X 3 2 064 23 387 1200 320 210 50
X
XDisplay Process Table Entries
XSyntax: proc, p
X
XPrints selected running and defunct process information. The process
Xids, user ids, CPU usage, scheduling priority and wait event are
Xdisplayed. The process name is determined by locating the user page.
X
XExample:
X> proc 0 1 2 3 4
XSLT ST PID PPID PGRP UID EUID PRI CPU EVENT NAME FLAGS
X 0 s 0 0 0 0 0 0 15 16c5c swapper incore sched
X 1 s 1 0 0 0 0 30 0 eeac init incore text
X 2 s 9389 1 9389 100 100 30 0 ef54 csh incore text
X 3 s 31 1 0 0 0 26 0 5eac logger swapped
X 4 s 30 1 0 0 0 40 0 6000000 update incore text
X
XExit Crash Command
XSyntax: quit, q, ^D
X
XExits Crash.
X
XExample:
X> quit
X$
X
XPrint System Statics
XSyntax: stat, s
X
XPrints information regarding system name, operating system release, version,
Xdate of crash, and uptime at time of crash.
X
XExample:
X> stat
X sysname: XENIX
X nodename: rpp386
X release: 2.2.1
X version: SysV
X machine: i80386
X time of crash: Thu Aug 11 11:18:00 1988
X age of system: 35 days, 23 hrs., 7 mins.
X
XPrint Text Table Entries
XSyntax: text, t
X
XPrints current text table entries. Cross references to inode number
Xand process table entry and gives the number of processes which are
Xcurrently referencing this table entry.
XExample:
X> text 0 1 2 3 4
XSLOT INODE REF LDREF PROC SWAPLO+ SIZE FLAGS
X 0 2 1 1 1 0 0 write
X 1 20 2 1 9 0 0 write
X 2 5 1 1 4 0 0 write
X 3 10 1 0 0 0 0 write
X 4 21 1 1 10 0 0 write
X
XPrint Per Process User Page Information
XSyntax: user, u
X
XPrints the user page for the current process or a group of processes.
XThe argument is the process table slot. If omitted, the currently
Xrunning process, which will invariably be crash, user page will be
Xdisplayed. Information includes user and system times, user and
Xgroup ids, file I/O, system accounting and open file information.
XProvides a list of currently open files by file table entry number.
X
XExample:
X> user
XPER PROCESS USER AREA:
XUSER ID's: uid: 100, gid: 0, real uid: 100, real gid: 0
XPROCESS TIMES: user: 16, sys: 22, child user: 0, child sys: 0
XPROCESS MISC: proc slot: 10, cntrl tty: maj(0) min(0)
XIPC: locks: unlocked
XFILE I/O: user addr: 25703640, file offset: 100665344, bytes: 1892,
X segment: user, umask: 22, ulimit: 2097152
XACCOUNTING: command: crash, memory: 1987167, type: exec
X start: Thu Aug 11 11:28:10 1988
XOPEN FILES: file desc: 0 1 2 3 4 5
X file slot: 11 13 13 18 19 20
X
XPrint Tunable Parameter Information
XSyntax: var, v
X
XDisplays the tunable parameter values which were used at the time
Xof system generation. Included are number of open files, processes
Xper user, inodes, mounts, pure text entries and other related
Xinformation.
X
XExample:
X> var
Xbuffers 512
Xcalls 30
Xinodes 100
Xe_inodes 100
Xfiles 100
Xe_files 100
Xmounts 8
Xe_mounts 8
Xprocs 60
Xe_procs 16
Xtexts 40
Xe_texts 40
Xclists 64
Xsabufs 64
Xmaxproc 30
Xhashbuf 512
Xhashmask 511
X
XCaveats and Features
X
XThis release of crash is known to run under SCO Xenix 2.2.3. No other
Xports are presently known of. For the most part, porting to a different
Xrelease of Xenix should be quite painless. The principle changes are
Xlikely to be in the user area, process table entries, and system namelist
Xfunctions.
X
XNone of the options are presently implemented. Commands which have been
Ximplemented have only one format.
X
XMost of the commands are available as command line options. Use the one
Xletter command alias as the command line option. The output defaults
Xto what it would be if that one letter alias were issued to crash as a
Xcommand. Multiple flags may be given. When in doubt, read the source.
SHAR_EOF
if test 8001 -ne "`wc -c < 'README'`"
then
echo shar: "error transmitting 'README'" '(should have been 8001 characters)'
fi
fi
echo shar: "extracting 'Makefile'" '(1540 characters)'
if test -f 'Makefile'
then
echo shar: "will not over-write existing file 'Makefile'"
else
sed 's/^X//' << \SHAR_EOF > 'Makefile'
X# Copyright 1988, John F. Haugh II
X# All rights reserved.
X#
X# Permission is granted to copy and create derivative works for any
X# non-commercial purpose, provided this copyright notice is preserved
X# in all copies of source code, or included in human readable form
X# and conspicuously displayed on all copies of object code or
X# distribution media.
X#
X# %W% %U% %G%
X#
X# Your favorite Bourne Shell and Mine ...
XSHELL=/bin/sh
X# A list of all object files which need to be made
XOBJS = crash.o interact.o files.o inodes.o mounts.o procs.o texts.o \
X user.o vars.o stats.o bufs.o syms.o devs.o expr.o od.o ttys.o
X# A list of C files and such for sharchiving
XFILES = README Makefile \
X crash.c interact.c files.c inodes.c mounts.c procs.c texts.c \
X user.c vars.c stats.c bufs.c syms.c devs.c expr.c od.c ttys.c \
X crash.h
X# C flags, suitable for debugging or production.
XCFLAGS = -c -Ox -g
XGFLAGS = -t -r2
X
Xcrash: $(OBJS)
X cc -o crash -g $(OBJS)
X
Xclean:
X rm -f *.o a.out
X
Xclobber: clean
X rm -f crash core
X
Xnuke: clobber
X -for file in * ; do \
X if [ -f s.$$file -a ! -f p.$$file ] ; then \
X rm -f $$file ;\
X fi ;\
X done
X
XREADME:
X get -p $(GFLAGS) s.README > README
X
Xshar: $(FILES)
X shar -a $(FILES) > crash.shar
X
Xcrash.o: crash.h crash.c
X
Xinteract.o: interact.c
X
Xfiles.o: crash.h files.c
X
Xinodes.o: crash.h inodes.c
X
Xmounts.o: crash.h mounts.c
X
Xprocs.o: crash.h procs.c
X
Xstats.o: crash.h stats.c
X
Xtexts.o: crash.h texts.c
X
Xuser.o: crash.h user.c
X
Xvars.o: crash.h vars.c
X
Xbufs.o: crash.h bufs.c
X
Xdevs.o: crash.h devs.c
X
Xttys.o: crash.h ttys.c
X
SHAR_EOF
if test 1540 -ne "`wc -c < 'Makefile'`"
then
echo shar: "error transmitting 'Makefile'" '(should have been 1540 characters)'
fi
fi
echo shar: "extracting 'crash.c'" '(4818 characters)'
if test -f 'crash.c'
then
echo shar: "will not over-write existing file 'crash.c'"
else
sed 's/^X//' << \SHAR_EOF > 'crash.c'
X/*
X * Copyright 1988, 1991, John F. Haugh II
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)crash.c 2.1 07:11:33 2/27/91";
X#endif
X
X#include <sys/param.h>
X#include <sys/sysmacros.h>
X#include <sys/types.h>
X#include <sys/page.h>
X#include <sys/seg.h>
X#include <sys/proc.h>
X#include <sys/signal.h>
X#include <sys/dir.h>
X#include <sys/user.h>
X#include <sys/var.h>
X#include <sys/utsname.h>
X#include <sys/conf.h>
X#include <fcntl.h>
X#include <stdio.h>
X#include "crash.h"
X
Xint memfd;
Xint kmemfd;
Xint swapfd;
X
Xint bflag;
Xint fflag;
Xint iflag;
Xint mflag;
Xint pflag;
Xint sflag;
Xint tflag;
Xint uflag;
Xint vflag;
X
Xint anyflag;
X
Xstruct var v;
Xstruct file *files;
Xstruct inode *inodes;
Xstruct text *texts;
Xstruct proc *procs;
Xstruct mount *mounts;
Xstruct buf *bufs;
Xstruct buf *bufstart;
Xstruct cdevsw *Cdevsw;
Xstruct bdevsw *Bdevsw;
Xint Cdevcnt;
Xint Bdevcnt;
Xstruct user user;
Xdaddr_t swplo;
Xstruct utsname utsname;
Xtime_t ktime;
Xtime_t klbolt;
X
Xstruct xlist namelist[] = {
X { 0, 0, 0, "_v" },
X { 0, 0, 0, "_file" },
X { 0, 0, 0, "_inode" },
X { 0, 0, 0, "_proc" },
X { 0, 0, 0, "_text" },
X { 0, 0, 0, "_mount" },
X { 0, 0, 0, "_bufstrt" },
X { 0, 0, 0, "_swplo" },
X { 0, 0, 0, "_time" },
X { 0, 0, 0, "_lbolt" },
X { 0, 0, 0, "_utsname" },
X { 0, 0, 0, "_u" },
X { 0, 0, 0, "_cdevcnt" },
X { 0, 0, 0, "_cdevsw" },
X { 0, 0, 0, "_bdevcnt" },
X { 0, 0, 0, "_bdevsw" },
X { 0, 0, 0, (char *) 0 }
X};
X
Xusage ()
X{
X fprintf (stderr, "usage: crash -bfimpstv [ -N namelist ] ");
X fprintf (stderr, "[ -C corefile ] [ -S swapfile ]\n");
X exit (1);
X}
X
Xr_read (fd, buf, n)
Xint fd;
Xchar *buf;
Xint n;
X{
X int i;
X
X if ((i = read (fd, buf, n)) == -1) {
X perror ("error on read");
X return (-1);
X } else
X return (i);
X}
X
Xlong l_lseek (fd, offs, whence)
Xint fd;
Xlong offs;
Xint whence;
X{
X long i;
X long lseek ();
X
X if ((i = lseek (fd, offs, whence)) == -1L) {
X perror ("error on lseek");
X return (-1);
X } else
X return (i);
X}
X
Xmain (argc, argv)
Xint argc;
Xchar **argv;
X{
X char newname[10];
X char *namefile = "/xenix";
X char *corefile = "/dev/mem";
X char *kmemfile = "/dev/kmem";
X char *swapfile = "/dev/swap";
X int c;
X extern int optind;
X extern char *optarg;
X
X setbuf (stdout, NULL);
X setbuf (stderr, NULL);
X
X while ((c = getopt (argc, argv, "bfimpstuvN:C:S:")) != EOF) {
X switch (c) {
X case 'b':
X bflag++;
X anyflag++;
X break;
X case 'C':
X corefile = optarg;
X kmemfile = optarg;
X break;
X case 'f':
X fflag++;
X anyflag++;
X break;
X case 'i':
X iflag++;
X anyflag++;
X break;
X case 'm':
X mflag++;
X anyflag++;
X break;
X case 'N':
X namefile = optarg;
X break;
X case 'p':
X pflag++;
X anyflag++;
X break;
X case 's':
X sflag++;
X anyflag++;
X break;
X case 'S':
X swapfile = optarg;
X break;
X case 't':
X tflag++;
X anyflag++;
X break;
X case 'u':
X uflag++;
X anyflag++;
X break;
X case 'v':
X vflag++;
X anyflag++;
X break;
X default:
X usage ();
X }
X }
X if (xlist (namefile, namelist) != 0) {
X perror ("pstat: namelist");
X exit (1);
X }
X if (initsyms (namefile)) {
X fprintf (stderr, "unable to initialize symbol table\n");
X exit (1);
X }
X if ((memfd = open (corefile, O_RDONLY)) < 0) {
X perror ("pstat: corefile");
X exit (1);
X }
X if ((kmemfd = open (kmemfile, O_RDONLY)) < 0) {
X perror ("pstat: kmemfile");
X exit (1);
X }
X if ((swapfd = open (swapfile, O_RDONLY)) < 0) {
X perror ("pstat: swapfile");
X exit (1);
X }
X l_lseek (kmemfd, namelist[NM_V].xl_value, 0);
X r_read (kmemfd, &v, sizeof v);
X l_lseek (kmemfd, namelist[NM_SWPLO].xl_value, 0);
X r_read (kmemfd, &swplo, sizeof swplo);
X
X l_lseek (kmemfd, namelist[NM_CDEVCNT].xl_value, 0);
X r_read (kmemfd, &Cdevcnt, sizeof Cdevcnt);
X Cdevsw = (struct cdevsw *) malloc (Cdevcnt * sizeof *Cdevsw);
X l_lseek (kmemfd, namelist[NM_CDEVSW].xl_value, 0);
X r_read (kmemfd, Cdevsw, Cdevcnt * sizeof *Cdevsw);
X
X l_lseek (kmemfd, namelist[NM_BDEVCNT].xl_value, 0);
X r_read (kmemfd, &Bdevcnt, sizeof Bdevcnt);
X Bdevsw = (struct bdevsw *) malloc (Bdevcnt * sizeof *Bdevsw);
X l_lseek (kmemfd, namelist[NM_BDEVSW].xl_value, 0);
X r_read (kmemfd, Bdevsw, Bdevcnt * sizeof *Bdevsw);
X
X if (bflag)
X prbufs ((int *) 0, 0);
X
X if (fflag)
X prfiles ((int *) 0, 0);
X
X if (iflag)
X prinodes ((int *) 0, 0);
X
X if (mflag)
X prmounts ((int *) 0, 0);
X
X if (pflag)
X prprocs ((int *) 0, 0);
X
X if (sflag)
X prstats ((int *) 0, 0);
X
X if (tflag)
X prtexts ((int *) 0, 0);
X
X if (uflag)
X prusers ((int *) 0, 0);
X
X if (vflag)
X prvars ((int *) 0, 0);
X
X if (! anyflag) {
X interact ();
X exit (0);
X } else {
X exit (0);
X }
X}
SHAR_EOF
if test 4818 -ne "`wc -c < 'crash.c'`"
then
echo shar: "error transmitting 'crash.c'" '(should have been 4818 characters)'
fi
fi
echo shar: "extracting 'interact.c'" '(5858 characters)'
if test -f 'interact.c'
then
echo shar: "will not over-write existing file 'interact.c'"
else
sed 's/^X//' << \SHAR_EOF > 'interact.c'
X/*
X * Copyright 1988, 1991, John F. Haugh II
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)interact.c 2.1 09:26:38 2/27/91";
X#endif
X
X#include <stdio.h>
X#include <string.h>
X#include <ctype.h>
X#include <setjmp.h>
X#include <signal.h>
X
Xextern od ();
Xextern prbufs ();
Xextern prbdevs ();
Xextern prcdevs ();
Xextern prfiles ();
Xextern prinodes ();
Xextern prmounts ();
Xextern prprocs ();
Xextern prstats ();
Xextern prtexts ();
Xextern prusers ();
Xextern prvars ();
Xextern prdataaddr ();
Xextern prsymbol ();
Xextern prtextaddr ();
Xextern prttys ();
Xextern quit ();
Xextern help ();
Xextern int errno;
X
Xjmp_buf del;
Xint delflag;
X
Xstruct func {
X void (*f_func)();
X char *f_name;
X enum { none, numbers, string } f_type;
X};
X
Xstruct func commands[] = {
X { prbufs, "b", numbers },
X { prbdevs, "bd", numbers },
X { prbdevs, "bdevsw", numbers },
X { prbufs, "buf", numbers },
X { prcdevs, "cd", numbers },
X { prcdevs, "cdevsw", numbers },
X { prdataaddr, "ds", string },
X { prfiles, "f", numbers },
X { prfiles, "file", numbers },
X { help, "h", none },
X { help, "help", none },
X { prinodes, "i", numbers },
X { prinodes, "ino", numbers },
X { prinodes, "inode", numbers },
X { prmounts, "m", numbers },
X { prmounts, "mount", numbers },
X { prsymbol, "nm", string },
X { od, "od", string },
X { prprocs, "p", numbers },
X { prprocs, "proc", numbers },
X { quit, "q", none },
X { quit, "quit", none },
X { prstats, "s", none },
X { prstats, "stat", none },
X { prtexts, "t", numbers },
X { prtexts, "text", numbers },
X { prtextaddr, "ts", string },
X { prttys, "tty", string },
X { prusers, "u", numbers },
X { prusers, "user", numbers },
X { prvars, "v", none },
X { prvars, "var", none },
X { 0, 0, none }
X};
X
Xhelp ()
X{
X printf ("command summary\n\n");
X
X printf ("buf (b) - buffer headers\n");
X printf ("file (f) - open files\n");
X printf ("help (h,?) - list commands\n");
X printf ("inode (ino,i) - active inodes\n");
X printf ("mount (m) - mounted file systems\n");
X printf ("proc (p) - active and defunct processes\n");
X printf ("quit (q,^D) - exit crash\n");
X printf ("stat (s) - crash statistics, age, time\n");
X printf ("text (t) - active and sticky bit text segments\n");
X printf ("user (u) - user page information\n");
X printf ("var (v) - tunable parameters\n");
X}
X
Xquit ()
X{
X exit (0);
X}
X
Xinterupt (sig)
Xint sig;
X{
X delflag = 1;
X fflush (stdout);
X fflush (stderr);
X longjmp (del, sig);
X}
X
Xstatic int
Xnumber (cpp, value)
Xchar **cpp;
Xint *value;
X{
X char *cp = *cpp;
X char *end;
X char buf[16];
X int i;
X
X while (*cp && isspace (*cp))
X cp++;
X
X for (i = 0;i < 15 && isdigit (*cp);i++, cp++)
X buf[i] = *cp;
X
X while (*cp && isspace (*cp))
X cp++;
X
X if (cp == *cpp)
X return -1;
X
X buf[i] = '\0';
X i = (int) strtol (buf, &end, 0);
X if (*end)
X return -1;
X
X *value = i;
X *cpp = cp;
X return 0;
X}
X
Xstatic int
Xrange (cpp, value, cnt)
Xchar **cpp;
Xint **value;
Xint *cnt;
X{
X int min, max;
X char *cp = *cpp;
X
X if (number (&cp, &min)) {
X *cpp = cp;
X return -1;
X }
X while (*cp && isspace (*cp))
X cp++;
X
X if (*cp == ',' || *cp == '\0') {
X *((*value)++) = min;
X (*cnt)--;
X *cpp = cp;
X return 0;
X } else if (*cp != '-') {
X *cpp = cp;
X return -1;
X }
X cp++;
X
X while (*cp && isspace (*cp))
X cp++;
X
X if (number (&cp, &max)) {
X *cpp = cp;
X return -1;
X }
X while (min <= max && (*cnt) > 0) {
X *((*value)++) = min++;
X (*cnt)--;
X }
X if ((*cnt) == 0 && min <= max)
X return -1;
X
X *cpp = cp;
X return 0;
X}
X
Xlist (cp, items, max)
Xchar *cp;
Xint *items;
Xint max;
X{
X int cnt = max;
X
X /*
X * number lists are of the form
X *
X * <list> ::= <range> | <list> ',' <range>
X * <range> ::= <number> '-' <number> | <number>
X * <number> ::= <one or more decimal digits>
X */
X
X while (*cp && cnt > 0) {
X while (*cp && isspace (*cp))
X cp++;
X
X if (range (&cp, &items, &cnt))
X break;
X
X if (*cp) {
X if (*cp == ',')
X cp++;
X else
X break;
X }
X }
X if (*cp) {
X printf ("error at '%.15s'\n", cp);
X return -1;
X }
X return max - cnt;
X}
X
Xinteract ()
X{
X int i;
X long l;
X int cnt;
X char *cp;
X char *com;
X char *num;
X char buf[BUFSIZ];
X int items[100];
X
X while (setjmp (del)) /* catch that first interupt */
X fprintf (stderr, "\nq to quit\n");
X
X signal (SIGINT, interupt); /* and setup the handler */
X
X while (fprintf (stderr, "> "), gets (buf) != (char *) 0) {
X while (setjmp (del))
X goto eh;
X
X /*
X * find first non-white space character and skip if
X * a blank line
X */
X
X for (com = buf;*com && (*com == ' ' || *com == '\t');com++)
X ;
X
X if (*com == '\0')
X continue;
X
X /*
X * find the entire command word
X */
X
X if (*com == '?') {
X help ();
X continue;
X } else if (*com == '!') {
X system (com + 1);
X continue;
X } else if (*com == '=') {
X com++;
X if (expr (&com, &l))
X goto eh;
X printf ("%d (%x)\n", l, l);
X continue;
X }
X for (cp = com;*cp >= 'a' && *cp <= 'z';cp++)
X ;
X
X if (*cp != '\0')
X *cp++ = '\0';
X
X for (i = 0;commands[i].f_name != (char *) 0;i++)
X if (strcmp (commands[i].f_name, com) == 0)
X break;
X
X if (commands[i].f_name == (char *) 0)
X goto eh;
X
X if (commands[i].f_type == numbers) {
X while (*cp && isspace (*cp))
X cp++;
X
X if ((cnt = list (cp, items, 100)) < 0)
X goto eh;
X
X (*commands[i].f_func) (cnt ? items:0, cnt);
X continue;
X } else if (commands[i].f_type == string) {
X while (*cp && isspace (*cp))
X cp++;
X
X (*commands[i].f_func) (cp);
X continue;
X }
X
X /*
X * common error handler. get here if an error is found.
X */
Xeh:
X if (delflag) {
X putc ('\n', stderr);
X delflag = 0;
X }
X fprintf (stderr, "eh?\n");
X signal (SIGINT, interupt);
X }
X}
SHAR_EOF
if test 5858 -ne "`wc -c < 'interact.c'`"
then
echo shar: "error transmitting 'interact.c'" '(should have been 5858 characters)'
fi
fi
echo shar: "extracting 'files.c'" '(1868 characters)'
if test -f 'files.c'
then
echo shar: "will not over-write existing file 'files.c'"
else
sed 's/^X//' << \SHAR_EOF > 'files.c'
X/*
X * Copyright 1988, John F. Haugh II
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)files.c 1.2 22:55:32 2/21/91";
X#endif
X
X#include <sys/param.h>
X#include <sys/sysmacros.h>
X#include <sys/types.h>
X#include <sys/var.h>
X#include <sys/inode.h>
X#include <sys/file.h>
X#include <sys/page.h>
X#include <sys/seg.h>
X#include <sys/signal.h>
X#include <sys/dir.h>
X#include <sys/user.h>
X#include "crash.h"
X
Xprfiles (items, cnt)
Xint *items;
Xint cnt;
X{
X int i;
X
X files = (struct file *) malloc (v.v_file * sizeof (struct file));
X l_lseek (kmemfd, namelist[NM_FILE].xl_value, 0);
X r_read (kmemfd, files, sizeof (struct file) * v.v_file);
X
X printf ("SLOT FLAG COUNT INODE OFFSET\n");
X if (cnt == 0) {
X for (i = 0;i < v.v_file;i++) {
X if (files[i].f_count == 0 || files[i].f_flag == 0)
X continue;
X
X dofile (i);
X }
X } else {
X for (i = 0;i < cnt;i++) {
X if (items[i] >= v.v_file)
X printf ("value (%d) out of range\n", items[i]);
X else
X dofile (items[i]);
X }
X }
X free ((char *) files);
X}
X
X
Xdofile (i)
Xint i;
X{
X printf ("%4d %03o %c%c%c%c%c%c%c%c %5d %5d %10ld\n",
X i, files[i].f_flag & FMASK,
X (files[i].f_flag & FREAD) ? 'R':' ',
X (files[i].f_flag & FWRITE) ? 'W':' ',
X (files[i].f_flag & FNDELAY) ? 'N':' ',
X (files[i].f_flag & FAPPEND) ? 'A':' ',
X (files[i].f_flag & FSYNC) ? 'S':' ',
X (files[i].f_flag & FCREAT) ? 'C':' ',
X (files[i].f_flag & FTRUNC) ? 'T':' ',
X (files[i].f_flag & FEXCL) ? 'X':' ',
X files[i].f_count,
X files[i].f_inode - (struct inode *) namelist[NM_INODE].xl_value,
X files[i].f_offset);
X}
SHAR_EOF
if test 1868 -ne "`wc -c < 'files.c'`"
then
echo shar: "error transmitting 'files.c'" '(should have been 1868 characters)'
fi
fi
echo shar: "extracting 'inodes.c'" '(2345 characters)'
if test -f 'inodes.c'
then
echo shar: "will not over-write existing file 'inodes.c'"
else
sed 's/^X//' << \SHAR_EOF > 'inodes.c'
X/*
X * Copyright 1988, John F. Haugh II
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)inodes.c 1.2 22:55:34 2/21/91";
X#endif
X
X#include <sys/param.h>
X#include <sys/sysmacros.h>
X#include <sys/types.h>
X#include <sys/var.h>
X#include <sys/inode.h>
X#include <a.out.h>
X#include "crash.h"
X
Xprinodes (items, cnt)
Xint *items;
Xint cnt;
X{
X int i;
X
X inodes = (struct inode *) malloc (v.v_inode * sizeof (struct inode));
X l_lseek (kmemfd, namelist[NM_INODE].xl_value, 0);
X r_read (kmemfd, inodes, sizeof (struct inode) * v.v_inode);
X
X printf ("SLOT MAJ MIN INUMB REF LINK UID GID SIZE MODE SMAJ SMIN FLAGS\n");
X
X if (cnt == 0) {
X for (i = 0;i < v.v_inode;i++) {
X if (inodes[i].i_count == 0)
X continue;
X
X doinode (i);
X }
X } else {
X for (i = 0;i < cnt;i++) {
X if (items[i] >= v.v_inode)
X printf ("value (%d) out of range\n", items[i]);
X else
X doinode (items[i]);
X }
X }
X free ((char *) inodes);
X}
X
Xdoinode (i)
Xint i;
X{
X char *modes = " pcCd bBf";
X struct inode *ip;
X
X ip = &inodes[i];
X
X printf ("%4d %03o %04o %5d %3d %4d%5d%5d %8ld %c%c%c%c%03o",
X i, major (ip->i_dev), minor (ip->i_dev), ip->i_number,
X ip->i_count, ip->i_nlink, ip->i_uid, ip->i_gid,
X ip->i_size,
X modes[(ip->i_mode & IFMT) >> 12],
X (ip->i_mode & ISUID) ? 'u':'-',
X (ip->i_mode & ISGID) ? 'g':'-',
X (ip->i_mode & ISVTX) ? 't':'-',
X (ip->i_mode & 0777));
X
X if (! (((ip->i_mode & IFMT) == IFDIR) ||
X ((ip->i_mode & IFMT) == IFREG) ||
X ((ip->i_mode & IFMT) == IFIFO)))
X printf (" %04o %04o", major (ip->i_rdev),
X minor (ip->i_rdev));
X else
X printf (" - -"); /* special file stuff */
X if (ip->i_flag & IUPD) printf (" upd");
X if (ip->i_flag & IACC) printf (" acc");
X if (ip->i_flag & ICHG) printf (" chg");
X if (ip->i_flag & IMOUNT) printf (" mnt");
X if (ip->i_flag & ITEXT) printf (" txt");
X if (ip->i_flag & ILOCK) printf (" lck");
X#ifdef ISYN
X if (ip->i_flag & ISYN) printf (" syn");
X#endif
X#ifdef IRMT
X if (ip->i_flag & IRMT) printf (" rmt");
X#endif
X if (ip->i_flag & IWANT) printf (" wnt");
X
X printf ("\n");
X}
SHAR_EOF
if test 2345 -ne "`wc -c < 'inodes.c'`"
then
echo shar: "error transmitting 'inodes.c'" '(should have been 2345 characters)'
fi
fi
echo shar: "extracting 'mounts.c'" '(2319 characters)'
if test -f 'mounts.c'
then
echo shar: "will not over-write existing file 'mounts.c'"
else
sed 's/^X//' << \SHAR_EOF > 'mounts.c'
X/*
X * Copyright 1988, John F. Haugh II
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)mounts.c 1.2 22:55:36 2/21/91";
X#endif
X
X#include <sys/param.h>
X#include <sys/sysmacros.h>
X#include <sys/types.h>
X#include <sys/var.h>
X#include <sys/inode.h>
X#include <sys/ino.h>
X#include <sys/buf.h>
X#include <sys/filsys.h>
X#include <sys/mount.h>
X#include <a.out.h>
X#include "crash.h"
X
Xprmounts (items, cnt)
Xint *items;
Xint cnt;
X{
X int i;
X
X mounts = (struct mount *) malloc (v.v_mount * sizeof (struct mount));
X l_lseek (kmemfd, namelist[NM_MOUNT].xl_value, 0);
X r_read (kmemfd, mounts, sizeof (struct mount) * v.v_mount);
X l_lseek (kmemfd, namelist[NM_BUFFER].xl_value, 0);
X r_read (kmemfd, &bufstart, sizeof bufstart);
X
X printf ("SLOT MAJ MIN INODE BUF VOLUME PACK BLOCKS INODES BFREE IFREE\n");
X
X if (cnt == 0) {
X for (i = 0;i < v.v_mount;i++) {
X if (mounts[i].m_flags == 0)
X continue;
X
X domount (i);
X }
X } else {
X for (i = 0;i < cnt;i++) {
X if (items[i] >= v.v_mount)
X printf ("value (%d) out of range\n", items[i]);
X else
X domount (items[i]);
X }
X }
X free ((char *) mounts);
X}
X
Xdomount (i)
Xint i;
X{
X struct filsys filsys;
X struct buf buf;
X struct inode *ip = (struct inode *) namelist[NM_INODE].xl_value;
X
X printf ("%4d %4o %03o %6d %4d",
X i, major (mounts[i].m_dev), minor (mounts[i].m_dev),
X mounts[i].m_inodp ?
X mounts[i].m_inodp - ip : 0,
X mounts[i].m_bufp ?
X mounts[i].m_bufp - bufstart : 0);
X
X /*
X * zero before using since unused mount entries don't have
X * buffers and such.
X */
X
X memset (&buf, 0, sizeof buf);
X memset (&filsys, 0, sizeof filsys);
X
X if (mounts[i].m_flags != 0) {
X l_lseek (memfd, (long) mounts[i].m_bufp, 0);
X r_read (memfd, &buf, sizeof buf);
X l_lseek (memfd, (long) buf.b_paddr, 0);
X r_read (memfd, &filsys, sizeof filsys);
X }
X printf (" %-6.6s %-6.6s",
X filsys.s_fname, filsys.s_fpack);
X
X printf (" %6ld %6ld %6ld %6ld",
X filsys.s_fsize, INOPB * filsys.s_isize,
X (long) filsys.s_tfree, (long) filsys.s_tinode);
X
X putchar ('\n');
X}
SHAR_EOF
if test 2319 -ne "`wc -c < 'mounts.c'`"
then
echo shar: "error transmitting 'mounts.c'" '(should have been 2319 characters)'
fi
fi
echo shar: "extracting 'procs.c'" '(2465 characters)'
if test -f 'procs.c'
then
echo shar: "will not over-write existing file 'procs.c'"
else
sed 's/^X//' << \SHAR_EOF > 'procs.c'
X/*
X * Copyright 1988, John F. Haugh II
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)procs.c 1.2 22:55:38 2/21/91";
X#endif
X
X#include <sys/param.h>
X#include <sys/sysmacros.h>
X#include <sys/types.h>
X#include <sys/var.h>
X#include <sys/text.h>
X#include <sys/page.h>
X#include <sys/seg.h>
X#include <sys/proc.h>
X#include <sys/signal.h>
X#include <sys/dir.h>
X#include <sys/user.h>
X#include "crash.h"
X
X/*
X * prprocs - output the process table
X */
X
Xprprocs (items, cnt)
Xint *items;
Xint cnt;
X{
X struct proc *pp;
X struct user user;
X int i;
X
X procs = (struct proc *) malloc (v.v_proc * sizeof (struct proc));
X lseek (kmemfd, namelist[NM_PROC].xl_value, 0);
X read (kmemfd, procs, sizeof (struct proc) * v.v_proc);
X
X printf ("SLT ST PID PPID PGRP UID EUID PRI CPU EVENT NAME FLAGS\n");
X
X if (cnt == 0) {
X for (i = 0;i < v.v_proc;i++) {
X if (procs[i].p_stat == 0)
X continue;
X
X doproc (i);
X }
X } else {
X for (i = 0;i < cnt;i++) {
X if (items[i] >= v.v_proc)
X printf ("value (%d) out of range\n", items[i]);
X else
X doproc (items[i]);
X }
X }
X free ((char *) procs);
X}
X
Xdoproc (i)
Xint i;
X{
X struct proc *pp;
X
X pp = &procs[i];
X
X printf ("%3d %c %5d %5d %5d %5d %5d %3d %3d", i,
X " swriztBST"[pp->p_stat], pp->p_pid, pp->p_ppid,
X pp->p_pgrp, pp->p_uid, pp->p_suid,
X pp->p_pri & 0377, pp->p_cpu & 0377);
X
X if (pp->p_wchan)
X printf (" %8x", pp->p_wchan);
X else
X printf (" ");
X
X if (pp->p_stat == SZOMB) {
X printf (" ZOMBIE ");
X } else if (pp->p_flag & SSYS) {
X printf (" swapper ");
X } else if (pp->p_stat != 0) {
X if (findu (pp, i, &user))
X printf (" %-10.10s", user.u_comm);
X else
X printf (" SWAPPED ");
X } else {
X printf (" ");
X }
X if (pp->p_stat == SRUN) printf (" running");
X if (pp->p_stat == SZOMB) printf (" zombie");
X if (pp->p_flag & SLOAD) printf (" incore");
X else printf (" swapped");
X if (pp->p_flag & SSYS) printf (" sched");
X if (pp->p_flag & SLOCK) printf (" locked");
X if (pp->p_flag & STRC) printf (" traced");
X if (pp->p_flag & SWTED) printf (" wanted");
X if (pp->p_flag & STEXT) printf (" text");
X if (pp->p_flag & SSPART) printf (" part-swap");
X
X printf ("\n");
X}
SHAR_EOF
if test 2465 -ne "`wc -c < 'procs.c'`"
then
echo shar: "error transmitting 'procs.c'" '(should have been 2465 characters)'
fi
fi
echo shar: "extracting 'texts.c'" '(1980 characters)'
if test -f 'texts.c'
then
echo shar: "will not over-write existing file 'texts.c'"
else
sed 's/^X//' << \SHAR_EOF > 'texts.c'
X/*
X * Copyright 1988, John F. Haugh II
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)texts.c 1.2 22:55:40 2/21/91";
X#endif
X
X#include <sys/param.h>
X#include <sys/sysmacros.h>
X#include <sys/types.h>
X#include <sys/var.h>
X#include <sys/inode.h>
X#include <sys/text.h>
X#include <sys/page.h>
X#include <sys/seg.h>
X#include <sys/proc.h>
X#include <a.out.h>
X#include "crash.h"
X
Xprtexts (items, cnt)
Xint *items;
Xint cnt;
X{
X int i;
X
X texts = (struct text *) malloc (v.v_text * sizeof (struct text));
X lseek (kmemfd, namelist[NM_TEXT].xl_value, 0);
X read (kmemfd, texts, sizeof (struct text) * v.v_text);
X
X printf ("SLOT INODE REF LDREF PROC SWAPLO+ SIZE FLAGS\n");
X
X if (cnt == 0) {
X for (i = 0;i < v.v_text;i++) {
X if (texts[i].x_count == 0)
X continue;
X
X dotext (i);
X }
X } else {
X for (i = 0;i < cnt;i++) {
X if (items[i] >= v.v_text)
X printf ("value (%d) out of range\n", items[i]);
X else
X dotext (items[i]);
X }
X }
X free ((char *) texts);
X}
X
Xdotext (i)
Xint i;
X{
X struct text *tp;
X int procnum;
X
X tp = &texts[i];
X
X if (tp->x_ccount > 0)
X procnum = tp->x_caddr -
X (struct proc *) namelist[NM_PROC].xl_value;
X else
X procnum = 0;
X
X printf ("%4d %5d %3d %5d %4d %7d %5d ", i,
X tp->x_iptr - (struct inode *) namelist[NM_INODE].xl_value,
X tp->x_count, tp->x_ccount, procnum,
X tp->x_daddr, tp->x_size);
X
X if (tp->x_flag & XTRC) printf (" trace");
X if (tp->x_flag & XWRIT) printf (" write");
X if (tp->x_flag & XLOAD) printf (" loaded");
X if (tp->x_flag & XLOCK) printf (" locked");
X if (tp->x_flag & XWANT) printf (" wanted");
X if (tp->x_flag & XLARGE) printf (" large");
X if (tp->x_flag & XFPU) printf (" fpu");
X
X printf ("\n");
X}
SHAR_EOF
if test 1980 -ne "`wc -c < 'texts.c'`"
then
echo shar: "error transmitting 'texts.c'" '(should have been 1980 characters)'
fi
fi
echo shar: "extracting 'user.c'" '(3411 characters)'
if test -f 'user.c'
then
echo shar: "will not over-write existing file 'user.c'"
else
sed 's/^X//' << \SHAR_EOF > 'user.c'
X/*
X * Copyright 1988, John F. Haugh II
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)user.c 1.2 22:55:41 2/21/91";
X#endif
X
X#include <sys/param.h>
X#include <sys/sysmacros.h>
X#include <sys/types.h>
X#include <sys/page.h>
X#include <sys/seg.h>
X#include <sys/file.h>
X#include <sys/proc.h>
X#include <sys/signal.h>
X#include <sys/dir.h>
X#include <sys/user.h>
X#include <sys/var.h>
X#include <sys/lock.h>
X#include "crash.h"
X
Xfindu (proc, slot, user)
Xstruct proc *proc;
Xint slot;
Xstruct user *user;
X{
X struct proc *procs = (struct proc *) namelist[NM_PROC].xl_value;
X long swapaddr;
X int i;
X
X if ((proc->p_flag & (SSWAP|SSPART)) || ! (proc->p_flag & SLOAD)) {
X swapaddr = proc->p_addr[0].te_frameno * NBPC;
X l_lseek (swapfd, swapaddr, 0);
X r_read (swapfd, user, sizeof *user);
X } else {
X l_lseek (memfd, proc->p_addr[0].te_frameno * NBPC, 0);
X r_read (memfd, user, sizeof *user);
X }
X if (user->u_procp - procs == slot)
X return (1);
X else
X return (0);
X}
X
Xprusers (items, cnt)
Xint *items;
Xint cnt;
X{
X int i;
X
X if (cnt == 0) {
X douser (-1);
X return (1);
X }
X for (i = 0;i < cnt;i++) {
X if (items[i] >= v.v_proc) {
X printf ("value (%d) out of range\n", items[i]);
X continue;
X } else {
X douser (items[i]);
X }
X }
X}
X
Xdouser (i)
X{
X struct file *fp;
X struct proc proc;
X struct proc *pp;
X static char *segments[] = { "user", "system", "user i" };
X int fileno;
X
X pp = (struct proc *) namelist[NM_PROC].xl_value;
X fp = (struct file *) namelist[NM_FILE].xl_value;
X
X if (i >= 0) {
X l_lseek (kmemfd, (long) &pp[i], 0);
X r_read (kmemfd, &proc, sizeof proc);
X
X if (! findu (&proc, i, &user))
X return (0);
X } else {
X l_lseek (kmemfd, namelist[NM_USER].xl_value, 0);
X r_read (kmemfd, &user, sizeof user);
X }
X printf ("PER PROCESS USER AREA:\n");
X printf ("USER ID's: uid: %d, gid: %d, real uid: %d, real gid: %d\n",
X user.u_uid, user.u_gid, user.u_ruid, user.u_rgid);
X printf ("PROCESS TIMES: user: %d, sys: %d, child user: %d, child sys: %d\n",
X user.u_utime, user.u_stime, user.u_cutime, user.u_cstime);
X printf ("PROCESS MISC: proc slot: %d, cntrl tty: maj(%d) min(%d)\n",
X user.u_procp - pp, major (user.u_ttyd), minor (user.u_ttyd));
X printf ("IPC: locks:%s%s%s%s%s\n",
X user.u_lock == UNLOCK ? " unlocked":"",
X user.u_lock & PROCLOCK ? " proc":"",
X user.u_lock & TXTLOCK ? " text":"",
X user.u_lock & DATLOCK ? " data":"",
X user.u_lock & HUGELOCK ? " huge":"");
X printf ("FILE I/O: user addr: %ld, file offset: %ld, bytes: %ld,\n",
X user.u_baseu, user.u_offset, user.u_count);
X printf (" segment: %s, umask: %01o, ulimit: %ld\n",
X segments[user.u_segflg], user.u_cmask, user.u_limit);
X printf ("ACCOUNTING: command: %s, memory: %ld, type: %s\n",
X user.u_comm, user.u_mem, user.u_acflag ? "fork":"exec");
X printf (" start: %s",
X ctime (&user.u_start));
X
X printf ("OPEN FILES: file desc: ");
X for (i = 0;i < NOFILE;i++)
X if (user.u_ofile[i] != (struct file *) 0)
X printf ("%4d", i);
X putchar ('\n');
X
X printf (" file slot: ");
X for (i = 0;i < NOFILE;i++)
X if (user.u_ofile[i] != (struct file *) 0)
X printf ("%4d", user.u_ofile[i] - fp);
X putchar ('\n');
X
X return (0);
X}
SHAR_EOF
if test 3411 -ne "`wc -c < 'user.c'`"
then
echo shar: "error transmitting 'user.c'" '(should have been 3411 characters)'
fi
fi
echo shar: "extracting 'vars.c'" '(1811 characters)'
if test -f 'vars.c'
then
echo shar: "will not over-write existing file 'vars.c'"
else
sed 's/^X//' << \SHAR_EOF > 'vars.c'
X/*
X * Copyright 1988, John F. Haugh II
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)vars.c 1.2 22:55:43 2/21/91";
X#endif
X
X#include <sys/param.h>
X#include <sys/sysmacros.h>
X#include <sys/types.h>
X#include <sys/file.h>
X#include <sys/inode.h>
X#include <sys/page.h>
X#include <sys/seg.h>
X#include <sys/proc.h>
X#include <sys/text.h>
X#include <sys/mount.h>
X#include <sys/var.h>
X#include <a.out.h>
X#include "crash.h"
X
Xprvars ()
X{
X printf ("buffers %3d\n",
X v.v_buf);
X printf ("calls %3d\n",
X v.v_call);
X printf ("inodes %3d\n",
X v.v_inode);
X printf ("e_inodes %3d\n",
X v.ve_inode - (struct inode *) namelist[NM_INODE].xl_value);
X printf ("files %3d\n",
X v.v_file);
X printf ("e_files %3d\n",
X v.ve_file - (struct file *) namelist[NM_FILE].xl_value);
X printf ("mounts %3d\n",
X v.v_mount);
X printf ("e_mounts %3d\n",
X v.ve_mount - (struct mount *) namelist[NM_MOUNT].xl_value);
X printf ("procs %3d\n",
X v.v_proc);
X printf ("e_procs %3d\n",
X v.ve_proc - (struct proc *) namelist[NM_PROC].xl_value);
X printf ("texts %3d\n",
X v.v_text);
X printf ("e_texts %3d\n",
X v.ve_text - (struct text *) namelist[NM_TEXT].xl_value);
X printf ("clists %3d\n",
X v.v_clist);
X printf ("sabufs %3d\n",
X v.v_sabuf);
X printf ("maxproc %3d\n",
X v.v_maxup);
X/*
Xswapmap 105
X*/
X printf ("hashbuf %3d\n",
X v.v_hbuf);
X printf ("hashmask %3d\n",
X v.v_hmask);
X}
SHAR_EOF
if test 1811 -ne "`wc -c < 'vars.c'`"
then
echo shar: "error transmitting 'vars.c'" '(should have been 1811 characters)'
fi
fi
echo shar: "extracting 'stats.c'" '(1805 characters)'
if test -f 'stats.c'
then
echo shar: "will not over-write existing file 'stats.c'"
else
sed 's/^X//' << \SHAR_EOF > 'stats.c'
X/*
X * Copyright 1988, John F. Haugh II
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)stats.c 1.2 22:55:39 2/21/91";
X#endif
X
X#include <sys/param.h>
X#include <sys/sysmacros.h>
X#include <sys/types.h>
X#include <sys/utsname.h>
X#include <sys/param.h>
X#include <a.out.h>
X#include <time.h>
X#include "crash.h"
X
X#define MINUTE (60L)
X#define HOUR (MINUTE*60L)
X#define DAY (HOUR*24L)
X
Xprstats ()
X{
X l_lseek (kmemfd, namelist[NM_UTSNAME].xl_value, 0);
X r_read (kmemfd, &utsname, sizeof utsname);
X
X l_lseek (kmemfd, namelist[NM_TIME].xl_value, 0);
X r_read (kmemfd, &ktime, sizeof ktime);
X
X l_lseek (kmemfd, namelist[NM_LBOLT].xl_value, 0);
X r_read (kmemfd, &klbolt, sizeof klbolt);
X
X printf (" sysname: %.*s\n",
X sizeof utsname.sysname, utsname.sysname);
X printf (" nodename: %.*s\n",
X sizeof utsname.nodename, utsname.nodename);
X printf (" release: %.*s\n",
X sizeof utsname.release, utsname.release);
X printf (" version: %.*s\n",
X sizeof utsname.version, utsname.version);
X printf (" machine: %.*s\n",
X sizeof utsname.machine, utsname.machine);
X
X printf (" time of crash: %s", ctime (&ktime));
X
X klbolt /= HZ; /* convert to seconds */
X
X printf (" age of system:");
X
X if (klbolt >= DAY)
X printf (" %d %s,", klbolt / DAY,
X klbolt >= (2*DAY) ? "days":"day");
X
X klbolt %= DAY;
X
X if (klbolt >= HOUR)
X printf (" %d %s,", klbolt / HOUR,
X klbolt >= (2*HOUR) ? "hrs.":"hr.");
X
X klbolt %= HOUR;
X klbolt /= MINUTE;
X
X printf (" %d %s\n", klbolt,
X klbolt == 0 || klbolt >= 2 ? "mins.":"min.");
X}
SHAR_EOF
if test 1805 -ne "`wc -c < 'stats.c'`"
then
echo shar: "error transmitting 'stats.c'" '(should have been 1805 characters)'
fi
fi
echo shar: "extracting 'bufs.c'" '(2101 characters)'
if test -f 'bufs.c'
then
echo shar: "will not over-write existing file 'bufs.c'"
else
sed 's/^X//' << \SHAR_EOF > 'bufs.c'
X/*
X * Copyright 1988, John F. Haugh II
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)bufs.c 1.2 22:55:28 2/21/91";
X#endif
X
X#include <sys/param.h>
X#include <sys/sysmacros.h>
X#include <sys/types.h>
X#include <sys/var.h>
X#include <sys/inode.h>
X#include <sys/ino.h>
X#include <sys/buf.h>
X#include <a.out.h>
X#include "crash.h"
X
Xprbufs (items, cnt)
Xint *items;
Xint cnt;
X{
X int i;
X
X bufs = (struct buf *) malloc (v.v_buf * sizeof (struct buf));
X
X l_lseek (kmemfd, namelist[NM_BUFFER].xl_value, 0);
X r_read (kmemfd, &bufstart, sizeof bufstart);
X
X l_lseek (memfd, bufstart, 0);
X r_read (memfd, bufs, v.v_buf * sizeof (struct buf));
X
X printf (" BUF MAJ MIN BLOCK FLAGS\n");
X
X if (cnt == 0) {
X for (i = 0;i < v.v_buf;i++) {
X if (bufs[i].b_flags == 0)
X continue;
X
X dobuf (i);
X }
X } else {
X for (i = 0;i < cnt;i++) {
X if (items[i] >= v.v_buf)
X printf ("value (%d) out of range\n", items[i]);
X else
X dobuf (items[i]);
X }
X }
X free ((char *) bufs);
X}
X
Xdobuf (i)
Xint i;
X{
X struct buf *bp;
X
X bp = &bufs[i];
X
X printf ("%4d %03.3o %04.4o %8d",
X i, major (bp->b_dev) & 0377, minor (bp->b_dev), bp->b_blkno);
X
X if (bp->b_flags & B_READ) printf (" read");
X if (bp->b_flags & B_DONE) printf (" done");
X if (bp->b_flags & B_ERROR) printf (" error");
X if (bp->b_flags & B_BUSY) printf (" busy");
X if (bp->b_flags & B_PHYS) printf (" phys");
X if (bp->b_flags & B_MAP) printf (" map");
X if (bp->b_flags & B_WANTED) printf (" wanted");
X if (bp->b_flags & B_AGE) printf (" age");
X if (bp->b_flags & B_ASYNC) printf (" async");
X if (bp->b_flags & B_DELWRI) printf (" delwri");
X if (bp->b_flags & B_OPEN) printf (" open");
X if (bp->b_flags & B_STALE) printf (" stale");
X if (bp->b_flags & B_NOCROSS) printf (" nocross");
X if (bp->b_flags & B_FLUSH) printf (" flush");
X
X putchar ('\n');
X}
SHAR_EOF
if test 2101 -ne "`wc -c < 'bufs.c'`"
then
echo shar: "error transmitting 'bufs.c'" '(should have been 2101 characters)'
fi
fi
echo shar: "extracting 'syms.c'" '(6139 characters)'
if test -f 'syms.c'
then
echo shar: "will not over-write existing file 'syms.c'"
else
sed 's/^X//' << \SHAR_EOF > 'syms.c'
X/*
X * Copyright 1991, John F. Haugh II
X * An unpublished work.
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)syms.c 2.1 07:15:42 2/27/91";
X#endif
X
X#include <sys/types.h>
X#include <sys/a.out.h>
X#include <sys/relsym.h>
X#include <stdio.h>
X
Xstruct xlist3 {
X unsigned short xl3_type;
X unsigned short xl3_seg;
X unsigned long xl3_value;
X};
X
Xstruct xlist **symbols;
Xint nsymbols;
Xint maxsymbols;
X
Xextern char *strdup();
X
Xint
Xinitsyms (file)
Xchar *file;
X{
X FILE *fp;
X long segsize;
X long pad;
X struct xexec xexec;
X struct xext xext;
X struct xseg xseg;
X struct xlist xlist;
X char buf[BUFSIZ];
X char *cp;
X
X if (! (fp = fopen (file, "r"))) {
X perror (file);
X return -1;
X }
X if (fread (&xexec, sizeof xexec, 1, fp) != 1) {
X printf ("error reading xexec header\n");
X return -1;
X }
X if (xexec.x_magic != X_MAGIC) {
X printf ("not a valid x.out header\n");
X return -1;
X }
X if (! (xexec.x_renv & XE_SEG)) {
X printf ("not a segmented object\n");
X return -1;
X }
X if (fread (&xext, sizeof xext, 1, fp) != 1) {
X printf ("error reading xext record\n");
X return -1;
X }
X if (fseek (fp, xext.xe_segpos, 0) == -1) {
X printf ("error seeking to segment table\n");
X return -1;
X }
X while (fread (&xseg, sizeof xseg, 1, fp) == 1 && xext.xe_segsize > 0) {
X if (xseg.xs_type == XS_TSYMS)
X break;
X
X xext.xe_segsize -= sizeof xseg;
X }
X if (xext.xe_segsize <= 0) {
X printf ("error locating symbol table\n");
X return -1;
X }
X if (fseek (fp, xseg.xs_filpos, 0) == -1) {
X printf ("error seeking to symbol table\n");
X return -1;
X }
X while (ftell (fp) < xseg.xs_filpos + xseg.xs_psize) {
X if (nsymbols == maxsymbols) {
X if (nsymbols == 0) {
X maxsymbols = 10;
X symbols = (struct xlist **)
X malloc (maxsymbols * sizeof *symbols);
X } else {
X maxsymbols *= 2;
X symbols = (struct xlist **) realloc (symbols,
X maxsymbols * sizeof *symbols);
X }
X }
X if (symbols == 0) {
X printf ("error allocating memory for symbol table\n");
X return -1;
X }
X fread (&xlist, sizeof (struct xlist3), 1, fp);
X for (cp = buf;*cp++ = getc (fp);)
X ;
X
X xlist.xl_name = strdup (buf);
X
X symbols[nsymbols] = (struct xlist *)
X malloc (sizeof (struct xlist));
X *(symbols[nsymbols++]) = xlist;
X }
X fclose (fp);
X return 0;
X}
X
Xlong
Xsym2addr (sym, type)
Xchar *sym;
Xint type;
X{
X int i;
X int symbol_type;
X
X if (symbols == 0)
X return -1;
X
X for (i = 0;i < nsymbols;i++) {
X symbol_type = symbols[i]->xl_type & S_TYPE;
X
X if (type == 0 && strcmp (sym, symbols[i]->xl_name) == 0)
X return symbols[i]->xl_value;
X
X if (type == symbol_type && ! strcmp (sym, symbols[i]->xl_name))
X return symbols[i]->xl_value;
X }
X return -1;
X}
X
Xchar *
Xaddr2sym (addr, diffp, type)
Xlong addr;
Xlong *diffp;
Xint type;
X{
X int guess = -1;
X int i;
X int symbol_type;
X
X if (symbols == 0)
X return 0;
X
X for (i = 0;i < nsymbols;i++) {
X symbol_type = symbols[i]->xl_type & S_TYPE;
X
X if (type == 0 && addr >= symbols[i]->xl_value &&
X (guess == -1 ||
X symbols[i]->xl_value > symbols[guess]->xl_value))
X guess = i;
X
X if (type == symbol_type && addr >= symbols[i]->xl_value &&
X (guess == -1 ||
X symbols[i]->xl_value > symbols[guess]->xl_value))
X guess = i;
X }
X if (guess == -1)
X return 0;
X
X *diffp = addr - symbols[guess]->xl_value;
X return symbols[guess]->xl_name;
X}
X
Xchar *
Xtext2sym (addr, diffp)
Xlong addr;
Xlong *diffp;
X{
X return addr2sym (addr, diffp, S_TEXT);
X}
X
Xchar *
Xdata2sym (addr, diffp)
Xlong addr;
Xlong *diffp;
X{
X char *sym1, *sym2;
X long diff1, diff2;
X
X sym1 = addr2sym (addr, &diff1, S_DATA);
X sym2 = addr2sym (addr, &diff2, S_BSS);
X
X if (sym1 && sym2) {
X if (diff1 < diff2) {
X *diffp = diff1;
X return sym1;
X } else {
X *diffp = diff2;
X return sym2;
X }
X }
X if (sym1) {
X *diffp = diff1;
X return sym1;
X } else if (sym2) {
X *diffp = diff2;
X return sym2;
X } else
X return 0;
X}
X
Xprtextaddr (cp)
Xchar *cp;
X{
X long addr;
X char *sym;
X long diff;
X
X if (expr (&cp, &addr)) {
X printf ("error in '%.15s'\n", cp);
X return;
X }
X if (! (sym = text2sym (addr, &diff))) {
X printf ("no text address for %d (%x)\n", addr, addr);
X return;
X }
X if (diff != 0)
X printf ("%d (%x) = %s+%d (%x)\n", addr, addr, sym, diff, diff);
X else
X printf ("%d (%x) = %s\n", addr, addr, sym);
X}
X
Xprdataaddr (cp)
Xchar *cp;
X{
X long addr;
X char *sym;
X long diff;
X
X if (expr (&cp, &addr)) {
X printf ("error in '%.15s'\n", cp);
X return;
X }
X if (! (sym = data2sym (addr, &diff))) {
X printf ("no data address for %d (%x)\n", addr, addr);
X return;
X }
X if (diff != 0)
X printf ("%d (%x) = %s+%d (%x)\n", addr, addr, sym, diff, diff);
X else
X printf ("%d (%x) = %s\n", addr, addr, sym);
X}
X
Xprsymbol (cp)
Xchar *cp;
X{
X char buf[BUFSIZ];
X long addr;
X int type;
X char *sym;
X
X buf[0] = '_';
X strcpy (buf + 1, cp);
X
X if ((addr = sym2addr (sym = buf + 1, type = S_TEXT)) == -1 &&
X (addr = sym2addr (sym = buf, type = S_TEXT)) == -1 &&
X (addr = sym2addr (sym = buf + 1, type = S_DATA)) == -1 &&
X (addr = sym2addr (sym = buf, type = S_DATA)) == -1 &&
X (addr = sym2addr (sym = buf + 1, type = S_BSS)) == -1 &&
X (addr = sym2addr (sym = buf, type = S_BSS)) == -1) {
X printf ("%s not found\n", cp);
X return;
X }
X printf ("%s (%s) = %d (%x)\n", sym, type == S_TEXT ? "text":
X (type == S_DATA ? "data":
X (type == S_BSS ? "bss":"unknown")), addr, addr);
X}
X
X#ifdef TEST
Xmain (argc, argv)
Xint argc;
Xchar **argv;
X{
X int i;
X long addr;
X long diff;
X char *sym;
X char buf[BUFSIZ];
X char *cp;
X
X if (initsyms (argv[1]))
X exit (1);
X
X printf ("allocated %d slots for %d symbols\n", maxsymbols, nsymbols);
X
X while (gets (buf)) {
X if (buf[0] >= '0' && buf[0] <= '9') {
X cp = buf;
X if (expr (&cp, &addr)) {
X printf ("error at '%.15s'\n", cp);
X continue;
X }
X sym = addr2sym (addr, &diff, 0);
X printf ("name of %s (%x) is %s+%d\n",
X buf, addr, sym, diff);
X } else {
X addr = sym2addr (buf, 0);
X printf ("address of %s is %d (%x)\n", buf, addr, addr);
X }
X }
X}
X#endif
SHAR_EOF
if test 6139 -ne "`wc -c < 'syms.c'`"
then
echo shar: "error transmitting 'syms.c'" '(should have been 6139 characters)'
fi
fi
echo shar: "extracting 'devs.c'" '(3101 characters)'
if test -f 'devs.c'
then
echo shar: "will not over-write existing file 'devs.c'"
else
sed 's/^X//' << \SHAR_EOF > 'devs.c'
X/*
X * Copyright 1991, John F. Haugh II
X * An unpublished work.
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)devs.c 2.1 07:14:51 2/27/91";
X#endif
X
X#include <sys/types.h>
X#include <sys/conf.h>
X#include <stdio.h>
X#include "crash.h"
X
Xextern char *text2sym();
Xextern char *data2sym();
X
Xchar *
Xkgets (off, buf)
Xlong off;
Xchar *buf;
X{
X char c;
X char *orig = buf;
X
X l_lseek (kmemfd, off, 0);
X while (r_read (kmemfd, &c, 1) == 1 && (*buf++ = c))
X ;
X
X if (c)
X return 0;
X else
X return orig;
X}
X
Xpr1cdev (cmajor)
Xint cmajor;
X{
X char *sym;
X char buf[BUFSIZ];
X long diff;
X
X if (cmajor < 0 || cmajor >= Cdevcnt) {
X printf ("value (%d) out of range\n", cmajor);
X return;
X }
X printf ("cdevsw[%d]: ", cmajor);
X
X if (Cdevsw[cmajor].d_name)
X printf ("%s ", kgets (Cdevsw[cmajor].d_name, buf));
X else
X printf ("(unnamed) ");
X
X if (sym = text2sym (Cdevsw[cmajor].d_open, &diff))
X printf ("%s ", sym);
X else
X printf ("0x%x ", Cdevsw[cmajor].d_open);
X
X if (sym = text2sym (Cdevsw[cmajor].d_close, &diff))
X printf ("%s ", sym);
X else
X printf ("0x%x ", Cdevsw[cmajor].d_close);
X
X if (sym = text2sym (Cdevsw[cmajor].d_read, &diff))
X printf ("%s ", sym);
X else
X printf ("0x%x ", Cdevsw[cmajor].d_read);
X
X if (sym = text2sym (Cdevsw[cmajor].d_write, &diff))
X printf ("%s ", sym);
X else
X printf ("0x%x ", Cdevsw[cmajor].d_write);
X
X if (sym = text2sym (Cdevsw[cmajor].d_ioctl, &diff))
X printf ("%s ", sym);
X else
X printf ("0x%x ", Cdevsw[cmajor].d_ioctl);
X
X if (sym = data2sym (Cdevsw[cmajor].d_ttys, &diff))
X printf ("%s ", sym);
X else
X printf ("0x%x ", Cdevsw[cmajor].d_ttys);
X
X putchar ('\n');
X}
X
Xprcdevs (list, cnt)
Xint *list;
Xint cnt;
X{
X int i;
X
X if (list == 0) {
X for (i = 0;i < Cdevcnt;i++) {
X if (Cdevsw[i].d_name == 0)
X continue;
X
X pr1cdev (i);
X }
X } else
X for (i = 0;i < cnt;i++) {
X pr1cdev (list[i]);
X }
X}
X
Xpr1bdev (bmajor)
Xint bmajor;
X{
X char *sym;
X char buf[BUFSIZ];
X long diff;
X
X if (bmajor < 0 || bmajor >= Bdevcnt) {
X printf ("value (%d) out of range\n", bmajor);
X return;
X }
X printf ("bdevsw[%d]: ", bmajor);
X
X if (Bdevsw[bmajor].d_name)
X printf ("%s ", kgets (Bdevsw[bmajor].d_name, buf));
X else
X printf ("(unnamed) ");
X
X if (sym = text2sym (Bdevsw[bmajor].d_open, &diff))
X printf ("%s ", sym);
X else
X printf ("0x%x ", Bdevsw[bmajor].d_open);
X
X if (sym = text2sym (Bdevsw[bmajor].d_close, &diff))
X printf ("%s ", sym);
X else
X printf ("0x%x ", Bdevsw[bmajor].d_close);
X
X if (sym = text2sym (Bdevsw[bmajor].d_strategy, &diff))
X printf ("%s ", sym);
X else
X printf ("0x%x ", Bdevsw[bmajor].d_strategy);
X
X
X putchar ('\n');
X}
X
Xprbdevs (list, cnt)
Xint *list;
Xint cnt;
X{
X int i;
X
X if (list == 0) {
X for (i = 0;i < Bdevcnt;i++) {
X if (Bdevsw[i].d_name == 0)
X continue;
X
X pr1bdev (i);
X }
X } else
X for (i = 0;i < cnt;i++) {
X pr1bdev (list[i]);
X }
X}
SHAR_EOF
if test 3101 -ne "`wc -c < 'devs.c'`"
then
echo shar: "error transmitting 'devs.c'" '(should have been 3101 characters)'
fi
fi
echo shar: "extracting 'expr.c'" '(4388 characters)'
if test -f 'expr.c'
then
echo shar: "will not over-write existing file 'expr.c'"
else
sed 's/^X//' << \SHAR_EOF > 'expr.c'
X/*
X * Copyright 1991, John F. Haugh II
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)expr.c 2.2 09:26:00 2/27/91";
X#endif
X
X#include <ctype.h>
X
X/*
X * number - parse numbers
X */
X
Xstatic int
Xnumber (cpp, result)
Xchar **cpp;
Xlong *result;
X{
X char *cp = *cpp;
X char *ep;
X char buf[101];
X int i;
X int base;
X long value;
X
X if (! isdigit (*cp))
X return -1;
X
X if (*cp == '0' && *(cp + 1) == 'x') {
X base = 16;
X cp += 2;
X for (i = 0;*cp && isxdigit (*cp);)
X buf[i++] = *cp++;
X } else if (*cp == '0') {
X base = 8;
X cp += 1;
X for (i = 0;*cp && *cp >= '0' && *cp <= '7';)
X buf[i++] = *cp++;
X } else {
X base = 10;
X for (i = 0;*cp && isdigit (*cp);)
X buf[i++] = *cp++;
X }
X buf[i] = '\0';
X *result = strtol (buf, &ep, base);
X if (*ep) {
X *cpp = *cpp + (ep - buf);
X return -1;
X }
X *cpp = cp;
X return 0;
X}
X
X/*
X * symbol - lookup symbol names
X */
X
Xstatic int
Xsymbol (cpp, result)
Xchar **cpp;
Xlong *result;
X{
X char *cp = *cpp;
X char buf[101]; /* yes, the longest symbol is 100 characters */
X int i;
X
X buf[0] = '_'; i = 1;
X
X if (*cp != '_' && ! isalpha (*cp))
X return -1;
X
X while (i < 100 && (*cp == '_' || isalpha (*cp) || isdigit (*cp)))
X buf[i++] = *cp++;
X
X if (i == 100) {
X *cpp = cp;
X return -1;
X }
X buf[i++] = '\0';
X
X if ((*result = sym2addr (buf + 1, 0)) == -1 &&
X (*result = sym2addr (buf, 0)) == -1)
X return -1;
X
X *cpp = cp;
X return 0;
X}
X
X/*
X * term - parse terms
X *
X * <term> ::= '(' <expr> ')' | <number> | <symbol> | '-' <number
X */
X
Xstatic int
Xterm (cpp, result)
Xchar **cpp;
Xlong *result;
X{
X char *cp = *cpp;
X
X while (*cp && isspace (*cp))
X cp++;
X
X if (isdigit (*cp)) {
X if (number (&cp, result)) {
X *cpp = cp;
X return -1;
X }
X } else if (*cp == '_' || isalpha (*cp)) {
X if (symbol (&cp, result)) {
X *cpp = cp;
X return -1;
X }
X } else if (*cp == '(') {
X cp++;
X if (expr (&cp, result)) {
X *cpp = cp;
X return -1;
X }
X while (*cp && isspace (*cp))
X cp++;
X
X if (*cp != ')') {
X *cpp = cp;
X return -1;
X }
X cp++;
X } else if (*cp == '-') {
X cp++;
X if (number (&cp, result)) {
X *cpp = cp;
X return -1;
X }
X *result = - *result;
X } else
X return -1;
X
X *cpp = cp;
X return 0;
X}
X
X/*
X * prod - parse expressions
X *
X * <prod> ::= <prod> ('*' | '/' | '%' | '&') <term> | <term>
X */
X
Xstatic int
Xprod (cpp, result)
Xchar **cpp;
Xlong *result;
X{
X long left, right;
X enum { star, slash, percent, ampersand } op;
X char *cp = *cpp;
X
X while (*cp && isspace (*cp))
X cp++;
X
X if (term (&cp, &left)) {
X *cpp = cp;
X return -1;
X }
X while (*cp) {
X while (*cp && isspace (*cp))
X cp++;
X
X if (! *cp)
X break;
X
X switch (*cp) {
X case '+':
X case '-':
X case '|':
X case '^':
X case ')': *cpp = cp;
X *result = left;
X return 0;
X case '*': op = star; break;
X case '/': op = slash; break;
X case '%': op = percent; break;
X case '&': op = ampersand; break;
X default: *cpp = cp;
X return -1;
X }
X cp++;
X if (term (&cp, &right)) {
X *cpp = cp;
X return -1;
X }
X switch (op) {
X case star: left *= right; break;
X case slash: if (right == 0)
X return -1;
X left /= right; break;
X case percent: if (right == 0)
X return -1;
X left %= right; break;
X case ampersand: left &= right; break;
X }
X }
X *result = left;
X *cpp = cp;
X return 0;
X}
X
X/*
X * expr - parse expressions
X *
X * <expr> ::= <expr> ('+' | '-' | '|' | '^') <prod> | <prod>
X */
X
Xint
Xexpr (cpp, result)
Xchar **cpp;
Xlong *result;
X{
X long left, right;
X enum { plus, minus, pipe, caret } op;
X char *cp = *cpp;
X
X while (*cp && isspace (*cp))
X cp++;
X
X if (prod (&cp, &left)) {
X *cpp = cp;
X return -1;
X }
X while (*cp) {
X while (*cp && isspace (*cp))
X cp++;
X
X if (! *cp)
X break;
X
X switch (*cp) {
X case '+': op = plus; break;
X case '-': op = minus; break;
X case '|': op = pipe; break;
X case '^': op = caret; break;
X default: *cpp = cp;
X return -1;
X }
X cp++;
X if (prod (&cp, &right)) {
X *cpp = cp;
X return -1;
X }
X switch (op) {
X case plus: left += right; break;
X case minus: left -= right; break;
X case pipe: left |= right; break;
X case caret: left ^= right; break;
X }
X }
X *result = left;
X *cpp = cp;
X return 0;
X}
SHAR_EOF
if test 4388 -ne "`wc -c < 'expr.c'`"
then
echo shar: "error transmitting 'expr.c'" '(should have been 4388 characters)'
fi
fi
echo shar: "extracting 'od.c'" '(3597 characters)'
if test -f 'od.c'
then
echo shar: "will not over-write existing file 'od.c'"
else
sed 's/^X//' << \SHAR_EOF > 'od.c'
X/*
X * Copyright 1991, John F. Haugh II
X * An unpublished work.
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)od.c 2.1 07:15:25 2/27/91";
X#endif
X
X#define SKIP_SPACE(cp) while (*cp && isspace (*cp)) *cp++
X
X#include <sys/types.h>
X#include <ctype.h>
X#include "crash.h"
X
Xod (string)
Xchar *string;
X{
X long base;
X long length = 0;
X char *cp;
X char *fmt = 0;
X int i, j;
X unsigned char c;
X unsigned short s;
X long l;
X
X for (cp = string;*cp && *cp != ',';cp++)
X ;
X
X if (*cp == ',')
X *cp++ = '\0';
X
X if (expr (&string, &base))
X return -1;
X else
X string = cp;
X
X if (*string) {
X SKIP_SPACE(string);
X
X for (cp = string;*cp && *cp != ',';cp++)
X ;
X
X if (*cp == ',')
X *cp++ = '\0';
X
X if (expr (&string, &length))
X return -1;
X else
X string = cp;
X
X SKIP_SPACE(string);
X if (*string)
X fmt = string;
X else
X fmt = "x";
X } else {
X length = 16;
X fmt = "x";
X }
X if (strlen (fmt) > 1) {
X while (length > 0) {
X printf ("%0.8x", base);
X
X for (cp = fmt;length > 0 && *cp;) {
X if (l_lseek (memfd, base, 0) == -1)
X return;
X
X switch (*cp) {
X case 'a':
X printf ("\n%0.8x", base);
X break;
X case 'n':
X printf ("\n ");
X break;
X case 'c':
X case 'b':
X if (r_read (memfd, &c, 1) == -1)
X return;
X base += 1;
X length -= 1;
X if (*fmt == 'b' ||
X (c <= ' ' || c > '~'))
X printf (" %0.2x", c);
X else
X printf (" '%c", c);
X break;
X case 'd':
X case 'o':
X case 'x':
X if (r_read (memfd, &s, 2) == -1)
X return;
X base += 2;
X length -= 2;
X printf (*cp == 'd' ? " %5u":
X (*cp == 'o' ? " %6o":
X " %0.4x"), s);
X break;
X case 'D':
X case 'O':
X case 'X':
X if (r_read (memfd, &l, 4) == -1)
X return;
X base += 4;
X length -= 4;
X printf (*cp == 'D' ? " %9lu":
X (*cp == 'O' ? " %11lo":
X " %0.8lx"), l);
X break;
X case 'Y':
X if (r_read (memfd, &l, 4) == -1)
X return;
X base += 4;
X printf (" %.24s", ctime (&l));
X break;
X }
X cp++;
X }
X putchar ('\n');
X }
X } else {
X while (length > 0) {
X printf ("%0.8x", base);
X
X for (i = 0;i < 16 && length > 0;) {
X if (l_lseek (memfd, base, 0) == -1)
X return;
X
X switch (*fmt) {
X case 'c':
X case 'b':
X if (r_read (memfd, &c, 1) == -1)
X return;
X base += 1;
X i += 1;
X length -= 1;
X if (*fmt == 'b' ||
X (c <= ' ' || c > '~'))
X printf (" %0.2x", c);
X else
X printf (" '%c", c);
X break;
X case 'd':
X case 'o':
X case 'x':
X if (r_read (memfd, &s, 2) == -1)
X return;
X base += 2;
X i += 2;
X length -= 2;
X printf (*fmt == 'd' ? " %5u":
X (*fmt == 'o' ? " %6o":
X " %0.4x"), s);
X break;
X case 'D':
X case 'O':
X case 'X':
X if (r_read (memfd, &l, 4) == -1)
X return;
X base += 4;
X i += 4;
X length -= 4;
X printf (*fmt == 'D' ? " %9lu":
X (*fmt == 'O' ? " %11lo":
X " %0.8lx"), l);
X break;
X case 'Y':
X if (r_read (memfd, &l, 4) == -1)
X return;
X base += 4;
X i += 16;
X length -= 4;
X printf (" %.24s", ctime (&l));
X break;
X }
X }
X putchar ('\n');
X }
X if (i != 16)
X printf ("%0.8x", base);
X }
X}
SHAR_EOF
if test 3597 -ne "`wc -c < 'od.c'`"
then
echo shar: "error transmitting 'od.c'" '(should have been 3597 characters)'
fi
fi
echo shar: "extracting 'ttys.c'" '(4724 characters)'
if test -f 'ttys.c'
then
echo shar: "will not over-write existing file 'ttys.c'"
else
sed 's/^X//' << \SHAR_EOF > 'ttys.c'
X/*
X * Copyright 1991, John F. Haugh II
X * An unpublished work.
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X */
X
X#ifndef lint
Xstatic char sccsid[] = "@(#)ttys.c 2.1 09:26:58 2/27/91";
X#endif
X
X#include <sys/types.h>
X#include <sys/termio.h>
X#include <sys/tty.h>
X#include <ctype.h>
X#include "crash.h"
X
Xstruct bits {
X char *b_name;
X int b_value;
X int b_mask;
X};
X
Xstruct bits ibits[] = {
X "ignbrk", IGNBRK, IGNBRK,
X "brkint", BRKINT, BRKINT,
X "ignpar", IGNPAR, IGNPAR,
X "parmrk", PARMRK, PARMRK,
X "inpck", INPCK, INPCK,
X "istrip", ISTRIP, ISTRIP,
X "inlcr", INLCR, INLCR,
X "igncr", IGNCR, IGNCR,
X "icrnl", ICRNL, ICRNL,
X "iuclc", IUCLC, IUCLC,
X "ixon", IXON, IXON,
X "ixany", IXANY, IXANY,
X "ixoff", IXOFF, IXOFF,
X 0, 0, 0
X};
X
Xstruct bits obits[] = {
X "opost", OPOST, OPOST,
X "olcuc", OLCUC, OLCUC,
X "onlcr", ONLCR, ONLCR,
X "ocrnl", OCRNL, OCRNL,
X "onocr", ONOCR, ONOCR,
X "onlret", ONLRET, ONLRET,
X "ofill", OFILL, OFILL,
X "ofdel", OFDEL, OFDEL,
X "nl1", NL1, NLDLY,
X "cr1", CR1, CRDLY,
X "cr2", CR2, CRDLY,
X "cr3", CR3, CRDLY,
X "tab1", TAB1, TABDLY,
X "tab2", TAB2, TABDLY,
X "tab3", TAB3, TABDLY,
X "bs1", BS1, BSDLY,
X "vt1", VT1, VTDLY,
X "ff1", FF1, FFDLY,
X 0, 0, 0
X};
X
Xstruct bits cbits[] = {
X "b50", B50, CBAUD,
X "b75", B75, CBAUD,
X "b110", B110, CBAUD,
X "b134", B134, CBAUD,
X "b150", B150, CBAUD,
X "b200", B200, CBAUD,
X "b300", B300, CBAUD,
X "b600", B600, CBAUD,
X "b1200", B1200, CBAUD,
X "b1800", B1800, CBAUD,
X "b2400", B2400, CBAUD,
X "b4800", B4800, CBAUD,
X "b9600", B9600, CBAUD,
X "exta", EXTA, CBAUD,
X "extb", EXTB, CBAUD,
X "cs6", CS6, CSIZE,
X "cs7", CS7, CSIZE,
X "cs8", CS8, CSIZE,
X "cstopb", CSTOPB, CSTOPB,
X "cread", CREAD, CREAD,
X "parenb", PARENB, PARENB,
X "parodd", PARODD, PARODD,
X "hupcl", HUPCL, HUPCL,
X "clocal", CLOCAL, CLOCAL,
X "loblk", LOBLK, LOBLK,
X "ctsflow", CTSFLOW,CTSFLOW,
X "rtsflow", RTSFLOW,RTSFLOW,
X 0, 0, 0
X};
X
Xstruct bits lbits[] = {
X "isig", ISIG, ISIG,
X "icanon", ICANON, ICANON,
X "xcase", XCASE, XCASE,
X "echo", ECHO, ECHO,
X "echoe", ECHOE, ECHOE,
X "echok", ECHOK, ECHOK,
X "echonl", ECHONL, ECHONL,
X "noflsh", NOFLSH, NOFLSH,
X 0, 0, 0
X};
X
Xstruct bits state[] = {
X "timeout", TIMEOUT, TIMEOUT,
X "wopen", WOPEN, WOPEN,
X "isopen", ISOPEN, ISOPEN,
X "tblock", TBLOCK, TBLOCK,
X "carr_on", CARR_ON, CARR_ON,
X "busy", BUSY, BUSY,
X "oaslp", OASLP, OASLP,
X "iaslp", IASLP, IASLP,
X "ttstop", TTSTOP, TTSTOP,
X "extproc", EXTPROC, EXTPROC,
X "tact", TACT, TACT,
X "clesc", CLESC, CLESC,
X "rto", RTO, RTO,
X "ttiow", TTIOW, TTIOW,
X "ttxon", TTXON, TTXON,
X "ttxoff", TTXOFF, TTXOFF,
X 0, 0, 0
X};
X
Xstatic void
Xprbits (table, value)
Xstruct bits *table;
Xint value;
X{
X int i;
X
X for (i = 0;table[i].b_name;i++)
X if (table[i].b_value == (table[i].b_mask & value))
X printf (" %s", table[i].b_name);
X}
X
Xprttys (string)
Xchar *string;
X{
X char *cp;
X char *device;
X int items[100];
X int cnt;
X long addr;
X long diff;
X int i, j;
X struct tty tty;
X
X while (*string && isspace (*string))
X string++;
X
X device = string;
X
X while (*string && *string != ',')
X string++;
X
X if (*string == ',') {
X *string++ = '\0';
X while (*string && isspace (*string))
X string++;
X }
X if (expr (&device, &addr)) {
X printf ("error in tty address at '%.15s'\n", device);
X return;
X }
X if (! *string) {
X printf ("no ttys requested\n");
X return;
X }
X if ((cnt = list (string, items, 100)) <= 0)
X return;
X
X *string++ = '\0';
X
X if (device = data2sym (addr, &diff))
X if (diff % sizeof tty != 0)
X device = (char *) 0;
X
X for (i = 0;i < cnt;i++) {
X if (l_lseek (memfd, addr + items[i] * sizeof tty, 0) == -1 ||
X r_read (memfd, &tty, sizeof tty) != sizeof tty)
X return;
X
X if (i != 0)
X putchar ('\n');
X
X if (device)
X printf ("%s[%d]:\n", device,
X diff / sizeof tty + items[i]);
X else
X printf ("tty[%d]:\n", items[i]);
X
X printf ("iflag:"); prbits (ibits, tty.t_iflag); putchar ('\n');
X printf ("oflag:"); prbits (obits, tty.t_oflag); putchar ('\n');
X printf ("cflag:"); prbits (cbits, tty.t_cflag); putchar ('\n');
X printf ("lflag:"); prbits (lbits, tty.t_lflag); putchar ('\n');
X printf ("state:"); prbits (state, tty.t_state); putchar ('\n');
X printf ("line disc: %d\n", tty.t_line);
X printf ("pgrp: %d\n", tty.t_pgrp);
X
X printf ("special characters:");
X for (j = 0;j < NCC;j++) {
X if (tty.t_cc[j] <= ' ' && tty.t_cc[j] >= 0)
X printf (" ^%c", tty.t_cc[j] + '@');
X else if (tty.t_cc[j] >= '~')
X printf (" %0.2x", tty.t_cc[j]);
X else
X printf (" '%c", tty.t_cc[j]);
X }
X putchar ('\n');
X }
X}
SHAR_EOF
if test 4724 -ne "`wc -c < 'ttys.c'`"
then
echo shar: "error transmitting 'ttys.c'" '(should have been 4724 characters)'
fi
fi
echo shar: "extracting 'crash.h'" '(1267 characters)'
if test -f 'crash.h'
then
echo shar: "will not over-write existing file 'crash.h'"
else
sed 's/^X//' << \SHAR_EOF > 'crash.h'
X/*
X * Copyright 1988, 1991, John F. Haugh II
X * All rights reserved.
X *
X * Permission is granted to copy and create derivative works for any
X * non-commercial purpose, provided this copyright notice is preserved
X * in all copies of source code, or included in human readable form
X * and conspicuously displayed on all copies of object code or
X * distribution media.
X *
X * @(#)crash.h 2.1 07:08:34 2/27/91
X */
X
Xextern int memfd;
Xextern int kmemfd;
Xextern int swapfd;
X
X#define NM_V 0
X#define NM_FILE 1
X#define NM_INODE 2
X#define NM_PROC 3
X#define NM_TEXT 4
X#define NM_MOUNT 5
X#define NM_BUFFER 6
X#define NM_SWPLO 7
X#define NM_TIME 8
X#define NM_LBOLT 9
X#define NM_UTSNAME 10
X#define NM_USER 11
X#define NM_CDEVCNT 12
X#define NM_CDEVSW 13
X#define NM_BDEVCNT 14
X#define NM_BDEVSW 15
X#define NM_NAMES 16
X
Xextern struct xlist namelist[];
Xextern struct var v;
Xextern struct file *files;
Xextern struct inode *inodes;
Xextern struct text *texts;
Xextern struct proc *procs;
Xextern struct mount *mounts;
Xextern struct buf *bufs;
Xextern struct buf *bufstart;
Xextern struct user user;
Xextern daddr_t swplo;
Xextern time_t ktime;
Xextern time_t klbolt;
Xextern struct utsname utsname;
Xextern int Cdevcnt;
Xextern int Bdevcnt;
Xextern struct cdevsw *Cdevsw;
Xextern struct bdevsw *Bdevsw;
SHAR_EOF
if test 1267 -ne "`wc -c < 'crash.h'`"
then
echo shar: "error transmitting 'crash.h'" '(should have been 1267 characters)'
fi
fi
exit 0
# End of shell archive