bin/ps/print.c

   1 /*-
   2  * Copyright (c) 1990, 1993, 1994
   3  *      The Regents of the University of California.  All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  * 3. All advertising materials mentioning features or use of this software
  14  *    must display the following acknowledgement:
  15  *      This product includes software developed by the University of
  16  *      California, Berkeley and its contributors.
  17  * 4. Neither the name of the University nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  */
  33
  34 #ifndef lint
  35 #if 0
  36 static char sccsid[] = "@(#)print.c     8.6 (Berkeley) 4/16/94";
  37 #endif
  38 static const char rcsid[] =
  39   "$FreeBSD: src/bin/ps/print.c,v 1.36.2.4 2002/11/30 13:00:14 tjr Exp $";
  40 #endif /* not lint */
  41
  42 #include <sys/param.h>
  43 #include <sys/time.h>
  44 #include <sys/resource.h>
  45 #include <sys/proc.h>
  46 #include <sys/stat.h>
  47
  48 #include <sys/ucred.h>
  49 #include <sys/user.h>
  50 #include <sys/sysctl.h>
  51 #include <vm/vm.h>
  52
  53 #include <err.h>
  54 #include <langinfo.h>
  55 #include <locale.h>
  56 #include <math.h>
  57 #include <nlist.h>
  58 #include <stddef.h>
  59 #include <stdio.h>
  60 #include <stdlib.h>
  61 #include <unistd.h>
  62 #include <string.h>
  63 #include <vis.h>
  64
  65 #include "ps.h"
  66
  67 void
  68 printheader()
  69 {
  70         VAR *v;
  71         struct varent *vent;
  72         int allempty;
  73
  74         allempty = 1;
  75         for (vent = vhead; vent; vent = vent->next)
  76                 if (*vent->var->header != '\0') {
  77                         allempty = 0;
  78                         break;
  79                 }
  80         if (allempty)
  81                 return;
  82         for (vent = vhead; vent; vent = vent->next) {
  83                 v = vent->var;
  84                 if (v->flag & LJUST) {
  85                         if (vent->next == NULL) /* last one */
  86                                 (void)printf("%s", v->header);
  87                         else
  88                                 (void)printf("%-*s", v->width, v->header);
  89                 } else
  90                         (void)printf("%*s", v->width, v->header);
  91                 if (vent->next != NULL)
  92                         (void)putchar(' ');
  93         }
  94         (void)putchar('\n');
  95 }
  96
  97 void
  98 command(k, ve)
  99         KINFO *k;
 100         VARENT *ve;
 101 {
 102         VAR *v;
 103         int left;
 104         char *cp, *vis_env, *vis_args;
 105
 106         v = ve->var;
 107
 108         if (cflag) {
 109                 if (ve->next == NULL)   /* last field, don't pad */
 110                         (void)printf("%s", KI_PROC(k)->p_comm);
 111                 else
 112                         (void)printf("%-*s", v->width, KI_PROC(k)->p_comm);
 113                 return;
 114         }
 115
 116         if ((vis_args = malloc(strlen(k->ki_args) * 4 + 1)) == NULL)
 117                 err(1, NULL);
 118         strvis(vis_args, k->ki_args, VIS_TAB | VIS_NL | VIS_NOSLASH);
 119         if (k->ki_env) {
 120                 if ((vis_env = malloc(strlen(k->ki_env) * 4 + 1)) == NULL)
 121                         err(1, NULL);
 122                 strvis(vis_env, k->ki_env, VIS_TAB | VIS_NL | VIS_NOSLASH);
 123         } else
 124                 vis_env = NULL;
 125
 126         if (ve->next == NULL) {
 127                 /* last field */
 128                 if (termwidth == UNLIMITED) {
 129                         if (vis_env)
 130                                 (void)printf("%s ", vis_env);
 131                         (void)printf("%s", vis_args);
 132                 } else {
 133                         left = termwidth - (totwidth - v->width);
 134                         if (left < 1) /* already wrapped, just use std width */
 135                                 left = v->width;
 136                         if ((cp = vis_env) != NULL) {
 137                                 while (--left >= 0 && *cp)
 138                                         (void)putchar(*cp++);
 139                                 if (--left >= 0)
 140                                         putchar(' ');
 141                         }
 142                         for (cp = vis_args; --left >= 0 && *cp != '\0';)
 143                                 (void)putchar(*cp++);
 144                 }
 145         } else
 146                 /* XXX env? */
 147                 (void)printf("%-*.*s", v->width, v->width, vis_args);
 148         free(vis_args);
 149         if (vis_env != NULL)
 150                 free(vis_env);
 151 }
 152
 153 void
 154 ucomm(k, ve)
 155         KINFO *k;
 156         VARENT *ve;
 157 {
 158         VAR *v;
 159
 160         v = ve->var;
 161         (void)printf("%-*s", v->width, KI_PROC(k)->p_comm);
 162 }
 163
 164 void
 165 logname(k, ve)
 166         KINFO *k;
 167         VARENT *ve;
 168 {
 169         VAR *v;
 170         char *s;
 171
 172         v = ve->var;
 173         (void)printf("%-*s", v->width, (s = KI_EPROC(k)->e_login, *s) ? s : "-");
 174 }
 175
 176 void
 177 state(k, ve)
 178         KINFO *k;
 179         VARENT *ve;
 180 {
 181         struct proc *p;
 182         int flag;
 183         char *cp;
 184         VAR *v;
 185         char buf[16];
 186
 187         v = ve->var;
 188         p = KI_PROC(k);
 189         flag = p->p_flag;
 190         cp = buf;
 191
 192         switch (p->p_stat) {
 193
 194         case SSTOP:
 195                 *cp = 'T';
 196                 break;
 197
 198         case SSLEEP:
 199                 if (flag & P_SINTR)     /* interruptable (long) */
 200                         *cp = p->p_slptime >= MAXSLP ? 'I' : 'S';
 201                 else
 202                         *cp = 'D';
 203                 break;
 204
 205         case SRUN:
 206         case SIDL:
 207                 *cp = 'R';
 208                 break;
 209
 210         case SZOMB:
 211                 *cp = 'Z';
 212                 break;
 213
 214         default:
 215                 *cp = '?';
 216         }
 217         cp++;
 218         if (!(flag & P_INMEM))
 219                 *cp++ = 'W';
 220         if (p->p_nice < NZERO)
 221                 *cp++ = '<';
 222         else if (p->p_nice > NZERO)
 223                 *cp++ = 'N';
 224         if (flag & P_TRACED)
 225                 *cp++ = 'X';
 226         if (flag & P_WEXIT && p->p_stat != SZOMB)
 227                 *cp++ = 'E';
 228         if (flag & P_PPWAIT)
 229                 *cp++ = 'V';
 230         if ((flag & P_SYSTEM) || p->p_lock > 0)
 231                 *cp++ = 'L';
 232         if (KI_EPROC(k)->e_flag & EPROC_SLEADER)
 233                 *cp++ = 's';
 234         if ((flag & P_CONTROLT) && KI_EPROC(k)->e_pgid == KI_EPROC(k)->e_tpgid)
 235                 *cp++ = '+';
 236         if (flag & P_JAILED)
 237                 *cp++ = 'J';
 238         *cp = '\0';
 239         (void)printf("%-*s", v->width, buf);
 240 }
 241
 242 void
 243 pri(k, ve)
 244         KINFO *k;
 245         VARENT *ve;
 246 {
 247         VAR *v;
 248
 249         v = ve->var;
 250         (void)printf("%*d", v->width, KI_PROC(k)->p_priority - PZERO);
 251 }
 252
 253 void
 254 uname(k, ve)
 255         KINFO *k;
 256         VARENT *ve;
 257 {
 258         VAR *v;
 259
 260         v = ve->var;
 261         (void)printf("%-*s",
 262             (int)v->width, user_from_uid(KI_EPROC(k)->e_ucred.cr_uid, 0));
 263 }
 264
 265 int
 266 s_uname(k)
 267         KINFO *k;
 268 {
 269             return (strlen(user_from_uid(KI_EPROC(k)->e_ucred.cr_uid, 0)));
 270 }
 271
 272 void
 273 runame(k, ve)
 274         KINFO *k;
 275         VARENT *ve;
 276 {
 277         VAR *v;
 278
 279         v = ve->var;
 280         (void)printf("%-*s",
 281             (int)v->width, user_from_uid(KI_EPROC(k)->e_pcred.p_ruid, 0));
 282 }
 283
 284 int
 285 s_runame(k)
 286         KINFO *k;
 287 {
 288             return (strlen(user_from_uid(KI_EPROC(k)->e_pcred.p_ruid, 0)));
 289 }
 290
 291 void
 292 tdev(k, ve)
 293         KINFO *k;
 294         VARENT *ve;
 295 {
 296         VAR *v;
 297         dev_t dev;
 298         char buff[16];
 299
 300         v = ve->var;
 301         dev = KI_EPROC(k)->e_tdev;
 302         if (dev == NODEV)
 303                 (void)printf("%*s", v->width, "??");
 304         else {
 305                 (void)snprintf(buff, sizeof(buff),
 306                     "%d/%d", major(dev), minor(dev));
 307                 (void)printf("%*s", v->width, buff);
 308         }
 309 }
 310
 311 void
 312 tname(k, ve)
 313         KINFO *k;
 314         VARENT *ve;
 315 {
 316         VAR *v;
 317         dev_t dev;
 318         char *ttname;
 319
 320         v = ve->var;
 321         dev = KI_EPROC(k)->e_tdev;
 322         if (dev == NODEV || (ttname = devname(dev, S_IFCHR)) == NULL)
 323                 (void)printf("%*s ", v->width-1, "??");
 324         else {
 325                 if (strncmp(ttname, "tty", 3) == 0 ||
 326                     strncmp(ttname, "cua", 3) == 0)
 327                         ttname += 3;
 328                 (void)printf("%*.*s%c", v->width-1, v->width-1, ttname,
 329                         KI_EPROC(k)->e_flag & EPROC_CTTY ? ' ' : '-');
 330         }
 331 }
 332
 333 void
 334 longtname(k, ve)
 335         KINFO *k;
 336         VARENT *ve;
 337 {
 338         VAR *v;
 339         dev_t dev;
 340         char *ttname;
 341
 342         v = ve->var;
 343         dev = KI_EPROC(k)->e_tdev;
 344         if (dev == NODEV || (ttname = devname(dev, S_IFCHR)) == NULL)
 345                 (void)printf("%-*s", v->width, "??");
 346         else
 347                 (void)printf("%-*s", v->width, ttname);
 348 }
 349
 350 void
 351 started(k, ve)
 352         KINFO *k;
 353         VARENT *ve;
 354 {
 355         VAR *v;
 356         static time_t now;
 357         time_t then;
 358         struct tm *tp;
 359         char buf[100];
 360         static int  use_ampm = -1;
 361
 362         v = ve->var;
 363         if (!k->ki_u.u_valid) {
 364                 (void)printf("%-*s", v->width, "-");
 365                 return;
 366         }
 367
 368         if (use_ampm < 0)
 369                 use_ampm = (*nl_langinfo(T_FMT_AMPM) != '\0');
 370
 371         then = k->ki_u.u_start.tv_sec;
 372         tp = localtime(&then);
 373         if (!now)
 374                 (void)time(&now);
 375         if (now - k->ki_u.u_start.tv_sec < 24 * 3600) {
 376                 (void)strftime(buf, sizeof(buf) - 1,
 377                 use_ampm ? "%l:%M%p" : "%k:%M  ", tp);
 378         } else if (now - k->ki_u.u_start.tv_sec < 7 * 86400) {
 379                 (void)strftime(buf, sizeof(buf) - 1,
 380                 use_ampm ? "%a%I%p" : "%a%H  ", tp);
 381         } else
 382                 (void)strftime(buf, sizeof(buf) - 1, "%e%b%y", tp);
 383         (void)printf("%-*s", v->width, buf);
 384 }
 385
 386 void
 387 lstarted(k, ve)
 388         KINFO *k;
 389         VARENT *ve;
 390 {
 391         VAR *v;
 392         time_t then;
 393         char buf[100];
 394
 395         v = ve->var;
 396         if (!k->ki_u.u_valid) {
 397                 (void)printf("%-*s", v->width, "-");
 398                 return;
 399         }
 400         then = k->ki_u.u_start.tv_sec;
 401         (void)strftime(buf, sizeof(buf) -1, "%c", localtime(&then));
 402         (void)printf("%-*s", v->width, buf);
 403 }
 404
 405 void
 406 wchan(k, ve)
 407         KINFO *k;
 408         VARENT *ve;
 409 {
 410         VAR *v;
 411
 412         v = ve->var;
 413         if (KI_PROC(k)->p_wchan) {
 414                 if (KI_PROC(k)->p_wmesg)
 415                         (void)printf("%-*.*s", v->width, v->width,
 416                                       KI_EPROC(k)->e_wmesg);
 417                 else
 418                         (void)printf("%-*lx", v->width,
 419                             (long)KI_PROC(k)->p_wchan);
 420         } else
 421                 (void)printf("%-*s", v->width, "-");
 422 }
 423
 424 #ifndef pgtok
 425 #define pgtok(a)        (((a)*getpagesize())/1024)
 426 #endif
 427
 428 void
 429 vsize(k, ve)
 430         KINFO *k;
 431         VARENT *ve;
 432 {
 433         VAR *v;
 434
 435         v = ve->var;
 436         (void)printf("%*d", v->width,
 437             (KI_EPROC(k)->e_vm.vm_map.size/1024));
 438 }
 439
 440 void
 441 rssize(k, ve)
 442         KINFO *k;
 443         VARENT *ve;
 444 {
 445         VAR *v;
 446
 447         v = ve->var;
 448         /* XXX don't have info about shared */
 449         (void)printf("%*lu", v->width,
 450             (u_long)pgtok(KI_EPROC(k)->e_vm.vm_rssize));
 451 }
 452
 453 void
 454 p_rssize(k, ve)         /* doesn't account for text */
 455         KINFO *k;
 456         VARENT *ve;
 457 {
 458         VAR *v;
 459
 460         v = ve->var;
 461         (void)printf("%*ld", v->width, (long)pgtok(KI_EPROC(k)->e_vm.vm_rssize));
 462 }
 463
 464 void
 465 cputime(k, ve)
 466         KINFO *k;
 467         VARENT *ve;
 468 {
 469         VAR *v;
 470         long secs;
 471         long psecs;     /* "parts" of a second. first micro, then centi */
 472         char obuff[128];
 473         static char decimal_point = 0;
 474
 475         if (!decimal_point)
 476                 decimal_point = localeconv()->decimal_point[0];
 477         v = ve->var;
 478         if (KI_PROC(k)->p_stat == SZOMB || !k->ki_u.u_valid) {
 479                 secs = 0;
 480                 psecs = 0;
 481         } else {
 482                 /*
 483                  * This counts time spent handling interrupts.  We could
 484                  * fix this, but it is not 100% trivial (and interrupt
 485                  * time fractions only work on the sparc anyway).       XXX
 486                  */
 487                 secs = KI_PROC(k)->p_runtime / 1000000;
 488                 psecs = KI_PROC(k)->p_runtime % 1000000;
 489                 if (sumrusage) {
 490                         secs += k->ki_u.u_cru.ru_utime.tv_sec +
 491                                 k->ki_u.u_cru.ru_stime.tv_sec;
 492                         psecs += k->ki_u.u_cru.ru_utime.tv_usec +
 493                                 k->ki_u.u_cru.ru_stime.tv_usec;
 494                 }
 495                 /*
 496                  * round and scale to 100's
 497                  */
 498                 psecs = (psecs + 5000) / 10000;
 499                 secs += psecs / 100;
 500                 psecs = psecs % 100;
 501         }
 502         (void)snprintf(obuff, sizeof(obuff),
 503             "%3ld:%02ld%c%02ld", secs/60, secs%60, decimal_point, psecs);
 504         (void)printf("%*s", v->width, obuff);
 505 }
 506
 507 double
 508 getpcpu(k)
 509         KINFO *k;
 510 {
 511         struct proc *p;
 512         static int failure;
 513
 514         if (!nlistread)
 515                 failure = donlist();
 516         if (failure)
 517                 return (0.0);
 518
 519         p = KI_PROC(k);
 520 #define fxtofl(fixpt)   ((double)(fixpt) / fscale)
 521
 522         /* XXX - I don't like this */
 523         if (p->p_swtime == 0 || (p->p_flag & P_INMEM) == 0)
 524                 return (0.0);
 525         if (rawcpu)
 526                 return (100.0 * fxtofl(p->p_pctcpu));
 527         return (100.0 * fxtofl(p->p_pctcpu) /
 528                 (1.0 - exp(p->p_swtime * log(fxtofl(ccpu)))));
 529 }
 530
 531 void
 532 pcpu(k, ve)
 533         KINFO *k;
 534         VARENT *ve;
 535 {
 536         VAR *v;
 537
 538         v = ve->var;
 539         (void)printf("%*.1f", v->width, getpcpu(k));
 540 }
 541
 542 double
 543 getpmem(k)
 544         KINFO *k;
 545 {
 546         static int failure;
 547         struct proc *p;
 548         struct eproc *e;
 549         double fracmem;
 550         int szptudot;
 551
 552         if (!nlistread)
 553                 failure = donlist();
 554         if (failure)
 555                 return (0.0);
 556
 557         p = KI_PROC(k);
 558         e = KI_EPROC(k);
 559         if ((p->p_flag & P_INMEM) == 0)
 560                 return (0.0);
 561         /* XXX want pmap ptpages, segtab, etc. (per architecture) */
 562         szptudot = UPAGES;
 563         /* XXX don't have info about shared */
 564         fracmem = ((float)e->e_vm.vm_rssize + szptudot)/mempages;
 565         return (100.0 * fracmem);
 566 }
 567
 568 void
 569 pmem(k, ve)
 570         KINFO *k;
 571         VARENT *ve;
 572 {
 573         VAR *v;
 574
 575         v = ve->var;
 576         (void)printf("%*.1f", v->width, getpmem(k));
 577 }
 578
 579 void
 580 pagein(k, ve)
 581         KINFO *k;
 582         VARENT *ve;
 583 {
 584         VAR *v;
 585
 586         v = ve->var;
 587         (void)printf("%*ld", v->width,
 588             k->ki_u.u_valid ? k->ki_u.u_ru.ru_majflt : 0);
 589 }
 590
 591 void
 592 maxrss(k, ve)
 593         KINFO *k;
 594         VARENT *ve;
 595 {
 596         VAR *v;
 597
 598         v = ve->var;
 599         /* XXX not yet */
 600         (void)printf("%*s", v->width, "-");
 601 }
 602
 603 void
 604 tsize(k, ve)
 605         KINFO *k;
 606         VARENT *ve;
 607 {
 608         VAR *v;
 609
 610         v = ve->var;
 611         (void)printf("%*ld", v->width, (long)pgtok(KI_EPROC(k)->e_vm.vm_tsize));
 612 }
 613
 614 void
 615 rtprior(k, ve)
 616         KINFO *k;
 617         VARENT *ve;
 618 {
 619         VAR *v;
 620         struct rtprio *prtp;
 621         char str[8];
 622         unsigned prio, type;
 623
 624         v = ve->var;
 625         prtp = (struct rtprio *) ((char *)KI_PROC(k) + v->off);
 626         prio = prtp->prio;
 627         type = prtp->type;
 628         switch (type) {
 629         case RTP_PRIO_REALTIME:
 630                 snprintf(str, sizeof(str), "real:%u", prio);
 631                 break;
 632         case RTP_PRIO_NORMAL:
 633                 strncpy(str, "normal", sizeof(str));
 634                 break;
 635         case RTP_PRIO_IDLE:
 636                 snprintf(str, sizeof(str), "idle:%u", prio);
 637                 break;
 638         default:
 639                 snprintf(str, sizeof(str), "%u:%u", type, prio);
 640                 break;
 641         }
 642         str[sizeof(str) - 1] = '\0';
 643         (void)printf("%*s", v->width, str);
 644 }
 645
 646 /*
 647  * Generic output routines.  Print fields from various prototype
 648  * structures.
 649  */
 650 static void
 651 printval(bp, v)
 652         char *bp;
 653         VAR *v;
 654 {
 655         static char ofmt[32] = "%";
 656         char *fcp, *cp;
 657
 658         cp = ofmt + 1;
 659         fcp = v->fmt;
 660         if (v->flag & LJUST)
 661                 *cp++ = '-';
 662         *cp++ = '*';
 663         while ((*cp++ = *fcp++));
 664
 665         switch (v->type) {
 666         case CHAR:
 667                 (void)printf(ofmt, v->width, *(char *)bp);
 668                 break;
 669         case UCHAR:
 670                 (void)printf(ofmt, v->width, *(u_char *)bp);
 671                 break;
 672         case SHORT:
 673                 (void)printf(ofmt, v->width, *(short *)bp);
 674                 break;
 675         case USHORT:
 676                 (void)printf(ofmt, v->width, *(u_short *)bp);
 677                 break;
 678         case INT:
 679                 (void)printf(ofmt, v->width, *(int *)bp);
 680                 break;
 681         case UINT:
 682                 (void)printf(ofmt, v->width, *(u_int *)bp);
 683                 break;
 684         case LONG:
 685                 (void)printf(ofmt, v->width, *(long *)bp);
 686                 break;
 687         case ULONG:
 688                 (void)printf(ofmt, v->width, *(u_long *)bp);
 689                 break;
 690         case KPTR:
 691                 (void)printf(ofmt, v->width, *(u_long *)bp);
 692                 break;
 693         default:
 694                 errx(1, "unknown type %d", v->type);
 695         }
 696 }
 697
 698 void
 699 pvar(k, ve)
 700         KINFO *k;
 701         VARENT *ve;
 702 {
 703         VAR *v;
 704
 705         v = ve->var;
 706         printval((char *)((char *)KI_PROC(k) + v->off), v);
 707 }
 708
 709 void
 710 evar(k, ve)
 711         KINFO *k;
 712         VARENT *ve;
 713 {
 714         VAR *v;
 715
 716         v = ve->var;
 717         printval((char *)((char *)KI_EPROC(k) + v->off), v);
 718 }
 719
 720 void
 721 uvar(k, ve)
 722         KINFO *k;
 723         VARENT *ve;
 724 {
 725         VAR *v;
 726
 727         v = ve->var;
 728         if (k->ki_u.u_valid)
 729                 printval((char *)((char *)&k->ki_u + v->off), v);
 730         else
 731                 (void)printf("%*s", v->width, "-");
 732 }
 733
 734 void
 735 rvar(k, ve)
 736         KINFO *k;
 737         VARENT *ve;
 738 {
 739         VAR *v;
 740
 741         v = ve->var;
 742         if (k->ki_u.u_valid)
 743                 printval((char *)((char *)(&k->ki_u.u_ru) + v->off), v);
 744         else
 745                 (void)printf("%*s", v->width, "-");
 746 }