Initial import from FreeBSD RELENG_4:
[dragonfly.git] / 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 }