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