2 * Copyright (c) 1984 through 2008, William LeFebvre
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions are met:
8 * * Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
11 * * Redistributions in binary form must reproduce the above
12 * copyright notice, this list of conditions and the following disclaimer
13 * in the documentation and/or other materials provided with the
16 * * Neither the name of William LeFebvre nor the names of other
17 * contributors may be used to endorse or promote products derived from
18 * this software without specific prior written permission.
20 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
21 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
22 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
23 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
24 * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
25 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
26 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
27 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
28 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
29 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
30 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
34 * Top users/processes display for Unix
39 * This file contains the routines that implement some of the interactive
40 * mode commands. Note that some of the commands are implemented in-line
41 * in "main". This is necessary because they change the global state of
42 * "top" (i.e.: changing the number of processes to display).
52 #ifdef HAVE_SYS_RESOURCE_H
53 #include <sys/resource.h>
56 #if defined(HAVE_DECL_SYS_SIGLIST) & defined(HAVE_STRCASECMP)
57 #define USE_SYS_SIGLIST
60 #ifdef USE_SYS_SIGLIST
61 extern const char * const sys_siglist
[];
62 extern const char * const sys_signame
[];
64 #include "sigdesc.h" /* generated automatically */
68 #include "globalstate.h"
78 extern char *copyright
;
80 typedef struct command
{
82 int (*cmd_func
)(globalstate
*);
87 * Some of the commands make system calls that could generate errors.
88 * These errors are collected up in an array of structures for later
89 * contemplation and display. Such routines return a string containing an
90 * error message, or NULL if no errors occurred. We need an upper limit on
91 * the number of errors, so we arbitrarily choose 20.
96 struct errs
/* structure for a system-call error */
98 int errnum
; /* value of errno (that is, the actual error) */
99 char *arg
; /* argument that caused the error */
102 static struct errs errs
[ERRMAX
];
105 /* These macros get used to reset and log the errors */
106 #define ERR_RESET errcnt = 0
107 #define ERROR(p, e) if (errcnt < ERRMAX) \
109 errs[errcnt].arg = (p); \
110 errs[errcnt++].errnum = (e); \
114 * err_compar(p1, p2) - comparison routine used by "qsort"
115 * for sorting errors.
119 err_compar(const void *p1
, const void *p2
)
124 if ((result
= ((const struct errs
*)p1
)->errnum
-
125 ((const struct errs
*)p2
)->errnum
) == 0)
127 return(strcmp(((const struct errs
*)p1
)->arg
,
128 ((const struct errs
*)p2
)->arg
));
134 * str_adderr(str, len, err) - add an explanation of error "err" to
135 * the string "str" without overflowing length "len". return
136 * number of characters remaining in str, or 0 if overflowed.
140 str_adderr(char *str
, int len
, int err
)
143 register const char *msg
;
146 msg
= err
== 0 ? "Not a number" : errmsg(err
);
147 msglen
= strlen(msg
) + 2;
152 (void) strcat(str
, ": ");
153 (void) strcat(str
, msg
);
154 return(len
- msglen
);
158 * str_addarg(str, len, arg, first) - add the string argument "arg" to
159 * the string "str" without overflowing length "len". This is the
160 * first in the group when "first" is set (indicating that a comma
161 * should NOT be added to the front). Return number of characters
162 * remaining in str, or 0 if overflowed.
166 str_addarg(char *str
, int len
, char *arg
, int first
)
171 arglen
= strlen(arg
);
182 (void) strcat(str
, ", ");
184 (void) strcat(str
, arg
);
185 return(len
- arglen
);
191 * Use message_error to log errors in the errs array. This function
192 * will combine identical errors to make the message short, but if
193 * there is more than one type of error it will call message_error
203 register struct errs
*errp
;
204 register int cnt
= 0;
205 register int first
= Yes
;
206 register int currerr
= -1;
207 int stringlen
= 0; /* characters still available in "string" */
210 /* if there are no errors, our job is easy */
216 /* sort the errors */
217 qsort((char *)errs
, errcnt
, sizeof(struct errs
), err_compar
);
219 /* initialize the buffer (probably not necessary) */
221 stringlen
= STRMAX
- 1;
223 /* loop thru the sorted list, logging errors */
226 /* point to the current error */
227 errp
= &(errs
[cnt
++]);
229 /* note that on overflow "stringlen" will become 0 and all
230 subsequent calls to str_addarg or str_adderr will return 0 */
232 /* if the error number is different then add the error string */
233 if (errp
->errnum
!= currerr
)
237 /* add error string and log the error */
238 stringlen
= str_adderr(string
, stringlen
, currerr
);
239 message_error(" %s", string
);
242 /* reset the buffer */
244 stringlen
= STRMAX
- 1;
246 /* move to next error num */
247 currerr
= errp
->errnum
;
252 stringlen
= str_addarg(string
, stringlen
, errp
->arg
, first
);
256 /* add final message */
257 stringlen
= str_adderr(string
, stringlen
, currerr
);
259 /* write the error string */
260 message_error(" %s", string
);
264 * Utility routines that help with some of the commands.
268 next_field(char *str
)
272 if ((str
= strchr(str
, ' ')) == NULL
)
277 while (*++str
== ' ') /* loop */;
279 /* if there is nothing left of the string, return NULL */
280 /* This fix is dedicated to Greg Earle */
281 return(*str
== '\0' ? NULL
: str
);
285 scanint(char *str
, int *intp
)
288 register int val
= 0;
291 /* if there is nothing left of the string, flag it as an error */
292 /* This fix is dedicated to Greg Earle */
298 while ((ch
= *str
++) != '\0')
302 val
= val
* 10 + (ch
- '0');
304 else if (isspace(ch
))
319 * error_count() - return the number of errors currently logged.
330 * show_errors() - display on stdout the current log of errors.
337 register int cnt
= 0;
338 register struct errs
*errp
= errs
;
340 printf("%d error%s:\n\n", errcnt
, errcnt
== 1 ? "" : "s");
341 while (cnt
++ < errcnt
)
343 printf("%5s: %s\n", errp
->arg
,
344 errp
->errnum
== 0 ? "Not a number" : errmsg(errp
->errnum
));
351 * kill_procs(str) - send signals to processes, much like the "kill"
352 * command does; invoked in response to 'k'.
356 kill_procs(char *str
)
360 int signum
= SIGTERM
; /* default */
364 #ifndef USE_SYS_SIGLIST
365 struct sigdesc
*sigp
;
368 /* reset error array */
371 /* remember our uid */
374 /* skip over leading white space */
375 while (isspace((int)*str
)) str
++;
379 /* explicit signal specified */
380 if ((nptr
= next_field(str
)) == NULL
)
382 message_error(" kill: no processes specified");
387 if (isdigit((int)str
[0]))
389 (void) scanint(str
, &signum
);
390 if (signum
<= 0 || signum
>= NSIG
)
392 message_error(" kill: invalid signal number");
398 /* translate the name into a number */
399 #ifdef USE_SYS_SIGLIST
400 for (signum
= 1; signum
< NSIG
; signum
++)
402 if (strcasecmp(sys_signame
[signum
], str
) == 0)
409 message_error(" kill: bad signal name");
413 for (sigp
= sigdesc
; sigp
->name
!= NULL
; sigp
++)
415 #ifdef HAVE_STRCASECMP
416 if (strcasecmp(sigp
->name
, str
) == 0)
418 if (strcmp(sigp
->name
, str
) == 0)
421 signum
= sigp
->number
;
426 /* was it ever found */
427 if (sigp
->name
== NULL
)
429 message_error(" kill: bad signal name");
434 /* put the new pointer in place */
438 /* loop thru the string, killing processes */
441 if (scanint(str
, &procnum
) == -1)
447 /* check process owner if we're not root */
448 owner
= proc_owner(procnum
);
449 if (uid
&& (uid
!= owner
))
451 ERROR(str
, owner
== -1 ? ESRCH
: EACCES
);
453 /* go in for the kill */
454 else if (kill(procnum
, signum
) == -1)
456 /* chalk up an error */
460 } while ((str
= next_field(str
)) != NULL
);
467 * renice_procs(str) - change the "nice" of processes, much like the
468 * "renice" command does; invoked in response to 'r'.
472 renice_procs(char *str
)
475 register char negate
;
481 /* LSC: -Werror=maybe-uninitialized while compiling with -O3. */
483 #endif /* defined(__minix) */
487 /* allow for negative priority values */
488 if ((negate
= (*str
== '-')) != 0)
490 /* move past the minus sign */
494 /* use procnum as a temporary holding place and get the number */
495 procnum
= scanint(str
, &prio
);
497 /* negate if necessary */
503 #if defined(PRIO_MIN) && defined(PRIO_MAX)
504 /* check for validity */
505 if (procnum
== -1 || prio
< PRIO_MIN
|| prio
> PRIO_MAX
)
507 message_error(" renice: bad priority value");
512 /* move to the first process number */
513 if ((str
= next_field(str
)) == NULL
)
515 message_error(" remice: no processes specified");
519 #ifdef HAVE_SETPRIORITY
520 /* loop thru the process numbers, renicing each one */
523 if (scanint(str
, &procnum
) == -1)
528 /* check process owner if we're not root */
529 else if (uid
&& (uid
!= proc_owner(procnum
)))
533 else if (setpriority(PRIO_PROCESS
, procnum
, prio
) == -1)
537 } while ((str
= next_field(str
)) != NULL
);
540 message_error(" renice operation not supported");
544 /* COMMAND ROUTINES */
547 * Each command routine is called by command_process and is passed a
548 * pointer to the current global state. Command routines are free
549 * to change anything in the global state, although changes to the
550 * statics structure are discouraged. Whatever a command routine
551 * returns will be returned by command_process.
555 cmd_quit(globalstate
*gstate
)
563 cmd_update(globalstate
*gstate
)
566 /* go home for visual feedback */
574 cmd_redraw(globalstate
*gstate
)
577 gstate
->fulldraw
= Yes
;
582 cmd_color(globalstate
*gstate
)
585 gstate
->use_color
= color_activate(-1);
586 gstate
->fulldraw
= Yes
;
591 cmd_number(globalstate
*gstate
)
597 message_prompt("Number of processes to show: ");
598 newval
= readline(tmpbuf
, 8, Yes
);
601 if (newval
> gstate
->max_topn
)
603 message_error(" This terminal can only display %d processes",
609 /* inhibit the header */
613 else if (gstate
->topn
== 0)
618 gstate
->topn
= newval
;
624 cmd_delay(globalstate
*gstate
)
630 message_prompt("Seconds to delay: ");
631 if (readline(tmpbuf
, 8, No
) > 0)
633 newval
= atof(tmpbuf
);
634 if (newval
== 0 && getuid() != 0)
640 gstate
->delay
= newval
;
647 cmd_idle(globalstate
*gstate
)
650 gstate
->pselect
.idle
= !gstate
->pselect
.idle
;
651 message_error(" %sisplaying idle processes.",
652 gstate
->pselect
.idle
? "D" : "Not d");
657 cmd_displays(globalstate
*gstate
)
663 message_prompt("Displays to show (currently %s): ",
664 gstate
->displays
== -1 ? "infinite" :
665 itoa(gstate
->displays
));
667 if ((i
= readline(tmpbuf
, 10, Yes
)) > 0)
669 gstate
->displays
= i
;
680 cmd_cmdline(globalstate
*gstate
)
683 if (gstate
->statics
->flags
.fullcmds
)
685 gstate
->pselect
.fullcmd
= !gstate
->pselect
.fullcmd
;
686 message_error(" %sisplaying full command lines.",
687 gstate
->pselect
.fullcmd
? "D" : "Not d");
690 message_error(" Full command display not supported.");
695 cmd_order(globalstate
*gstate
)
698 char tmpbuf
[MAX_COLS
];
701 if (gstate
->statics
->order_names
!= NULL
)
703 message_prompt("Column to sort: ");
704 if (readline(tmpbuf
, sizeof(tmpbuf
), No
) > 0)
706 if ((i
= string_index(tmpbuf
, gstate
->statics
->order_names
)) == -1)
708 message_error(" Sort order \"%s\" not recognized", tmpbuf
);
712 gstate
->order_index
= i
;
721 cmd_order_x(globalstate
*gstate
, const char *name
, ...)
729 names
= gstate
->statics
->order_names
;
732 if ((i
= string_index(name
, names
)) == -1)
734 /* check the alternate list */
736 p
= va_arg(ap
, char *);
739 if ((i
= string_index(p
, names
)) != -1)
741 gstate
->order_index
= i
;
744 p
= va_arg(ap
, char *);
746 message_error(" Sort order not recognized");
750 gstate
->order_index
= i
;
758 cmd_order_cpu(globalstate
*gstate
)
761 return cmd_order_x(gstate
, "cpu", NULL
);
765 cmd_order_pid(globalstate
*gstate
)
768 return cmd_order_x(gstate
, "pid", NULL
);
772 cmd_order_mem(globalstate
*gstate
)
775 return cmd_order_x(gstate
, "mem", "size", NULL
);
779 cmd_order_time(globalstate
*gstate
)
782 return cmd_order_x(gstate
, "time");
788 cmd_kill(globalstate
*gstate
)
791 char tmpbuf
[MAX_COLS
];
793 message_prompt_plain("kill ");
794 if (readline(tmpbuf
, sizeof(tmpbuf
), No
) > 0)
802 cmd_renice(globalstate
*gstate
)
805 char tmpbuf
[MAX_COLS
];
807 message_prompt_plain("renice ");
808 if (readline(tmpbuf
, sizeof(tmpbuf
), No
) > 0)
810 renice_procs(tmpbuf
);
818 cmd_pid(globalstate
*gstate
)
821 char tmpbuf
[MAX_COLS
];
823 message_prompt_plain("select pid ");
824 gstate
->pselect
.pid
= -1;
825 if (readline(tmpbuf
, sizeof(tmpbuf
), No
) > 0)
828 if (scanint(tmpbuf
, &pid
) == 0)
829 gstate
->pselect
.pid
= pid
;
835 cmd_user(globalstate
*gstate
)
838 char linebuf
[MAX_COLS
];
842 message_prompt("Username to show: ");
843 if (readline(linebuf
, sizeof(linebuf
), No
) > 0)
845 if (linebuf
[0] == '+' &&
848 gstate
->pselect
.uid
= -1;
851 else if ((i
= userid(linebuf
)) == -1)
853 message_error(" %s: unknown user", linebuf
);
857 gstate
->pselect
.uid
= i
;
865 cmd_command(globalstate
*gstate
)
868 char linebuf
[MAX_COLS
];
870 if (gstate
->pselect
.command
!= NULL
)
872 free(gstate
->pselect
.command
);
873 gstate
->pselect
.command
= NULL
;
876 message_prompt("Command to show: ");
877 if (readline(linebuf
, sizeof(linebuf
), No
) > 0)
879 if (linebuf
[0] != '\0')
881 gstate
->pselect
.command
= estrdup(linebuf
);
888 cmd_useruid(globalstate
*gstate
)
891 gstate
->pselect
.usernames
= !gstate
->pselect
.usernames
;
897 cmd_mode(globalstate
*gstate
)
900 if (gstate
->statics
->modemax
<= 1)
904 gstate
->pselect
.mode
= (gstate
->pselect
.mode
+ 1) % gstate
->statics
->modemax
;
910 cmd_system(globalstate
*gstate
)
913 gstate
->pselect
.system
= !gstate
->pselect
.system
;
919 cmd_threads(globalstate
*gstate
)
922 if (gstate
->statics
->flags
.threads
)
924 gstate
->pselect
.threads
= !gstate
->pselect
.threads
;
932 cmd_percpustates(globalstate
*gstate
)
934 gstate
->percpustates
= !gstate
->percpustates
;
935 gstate
->fulldraw
= Yes
;
936 gstate
->max_topn
+= display_setmulti(gstate
->percpustates
);
941 /* forward reference for cmd_help, as it needs to see the command_table */
942 int cmd_help(globalstate
*gstate
);
945 command command_table
[] = {
946 { '\014', cmd_redraw
, "redraw screen" },
947 { ' ', cmd_update
, "update screen" },
948 { '?', cmd_help
, "help; show this text" },
949 { 'h', cmd_help
, NULL
},
950 { '1', cmd_percpustates
, "toggle the display of cpu states per cpu" },
951 { 'C', cmd_color
, "toggle the use of color" },
952 { 'H', cmd_threads
, "toggle the display of individual threads" },
953 { 't', cmd_threads
, NULL
},
954 { 'M', cmd_order_mem
, "sort by memory usage" },
955 { 'N', cmd_order_pid
, "sort by process id" },
956 { 'P', cmd_order_cpu
, "sort by CPU usage" },
957 { 'S', cmd_system
, "toggle the display of system processes" },
958 { 'T', cmd_order_time
, "sort by CPU time" },
959 { 'U', cmd_useruid
, "toggle the display of usernames or uids" },
960 { 'c', cmd_command
, "display processes by command name" },
961 { 'd', cmd_displays
, "change number of displays to show" },
962 { 'f', cmd_cmdline
, "toggle the display of full command paths" },
963 { 'i', cmd_idle
, "toggle the displaying of idle processes" },
964 { 'I', cmd_idle
, NULL
},
966 { 'k', cmd_kill
, "kill processes; send a signal to a list of processes" },
968 { 'm', cmd_mode
, "toggle between display modes" },
969 { 'n', cmd_number
, "change number of processes to display" },
970 { '#', cmd_number
, NULL
},
971 { 'o', cmd_order
, "specify sort order (see below)" },
972 { 'p', cmd_pid
, "select a single pid" },
973 { 'q', (int (*)(globalstate
*))cmd_quit
, "quit" },
975 { 'r', cmd_renice
, "renice a process" },
977 { 's', cmd_delay
, "change number of seconds to delay between updates" },
978 { 'u', cmd_user
, "display processes for only one user (+ selects all users)" },
979 { '\0', NULL
, NULL
},
983 cmd_help(globalstate
*gstate
)
991 display_pagerstart();
993 display_pager("Top version %s, %s\n", version_string(), copyright
);
994 display_pager("Platform module: %s\n\n", MODULE
);
995 display_pager("A top users display for Unix\n\n");
996 display_pager("These single-character commands are available:\n\n");
999 while (c
->cmd_func
!= NULL
)
1001 /* skip null help strings */
1002 if ((help
= c
->help
) == NULL
)
1007 /* translate character in to something readable */
1011 buf
[1] = c
->ch
+ '@';
1014 else if (c
->ch
== ' ')
1016 strcpy(buf
, "<sp>");
1024 /* if the next command is the same, fold them onto one line */
1025 if ((c
+1)->cmd_func
== c
->cmd_func
)
1027 strcat(buf
, " or ");
1028 p
= buf
+ strlen(buf
);
1034 display_pager("%-7s - %s\n", buf
, help
);
1038 display_pager("\nNot all commands are available on all systems.\n\n");
1039 display_pager("Available sort orders: %s\n", gstate
->order_namelist
);
1041 gstate
->fulldraw
= Yes
;
1046 * int command_process(globalstate *gstate, int cmd)
1048 * Process the single-character command "cmd". The global state may
1049 * be modified by the command to alter the output. Returns CMD_ERROR
1050 * if there was a serious error that requires an immediate exit, CMD_OK
1051 * to indicate success, CMD_REFRESH to indicate that the screen needs
1052 * to be refreshed immediately, CMD_UNKNOWN when the command is not known,
1053 * and CMD_NA when the command is not available. Error messages for
1054 * CMD_NA and CMD_UNKNOWN must be handled by the caller.
1058 command_process(globalstate
*gstate
, int cmd
)
1064 while (c
->cmd_func
!= NULL
)
1068 return (c
->cmd_func
)(gstate
);