4 * This program is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU General Public License
6 * as published by the Free Software Foundation; either version
7 * 2 of the License, or (at your option) any later version.
9 * Authors: Alexey Kuznetsov, <kuznet@ms2.inr.ac.ru>
20 #include <sys/socket.h>
21 #include <netinet/in.h>
24 #include <arpa/inet.h>
25 #include <asm/types.h>
26 #include <linux/pkt_sched.h>
27 #include <linux/param.h>
28 #include <linux/if_arp.h>
29 #include <linux/mpls.h>
36 #include "namespace.h"
42 if (c
>= 'A' && c
<= 'F')
44 if (c
>= 'a' && c
<= 'f')
46 if (c
>= '0' && c
<= '9')
52 int get_integer(int *val
, const char *arg
, int base
)
60 res
= strtol(arg
, &ptr
, base
);
62 /* If there were no digits at all, strtol() stores
63 * the original value of nptr in *endptr (and returns 0).
64 * In particular, if *nptr is not '\0' but **endptr is '\0' on return,
65 * the entire string is valid.
67 if (!ptr
|| ptr
== arg
|| *ptr
)
70 /* If an underflow occurs, strtol() returns LONG_MIN.
71 * If an overflow occurs, strtol() returns LONG_MAX.
72 * In both cases, errno is set to ERANGE.
74 if ((res
== LONG_MAX
|| res
== LONG_MIN
) && errno
== ERANGE
)
77 /* Outside range of int */
78 if (res
< INT_MIN
|| res
> INT_MAX
)
85 int mask2bits(__u32 netmask
)
87 unsigned int bits
= 0;
88 __u32 mask
= ntohl(netmask
);
91 /* a valid netmask must be 2^n - 1 */
92 if ((host
& (host
+ 1)) != 0)
95 for (; mask
; mask
<<= 1)
100 static int get_netmask(unsigned int *val
, const char *arg
, int base
)
104 if (!get_unsigned(val
, arg
, base
))
107 /* try coverting dotted quad to CIDR */
108 if (!get_addr_1(&addr
, arg
, AF_INET
) && addr
.family
== AF_INET
) {
109 int b
= mask2bits(addr
.data
[0]);
120 int get_unsigned(unsigned int *val
, const char *arg
, int base
)
128 res
= strtoul(arg
, &ptr
, base
);
130 /* empty string or trailing non-digits */
131 if (!ptr
|| ptr
== arg
|| *ptr
)
135 if (res
== ULONG_MAX
&& errno
== ERANGE
)
138 /* out side range of unsigned */
147 * get_time_rtt is "translated" from a similar routine "get_time" in
148 * tc_util.c. We don't use the exact same routine because tc passes
149 * microseconds to the kernel and the callers of get_time_rtt want to
150 * pass milliseconds (standard unit for rtt values since 2.6.27), and
151 * have a different assumption for the units of a "raw" number.
153 int get_time_rtt(unsigned int *val
, const char *arg
, int *raw
)
159 if (strchr(arg
, '.') != NULL
) {
169 if ((t
== HUGE_VALF
|| t
== HUGE_VALL
) && errno
== ERANGE
)
172 res
= strtoul(arg
, &p
, 0);
179 if (res
== ULONG_MAX
&& errno
== ERANGE
)
191 if (strcasecmp(p
, "s") == 0 ||
192 strcasecmp(p
, "sec") == 0 ||
193 strcasecmp(p
, "secs") == 0)
195 else if (strcasecmp(p
, "ms") == 0 ||
196 strcasecmp(p
, "msec") == 0 ||
197 strcasecmp(p
, "msecs") == 0)
198 t
*= 1.0; /* allow suffix, do nothing */
203 /* emulate ceil() without having to bring-in -lm and always be >= 1 */
212 int get_u64(__u64
*val
, const char *arg
, int base
)
214 unsigned long long res
;
220 res
= strtoull(arg
, &ptr
, base
);
222 /* empty string or trailing non-digits */
223 if (!ptr
|| ptr
== arg
|| *ptr
)
227 if (res
== ULLONG_MAX
&& errno
== ERANGE
)
230 /* in case ULL is 128 bits */
231 if (res
> 0xFFFFFFFFFFFFFFFFULL
)
238 int get_u32(__u32
*val
, const char *arg
, int base
)
245 res
= strtoul(arg
, &ptr
, base
);
247 /* empty string or trailing non-digits */
248 if (!ptr
|| ptr
== arg
|| *ptr
)
252 if (res
== ULONG_MAX
&& errno
== ERANGE
)
255 /* in case UL > 32 bits */
256 if (res
> 0xFFFFFFFFUL
)
263 int get_u16(__u16
*val
, const char *arg
, int base
)
270 res
= strtoul(arg
, &ptr
, base
);
272 /* empty string or trailing non-digits */
273 if (!ptr
|| ptr
== arg
|| *ptr
)
277 if (res
== ULONG_MAX
&& errno
== ERANGE
)
287 int get_u8(__u8
*val
, const char *arg
, int base
)
295 res
= strtoul(arg
, &ptr
, base
);
296 /* empty string or trailing non-digits */
297 if (!ptr
|| ptr
== arg
|| *ptr
)
301 if (res
== ULONG_MAX
&& errno
== ERANGE
)
311 int get_s32(__s32
*val
, const char *arg
, int base
)
320 res
= strtol(arg
, &ptr
, base
);
321 if (!ptr
|| ptr
== arg
|| *ptr
)
323 if ((res
== LONG_MIN
|| res
== LONG_MAX
) && errno
== ERANGE
)
325 if (res
> INT32_MAX
|| res
< INT32_MIN
)
332 int get_s16(__s16
*val
, const char *arg
, int base
)
339 res
= strtol(arg
, &ptr
, base
);
340 if (!ptr
|| ptr
== arg
|| *ptr
)
342 if ((res
== LONG_MIN
|| res
== LONG_MAX
) && errno
== ERANGE
)
344 if (res
> 0x7FFF || res
< -0x8000)
351 int get_s8(__s8
*val
, const char *arg
, int base
)
358 res
= strtol(arg
, &ptr
, base
);
359 if (!ptr
|| ptr
== arg
|| *ptr
)
361 if ((res
== LONG_MIN
|| res
== LONG_MAX
) && errno
== ERANGE
)
363 if (res
> 0x7F || res
< -0x80)
369 int get_be64(__be64
*val
, const char *arg
, int base
)
372 int ret
= get_u64(&v
, arg
, base
);
380 int get_be32(__be32
*val
, const char *arg
, int base
)
383 int ret
= get_u32(&v
, arg
, base
);
391 int get_be16(__be16
*val
, const char *arg
, int base
)
394 int ret
= get_u16(&v
, arg
, base
);
402 /* This uses a non-standard parsing (ie not inet_aton, or inet_pton)
403 * because of legacy choice to parse 10.8 as 10.8.0.0 not 10.0.0.8
405 static int get_addr_ipv4(__u8
*ap
, const char *cp
)
409 for (i
= 0; i
< 4; i
++) {
413 n
= strtoul(cp
, &endp
, 0);
415 return -1; /* bogus network value */
417 if (endp
== cp
) /* no digits */
425 if (i
== 3 || *endp
!= '.')
426 return -1; /* extra characters */
433 int get_addr64(__u64
*ap
, const char *cp
)
442 for (i
= 0; i
< 4; i
++) {
446 n
= strtoul(cp
, &endp
, 16);
448 return -1; /* bogus network value */
450 if (endp
== cp
) /* no digits */
453 val
.v16
[i
] = htons(n
);
458 if (i
== 3 || *endp
!= ':')
459 return -1; /* extra characters */
468 int get_addr_1(inet_prefix
*addr
, const char *name
, int family
)
470 memset(addr
, 0, sizeof(*addr
));
472 if (strcmp(name
, "default") == 0 ||
473 strcmp(name
, "all") == 0 ||
474 strcmp(name
, "any") == 0) {
475 if ((family
== AF_DECnet
) || (family
== AF_MPLS
))
477 addr
->family
= family
;
478 addr
->bytelen
= (family
== AF_INET6
? 16 : 4);
483 if (family
== AF_PACKET
) {
486 len
= ll_addr_a2n((char *) &addr
->data
, sizeof(addr
->data
),
491 addr
->family
= AF_PACKET
;
493 addr
->bitlen
= len
* 8;
497 if (strchr(name
, ':')) {
498 addr
->family
= AF_INET6
;
499 if (family
!= AF_UNSPEC
&& family
!= AF_INET6
)
501 if (inet_pton(AF_INET6
, name
, addr
->data
) <= 0)
508 if (family
== AF_DECnet
) {
511 addr
->family
= AF_DECnet
;
512 if (dnet_pton(AF_DECnet
, name
, &dna
) <= 0)
514 memcpy(addr
->data
, dna
.a_addr
, 2);
520 if (family
== AF_MPLS
) {
521 unsigned int maxlabels
;
524 addr
->family
= AF_MPLS
;
525 if (mpls_pton(AF_MPLS
, name
, addr
->data
,
526 sizeof(addr
->data
)) <= 0)
530 /* How many bytes do I need? */
531 maxlabels
= sizeof(addr
->data
) / sizeof(struct mpls_label
);
532 for (i
= 0; i
< maxlabels
; i
++) {
533 if (ntohl(addr
->data
[i
]) & MPLS_LS_S_MASK
) {
534 addr
->bytelen
= (i
+ 1)*4;
541 addr
->family
= AF_INET
;
542 if (family
!= AF_UNSPEC
&& family
!= AF_INET
)
545 if (get_addr_ipv4((__u8
*)addr
->data
, name
) <= 0)
553 int af_bit_len(int af
)
571 int af_byte_len(int af
)
573 return af_bit_len(af
) / 8;
576 int get_prefix_1(inet_prefix
*dst
, char *arg
, int family
)
582 memset(dst
, 0, sizeof(*dst
));
584 if (strcmp(arg
, "default") == 0 ||
585 strcmp(arg
, "any") == 0 ||
586 strcmp(arg
, "all") == 0) {
587 if ((family
== AF_DECnet
) || (family
== AF_MPLS
))
589 dst
->family
= family
;
595 slash
= strchr(arg
, '/');
599 err
= get_addr_1(dst
, arg
, family
);
601 dst
->bitlen
= af_bit_len(dst
->family
);
604 if (get_netmask(&plen
, slash
+1, 0)
605 || plen
> dst
->bitlen
) {
609 dst
->flags
|= PREFIXLEN_SPECIFIED
;
619 int get_addr(inet_prefix
*dst
, const char *arg
, int family
)
621 if (get_addr_1(dst
, arg
, family
)) {
623 "Error: %s address is expected rather than \"%s\".\n",
624 family_name(dst
->family
), arg
);
630 int get_prefix(inet_prefix
*dst
, char *arg
, int family
)
632 if (family
== AF_PACKET
) {
634 "Error: \"%s\" may be inet prefix, but it is not allowed in this context.\n",
639 if (get_prefix_1(dst
, arg
, family
)) {
641 "Error: %s prefix is expected rather than \"%s\".\n",
642 family_name(dst
->family
), arg
);
648 __u32
get_addr32(const char *name
)
652 if (get_addr_1(&addr
, name
, AF_INET
)) {
654 "Error: an IP address is expected rather than \"%s\"\n",
661 void incomplete_command(void)
663 fprintf(stderr
, "Command line is not complete. Try option \"help\"\n");
667 void missarg(const char *key
)
669 fprintf(stderr
, "Error: argument \"%s\" is required\n", key
);
673 void invarg(const char *msg
, const char *arg
)
675 fprintf(stderr
, "Error: argument \"%s\" is wrong: %s\n", arg
, msg
);
679 void duparg(const char *key
, const char *arg
)
682 "Error: duplicate \"%s\": \"%s\" is the second value.\n",
687 void duparg2(const char *key
, const char *arg
)
690 "Error: either \"%s\" is duplicate, or \"%s\" is a garbage.\n",
695 int matches(const char *cmd
, const char *pattern
)
697 int len
= strlen(cmd
);
699 if (len
> strlen(pattern
))
701 return memcmp(pattern
, cmd
, len
);
704 int inet_addr_match(const inet_prefix
*a
, const inet_prefix
*b
, int bits
)
706 const __u32
*a1
= a
->data
;
707 const __u32
*a2
= b
->data
;
708 int words
= bits
>> 0x05;
713 if (memcmp(a1
, a2
, words
<< 2))
723 mask
= htonl((0xffffffff) << (0x20 - bits
));
725 if ((w1
^ w2
) & mask
)
732 int __iproute2_hz_internal
;
741 return atoi(getenv("HZ")) ? : HZ
;
743 if (getenv("PROC_NET_PSCHED"))
744 snprintf(name
, sizeof(name
)-1,
745 "%s", getenv("PROC_NET_PSCHED"));
746 else if (getenv("PROC_ROOT"))
747 snprintf(name
, sizeof(name
)-1,
748 "%s/net/psched", getenv("PROC_ROOT"));
750 strcpy(name
, "/proc/net/psched");
752 fp
= fopen(name
, "r");
755 unsigned int nom
, denom
;
757 if (fscanf(fp
, "%*08x%*08x%08x%08x", &nom
, &denom
) == 2)
767 int __iproute2_user_hz_internal
;
769 int __get_user_hz(void)
771 return sysconf(_SC_CLK_TCK
);
774 const char *rt_addr_n2a_r(int af
, int len
,
775 const void *addr
, char *buf
, int buflen
)
780 return inet_ntop(af
, addr
, buf
, buflen
);
782 return mpls_ntop(af
, addr
, buf
, buflen
);
784 return ipx_ntop(af
, addr
, buf
, buflen
);
787 struct dn_naddr dna
= { 2, { 0, 0, } };
789 memcpy(dna
.a_addr
, addr
, 2);
790 return dnet_ntop(af
, &dna
, buf
, buflen
);
793 return ll_addr_n2a(addr
, len
, ARPHRD_VOID
, buf
, buflen
);
799 const char *rt_addr_n2a(int af
, int len
, const void *addr
)
801 static char buf
[256];
803 return rt_addr_n2a_r(af
, len
, addr
, buf
, 256);
806 int read_family(const char *name
)
808 int family
= AF_UNSPEC
;
810 if (strcmp(name
, "inet") == 0)
812 else if (strcmp(name
, "inet6") == 0)
814 else if (strcmp(name
, "dnet") == 0)
816 else if (strcmp(name
, "link") == 0)
818 else if (strcmp(name
, "ipx") == 0)
820 else if (strcmp(name
, "mpls") == 0)
822 else if (strcmp(name
, "bridge") == 0)
827 const char *family_name(int family
)
829 if (family
== AF_INET
)
831 if (family
== AF_INET6
)
833 if (family
== AF_DECnet
)
835 if (family
== AF_PACKET
)
837 if (family
== AF_IPX
)
839 if (family
== AF_MPLS
)
841 if (family
== AF_BRIDGE
)
846 #ifdef RESOLVE_HOSTNAMES
848 struct namerec
*next
;
854 static struct namerec
*nht
[NHASH
];
856 static const char *resolve_address(const void *addr
, int len
, int af
)
859 struct hostent
*h_ent
;
864 if (af
== AF_INET6
&& ((__u32
*)addr
)[0] == 0 &&
865 ((__u32
*)addr
)[1] == 0 && ((__u32
*)addr
)[2] == htonl(0xffff)) {
871 hash
= *(__u32
*)(addr
+ len
- 4) % NHASH
;
873 for (n
= nht
[hash
]; n
; n
= n
->next
) {
874 if (n
->addr
.family
== af
&&
875 n
->addr
.bytelen
== len
&&
876 memcmp(n
->addr
.data
, addr
, len
) == 0)
879 n
= malloc(sizeof(*n
));
883 n
->addr
.bytelen
= len
;
885 memcpy(n
->addr
.data
, addr
, len
);
892 h_ent
= gethostbyaddr(addr
, len
, af
);
894 n
->name
= strdup(h_ent
->h_name
);
896 /* Even if we fail, "negative" entry is remembered. */
901 const char *format_host_r(int af
, int len
, const void *addr
,
902 char *buf
, int buflen
)
904 #ifdef RESOLVE_HOSTNAMES
908 len
= len
<= 0 ? af_byte_len(af
) : len
;
911 (n
= resolve_address(addr
, len
, af
)) != NULL
)
915 return rt_addr_n2a_r(af
, len
, addr
, buf
, buflen
);
918 const char *format_host(int af
, int len
, const void *addr
)
920 static char buf
[256];
922 return format_host_r(af
, len
, addr
, buf
, 256);
926 char *hexstring_n2a(const __u8
*str
, int len
, char *buf
, int blen
)
931 for (i
= 0; i
< len
; i
++) {
934 sprintf(ptr
, "%02x", str
[i
]);
941 __u8
*hexstring_a2n(const char *str
, __u8
*buf
, int blen
, unsigned int *len
)
943 unsigned int cnt
= 0;
948 while (cnt
< blen
&& strlen(str
) > 1) {
952 strncpy(tmpstr
, str
, 2);
955 tmp
= strtoul(tmpstr
, &endptr
, 16);
956 if (errno
!= 0 || tmp
> 0xFF || *endptr
!= '\0')
968 int hex2mem(const char *buf
, uint8_t *mem
, int count
)
973 for (i
= 0, j
= 0; i
< count
; i
++, j
+= 2) {
980 c
= get_hex(buf
[j
+ 1]);
990 int addr64_n2a(__u64 addr
, char *buff
, size_t len
)
992 __u16
*words
= (__u16
*)&addr
;
998 for (i
= 0; i
< 4; i
++) {
1004 ret
= snprintf(&buff
[written
], len
- written
, "%x%s", v
, sep
);
1014 int print_timestamp(FILE *fp
)
1019 gettimeofday(&tv
, NULL
);
1020 tm
= localtime(&tv
.tv_sec
);
1022 if (timestamp_short
) {
1025 strftime(tshort
, sizeof(tshort
), "%Y-%m-%dT%H:%M:%S", tm
);
1026 fprintf(fp
, "[%s.%06ld] ", tshort
, tv
.tv_usec
);
1028 char *tstr
= asctime(tm
);
1030 tstr
[strlen(tstr
)-1] = 0;
1031 fprintf(fp
, "Timestamp: %s %ld usec\n",
1040 /* Like glibc getline but handle continuation lines and comments */
1041 ssize_t
getcmdline(char **linep
, size_t *lenp
, FILE *in
)
1046 cc
= getline(linep
, lenp
, in
);
1048 return cc
; /* eof or error */
1051 cp
= strchr(*linep
, '#');
1055 while ((cp
= strstr(*linep
, "\\\n")) != NULL
) {
1060 cc1
= getline(&line1
, &len1
, in
);
1062 fprintf(stderr
, "Missing continuation line\n");
1069 cp
= strchr(line1
, '#');
1073 *lenp
= strlen(*linep
) + strlen(line1
) + 1;
1074 *linep
= realloc(*linep
, *lenp
);
1076 fprintf(stderr
, "Out of memory\n");
1081 strcat(*linep
, line1
);
1087 /* split command line into argument vector */
1088 int makeargs(char *line
, char *argv
[], int maxargs
)
1090 static const char ws
[] = " \t\r\n";
1094 for (cp
= line
+ strspn(line
, ws
); *cp
; cp
+= strspn(cp
, ws
)) {
1095 if (argc
>= (maxargs
- 1)) {
1096 fprintf(stderr
, "Too many arguments to command\n");
1100 /* word begins with quote */
1101 if (*cp
== '\'' || *cp
== '"') {
1105 /* find ending quote */
1106 cp
= strchr(cp
, quote
);
1108 fprintf(stderr
, "Unterminated quoted string\n");
1116 /* find end of word */
1117 cp
+= strcspn(cp
, ws
);
1125 int inet_get_addr(const char *src
, __u32
*dst
, struct in6_addr
*dst6
)
1127 if (strchr(src
, ':'))
1128 return inet_pton(AF_INET6
, src
, dst6
);
1130 return inet_pton(AF_INET
, src
, dst
);
1133 void print_nlmsg_timestamp(FILE *fp
, const struct nlmsghdr
*n
)
1136 time_t secs
= ((__u32
*)NLMSG_DATA(n
))[0];
1137 long usecs
= ((__u32
*)NLMSG_DATA(n
))[1];
1139 tstr
= asctime(localtime(&secs
));
1140 tstr
[strlen(tstr
)-1] = 0;
1141 fprintf(fp
, "Timestamp: %s %lu us\n", tstr
, usecs
);
1144 static int on_netns(char *nsname
, void *arg
)
1146 struct netns_func
*f
= arg
;
1148 if (netns_switch(nsname
))
1151 return f
->func(nsname
, f
->arg
);
1154 static int on_netns_label(char *nsname
, void *arg
)
1156 printf("\nnetns: %s\n", nsname
);
1157 return on_netns(nsname
, arg
);
1160 int do_each_netns(int (*func
)(char *nsname
, void *arg
), void *arg
,
1163 struct netns_func nsf
= { .func
= func
, .arg
= arg
};
1166 return netns_foreach(on_netns_label
, &nsf
);
1168 return netns_foreach(on_netns
, &nsf
);
1171 char *int_to_str(int val
, char *buf
)
1173 sprintf(buf
, "%d", val
);
1177 int get_guid(__u64
*guid
, const char *arg
)
1179 unsigned long int tmp
;
1183 #define GUID_STR_LEN 23
1184 /* Verify strict format: format string must be
1185 * xx:xx:xx:xx:xx:xx:xx:xx where xx can be an arbitrary
1189 if (strlen(arg
) != GUID_STR_LEN
)
1192 /* make sure columns are in place */
1193 for (i
= 0; i
< 7; i
++)
1194 if (arg
[2 + i
* 3] != ':')
1198 for (i
= 0; i
< 8; i
++) {
1199 tmp
= strtoul(arg
+ i
* 3, &endptr
, 16);
1200 if (endptr
!= arg
+ i
* 3 + 2)
1206 *guid
|= tmp
<< (56 - 8 * i
);
1212 /* This is a necessary workaround for multicast route dumps */
1213 int get_real_family(int rtm_type
, int rtm_family
)
1215 if (rtm_type
!= RTN_MULTICAST
)
1218 if (rtm_family
== RTNL_FAMILY_IPMR
)
1221 if (rtm_family
== RTNL_FAMILY_IP6MR
)