ps.c revision 1.64 1 1.64 yamt /* $NetBSD: ps.c,v 1.64 2007/10/24 12:10:11 yamt Exp $ */
2 1.13 cgd
3 1.40 simonb /*
4 1.40 simonb * Copyright (c) 2000 The NetBSD Foundation, Inc.
5 1.40 simonb * All rights reserved.
6 1.40 simonb *
7 1.40 simonb * This code is derived from software contributed to The NetBSD Foundation
8 1.40 simonb * by Simon Burge.
9 1.40 simonb *
10 1.40 simonb * Redistribution and use in source and binary forms, with or without
11 1.40 simonb * modification, are permitted provided that the following conditions
12 1.40 simonb * are met:
13 1.40 simonb * 1. Redistributions of source code must retain the above copyright
14 1.40 simonb * notice, this list of conditions and the following disclaimer.
15 1.40 simonb * 2. Redistributions in binary form must reproduce the above copyright
16 1.40 simonb * notice, this list of conditions and the following disclaimer in the
17 1.40 simonb * documentation and/or other materials provided with the distribution.
18 1.40 simonb * 3. All advertising materials mentioning features or use of this software
19 1.40 simonb * must display the following acknowledgement:
20 1.40 simonb * This product includes software developed by the NetBSD
21 1.40 simonb * Foundation, Inc. and its contributors.
22 1.40 simonb * 4. Neither the name of The NetBSD Foundation nor the names of its
23 1.40 simonb * contributors may be used to endorse or promote products derived
24 1.40 simonb * from this software without specific prior written permission.
25 1.40 simonb *
26 1.40 simonb * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
27 1.40 simonb * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
28 1.40 simonb * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
29 1.40 simonb * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
30 1.40 simonb * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
31 1.40 simonb * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
32 1.40 simonb * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
33 1.40 simonb * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
34 1.40 simonb * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
35 1.40 simonb * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
36 1.40 simonb * POSSIBILITY OF SUCH DAMAGE.
37 1.40 simonb */
38 1.40 simonb
39 1.40 simonb /*
40 1.11 cgd * Copyright (c) 1990, 1993, 1994
41 1.11 cgd * The Regents of the University of California. All rights reserved.
42 1.1 cgd *
43 1.1 cgd * Redistribution and use in source and binary forms, with or without
44 1.1 cgd * modification, are permitted provided that the following conditions
45 1.1 cgd * are met:
46 1.1 cgd * 1. Redistributions of source code must retain the above copyright
47 1.1 cgd * notice, this list of conditions and the following disclaimer.
48 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
49 1.1 cgd * notice, this list of conditions and the following disclaimer in the
50 1.1 cgd * documentation and/or other materials provided with the distribution.
51 1.50 agc * 3. Neither the name of the University nor the names of its contributors
52 1.1 cgd * may be used to endorse or promote products derived from this software
53 1.1 cgd * without specific prior written permission.
54 1.1 cgd *
55 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
56 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
57 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
58 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
59 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
60 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
61 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
62 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
63 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
64 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
65 1.1 cgd * SUCH DAMAGE.
66 1.1 cgd */
67 1.1 cgd
68 1.19 christos #include <sys/cdefs.h>
69 1.1 cgd #ifndef lint
70 1.19 christos __COPYRIGHT("@(#) Copyright (c) 1990, 1993, 1994\n\
71 1.19 christos The Regents of the University of California. All rights reserved.\n");
72 1.1 cgd #endif /* not lint */
73 1.1 cgd
74 1.1 cgd #ifndef lint
75 1.13 cgd #if 0
76 1.11 cgd static char sccsid[] = "@(#)ps.c 8.4 (Berkeley) 4/2/94";
77 1.13 cgd #else
78 1.64 yamt __RCSID("$NetBSD: ps.c,v 1.64 2007/10/24 12:10:11 yamt Exp $");
79 1.13 cgd #endif
80 1.1 cgd #endif /* not lint */
81 1.1 cgd
82 1.1 cgd #include <sys/param.h>
83 1.1 cgd #include <sys/user.h>
84 1.1 cgd #include <sys/time.h>
85 1.1 cgd #include <sys/resource.h>
86 1.48 thorpej #include <sys/lwp.h>
87 1.1 cgd #include <sys/proc.h>
88 1.1 cgd #include <sys/stat.h>
89 1.1 cgd #include <sys/ioctl.h>
90 1.11 cgd #include <sys/sysctl.h>
91 1.11 cgd
92 1.49 dsl #include <stddef.h>
93 1.11 cgd #include <ctype.h>
94 1.11 cgd #include <err.h>
95 1.11 cgd #include <errno.h>
96 1.11 cgd #include <fcntl.h>
97 1.11 cgd #include <kvm.h>
98 1.17 pk #include <limits.h>
99 1.1 cgd #include <nlist.h>
100 1.11 cgd #include <paths.h>
101 1.25 mycroft #include <pwd.h>
102 1.1 cgd #include <stdio.h>
103 1.1 cgd #include <stdlib.h>
104 1.1 cgd #include <string.h>
105 1.11 cgd #include <unistd.h>
106 1.11 cgd
107 1.1 cgd #include "ps.h"
108 1.1 cgd
109 1.40 simonb /*
110 1.40 simonb * ARGOPTS must contain all option characters that take arguments
111 1.40 simonb * (except for 't'!) - it is used in kludge_oldps_options()
112 1.40 simonb */
113 1.49 dsl #define GETOPTSTR "acCeghjk:LlM:mN:O:o:p:rSsTt:U:uvW:wx"
114 1.49 dsl #define ARGOPTS "kMNOopUW"
115 1.40 simonb
116 1.38 simonb struct kinfo_proc2 *kinfo;
117 1.61 apb struct varlist displaylist = SIMPLEQ_HEAD_INITIALIZER(displaylist);
118 1.61 apb struct varlist sortlist = SIMPLEQ_HEAD_INITIALIZER(sortlist);
119 1.1 cgd
120 1.1 cgd int eval; /* exit value */
121 1.1 cgd int rawcpu; /* -C */
122 1.1 cgd int sumrusage; /* -S */
123 1.1 cgd int termwidth; /* width of screen (0 == infinity) */
124 1.1 cgd int totwidth; /* calculated width of requested variables */
125 1.1 cgd
126 1.48 thorpej int needcomm, needenv, commandonly;
127 1.33 simonb uid_t myuid;
128 1.1 cgd
129 1.48 thorpej static struct kinfo_lwp
130 1.52 simonb *pick_representative_lwp(struct kinfo_proc2 *,
131 1.52 simonb struct kinfo_lwp *, int);
132 1.38 simonb static struct kinfo_proc2
133 1.52 simonb *getkinfo_kvm(kvm_t *, int, int, int *);
134 1.52 simonb static char *kludge_oldps_options(char *);
135 1.52 simonb static int pscomp(const void *, const void *);
136 1.52 simonb static void scanvars(void);
137 1.52 simonb static void usage(void);
138 1.60 christos static int parsenum(const char *, const char *);
139 1.52 simonb int main(int, char *[]);
140 1.1 cgd
141 1.1 cgd char dfmt[] = "pid tt state time command";
142 1.1 cgd char jfmt[] = "user pid ppid pgid sess jobc state tt time command";
143 1.1 cgd char lfmt[] = "uid pid ppid cpu pri nice vsz rss wchan state tt time command";
144 1.53 simonb char sfmt[] = "uid pid ppid cpu lid nlwp pri nice vsz rss wchan lstate tt "
145 1.53 simonb "time command";
146 1.1 cgd char ufmt[] = "user pid %cpu %mem vsz rss tt state start time command";
147 1.11 cgd char vfmt[] = "pid state time sl re pagein vsz rss lim tsiz %cpu %mem command";
148 1.11 cgd
149 1.64 yamt const char *default_fmt = dfmt;
150 1.64 yamt
151 1.61 apb struct varent *Opos = NULL; /* -O flag inserts after this point */
152 1.61 apb
153 1.11 cgd kvm_t *kd;
154 1.1 cgd
155 1.11 cgd int
156 1.52 simonb main(int argc, char *argv[])
157 1.1 cgd {
158 1.11 cgd struct varent *vent;
159 1.1 cgd struct winsize ws;
160 1.48 thorpej struct kinfo_lwp *kl, *l;
161 1.48 thorpej int ch, flag, i, j, fmt, lineno, nentries, nlwps;
162 1.48 thorpej int prtheader, wflag, what, xflg, mode, showlwps;
163 1.17 pk char *nlistf, *memf, *swapf, errbuf[_POSIX2_LINE_MAX];
164 1.26 kim char *ttname;
165 1.1 cgd
166 1.38 simonb if ((ioctl(STDOUT_FILENO, TIOCGWINSZ, (char *)&ws) == -1 &&
167 1.38 simonb ioctl(STDERR_FILENO, TIOCGWINSZ, (char *)&ws) == -1 &&
168 1.38 simonb ioctl(STDIN_FILENO, TIOCGWINSZ, (char *)&ws) == -1) ||
169 1.1 cgd ws.ws_col == 0)
170 1.1 cgd termwidth = 79;
171 1.1 cgd else
172 1.1 cgd termwidth = ws.ws_col - 1;
173 1.1 cgd
174 1.1 cgd if (argc > 1)
175 1.1 cgd argv[1] = kludge_oldps_options(argv[1]);
176 1.1 cgd
177 1.48 thorpej fmt = prtheader = wflag = xflg = showlwps = 0;
178 1.25 mycroft what = KERN_PROC_UID;
179 1.33 simonb flag = myuid = getuid();
180 1.1 cgd memf = nlistf = swapf = NULL;
181 1.39 simonb mode = PRINTMODE;
182 1.40 simonb while ((ch = getopt(argc, argv, GETOPTSTR)) != -1)
183 1.1 cgd switch((char)ch) {
184 1.1 cgd case 'a':
185 1.25 mycroft what = KERN_PROC_ALL;
186 1.25 mycroft flag = 0;
187 1.1 cgd break;
188 1.12 mycroft case 'c':
189 1.12 mycroft commandonly = 1;
190 1.12 mycroft break;
191 1.11 cgd case 'e': /* XXX set ufmt */
192 1.11 cgd needenv = 1;
193 1.11 cgd break;
194 1.1 cgd case 'C':
195 1.1 cgd rawcpu = 1;
196 1.1 cgd break;
197 1.1 cgd case 'g':
198 1.11 cgd break; /* no-op */
199 1.1 cgd case 'h':
200 1.1 cgd prtheader = ws.ws_row > 5 ? ws.ws_row : 22;
201 1.1 cgd break;
202 1.1 cgd case 'j':
203 1.1 cgd parsefmt(jfmt);
204 1.15 mycroft fmt = 1;
205 1.1 cgd jfmt[0] = '\0';
206 1.1 cgd break;
207 1.49 dsl case 'k':
208 1.49 dsl parsesort(optarg);
209 1.49 dsl break;
210 1.28 bgrayson case 'K':
211 1.47 jdolecek break; /* no-op - was dontuseprocfs */
212 1.11 cgd case 'L':
213 1.1 cgd showkey();
214 1.1 cgd exit(0);
215 1.23 mycroft /* NOTREACHED */
216 1.1 cgd case 'l':
217 1.1 cgd parsefmt(lfmt);
218 1.15 mycroft fmt = 1;
219 1.1 cgd lfmt[0] = '\0';
220 1.1 cgd break;
221 1.1 cgd case 'M':
222 1.1 cgd memf = optarg;
223 1.1 cgd break;
224 1.1 cgd case 'm':
225 1.49 dsl parsesort("vsz");
226 1.1 cgd break;
227 1.1 cgd case 'N':
228 1.1 cgd nlistf = optarg;
229 1.1 cgd break;
230 1.1 cgd case 'O':
231 1.61 apb /*
232 1.61 apb * If this is not the first -O option, insert
233 1.61 apb * just after the previous one.
234 1.61 apb *
235 1.61 apb * If there is no format yet, start with the default
236 1.61 apb * format, and insert after the pid column.
237 1.61 apb *
238 1.61 apb * If there is already a format, insert after
239 1.61 apb * the pid column, or at the end if there's no
240 1.61 apb * pid column.
241 1.61 apb */
242 1.61 apb if (!Opos) {
243 1.61 apb if (!fmt)
244 1.64 yamt parsefmt(default_fmt);
245 1.61 apb Opos = varlist_find(&displaylist, "pid");
246 1.61 apb }
247 1.61 apb parsefmt_insert(optarg, &Opos);
248 1.15 mycroft fmt = 1;
249 1.1 cgd break;
250 1.1 cgd case 'o':
251 1.1 cgd parsefmt(optarg);
252 1.15 mycroft fmt = 1;
253 1.1 cgd break;
254 1.1 cgd case 'p':
255 1.25 mycroft what = KERN_PROC_PID;
256 1.60 christos flag = parsenum(optarg, "process id");
257 1.1 cgd xflg = 1;
258 1.1 cgd break;
259 1.1 cgd case 'r':
260 1.49 dsl parsesort("%cpu");
261 1.1 cgd break;
262 1.1 cgd case 'S':
263 1.1 cgd sumrusage = 1;
264 1.1 cgd break;
265 1.48 thorpej case 's':
266 1.48 thorpej /* -L was already taken... */
267 1.48 thorpej showlwps = 1;
268 1.64 yamt default_fmt = sfmt;
269 1.48 thorpej break;
270 1.1 cgd case 'T':
271 1.22 mycroft if ((ttname = ttyname(STDIN_FILENO)) == NULL)
272 1.11 cgd errx(1, "stdin: not a terminal");
273 1.22 mycroft goto tty;
274 1.22 mycroft case 't':
275 1.22 mycroft ttname = optarg;
276 1.22 mycroft tty: {
277 1.11 cgd struct stat sb;
278 1.59 christos const char *ttypath;
279 1.59 christos char pathbuf[MAXPATHLEN];
280 1.1 cgd
281 1.36 simonb flag = 0;
282 1.58 lukem ttypath = NULL;
283 1.36 simonb if (strcmp(ttname, "?") == 0)
284 1.36 simonb flag = KERN_PROC_TTY_NODEV;
285 1.36 simonb else if (strcmp(ttname, "-") == 0)
286 1.36 simonb flag = KERN_PROC_TTY_REVOKE;
287 1.36 simonb else if (strcmp(ttname, "co") == 0)
288 1.1 cgd ttypath = _PATH_CONSOLE;
289 1.57 christos else if (strncmp(ttname, "pts/", 4) == 0 ||
290 1.59 christos strncmp(ttname, "tty", 3) == 0) {
291 1.59 christos (void)snprintf(pathbuf,
292 1.56 atatat sizeof(pathbuf), "%s%s", _PATH_DEV, ttname);
293 1.59 christos ttypath = pathbuf;
294 1.59 christos } else if (*ttname != '/') {
295 1.59 christos (void)snprintf(pathbuf,
296 1.26 kim sizeof(pathbuf), "%s%s", _PATH_TTY, ttname);
297 1.59 christos ttypath = pathbuf;
298 1.59 christos } else
299 1.26 kim ttypath = ttname;
300 1.25 mycroft what = KERN_PROC_TTY;
301 1.36 simonb if (flag == 0) {
302 1.36 simonb if (stat(ttypath, &sb) == -1)
303 1.36 simonb err(1, "%s", ttypath);
304 1.36 simonb if (!S_ISCHR(sb.st_mode))
305 1.36 simonb errx(1, "%s: not a terminal", ttypath);
306 1.36 simonb flag = sb.st_rdev;
307 1.36 simonb }
308 1.1 cgd break;
309 1.1 cgd }
310 1.25 mycroft case 'U':
311 1.25 mycroft if (*optarg != '\0') {
312 1.25 mycroft struct passwd *pw;
313 1.25 mycroft
314 1.25 mycroft what = KERN_PROC_UID;
315 1.25 mycroft pw = getpwnam(optarg);
316 1.25 mycroft if (pw == NULL) {
317 1.60 christos flag = parsenum(optarg, "user name");
318 1.25 mycroft } else
319 1.25 mycroft flag = pw->pw_uid;
320 1.25 mycroft }
321 1.25 mycroft break;
322 1.1 cgd case 'u':
323 1.1 cgd parsefmt(ufmt);
324 1.49 dsl parsesort("%cpu");
325 1.15 mycroft fmt = 1;
326 1.1 cgd ufmt[0] = '\0';
327 1.1 cgd break;
328 1.1 cgd case 'v':
329 1.1 cgd parsefmt(vfmt);
330 1.49 dsl parsesort("vsz");
331 1.15 mycroft fmt = 1;
332 1.1 cgd vfmt[0] = '\0';
333 1.1 cgd break;
334 1.1 cgd case 'W':
335 1.1 cgd swapf = optarg;
336 1.1 cgd break;
337 1.1 cgd case 'w':
338 1.6 cgd if (wflag)
339 1.6 cgd termwidth = UNLIMITED;
340 1.6 cgd else if (termwidth < 131)
341 1.1 cgd termwidth = 131;
342 1.11 cgd wflag++;
343 1.1 cgd break;
344 1.1 cgd case 'x':
345 1.1 cgd xflg = 1;
346 1.1 cgd break;
347 1.1 cgd case '?':
348 1.1 cgd default:
349 1.1 cgd usage();
350 1.1 cgd }
351 1.1 cgd argc -= optind;
352 1.1 cgd argv += optind;
353 1.1 cgd
354 1.1 cgd #define BACKWARD_COMPATIBILITY
355 1.1 cgd #ifdef BACKWARD_COMPATIBILITY
356 1.1 cgd if (*argv) {
357 1.1 cgd nlistf = *argv;
358 1.1 cgd if (*++argv) {
359 1.1 cgd memf = *argv;
360 1.1 cgd if (*++argv)
361 1.1 cgd swapf = *argv;
362 1.1 cgd }
363 1.1 cgd }
364 1.1 cgd #endif
365 1.11 cgd
366 1.49 dsl if (memf == NULL) {
367 1.49 dsl kd = kvm_openfiles(NULL, NULL, NULL, KVM_NO_FILES, errbuf);
368 1.38 simonb donlist_sysctl();
369 1.38 simonb } else
370 1.38 simonb kd = kvm_openfiles(nlistf, memf, swapf, O_RDONLY, errbuf);
371 1.52 simonb
372 1.47 jdolecek if (kd == 0)
373 1.47 jdolecek errx(1, "%s", errbuf);
374 1.21 mrg
375 1.15 mycroft if (!fmt)
376 1.64 yamt parsefmt(default_fmt);
377 1.1 cgd
378 1.49 dsl /* Add default sort criteria */
379 1.49 dsl parsesort("tdev,pid");
380 1.61 apb SIMPLEQ_FOREACH(vent, &sortlist, next) {
381 1.49 dsl if (vent->var->flag & LWP || vent->var->type == UNSPECIFIED)
382 1.49 dsl warnx("Cannot sort on %s, sort key ignored\n",
383 1.49 dsl vent->var->name);
384 1.49 dsl }
385 1.49 dsl
386 1.1 cgd /*
387 1.39 simonb * scan requested variables, noting what structures are needed.
388 1.1 cgd */
389 1.1 cgd scanvars();
390 1.29 jdolecek
391 1.1 cgd /*
392 1.1 cgd * select procs
393 1.1 cgd */
394 1.48 thorpej if (!(kinfo = getkinfo_kvm(kd, what, flag, &nentries)))
395 1.48 thorpej err(1, "%s", kvm_geterr(kd));
396 1.39 simonb if (nentries == 0) {
397 1.39 simonb printheader();
398 1.42 cyber exit(1);
399 1.39 simonb }
400 1.1 cgd /*
401 1.1 cgd * sort proc list
402 1.1 cgd */
403 1.38 simonb qsort(kinfo, nentries, sizeof(struct kinfo_proc2), pscomp);
404 1.1 cgd /*
405 1.39 simonb * For each proc, call each variable output function in
406 1.39 simonb * "setwidth" mode to determine the widest element of
407 1.39 simonb * the column.
408 1.39 simonb */
409 1.39 simonb if (mode == PRINTMODE)
410 1.39 simonb for (i = 0; i < nentries; i++) {
411 1.39 simonb struct kinfo_proc2 *ki = &kinfo[i];
412 1.39 simonb
413 1.39 simonb if (xflg == 0 && (ki->p_tdev == NODEV ||
414 1.63 pavel (ki->p_flag & P_CONTROLT) == 0))
415 1.39 simonb continue;
416 1.48 thorpej
417 1.48 thorpej kl = kvm_getlwps(kd, ki->p_pid, ki->p_paddr,
418 1.48 thorpej sizeof(struct kinfo_lwp), &nlwps);
419 1.48 thorpej if (kl == 0)
420 1.48 thorpej nlwps = 0;
421 1.48 thorpej if (showlwps == 0) {
422 1.48 thorpej l = pick_representative_lwp(ki, kl, nlwps);
423 1.61 apb SIMPLEQ_FOREACH(vent, &displaylist, next)
424 1.48 thorpej OUTPUT(vent, ki, l, WIDTHMODE);
425 1.48 thorpej } else {
426 1.48 thorpej /* The printing is done with the loops
427 1.48 thorpej * reversed, but here we don't need that,
428 1.48 thorpej * and this improves the code locality a bit.
429 1.48 thorpej */
430 1.61 apb SIMPLEQ_FOREACH(vent, &displaylist, next)
431 1.48 thorpej for (j = 0; j < nlwps; j++)
432 1.52 simonb OUTPUT(vent, ki, &kl[j],
433 1.48 thorpej WIDTHMODE);
434 1.48 thorpej }
435 1.39 simonb }
436 1.39 simonb /*
437 1.39 simonb * Print header - AFTER determining process field widths.
438 1.39 simonb * printheader() also adds up the total width of all
439 1.39 simonb * fields the first time it's called.
440 1.39 simonb */
441 1.39 simonb printheader();
442 1.39 simonb /*
443 1.39 simonb * For each proc, call each variable output function in
444 1.39 simonb * print mode.
445 1.1 cgd */
446 1.1 cgd for (i = lineno = 0; i < nentries; i++) {
447 1.38 simonb struct kinfo_proc2 *ki = &kinfo[i];
448 1.14 mycroft
449 1.38 simonb if (xflg == 0 && (ki->p_tdev == NODEV ||
450 1.63 pavel (ki->p_flag & P_CONTROLT ) == 0))
451 1.1 cgd continue;
452 1.48 thorpej kl = kvm_getlwps(kd, ki->p_pid, (u_long)ki->p_paddr,
453 1.48 thorpej sizeof(struct kinfo_lwp), &nlwps);
454 1.48 thorpej if (kl == 0)
455 1.48 thorpej nlwps = 0;
456 1.48 thorpej if (showlwps == 0) {
457 1.48 thorpej l = pick_representative_lwp(ki, kl, nlwps);
458 1.61 apb SIMPLEQ_FOREACH(vent, &displaylist, next) {
459 1.48 thorpej OUTPUT(vent, ki, l, mode);
460 1.61 apb if (SIMPLEQ_NEXT(vent, next) != NULL)
461 1.48 thorpej (void)putchar(' ');
462 1.48 thorpej }
463 1.11 cgd (void)putchar('\n');
464 1.48 thorpej if (prtheader && lineno++ == prtheader - 4) {
465 1.48 thorpej (void)putchar('\n');
466 1.48 thorpej printheader();
467 1.48 thorpej lineno = 0;
468 1.48 thorpej }
469 1.48 thorpej } else {
470 1.48 thorpej for (j = 0; j < nlwps; j++) {
471 1.61 apb SIMPLEQ_FOREACH(vent, &displaylist, next) {
472 1.48 thorpej OUTPUT(vent, ki, &kl[j], mode);
473 1.61 apb if (SIMPLEQ_NEXT(vent, next) != NULL)
474 1.48 thorpej (void)putchar(' ');
475 1.48 thorpej }
476 1.48 thorpej (void)putchar('\n');
477 1.48 thorpej if (prtheader && lineno++ == prtheader - 4) {
478 1.48 thorpej (void)putchar('\n');
479 1.48 thorpej printheader();
480 1.48 thorpej lineno = 0;
481 1.48 thorpej }
482 1.48 thorpej }
483 1.1 cgd }
484 1.1 cgd }
485 1.1 cgd exit(eval);
486 1.23 mycroft /* NOTREACHED */
487 1.1 cgd }
488 1.1 cgd
489 1.48 thorpej static struct kinfo_lwp *
490 1.52 simonb pick_representative_lwp(struct kinfo_proc2 *ki, struct kinfo_lwp *kl, int nlwps)
491 1.48 thorpej {
492 1.48 thorpej int i, onproc, running, sleeping, stopped, suspended;
493 1.48 thorpej static struct kinfo_lwp zero_lwp;
494 1.48 thorpej
495 1.48 thorpej if (kl == 0)
496 1.48 thorpej return &zero_lwp;
497 1.52 simonb
498 1.48 thorpej /* Trivial case: only one LWP */
499 1.48 thorpej if (nlwps == 1)
500 1.48 thorpej return kl;
501 1.48 thorpej
502 1.48 thorpej switch (ki->p_realstat) {
503 1.48 thorpej case SSTOP:
504 1.48 thorpej case SACTIVE:
505 1.48 thorpej /* Pick the most live LWP */
506 1.48 thorpej onproc = running = sleeping = stopped = suspended = -1;
507 1.48 thorpej for (i = 0; i < nlwps; i++) {
508 1.48 thorpej switch (kl[i].l_stat) {
509 1.48 thorpej case LSONPROC:
510 1.48 thorpej onproc = i;
511 1.48 thorpej break;
512 1.48 thorpej case LSRUN:
513 1.48 thorpej running = i;
514 1.48 thorpej break;
515 1.48 thorpej case LSSLEEP:
516 1.48 thorpej sleeping = i;
517 1.48 thorpej break;
518 1.48 thorpej case LSSTOP:
519 1.48 thorpej stopped = i;
520 1.48 thorpej break;
521 1.48 thorpej case LSSUSPENDED:
522 1.48 thorpej suspended = i;
523 1.48 thorpej break;
524 1.48 thorpej }
525 1.48 thorpej }
526 1.48 thorpej if (onproc != -1)
527 1.48 thorpej return &kl[onproc];
528 1.48 thorpej if (running != -1)
529 1.48 thorpej return &kl[running];
530 1.48 thorpej if (sleeping != -1)
531 1.48 thorpej return &kl[sleeping];
532 1.48 thorpej if (stopped != -1)
533 1.48 thorpej return &kl[stopped];
534 1.48 thorpej if (suspended != -1)
535 1.48 thorpej return &kl[suspended];
536 1.48 thorpej break;
537 1.48 thorpej case SZOMB:
538 1.48 thorpej /* First will do */
539 1.48 thorpej return kl;
540 1.48 thorpej break;
541 1.48 thorpej }
542 1.48 thorpej /* Error condition! */
543 1.48 thorpej warnx("Inconsistent LWP state for process %d\n", ki->p_pid);
544 1.48 thorpej return kl;
545 1.48 thorpej }
546 1.52 simonb
547 1.48 thorpej
548 1.38 simonb static struct kinfo_proc2 *
549 1.52 simonb getkinfo_kvm(kvm_t *kdp, int what, int flag, int *nentriesp)
550 1.29 jdolecek {
551 1.52 simonb
552 1.45 lukem return (kvm_getproc2(kdp, what, flag, sizeof(struct kinfo_proc2),
553 1.38 simonb nentriesp));
554 1.29 jdolecek }
555 1.29 jdolecek
556 1.11 cgd static void
557 1.52 simonb scanvars(void)
558 1.1 cgd {
559 1.11 cgd struct varent *vent;
560 1.11 cgd VAR *v;
561 1.1 cgd
562 1.61 apb SIMPLEQ_FOREACH(vent, &displaylist, next) {
563 1.1 cgd v = vent->var;
564 1.43 matt if (v->flag & COMM) {
565 1.1 cgd needcomm = 1;
566 1.43 matt break;
567 1.43 matt }
568 1.1 cgd }
569 1.11 cgd }
570 1.1 cgd
571 1.11 cgd static int
572 1.49 dsl pscomp(const void *a, const void *b)
573 1.1 cgd {
574 1.59 christos const struct kinfo_proc2 *ka = (const struct kinfo_proc2 *)a;
575 1.59 christos const struct kinfo_proc2 *kb = (const struct kinfo_proc2 *)b;
576 1.38 simonb
577 1.1 cgd int i;
578 1.49 dsl int64_t i64;
579 1.49 dsl VAR *v;
580 1.49 dsl struct varent *ve;
581 1.59 christos const sigset_t *sa, *sb;
582 1.49 dsl
583 1.54 simonb #define V_SIZE(k) (k->p_vm_dsize + k->p_vm_ssize + k->p_vm_tsize)
584 1.54 simonb #define RDIFF_N(t, n) \
585 1.59 christos if (((const t *)((const char *)ka + v->off))[n] > ((const t *)((const char *)kb + v->off))[n]) \
586 1.49 dsl return 1; \
587 1.59 christos if (((const t *)((const char *)ka + v->off))[n] < ((const t *)((const char *)kb + v->off))[n]) \
588 1.49 dsl return -1;
589 1.49 dsl
590 1.54 simonb #define RDIFF(type) RDIFF_N(type, 0); continue
591 1.49 dsl
592 1.61 apb SIMPLEQ_FOREACH(ve, &sortlist, next) {
593 1.49 dsl v = ve->var;
594 1.49 dsl if (v->flag & LWP)
595 1.49 dsl /* LWP structure not available (yet) */
596 1.49 dsl continue;
597 1.49 dsl /* Sort on pvar() fields, + a few others */
598 1.49 dsl switch (v->type) {
599 1.49 dsl case CHAR:
600 1.49 dsl RDIFF(char);
601 1.49 dsl case UCHAR:
602 1.49 dsl RDIFF(u_char);
603 1.49 dsl case SHORT:
604 1.49 dsl RDIFF(short);
605 1.49 dsl case USHORT:
606 1.49 dsl RDIFF(ushort);
607 1.49 dsl case INT:
608 1.49 dsl RDIFF(int);
609 1.49 dsl case UINT:
610 1.49 dsl RDIFF(uint);
611 1.49 dsl case LONG:
612 1.49 dsl RDIFF(long);
613 1.49 dsl case ULONG:
614 1.49 dsl RDIFF(ulong);
615 1.49 dsl case INT32:
616 1.49 dsl RDIFF(int32_t);
617 1.49 dsl case UINT32:
618 1.49 dsl RDIFF(uint32_t);
619 1.49 dsl case SIGLIST:
620 1.59 christos sa = (const void *)((const char *)a + v->off);
621 1.59 christos sb = (const void *)((const char *)b + v->off);
622 1.49 dsl i = 0;
623 1.49 dsl do {
624 1.49 dsl if (sa->__bits[i] > sb->__bits[i])
625 1.49 dsl return 1;
626 1.49 dsl if (sa->__bits[i] < sb->__bits[i])
627 1.49 dsl return -1;
628 1.49 dsl i++;
629 1.49 dsl } while (i < sizeof sa->__bits / sizeof sa->__bits[0]);
630 1.49 dsl continue;
631 1.49 dsl case INT64:
632 1.49 dsl RDIFF(int64_t);
633 1.49 dsl case KPTR:
634 1.49 dsl case KPTR24:
635 1.49 dsl case UINT64:
636 1.49 dsl RDIFF(uint64_t);
637 1.49 dsl case TIMEVAL:
638 1.49 dsl /* compare xxx_sec then xxx_usec */
639 1.49 dsl RDIFF_N(uint32_t, 0);
640 1.49 dsl RDIFF_N(uint32_t, 1);
641 1.49 dsl continue;
642 1.49 dsl case CPUTIME:
643 1.49 dsl i64 = ka->p_rtime_sec * 1000000 + ka->p_rtime_usec;
644 1.49 dsl i64 -= kb->p_rtime_sec * 1000000 + kb->p_rtime_usec;
645 1.49 dsl if (sumrusage) {
646 1.49 dsl i64 += ka->p_uctime_sec * 1000000
647 1.49 dsl + ka->p_uctime_usec;
648 1.49 dsl i64 -= kb->p_uctime_sec * 1000000
649 1.49 dsl + kb->p_uctime_usec;
650 1.49 dsl }
651 1.49 dsl if (i64 != 0)
652 1.49 dsl return i64 > 0 ? 1 : -1;
653 1.49 dsl continue;
654 1.49 dsl case PCPU:
655 1.49 dsl i = getpcpu(kb) - getpcpu(ka);
656 1.49 dsl if (i != 0)
657 1.49 dsl return i;
658 1.49 dsl continue;
659 1.49 dsl case VSIZE:
660 1.49 dsl i = V_SIZE(kb) - V_SIZE(ka);
661 1.49 dsl if (i != 0)
662 1.49 dsl return i;
663 1.49 dsl continue;
664 1.49 dsl
665 1.49 dsl default:
666 1.49 dsl /* Ignore everything else */
667 1.49 dsl break;
668 1.49 dsl }
669 1.49 dsl }
670 1.49 dsl return 0;
671 1.1 cgd
672 1.49 dsl #undef VSIZE
673 1.1 cgd }
674 1.1 cgd
675 1.1 cgd /*
676 1.1 cgd * ICK (all for getopt), would rather hide the ugliness
677 1.1 cgd * here than taint the main code.
678 1.1 cgd *
679 1.1 cgd * ps foo -> ps -foo
680 1.1 cgd * ps 34 -> ps -p34
681 1.1 cgd *
682 1.25 mycroft * The old convention that 't' with no trailing tty arg means the user's
683 1.1 cgd * tty, is only supported if argv[1] doesn't begin with a '-'. This same
684 1.1 cgd * feature is available with the option 'T', which takes no argument.
685 1.1 cgd */
686 1.11 cgd static char *
687 1.52 simonb kludge_oldps_options(char *s)
688 1.1 cgd {
689 1.1 cgd size_t len;
690 1.1 cgd char *newopts, *ns, *cp;
691 1.1 cgd
692 1.1 cgd len = strlen(s);
693 1.16 thorpej if ((newopts = ns = malloc(len + 3)) == NULL)
694 1.32 drochner err(1, NULL);
695 1.1 cgd /*
696 1.1 cgd * options begin with '-'
697 1.1 cgd */
698 1.1 cgd if (*s != '-')
699 1.1 cgd *ns++ = '-'; /* add option flag */
700 1.1 cgd /*
701 1.1 cgd * gaze to end of argv[1]
702 1.1 cgd */
703 1.1 cgd cp = s + len - 1;
704 1.1 cgd /*
705 1.40 simonb * if the last letter is a 't' flag and there are no other option
706 1.40 simonb * characters that take arguments (eg U, p, o) in the option
707 1.40 simonb * string and the option string doesn't start with a '-' then
708 1.40 simonb * convert to 'T' (meaning *this* terminal, i.e. ttyname(0)).
709 1.1 cgd */
710 1.40 simonb if (*cp == 't' && *s != '-' && strpbrk(s, ARGOPTS) == NULL)
711 1.1 cgd *cp = 'T';
712 1.1 cgd else {
713 1.1 cgd /*
714 1.1 cgd * otherwise check for trailing number, which *may* be a
715 1.1 cgd * pid.
716 1.1 cgd */
717 1.55 dsl while (cp >= s && isdigit((unsigned char)*cp))
718 1.1 cgd --cp;
719 1.1 cgd }
720 1.1 cgd cp++;
721 1.11 cgd memmove(ns, s, (size_t)(cp - s)); /* copy up to trailing number */
722 1.1 cgd ns += cp - s;
723 1.1 cgd /*
724 1.1 cgd * if there's a trailing number, and not a preceding 'p' (pid) or
725 1.1 cgd * 't' (tty) flag, then assume it's a pid and insert a 'p' flag.
726 1.1 cgd */
727 1.55 dsl if (isdigit((unsigned char)*cp) &&
728 1.25 mycroft (cp == s || (cp[-1] != 'U' && cp[-1] != 't' && cp[-1] != 'p' &&
729 1.56 atatat cp[-1] != '/' && (cp - 1 == s || cp[-2] != 't'))))
730 1.1 cgd *ns++ = 'p';
731 1.18 mrg /* and append the number */
732 1.40 simonb (void)strcpy(ns, cp); /* XXX strcpy is safe here */
733 1.1 cgd
734 1.1 cgd return (newopts);
735 1.1 cgd }
736 1.1 cgd
737 1.60 christos static int
738 1.60 christos parsenum(const char *str, const char *msg)
739 1.60 christos {
740 1.60 christos char *ep;
741 1.60 christos unsigned long ul;
742 1.60 christos
743 1.60 christos ul = strtoul(str, &ep, 0);
744 1.60 christos
745 1.60 christos if (*str == '\0' || *ep != '\0')
746 1.60 christos errx(1, "Invalid %s: `%s'", msg, str);
747 1.60 christos
748 1.60 christos if (ul > INT_MAX)
749 1.60 christos errx(1, "Out of range %s: `%s'", msg, str);
750 1.60 christos
751 1.60 christos return (int)ul;
752 1.60 christos }
753 1.60 christos
754 1.11 cgd static void
755 1.52 simonb usage(void)
756 1.1 cgd {
757 1.1 cgd
758 1.11 cgd (void)fprintf(stderr,
759 1.11 cgd "usage:\t%s\n\t %s\n\t%s\n",
760 1.49 dsl "ps [-acCehjlmrsSTuvwx] [-k key] [-O|o fmt] [-p pid] [-t tty]",
761 1.34 hubertf "[-M core] [-N system] [-W swap] [-U username]",
762 1.11 cgd "ps [-L]");
763 1.1 cgd exit(1);
764 1.23 mycroft /* NOTREACHED */
765 1.1 cgd }
766