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