diff options
Diffstat (limited to 'contrib/top/top.c')
| -rw-r--r-- | contrib/top/top.c | 996 |
1 files changed, 996 insertions, 0 deletions
diff --git a/contrib/top/top.c b/contrib/top/top.c new file mode 100644 index 0000000..55bee4e --- /dev/null +++ b/contrib/top/top.c @@ -0,0 +1,996 @@ +char *copyright = + "Copyright (c) 1984 through 1996, William LeFebvre"; + +/* + * Top users/processes display for Unix + * Version 3 + * + * This program may be freely redistributed, + * but this entire comment MUST remain intact. + * + * Copyright (c) 1984, 1989, William LeFebvre, Rice University + * Copyright (c) 1989, 1990, 1992, William LeFebvre, Northwestern University + */ + +/* + * See the file "Changes" for information on version-to-version changes. + */ + +/* + * This file contains "main" and other high-level routines. + */ + +/* + * The following preprocessor variables, when defined, are used to + * distinguish between different Unix implementations: + * + * SIGHOLD - use SVR4 sighold function when defined + * SIGRELSE - use SVR4 sigrelse function when defined + * FD_SET - macros FD_SET and FD_ZERO are used when defined + */ + +#include "os.h" +#include <signal.h> +#include <setjmp.h> +#include <ctype.h> +#include <sys/time.h> + +/* includes specific to top */ +#include "display.h" /* interface to display package */ +#include "screen.h" /* interface to screen package */ +#include "top.h" +#include "top.local.h" +#include "boolean.h" +#include "machine.h" +#include "utils.h" + +/* Size of the stdio buffer given to stdout */ +#define Buffersize 2048 + +/* The buffer that stdio will use */ +char stdoutbuf[Buffersize]; + +/* build Signal masks */ +#define Smask(s) (1 << ((s) - 1)) + +/* for system errors */ +extern int errno; + +/* for getopt: */ +extern int optind; +extern char *optarg; + +/* imported from screen.c */ +extern int overstrike; + +/* signal handling routines */ +sigret_t leave(); +sigret_t onalrm(); +sigret_t tstop(); +#ifdef SIGWINCH +sigret_t winch(); +#endif + +/* internal routines */ +void quit(); + +/* values which need to be accessed by signal handlers */ +static int max_topn; /* maximum displayable processes */ + +/* miscellaneous things */ +char *myname = "top"; +jmp_buf jmp_int; + +/* routines that don't return int */ + +char *username(); +char *ctime(); +char *kill_procs(); +char *renice_procs(); + +#ifdef ORDER +extern int (*proc_compares[])(); +#else +extern int proc_compare(); +#endif +time_t time(); + +caddr_t get_process_info(); + +/* different routines for displaying the user's identification */ +/* (values assigned to get_userid) */ +char *username(); +char *itoa7(); + +/* display routines that need to be predeclared */ +int i_loadave(); +int u_loadave(); +int i_procstates(); +int u_procstates(); +int i_cpustates(); +int u_cpustates(); +int i_memory(); +int u_memory(); +int i_message(); +int u_message(); +int i_header(); +int u_header(); +int i_process(); +int u_process(); + +/* pointers to display routines */ +int (*d_loadave)() = i_loadave; +int (*d_procstates)() = i_procstates; +int (*d_cpustates)() = i_cpustates; +int (*d_memory)() = i_memory; +int (*d_message)() = i_message; +int (*d_header)() = i_header; +int (*d_process)() = i_process; + + +main(argc, argv) + +int argc; +char *argv[]; + +{ + register int i; + register int active_procs; + register int change; + + struct system_info system_info; + struct statics statics; + caddr_t processes; + + static char tempbuf1[50]; + static char tempbuf2[50]; + int old_sigmask; /* only used for BSD-style signals */ + int topn = Default_TOPN; + int delay = Default_DELAY; + int displays = 0; /* indicates unspecified */ + time_t curr_time; + char *(*get_userid)() = username; + char *uname_field = "USERNAME"; + char *header_text; + char *env_top; + char **preset_argv; + int preset_argc = 0; + char **av; + int ac; + char dostates = No; + char do_unames = Yes; + char interactive = Maybe; + char warnings = 0; +#if Default_TOPN == Infinity + char topn_specified = No; +#endif + char ch; + char *iptr; + char no_command = 1; + struct timeval timeout; + struct process_select ps; +#ifdef ORDER + char *order_name = NULL; + int order_index = 0; +#endif +#ifndef FD_SET + /* FD_SET and friends are not present: fake it */ + typedef int fd_set; +#define FD_ZERO(x) (*(x) = 0) +#define FD_SET(f, x) (*(x) = f) +#endif + fd_set readfds; + +#ifdef ORDER + static char command_chars[] = "\f qh?en#sdkriIuo"; +#else + static char command_chars[] = "\f qh?en#sdkriIu"; +#endif +/* these defines enumerate the "strchr"s of the commands in command_chars */ +#define CMD_redraw 0 +#define CMD_update 1 +#define CMD_quit 2 +#define CMD_help1 3 +#define CMD_help2 4 +#define CMD_OSLIMIT 4 /* terminals with OS can only handle commands */ +#define CMD_errors 5 /* less than or equal to CMD_OSLIMIT */ +#define CMD_number1 6 +#define CMD_number2 7 +#define CMD_delay 8 +#define CMD_displays 9 +#define CMD_kill 10 +#define CMD_renice 11 +#define CMD_idletog 12 +#define CMD_idletog2 13 +#define CMD_user 14 +#ifdef ORDER +#define CMD_order 15 +#endif + + /* set the buffer for stdout */ +#ifdef DEBUG + setbuffer(stdout, NULL, 0); +#else + setbuffer(stdout, stdoutbuf, Buffersize); +#endif + + /* get our name */ + if (argc > 0) + { + if ((myname = strrchr(argv[0], '/')) == 0) + { + myname = argv[0]; + } + else + { + myname++; + } + } + + /* initialize some selection options */ + ps.idle = Yes; + ps.system = No; + ps.uid = -1; + ps.command = NULL; + + /* get preset options from the environment */ + if ((env_top = getenv("TOP")) != NULL) + { + av = preset_argv = argparse(env_top, &preset_argc); + ac = preset_argc; + + /* set the dummy argument to an explanatory message, in case + getopt encounters a bad argument */ + preset_argv[0] = "while processing environment"; + } + + /* process options */ + do { + /* if we're done doing the presets, then process the real arguments */ + if (preset_argc == 0) + { + ac = argc; + av = argv; + + /* this should keep getopt happy... */ + optind = 1; + } + + while ((i = getopt(ac, av, "SIbinqus:d:U:o:")) != EOF) + { + switch(i) + { + case 'u': /* toggle uid/username display */ + do_unames = !do_unames; + break; + + case 'U': /* display only username's processes */ + if ((ps.uid = userid(optarg)) == -1) + { + fprintf(stderr, "%s: unknown user\n", optarg); + exit(1); + } + break; + + case 'S': /* show system processes */ + ps.system = !ps.system; + break; + + case 'I': /* show idle processes */ + ps.idle = !ps.idle; + break; + + case 'i': /* go interactive regardless */ + interactive = Yes; + break; + + case 'n': /* batch, or non-interactive */ + case 'b': + interactive = No; + break; + + case 'd': /* number of displays to show */ + if ((i = atoiwi(optarg)) == Invalid || i == 0) + { + fprintf(stderr, + "%s: warning: display count should be positive -- option ignored\n", + myname); + warnings++; + } + else + { + displays = i; + } + break; + + case 's': + if ((delay = atoi(optarg)) < 0) + { + fprintf(stderr, + "%s: warning: seconds delay should be non-negative -- using default\n", + myname); + delay = Default_DELAY; + warnings++; + } + break; + + case 'q': /* be quick about it */ + /* only allow this if user is really root */ + if (getuid() == 0) + { + /* be very un-nice! */ + (void) nice(-20); + } + else + { + fprintf(stderr, + "%s: warning: `-q' option can only be used by root\n", + myname); + warnings++; + } + break; + + case 'o': /* select sort order */ +#ifdef ORDER + order_name = optarg; +#else + fprintf(stderr, + "%s: this platform does not support arbitrary ordering. Sorry.\n", + myname); + warnings++; +#endif + break; + + default: + fprintf(stderr, "\ +Top version %s\n\ +Usage: %s [-ISbinqu] [-d x] [-s x] [-o field] [-U username] [number]\n", + version_string(), myname); + exit(1); + } + } + + /* get count of top processes to display (if any) */ + if (optind < ac) + { + if ((topn = atoiwi(av[optind])) == Invalid) + { + fprintf(stderr, + "%s: warning: process display count should be non-negative -- using default\n", + myname); + warnings++; + } +#if Default_TOPN == Infinity + else + { + topn_specified = Yes; + } +#endif + } + + /* tricky: remember old value of preset_argc & set preset_argc = 0 */ + i = preset_argc; + preset_argc = 0; + + /* repeat only if we really did the preset arguments */ + } while (i != 0); + + /* set constants for username/uid display correctly */ + if (!do_unames) + { + uname_field = " UID "; + get_userid = itoa7; + } + + /* initialize the kernel memory interface */ + if (machine_init(&statics) == -1) + { + exit(1); + } + +#ifdef ORDER + /* determine sorting order index, if necessary */ + if (order_name != NULL) + { + if ((order_index = string_index(order_name, statics.order_names)) == -1) + { + char **pp; + + fprintf(stderr, "%s: '%s' is not a recognized sorting order.\n", + myname, order_name); + fprintf(stderr, "\tTry one of these:"); + pp = statics.order_names; + while (*pp != NULL) + { + fprintf(stderr, " %s", *pp++); + } + fputc('\n', stderr); + exit(1); + } + } +#endif + +#ifdef no_initialization_needed + /* initialize the hashing stuff */ + if (do_unames) + { + init_hash(); + } +#endif + + /* initialize termcap */ + init_termcap(interactive); + + /* get the string to use for the process area header */ + header_text = format_header(uname_field); + + /* initialize display interface */ + if ((max_topn = display_init(&statics)) == -1) + { + fprintf(stderr, "%s: can't allocate sufficient memory\n", myname); + exit(4); + } + + /* print warning if user requested more processes than we can display */ + if (topn > max_topn) + { + fprintf(stderr, + "%s: warning: this terminal can only display %d processes.\n", + myname, max_topn); + warnings++; + } + + /* adjust for topn == Infinity */ + if (topn == Infinity) + { + /* + * For smart terminals, infinity really means everything that can + * be displayed, or Largest. + * On dumb terminals, infinity means every process in the system! + * We only really want to do that if it was explicitly specified. + * This is always the case when "Default_TOPN != Infinity". But if + * topn wasn't explicitly specified and we are on a dumb terminal + * and the default is Infinity, then (and only then) we use + * "Nominal_TOPN" instead. + */ +#if Default_TOPN == Infinity + topn = smart_terminal ? Largest : + (topn_specified ? Largest : Nominal_TOPN); +#else + topn = Largest; +#endif + } + + /* set header display accordingly */ + display_header(topn > 0); + + /* determine interactive state */ + if (interactive == Maybe) + { + interactive = smart_terminal; + } + + /* if # of displays not specified, fill it in */ + if (displays == 0) + { + displays = smart_terminal ? Infinity : 1; + } + + /* hold interrupt signals while setting up the screen and the handlers */ +#ifdef SIGHOLD + sighold(SIGINT); + sighold(SIGQUIT); + sighold(SIGTSTP); +#else + old_sigmask = sigblock(Smask(SIGINT) | Smask(SIGQUIT) | Smask(SIGTSTP)); +#endif + init_screen(); + (void) signal(SIGINT, leave); + (void) signal(SIGQUIT, leave); + (void) signal(SIGTSTP, tstop); +#ifdef SIGWINCH + (void) signal(SIGWINCH, winch); +#endif +#ifdef SIGRELSE + sigrelse(SIGINT); + sigrelse(SIGQUIT); + sigrelse(SIGTSTP); +#else + (void) sigsetmask(old_sigmask); +#endif + if (warnings) + { + fputs("....", stderr); + fflush(stderr); /* why must I do this? */ + sleep((unsigned)(3 * warnings)); + fputc('\n', stderr); + } + + /* setup the jump buffer for stops */ + if (setjmp(jmp_int) != 0) + { + /* control ends up here after an interrupt */ + reset_display(); + } + + /* + * main loop -- repeat while display count is positive or while it + * indicates infinity (by being -1) + */ + + while ((displays == -1) || (displays-- > 0)) + { + /* get the current stats */ + get_system_info(&system_info); + + /* get the current set of processes */ + processes = + get_process_info(&system_info, + &ps, +#ifdef ORDER + proc_compares[order_index]); +#else + proc_compare); +#endif + + /* display the load averages */ + (*d_loadave)(system_info.last_pid, + system_info.load_avg); + + /* display the current time */ + /* this method of getting the time SHOULD be fairly portable */ + time(&curr_time); + i_timeofday(&curr_time); + + /* display process state breakdown */ + (*d_procstates)(system_info.p_total, + system_info.procstates); + + /* display the cpu state percentage breakdown */ + if (dostates) /* but not the first time */ + { + (*d_cpustates)(system_info.cpustates); + } + else + { + /* we'll do it next time */ + if (smart_terminal) + { + z_cpustates(); + } + else + { + putchar('\n'); + } + dostates = Yes; + } + + /* display memory stats */ + (*d_memory)(system_info.memory); + + /* handle message area */ + (*d_message)(); + + /* update the header area */ + (*d_header)(header_text); + + if (topn > 0) + { + /* determine number of processes to actually display */ + /* this number will be the smallest of: active processes, + number user requested, number current screen accomodates */ + active_procs = system_info.p_active; + if (active_procs > topn) + { + active_procs = topn; + } + if (active_procs > max_topn) + { + active_procs = max_topn; + } + + /* now show the top "n" processes. */ + for (i = 0; i < active_procs; i++) + { + (*d_process)(i, format_next_process(processes, get_userid)); + } + } + else + { + i = 0; + } + + /* do end-screen processing */ + u_endscreen(i); + + /* now, flush the output buffer */ + fflush(stdout); + + /* only do the rest if we have more displays to show */ + if (displays) + { + /* switch out for new display on smart terminals */ + if (smart_terminal) + { + if (overstrike) + { + reset_display(); + } + else + { + d_loadave = u_loadave; + d_procstates = u_procstates; + d_cpustates = u_cpustates; + d_memory = u_memory; + d_message = u_message; + d_header = u_header; + d_process = u_process; + } + } + + no_command = Yes; + if (!interactive) + { + /* set up alarm */ + (void) signal(SIGALRM, onalrm); + (void) alarm((unsigned)delay); + + /* wait for the rest of it .... */ + pause(); + } + else while (no_command) + { + /* assume valid command unless told otherwise */ + no_command = No; + + /* set up arguments for select with timeout */ + FD_ZERO(&readfds); + FD_SET(1, &readfds); /* for standard input */ + timeout.tv_sec = delay; + timeout.tv_usec = 0; + + /* wait for either input or the end of the delay period */ + if (select(32, &readfds, (fd_set *)NULL, (fd_set *)NULL, &timeout) > 0) + { + int newval; + char *errmsg; + + /* something to read -- clear the message area first */ + clear_message(); + + /* now read it and convert to command strchr */ + /* (use "change" as a temporary to hold strchr) */ + (void) read(0, &ch, 1); + if ((iptr = strchr(command_chars, ch)) == NULL) + { + /* illegal command */ + new_message(MT_standout, " Command not understood"); + putchar('\r'); + no_command = Yes; + } + else + { + change = iptr - command_chars; + if (overstrike && change > CMD_OSLIMIT) + { + /* error */ + new_message(MT_standout, + " Command cannot be handled by this terminal"); + putchar('\r'); + no_command = Yes; + } + else switch(change) + { + case CMD_redraw: /* redraw screen */ + reset_display(); + break; + + case CMD_update: /* merely update display */ + /* is the load average high? */ + if (system_info.load_avg[0] > LoadMax) + { + /* yes, go home for visual feedback */ + go_home(); + fflush(stdout); + } + break; + + case CMD_quit: /* quit */ + quit(0); + /*NOTREACHED*/ + break; + + case CMD_help1: /* help */ + case CMD_help2: + reset_display(); + clear(); + show_help(); + standout("Hit any key to continue: "); + fflush(stdout); + (void) read(0, &ch, 1); + break; + + case CMD_errors: /* show errors */ + if (error_count() == 0) + { + new_message(MT_standout, + " Currently no errors to report."); + putchar('\r'); + no_command = Yes; + } + else + { + reset_display(); + clear(); + show_errors(); + standout("Hit any key to continue: "); + fflush(stdout); + (void) read(0, &ch, 1); + } + break; + + case CMD_number1: /* new number */ + case CMD_number2: + new_message(MT_standout, + "Number of processes to show: "); + newval = readline(tempbuf1, 8, Yes); + if (newval > -1) + { + if (newval > max_topn) + { + new_message(MT_standout | MT_delayed, + " This terminal can only display %d processes.", + max_topn); + putchar('\r'); + } + + if (newval == 0) + { + /* inhibit the header */ + display_header(No); + } + else if (newval > topn && topn == 0) + { + /* redraw the header */ + display_header(Yes); + d_header = i_header; + } + topn = newval; + } + break; + + case CMD_delay: /* new seconds delay */ + new_message(MT_standout, "Seconds to delay: "); + if ((i = readline(tempbuf1, 8, Yes)) > -1) + { + delay = i; + } + clear_message(); + break; + + case CMD_displays: /* change display count */ + new_message(MT_standout, + "Displays to show (currently %s): ", + displays == -1 ? "infinite" : + itoa(displays)); + if ((i = readline(tempbuf1, 10, Yes)) > 0) + { + displays = i; + } + else if (i == 0) + { + quit(0); + } + clear_message(); + break; + + case CMD_kill: /* kill program */ + new_message(0, "kill "); + if (readline(tempbuf2, sizeof(tempbuf2), No) > 0) + { + if ((errmsg = kill_procs(tempbuf2)) != NULL) + { + new_message(MT_standout, errmsg); + putchar('\r'); + no_command = Yes; + } + } + else + { + clear_message(); + } + break; + + case CMD_renice: /* renice program */ + new_message(0, "renice "); + if (readline(tempbuf2, sizeof(tempbuf2), No) > 0) + { + if ((errmsg = renice_procs(tempbuf2)) != NULL) + { + new_message(MT_standout, errmsg); + putchar('\r'); + no_command = Yes; + } + } + else + { + clear_message(); + } + break; + + case CMD_idletog: + case CMD_idletog2: + ps.idle = !ps.idle; + new_message(MT_standout | MT_delayed, + " %sisplaying idle processes.", + ps.idle ? "D" : "Not d"); + putchar('\r'); + break; + + case CMD_user: + new_message(MT_standout, + "Username to show: "); + if (readline(tempbuf2, sizeof(tempbuf2), No) > 0) + { + if (tempbuf2[0] == '+' && + tempbuf2[1] == '\0') + { + ps.uid = -1; + } + else if ((i = userid(tempbuf2)) == -1) + { + new_message(MT_standout, + " %s: unknown user", tempbuf2); + no_command = Yes; + } + else + { + ps.uid = i; + } + putchar('\r'); + } + else + { + clear_message(); + } + break; + +#ifdef ORDER + case CMD_order: + new_message(MT_standout, + "Order to sort: "); + if (readline(tempbuf2, sizeof(tempbuf2), No) > 0) + { + if ((i = string_index(tempbuf2, statics.order_names)) == -1) + { + new_message(MT_standout, + " %s: unrecognized sorting order", tempbuf2); + no_command = Yes; + } + else + { + order_index = i; + } + putchar('\r'); + } + else + { + clear_message(); + } + break; +#endif + + default: + new_message(MT_standout, " BAD CASE IN SWITCH!"); + putchar('\r'); + } + } + + /* flush out stuff that may have been written */ + fflush(stdout); + } + } + } + } + + quit(0); + /*NOTREACHED*/ +} + +/* + * reset_display() - reset all the display routine pointers so that entire + * screen will get redrawn. + */ + +reset_display() + +{ + d_loadave = i_loadave; + d_procstates = i_procstates; + d_cpustates = i_cpustates; + d_memory = i_memory; + d_message = i_message; + d_header = i_header; + d_process = i_process; +} + +/* + * signal handlers + */ + +sigret_t leave() /* exit under normal conditions -- INT handler */ + +{ + end_screen(); + exit(0); +} + +sigret_t tstop(i) /* SIGTSTP handler */ + +int i; + +{ + /* move to the lower left */ + end_screen(); + fflush(stdout); + + /* default the signal handler action */ + (void) signal(SIGTSTP, SIG_DFL); + + /* unblock the signal and send ourselves one */ +#ifdef SIGRELSE + sigrelse(SIGTSTP); +#else + (void) sigsetmask(sigblock(0) & ~(1 << (SIGTSTP - 1))); +#endif + (void) kill(0, SIGTSTP); + + /* reset the signal handler */ + (void) signal(SIGTSTP, tstop); + + /* reinit screen */ + reinit_screen(); + + /* jump to appropriate place */ + longjmp(jmp_int, 1); + + /*NOTREACHED*/ +} + +#ifdef SIGWINCH +sigret_t winch(i) /* SIGWINCH handler */ + +int i; + +{ + /* reascertain the screen dimensions */ + get_screensize(); + + /* tell display to resize */ + max_topn = display_resize(); + + /* reset the signal handler */ + (void) signal(SIGWINCH, winch); + + /* jump to appropriate place */ + longjmp(jmp_int, 1); +} +#endif + +void quit(status) /* exit under duress */ + +int status; + +{ + end_screen(); + exit(status); + /*NOTREACHED*/ +} + +sigret_t onalrm() /* SIGALRM handler */ + +{ + /* this is only used in batch mode to break out of the pause() */ + /* return; */ +} + |
