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