Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/misc/volume3/psc

Internet Message Format | 1989-02-03 | 4.0 KB

Path: xanth!mcnc!gatech!bloom-beacon!husc6!m2c!necntc!ncoast!allbery
From: [e-mail] (Joe Bob Willie)
Newsgroups: comp.sources.misc
Subject: v03i093: psc -- format and print the user area of a core file
Message-ID: <[e-mail]>
Date: 19 Jul 88 20:26:28 GMT
Sender: [e-mail]
Reply-To: [e-mail] (Joe Bob Willie)
Lines: 123
Approved: [e-mail]

Posting-number: Volume 3, Issue 93
Submitted-by: "Joe Bob Willie" <[e-mail]>
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    ([e-mail])
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