v03i093: psc -- format and print the user area of a core file

[Joe Bob Willie]

Posting-number: Volume 3, Issue 93
Submitted-by: "Joe Bob Willie" <root at pigs.UUCP>
Archive-name: psc

here is yet another submission.  we've been having so much trouble with
our plexus computers that i've written a utility to format the contents
of the u-page in the core dumps we are getting.

[Somehow that sounds familiar....  ++bsa

this command reads the user structure from a core file and outputs it in
a format similiar to what crash produces.  this has already proved to be
a handy little tool.

- john.
------------------------------- cut here ------------------------
#! /bin/sh
echo x - psc.c
sed 's/^X//' << \EOF > psc.c
X#include <sys/types.h>
X#include <sys/sysmacros.h>
X#include <sys/param.h>
X#include <sys/signal.h>
X#include <sys/dir.h>
X#include <sys/file.h>
X#include <sys/proc.h>
X#include <sys/lock.h>
X#include <sys/user.h>
X#include <stdio.h>
X
X/*
X * psc - print status from core file
X *
X *	This program was written by John F. Haugh II, and is hereby
X *	placed in the public domain.  Use at your own risk ...
X *
X *	Author:
X *
X *	John F. Haugh II	(jfh at rpp386.uucp)
X *	19 July 1988
X *
X *	Synopsis:
X *
X *	psc [ corefile ]
X *
X *	Description:
X *
X *	psc reads the user page from the beginning of a core file and
X *	outputs some statistics.  The format is fairly similiar to the
X *	output produced by the `user' command in crash(1M).  Note that
X *	the I/O information is generally worthless since Unix sets
X *	up a write command to output the core file.
X *
X *	If corefile is omitted, psc defaults to the file named core in
X *	the current directory.
X *
X *	To Port:
X *
X *	The u-page is the first structure starting at the beginning
X *	of the core file.  This should be universally true for all AT&T
X *	Unixii and may be true for Berzerkeley Unix.  The only thing
X *	which may need to be changed is the u_base member of the user
X *	structure.  Look in /usr/include/sys/user.h for possible names
X *	for the base address for I/O.
X *
X *	The other big change has to do with the appropriate collection
X *	of include files.  There are dozens of possibilities.  But,
X *	fortunately only a finite number of combinations.
X *
X *	To Compile:
X *
X *	cc -o psc psc.c
X */
X
Xstruct	user	user;
Xchar	*corefile = "core";
X
Xmain (argc, argv)
Xint	argc;
Xchar	**argv;
X{
X	char	*segments[] = { "user", "system", "user i" };
X	FILE	*cfp;
X
X	if (argc != 0)
X		corefile = argv[1];
X
X	if ((cfp = fopen (corefile, "r")) == (FILE *) 0) {
X		perror (corefile);
X		exit (1);
X	}
X	if (fread ((char *) &user, sizeof user, 1, cfp) != 1) {
X		perror (corefile);
X		exit (1);
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: %lx, cntrl tty: maj(%d) min(%d)\n",
X		user.u_procp, 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	printf ("FILE I/O:	user addr: %ld, file offset: %ld, bytes: %ld,\n",
X#if defined(M_XENIX)
X		user.u_baseu,
X#else
X		user.u_base,
X#endif
X		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}
EOF
exit 0