print.c revision 1.71.2.2
1 1.71.2.2 nathanw /* $NetBSD: print.c,v 1.71.2.2 2002/04/23 20:41:12 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.2 nathanw __RCSID("$NetBSD: print.c,v 1.71.2.2 2002/04/23 20:41:12 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.2 nathanw default: 421 1.71.2.2 nathanw *cp = '?'; 422 1.71.2.2 nathanw } 423 1.71.2.2 nathanw cp++; 424 1.71.2.2 nathanw if (flag & L_INMEM) { 425 1.71.2.2 nathanw } else 426 1.71.2.2 nathanw *cp++ = 'W'; 427 1.71.2.2 nathanw if (k->p_nice < NZERO) 428 1.71.2.2 nathanw *cp++ = '<'; 429 1.71.2.2 nathanw else if (k->p_nice > NZERO) 430 1.71.2.2 nathanw *cp++ = 'N'; 431 1.71.2.2 nathanw if (flag & P_TRACED) 432 1.71.2.2 nathanw *cp++ = 'X'; 433 1.71.2.2 nathanw if (flag & P_WEXIT && !is_zombie) 434 1.71.2.2 nathanw *cp++ = 'E'; 435 1.71.2.2 nathanw if (flag & P_PPWAIT) 436 1.71.2.2 nathanw *cp++ = 'V'; 437 1.71.2.2 nathanw if (flag & P_SYSTEM) 438 1.71.2.2 nathanw *cp++ = 'K'; 439 1.71.2.2 nathanw /* system process might have this too, don't need to double up */ 440 1.71.2.2 nathanw else if (k->p_holdcnt) 441 1.71.2.2 nathanw *cp++ = 'L'; 442 1.71.2.2 nathanw if (k->p_eflag & EPROC_SLEADER) 443 1.71.2.2 nathanw *cp++ = 's'; 444 1.71.2.2 nathanw if ((flag & P_CONTROLT) && k->p__pgid == k->p_tpgid) 445 1.71.2.2 nathanw *cp++ = '+'; 446 1.71.2.2 nathanw *cp = '\0'; 447 1.71.2.2 nathanw strprintorsetwidth(v, buf, mode); 448 1.71.2.2 nathanw } 449 1.71.2.2 nathanw 450 1.71.2.2 nathanw void 451 1.71.2.2 nathanw pnice(arg, ve, mode) 452 1.71.2.2 nathanw void *arg; 453 1.71.2.2 nathanw VARENT *ve; 454 1.71.2.2 nathanw int mode; 455 1.71.2.2 nathanw { 456 1.71.2.2 nathanw struct kinfo_proc2 *k; 457 1.71.2.2 nathanw VAR *v; 458 1.71.2.2 nathanw 459 1.71.2.2 nathanw k = arg; 460 1.71.2.2 nathanw v = ve->var; 461 1.71.2.2 nathanw intprintorsetwidth(v, k->p_nice - NZERO, mode); 462 1.71.2.2 nathanw } 463 1.71.2.2 nathanw 464 1.71.2.2 nathanw void 465 1.71.2.2 nathanw pri(arg, ve, mode) 466 1.71.2.2 nathanw void *arg; 467 1.71.2.2 nathanw VARENT *ve; 468 1.71.2.2 nathanw int mode; 469 1.71.2.2 nathanw { 470 1.71.2.2 nathanw struct kinfo_lwp *l; 471 1.71.2.2 nathanw VAR *v; 472 1.71.2.2 nathanw 473 1.71.2.2 nathanw l = arg; 474 1.71.2.2 nathanw v = ve->var; 475 1.71.2.2 nathanw intprintorsetwidth(v, l->l_priority - PZERO, mode); 476 1.71.2.2 nathanw } 477 1.71.2.2 nathanw 478 1.71.2.2 nathanw void 479 1.71.2.2 nathanw uname(arg, ve, mode) 480 1.71.2.2 nathanw void *arg; 481 1.71.2.2 nathanw VARENT *ve; 482 1.71.2.2 nathanw int mode; 483 1.71.2.2 nathanw { 484 1.71.2.2 nathanw struct kinfo_proc2 *k; 485 1.71.2.2 nathanw VAR *v; 486 1.71.2.2 nathanw 487 1.71.2.2 nathanw k = arg; 488 1.71.2.2 nathanw v = ve->var; 489 1.71.2.2 nathanw strprintorsetwidth(v, user_from_uid(k->p_uid, 0), mode); 490 1.71.2.2 nathanw } 491 1.71.2.2 nathanw 492 1.71.2.2 nathanw void 493 1.71.2.2 nathanw runame(arg, ve, mode) 494 1.71.2.2 nathanw void *arg; 495 1.71.2.2 nathanw VARENT *ve; 496 1.71.2.2 nathanw int mode; 497 1.71.2.2 nathanw { 498 1.71.2.2 nathanw struct kinfo_proc2 *k; 499 1.71.2.2 nathanw VAR *v; 500 1.71.2.2 nathanw 501 1.71.2.2 nathanw k = arg; 502 1.71.2.2 nathanw v = ve->var; 503 1.71.2.2 nathanw strprintorsetwidth(v, user_from_uid(k->p_ruid, 0), mode); 504 1.71.2.2 nathanw } 505 1.71.2.2 nathanw 506 1.71.2.2 nathanw void 507 1.71.2.2 nathanw tdev(arg, ve, mode) 508 1.71.2.2 nathanw void *arg; 509 1.71.2.2 nathanw VARENT *ve; 510 1.71.2.2 nathanw int mode; 511 1.71.2.2 nathanw { 512 1.71.2.2 nathanw struct kinfo_proc2 *k; 513 1.71.2.2 nathanw VAR *v; 514 1.71.2.2 nathanw dev_t dev; 515 1.71.2.2 nathanw char buff[16]; 516 1.71.2.2 nathanw 517 1.71.2.2 nathanw k = arg; 518 1.71.2.2 nathanw v = ve->var; 519 1.71.2.2 nathanw dev = k->p_tdev; 520 1.71.2.2 nathanw if (dev == NODEV) { 521 1.71.2.2 nathanw /* 522 1.71.2.2 nathanw * Minimum width is width of header - we don't 523 1.71.2.2 nathanw * need to check it every time. 524 1.71.2.2 nathanw */ 525 1.71.2.2 nathanw if (mode == PRINTMODE) 526 1.71.2.2 nathanw (void)printf("%*s", v->width, "??"); 527 1.71.2.2 nathanw } else { 528 1.71.2.2 nathanw (void)snprintf(buff, sizeof(buff), 529 1.71.2.2 nathanw "%d/%d", major(dev), minor(dev)); 530 1.71.2.2 nathanw strprintorsetwidth(v, buff, mode); 531 1.71.2.2 nathanw } 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 tname(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_proc2 *k; 541 1.71.2.2 nathanw VAR *v; 542 1.71.2.2 nathanw dev_t dev; 543 1.71.2.2 nathanw const char *ttname; 544 1.71.2.2 nathanw int noctty; 545 1.71.2.2 nathanw 546 1.71.2.2 nathanw k = arg; 547 1.71.2.2 nathanw v = ve->var; 548 1.71.2.2 nathanw dev = k->p_tdev; 549 1.71.2.2 nathanw if (dev == NODEV || (ttname = devname(dev, S_IFCHR)) == NULL) { 550 1.71.2.2 nathanw /* 551 1.71.2.2 nathanw * Minimum width is width of header - we don't 552 1.71.2.2 nathanw * need to check it every time. 553 1.71.2.2 nathanw */ 554 1.71.2.2 nathanw if (mode == PRINTMODE) 555 1.71.2.2 nathanw (void)printf("%-*s", v->width, "??"); 556 1.71.2.2 nathanw } else { 557 1.71.2.2 nathanw if (strncmp(ttname, "tty", 3) == 0 || 558 1.71.2.2 nathanw strncmp(ttname, "dty", 3) == 0) 559 1.71.2.2 nathanw ttname += 3; 560 1.71.2.2 nathanw noctty = !(k->p_eflag & EPROC_CTTY) ? 1 : 0; 561 1.71.2.2 nathanw if (mode == WIDTHMODE) { 562 1.71.2.2 nathanw int fmtlen; 563 1.71.2.2 nathanw 564 1.71.2.2 nathanw fmtlen = strlen(ttname) + noctty; 565 1.71.2.2 nathanw if (v->width < fmtlen) 566 1.71.2.2 nathanw v->width = fmtlen; 567 1.71.2.2 nathanw } else { 568 1.71.2.2 nathanw if (noctty) 569 1.71.2.2 nathanw printf("%-*s-", v->width - 1, ttname); 570 1.71.2.2 nathanw else 571 1.71.2.2 nathanw printf("%-*s", v->width, ttname); 572 1.71.2.2 nathanw } 573 1.71.2.2 nathanw } 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 longtname(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 const char *ttname; 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 || (ttname = devname(dev, S_IFCHR)) == NULL) { 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 } 598 1.71.2.2 nathanw else { 599 1.71.2.2 nathanw strprintorsetwidth(v, ttname, mode); 600 1.71.2.2 nathanw } 601 1.71.2.2 nathanw } 602 1.71.2.2 nathanw 603 1.71.2.2 nathanw void 604 1.71.2.2 nathanw started(arg, ve, mode) 605 1.71.2.2 nathanw void *arg; 606 1.71.2.2 nathanw VARENT *ve; 607 1.71.2.2 nathanw int mode; 608 1.71.2.2 nathanw { 609 1.71.2.2 nathanw struct kinfo_proc2 *k; 610 1.71.2.2 nathanw VAR *v; 611 1.71.2.2 nathanw static time_t now; 612 1.71.2.2 nathanw time_t startt; 613 1.71.2.2 nathanw struct tm *tp; 614 1.71.2.2 nathanw char buf[100], *cp; 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 if (!k->p_uvalid) { 619 1.71.2.2 nathanw if (mode == PRINTMODE) 620 1.71.2.2 nathanw (void)printf("%*s", v->width, "-"); 621 1.71.2.2 nathanw return; 622 1.71.2.2 nathanw } 623 1.71.2.2 nathanw 624 1.71.2.2 nathanw startt = k->p_ustart_sec; 625 1.71.2.2 nathanw tp = localtime(&startt); 626 1.71.2.2 nathanw if (!now) 627 1.71.2.2 nathanw (void)time(&now); 628 1.71.2.2 nathanw if (now - k->p_ustart_sec < SECSPERDAY) 629 1.71.2.2 nathanw /* I *hate* SCCS... */ 630 1.71.2.2 nathanw (void)strftime(buf, sizeof(buf) - 1, "%l:%" "M%p", tp); 631 1.71.2.2 nathanw else if (now - k->p_ustart_sec < DAYSPERWEEK * SECSPERDAY) 632 1.71.2.2 nathanw /* I *hate* SCCS... */ 633 1.71.2.2 nathanw (void)strftime(buf, sizeof(buf) - 1, "%a%" "I%p", tp); 634 1.71.2.2 nathanw else 635 1.71.2.2 nathanw (void)strftime(buf, sizeof(buf) - 1, "%e%b%y", tp); 636 1.71.2.2 nathanw /* %e and %l can start with a space. */ 637 1.71.2.2 nathanw cp = buf; 638 1.71.2.2 nathanw if (*cp == ' ') 639 1.71.2.2 nathanw cp++; 640 1.71.2.2 nathanw strprintorsetwidth(v, cp, mode); 641 1.71.2.2 nathanw } 642 1.71.2.2 nathanw 643 1.71.2.2 nathanw void 644 1.71.2.2 nathanw lstarted(arg, ve, mode) 645 1.71.2.2 nathanw void *arg; 646 1.71.2.2 nathanw VARENT *ve; 647 1.71.2.2 nathanw int mode; 648 1.71.2.2 nathanw { 649 1.71.2.2 nathanw struct kinfo_proc2 *k; 650 1.71.2.2 nathanw VAR *v; 651 1.71.2.2 nathanw time_t startt; 652 1.71.2.2 nathanw char buf[100]; 653 1.71.2.2 nathanw 654 1.71.2.2 nathanw k = arg; 655 1.71.2.2 nathanw v = ve->var; 656 1.71.2.2 nathanw if (!k->p_uvalid) { 657 1.71.2.2 nathanw /* 658 1.71.2.2 nathanw * Minimum width is less than header - we don't 659 1.71.2.2 nathanw * need to check it every time. 660 1.71.2.2 nathanw */ 661 1.71.2.2 nathanw if (mode == PRINTMODE) 662 1.71.2.2 nathanw (void)printf("%*s", v->width, "-"); 663 1.71.2.2 nathanw return; 664 1.71.2.2 nathanw } 665 1.71.2.2 nathanw startt = k->p_ustart_sec; 666 1.71.2.2 nathanw 667 1.71.2.2 nathanw /* assume all times are the same length */ 668 1.71.2.2 nathanw if (mode != WIDTHMODE || v->width == 0) { 669 1.71.2.2 nathanw (void)strftime(buf, sizeof(buf) -1, "%c", 670 1.71.2.2 nathanw localtime(&startt)); 671 1.71.2.2 nathanw strprintorsetwidth(v, buf, mode); 672 1.71.2.2 nathanw } 673 1.71.2.2 nathanw } 674 1.71.2.2 nathanw 675 1.71.2.2 nathanw void 676 1.71.2.2 nathanw wchan(arg, ve, mode) 677 1.71.2.2 nathanw void *arg; 678 1.71.2.2 nathanw VARENT *ve; 679 1.71.2.2 nathanw int mode; 680 1.71.2.2 nathanw { 681 1.71.2.2 nathanw struct kinfo_lwp *l; 682 1.71.2.2 nathanw VAR *v; 683 1.71.2.2 nathanw char *buf; 684 1.71.2.2 nathanw 685 1.71.2.2 nathanw l = arg; 686 1.71.2.2 nathanw v = ve->var; 687 1.71.2.2 nathanw if (l->l_wchan) { 688 1.71.2.2 nathanw if (l->l_wmesg) { 689 1.71.2.2 nathanw strprintorsetwidth(v, l->l_wmesg, mode); 690 1.71.2.2 nathanw v->width = min(v->width, WMESGLEN); 691 1.71.2.2 nathanw } else { 692 1.71.2.2 nathanw (void)asprintf(&buf, "%-*llx", v->width, 693 1.71.2.2 nathanw (long long)l->l_wchan); 694 1.71.2.2 nathanw if (buf == NULL) 695 1.71.2.2 nathanw err(1, "%s", ""); 696 1.71.2.2 nathanw strprintorsetwidth(v, buf, mode); 697 1.71.2.2 nathanw v->width = min(v->width, WMESGLEN); 698 1.71.2.2 nathanw free(buf); 699 1.71.2.2 nathanw } 700 1.71.2.2 nathanw } else { 701 1.71.2.2 nathanw if (mode == PRINTMODE) 702 1.71.2.2 nathanw (void)printf("%-*s", v->width, "-"); 703 1.71.2.2 nathanw } 704 1.71.2.2 nathanw } 705 1.71.2.2 nathanw 706 1.71.2.2 nathanw #define pgtok(a) (((a)*getpagesize())/1024) 707 1.71.2.2 nathanw 708 1.71.2.2 nathanw void 709 1.71.2.2 nathanw vsize(arg, ve, mode) 710 1.71.2.2 nathanw void *arg; 711 1.71.2.2 nathanw VARENT *ve; 712 1.71.2.2 nathanw int mode; 713 1.71.2.2 nathanw { 714 1.71.2.2 nathanw struct kinfo_proc2 *k; 715 1.71.2.2 nathanw VAR *v; 716 1.71.2.2 nathanw 717 1.71.2.2 nathanw k = arg; 718 1.71.2.2 nathanw v = ve->var; 719 1.71.2.2 nathanw intprintorsetwidth(v, 720 1.71.2.2 nathanw pgtok(k->p_vm_dsize + k->p_vm_ssize + k->p_vm_tsize), mode); 721 1.71.2.2 nathanw } 722 1.71.2.2 nathanw 723 1.71.2.2 nathanw void 724 1.71.2.2 nathanw rssize(arg, ve, mode) 725 1.71.2.2 nathanw void *arg; 726 1.71.2.2 nathanw VARENT *ve; 727 1.71.2.2 nathanw int mode; 728 1.71.2.2 nathanw { 729 1.71.2.2 nathanw struct kinfo_proc2 *k; 730 1.71.2.2 nathanw VAR *v; 731 1.71.2.2 nathanw 732 1.71.2.2 nathanw k = arg; 733 1.71.2.2 nathanw v = ve->var; 734 1.71.2.2 nathanw /* XXX don't have info about shared */ 735 1.71.2.2 nathanw intprintorsetwidth(v, pgtok(k->p_vm_rssize), mode); 736 1.71.2.2 nathanw } 737 1.71.2.2 nathanw 738 1.71.2.2 nathanw void 739 1.71.2.2 nathanw p_rssize(arg, ve, mode) /* doesn't account for text */ 740 1.71.2.2 nathanw void *arg; 741 1.71.2.2 nathanw VARENT *ve; 742 1.71.2.2 nathanw int mode; 743 1.71.2.2 nathanw { 744 1.71.2.2 nathanw struct kinfo_proc2 *k; 745 1.71.2.2 nathanw VAR *v; 746 1.71.2.2 nathanw 747 1.71.2.2 nathanw k = arg; 748 1.71.2.2 nathanw v = ve->var; 749 1.71.2.2 nathanw intprintorsetwidth(v, pgtok(k->p_vm_rssize), mode); 750 1.71.2.2 nathanw } 751 1.71.2.2 nathanw 752 1.71.2.2 nathanw void 753 1.71.2.2 nathanw cputime(arg, ve, mode) 754 1.71.2.2 nathanw void *arg; 755 1.71.2.2 nathanw VARENT *ve; 756 1.71.2.2 nathanw int mode; 757 1.71.2.2 nathanw { 758 1.71.2.2 nathanw struct kinfo_proc2 *k; 759 1.71.2.2 nathanw VAR *v; 760 1.71.2.2 nathanw int32_t secs; 761 1.71.2.2 nathanw int32_t psecs; /* "parts" of a second. first micro, then centi */ 762 1.71.2.2 nathanw int fmtlen; 763 1.71.2.2 nathanw 764 1.71.2.2 nathanw k = arg; 765 1.71.2.2 nathanw v = ve->var; 766 1.71.2.2 nathanw if (P_ZOMBIE(k) || k->p_uvalid == 0) { 767 1.71.2.2 nathanw secs = 0; 768 1.71.2.2 nathanw psecs = 0; 769 1.71.2.2 nathanw } else { 770 1.71.2.2 nathanw /* 771 1.71.2.2 nathanw * This counts time spent handling interrupts. We could 772 1.71.2.2 nathanw * fix this, but it is not 100% trivial (and interrupt 773 1.71.2.2 nathanw * time fractions only work on the sparc anyway). XXX 774 1.71.2.2 nathanw */ 775 1.71.2.2 nathanw secs = k->p_rtime_sec; 776 1.71.2.2 nathanw psecs = k->p_rtime_usec; 777 1.71.2.2 nathanw if (sumrusage) { 778 1.71.2.2 nathanw secs += k->p_uctime_sec; 779 1.71.2.2 nathanw psecs += k->p_uctime_usec; 780 1.71.2.2 nathanw } 781 1.71.2.2 nathanw /* 782 1.71.2.2 nathanw * round and scale to 100's 783 1.71.2.2 nathanw */ 784 1.71.2.2 nathanw psecs = (psecs + 5000) / 10000; 785 1.71.2.2 nathanw secs += psecs / 100; 786 1.71.2.2 nathanw psecs = psecs % 100; 787 1.71.2.2 nathanw } 788 1.71.2.2 nathanw if (mode == WIDTHMODE) { 789 1.71.2.2 nathanw /* 790 1.71.2.2 nathanw * Ugg, this is the only field where a value of 0 longer 791 1.71.2.2 nathanw * than the column title, and log10(0) isn't good enough. 792 1.71.2.2 nathanw * Use SECSPERMIN, because secs is divided by that when 793 1.71.2.2 nathanw * passed to log10(). 794 1.71.2.2 nathanw */ 795 1.71.2.2 nathanw if (secs == 0 && v->longestp == 0) 796 1.71.2.2 nathanw secs = SECSPERMIN; 797 1.71.2.2 nathanw if (secs > v->longestp) { 798 1.71.2.2 nathanw /* "+6" for the "%02ld.%02ld" in the printf() below */ 799 1.71.2.2 nathanw fmtlen = (int)log10((double)secs / SECSPERMIN) + 1 + 6; 800 1.71.2.2 nathanw v->longestp = secs; 801 1.71.2.2 nathanw if (fmtlen > v->width) 802 1.71.2.2 nathanw v->width = fmtlen; 803 1.71.2.2 nathanw } 804 1.71.2.2 nathanw } else { 805 1.71.2.2 nathanw printf("%*ld:%02ld.%02ld", v->width - 6, (long)(secs / SECSPERMIN), 806 1.71.2.2 nathanw (long)(secs % SECSPERMIN), (long)psecs); 807 1.71.2.2 nathanw } 808 1.71.2.2 nathanw } 809 1.71.2.2 nathanw 810 1.71.2.2 nathanw double 811 1.71.2.2 nathanw getpcpu(k) 812 1.71.2.2 nathanw struct kinfo_proc2 *k; 813 1.71.2.2 nathanw { 814 1.71.2.2 nathanw static int failure; 815 1.71.2.2 nathanw 816 1.71.2.2 nathanw if (!nlistread) 817 1.71.2.2 nathanw failure = (kd) ? donlist() : 1; 818 1.71.2.2 nathanw if (failure) 819 1.71.2.2 nathanw return (0.0); 820 1.71.2.2 nathanw 821 1.71.2.2 nathanw #define fxtofl(fixpt) ((double)(fixpt) / fscale) 822 1.71.2.2 nathanw 823 1.71.2.2 nathanw /* XXX - I don't like this */ 824 1.71.2.2 nathanw if (k->p_swtime == 0 || (k->p_flag & L_INMEM) == 0 || 825 1.71.2.2 nathanw k->p_stat == SZOMB || k->p_stat == SDEAD) 826 1.71.2.2 nathanw return (0.0); 827 1.71.2.2 nathanw if (rawcpu) 828 1.71.2.2 nathanw return (100.0 * fxtofl(k->p_pctcpu)); 829 1.71.2.2 nathanw return (100.0 * fxtofl(k->p_pctcpu) / 830 1.71.2.2 nathanw (1.0 - exp(k->p_swtime * log(ccpu)))); 831 1.71.2.2 nathanw } 832 1.71.2.2 nathanw 833 1.71.2.2 nathanw void 834 1.71.2.2 nathanw pcpu(arg, ve, mode) 835 1.71.2.2 nathanw void *arg; 836 1.71.2.2 nathanw VARENT *ve; 837 1.71.2.2 nathanw int mode; 838 1.71.2.2 nathanw { 839 1.71.2.2 nathanw struct kinfo_proc2 *k; 840 1.71.2.2 nathanw VAR *v; 841 1.71.2.2 nathanw 842 1.71.2.2 nathanw k = arg; 843 1.71.2.2 nathanw v = ve->var; 844 1.71.2.2 nathanw doubleprintorsetwidth(v, getpcpu(k), 1, mode); 845 1.71.2.2 nathanw } 846 1.71.2.2 nathanw 847 1.71.2.2 nathanw double 848 1.71.2.2 nathanw getpmem(k) 849 1.71.2.2 nathanw struct kinfo_proc2 *k; 850 1.71.2.2 nathanw { 851 1.71.2.2 nathanw static int failure; 852 1.71.2.2 nathanw double fracmem; 853 1.71.2.2 nathanw int szptudot; 854 1.71.2.2 nathanw 855 1.71.2.2 nathanw if (!nlistread) 856 1.71.2.2 nathanw failure = (kd) ? donlist() : 1; 857 1.71.2.2 nathanw if (failure) 858 1.71.2.2 nathanw return (0.0); 859 1.71.2.2 nathanw 860 1.71.2.2 nathanw if ((k->p_flag & L_INMEM) == 0) 861 1.71.2.2 nathanw return (0.0); 862 1.71.2.2 nathanw /* XXX want pmap ptpages, segtab, etc. (per architecture) */ 863 1.71.2.2 nathanw szptudot = uspace/getpagesize(); 864 1.71.2.2 nathanw /* XXX don't have info about shared */ 865 1.71.2.2 nathanw fracmem = ((float)k->p_vm_rssize + szptudot)/mempages; 866 1.71.2.2 nathanw return (100.0 * fracmem); 867 1.71.2.2 nathanw } 868 1.71.2.2 nathanw 869 1.71.2.2 nathanw void 870 1.71.2.2 nathanw pmem(arg, ve, mode) 871 1.71.2.2 nathanw void *arg; 872 1.71.2.2 nathanw VARENT *ve; 873 1.71.2.2 nathanw int mode; 874 1.71.2.2 nathanw { 875 1.71.2.2 nathanw struct kinfo_proc2 *k; 876 1.71.2.2 nathanw VAR *v; 877 1.71.2.2 nathanw 878 1.71.2.2 nathanw k = arg; 879 1.71.2.2 nathanw v = ve->var; 880 1.71.2.2 nathanw doubleprintorsetwidth(v, getpmem(k), 1, mode); 881 1.71.2.2 nathanw } 882 1.71.2.2 nathanw 883 1.71.2.2 nathanw void 884 1.71.2.2 nathanw pagein(arg, ve, mode) 885 1.71.2.2 nathanw void *arg; 886 1.71.2.2 nathanw VARENT *ve; 887 1.71.2.2 nathanw int mode; 888 1.71.2.2 nathanw { 889 1.71.2.2 nathanw struct kinfo_proc2 *k; 890 1.71.2.2 nathanw VAR *v; 891 1.71.2.2 nathanw 892 1.71.2.2 nathanw k = arg; 893 1.71.2.2 nathanw v = ve->var; 894 1.71.2.2 nathanw intprintorsetwidth(v, k->p_uvalid ? k->p_uru_majflt : 0, mode); 895 1.71.2.2 nathanw } 896 1.71.2.2 nathanw 897 1.71.2.2 nathanw void 898 1.71.2.2 nathanw maxrss(arg, ve, mode) 899 1.71.2.2 nathanw void *arg; 900 1.71.2.2 nathanw VARENT *ve; 901 1.71.2.2 nathanw int mode; 902 1.71.2.2 nathanw { 903 1.71.2.2 nathanw VAR *v; 904 1.71.2.2 nathanw 905 1.71.2.2 nathanw v = ve->var; 906 1.71.2.2 nathanw /* No need to check width! */ 907 1.71.2.2 nathanw if (mode == PRINTMODE) 908 1.71.2.2 nathanw (void)printf("%*s", v->width, "-"); 909 1.71.2.2 nathanw } 910 1.71.2.2 nathanw 911 1.71.2.2 nathanw void 912 1.71.2.2 nathanw tsize(arg, ve, mode) 913 1.71.2.2 nathanw void *arg; 914 1.71.2.2 nathanw VARENT *ve; 915 1.71.2.2 nathanw int mode; 916 1.71.2.2 nathanw { 917 1.71.2.2 nathanw struct kinfo_proc2 *k; 918 1.71.2.2 nathanw VAR *v; 919 1.71.2.2 nathanw 920 1.71.2.2 nathanw k = arg; 921 1.71.2.2 nathanw v = ve->var; 922 1.71.2.2 nathanw intprintorsetwidth(v, pgtok(k->p_vm_tsize), mode); 923 1.71.2.2 nathanw } 924 1.71.2.2 nathanw 925 1.71.2.2 nathanw /* 926 1.71.2.2 nathanw * Generic output routines. Print fields from various prototype 927 1.71.2.2 nathanw * structures. 928 1.71.2.2 nathanw */ 929 1.71.2.2 nathanw static void 930 1.71.2.2 nathanw printval(bp, v, mode) 931 1.71.2.2 nathanw void *bp; 932 1.71.2.2 nathanw VAR *v; 933 1.71.2.2 nathanw int mode; 934 1.71.2.2 nathanw { 935 1.71.2.2 nathanw static char ofmt[32] = "%"; 936 1.71.2.2 nathanw int width, vok, fmtlen; 937 1.71.2.2 nathanw char *fcp, *cp, *obuf; 938 1.71.2.2 nathanw enum type type; 939 1.71.2.2 nathanw long long val; 940 1.71.2.2 nathanw unsigned long long uval; 941 1.71.2.2 nathanw 942 1.71.2.2 nathanw /* 943 1.71.2.2 nathanw * Note that the "INF127" check is nonsensical for types 944 1.71.2.2 nathanw * that are or can be signed. 945 1.71.2.2 nathanw */ 946 1.71.2.2 nathanw #define GET(type) (*(type *)bp) 947 1.71.2.2 nathanw #define CHK_INF127(n) (((n) > 127) && (v->flag & INF127) ? 127 : (n)) 948 1.71.2.2 nathanw 949 1.71.2.2 nathanw #define VSIGN 1 950 1.71.2.2 nathanw #define VUNSIGN 2 951 1.71.2.2 nathanw #define VPTR 3 952 1.71.2.2 nathanw 953 1.71.2.2 nathanw if (mode == WIDTHMODE) { 954 1.71.2.2 nathanw vok = 0; 955 1.71.2.2 nathanw switch (v->type) { 956 1.71.2.2 nathanw case CHAR: 957 1.71.2.2 nathanw val = GET(char); 958 1.71.2.2 nathanw vok = VSIGN; 959 1.71.2.2 nathanw break; 960 1.71.2.2 nathanw case UCHAR: 961 1.71.2.2 nathanw uval = CHK_INF127(GET(u_char)); 962 1.71.2.2 nathanw vok = VUNSIGN; 963 1.71.2.2 nathanw break; 964 1.71.2.2 nathanw case SHORT: 965 1.71.2.2 nathanw val = GET(short); 966 1.71.2.2 nathanw vok = VSIGN; 967 1.71.2.2 nathanw break; 968 1.71.2.2 nathanw case USHORT: 969 1.71.2.2 nathanw uval = CHK_INF127(GET(u_short)); 970 1.71.2.2 nathanw vok = VUNSIGN; 971 1.71.2.2 nathanw break; 972 1.71.2.2 nathanw case INT32: 973 1.71.2.2 nathanw val = GET(int32_t); 974 1.71.2.2 nathanw vok = VSIGN; 975 1.71.2.2 nathanw break; 976 1.71.2.2 nathanw case INT: 977 1.71.2.2 nathanw val = GET(int); 978 1.71.2.2 nathanw vok = VSIGN; 979 1.71.2.2 nathanw break; 980 1.71.2.2 nathanw case UINT: 981 1.71.2.2 nathanw case UINT32: 982 1.71.2.2 nathanw uval = CHK_INF127(GET(u_int)); 983 1.71.2.2 nathanw vok = VUNSIGN; 984 1.71.2.2 nathanw break; 985 1.71.2.2 nathanw case LONG: 986 1.71.2.2 nathanw val = GET(long); 987 1.71.2.2 nathanw vok = VSIGN; 988 1.71.2.2 nathanw break; 989 1.71.2.2 nathanw case ULONG: 990 1.71.2.2 nathanw uval = CHK_INF127(GET(u_long)); 991 1.71.2.2 nathanw vok = VUNSIGN; 992 1.71.2.2 nathanw break; 993 1.71.2.2 nathanw case KPTR: 994 1.71.2.2 nathanw uval = (unsigned long long)GET(u_int64_t); 995 1.71.2.2 nathanw vok = VPTR; 996 1.71.2.2 nathanw break; 997 1.71.2.2 nathanw case KPTR24: 998 1.71.2.2 nathanw uval = (unsigned long long)GET(u_int64_t); 999 1.71.2.2 nathanw uval &= 0xffffff; 1000 1.71.2.2 nathanw vok = VPTR; 1001 1.71.2.2 nathanw break; 1002 1.71.2.2 nathanw default: 1003 1.71.2.2 nathanw /* nothing... */; 1004 1.71.2.2 nathanw } 1005 1.71.2.2 nathanw switch (vok) { 1006 1.71.2.2 nathanw case VSIGN: 1007 1.71.2.2 nathanw if (val < 0 && val < v->longestn) { 1008 1.71.2.2 nathanw fmtlen = (int)log10((double)-val) + 2; 1009 1.71.2.2 nathanw v->longestn = val; 1010 1.71.2.2 nathanw if (fmtlen > v->width) 1011 1.71.2.2 nathanw v->width = fmtlen; 1012 1.71.2.2 nathanw } else if (val > 0 && val > v->longestp) { 1013 1.71.2.2 nathanw fmtlen = (int)log10((double)val) + 1; 1014 1.71.2.2 nathanw v->longestp = val; 1015 1.71.2.2 nathanw if (fmtlen > v->width) 1016 1.71.2.2 nathanw v->width = fmtlen; 1017 1.71.2.2 nathanw } 1018 1.71.2.2 nathanw return; 1019 1.71.2.2 nathanw case VUNSIGN: 1020 1.71.2.2 nathanw if (uval > v->longestu) { 1021 1.71.2.2 nathanw fmtlen = (int)log10((double)uval) + 1; 1022 1.71.2.2 nathanw v->longestu = uval; 1023 1.71.2.2 nathanw v->width = fmtlen; 1024 1.71.2.2 nathanw } 1025 1.71.2.2 nathanw return; 1026 1.71.2.2 nathanw case VPTR: 1027 1.71.2.2 nathanw fmtlen = 0; 1028 1.71.2.2 nathanw while (uval > 0) { 1029 1.71.2.2 nathanw uval >>= 4; 1030 1.71.2.2 nathanw fmtlen++; 1031 1.71.2.2 nathanw } 1032 1.71.2.2 nathanw if (fmtlen > v->width) 1033 1.71.2.2 nathanw v->width = fmtlen; 1034 1.71.2.2 nathanw return; 1035 1.71.2.2 nathanw } 1036 1.71.2.2 nathanw } 1037 1.71.2.2 nathanw 1038 1.71.2.2 nathanw width = v->width; 1039 1.71.2.2 nathanw cp = ofmt + 1; 1040 1.71.2.2 nathanw fcp = v->fmt; 1041 1.71.2.2 nathanw if (v->flag & LJUST) 1042 1.71.2.2 nathanw *cp++ = '-'; 1043 1.71.2.2 nathanw *cp++ = '*'; 1044 1.71.2.2 nathanw while ((*cp++ = *fcp++) != '\0') 1045 1.71.2.2 nathanw continue; 1046 1.71.2.2 nathanw 1047 1.71.2.2 nathanw switch (v->type) { 1048 1.71.2.2 nathanw case INT32: 1049 1.71.2.2 nathanw if (sizeof(int32_t) == sizeof(int)) 1050 1.71.2.2 nathanw type = INT; 1051 1.71.2.2 nathanw else if (sizeof(int32_t) == sizeof(long)) 1052 1.71.2.2 nathanw type = LONG; 1053 1.71.2.2 nathanw else 1054 1.71.2.2 nathanw errx(1, "unknown conversion for type %d", v->type); 1055 1.71.2.2 nathanw break; 1056 1.71.2.2 nathanw case UINT32: 1057 1.71.2.2 nathanw if (sizeof(u_int32_t) == sizeof(u_int)) 1058 1.71.2.2 nathanw type = UINT; 1059 1.71.2.2 nathanw else if (sizeof(u_int32_t) == sizeof(u_long)) 1060 1.71.2.2 nathanw type = ULONG; 1061 1.71.2.2 nathanw else 1062 1.71.2.2 nathanw errx(1, "unknown conversion for type %d", v->type); 1063 1.71.2.2 nathanw break; 1064 1.71.2.2 nathanw default: 1065 1.71.2.2 nathanw type = v->type; 1066 1.71.2.2 nathanw break; 1067 1.71.2.2 nathanw } 1068 1.71.2.2 nathanw 1069 1.71.2.2 nathanw switch (type) { 1070 1.71.2.2 nathanw case CHAR: 1071 1.71.2.2 nathanw (void)printf(ofmt, width, GET(char)); 1072 1.71.2.2 nathanw return; 1073 1.71.2.2 nathanw case UCHAR: 1074 1.71.2.2 nathanw (void)printf(ofmt, width, CHK_INF127(GET(u_char))); 1075 1.71.2.2 nathanw return; 1076 1.71.2.2 nathanw case SHORT: 1077 1.71.2.2 nathanw (void)printf(ofmt, width, GET(short)); 1078 1.71.2.2 nathanw return; 1079 1.71.2.2 nathanw case USHORT: 1080 1.71.2.2 nathanw (void)printf(ofmt, width, CHK_INF127(GET(u_short))); 1081 1.71.2.2 nathanw return; 1082 1.71.2.2 nathanw case INT: 1083 1.71.2.2 nathanw (void)printf(ofmt, width, GET(int)); 1084 1.71.2.2 nathanw return; 1085 1.71.2.2 nathanw case UINT: 1086 1.71.2.2 nathanw (void)printf(ofmt, width, CHK_INF127(GET(u_int))); 1087 1.71.2.2 nathanw return; 1088 1.71.2.2 nathanw case LONG: 1089 1.71.2.2 nathanw (void)printf(ofmt, width, GET(long)); 1090 1.71.2.2 nathanw return; 1091 1.71.2.2 nathanw case ULONG: 1092 1.71.2.2 nathanw (void)printf(ofmt, width, CHK_INF127(GET(u_long))); 1093 1.71.2.2 nathanw return; 1094 1.71.2.2 nathanw case KPTR: 1095 1.71.2.2 nathanw (void)printf(ofmt, width, (unsigned long long)GET(u_int64_t)); 1096 1.71.2.2 nathanw return; 1097 1.71.2.2 nathanw case KPTR24: 1098 1.71.2.2 nathanw (void)printf(ofmt, width, 1099 1.71.2.2 nathanw (unsigned long long)GET(u_int64_t) & 0xffffff); 1100 1.71.2.2 nathanw return; 1101 1.71.2.2 nathanw case SIGLIST: 1102 1.71.2.2 nathanw { 1103 1.71.2.2 nathanw sigset_t *s = (sigset_t *)(void *)bp; 1104 1.71.2.2 nathanw size_t i; 1105 1.71.2.2 nathanw #define SIGSETSIZE (sizeof(s->__bits) / sizeof(s->__bits[0])) 1106 1.71.2.2 nathanw char buf[SIGSETSIZE * 8 + 1]; 1107 1.71.2.2 nathanw 1108 1.71.2.2 nathanw for (i = 0; i < SIGSETSIZE; i++) 1109 1.71.2.2 nathanw (void)snprintf(&buf[i * 8], 9, "%.8x", 1110 1.71.2.2 nathanw s->__bits[(SIGSETSIZE - 1) - i]); 1111 1.71.2.2 nathanw 1112 1.71.2.2 nathanw /* Skip leading zeroes */ 1113 1.71.2.2 nathanw for (i = 0; buf[i]; i++) 1114 1.71.2.2 nathanw if (buf[i] != '0') 1115 1.71.2.2 nathanw break; 1116 1.71.2.2 nathanw 1117 1.71.2.2 nathanw if (buf[i] == '\0') 1118 1.71.2.2 nathanw i--; 1119 1.71.2.2 nathanw (void)asprintf(&obuf, ofmt, width, &buf[i]); 1120 1.71.2.2 nathanw } 1121 1.71.2.2 nathanw break; 1122 1.71.2.2 nathanw default: 1123 1.71.2.2 nathanw errx(1, "unknown type %d", v->type); 1124 1.71.2.2 nathanw } 1125 1.71.2.2 nathanw if (obuf == NULL) 1126 1.71.2.2 nathanw err(1, "%s", ""); 1127 1.71.2.2 nathanw if (mode == WIDTHMODE) { 1128 1.71.2.2 nathanw /* Skip leading spaces. */ 1129 1.71.2.2 nathanw cp = strrchr(obuf, ' '); 1130 1.71.2.2 nathanw if (cp == NULL) 1131 1.71.2.2 nathanw cp = obuf; 1132 1.71.2.2 nathanw else 1133 1.71.2.2 nathanw cp++; /* skip last space */ 1134 1.71.2.2 nathanw } 1135 1.71.2.2 nathanw else 1136 1.71.2.2 nathanw cp = obuf; 1137 1.71.2.2 nathanw strprintorsetwidth(v, cp, mode); 1138 1.71.2.2 nathanw free(obuf); 1139 1.71.2.2 nathanw #undef GET 1140 1.71.2.2 nathanw #undef CHK_INF127 1141 1.71.2.2 nathanw } 1142 1.71.2.2 nathanw 1143 1.71.2.2 nathanw void 1144 1.71.2.2 nathanw pvar(arg, ve, mode) 1145 1.71.2.2 nathanw void *arg; 1146 1.71.2.2 nathanw VARENT *ve; 1147 1.71.2.2 nathanw int mode; 1148 1.71.2.2 nathanw { 1149 1.71.2.2 nathanw VAR *v; 1150 1.71.2.2 nathanw 1151 1.71.2.2 nathanw v = ve->var; 1152 1.71.2.2 nathanw printval((char *)arg + v->off, v, mode); 1153 1.71.2.2 nathanw } 1154
Indexes created Thu Oct 02 10:09:58 GMT 2025