ps.c revision 1.65 1 1.65 christos /* $NetBSD: ps.c,v 1.65 2008/02/10 17:48:00 christos 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.65 christos __RCSID("$NetBSD: ps.c,v 1.65 2008/02/10 17:48:00 christos 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.65 christos setncpu();
175 1.65 christos
176 1.1 cgd if (argc > 1)
177 1.1 cgd argv[1] = kludge_oldps_options(argv[1]);
178 1.1 cgd
179 1.48 thorpej fmt = prtheader = wflag = xflg = showlwps = 0;
180 1.25 mycroft what = KERN_PROC_UID;
181 1.33 simonb flag = myuid = getuid();
182 1.1 cgd memf = nlistf = swapf = NULL;
183 1.39 simonb mode = PRINTMODE;
184 1.40 simonb while ((ch = getopt(argc, argv, GETOPTSTR)) != -1)
185 1.1 cgd switch((char)ch) {
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.36 simonb if (strcmp(ttname, "?") == 0)
286 1.36 simonb flag = KERN_PROC_TTY_NODEV;
287 1.36 simonb else if (strcmp(ttname, "-") == 0)
288 1.36 simonb flag = KERN_PROC_TTY_REVOKE;
289 1.36 simonb else if (strcmp(ttname, "co") == 0)
290 1.1 cgd ttypath = _PATH_CONSOLE;
291 1.57 christos else if (strncmp(ttname, "pts/", 4) == 0 ||
292 1.59 christos strncmp(ttname, "tty", 3) == 0) {
293 1.59 christos (void)snprintf(pathbuf,
294 1.56 atatat sizeof(pathbuf), "%s%s", _PATH_DEV, ttname);
295 1.59 christos ttypath = pathbuf;
296 1.59 christos } else if (*ttname != '/') {
297 1.59 christos (void)snprintf(pathbuf,
298 1.26 kim sizeof(pathbuf), "%s%s", _PATH_TTY, ttname);
299 1.59 christos ttypath = pathbuf;
300 1.59 christos } else
301 1.26 kim ttypath = ttname;
302 1.25 mycroft what = KERN_PROC_TTY;
303 1.36 simonb if (flag == 0) {
304 1.36 simonb if (stat(ttypath, &sb) == -1)
305 1.36 simonb err(1, "%s", ttypath);
306 1.36 simonb if (!S_ISCHR(sb.st_mode))
307 1.36 simonb errx(1, "%s: not a terminal", ttypath);
308 1.36 simonb flag = sb.st_rdev;
309 1.36 simonb }
310 1.1 cgd break;
311 1.1 cgd }
312 1.25 mycroft case 'U':
313 1.25 mycroft if (*optarg != '\0') {
314 1.25 mycroft struct passwd *pw;
315 1.25 mycroft
316 1.25 mycroft what = KERN_PROC_UID;
317 1.25 mycroft pw = getpwnam(optarg);
318 1.25 mycroft if (pw == NULL) {
319 1.60 christos flag = parsenum(optarg, "user name");
320 1.25 mycroft } else
321 1.25 mycroft flag = pw->pw_uid;
322 1.25 mycroft }
323 1.25 mycroft break;
324 1.1 cgd case 'u':
325 1.1 cgd parsefmt(ufmt);
326 1.49 dsl parsesort("%cpu");
327 1.15 mycroft fmt = 1;
328 1.1 cgd ufmt[0] = '\0';
329 1.1 cgd break;
330 1.1 cgd case 'v':
331 1.1 cgd parsefmt(vfmt);
332 1.49 dsl parsesort("vsz");
333 1.15 mycroft fmt = 1;
334 1.1 cgd vfmt[0] = '\0';
335 1.1 cgd break;
336 1.1 cgd case 'W':
337 1.1 cgd swapf = optarg;
338 1.1 cgd break;
339 1.1 cgd case 'w':
340 1.6 cgd if (wflag)
341 1.6 cgd termwidth = UNLIMITED;
342 1.6 cgd else if (termwidth < 131)
343 1.1 cgd termwidth = 131;
344 1.11 cgd wflag++;
345 1.1 cgd break;
346 1.1 cgd case 'x':
347 1.1 cgd xflg = 1;
348 1.1 cgd break;
349 1.1 cgd case '?':
350 1.1 cgd default:
351 1.1 cgd usage();
352 1.1 cgd }
353 1.1 cgd argc -= optind;
354 1.1 cgd argv += optind;
355 1.1 cgd
356 1.1 cgd #define BACKWARD_COMPATIBILITY
357 1.1 cgd #ifdef BACKWARD_COMPATIBILITY
358 1.1 cgd if (*argv) {
359 1.1 cgd nlistf = *argv;
360 1.1 cgd if (*++argv) {
361 1.1 cgd memf = *argv;
362 1.1 cgd if (*++argv)
363 1.1 cgd swapf = *argv;
364 1.1 cgd }
365 1.1 cgd }
366 1.1 cgd #endif
367 1.11 cgd
368 1.49 dsl if (memf == NULL) {
369 1.49 dsl kd = kvm_openfiles(NULL, NULL, NULL, KVM_NO_FILES, errbuf);
370 1.38 simonb donlist_sysctl();
371 1.38 simonb } else
372 1.38 simonb kd = kvm_openfiles(nlistf, memf, swapf, O_RDONLY, errbuf);
373 1.52 simonb
374 1.47 jdolecek if (kd == 0)
375 1.47 jdolecek errx(1, "%s", errbuf);
376 1.21 mrg
377 1.15 mycroft if (!fmt)
378 1.64 yamt parsefmt(default_fmt);
379 1.1 cgd
380 1.49 dsl /* Add default sort criteria */
381 1.49 dsl parsesort("tdev,pid");
382 1.61 apb SIMPLEQ_FOREACH(vent, &sortlist, next) {
383 1.49 dsl if (vent->var->flag & LWP || vent->var->type == UNSPECIFIED)
384 1.49 dsl warnx("Cannot sort on %s, sort key ignored\n",
385 1.49 dsl vent->var->name);
386 1.49 dsl }
387 1.49 dsl
388 1.1 cgd /*
389 1.39 simonb * scan requested variables, noting what structures are needed.
390 1.1 cgd */
391 1.1 cgd scanvars();
392 1.29 jdolecek
393 1.1 cgd /*
394 1.1 cgd * select procs
395 1.1 cgd */
396 1.48 thorpej if (!(kinfo = getkinfo_kvm(kd, what, flag, &nentries)))
397 1.48 thorpej err(1, "%s", kvm_geterr(kd));
398 1.39 simonb if (nentries == 0) {
399 1.39 simonb printheader();
400 1.42 cyber exit(1);
401 1.39 simonb }
402 1.1 cgd /*
403 1.1 cgd * sort proc list
404 1.1 cgd */
405 1.38 simonb qsort(kinfo, nentries, sizeof(struct kinfo_proc2), pscomp);
406 1.1 cgd /*
407 1.39 simonb * For each proc, call each variable output function in
408 1.39 simonb * "setwidth" mode to determine the widest element of
409 1.39 simonb * the column.
410 1.39 simonb */
411 1.39 simonb if (mode == PRINTMODE)
412 1.39 simonb for (i = 0; i < nentries; i++) {
413 1.39 simonb struct kinfo_proc2 *ki = &kinfo[i];
414 1.39 simonb
415 1.39 simonb if (xflg == 0 && (ki->p_tdev == NODEV ||
416 1.63 pavel (ki->p_flag & P_CONTROLT) == 0))
417 1.39 simonb continue;
418 1.48 thorpej
419 1.48 thorpej kl = kvm_getlwps(kd, ki->p_pid, ki->p_paddr,
420 1.48 thorpej sizeof(struct kinfo_lwp), &nlwps);
421 1.48 thorpej if (kl == 0)
422 1.48 thorpej nlwps = 0;
423 1.48 thorpej if (showlwps == 0) {
424 1.48 thorpej l = pick_representative_lwp(ki, kl, nlwps);
425 1.61 apb SIMPLEQ_FOREACH(vent, &displaylist, next)
426 1.48 thorpej OUTPUT(vent, ki, l, WIDTHMODE);
427 1.48 thorpej } else {
428 1.48 thorpej /* The printing is done with the loops
429 1.48 thorpej * reversed, but here we don't need that,
430 1.48 thorpej * and this improves the code locality a bit.
431 1.48 thorpej */
432 1.61 apb SIMPLEQ_FOREACH(vent, &displaylist, next)
433 1.48 thorpej for (j = 0; j < nlwps; j++)
434 1.52 simonb OUTPUT(vent, ki, &kl[j],
435 1.48 thorpej WIDTHMODE);
436 1.48 thorpej }
437 1.39 simonb }
438 1.39 simonb /*
439 1.39 simonb * Print header - AFTER determining process field widths.
440 1.39 simonb * printheader() also adds up the total width of all
441 1.39 simonb * fields the first time it's called.
442 1.39 simonb */
443 1.39 simonb printheader();
444 1.39 simonb /*
445 1.39 simonb * For each proc, call each variable output function in
446 1.39 simonb * print mode.
447 1.1 cgd */
448 1.1 cgd for (i = lineno = 0; i < nentries; i++) {
449 1.38 simonb struct kinfo_proc2 *ki = &kinfo[i];
450 1.14 mycroft
451 1.38 simonb if (xflg == 0 && (ki->p_tdev == NODEV ||
452 1.63 pavel (ki->p_flag & P_CONTROLT ) == 0))
453 1.1 cgd continue;
454 1.48 thorpej kl = kvm_getlwps(kd, ki->p_pid, (u_long)ki->p_paddr,
455 1.48 thorpej sizeof(struct kinfo_lwp), &nlwps);
456 1.48 thorpej if (kl == 0)
457 1.48 thorpej nlwps = 0;
458 1.48 thorpej if (showlwps == 0) {
459 1.48 thorpej l = pick_representative_lwp(ki, kl, nlwps);
460 1.61 apb SIMPLEQ_FOREACH(vent, &displaylist, next) {
461 1.48 thorpej OUTPUT(vent, ki, l, mode);
462 1.61 apb if (SIMPLEQ_NEXT(vent, next) != NULL)
463 1.48 thorpej (void)putchar(' ');
464 1.48 thorpej }
465 1.11 cgd (void)putchar('\n');
466 1.48 thorpej if (prtheader && lineno++ == prtheader - 4) {
467 1.48 thorpej (void)putchar('\n');
468 1.48 thorpej printheader();
469 1.48 thorpej lineno = 0;
470 1.48 thorpej }
471 1.48 thorpej } else {
472 1.48 thorpej for (j = 0; j < nlwps; j++) {
473 1.61 apb SIMPLEQ_FOREACH(vent, &displaylist, next) {
474 1.48 thorpej OUTPUT(vent, ki, &kl[j], mode);
475 1.61 apb if (SIMPLEQ_NEXT(vent, next) != NULL)
476 1.48 thorpej (void)putchar(' ');
477 1.48 thorpej }
478 1.48 thorpej (void)putchar('\n');
479 1.48 thorpej if (prtheader && lineno++ == prtheader - 4) {
480 1.48 thorpej (void)putchar('\n');
481 1.48 thorpej printheader();
482 1.48 thorpej lineno = 0;
483 1.48 thorpej }
484 1.48 thorpej }
485 1.1 cgd }
486 1.1 cgd }
487 1.1 cgd exit(eval);
488 1.23 mycroft /* NOTREACHED */
489 1.1 cgd }
490 1.1 cgd
491 1.48 thorpej static struct kinfo_lwp *
492 1.52 simonb pick_representative_lwp(struct kinfo_proc2 *ki, struct kinfo_lwp *kl, int nlwps)
493 1.48 thorpej {
494 1.48 thorpej int i, onproc, running, sleeping, stopped, suspended;
495 1.48 thorpej static struct kinfo_lwp zero_lwp;
496 1.48 thorpej
497 1.48 thorpej if (kl == 0)
498 1.48 thorpej return &zero_lwp;
499 1.52 simonb
500 1.48 thorpej /* Trivial case: only one LWP */
501 1.48 thorpej if (nlwps == 1)
502 1.48 thorpej return kl;
503 1.48 thorpej
504 1.48 thorpej switch (ki->p_realstat) {
505 1.48 thorpej case SSTOP:
506 1.48 thorpej case SACTIVE:
507 1.48 thorpej /* Pick the most live LWP */
508 1.48 thorpej onproc = running = sleeping = stopped = suspended = -1;
509 1.48 thorpej for (i = 0; i < nlwps; i++) {
510 1.48 thorpej switch (kl[i].l_stat) {
511 1.48 thorpej case LSONPROC:
512 1.48 thorpej onproc = i;
513 1.48 thorpej break;
514 1.48 thorpej case LSRUN:
515 1.48 thorpej running = i;
516 1.48 thorpej break;
517 1.48 thorpej case LSSLEEP:
518 1.48 thorpej sleeping = i;
519 1.48 thorpej break;
520 1.48 thorpej case LSSTOP:
521 1.48 thorpej stopped = i;
522 1.48 thorpej break;
523 1.48 thorpej case LSSUSPENDED:
524 1.48 thorpej suspended = i;
525 1.48 thorpej break;
526 1.48 thorpej }
527 1.48 thorpej }
528 1.48 thorpej if (onproc != -1)
529 1.48 thorpej return &kl[onproc];
530 1.48 thorpej if (running != -1)
531 1.48 thorpej return &kl[running];
532 1.48 thorpej if (sleeping != -1)
533 1.48 thorpej return &kl[sleeping];
534 1.48 thorpej if (stopped != -1)
535 1.48 thorpej return &kl[stopped];
536 1.48 thorpej if (suspended != -1)
537 1.48 thorpej return &kl[suspended];
538 1.48 thorpej break;
539 1.48 thorpej case SZOMB:
540 1.48 thorpej /* First will do */
541 1.48 thorpej return kl;
542 1.48 thorpej break;
543 1.48 thorpej }
544 1.48 thorpej /* Error condition! */
545 1.48 thorpej warnx("Inconsistent LWP state for process %d\n", ki->p_pid);
546 1.48 thorpej return kl;
547 1.48 thorpej }
548 1.52 simonb
549 1.48 thorpej
550 1.38 simonb static struct kinfo_proc2 *
551 1.52 simonb getkinfo_kvm(kvm_t *kdp, int what, int flag, int *nentriesp)
552 1.29 jdolecek {
553 1.52 simonb
554 1.45 lukem return (kvm_getproc2(kdp, what, flag, sizeof(struct kinfo_proc2),
555 1.38 simonb nentriesp));
556 1.29 jdolecek }
557 1.29 jdolecek
558 1.11 cgd static void
559 1.52 simonb scanvars(void)
560 1.1 cgd {
561 1.11 cgd struct varent *vent;
562 1.11 cgd VAR *v;
563 1.1 cgd
564 1.61 apb SIMPLEQ_FOREACH(vent, &displaylist, next) {
565 1.1 cgd v = vent->var;
566 1.43 matt if (v->flag & COMM) {
567 1.1 cgd needcomm = 1;
568 1.43 matt break;
569 1.43 matt }
570 1.1 cgd }
571 1.11 cgd }
572 1.1 cgd
573 1.11 cgd static int
574 1.49 dsl pscomp(const void *a, const void *b)
575 1.1 cgd {
576 1.59 christos const struct kinfo_proc2 *ka = (const struct kinfo_proc2 *)a;
577 1.59 christos const struct kinfo_proc2 *kb = (const struct kinfo_proc2 *)b;
578 1.38 simonb
579 1.1 cgd int i;
580 1.49 dsl int64_t i64;
581 1.49 dsl VAR *v;
582 1.49 dsl struct varent *ve;
583 1.59 christos const sigset_t *sa, *sb;
584 1.49 dsl
585 1.54 simonb #define V_SIZE(k) (k->p_vm_dsize + k->p_vm_ssize + k->p_vm_tsize)
586 1.54 simonb #define RDIFF_N(t, n) \
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.59 christos if (((const t *)((const char *)ka + v->off))[n] < ((const t *)((const char *)kb + v->off))[n]) \
590 1.49 dsl return -1;
591 1.49 dsl
592 1.54 simonb #define RDIFF(type) RDIFF_N(type, 0); continue
593 1.49 dsl
594 1.61 apb SIMPLEQ_FOREACH(ve, &sortlist, next) {
595 1.49 dsl v = ve->var;
596 1.49 dsl if (v->flag & LWP)
597 1.49 dsl /* LWP structure not available (yet) */
598 1.49 dsl continue;
599 1.49 dsl /* Sort on pvar() fields, + a few others */
600 1.49 dsl switch (v->type) {
601 1.49 dsl case CHAR:
602 1.49 dsl RDIFF(char);
603 1.49 dsl case UCHAR:
604 1.49 dsl RDIFF(u_char);
605 1.49 dsl case SHORT:
606 1.49 dsl RDIFF(short);
607 1.49 dsl case USHORT:
608 1.49 dsl RDIFF(ushort);
609 1.49 dsl case INT:
610 1.49 dsl RDIFF(int);
611 1.49 dsl case UINT:
612 1.49 dsl RDIFF(uint);
613 1.49 dsl case LONG:
614 1.49 dsl RDIFF(long);
615 1.49 dsl case ULONG:
616 1.49 dsl RDIFF(ulong);
617 1.49 dsl case INT32:
618 1.49 dsl RDIFF(int32_t);
619 1.49 dsl case UINT32:
620 1.49 dsl RDIFF(uint32_t);
621 1.49 dsl case SIGLIST:
622 1.59 christos sa = (const void *)((const char *)a + v->off);
623 1.59 christos sb = (const void *)((const char *)b + v->off);
624 1.49 dsl i = 0;
625 1.49 dsl do {
626 1.49 dsl if (sa->__bits[i] > sb->__bits[i])
627 1.49 dsl return 1;
628 1.49 dsl if (sa->__bits[i] < sb->__bits[i])
629 1.49 dsl return -1;
630 1.49 dsl i++;
631 1.49 dsl } while (i < sizeof sa->__bits / sizeof sa->__bits[0]);
632 1.49 dsl continue;
633 1.49 dsl case INT64:
634 1.49 dsl RDIFF(int64_t);
635 1.49 dsl case KPTR:
636 1.49 dsl case KPTR24:
637 1.49 dsl case UINT64:
638 1.49 dsl RDIFF(uint64_t);
639 1.49 dsl case TIMEVAL:
640 1.49 dsl /* compare xxx_sec then xxx_usec */
641 1.49 dsl RDIFF_N(uint32_t, 0);
642 1.49 dsl RDIFF_N(uint32_t, 1);
643 1.49 dsl continue;
644 1.49 dsl case CPUTIME:
645 1.49 dsl i64 = ka->p_rtime_sec * 1000000 + ka->p_rtime_usec;
646 1.49 dsl i64 -= kb->p_rtime_sec * 1000000 + kb->p_rtime_usec;
647 1.49 dsl if (sumrusage) {
648 1.49 dsl i64 += ka->p_uctime_sec * 1000000
649 1.49 dsl + ka->p_uctime_usec;
650 1.49 dsl i64 -= kb->p_uctime_sec * 1000000
651 1.49 dsl + kb->p_uctime_usec;
652 1.49 dsl }
653 1.49 dsl if (i64 != 0)
654 1.49 dsl return i64 > 0 ? 1 : -1;
655 1.49 dsl continue;
656 1.49 dsl case PCPU:
657 1.49 dsl i = getpcpu(kb) - getpcpu(ka);
658 1.49 dsl if (i != 0)
659 1.49 dsl return i;
660 1.49 dsl continue;
661 1.49 dsl case VSIZE:
662 1.49 dsl i = V_SIZE(kb) - V_SIZE(ka);
663 1.49 dsl if (i != 0)
664 1.49 dsl return i;
665 1.49 dsl continue;
666 1.49 dsl
667 1.49 dsl default:
668 1.49 dsl /* Ignore everything else */
669 1.49 dsl break;
670 1.49 dsl }
671 1.49 dsl }
672 1.49 dsl return 0;
673 1.1 cgd
674 1.49 dsl #undef VSIZE
675 1.1 cgd }
676 1.1 cgd
677 1.1 cgd /*
678 1.1 cgd * ICK (all for getopt), would rather hide the ugliness
679 1.1 cgd * here than taint the main code.
680 1.1 cgd *
681 1.1 cgd * ps foo -> ps -foo
682 1.1 cgd * ps 34 -> ps -p34
683 1.1 cgd *
684 1.25 mycroft * The old convention that 't' with no trailing tty arg means the user's
685 1.1 cgd * tty, is only supported if argv[1] doesn't begin with a '-'. This same
686 1.1 cgd * feature is available with the option 'T', which takes no argument.
687 1.1 cgd */
688 1.11 cgd static char *
689 1.52 simonb kludge_oldps_options(char *s)
690 1.1 cgd {
691 1.1 cgd size_t len;
692 1.1 cgd char *newopts, *ns, *cp;
693 1.1 cgd
694 1.1 cgd len = strlen(s);
695 1.16 thorpej if ((newopts = ns = malloc(len + 3)) == NULL)
696 1.32 drochner err(1, NULL);
697 1.1 cgd /*
698 1.1 cgd * options begin with '-'
699 1.1 cgd */
700 1.1 cgd if (*s != '-')
701 1.1 cgd *ns++ = '-'; /* add option flag */
702 1.1 cgd /*
703 1.1 cgd * gaze to end of argv[1]
704 1.1 cgd */
705 1.1 cgd cp = s + len - 1;
706 1.1 cgd /*
707 1.40 simonb * if the last letter is a 't' flag and there are no other option
708 1.40 simonb * characters that take arguments (eg U, p, o) in the option
709 1.40 simonb * string and the option string doesn't start with a '-' then
710 1.40 simonb * convert to 'T' (meaning *this* terminal, i.e. ttyname(0)).
711 1.1 cgd */
712 1.40 simonb if (*cp == 't' && *s != '-' && strpbrk(s, ARGOPTS) == NULL)
713 1.1 cgd *cp = 'T';
714 1.1 cgd else {
715 1.1 cgd /*
716 1.1 cgd * otherwise check for trailing number, which *may* be a
717 1.1 cgd * pid.
718 1.1 cgd */
719 1.55 dsl while (cp >= s && isdigit((unsigned char)*cp))
720 1.1 cgd --cp;
721 1.1 cgd }
722 1.1 cgd cp++;
723 1.11 cgd memmove(ns, s, (size_t)(cp - s)); /* copy up to trailing number */
724 1.1 cgd ns += cp - s;
725 1.1 cgd /*
726 1.1 cgd * if there's a trailing number, and not a preceding 'p' (pid) or
727 1.1 cgd * 't' (tty) flag, then assume it's a pid and insert a 'p' flag.
728 1.1 cgd */
729 1.55 dsl if (isdigit((unsigned char)*cp) &&
730 1.25 mycroft (cp == s || (cp[-1] != 'U' && cp[-1] != 't' && cp[-1] != 'p' &&
731 1.56 atatat cp[-1] != '/' && (cp - 1 == s || cp[-2] != 't'))))
732 1.1 cgd *ns++ = 'p';
733 1.18 mrg /* and append the number */
734 1.40 simonb (void)strcpy(ns, cp); /* XXX strcpy is safe here */
735 1.1 cgd
736 1.1 cgd return (newopts);
737 1.1 cgd }
738 1.1 cgd
739 1.60 christos static int
740 1.60 christos parsenum(const char *str, const char *msg)
741 1.60 christos {
742 1.60 christos char *ep;
743 1.60 christos unsigned long ul;
744 1.60 christos
745 1.60 christos ul = strtoul(str, &ep, 0);
746 1.60 christos
747 1.60 christos if (*str == '\0' || *ep != '\0')
748 1.60 christos errx(1, "Invalid %s: `%s'", msg, str);
749 1.60 christos
750 1.60 christos if (ul > INT_MAX)
751 1.60 christos errx(1, "Out of range %s: `%s'", msg, str);
752 1.60 christos
753 1.60 christos return (int)ul;
754 1.60 christos }
755 1.60 christos
756 1.11 cgd static void
757 1.52 simonb usage(void)
758 1.1 cgd {
759 1.1 cgd
760 1.11 cgd (void)fprintf(stderr,
761 1.11 cgd "usage:\t%s\n\t %s\n\t%s\n",
762 1.49 dsl "ps [-acCehjlmrsSTuvwx] [-k key] [-O|o fmt] [-p pid] [-t tty]",
763 1.34 hubertf "[-M core] [-N system] [-W swap] [-U username]",
764 1.11 cgd "ps [-L]");
765 1.1 cgd exit(1);
766 1.23 mycroft /* NOTREACHED */
767 1.1 cgd }
768