print.c revision 1.71.2.5
1 1.71.2.5 nathanw /* $NetBSD: print.c,v 1.71.2.5 2002/07/26 00:03:22 nathanw Exp $ */ 2 1.71.2.2 nathanw 3 1.71.2.2 nathanw /* 4 1.71.2.2 nathanw * Copyright (c) 2000 The NetBSD Foundation, Inc. 5 1.71.2.2 nathanw * All rights reserved. 6 1.71.2.2 nathanw * 7 1.71.2.2 nathanw * This code is derived from software contributed to The NetBSD Foundation 8 1.71.2.2 nathanw * by Simon Burge. 9 1.71.2.2 nathanw * 10 1.71.2.2 nathanw * Redistribution and use in source and binary forms, with or without 11 1.71.2.2 nathanw * modification, are permitted provided that the following conditions 12 1.71.2.2 nathanw * are met: 13 1.71.2.2 nathanw * 1. Redistributions of source code must retain the above copyright 14 1.71.2.2 nathanw * notice, this list of conditions and the following disclaimer. 15 1.71.2.2 nathanw * 2. Redistributions in binary form must reproduce the above copyright 16 1.71.2.2 nathanw * notice, this list of conditions and the following disclaimer in the 17 1.71.2.2 nathanw * documentation and/or other materials provided with the distribution. 18 1.71.2.2 nathanw * 3. All advertising materials mentioning features or use of this software 19 1.71.2.2 nathanw * must display the following acknowledgement: 20 1.71.2.2 nathanw * This product includes software developed by the NetBSD 21 1.71.2.2 nathanw * Foundation, Inc. and its contributors. 22 1.71.2.2 nathanw * 4. Neither the name of The NetBSD Foundation nor the names of its 23 1.71.2.2 nathanw * contributors may be used to endorse or promote products derived 24 1.71.2.2 nathanw * from this software without specific prior written permission. 25 1.71.2.2 nathanw * 26 1.71.2.2 nathanw * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 27 1.71.2.2 nathanw * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 28 1.71.2.2 nathanw * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 29 1.71.2.2 nathanw * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 30 1.71.2.2 nathanw * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 31 1.71.2.2 nathanw * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 32 1.71.2.2 nathanw * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 33 1.71.2.2 nathanw * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 34 1.71.2.2 nathanw * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 35 1.71.2.2 nathanw * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 36 1.71.2.2 nathanw * POSSIBILITY OF SUCH DAMAGE. 37 1.71.2.2 nathanw */ 38 1.71.2.2 nathanw 39 1.71.2.2 nathanw /* 40 1.71.2.2 nathanw * Copyright (c) 1990, 1993, 1994 41 1.71.2.2 nathanw * The Regents of the University of California. All rights reserved. 42 1.71.2.2 nathanw * 43 1.71.2.2 nathanw * Redistribution and use in source and binary forms, with or without 44 1.71.2.2 nathanw * modification, are permitted provided that the following conditions 45 1.71.2.2 nathanw * are met: 46 1.71.2.2 nathanw * 1. Redistributions of source code must retain the above copyright 47 1.71.2.2 nathanw * notice, this list of conditions and the following disclaimer. 48 1.71.2.2 nathanw * 2. Redistributions in binary form must reproduce the above copyright 49 1.71.2.2 nathanw * notice, this list of conditions and the following disclaimer in the 50 1.71.2.2 nathanw * documentation and/or other materials provided with the distribution. 51 1.71.2.2 nathanw * 3. All advertising materials mentioning features or use of this software 52 1.71.2.2 nathanw * must display the following acknowledgement: 53 1.71.2.2 nathanw * This product includes software developed by the University of 54 1.71.2.2 nathanw * California, Berkeley and its contributors. 55 1.71.2.2 nathanw * 4. Neither the name of the University nor the names of its contributors 56 1.71.2.2 nathanw * may be used to endorse or promote products derived from this software 57 1.71.2.2 nathanw * without specific prior written permission. 58 1.71.2.2 nathanw * 59 1.71.2.2 nathanw * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 60 1.71.2.2 nathanw * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 61 1.71.2.2 nathanw * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 62 1.71.2.2 nathanw * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 63 1.71.2.2 nathanw * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 64 1.71.2.2 nathanw * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 65 1.71.2.2 nathanw * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 66 1.71.2.2 nathanw * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 67 1.71.2.2 nathanw * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 68 1.71.2.2 nathanw * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 69 1.71.2.2 nathanw * SUCH DAMAGE. 70 1.71.2.2 nathanw */ 71 1.71.2.2 nathanw 72 1.71.2.2 nathanw #include <sys/cdefs.h> 73 1.71.2.2 nathanw #ifndef lint 74 1.71.2.2 nathanw #if 0 75 1.71.2.2 nathanw static char sccsid[] = "@(#)print.c 8.6 (Berkeley) 4/16/94"; 76 1.71.2.2 nathanw #else 77 1.71.2.5 nathanw __RCSID("$NetBSD: print.c,v 1.71.2.5 2002/07/26 00:03:22 nathanw Exp $"); 78 1.71.2.2 nathanw #endif 79 1.71.2.2 nathanw #endif /* not lint */ 80 1.71.2.2 nathanw 81 1.71.2.2 nathanw #include <sys/param.h> 82 1.71.2.2 nathanw #include <sys/time.h> 83 1.71.2.2 nathanw #include <sys/resource.h> 84 1.71.2.2 nathanw #include <sys/lwp.h> 85 1.71.2.2 nathanw #include <sys/proc.h> 86 1.71.2.2 nathanw #include <sys/stat.h> 87 1.71.2.2 nathanw #include <sys/ucred.h> 88 1.71.2.2 nathanw #include <sys/sysctl.h> 89 1.71.2.2 nathanw 90 1.71.2.2 nathanw #include <err.h> 91 1.71.2.2 nathanw #include <kvm.h> 92 1.71.2.2 nathanw #include <math.h> 93 1.71.2.2 nathanw #include <nlist.h> 94 1.71.2.2 nathanw #include <pwd.h> 95 1.71.2.2 nathanw #include <stddef.h> 96 1.71.2.2 nathanw #include <stdio.h> 97 1.71.2.2 nathanw #include <stdlib.h> 98 1.71.2.2 nathanw #include <string.h> 99 1.71.2.2 nathanw #include <time.h> 100 1.71.2.2 nathanw #include <tzfile.h> 101 1.71.2.2 nathanw #include <unistd.h> 102 1.71.2.2 nathanw 103 1.71.2.2 nathanw #include "ps.h" 104 1.71.2.2 nathanw 105 1.71.2.2 nathanw static char *cmdpart __P((char *)); 106 1.71.2.2 nathanw static void printval __P((void *, VAR *, int)); 107 1.71.2.2 nathanw static int titlecmp __P((char *, char **)); 108 1.71.2.2 nathanw 109 1.71.2.2 nathanw static void doubleprintorsetwidth __P((VAR *, double, int, int)); 110 1.71.2.2 nathanw static void intprintorsetwidth __P((VAR *, int, int)); 111 1.71.2.2 nathanw static void strprintorsetwidth __P((VAR *, const char *, int)); 112 1.71.2.2 nathanw 113 1.71.2.2 nathanw #define min(a,b) ((a) <= (b) ? (a) : (b)) 114 1.71.2.2 nathanw #define max(a,b) ((a) >= (b) ? (a) : (b)) 115 1.71.2.2 nathanw 116 1.71.2.2 nathanw static char * 117 1.71.2.2 nathanw cmdpart(arg0) 118 1.71.2.2 nathanw char *arg0; 119 1.71.2.2 nathanw { 120 1.71.2.2 nathanw char *cp; 121 1.71.2.2 nathanw 122 1.71.2.2 nathanw return ((cp = strrchr(arg0, '/')) != NULL ? cp + 1 : arg0); 123 1.71.2.2 nathanw } 124 1.71.2.2 nathanw 125 1.71.2.2 nathanw void 126 1.71.2.2 nathanw printheader() 127 1.71.2.2 nathanw { 128 1.71.2.2 nathanw int len; 129 1.71.2.2 nathanw VAR *v; 130 1.71.2.2 nathanw struct varent *vent; 131 1.71.2.2 nathanw static int firsttime = 1; 132 1.71.2.2 nathanw 133 1.71.2.2 nathanw for (vent = vhead; vent; vent = vent->next) { 134 1.71.2.2 nathanw v = vent->var; 135 1.71.2.2 nathanw if (firsttime) { 136 1.71.2.2 nathanw len = strlen(v->header); 137 1.71.2.2 nathanw if (len > v->width) 138 1.71.2.2 nathanw v->width = len; 139 1.71.2.2 nathanw totwidth += v->width + 1; /* +1 for space */ 140 1.71.2.2 nathanw } 141 1.71.2.2 nathanw if (v->flag & LJUST) { 142 1.71.2.2 nathanw if (vent->next == NULL) /* last one */ 143 1.71.2.2 nathanw (void)printf("%s", v->header); 144 1.71.2.2 nathanw else 145 1.71.2.2 nathanw (void)printf("%-*s", v->width, 146 1.71.2.2 nathanw v->header); 147 1.71.2.2 nathanw } else 148 1.71.2.2 nathanw (void)printf("%*s", v->width, v->header); 149 1.71.2.2 nathanw if (vent->next != NULL) 150 1.71.2.2 nathanw (void)putchar(' '); 151 1.71.2.2 nathanw } 152 1.71.2.2 nathanw (void)putchar('\n'); 153 1.71.2.2 nathanw if (firsttime) { 154 1.71.2.2 nathanw firsttime = 0; 155 1.71.2.2 nathanw totwidth--; /* take off last space */ 156 1.71.2.2 nathanw } 157 1.71.2.2 nathanw } 158 1.71.2.2 nathanw 159 1.71.2.2 nathanw /* 160 1.71.2.2 nathanw * Return 1 if the the command name in the argument vector (u-area) does 161 1.71.2.2 nathanw * not match the command name (p_comm) 162 1.71.2.2 nathanw */ 163 1.71.2.2 nathanw static int 164 1.71.2.2 nathanw titlecmp(name, argv) 165 1.71.2.2 nathanw char *name; 166 1.71.2.2 nathanw char **argv; 167 1.71.2.2 nathanw { 168 1.71.2.2 nathanw char *title; 169 1.71.2.2 nathanw int namelen; 170 1.71.2.2 nathanw 171 1.71.2.2 nathanw 172 1.71.2.2 nathanw /* no argument vector == no match; system processes/threads do that */ 173 1.71.2.2 nathanw if (argv == 0 || argv[0] == 0) 174 1.71.2.2 nathanw return (1); 175 1.71.2.2 nathanw 176 1.71.2.2 nathanw title = cmdpart(argv[0]); 177 1.71.2.2 nathanw 178 1.71.2.2 nathanw /* the basename matches */ 179 1.71.2.2 nathanw if (!strcmp(name, title)) 180 1.71.2.2 nathanw return (0); 181 1.71.2.2 nathanw 182 1.71.2.2 nathanw /* handle login shells, by skipping the leading - */ 183 1.71.2.2 nathanw if (title[0] == '-' && !strcmp(name, title+1)) 184 1.71.2.2 nathanw return (0); 185 1.71.2.2 nathanw 186 1.71.2.2 nathanw namelen = strlen(name); 187 1.71.2.2 nathanw 188 1.71.2.2 nathanw /* handle daemons that report activity as daemonname: activity */ 189 1.71.2.2 nathanw if (argv[1] == 0 && 190 1.71.2.2 nathanw !strncmp(name, title, namelen) && 191 1.71.2.2 nathanw title[namelen + 0] == ':' && 192 1.71.2.2 nathanw title[namelen + 1] == ' ') 193 1.71.2.2 nathanw return (0); 194 1.71.2.2 nathanw 195 1.71.2.2 nathanw return (1); 196 1.71.2.2 nathanw } 197 1.71.2.2 nathanw 198 1.71.2.2 nathanw static void 199 1.71.2.2 nathanw doubleprintorsetwidth(v, val, prec, mode) 200 1.71.2.2 nathanw VAR *v; 201 1.71.2.2 nathanw double val; 202 1.71.2.2 nathanw int prec; 203 1.71.2.2 nathanw int mode; 204 1.71.2.2 nathanw { 205 1.71.2.2 nathanw int fmtlen; 206 1.71.2.2 nathanw 207 1.71.2.2 nathanw if (mode == WIDTHMODE) { 208 1.71.2.2 nathanw if (val < 0.0 && val < v->longestnd) { 209 1.71.2.2 nathanw fmtlen = (int)log10(-val) + prec + 2; 210 1.71.2.2 nathanw v->longestnd = val; 211 1.71.2.2 nathanw if (fmtlen > v->width) 212 1.71.2.2 nathanw v->width = fmtlen; 213 1.71.2.2 nathanw } else if (val > 0.0 && val > v->longestpd) { 214 1.71.2.2 nathanw fmtlen = (int)log10(val) + prec + 1; 215 1.71.2.2 nathanw v->longestpd = val; 216 1.71.2.2 nathanw if (fmtlen > v->width) 217 1.71.2.2 nathanw v->width = fmtlen; 218 1.71.2.2 nathanw } 219 1.71.2.2 nathanw } else { 220 1.71.2.2 nathanw printf("%*.*f", v->width, prec, val); 221 1.71.2.2 nathanw } 222 1.71.2.2 nathanw } 223 1.71.2.2 nathanw 224 1.71.2.2 nathanw static void 225 1.71.2.2 nathanw intprintorsetwidth(v, val, mode) 226 1.71.2.2 nathanw VAR *v; 227 1.71.2.2 nathanw int val; 228 1.71.2.2 nathanw int mode; 229 1.71.2.2 nathanw { 230 1.71.2.2 nathanw int fmtlen; 231 1.71.2.2 nathanw 232 1.71.2.2 nathanw if (mode == WIDTHMODE) { 233 1.71.2.2 nathanw if (val < 0 && val < v->longestn) { 234 1.71.2.2 nathanw fmtlen = (int)log10((double)-val) + 2; 235 1.71.2.2 nathanw v->longestn = val; 236 1.71.2.2 nathanw if (fmtlen > v->width) 237 1.71.2.2 nathanw v->width = fmtlen; 238 1.71.2.2 nathanw } else if (val > 0 && val > v->longestp) { 239 1.71.2.2 nathanw fmtlen = (int)log10((double)val) + 1; 240 1.71.2.2 nathanw v->longestp = val; 241 1.71.2.2 nathanw if (fmtlen > v->width) 242 1.71.2.2 nathanw v->width = fmtlen; 243 1.71.2.2 nathanw } 244 1.71.2.2 nathanw } else 245 1.71.2.2 nathanw printf("%*d", v->width, val); 246 1.71.2.2 nathanw } 247 1.71.2.2 nathanw 248 1.71.2.2 nathanw static void 249 1.71.2.2 nathanw strprintorsetwidth(v, str, mode) 250 1.71.2.2 nathanw VAR *v; 251 1.71.2.2 nathanw const char *str; 252 1.71.2.2 nathanw { 253 1.71.2.2 nathanw int len; 254 1.71.2.2 nathanw 255 1.71.2.2 nathanw if (mode == WIDTHMODE) { 256 1.71.2.2 nathanw len = strlen(str); 257 1.71.2.2 nathanw if (len > v->width) 258 1.71.2.2 nathanw v->width = len; 259 1.71.2.2 nathanw } else { 260 1.71.2.2 nathanw if (v->flag & LJUST) 261 1.71.2.2 nathanw printf("%-*.*s", v->width, v->width, str); 262 1.71.2.2 nathanw else 263 1.71.2.2 nathanw printf("%*.*s", v->width, v->width, str); 264 1.71.2.2 nathanw } 265 1.71.2.2 nathanw } 266 1.71.2.2 nathanw 267 1.71.2.2 nathanw void 268 1.71.2.2 nathanw command(arg, ve, mode) 269 1.71.2.2 nathanw void *arg; 270 1.71.2.2 nathanw VARENT *ve; 271 1.71.2.2 nathanw int mode; 272 1.71.2.2 nathanw { 273 1.71.2.2 nathanw struct kinfo_proc2 *ki; 274 1.71.2.2 nathanw VAR *v; 275 1.71.2.2 nathanw int left; 276 1.71.2.2 nathanw char **argv, **p, *name; 277 1.71.2.2 nathanw 278 1.71.2.2 nathanw if (mode == WIDTHMODE) 279 1.71.2.2 nathanw return; 280 1.71.2.2 nathanw 281 1.71.2.2 nathanw ki = arg; 282 1.71.2.2 nathanw v = ve->var; 283 1.71.2.2 nathanw if (ve->next != NULL || termwidth != UNLIMITED) { 284 1.71.2.2 nathanw if (ve->next == NULL) { 285 1.71.2.2 nathanw left = termwidth - (totwidth - v->width); 286 1.71.2.2 nathanw if (left < 1) /* already wrapped, just use std width */ 287 1.71.2.2 nathanw left = v->width; 288 1.71.2.2 nathanw } else 289 1.71.2.2 nathanw left = v->width; 290 1.71.2.2 nathanw } else 291 1.71.2.2 nathanw left = -1; 292 1.71.2.2 nathanw if (needenv && kd) { 293 1.71.2.2 nathanw argv = kvm_getenvv2(kd, ki, termwidth); 294 1.71.2.2 nathanw if ((p = argv) != NULL) { 295 1.71.2.2 nathanw while (*p) { 296 1.71.2.2 nathanw fmt_puts(*p, &left); 297 1.71.2.2 nathanw p++; 298 1.71.2.2 nathanw fmt_putc(' ', &left); 299 1.71.2.2 nathanw } 300 1.71.2.2 nathanw } 301 1.71.2.2 nathanw } 302 1.71.2.2 nathanw if (needcomm) { 303 1.71.2.2 nathanw name = ki->p_comm; 304 1.71.2.2 nathanw if (!commandonly) { 305 1.71.2.2 nathanw argv = NULL; 306 1.71.2.2 nathanw argv = kvm_getargv2(kd, ki, termwidth); 307 1.71.2.2 nathanw if ((p = argv) != NULL) { 308 1.71.2.2 nathanw while (*p) { 309 1.71.2.2 nathanw fmt_puts(*p, &left); 310 1.71.2.2 nathanw p++; 311 1.71.2.2 nathanw fmt_putc(' ', &left); 312 1.71.2.2 nathanw } 313 1.71.2.2 nathanw if (titlecmp(name, argv)) { 314 1.71.2.2 nathanw /* 315 1.71.2.2 nathanw * append the real command name within 316 1.71.2.2 nathanw * parentheses, if the command name 317 1.71.2.2 nathanw * does not match the one in the 318 1.71.2.2 nathanw * argument vector 319 1.71.2.2 nathanw */ 320 1.71.2.2 nathanw fmt_putc('(', &left); 321 1.71.2.2 nathanw fmt_puts(name, &left); 322 1.71.2.2 nathanw fmt_putc(')', &left); 323 1.71.2.2 nathanw } 324 1.71.2.2 nathanw } else { 325 1.71.2.2 nathanw /* 326 1.71.2.2 nathanw * Commands that don't set an argv vector 327 1.71.2.2 nathanw * are printed with square brackets if they 328 1.71.2.2 nathanw * are system commands. Otherwise they are 329 1.71.2.2 nathanw * printed within parentheses. 330 1.71.2.2 nathanw */ 331 1.71.2.2 nathanw if (ki->p_flag & P_SYSTEM) { 332 1.71.2.2 nathanw fmt_putc('[', &left); 333 1.71.2.2 nathanw fmt_puts(name, &left); 334 1.71.2.2 nathanw fmt_putc(']', &left); 335 1.71.2.2 nathanw } else { 336 1.71.2.2 nathanw fmt_putc('(', &left); 337 1.71.2.2 nathanw fmt_puts(name, &left); 338 1.71.2.2 nathanw fmt_putc(')', &left); 339 1.71.2.2 nathanw } 340 1.71.2.2 nathanw } 341 1.71.2.2 nathanw } else { 342 1.71.2.2 nathanw fmt_puts(name, &left); 343 1.71.2.2 nathanw } 344 1.71.2.2 nathanw } 345 1.71.2.2 nathanw if (ve->next && left > 0) 346 1.71.2.2 nathanw printf("%*s", left, ""); 347 1.71.2.2 nathanw } 348 1.71.2.2 nathanw 349 1.71.2.2 nathanw void 350 1.71.2.2 nathanw ucomm(arg, ve, mode) 351 1.71.2.2 nathanw void *arg; 352 1.71.2.2 nathanw VARENT *ve; 353 1.71.2.2 nathanw int mode; 354 1.71.2.2 nathanw { 355 1.71.2.2 nathanw struct kinfo_proc2 *k; 356 1.71.2.2 nathanw VAR *v; 357 1.71.2.2 nathanw 358 1.71.2.2 nathanw k = arg; 359 1.71.2.2 nathanw v = ve->var; 360 1.71.2.2 nathanw strprintorsetwidth(v, k->p_comm, mode); 361 1.71.2.2 nathanw } 362 1.71.2.2 nathanw 363 1.71.2.2 nathanw void 364 1.71.2.2 nathanw logname(arg, ve, mode) 365 1.71.2.2 nathanw void *arg; 366 1.71.2.2 nathanw VARENT *ve; 367 1.71.2.2 nathanw int mode; 368 1.71.2.2 nathanw { 369 1.71.2.2 nathanw struct kinfo_proc2 *k; 370 1.71.2.2 nathanw VAR *v; 371 1.71.2.2 nathanw 372 1.71.2.2 nathanw k = arg; 373 1.71.2.2 nathanw v = ve->var; 374 1.71.2.2 nathanw strprintorsetwidth(v, k->p_login, mode); 375 1.71.2.2 nathanw } 376 1.71.2.2 nathanw 377 1.71.2.2 nathanw void 378 1.71.2.2 nathanw state(arg, ve, mode) 379 1.71.2.2 nathanw void *arg; 380 1.71.2.2 nathanw VARENT *ve; 381 1.71.2.2 nathanw int mode; 382 1.71.2.2 nathanw { 383 1.71.2.2 nathanw struct kinfo_proc2 *k; 384 1.71.2.2 nathanw int flag, is_zombie; 385 1.71.2.2 nathanw char *cp; 386 1.71.2.2 nathanw VAR *v; 387 1.71.2.2 nathanw char buf[16]; 388 1.71.2.2 nathanw 389 1.71.2.2 nathanw k = arg; 390 1.71.2.2 nathanw is_zombie = 0; 391 1.71.2.2 nathanw v = ve->var; 392 1.71.2.2 nathanw flag = k->p_flag; 393 1.71.2.2 nathanw cp = buf; 394 1.71.2.2 nathanw 395 1.71.2.2 nathanw switch (k->p_stat) { 396 1.71.2.2 nathanw 397 1.71.2.2 nathanw case LSSTOP: 398 1.71.2.2 nathanw *cp = 'T'; 399 1.71.2.2 nathanw break; 400 1.71.2.2 nathanw 401 1.71.2.2 nathanw case LSSLEEP: 402 1.71.2.2 nathanw if (flag & L_SINTR) /* interuptable (long) */ 403 1.71.2.2 nathanw *cp = k->p_slptime >= maxslp ? 'I' : 'S'; 404 1.71.2.2 nathanw else 405 1.71.2.2 nathanw *cp = 'D'; 406 1.71.2.2 nathanw break; 407 1.71.2.2 nathanw 408 1.71.2.2 nathanw case LSRUN: 409 1.71.2.2 nathanw case LSIDL: 410 1.71.2.2 nathanw case LSONPROC: 411 1.71.2.2 nathanw *cp = 'R'; 412 1.71.2.2 nathanw break; 413 1.71.2.2 nathanw 414 1.71.2.2 nathanw case LSZOMB: 415 1.71.2.2 nathanw case LSDEAD: 416 1.71.2.2 nathanw *cp = 'Z'; 417 1.71.2.2 nathanw is_zombie = 1; 418 1.71.2.2 nathanw break; 419 1.71.2.2 nathanw 420 1.71.2.5 nathanw case LSSUSPENDED: 421 1.71.2.5 nathanw *cp = 'U'; 422 1.71.2.5 nathanw break; 423 1.71.2.5 nathanw 424 1.71.2.2 nathanw default: 425 1.71.2.2 nathanw *cp = '?'; 426 1.71.2.2 nathanw } 427 1.71.2.2 nathanw cp++; 428 1.71.2.2 nathanw if (flag & L_INMEM) { 429 1.71.2.2 nathanw } else 430 1.71.2.2 nathanw *cp++ = 'W'; 431 1.71.2.2 nathanw if (k->p_nice < NZERO) 432 1.71.2.2 nathanw *cp++ = '<'; 433 1.71.2.2 nathanw else if (k->p_nice > NZERO) 434 1.71.2.2 nathanw *cp++ = 'N'; 435 1.71.2.2 nathanw if (flag & P_TRACED) 436 1.71.2.2 nathanw *cp++ = 'X'; 437 1.71.2.2 nathanw if (flag & P_WEXIT && !is_zombie) 438 1.71.2.2 nathanw *cp++ = 'E'; 439 1.71.2.2 nathanw if (flag & P_PPWAIT) 440 1.71.2.2 nathanw *cp++ = 'V'; 441 1.71.2.2 nathanw if (flag & P_SYSTEM) 442 1.71.2.2 nathanw *cp++ = 'K'; 443 1.71.2.2 nathanw /* system process might have this too, don't need to double up */ 444 1.71.2.2 nathanw else if (k->p_holdcnt) 445 1.71.2.2 nathanw *cp++ = 'L'; 446 1.71.2.2 nathanw if (k->p_eflag & EPROC_SLEADER) 447 1.71.2.2 nathanw *cp++ = 's'; 448 1.71.2.3 nathanw if (flag & P_SA) 449 1.71.2.3 nathanw *cp++ = 'a'; 450 1.71.2.3 nathanw else if (k->p_nlwps > 1) 451 1.71.2.3 nathanw *cp++ = 'l'; 452 1.71.2.5 nathanw if ((flag & P_CONTROLT) && k->p__pgid == k->p_tpgid) 453 1.71.2.5 nathanw *cp++ = '+'; 454 1.71.2.3 nathanw *cp = '\0'; 455 1.71.2.3 nathanw strprintorsetwidth(v, buf, mode); 456 1.71.2.3 nathanw } 457 1.71.2.3 nathanw 458 1.71.2.3 nathanw void 459 1.71.2.3 nathanw lstate(arg, ve, mode) 460 1.71.2.3 nathanw void *arg; 461 1.71.2.3 nathanw VARENT *ve; 462 1.71.2.3 nathanw int mode; 463 1.71.2.3 nathanw { 464 1.71.2.3 nathanw struct kinfo_lwp *k; 465 1.71.2.3 nathanw int flag, is_zombie; 466 1.71.2.3 nathanw char *cp; 467 1.71.2.3 nathanw VAR *v; 468 1.71.2.3 nathanw char buf[16]; 469 1.71.2.3 nathanw 470 1.71.2.3 nathanw k = arg; 471 1.71.2.3 nathanw is_zombie = 0; 472 1.71.2.3 nathanw v = ve->var; 473 1.71.2.3 nathanw flag = k->l_flag; 474 1.71.2.3 nathanw cp = buf; 475 1.71.2.3 nathanw 476 1.71.2.3 nathanw switch (k->l_stat) { 477 1.71.2.3 nathanw 478 1.71.2.3 nathanw case LSSTOP: 479 1.71.2.3 nathanw *cp = 'T'; 480 1.71.2.3 nathanw break; 481 1.71.2.3 nathanw 482 1.71.2.3 nathanw case LSSLEEP: 483 1.71.2.3 nathanw if (flag & L_SINTR) /* interuptable (long) */ 484 1.71.2.3 nathanw *cp = k->l_slptime >= maxslp ? 'I' : 'S'; 485 1.71.2.3 nathanw else 486 1.71.2.3 nathanw *cp = 'D'; 487 1.71.2.3 nathanw break; 488 1.71.2.3 nathanw 489 1.71.2.3 nathanw case LSRUN: 490 1.71.2.3 nathanw case LSIDL: 491 1.71.2.3 nathanw case LSONPROC: 492 1.71.2.3 nathanw *cp = 'R'; 493 1.71.2.3 nathanw break; 494 1.71.2.3 nathanw 495 1.71.2.3 nathanw case LSZOMB: 496 1.71.2.3 nathanw case LSDEAD: 497 1.71.2.3 nathanw *cp = 'Z'; 498 1.71.2.3 nathanw is_zombie = 1; 499 1.71.2.3 nathanw break; 500 1.71.2.3 nathanw 501 1.71.2.5 nathanw case LSSUSPENDED: 502 1.71.2.5 nathanw *cp = 'U'; 503 1.71.2.5 nathanw break; 504 1.71.2.5 nathanw 505 1.71.2.3 nathanw default: 506 1.71.2.3 nathanw *cp = '?'; 507 1.71.2.3 nathanw } 508 1.71.2.3 nathanw cp++; 509 1.71.2.3 nathanw if (flag & L_INMEM) { 510 1.71.2.3 nathanw } else 511 1.71.2.3 nathanw *cp++ = 'W'; 512 1.71.2.3 nathanw if (k->l_holdcnt) 513 1.71.2.3 nathanw *cp++ = 'L'; 514 1.71.2.3 nathanw if (flag & L_DETACHED) 515 1.71.2.3 nathanw *cp++ = '-'; 516 1.71.2.2 nathanw *cp = '\0'; 517 1.71.2.2 nathanw strprintorsetwidth(v, buf, mode); 518 1.71.2.2 nathanw } 519 1.71.2.2 nathanw 520 1.71.2.2 nathanw void 521 1.71.2.2 nathanw pnice(arg, ve, mode) 522 1.71.2.2 nathanw void *arg; 523 1.71.2.2 nathanw VARENT *ve; 524 1.71.2.2 nathanw int mode; 525 1.71.2.2 nathanw { 526 1.71.2.2 nathanw struct kinfo_proc2 *k; 527 1.71.2.2 nathanw VAR *v; 528 1.71.2.2 nathanw 529 1.71.2.2 nathanw k = arg; 530 1.71.2.2 nathanw v = ve->var; 531 1.71.2.2 nathanw intprintorsetwidth(v, k->p_nice - NZERO, mode); 532 1.71.2.2 nathanw } 533 1.71.2.2 nathanw 534 1.71.2.2 nathanw void 535 1.71.2.2 nathanw pri(arg, ve, mode) 536 1.71.2.2 nathanw void *arg; 537 1.71.2.2 nathanw VARENT *ve; 538 1.71.2.2 nathanw int mode; 539 1.71.2.2 nathanw { 540 1.71.2.2 nathanw struct kinfo_lwp *l; 541 1.71.2.2 nathanw VAR *v; 542 1.71.2.2 nathanw 543 1.71.2.2 nathanw l = arg; 544 1.71.2.2 nathanw v = ve->var; 545 1.71.2.2 nathanw intprintorsetwidth(v, l->l_priority - PZERO, mode); 546 1.71.2.2 nathanw } 547 1.71.2.2 nathanw 548 1.71.2.2 nathanw void 549 1.71.2.2 nathanw uname(arg, ve, mode) 550 1.71.2.2 nathanw void *arg; 551 1.71.2.2 nathanw VARENT *ve; 552 1.71.2.2 nathanw int mode; 553 1.71.2.2 nathanw { 554 1.71.2.2 nathanw struct kinfo_proc2 *k; 555 1.71.2.2 nathanw VAR *v; 556 1.71.2.2 nathanw 557 1.71.2.2 nathanw k = arg; 558 1.71.2.2 nathanw v = ve->var; 559 1.71.2.2 nathanw strprintorsetwidth(v, user_from_uid(k->p_uid, 0), mode); 560 1.71.2.2 nathanw } 561 1.71.2.2 nathanw 562 1.71.2.2 nathanw void 563 1.71.2.2 nathanw runame(arg, ve, mode) 564 1.71.2.2 nathanw void *arg; 565 1.71.2.2 nathanw VARENT *ve; 566 1.71.2.2 nathanw int mode; 567 1.71.2.2 nathanw { 568 1.71.2.2 nathanw struct kinfo_proc2 *k; 569 1.71.2.2 nathanw VAR *v; 570 1.71.2.2 nathanw 571 1.71.2.2 nathanw k = arg; 572 1.71.2.2 nathanw v = ve->var; 573 1.71.2.2 nathanw strprintorsetwidth(v, user_from_uid(k->p_ruid, 0), mode); 574 1.71.2.2 nathanw } 575 1.71.2.2 nathanw 576 1.71.2.2 nathanw void 577 1.71.2.2 nathanw tdev(arg, ve, mode) 578 1.71.2.2 nathanw void *arg; 579 1.71.2.2 nathanw VARENT *ve; 580 1.71.2.2 nathanw int mode; 581 1.71.2.2 nathanw { 582 1.71.2.2 nathanw struct kinfo_proc2 *k; 583 1.71.2.2 nathanw VAR *v; 584 1.71.2.2 nathanw dev_t dev; 585 1.71.2.2 nathanw char buff[16]; 586 1.71.2.2 nathanw 587 1.71.2.2 nathanw k = arg; 588 1.71.2.2 nathanw v = ve->var; 589 1.71.2.2 nathanw dev = k->p_tdev; 590 1.71.2.2 nathanw if (dev == NODEV) { 591 1.71.2.2 nathanw /* 592 1.71.2.2 nathanw * Minimum width is width of header - we don't 593 1.71.2.2 nathanw * need to check it every time. 594 1.71.2.2 nathanw */ 595 1.71.2.2 nathanw if (mode == PRINTMODE) 596 1.71.2.2 nathanw (void)printf("%*s", v->width, "??"); 597 1.71.2.2 nathanw } else { 598 1.71.2.2 nathanw (void)snprintf(buff, sizeof(buff), 599 1.71.2.2 nathanw "%d/%d", major(dev), minor(dev)); 600 1.71.2.2 nathanw strprintorsetwidth(v, buff, mode); 601 1.71.2.2 nathanw } 602 1.71.2.2 nathanw } 603 1.71.2.2 nathanw 604 1.71.2.2 nathanw void 605 1.71.2.2 nathanw tname(arg, ve, mode) 606 1.71.2.2 nathanw void *arg; 607 1.71.2.2 nathanw VARENT *ve; 608 1.71.2.2 nathanw int mode; 609 1.71.2.2 nathanw { 610 1.71.2.2 nathanw struct kinfo_proc2 *k; 611 1.71.2.2 nathanw VAR *v; 612 1.71.2.2 nathanw dev_t dev; 613 1.71.2.2 nathanw const char *ttname; 614 1.71.2.2 nathanw int noctty; 615 1.71.2.2 nathanw 616 1.71.2.2 nathanw k = arg; 617 1.71.2.2 nathanw v = ve->var; 618 1.71.2.2 nathanw dev = k->p_tdev; 619 1.71.2.2 nathanw if (dev == NODEV || (ttname = devname(dev, S_IFCHR)) == NULL) { 620 1.71.2.2 nathanw /* 621 1.71.2.2 nathanw * Minimum width is width of header - we don't 622 1.71.2.2 nathanw * need to check it every time. 623 1.71.2.2 nathanw */ 624 1.71.2.2 nathanw if (mode == PRINTMODE) 625 1.71.2.2 nathanw (void)printf("%-*s", v->width, "??"); 626 1.71.2.2 nathanw } else { 627 1.71.2.2 nathanw if (strncmp(ttname, "tty", 3) == 0 || 628 1.71.2.2 nathanw strncmp(ttname, "dty", 3) == 0) 629 1.71.2.2 nathanw ttname += 3; 630 1.71.2.2 nathanw noctty = !(k->p_eflag & EPROC_CTTY) ? 1 : 0; 631 1.71.2.2 nathanw if (mode == WIDTHMODE) { 632 1.71.2.2 nathanw int fmtlen; 633 1.71.2.2 nathanw 634 1.71.2.2 nathanw fmtlen = strlen(ttname) + noctty; 635 1.71.2.2 nathanw if (v->width < fmtlen) 636 1.71.2.2 nathanw v->width = fmtlen; 637 1.71.2.2 nathanw } else { 638 1.71.2.2 nathanw if (noctty) 639 1.71.2.2 nathanw printf("%-*s-", v->width - 1, ttname); 640 1.71.2.2 nathanw else 641 1.71.2.2 nathanw printf("%-*s", v->width, ttname); 642 1.71.2.2 nathanw } 643 1.71.2.2 nathanw } 644 1.71.2.2 nathanw } 645 1.71.2.2 nathanw 646 1.71.2.2 nathanw void 647 1.71.2.2 nathanw longtname(arg, ve, mode) 648 1.71.2.2 nathanw void *arg; 649 1.71.2.2 nathanw VARENT *ve; 650 1.71.2.2 nathanw int mode; 651 1.71.2.2 nathanw { 652 1.71.2.2 nathanw struct kinfo_proc2 *k; 653 1.71.2.2 nathanw VAR *v; 654 1.71.2.2 nathanw dev_t dev; 655 1.71.2.2 nathanw const char *ttname; 656 1.71.2.2 nathanw 657 1.71.2.2 nathanw k = arg; 658 1.71.2.2 nathanw v = ve->var; 659 1.71.2.2 nathanw dev = k->p_tdev; 660 1.71.2.2 nathanw if (dev == NODEV || (ttname = devname(dev, S_IFCHR)) == NULL) { 661 1.71.2.2 nathanw /* 662 1.71.2.2 nathanw * Minimum width is width of header - we don't 663 1.71.2.2 nathanw * need to check it every time. 664 1.71.2.2 nathanw */ 665 1.71.2.2 nathanw if (mode == PRINTMODE) 666 1.71.2.2 nathanw (void)printf("%-*s", v->width, "??"); 667 1.71.2.2 nathanw } 668 1.71.2.2 nathanw else { 669 1.71.2.2 nathanw strprintorsetwidth(v, ttname, mode); 670 1.71.2.2 nathanw } 671 1.71.2.2 nathanw } 672 1.71.2.2 nathanw 673 1.71.2.2 nathanw void 674 1.71.2.2 nathanw started(arg, ve, mode) 675 1.71.2.2 nathanw void *arg; 676 1.71.2.2 nathanw VARENT *ve; 677 1.71.2.2 nathanw int mode; 678 1.71.2.2 nathanw { 679 1.71.2.2 nathanw struct kinfo_proc2 *k; 680 1.71.2.2 nathanw VAR *v; 681 1.71.2.2 nathanw static time_t now; 682 1.71.2.2 nathanw time_t startt; 683 1.71.2.2 nathanw struct tm *tp; 684 1.71.2.2 nathanw char buf[100], *cp; 685 1.71.2.2 nathanw 686 1.71.2.2 nathanw k = arg; 687 1.71.2.2 nathanw v = ve->var; 688 1.71.2.2 nathanw if (!k->p_uvalid) { 689 1.71.2.2 nathanw if (mode == PRINTMODE) 690 1.71.2.2 nathanw (void)printf("%*s", v->width, "-"); 691 1.71.2.2 nathanw return; 692 1.71.2.2 nathanw } 693 1.71.2.2 nathanw 694 1.71.2.2 nathanw startt = k->p_ustart_sec; 695 1.71.2.2 nathanw tp = localtime(&startt); 696 1.71.2.2 nathanw if (!now) 697 1.71.2.2 nathanw (void)time(&now); 698 1.71.2.2 nathanw if (now - k->p_ustart_sec < SECSPERDAY) 699 1.71.2.2 nathanw /* I *hate* SCCS... */ 700 1.71.2.2 nathanw (void)strftime(buf, sizeof(buf) - 1, "%l:%" "M%p", tp); 701 1.71.2.2 nathanw else if (now - k->p_ustart_sec < DAYSPERWEEK * SECSPERDAY) 702 1.71.2.2 nathanw /* I *hate* SCCS... */ 703 1.71.2.2 nathanw (void)strftime(buf, sizeof(buf) - 1, "%a%" "I%p", tp); 704 1.71.2.2 nathanw else 705 1.71.2.2 nathanw (void)strftime(buf, sizeof(buf) - 1, "%e%b%y", tp); 706 1.71.2.2 nathanw /* %e and %l can start with a space. */ 707 1.71.2.2 nathanw cp = buf; 708 1.71.2.2 nathanw if (*cp == ' ') 709 1.71.2.2 nathanw cp++; 710 1.71.2.2 nathanw strprintorsetwidth(v, cp, mode); 711 1.71.2.2 nathanw } 712 1.71.2.2 nathanw 713 1.71.2.2 nathanw void 714 1.71.2.2 nathanw lstarted(arg, ve, mode) 715 1.71.2.2 nathanw void *arg; 716 1.71.2.2 nathanw VARENT *ve; 717 1.71.2.2 nathanw int mode; 718 1.71.2.2 nathanw { 719 1.71.2.2 nathanw struct kinfo_proc2 *k; 720 1.71.2.2 nathanw VAR *v; 721 1.71.2.2 nathanw time_t startt; 722 1.71.2.2 nathanw char buf[100]; 723 1.71.2.2 nathanw 724 1.71.2.2 nathanw k = arg; 725 1.71.2.2 nathanw v = ve->var; 726 1.71.2.2 nathanw if (!k->p_uvalid) { 727 1.71.2.2 nathanw /* 728 1.71.2.2 nathanw * Minimum width is less than header - we don't 729 1.71.2.2 nathanw * need to check it every time. 730 1.71.2.2 nathanw */ 731 1.71.2.2 nathanw if (mode == PRINTMODE) 732 1.71.2.2 nathanw (void)printf("%*s", v->width, "-"); 733 1.71.2.2 nathanw return; 734 1.71.2.2 nathanw } 735 1.71.2.2 nathanw startt = k->p_ustart_sec; 736 1.71.2.2 nathanw 737 1.71.2.2 nathanw /* assume all times are the same length */ 738 1.71.2.2 nathanw if (mode != WIDTHMODE || v->width == 0) { 739 1.71.2.2 nathanw (void)strftime(buf, sizeof(buf) -1, "%c", 740 1.71.2.2 nathanw localtime(&startt)); 741 1.71.2.2 nathanw strprintorsetwidth(v, buf, mode); 742 1.71.2.2 nathanw } 743 1.71.2.2 nathanw } 744 1.71.2.2 nathanw 745 1.71.2.2 nathanw void 746 1.71.2.2 nathanw wchan(arg, ve, mode) 747 1.71.2.2 nathanw void *arg; 748 1.71.2.2 nathanw VARENT *ve; 749 1.71.2.2 nathanw int mode; 750 1.71.2.2 nathanw { 751 1.71.2.2 nathanw struct kinfo_lwp *l; 752 1.71.2.2 nathanw VAR *v; 753 1.71.2.2 nathanw char *buf; 754 1.71.2.2 nathanw 755 1.71.2.2 nathanw l = arg; 756 1.71.2.2 nathanw v = ve->var; 757 1.71.2.2 nathanw if (l->l_wchan) { 758 1.71.2.2 nathanw if (l->l_wmesg) { 759 1.71.2.2 nathanw strprintorsetwidth(v, l->l_wmesg, mode); 760 1.71.2.2 nathanw v->width = min(v->width, WMESGLEN); 761 1.71.2.2 nathanw } else { 762 1.71.2.2 nathanw (void)asprintf(&buf, "%-*llx", v->width, 763 1.71.2.2 nathanw (long long)l->l_wchan); 764 1.71.2.2 nathanw if (buf == NULL) 765 1.71.2.2 nathanw err(1, "%s", ""); 766 1.71.2.2 nathanw strprintorsetwidth(v, buf, mode); 767 1.71.2.2 nathanw v->width = min(v->width, WMESGLEN); 768 1.71.2.2 nathanw free(buf); 769 1.71.2.2 nathanw } 770 1.71.2.2 nathanw } else { 771 1.71.2.2 nathanw if (mode == PRINTMODE) 772 1.71.2.2 nathanw (void)printf("%-*s", v->width, "-"); 773 1.71.2.2 nathanw } 774 1.71.2.2 nathanw } 775 1.71.2.2 nathanw 776 1.71.2.2 nathanw #define pgtok(a) (((a)*getpagesize())/1024) 777 1.71.2.2 nathanw 778 1.71.2.2 nathanw void 779 1.71.2.2 nathanw vsize(arg, ve, mode) 780 1.71.2.2 nathanw void *arg; 781 1.71.2.2 nathanw VARENT *ve; 782 1.71.2.2 nathanw int mode; 783 1.71.2.2 nathanw { 784 1.71.2.2 nathanw struct kinfo_proc2 *k; 785 1.71.2.2 nathanw VAR *v; 786 1.71.2.2 nathanw 787 1.71.2.2 nathanw k = arg; 788 1.71.2.2 nathanw v = ve->var; 789 1.71.2.2 nathanw intprintorsetwidth(v, 790 1.71.2.2 nathanw pgtok(k->p_vm_dsize + k->p_vm_ssize + k->p_vm_tsize), mode); 791 1.71.2.2 nathanw } 792 1.71.2.2 nathanw 793 1.71.2.2 nathanw void 794 1.71.2.2 nathanw rssize(arg, ve, mode) 795 1.71.2.2 nathanw void *arg; 796 1.71.2.2 nathanw VARENT *ve; 797 1.71.2.2 nathanw int mode; 798 1.71.2.2 nathanw { 799 1.71.2.2 nathanw struct kinfo_proc2 *k; 800 1.71.2.2 nathanw VAR *v; 801 1.71.2.2 nathanw 802 1.71.2.2 nathanw k = arg; 803 1.71.2.2 nathanw v = ve->var; 804 1.71.2.2 nathanw /* XXX don't have info about shared */ 805 1.71.2.2 nathanw intprintorsetwidth(v, pgtok(k->p_vm_rssize), mode); 806 1.71.2.2 nathanw } 807 1.71.2.2 nathanw 808 1.71.2.2 nathanw void 809 1.71.2.2 nathanw p_rssize(arg, ve, mode) /* doesn't account for text */ 810 1.71.2.2 nathanw void *arg; 811 1.71.2.2 nathanw VARENT *ve; 812 1.71.2.2 nathanw int mode; 813 1.71.2.2 nathanw { 814 1.71.2.2 nathanw struct kinfo_proc2 *k; 815 1.71.2.2 nathanw VAR *v; 816 1.71.2.2 nathanw 817 1.71.2.2 nathanw k = arg; 818 1.71.2.2 nathanw v = ve->var; 819 1.71.2.2 nathanw intprintorsetwidth(v, pgtok(k->p_vm_rssize), mode); 820 1.71.2.2 nathanw } 821 1.71.2.2 nathanw 822 1.71.2.2 nathanw void 823 1.71.2.2 nathanw cputime(arg, ve, mode) 824 1.71.2.2 nathanw void *arg; 825 1.71.2.2 nathanw VARENT *ve; 826 1.71.2.2 nathanw int mode; 827 1.71.2.2 nathanw { 828 1.71.2.2 nathanw struct kinfo_proc2 *k; 829 1.71.2.2 nathanw VAR *v; 830 1.71.2.2 nathanw int32_t secs; 831 1.71.2.2 nathanw int32_t psecs; /* "parts" of a second. first micro, then centi */ 832 1.71.2.2 nathanw int fmtlen; 833 1.71.2.2 nathanw 834 1.71.2.2 nathanw k = arg; 835 1.71.2.2 nathanw v = ve->var; 836 1.71.2.2 nathanw if (P_ZOMBIE(k) || k->p_uvalid == 0) { 837 1.71.2.2 nathanw secs = 0; 838 1.71.2.2 nathanw psecs = 0; 839 1.71.2.2 nathanw } else { 840 1.71.2.2 nathanw /* 841 1.71.2.2 nathanw * This counts time spent handling interrupts. We could 842 1.71.2.2 nathanw * fix this, but it is not 100% trivial (and interrupt 843 1.71.2.2 nathanw * time fractions only work on the sparc anyway). XXX 844 1.71.2.2 nathanw */ 845 1.71.2.2 nathanw secs = k->p_rtime_sec; 846 1.71.2.2 nathanw psecs = k->p_rtime_usec; 847 1.71.2.2 nathanw if (sumrusage) { 848 1.71.2.2 nathanw secs += k->p_uctime_sec; 849 1.71.2.2 nathanw psecs += k->p_uctime_usec; 850 1.71.2.2 nathanw } 851 1.71.2.2 nathanw /* 852 1.71.2.2 nathanw * round and scale to 100's 853 1.71.2.2 nathanw */ 854 1.71.2.2 nathanw psecs = (psecs + 5000) / 10000; 855 1.71.2.2 nathanw secs += psecs / 100; 856 1.71.2.2 nathanw psecs = psecs % 100; 857 1.71.2.2 nathanw } 858 1.71.2.2 nathanw if (mode == WIDTHMODE) { 859 1.71.2.2 nathanw /* 860 1.71.2.2 nathanw * Ugg, this is the only field where a value of 0 longer 861 1.71.2.2 nathanw * than the column title, and log10(0) isn't good enough. 862 1.71.2.2 nathanw * Use SECSPERMIN, because secs is divided by that when 863 1.71.2.2 nathanw * passed to log10(). 864 1.71.2.2 nathanw */ 865 1.71.2.2 nathanw if (secs == 0 && v->longestp == 0) 866 1.71.2.2 nathanw secs = SECSPERMIN; 867 1.71.2.2 nathanw if (secs > v->longestp) { 868 1.71.2.2 nathanw /* "+6" for the "%02ld.%02ld" in the printf() below */ 869 1.71.2.2 nathanw fmtlen = (int)log10((double)secs / SECSPERMIN) + 1 + 6; 870 1.71.2.2 nathanw v->longestp = secs; 871 1.71.2.2 nathanw if (fmtlen > v->width) 872 1.71.2.2 nathanw v->width = fmtlen; 873 1.71.2.2 nathanw } 874 1.71.2.2 nathanw } else { 875 1.71.2.2 nathanw printf("%*ld:%02ld.%02ld", v->width - 6, (long)(secs / SECSPERMIN), 876 1.71.2.2 nathanw (long)(secs % SECSPERMIN), (long)psecs); 877 1.71.2.2 nathanw } 878 1.71.2.2 nathanw } 879 1.71.2.2 nathanw 880 1.71.2.2 nathanw double 881 1.71.2.2 nathanw getpcpu(k) 882 1.71.2.2 nathanw struct kinfo_proc2 *k; 883 1.71.2.2 nathanw { 884 1.71.2.2 nathanw static int failure; 885 1.71.2.2 nathanw 886 1.71.2.2 nathanw if (!nlistread) 887 1.71.2.2 nathanw failure = (kd) ? donlist() : 1; 888 1.71.2.2 nathanw if (failure) 889 1.71.2.2 nathanw return (0.0); 890 1.71.2.2 nathanw 891 1.71.2.2 nathanw #define fxtofl(fixpt) ((double)(fixpt) / fscale) 892 1.71.2.2 nathanw 893 1.71.2.2 nathanw /* XXX - I don't like this */ 894 1.71.2.2 nathanw if (k->p_swtime == 0 || (k->p_flag & L_INMEM) == 0 || 895 1.71.2.2 nathanw k->p_stat == SZOMB || k->p_stat == SDEAD) 896 1.71.2.2 nathanw return (0.0); 897 1.71.2.2 nathanw if (rawcpu) 898 1.71.2.2 nathanw return (100.0 * fxtofl(k->p_pctcpu)); 899 1.71.2.2 nathanw return (100.0 * fxtofl(k->p_pctcpu) / 900 1.71.2.2 nathanw (1.0 - exp(k->p_swtime * log(ccpu)))); 901 1.71.2.2 nathanw } 902 1.71.2.2 nathanw 903 1.71.2.2 nathanw void 904 1.71.2.2 nathanw pcpu(arg, ve, mode) 905 1.71.2.2 nathanw void *arg; 906 1.71.2.2 nathanw VARENT *ve; 907 1.71.2.2 nathanw int mode; 908 1.71.2.2 nathanw { 909 1.71.2.2 nathanw struct kinfo_proc2 *k; 910 1.71.2.2 nathanw VAR *v; 911 1.71.2.2 nathanw 912 1.71.2.2 nathanw k = arg; 913 1.71.2.2 nathanw v = ve->var; 914 1.71.2.2 nathanw doubleprintorsetwidth(v, getpcpu(k), 1, mode); 915 1.71.2.2 nathanw } 916 1.71.2.2 nathanw 917 1.71.2.2 nathanw double 918 1.71.2.2 nathanw getpmem(k) 919 1.71.2.2 nathanw struct kinfo_proc2 *k; 920 1.71.2.2 nathanw { 921 1.71.2.2 nathanw static int failure; 922 1.71.2.2 nathanw double fracmem; 923 1.71.2.2 nathanw int szptudot; 924 1.71.2.2 nathanw 925 1.71.2.2 nathanw if (!nlistread) 926 1.71.2.2 nathanw failure = (kd) ? donlist() : 1; 927 1.71.2.2 nathanw if (failure) 928 1.71.2.2 nathanw return (0.0); 929 1.71.2.2 nathanw 930 1.71.2.2 nathanw if ((k->p_flag & L_INMEM) == 0) 931 1.71.2.2 nathanw return (0.0); 932 1.71.2.2 nathanw /* XXX want pmap ptpages, segtab, etc. (per architecture) */ 933 1.71.2.2 nathanw szptudot = uspace/getpagesize(); 934 1.71.2.2 nathanw /* XXX don't have info about shared */ 935 1.71.2.2 nathanw fracmem = ((float)k->p_vm_rssize + szptudot)/mempages; 936 1.71.2.2 nathanw return (100.0 * fracmem); 937 1.71.2.2 nathanw } 938 1.71.2.2 nathanw 939 1.71.2.2 nathanw void 940 1.71.2.2 nathanw pmem(arg, ve, mode) 941 1.71.2.2 nathanw void *arg; 942 1.71.2.2 nathanw VARENT *ve; 943 1.71.2.2 nathanw int mode; 944 1.71.2.2 nathanw { 945 1.71.2.2 nathanw struct kinfo_proc2 *k; 946 1.71.2.2 nathanw VAR *v; 947 1.71.2.2 nathanw 948 1.71.2.2 nathanw k = arg; 949 1.71.2.2 nathanw v = ve->var; 950 1.71.2.2 nathanw doubleprintorsetwidth(v, getpmem(k), 1, mode); 951 1.71.2.2 nathanw } 952 1.71.2.2 nathanw 953 1.71.2.2 nathanw void 954 1.71.2.2 nathanw pagein(arg, ve, mode) 955 1.71.2.2 nathanw void *arg; 956 1.71.2.2 nathanw VARENT *ve; 957 1.71.2.2 nathanw int mode; 958 1.71.2.2 nathanw { 959 1.71.2.2 nathanw struct kinfo_proc2 *k; 960 1.71.2.2 nathanw VAR *v; 961 1.71.2.2 nathanw 962 1.71.2.2 nathanw k = arg; 963 1.71.2.2 nathanw v = ve->var; 964 1.71.2.2 nathanw intprintorsetwidth(v, k->p_uvalid ? k->p_uru_majflt : 0, mode); 965 1.71.2.2 nathanw } 966 1.71.2.2 nathanw 967 1.71.2.2 nathanw void 968 1.71.2.2 nathanw maxrss(arg, ve, mode) 969 1.71.2.2 nathanw void *arg; 970 1.71.2.2 nathanw VARENT *ve; 971 1.71.2.2 nathanw int mode; 972 1.71.2.2 nathanw { 973 1.71.2.2 nathanw VAR *v; 974 1.71.2.2 nathanw 975 1.71.2.2 nathanw v = ve->var; 976 1.71.2.2 nathanw /* No need to check width! */ 977 1.71.2.2 nathanw if (mode == PRINTMODE) 978 1.71.2.2 nathanw (void)printf("%*s", v->width, "-"); 979 1.71.2.2 nathanw } 980 1.71.2.2 nathanw 981 1.71.2.2 nathanw void 982 1.71.2.2 nathanw tsize(arg, ve, mode) 983 1.71.2.2 nathanw void *arg; 984 1.71.2.2 nathanw VARENT *ve; 985 1.71.2.2 nathanw int mode; 986 1.71.2.2 nathanw { 987 1.71.2.2 nathanw struct kinfo_proc2 *k; 988 1.71.2.2 nathanw VAR *v; 989 1.71.2.2 nathanw 990 1.71.2.2 nathanw k = arg; 991 1.71.2.2 nathanw v = ve->var; 992 1.71.2.2 nathanw intprintorsetwidth(v, pgtok(k->p_vm_tsize), mode); 993 1.71.2.2 nathanw } 994 1.71.2.2 nathanw 995 1.71.2.2 nathanw /* 996 1.71.2.2 nathanw * Generic output routines. Print fields from various prototype 997 1.71.2.2 nathanw * structures. 998 1.71.2.2 nathanw */ 999 1.71.2.2 nathanw static void 1000 1.71.2.2 nathanw printval(bp, v, mode) 1001 1.71.2.2 nathanw void *bp; 1002 1.71.2.2 nathanw VAR *v; 1003 1.71.2.2 nathanw int mode; 1004 1.71.2.2 nathanw { 1005 1.71.2.2 nathanw static char ofmt[32] = "%"; 1006 1.71.2.2 nathanw int width, vok, fmtlen; 1007 1.71.2.2 nathanw char *fcp, *cp, *obuf; 1008 1.71.2.2 nathanw enum type type; 1009 1.71.2.2 nathanw long long val; 1010 1.71.2.2 nathanw unsigned long long uval; 1011 1.71.2.2 nathanw 1012 1.71.2.2 nathanw /* 1013 1.71.2.2 nathanw * Note that the "INF127" check is nonsensical for types 1014 1.71.2.2 nathanw * that are or can be signed. 1015 1.71.2.2 nathanw */ 1016 1.71.2.2 nathanw #define GET(type) (*(type *)bp) 1017 1.71.2.2 nathanw #define CHK_INF127(n) (((n) > 127) && (v->flag & INF127) ? 127 : (n)) 1018 1.71.2.2 nathanw 1019 1.71.2.2 nathanw #define VSIGN 1 1020 1.71.2.2 nathanw #define VUNSIGN 2 1021 1.71.2.2 nathanw #define VPTR 3 1022 1.71.2.2 nathanw 1023 1.71.2.2 nathanw if (mode == WIDTHMODE) { 1024 1.71.2.2 nathanw vok = 0; 1025 1.71.2.2 nathanw switch (v->type) { 1026 1.71.2.2 nathanw case CHAR: 1027 1.71.2.2 nathanw val = GET(char); 1028 1.71.2.2 nathanw vok = VSIGN; 1029 1.71.2.2 nathanw break; 1030 1.71.2.2 nathanw case UCHAR: 1031 1.71.2.2 nathanw uval = CHK_INF127(GET(u_char)); 1032 1.71.2.2 nathanw vok = VUNSIGN; 1033 1.71.2.2 nathanw break; 1034 1.71.2.2 nathanw case SHORT: 1035 1.71.2.2 nathanw val = GET(short); 1036 1.71.2.2 nathanw vok = VSIGN; 1037 1.71.2.2 nathanw break; 1038 1.71.2.2 nathanw case USHORT: 1039 1.71.2.2 nathanw uval = CHK_INF127(GET(u_short)); 1040 1.71.2.2 nathanw vok = VUNSIGN; 1041 1.71.2.2 nathanw break; 1042 1.71.2.2 nathanw case INT32: 1043 1.71.2.2 nathanw val = GET(int32_t); 1044 1.71.2.2 nathanw vok = VSIGN; 1045 1.71.2.2 nathanw break; 1046 1.71.2.2 nathanw case INT: 1047 1.71.2.2 nathanw val = GET(int); 1048 1.71.2.2 nathanw vok = VSIGN; 1049 1.71.2.2 nathanw break; 1050 1.71.2.2 nathanw case UINT: 1051 1.71.2.2 nathanw case UINT32: 1052 1.71.2.2 nathanw uval = CHK_INF127(GET(u_int)); 1053 1.71.2.2 nathanw vok = VUNSIGN; 1054 1.71.2.2 nathanw break; 1055 1.71.2.2 nathanw case LONG: 1056 1.71.2.2 nathanw val = GET(long); 1057 1.71.2.2 nathanw vok = VSIGN; 1058 1.71.2.2 nathanw break; 1059 1.71.2.2 nathanw case ULONG: 1060 1.71.2.2 nathanw uval = CHK_INF127(GET(u_long)); 1061 1.71.2.2 nathanw vok = VUNSIGN; 1062 1.71.2.2 nathanw break; 1063 1.71.2.2 nathanw case KPTR: 1064 1.71.2.2 nathanw uval = (unsigned long long)GET(u_int64_t); 1065 1.71.2.2 nathanw vok = VPTR; 1066 1.71.2.2 nathanw break; 1067 1.71.2.2 nathanw case KPTR24: 1068 1.71.2.2 nathanw uval = (unsigned long long)GET(u_int64_t); 1069 1.71.2.2 nathanw uval &= 0xffffff; 1070 1.71.2.2 nathanw vok = VPTR; 1071 1.71.2.2 nathanw break; 1072 1.71.2.4 nathanw case INT64: 1073 1.71.2.4 nathanw val = (long long)GET(int64_t); 1074 1.71.2.4 nathanw vok = VSIGN; 1075 1.71.2.4 nathanw break; 1076 1.71.2.4 nathanw case UINT64: 1077 1.71.2.4 nathanw uval = (unsigned long long)CHK_INF127(GET(u_int64_t)); 1078 1.71.2.4 nathanw vok = VUNSIGN; 1079 1.71.2.4 nathanw break; 1080 1.71.2.4 nathanw 1081 1.71.2.2 nathanw default: 1082 1.71.2.2 nathanw /* nothing... */; 1083 1.71.2.2 nathanw } 1084 1.71.2.2 nathanw switch (vok) { 1085 1.71.2.2 nathanw case VSIGN: 1086 1.71.2.2 nathanw if (val < 0 && val < v->longestn) { 1087 1.71.2.2 nathanw fmtlen = (int)log10((double)-val) + 2; 1088 1.71.2.2 nathanw v->longestn = val; 1089 1.71.2.2 nathanw if (fmtlen > v->width) 1090 1.71.2.2 nathanw v->width = fmtlen; 1091 1.71.2.2 nathanw } else if (val > 0 && val > v->longestp) { 1092 1.71.2.2 nathanw fmtlen = (int)log10((double)val) + 1; 1093 1.71.2.2 nathanw v->longestp = val; 1094 1.71.2.2 nathanw if (fmtlen > v->width) 1095 1.71.2.2 nathanw v->width = fmtlen; 1096 1.71.2.2 nathanw } 1097 1.71.2.2 nathanw return; 1098 1.71.2.2 nathanw case VUNSIGN: 1099 1.71.2.2 nathanw if (uval > v->longestu) { 1100 1.71.2.2 nathanw fmtlen = (int)log10((double)uval) + 1; 1101 1.71.2.2 nathanw v->longestu = uval; 1102 1.71.2.2 nathanw v->width = fmtlen; 1103 1.71.2.2 nathanw } 1104 1.71.2.2 nathanw return; 1105 1.71.2.2 nathanw case VPTR: 1106 1.71.2.2 nathanw fmtlen = 0; 1107 1.71.2.2 nathanw while (uval > 0) { 1108 1.71.2.2 nathanw uval >>= 4; 1109 1.71.2.2 nathanw fmtlen++; 1110 1.71.2.2 nathanw } 1111 1.71.2.2 nathanw if (fmtlen > v->width) 1112 1.71.2.2 nathanw v->width = fmtlen; 1113 1.71.2.2 nathanw return; 1114 1.71.2.2 nathanw } 1115 1.71.2.2 nathanw } 1116 1.71.2.2 nathanw 1117 1.71.2.2 nathanw width = v->width; 1118 1.71.2.2 nathanw cp = ofmt + 1; 1119 1.71.2.2 nathanw fcp = v->fmt; 1120 1.71.2.2 nathanw if (v->flag & LJUST) 1121 1.71.2.2 nathanw *cp++ = '-'; 1122 1.71.2.2 nathanw *cp++ = '*'; 1123 1.71.2.2 nathanw while ((*cp++ = *fcp++) != '\0') 1124 1.71.2.2 nathanw continue; 1125 1.71.2.2 nathanw 1126 1.71.2.2 nathanw switch (v->type) { 1127 1.71.2.2 nathanw case INT32: 1128 1.71.2.2 nathanw if (sizeof(int32_t) == sizeof(int)) 1129 1.71.2.2 nathanw type = INT; 1130 1.71.2.2 nathanw else if (sizeof(int32_t) == sizeof(long)) 1131 1.71.2.2 nathanw type = LONG; 1132 1.71.2.2 nathanw else 1133 1.71.2.2 nathanw errx(1, "unknown conversion for type %d", v->type); 1134 1.71.2.2 nathanw break; 1135 1.71.2.2 nathanw case UINT32: 1136 1.71.2.2 nathanw if (sizeof(u_int32_t) == sizeof(u_int)) 1137 1.71.2.2 nathanw type = UINT; 1138 1.71.2.2 nathanw else if (sizeof(u_int32_t) == sizeof(u_long)) 1139 1.71.2.2 nathanw type = ULONG; 1140 1.71.2.2 nathanw else 1141 1.71.2.2 nathanw errx(1, "unknown conversion for type %d", v->type); 1142 1.71.2.2 nathanw break; 1143 1.71.2.2 nathanw default: 1144 1.71.2.2 nathanw type = v->type; 1145 1.71.2.2 nathanw break; 1146 1.71.2.2 nathanw } 1147 1.71.2.2 nathanw 1148 1.71.2.2 nathanw switch (type) { 1149 1.71.2.2 nathanw case CHAR: 1150 1.71.2.2 nathanw (void)printf(ofmt, width, GET(char)); 1151 1.71.2.2 nathanw return; 1152 1.71.2.2 nathanw case UCHAR: 1153 1.71.2.2 nathanw (void)printf(ofmt, width, CHK_INF127(GET(u_char))); 1154 1.71.2.2 nathanw return; 1155 1.71.2.2 nathanw case SHORT: 1156 1.71.2.2 nathanw (void)printf(ofmt, width, GET(short)); 1157 1.71.2.2 nathanw return; 1158 1.71.2.2 nathanw case USHORT: 1159 1.71.2.2 nathanw (void)printf(ofmt, width, CHK_INF127(GET(u_short))); 1160 1.71.2.2 nathanw return; 1161 1.71.2.2 nathanw case INT: 1162 1.71.2.2 nathanw (void)printf(ofmt, width, GET(int)); 1163 1.71.2.2 nathanw return; 1164 1.71.2.2 nathanw case UINT: 1165 1.71.2.2 nathanw (void)printf(ofmt, width, CHK_INF127(GET(u_int))); 1166 1.71.2.2 nathanw return; 1167 1.71.2.2 nathanw case LONG: 1168 1.71.2.2 nathanw (void)printf(ofmt, width, GET(long)); 1169 1.71.2.2 nathanw return; 1170 1.71.2.2 nathanw case ULONG: 1171 1.71.2.2 nathanw (void)printf(ofmt, width, CHK_INF127(GET(u_long))); 1172 1.71.2.2 nathanw return; 1173 1.71.2.2 nathanw case KPTR: 1174 1.71.2.2 nathanw (void)printf(ofmt, width, (unsigned long long)GET(u_int64_t)); 1175 1.71.2.2 nathanw return; 1176 1.71.2.2 nathanw case KPTR24: 1177 1.71.2.2 nathanw (void)printf(ofmt, width, 1178 1.71.2.2 nathanw (unsigned long long)GET(u_int64_t) & 0xffffff); 1179 1.71.2.2 nathanw return; 1180 1.71.2.2 nathanw case SIGLIST: 1181 1.71.2.2 nathanw { 1182 1.71.2.2 nathanw sigset_t *s = (sigset_t *)(void *)bp; 1183 1.71.2.2 nathanw size_t i; 1184 1.71.2.2 nathanw #define SIGSETSIZE (sizeof(s->__bits) / sizeof(s->__bits[0])) 1185 1.71.2.2 nathanw char buf[SIGSETSIZE * 8 + 1]; 1186 1.71.2.2 nathanw 1187 1.71.2.2 nathanw for (i = 0; i < SIGSETSIZE; i++) 1188 1.71.2.2 nathanw (void)snprintf(&buf[i * 8], 9, "%.8x", 1189 1.71.2.2 nathanw s->__bits[(SIGSETSIZE - 1) - i]); 1190 1.71.2.2 nathanw 1191 1.71.2.2 nathanw /* Skip leading zeroes */ 1192 1.71.2.2 nathanw for (i = 0; buf[i]; i++) 1193 1.71.2.2 nathanw if (buf[i] != '0') 1194 1.71.2.2 nathanw break; 1195 1.71.2.2 nathanw 1196 1.71.2.2 nathanw if (buf[i] == '\0') 1197 1.71.2.2 nathanw i--; 1198 1.71.2.2 nathanw (void)asprintf(&obuf, ofmt, width, &buf[i]); 1199 1.71.2.2 nathanw } 1200 1.71.2.2 nathanw break; 1201 1.71.2.4 nathanw case INT64: 1202 1.71.2.4 nathanw (void)printf(ofmt, width, (long long)GET(int64_t)); 1203 1.71.2.4 nathanw return; 1204 1.71.2.4 nathanw case UINT64: 1205 1.71.2.4 nathanw (void)printf(ofmt, width, (unsigned long long)CHK_INF127(GET(u_int64_t))); 1206 1.71.2.4 nathanw return; 1207 1.71.2.2 nathanw default: 1208 1.71.2.2 nathanw errx(1, "unknown type %d", v->type); 1209 1.71.2.2 nathanw } 1210 1.71.2.2 nathanw if (obuf == NULL) 1211 1.71.2.2 nathanw err(1, "%s", ""); 1212 1.71.2.2 nathanw if (mode == WIDTHMODE) { 1213 1.71.2.2 nathanw /* Skip leading spaces. */ 1214 1.71.2.2 nathanw cp = strrchr(obuf, ' '); 1215 1.71.2.2 nathanw if (cp == NULL) 1216 1.71.2.2 nathanw cp = obuf; 1217 1.71.2.2 nathanw else 1218 1.71.2.2 nathanw cp++; /* skip last space */ 1219 1.71.2.2 nathanw } 1220 1.71.2.2 nathanw else 1221 1.71.2.2 nathanw cp = obuf; 1222 1.71.2.2 nathanw strprintorsetwidth(v, cp, mode); 1223 1.71.2.2 nathanw free(obuf); 1224 1.71.2.2 nathanw #undef GET 1225 1.71.2.2 nathanw #undef CHK_INF127 1226 1.71.2.2 nathanw } 1227 1.71.2.2 nathanw 1228 1.71.2.2 nathanw void 1229 1.71.2.2 nathanw pvar(arg, ve, mode) 1230 1.71.2.2 nathanw void *arg; 1231 1.71.2.2 nathanw VARENT *ve; 1232 1.71.2.2 nathanw int mode; 1233 1.71.2.2 nathanw { 1234 1.71.2.2 nathanw VAR *v; 1235 1.71.2.2 nathanw 1236 1.71.2.2 nathanw v = ve->var; 1237 1.71.2.2 nathanw printval((char *)arg + v->off, v, mode); 1238 1.71.2.2 nathanw } 1239
Indexes created Thu Oct 02 10:09:58 GMT 2025