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  * @(#)print.c  8.6 (Berkeley) 4/16/94
  34  * $FreeBSD: src/bin/ps/print.c,v 1.36.2.4 2002/11/30 13:00:14 tjr Exp $
  35  * $DragonFly: src/bin/ps/print.c,v 1.34 2008/11/10 14:56:33 swildner Exp $
  36  */
  37
  38 #include <sys/param.h>
  39 #include <sys/time.h>
  40 #include <sys/resource.h>
  41 #include <sys/stat.h>
  42
  43 #include <sys/ucred.h>
  44 #include <sys/user.h>
  45 #include <sys/sysctl.h>
  46 #include <sys/rtprio.h>
  47 #include <vm/vm.h>
  48
  49 #include <err.h>
  50 #include <langinfo.h>
  51 #include <locale.h>
  52 #include <math.h>
  53 #include <nlist.h>
  54 #include <pwd.h>
  55 #include <stddef.h>
  56 #include <stdio.h>
  57 #include <stdlib.h>
  58 #include <unistd.h>
  59 #include <string.h>
  60 #include <vis.h>
  61
  62 #include "ps.h"
  63
  64 static const char *make_printable(const char *str);
  65
  66 void
  67 printheader(void)
  68 {
  69         const VAR *v;
  70         struct varent *vent;
  71         int allempty;
  72
  73         allempty = 1;
  74         STAILQ_FOREACH(vent, &var_head, link) {
  75                 if (*vent->header != '\0') {
  76                         allempty = 0;
  77                         break;
  78                 }
  79         }
  80         if (allempty)
  81                 return;
  82         STAILQ_FOREACH(vent, &var_head, link) {
  83                 v = vent->var;
  84                 if (v->flag & LJUST) {
  85                         if (STAILQ_NEXT(vent, link) == NULL)    /* last one */
  86                                 printf("%s", vent->header);
  87                         else
  88                                 printf("%-*s", vent->width, vent->header);
  89                 } else
  90                         printf("%*s", vent->width, vent->header);
  91                 if (STAILQ_NEXT(vent, link) != NULL)
  92                         putchar(' ');
  93         }
  94         putchar('\n');
  95 }
  96
  97 void
  98 command(const KINFO *k, const struct varent *vent)
  99 {
 100         const VAR *v;
 101         int left;
 102         char *cp, *vis_env, *vis_args;
 103
 104         v = vent->var;
 105
 106         if (cflag) {
 107                 /* Don't pad the last field. */
 108                 if (STAILQ_NEXT(vent, link) == NULL)
 109                         printf("%s", make_printable(KI_PROC(k, comm)));
 110                 else
 111                         printf("%-*s", vent->width,
 112                                 make_printable(KI_PROC(k, 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 (STAILQ_NEXT(vent, link) == NULL) {
 127                 /* last field */
 128                 if (termwidth == UNLIMITED) {
 129                         if (vis_env)
 130                                 printf("%s ", vis_env);
 131                         printf("%s", vis_args);
 132                 } else {
 133                         left = termwidth - (totwidth - vent->width);
 134                         if (left < 1) /* already wrapped, just use std width */
 135                                 left = vent->width;
 136                         if ((cp = vis_env) != NULL) {
 137                                 while (--left >= 0 && *cp)
 138                                         putchar(*cp++);
 139                                 if (--left >= 0)
 140                                         putchar(' ');
 141                         }
 142                         for (cp = vis_args; --left >= 0 && *cp != '\0';)
 143                                 putchar(*cp++);
 144                 }
 145         } else
 146                 /* XXX env? */
 147                 printf("%-*.*s", vent->width, vent->width, vis_args);
 148         free(vis_args);
 149         if (vis_env != NULL)
 150                 free(vis_env);
 151 }
 152
 153 void
 154 ucomm(const KINFO *k, const struct varent *vent)
 155 {
 156         printf("%-*s", vent->width, make_printable(KI_PROC(k, comm)));
 157 }
 158
 159 void
 160 logname(const KINFO *k, const struct varent *vent)
 161 {
 162         const char *s = KI_PROC(k, login);
 163
 164         printf("%-*s", vent->width, *s != '\0' ? s : "-");
 165 }
 166
 167 void
 168 state(const KINFO *k, const struct varent *vent)
 169 {
 170         int flag;
 171         char *cp;
 172         char buf[16];
 173
 174         flag = KI_PROC(k, flags);
 175         cp = buf;
 176
 177         switch (KI_PROC(k, stat)) {
 178
 179         case SSTOP:
 180                 *cp = 'T';
 181                 break;
 182
 183         case SACTIVE:
 184                 switch (KI_LWP(k, stat)) {
 185                 case LSSLEEP:
 186                         if (KI_LWP(k, flags) & LWP_SINTR) {
 187                                 /* interruptable wait short/long */
 188                                 *cp = KI_LWP(k, slptime) >= MAXSLP ? 'I' : 'S';
 189                         }
 190                         else if (KI_LWP(k, tdflags) & TDF_SINTR)
 191                                 *cp = 'S';      /* interruptable lwkt wait */
 192                         else if (KI_PROC(k, paddr))
 193                                 *cp = 'D';      /* uninterruptable wait */
 194                         else
 195                                 *cp = 'B';      /* uninterruptable lwkt wait */
 196                         break;
 197
 198                 case LSRUN:
 199                         *cp = 'R';
 200                         if (KI_LWP(k, tdflags) & TDF_RUNNING) {
 201                             ++cp;
 202                             sprintf(cp, "%d", KI_LWP(k, cpuid));
 203                             while (cp[1])
 204                                 ++cp;
 205                         }
 206                         break;
 207
 208                 case LSSTOP:
 209                         /* shouldn't happen anyways */
 210                         *cp = 'T';
 211                         break;
 212                 }
 213                 break;
 214
 215         case SZOMB:
 216                 *cp = 'Z';
 217                 break;
 218
 219         default:
 220                 *cp = '?';
 221         }
 222
 223         cp++;
 224         if (flag & P_SWAPPEDOUT)
 225                 *cp++ = 'W';
 226         if (KI_PROC(k, nice) < NZERO)
 227                 *cp++ = '<';
 228         else if (KI_PROC(k, nice) > NZERO)
 229                 *cp++ = 'N';
 230         if (flag & P_TRACED)
 231                 *cp++ = 'X';
 232         if (flag & P_WEXIT && KI_PROC(k, stat) != SZOMB)
 233                 *cp++ = 'E';
 234         if (flag & P_PPWAIT)
 235                 *cp++ = 'V';
 236         if ((flag & P_SYSTEM) || KI_PROC(k, lock) > 0)
 237                 *cp++ = 'L';
 238         if (numcpus > 1 && KI_LWP(k, mpcount) == 0)
 239                 *cp++ = 'M';
 240         if (flag & P_JAILED)
 241                 *cp++ = 'J';
 242         if (KI_PROC(k, auxflags) & KI_SLEADER)
 243                 *cp++ = 's';
 244         if ((flag & P_CONTROLT) && KI_PROC(k, pgid) == KI_PROC(k, tpgid))
 245                 *cp++ = '+';
 246         *cp = '\0';
 247         printf("%-*s", vent->width, buf);
 248 }
 249
 250 /*
 251  * Normalized priority (lower is better).  For pure threads
 252  * output a negated LWKT priority (so lower still means better).
 253  *
 254  * XXX bsd4 scheduler specific.
 255  */
 256 void
 257 pri(const KINFO *k, const struct varent *vent)
 258 {
 259         if (KI_LWP(k, pid) != -1)
 260             printf("%*d", vent->width, KI_LWP(k, prio));
 261         else
 262             printf("%*d", vent->width, -(KI_LWP(k, tdprio) & TDPRI_MASK));
 263 }
 264
 265 void
 266 tdpri(const KINFO *k, const struct varent *vent)
 267 {
 268         char buf[32];
 269         int val = KI_LWP(k, tdprio);
 270
 271         snprintf(buf, sizeof(buf), "%02d/%d", val & TDPRI_MASK, val / TDPRI_CRIT);
 272         printf("%*s", vent->width, buf);
 273 }
 274
 275 void
 276 uname(const KINFO *k, const struct varent *vent)
 277 {
 278         printf("%-*s", vent->width,
 279                user_from_uid(KI_PROC(k, uid), 0));
 280 }
 281
 282 int
 283 s_uname(const KINFO *k)
 284 {
 285         return (strlen(user_from_uid(KI_PROC(k, uid), 0)));
 286 }
 287
 288 void
 289 runame(const KINFO *k, const struct varent *vent)
 290 {
 291         printf("%-*s", vent->width,
 292                user_from_uid(KI_PROC(k, ruid), 0));
 293 }
 294
 295 int
 296 s_runame(const KINFO *k)
 297 {
 298         return (strlen(user_from_uid(KI_PROC(k, ruid), 0)));
 299 }
 300
 301 void
 302 tdev(const KINFO *k, const struct varent *vent)
 303 {
 304         dev_t dev;
 305         char buff[16];
 306
 307         dev = KI_PROC(k, tdev);
 308         if (dev == NODEV)
 309                 printf("%*s", vent->width, "??");
 310         else {
 311                 snprintf(buff, sizeof(buff), "%d/%d", major(dev), minor(dev));
 312                 printf("%*s", vent->width, buff);
 313         }
 314 }
 315
 316 void
 317 tname(const KINFO *k, const struct varent *vent)
 318 {
 319         dev_t dev;
 320         const char *ttname;
 321
 322         dev = KI_PROC(k, tdev);
 323         if (dev == NODEV || (ttname = devname(dev, S_IFCHR)) == NULL)
 324                 printf("%*s ", vent->width-1, "??");
 325         else {
 326                 if (strncmp(ttname, "tty", 3) == 0 ||
 327                     strncmp(ttname, "cua", 3) == 0)
 328                         ttname += 3;
 329                 printf("%*.*s%c", vent->width-1, vent->width-1, ttname,
 330                         KI_PROC(k, auxflags) & KI_CTTY ? ' ' : '-');
 331         }
 332 }
 333
 334 void
 335 longtname(const KINFO *k, const struct varent *vent)
 336 {
 337         dev_t dev;
 338         const char *ttname;
 339
 340         dev = KI_PROC(k, tdev);
 341         if (dev == NODEV || (ttname = devname(dev, S_IFCHR)) == NULL)
 342                 printf("%-*s", vent->width, "??");
 343         else
 344                 printf("%-*s", vent->width, ttname);
 345 }
 346
 347 void
 348 started(const KINFO *k, const struct varent *vent)
 349 {
 350         static time_t now;
 351         time_t then;
 352         struct tm *tp;
 353         char buf[100];
 354         static int  use_ampm = -1;
 355
 356         if (use_ampm < 0)
 357                 use_ampm = (*nl_langinfo(T_FMT_AMPM) != '\0');
 358
 359         then = KI_PROC(k, start).tv_sec;
 360         if (then < btime.tv_sec) {
 361                 then = btime.tv_sec;
 362         }
 363
 364         tp = localtime(&then);
 365         if (!now)
 366                 time(&now);
 367         if (now - then < 24 * 3600) {
 368                 strftime(buf, sizeof(buf) - 1,
 369                 use_ampm ? "%l:%M%p" : "%k:%M  ", tp);
 370         } else if (now - then < 7 * 86400) {
 371                 strftime(buf, sizeof(buf) - 1,
 372                 use_ampm ? "%a%I%p" : "%a%H  ", tp);
 373         } else
 374                 strftime(buf, sizeof(buf) - 1, "%e%b%y", tp);
 375         printf("%-*s", vent->width, buf);
 376 }
 377
 378 void
 379 lstarted(const KINFO *k, const struct varent *vent)
 380 {
 381         time_t then;
 382         char buf[100];
 383
 384         then = KI_PROC(k, start).tv_sec;
 385         strftime(buf, sizeof(buf) -1, "%c", localtime(&then));
 386         printf("%-*s", vent->width, buf);
 387 }
 388
 389 void
 390 wchan(const KINFO *k, const struct varent *vent)
 391 {
 392         if (*KI_LWP(k, wmesg)) {
 393                 printf("%-*.*s", vent->width, vent->width,
 394                        KI_LWP(k, wmesg));
 395         } else {
 396                 printf("%-*s", vent->width, "-");
 397         }
 398 }
 399
 400 #ifndef pgtok
 401 #define pgtok(a)        (((a)*getpagesize())/1024)
 402 #endif
 403
 404 void
 405 vsize(const KINFO *k, const struct varent *vent)
 406 {
 407         printf("%*ju", vent->width, (uintmax_t)(KI_PROC(k, vm_map_size)/1024));
 408 }
 409
 410 void
 411 rssize(const KINFO *k, const struct varent *vent)
 412 {
 413         /* XXX don't have info about shared */
 414         printf("%*lu", vent->width, (u_long)pgtok(KI_PROC(k, vm_rssize)));
 415 }
 416
 417 void
 418 p_rssize(const KINFO *k, const struct varent *vent)     /* doesn't account for text */
 419 {
 420         printf("%*ld", vent->width, (long)pgtok(KI_PROC(k, vm_rssize)));
 421 }
 422
 423 void
 424 cputime(const KINFO *k, const struct varent *vent)
 425 {
 426         long secs;
 427         long psecs;     /* "parts" of a second. first micro, then centi */
 428         u_int64_t timeus;
 429         char obuff[128];
 430         static char decimal_point = '\0';
 431
 432         if (decimal_point == '\0')
 433                 decimal_point = localeconv()->decimal_point[0];
 434
 435         /*
 436          * This counts time spent handling interrupts.  We could
 437          * fix this, but it is not 100% trivial (and interrupt
 438          * time fractions only work on the sparc anyway).       XXX
 439          */
 440         timeus = KI_LWP(k, uticks) + KI_LWP(k, sticks) +
 441                 KI_LWP(k, iticks);
 442         secs = timeus / 1000000;
 443         psecs = timeus % 1000000;
 444         if (sumrusage) {
 445                 secs += KI_PROC(k, cru).ru_utime.tv_sec +
 446                         KI_PROC(k, cru).ru_stime.tv_sec;
 447                 psecs += KI_PROC(k, cru).ru_utime.tv_usec +
 448                         KI_PROC(k, cru).ru_stime.tv_usec;
 449         }
 450         /*
 451          * round and scale to 100's
 452          */
 453         psecs = (psecs + 5000) / 10000;
 454         secs += psecs / 100;
 455         psecs = psecs % 100;
 456         snprintf(obuff, sizeof(obuff),
 457             "%3ld:%02ld%c%02ld", secs/60, secs%60, decimal_point, psecs);
 458         printf("%*s", vent->width, obuff);
 459 }
 460
 461 double
 462 getpcpu(const KINFO *k)
 463 {
 464         static int failure;
 465
 466         if (!nlistread)
 467                 failure = donlist();
 468         if (failure)
 469                 return (0.0);
 470
 471 #define fxtofl(fixpt)   ((double)(fixpt) / fscale)
 472
 473         /* XXX - I don't like this */
 474         if (KI_PROC(k, swtime) == 0 || (KI_PROC(k, flags) & P_SWAPPEDOUT))
 475                 return (0.0);
 476         if (rawcpu)
 477                 return (100.0 * fxtofl(KI_LWP(k, pctcpu)));
 478         return (100.0 * fxtofl(KI_LWP(k, pctcpu)) /
 479                 (1.0 - exp(KI_PROC(k, swtime) * log(fxtofl(ccpu)))));
 480 }
 481
 482 void
 483 pcpu(const KINFO *k, const struct varent *vent)
 484 {
 485         printf("%*.1f", vent->width, getpcpu(k));
 486 }
 487
 488 void
 489 pnice(const KINFO *k, const struct varent *vent)
 490 {
 491         int niceval;
 492
 493         switch (KI_LWP(k, rtprio).type) {
 494         case RTP_PRIO_REALTIME:
 495                 niceval = PRIO_MIN - 1 - RTP_PRIO_MAX + KI_LWP(k, rtprio).prio;
 496                 break;
 497         case RTP_PRIO_IDLE:
 498                 niceval = PRIO_MAX + 1 + KI_LWP(k, rtprio).prio;
 499                 break;
 500         case RTP_PRIO_THREAD:
 501                 niceval = PRIO_MIN - 1 - RTP_PRIO_MAX - KI_LWP(k, rtprio).prio;
 502                 break;
 503         default:
 504                 niceval = KI_PROC(k, nice) - NZERO;
 505                 break;
 506         }
 507         printf("%*d", vent->width, niceval);
 508 }
 509
 510
 511 double
 512 getpmem(const KINFO *k)
 513 {
 514         static int failure;
 515         double fracmem;
 516         int szptudot;
 517
 518         if (!nlistread)
 519                 failure = donlist();
 520         if (failure)
 521                 return (0.0);
 522
 523         if (KI_PROC(k, flags) & P_SWAPPEDOUT)
 524                 return (0.0);
 525         /* XXX want pmap ptpages, segtab, etc. (per architecture) */
 526         szptudot = UPAGES;
 527         /* XXX don't have info about shared */
 528         fracmem = ((float)KI_PROC(k, vm_rssize) + szptudot)/mempages;
 529         return (100.0 * fracmem);
 530 }
 531
 532 void
 533 pmem(const KINFO *k, const struct varent *vent)
 534 {
 535         printf("%*.1f", vent->width, getpmem(k));
 536 }
 537
 538 void
 539 pagein(const KINFO *k, const struct varent *vent)
 540 {
 541         printf("%*ld", vent->width, KI_LWP(k, ru).ru_majflt);
 542 }
 543
 544 /* ARGSUSED */
 545 void
 546 maxrss(const KINFO *k __unused, const struct varent *vent)
 547 {
 548         printf("%*ld", vent->width, KI_PROC(k, ru).ru_maxrss);
 549 }
 550
 551 void
 552 tsize(const KINFO *k, const struct varent *vent)
 553 {
 554         printf("%*ld", vent->width, (long)pgtok(KI_PROC(k, vm_tsize)));
 555 }
 556
 557 void
 558 rtprior(const KINFO *k, const struct varent *vent)
 559 {
 560         struct rtprio *prtp;
 561         char str[8];
 562         unsigned prio, type;
 563
 564         prtp = &KI_LWP(k, rtprio);
 565         prio = prtp->prio;
 566         type = prtp->type;
 567         switch (type) {
 568         case RTP_PRIO_REALTIME:
 569                 snprintf(str, sizeof(str), "real:%u", prio);
 570                 break;
 571         case RTP_PRIO_NORMAL:
 572                 strncpy(str, "normal", sizeof(str));
 573                 break;
 574         case RTP_PRIO_IDLE:
 575                 snprintf(str, sizeof(str), "idle:%u", prio);
 576                 break;
 577         default:
 578                 snprintf(str, sizeof(str), "%u:%u", type, prio);
 579                 break;
 580         }
 581         str[sizeof(str) - 1] = '\0';
 582         printf("%*s", vent->width, str);
 583 }
 584
 585 /*
 586  * Generic output routines.  Print fields from various prototype
 587  * structures.
 588  */
 589 static void
 590 printval(const char *bp, const struct varent *vent)
 591 {
 592         static char ofmt[32] = "%";
 593         const char *fcp;
 594         char *cp;
 595
 596         cp = ofmt + 1;
 597         fcp = vent->var->fmt;
 598         if (vent->var->flag & LJUST)
 599                 *cp++ = '-';
 600         *cp++ = '*';
 601         while ((*cp++ = *fcp++));
 602
 603         switch (vent->var->type) {
 604         case CHAR:
 605                 printf(ofmt, vent->width, *(const char *)bp);
 606                 break;
 607         case UCHAR:
 608                 printf(ofmt, vent->width, *(const u_char *)bp);
 609                 break;
 610         case SHORT:
 611                 printf(ofmt, vent->width, *(const short *)bp);
 612                 break;
 613         case USHORT:
 614                 printf(ofmt, vent->width, *(const u_short *)bp);
 615                 break;
 616         case INT:
 617                 printf(ofmt, vent->width, *(const int *)bp);
 618                 break;
 619         case UINT:
 620                 printf(ofmt, vent->width, *(const u_int *)bp);
 621                 break;
 622         case LONG:
 623                 printf(ofmt, vent->width, *(const long *)bp);
 624                 break;
 625         case ULONG:
 626                 printf(ofmt, vent->width, *(const u_long *)bp);
 627                 break;
 628         case KPTR:
 629                 printf(ofmt, vent->width, *(const u_long *)bp);
 630                 break;
 631         default:
 632                 errx(1, "unknown type %d", vent->var->type);
 633         }
 634 }
 635
 636 void
 637 pvar(const KINFO *k, const struct varent *vent)
 638 {
 639         printval((char *)((char *)k->ki_proc + vent->var->off), vent);
 640 }
 641
 642 void
 643 lpest(const KINFO *k, const struct varent *vent)
 644 {
 645         int val;
 646
 647         val = *(int *)((char *)&k->ki_proc->kp_lwp + vent->var->off);
 648         val = val / 128;
 649         printval((char *)&val, vent);
 650 }
 651
 652
 653 void
 654 lpvar(const KINFO *k, const struct varent *vent)
 655 {
 656         printval((char *)((char *)&k->ki_proc->kp_lwp + vent->var->off), vent);
 657 }
 658
 659 void
 660 rvar(const KINFO *k, const struct varent *vent)
 661 {
 662         printval(((const char *)&KI_LWP(k, ru) + vent->var->off), vent);
 663 }
 664
 665 static const char *
 666 make_printable(const char *str)
 667 {
 668     static char *cpy;
 669     int len;
 670
 671     if (cpy)
 672         free(cpy);
 673     len = strlen(str);
 674     if ((cpy = malloc(len * 4 + 1)) == NULL)
 675         err(1, NULL);
 676     strvis(cpy, str, VIS_TAB | VIS_NL | VIS_NOSLASH);
 677     return(cpy);
 678 }