xref: /netbsd-src/usr.bin/systat/syscall.c (revision 8b0f9554ff8762542c4defc4f70e1eb76fb508fa)
1 /*	$NetBSD: syscall.c,v 1.3 2007/02/18 17:00:08 dsl Exp $	*/
2 
3 /*-
4  * Copyright (c) 2006 The NetBSD Foundation, Inc.
5  * All rights reserved.
6  *
7  * This code is derived from software contributed to The NetBSD Foundation
8  * by David Laight.
9  *
10  * Redistribution and use in source and binary forms, with or without
11  * modification, are permitted provided that the following conditions
12  * are met:
13  * 1. Redistributions of source code must retain the above copyright
14  *    notice, this list of conditions and the following disclaimer.
15  * 2. Redistributions in binary form must reproduce the above copyright
16  *    notice, this list of conditions and the following disclaimer in the
17  *    documentation and/or other materials provided with the distribution.
18  * 3. Neither the name of The NetBSD Foundation nor the names of its
19  *    contributors may be used to endorse or promote products derived
20  *    from this software without specific prior written permission.
21  *
22  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
23  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
24  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
25  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
26  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
27  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
28  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
29  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
30  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
31  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
32  * POSSIBILITY OF SUCH DAMAGE.
33  */
34 
35 #include <sys/cdefs.h>
36 __RCSID("$NetBSD: syscall.c,v 1.3 2007/02/18 17:00:08 dsl Exp $");
37 
38 /* System call stats */
39 
40 #include <sys/param.h>
41 #include <sys/user.h>
42 #include <sys/namei.h>
43 #include <sys/sysctl.h>
44 #include <sys/device.h>
45 
46 #include <uvm/uvm_extern.h>
47 
48 #include <errno.h>
49 #include <stdlib.h>
50 #include <string.h>
51 #include <util.h>
52 
53 #include "systat.h"
54 #include "extern.h"
55 #include "drvstats.h"
56 #include "utmpentry.h"
57 #include "vmstat.h"
58 
59 #include <sys/syscall.h>
60 #include <../../sys/kern/syscalls.c>
61 
62 #define nelem(x) (sizeof (x) / sizeof *(x))
63 
64 static struct Info {
65 	struct	 uvmexp_sysctl uvmexp;
66 	struct	 vmtotal Total;
67 	uint64_t counts[SYS_NSYSENT];
68 	uint64_t times[SYS_NSYSENT];
69 } s, s1, s2;
70 
71 static uint64_t irf[SYS_NSYSENT], val[SYS_NSYSENT];
72 static int irf_first = 1;
73 
74 int syscall_sort[SYS_NSYSENT];
75 
76 static	enum sort_order { UNSORTED, NAMES, COUNTS } sort_order = NAMES;
77 
78 #define	SHOW_COUNTS	1
79 #define	SHOW_TIMES	2
80 static int show = SHOW_COUNTS;
81 
82 static void getinfo(struct Info *, int);
83 
84 static	char buf[32];
85 static	float hertz;
86 
87 static size_t counts_mib_len, times_mib_len;
88 static int counts_mib[4], times_mib[4];
89 
90 WINDOW *
91 opensyscall(void)
92 {
93 	return (stdscr);
94 }
95 
96 void
97 closesyscall(WINDOW *w)
98 {
99 
100 	if (w == NULL)
101 		return;
102 	wclear(w);
103 	wrefresh(w);
104 }
105 
106 
107 /*
108  * These constants define where the major pieces are laid out
109  */
110 #define SYSCALLROW	9	/* Below the vmstat header */
111 
112 int
113 initsyscall(void)
114 {
115 	static char name[] = "name";
116 
117 	hertz = stathz ? stathz : hz;
118 
119 	syscall_order(name);
120 
121 	/* drvinit gets number of cpus! */
122 	drvinit(1);
123 
124 	counts_mib_len = nelem(counts_mib);
125 	if (sysctlnametomib("kern.syscalls.counts", counts_mib, &counts_mib_len))
126 		counts_mib_len = 0;
127 
128 	times_mib_len = nelem(times_mib);
129 	if (sysctlnametomib("kern.syscalls.times", times_mib, &times_mib_len))
130 		times_mib_len = 0;
131 
132 	getinfo(&s2, SHOW_COUNTS | SHOW_TIMES);
133 	s1 = s2;
134 
135 	return(1);
136 }
137 
138 void
139 fetchsyscall(void)
140 {
141 	time_t now;
142 
143 	time(&now);
144 	strlcpy(buf, ctime(&now), sizeof(buf));
145 	buf[19] = '\0';
146 	getinfo(&s, show);
147 }
148 
149 void
150 labelsyscall(void)
151 {
152 	labelvmstat_top();
153 }
154 
155 #define MAXFAIL 5
156 
157 static void
158 putuint64(uint64_t v, int row, int col, int width)
159 {
160 	static const char suffix[] = "KMDT";
161 	int len, i;
162 
163 	len = snprintf(buf, sizeof buf, "%" PRIu64, v);
164 	if (len > width) {
165 		i = (len - width) / 3;
166 		if (i >= sizeof suffix) {
167 			memset(buf, '*', width);
168 			len = width;
169 		} else {
170 			len -= (i + 1) * 3;
171 			buf[len++] = suffix[i];
172 		}
173 		buf[len] = 0;
174 	}
175 	mvprintw(row, col, "%*s", width, buf);
176 }
177 
178 static int
179 compare_irf(const void *a, const void *b)
180 {
181 	int ia = *(const int *)a, ib = *(const int *)b;
182 	int64_t delta;
183 
184 	delta = irf[ib] - irf[ia];
185 	return delta ? delta < 0 ? -1 : 1 : 0;
186 }
187 
188 void
189 showsyscall(void)
190 {
191 	int i, ii, l, c;
192 	uint64_t v;
193 	static int failcnt = 0;
194 	static int relabel = 0;
195 	static char pigs[] = "pigs";
196 	uint64_t itime;
197 
198 	if (relabel) {
199 		labelsyscall();
200 		relabel = 0;
201 	}
202 
203 	cpuswap();
204 	if (display_mode == TIME) {
205 		etime = cur.cp_etime;
206 		/* < 5 ticks - ignore this trash */
207 		if ((etime * hertz) < 1.0) {
208 			if (failcnt++ > MAXFAIL)
209 				return;
210 			failcnt = 0;
211 			clear();
212 			mvprintw(2, 10, "The alternate system clock has died!");
213 			mvprintw(3, 10, "Reverting to ``pigs'' display.");
214 			move(CMDLINE, 0);
215 			refresh();
216 			failcnt = 0;
217 			sleep(5);
218 			command(pigs);
219 			return;
220 		}
221 	} else
222 		etime = 1.0;
223 	itime = etime * 100;
224 
225 	failcnt = 0;
226 
227 	show_vmstat_top(&s.Total, &s.uvmexp, &s1.uvmexp);
228 
229 	/* Sort out the values we are going to display */
230 	for (i = 0; i < nelem(s.counts); i++) {
231 		switch (show) {
232 		default:
233 		case SHOW_COUNTS:
234 			v = s.counts[i] - s1.counts[i];
235 			break;
236 		case SHOW_TIMES:
237 			v = s.times[i] - s1.times[i];
238 			break;
239 		case SHOW_COUNTS | SHOW_TIMES:    /* time/count */
240 			v = s.counts[i] - s1.counts[i];
241 			v = v ? (s.times[i] - s1.times[i]) / v : 0;
242 		}
243 
244 		if (display_mode == TIME)
245 		    v = (v * 100 + itime/2) / itime;
246 
247 		val[i] = v;
248 
249 		/*
250 		 * We use an 'infinite response filter' in a vague
251 		 * attempt to stop the data leaping around too much.
252 		 * I suspect there are other/better methods in use.
253 		 */
254 		if (irf_first) {
255 			irf[i] = v;
256 			irf_first = 0;
257 		} else {
258 			irf[i] = irf[i] * 7 / 8 + v;
259 		}
260 	}
261 
262 	if (sort_order == COUNTS) {
263 		/* mergesort() doesn't swap equal values about... */
264 		mergesort(syscall_sort, nelem(syscall_sort),
265 			sizeof syscall_sort[0], compare_irf);
266 	}
267 
268 	l = SYSCALLROW;
269 	c = 0;
270 	move(l, c);
271 	for (ii = 0; ii < nelem(s.counts); ii++) {
272 		i = syscall_sort[ii];
273 		if (val[i] == 0 && irf[i] == 0)
274 			continue;
275 
276 		if (i < nelem(syscallnames)) {
277 			const char *name = syscallnames[i];
278 			while (name[0] == '_')
279 				name++;
280 			if (name[0] == 'c' && !strcmp(name + 1, "ompat_"))
281 				name += 7;
282 			mvprintw(l, c, "%17.17s", name);
283 		} else
284 			mvprintw(l, c, "syscall #%d       ", i);
285 
286 		putuint64(val[i], l, c + 18, 8);
287 		c += 27;
288 		if (c + 26 > COLS) {
289 			c = 0;
290 			l++;
291 			if (l >= LINES - 1)
292 				break;
293 		}
294 	}
295 	if (display_mode == TIME) {
296 		memcpy(s1.counts, s.counts, sizeof s1.counts);
297 		memcpy(s1.times, s.times, sizeof s1.times);
298 	}
299 	while (l < LINES - 1) {
300 	    clrtoeol();
301 	    move(++l, 0);
302 	}
303 }
304 
305 void
306 syscall_boot(char *args)
307 {
308 	memset(&s1, 0, sizeof s1);
309 	display_mode = BOOT;
310 }
311 
312 void
313 syscall_run(char *args)
314 {
315 	s1 = s2;
316 	display_mode = RUN;
317 }
318 
319 void
320 syscall_time(char *args)
321 {
322 	display_mode = TIME;
323 }
324 
325 void
326 syscall_zero(char *args)
327 {
328 	s1 = s;
329 }
330 
331 static int
332 compare_names(const void *a, const void *b)
333 {
334 	const char *name_a = syscallnames[*(const int *)a];
335 	const char *name_b = syscallnames[*(const int *)b];
336 
337 	while (*name_a == '_')
338 		name_a++;
339 	while (*name_b == '_')
340 		name_b++;
341 
342 	return strcmp(name_a, name_b);
343 }
344 
345 void
346 syscall_order(char *args)
347 {
348 	int i, len;
349 
350 	if (args == NULL)
351 		goto usage;
352 
353 	len = strcspn(args, " \t\r\n");
354 
355 	if (args[len + strspn(args + len, " \t\r\n")])
356 		goto usage;
357 
358 	if (memcmp(args, "count", len) == 0)
359 		sort_order = COUNTS;
360 	else if (memcmp(args, "name", len) == 0)
361 		sort_order = NAMES;
362 	else if (memcmp(args, "syscall", len) == 0)
363 		sort_order = UNSORTED;
364 	else
365 		goto usage;
366 
367 	/* Undo all the sorting */
368 	for (i = 0; i < nelem(syscall_sort); i++)
369 		syscall_sort[i] = i;
370 
371 	if (sort_order == NAMES) {
372 		/* Only sort the entries we have names for */
373 		qsort(syscall_sort, nelem(syscallnames), sizeof syscall_sort[0],
374 			compare_names);
375 	}
376 	return;
377 
378     usage:
379 	error("Usage: sort [count|name|syscall]");
380 }
381 
382 void
383 syscall_show(char *args)
384 {
385 	int len;
386 
387 	if (args == NULL)
388 		goto usage;
389 
390 	len = strcspn(args, " \t\r\n");
391 
392 	if (args[len + strspn(args + len, " \t\r\n")])
393 		goto usage;
394 
395 	if (memcmp(args, "counts", len) == 0)
396 		show = SHOW_COUNTS;
397 	else if (memcmp(args, "times", len) == 0)
398 		show = SHOW_TIMES;
399 	else if (memcmp(args, "ratio", len) == 0)
400 		show = SHOW_COUNTS | SHOW_TIMES;
401 	else
402 		goto usage;
403 
404 	memset(&irf, 0, sizeof irf);
405 	irf_first = 1;
406 
407 	return;
408 
409     usage:
410 	error("Usage: show [counts|times|ratio]");
411 }
412 
413 static void
414 getinfo(struct Info *stats, int get_what)
415 {
416 	int mib[2];
417 	size_t size;
418 
419 	cpureadstats();
420 
421 	if (get_what & SHOW_COUNTS) {
422 		size = sizeof stats->counts;
423 		if (!counts_mib_len ||
424 		    sysctl(counts_mib, counts_mib_len, &stats->counts, &size,
425 			    NULL, 0)) {
426 			error("can't get syscall counts: %s\n", strerror(errno));
427 			memset(&stats->counts, 0, sizeof stats->counts);
428 		}
429 	}
430 
431 	if (get_what & SHOW_TIMES) {
432 		size = sizeof stats->times;
433 		if (!times_mib_len ||
434 		    sysctl(times_mib, times_mib_len, &stats->times, &size,
435 			    NULL, 0)) {
436 			error("can't get syscall times: %s\n", strerror(errno));
437 			memset(&stats->times, 0, sizeof stats->times);
438 		}
439 	}
440 
441 	size = sizeof(stats->uvmexp);
442 	mib[0] = CTL_VM;
443 	mib[1] = VM_UVMEXP2;
444 	if (sysctl(mib, 2, &stats->uvmexp, &size, NULL, 0) < 0) {
445 		error("can't get uvmexp: %s\n", strerror(errno));
446 		memset(&stats->uvmexp, 0, sizeof(stats->uvmexp));
447 	}
448 	size = sizeof(stats->Total);
449 	mib[0] = CTL_VM;
450 	mib[1] = VM_METER;
451 	if (sysctl(mib, 2, &stats->Total, &size, NULL, 0) < 0) {
452 		error("Can't get kernel info: %s\n", strerror(errno));
453 		memset(&stats->Total, 0, sizeof(stats->Total));
454 	}
455 }
456