2 * Copyright (c) 1999 Ulrich Drepper <drepper@cygnus.com>
3 * Copyright (c) 2005 Roland McGrath <roland@redhat.com>
4 * Copyright (c) 2005-2015 Dmitry V. Levin <ldv@altlinux.org>
5 * Copyright (c) 2014-2018 The strace developers.
8 * SPDX-License-Identifier: LGPL-2.1-or-later
13 #include <linux/sysctl.h>
15 #include "xlat/sysctl_root.h"
16 #include "xlat/sysctl_kern.h"
17 #include "xlat/sysctl_vm.h"
18 #include "xlat/sysctl_net.h"
19 #include "xlat/sysctl_net_core.h"
20 #include "xlat/sysctl_net_unix.h"
21 #include "xlat/sysctl_net_ipv4.h"
22 #include "xlat/sysctl_net_ipv4_route.h"
23 #include "xlat/sysctl_net_ipv4_conf.h"
24 #include "xlat/sysctl_net_ipv6.h"
25 #include "xlat/sysctl_net_ipv6_route.h"
29 struct __sysctl_args info;
33 if (umove_or_printaddr(tcp, tcp->u_arg[0], &info))
36 size = sizeof(int) * (unsigned long) info.nlen;
37 name = (size / sizeof(int) != (unsigned long) info.nlen) ? NULL : malloc(size);
39 umoven(tcp, (unsigned long) info.name, size, name) < 0) {
42 tprintf("{%p, %d, %p, %p, %p, %lu}",
43 info.name, info.nlen, info.oldval,
44 info.oldlenp, info.newval, (unsigned long)info.newlen);
49 unsigned int cnt = 0, max_cnt;
55 printxval(sysctl_root, name[0], "CTL_???");
63 printxval(sysctl_kern, name[1], "KERN_???");
68 printxval(sysctl_vm, name[1], "VM_???");
73 printxval(sysctl_net, name[1], "NET_???");
81 printxval(sysctl_net_core, name[2],
86 printxval(sysctl_net_unix, name[2],
91 printxval(sysctl_net_ipv4, name[2],
99 printxval(sysctl_net_ipv4_route,
101 "NET_IPV4_ROUTE_???");
105 printxval(sysctl_net_ipv4_conf,
107 "NET_IPV4_CONF_???");
115 printxval(sysctl_net_ipv6, name[2],
123 printxval(sysctl_net_ipv6_route,
125 "NET_IPV6_ROUTE_???");
140 if (abbrev(tcp) && max_cnt > max_strlen)
141 max_cnt = max_strlen;
142 while (cnt < max_cnt)
143 tprintf(", %x", name[cnt++]);
144 if (cnt < (unsigned) info.nlen)
146 tprintf("}, %d, ", info.nlen);
149 if (info.oldval == NULL) {
151 } else if (umove(tcp, ptr_to_kulong(info.oldlenp), &oldlen) >= 0
153 && ((name[0] == CTL_KERN
154 && (name[1] == KERN_OSRELEASE
155 || name[1] == KERN_OSTYPE
157 printpath(tcp, ptr_to_kulong(info.oldval));
159 tprintf("%p", info.oldval);
161 tprintf(", %lu, ", (unsigned long)oldlen);
162 if (info.newval == NULL)
164 else if (syserror(tcp))
165 tprintf("%p", info.newval);
167 printpath(tcp, ptr_to_kulong(info.newval));
168 tprintf(", %lu", (unsigned long)info.newlen);