Initial import from FreeBSD RELENG_4:
[dragonfly.git] / release / picobsd / tinyware / sps / sps.c
1 /*-
2  * Copyright (c) 1998 Andrzej Bialecki
3  * 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  *
14  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24  * SUCH DAMAGE.
25  *
26  * $FreeBSD: src/release/picobsd/tinyware/sps/sps.c,v 1.2 1999/08/28 01:34:01 peter Exp $
27  */
28
29 /*
30  * Small replacement for ps(1) - uses only sysctl(3) to retrieve info
31  */
32
33 #include <stdio.h>
34 #include <stdlib.h>
35 #include <string.h>
36 #include <sys/param.h>
37 #include <sys/sysctl.h>
38 #include <sys/stat.h>
39 #include <sys/proc.h>
40 #include <sys/user.h>
41
42 char p_stat[]="?iRSTZ";
43
44 int
45 main(int argc, char *argv[])
46 {
47         int mib[3],i=0,num,len;
48         struct kinfo_proc kp,*t,*u;
49         char buf[20],vty[5],pst[5];
50         int ma,mi;
51
52         mib[0]=CTL_KERN;
53         mib[1]=KERN_PROC;
54         mib[2]=KERN_PROC_ALL;
55         if(sysctl(mib,3,NULL,&len,NULL,0)) {
56                 perror("sysctl sizing");
57                 exit(1);
58         }
59         t=(struct kinfo_proc *)malloc(len);
60         if(sysctl(mib,3,t,&len,NULL,0)) {
61                 perror("sysctl info");
62                 exit(1);
63         }
64         num=len / sizeof(struct kinfo_proc);
65         i=0;
66         printf("USERNAME  PID PPID PRI NICE TTY STAT WCHAN   COMMAND\n");
67         while(i<num) {
68                 u=(t+num-i-1);
69                 ma=major(u->kp_eproc.e_tdev);
70                 mi=minor(u->kp_eproc.e_tdev);
71                 switch(ma) {
72                 case 255:
73                         strcpy(vty,"??");
74                         break;
75                 case 12:
76                         if(mi!=255) {
77                                 sprintf(vty,"v%d",mi);
78                                 break;
79                         }
80                         /* FALLTHROUGH */
81                 case 0:
82                         strcpy(vty,"con");
83                         break;
84                 case 5:
85                         sprintf(vty,"p%d",mi);
86                         break;
87                 }
88                 sprintf(pst,"%c",p_stat[u->kp_proc.p_stat]);
89                 printf("%8s%5d%5d %3d %4d %3s %-4s %-7s (%s)\n",
90                         u->kp_eproc.e_login,
91                         u->kp_proc.p_pid,
92                         u->kp_eproc.e_ppid,
93                         u->kp_proc.p_priority,
94                         u->kp_proc.p_nice,
95                         vty,
96                         pst,
97                         u->kp_eproc.e_wmesg,
98                         u->kp_proc.p_comm);
99                 i++;
100         }
101         free(t);
102         exit(0);
103
104 }