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