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