1 // SPDX-License-Identifier: GPL-2.0
4  * Utility to get per-pid and per-tgid delay accounting statistics
12  *	gcc -I/usr/src/linux/include getdelays.c -o getdelays
38 #define GENLMSG_PAYLOAD(glh)	(NLMSG_PAYLOAD(glh, 0) - GENL_HDRLEN)
40 #define NLA_PAYLOAD(len)	(len - NLA_HDRLEN)
76 	fprintf(stderr, "getdelays [-dilv] [-w logfile] [-r bufsize] "  in usage()
77 			"[-m cpumask] [-t tgid] [-p pid]\n");  in usage()
78 	fprintf(stderr, "  -d: print delayacct stats\n");  in usage()
79 	fprintf(stderr, "  -i: print IO accounting (works only with -p)\n");  in usage()
80 	fprintf(stderr, "  -l: listen forever\n");  in usage()
81 	fprintf(stderr, "  -v: debug on\n");  in usage()
82 	fprintf(stderr, "  -C: container path\n");  in usage()
91 	struct sockaddr_nl local;  in create_nl_socket()  local
95 		return -1;  in create_nl_socket()
105 	memset(&local, 0, sizeof(local));  in create_nl_socket()
106 	local.nl_family = AF_NETLINK;  in create_nl_socket()
108 	if (bind(fd, (struct sockaddr *) &local, sizeof(local)) < 0)  in create_nl_socket()
114 	return -1;  in create_nl_socket()
137 	na->nla_type = nla_type;  in send_cmd()
138 	na->nla_len = nla_len + NLA_HDRLEN;  in send_cmd()
140 	msg.n.nlmsg_len += NLMSG_ALIGN(na->nla_len);  in send_cmd()
150 			buflen -= r;  in send_cmd()
152 			return -1;  in send_cmd()
187 	na = (struct nlattr *) ((char *) na + NLA_ALIGN(na->nla_len));  in get_family_id()
188 	if (na->nla_type == CTRL_ATTR_FAMILY_ID) {  in get_family_id()
214 	       (unsigned long long)t->cpu_count,  in print_delayacct()
215 	       (unsigned long long)t->cpu_run_real_total,  in print_delayacct()
216 	       (unsigned long long)t->cpu_run_virtual_total,  in print_delayacct()
217 	       (unsigned long long)t->cpu_delay_total,  in print_delayacct()
218 	       average_ms((double)t->cpu_delay_total, t->cpu_count),  in print_delayacct()
220 	       (unsigned long long)t->blkio_count,  in print_delayacct()
221 	       (unsigned long long)t->blkio_delay_total,  in print_delayacct()
222 	       average_ms(t->blkio_delay_total, t->blkio_count),  in print_delayacct()
224 	       (unsigned long long)t->swapin_count,  in print_delayacct()
225 	       (unsigned long long)t->swapin_delay_total,  in print_delayacct()
226 	       average_ms(t->swapin_delay_total, t->swapin_count),  in print_delayacct()
228 	       (unsigned long long)t->freepages_count,  in print_delayacct()
229 	       (unsigned long long)t->freepages_delay_total,  in print_delayacct()
230 	       average_ms(t->freepages_delay_total, t->freepages_count),  in print_delayacct()
232 	       (unsigned long long)t->thrashing_count,  in print_delayacct()
233 	       (unsigned long long)t->thrashing_delay_total,  in print_delayacct()
234 	       average_ms(t->thrashing_delay_total, t->thrashing_count),  in print_delayacct()
236 	       (unsigned long long)t->compact_count,  in print_delayacct()
237 	       (unsigned long long)t->compact_delay_total,  in print_delayacct()
238 	       average_ms(t->compact_delay_total, t->compact_count),  in print_delayacct()
240 	       (unsigned long long)t->wpcopy_count,  in print_delayacct()
241 	       (unsigned long long)t->wpcopy_delay_total,  in print_delayacct()
242 	       average_ms(t->wpcopy_delay_total, t->wpcopy_count));  in print_delayacct()
250 	       (unsigned long long)t->nvcsw, (unsigned long long)t->nivcsw);  in task_context_switch_counts()
256 		"uninterruptible %llu\n", (unsigned long long)c->nr_sleeping,  in print_cgroupstats()
257 		(unsigned long long)c->nr_io_wait,  in print_cgroupstats()
258 		(unsigned long long)c->nr_running,  in print_cgroupstats()
259 		(unsigned long long)c->nr_stopped,  in print_cgroupstats()
260 		(unsigned long long)c->nr_uninterruptible);  in print_cgroupstats()
267 		t->ac_comm,  in print_ioacct()
268 		(unsigned long long)t->read_bytes,  in print_ioacct()
269 		(unsigned long long)t->write_bytes,  in print_ioacct()
270 		(unsigned long long)t->cancelled_write_bytes);  in print_ioacct()
281 	int nl_sd = -1;  in main()
334 			cpumask[sizeof(cpumask) - 1] = '\0';  in main()
347 				err(1, "Invalid pid\n");  in main()
353 			if (sigemptyset(&sigset) == -1)  in main()
364 				if (execvp(argv[optind - 1],  in main()
365 				    &argv[optind - 1]) < 0)  in main()
366 					exit(-1);  in main()
382 			exit(-1);  in main()
389 		if (fd == -1) {  in main()
420 		fprintf(stderr, "Select either -t or -C, not both\n");  in main()
436 		PRINTF("Sent pid/tgid, retval %d\n", rc);  in main()
474 				err->error);  in main()
487 			len += NLA_ALIGN(na->nla_len);  in main()
488 			switch (na->nla_type) {  in main()
492 				aggr_len = NLA_PAYLOAD(na->nla_len);  in main()
497 					switch (na->nla_type) {  in main()
501 							printf("PID\t%d\n", rtid);  in main()
516 							if (write(fd, NLA_DATA(na), na->nla_len) < 0) {  in main()
528 							na->nla_type);  in main()
531 					len2 += NLA_ALIGN(na->nla_len);  in main()
533 							       NLA_ALIGN(na->nla_len));  in main()
542 					na->nla_type);  in main()